张志峰的博客

水滴石川，积少成多。

导航

2013年8月29日

关于暂估入库商品的帐务处理

摘要： 题：11月商品已入库，并出库，发票未到，暂估入库也结转暂估的成本。分录如下：1.借：库存商品-暂估A 贷：预付账款-甲单位 结转成本 2.借：成本-A 贷;库存商品-暂估A 3.借：应收账款-丙单位 贷：收入 应交税金-销项 次月12月 发票已到，相应又冲减上月暂估入库和成本，并重新入库，和重新结转成本。库存平的。分录如下： 4. 红字冲帐 借：库存商品-暂估A 贷：预付账款-甲单位 5.做蓝字更正： 借：库存商品-A 应交税金-进项税 贷：预付账款-甲单位 6. 红字又冲减上月全部的暂估成本 借：成本-暂估A 贷：库存商品-暂估A7. 本月又重新出库，结转成本 借：成本-A 贷：库存商... 阅读全文

posted @ 2013-08-29 20:09 ╰★张志峰★╮ 阅读(472) 评论(0) 推荐(0)

库存商品暂估入库的帐务处理

摘要： 我想请教：本月暂估入库，是不是下月就要红冲，能不能隔月或跨年红冲谢谢最好是有明文规定答：会计准则-应用指南中有明确的规定：对于尚未收到发票账单的收料凭证，应按计划成本暂估入账，借记“原材料”、“周转材料”等科目，贷记“应付账款——暂估应付账款”科目，下期初做相反分录予以冲回。下期收到发票账单的收料凭证，借记本科目，贷记“银行存款”、“应付账款”、“应付票据”等科目。涉及增值税进项税额的，还应进行相应的处理。你本月暂估入库，下月初冲回，若下月仍没有发票，月末再暂估，下下月初冲回，如此反复，直到收到发票为止，时间长了，税务会找麻烦。收到发票后才冲回。跨年度时税务上可能会有麻烦，因为税务机关可能认为 阅读全文

posted @ 2013-08-29 20:03 ╰★张志峰★╮ 阅读(609) 评论(0) 推荐(0)

购汽油入库会计科目的借贷方

摘要： 看用途，如果是员工平时开车需要借 管理费用---油费贷 银行存款如果是生产需要借 原材料--辅助材料贷 银行存款 阅读全文

posted @ 2013-08-29 19:58 ╰★张志峰★╮ 阅读(367) 评论(0) 推荐(0)

会计学习网址

摘要： http://www.chinaacc.com/new/635_796_201102/15ya1938967728.shtml 中国会计网http://club.kuaijiren.com/thread-125102-1-1.html 会计人 阅读全文

posted @ 2013-08-29 19:47 ╰★张志峰★╮ 阅读(191) 评论(0) 推荐(0)

材料暂估入库，如何进行账务处理 转

摘要： 材料暂估入库，如何进行账务处理2011-2-15 10:40　中华会计网校　【大中小】【打印】【我要纠错】 【问】购进了一批钢材，但发票未取得。此时如何进行账务处理，当以后拿到发票时又如何处理？ 【答】暂估入库时： 借：原材料 贷：应付账款——入库未达账款 拿到发票时，首先冲回已经暂估入库的原材料： 借：原材料（红字） 贷：应付账款——入库未达账款（红字） 然后，再根据发票金额入账： 借：原材料 应交税费——增值税（进项） 贷：应付账款 阅读全文

posted @ 2013-08-29 19:36 ╰★张志峰★╮ 阅读(295) 评论(0) 推荐(0)

delphi 写系统日志监控 转

摘要： 不久前写了个抓取网页内容的小程序，跑了一晚上，本以为早上起来都抓完了，谁知道程序死掉了，分析半天，才发现用tmemo来记录日志的信息太多了，越积越多，本来memo的容量就不大。对于无法控制信息量的日志来说，有可能造成崩溃。记得见过盒子上一个关于手机发短信的小程序，上面有个日志的写法不错。方法：1、每写一行日志，先判断memo的行数是否超过自己设定的行数，我一般设为1000行，这样保存的日志大小一般在64K左右2、判断保存日志的目录是否存在，不存在就建 一个3、用日期加时间取一个日志名，象这种2010-03-12_07-15-23-171.txt 。4、判断这个文件是否存在，（因为有些监控信息出 阅读全文

posted @ 2013-08-29 15:39 ╰★张志峰★╮ 阅读(2558) 评论(0) 推荐(0)

Delphi 写日志的类

摘要： unit uProgLog;interfaceusesWindows, SysUtils, SyncObjs;constC_LOG_LEVEL_TRACE = $00000001;C_LOG_LEVEL_WARNING = $00000002;C_LOG_LEVEL_ERROR = $00000004;typeEnumSeverity = (TraceLevel, WarningLevel, ErrorLevel, LogLevel);function SeverityDesc(severity: EnumSeverity): string;typeTLogFile = classpr... 阅读全文

posted @ 2013-08-29 15:35 ╰★张志峰★╮ 阅读(3649) 评论(0) 推荐(0)

Delphi 日志的方法 Log

摘要： 写一个日志的函数,只需要传内容进去即可,自动记录时间的,日志保存在'c:\ErpRunLog.txt'下procedure writeWorkLog(sqlstr: string);var filev: TextFile; ss: string;begin sqlstr:=DateTimeToStr(Now)+' Log: '+sqlstr; ss:='c:\ErpRunLog.txt'; if FileExists(ss) then begin AssignFile(filev, ss); append(filev); writeln(file 阅读全文

posted @ 2013-08-29 15:30 ╰★张志峰★╮ 阅读(2593) 评论(0) 推荐(0)

delphi 托盘程序 转

摘要： Delphi的托盘编程 。现在很多程序都用这个，比如傲游，迅雷等，主要代码如下：usesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, ShellAPI, AppEvnts, StdCtrls, Menus;const WM_NID = WM_User + 1000; //声明一个常量private { Private declarations } // 定义两个函数 procedure SysCommand(var SysMsg: TMessage); message WM_ 阅读全文

posted @ 2013-08-29 15:25 ╰★张志峰★╮ 阅读(413) 评论(0) 推荐(0)

Delphi 托盘程序实现 转

摘要： unit MainUnit;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ShellAPI, StdCtrls, Buttons;//涉及到系统编程方面都要用到API函数const WM_NID= WM_USER+1000;//系统规定从WM_USER开始为用户自定义消息。type TForm1 = class(TForm) BitBtn1: TBitBtn; procedure FormCreate(Sender: TObject); proc 阅读全文

posted @ 2013-08-29 15:23 ╰★张志峰★╮ 阅读(643) 评论(0) 推荐(0)

Delphi TNativeXML Node节点乱码的一种解决方法

摘要： Node1.WriteString(HomologousFieldItem.cXMLNodeCode, AnsiToUtf8(FieldByName(HomologousFieldItem.cMappingFieldCode).AsString));还有一种，就是定义成WideString，保存成这种类型的数据， 然后用 Node1.WriteWideString()的方法，也可以避免。 阅读全文

posted @ 2013-08-29 14:56 ╰★张志峰★╮ 阅读(740) 评论(0) 推荐(0)