库存明细账填写样本,库存商品明细帐如何填写?
库存商品明细帐: 一个品种一张帐页 是数量品种的那种帐页 购进时每个品种填购入数量,实际单价,总额 ;销售后填出库数量,单价(选一种成本核算方法,确定成本单价),成本总额,每月结出余额. 财务费用明细帐: 根据本公司的费用定二级科目明细 如:手续费,利息支出等, 每月合计
库存商品明细账如何调账?
企业单位在财务核算中,要对库存商品明细账进行调账的,首先进行错账冲红,借记库存商品(红字),贷记相关科目(红字),然后按正确的科目进行账务处理。
如何登记物品出入库明细账?
(1)对手续齐全正常入库的每一种物品必须登记一张独立的帐页。仓库保管帐可不用反映商品金额,故可以使用数量式帐页(但现在市面较难买到这种帐页)。 进销存明细帐是根据每天的入库单和出库单登帐,可以是数量式的也可以是数量金额式的。
进销存明细帐就是仓库保管帐,是企业仓库管理人员登记并保管的,相当于库存流水帐。具此核查企业实际库存数量。并要求做到实际库存与企业的库存商品明细帐必须要相等。
(2)对入库物品在未收到相应发票或手续前,仓管员必须建立货到票未到物品的明细账,并根据相关有效单据及时填开货到票未到收料单(在当月票到的可不开),在收到发票后,冲销原货到票未到收料单,并开具收料单,月底将货到票未到材料清单上报财务。
扩展资料:
一、库存商品的核算方法,是指企业的库存商品明细账用什么价格来记账,以及在库存商品的明细账上是否反映商品的实物数量。按照库存商品明细账所提供的核算指标来划分,库存商品的核算方法分为数量金额核算法和金额核算法。
数量金额核算法是同时采用实物计量和货币计量两种量度对库存商品的增减变动和结存情况进行反映和监督的核算方法,它既可以提供库存商品的数量指标,又可提供库存商品的金额指标,数量金额核算法又可分为数量进价金额核算和数量售价金额核算两种。
金额核算法是仅以货币计量对库存商品的增减变动和结存情况进行反映和监督的核算方法。金额核算法又可分为售价金额核算法和进价金额核算法。不同类型的商品流通企业,可以根据本企业的经营特点及经营管理的要求来选择确定采用不同的库存商品核算方法。
二、数量进价金额核算法
数量进价金额核算法的主要特点是:
(1)库存商品的总账和明细账都按商品的原购进价格记账。
(2)库存商品明细账按商品的品名分户,分别核算各种商品收进、付出及结存的数量和金额。
这种方法主要适用于大中型批发企业、农副产品收购企业及经营品种单纯的专业商店和经营贵重商品的商店。其优点是能够同时提供各种商品的数量指标和金额指标,便于加强商品管理。缺点是要按品种逐笔登记商品明细账,核算工作量较大。
三、数量售价金额核算法
数量售价金额核算法的特点是:
(1)库存商品的总账和明细账都按商品的销售价格记账。并同时核算商品实物数量和售价金额。
(2)对于库存商品购进价与销售价之间的差额需设置“商品进销差价”科目进行调整,以便于计算商品销售成本。
参考资料来源:百度百科-库存商品核算
怎样简单的打印出每个商品的进销存明细账?
这个问题我思考了一下,暂时想到的呢是用VBA去解决。
说一下我的思路:
进销存明细表数据量较为庞大,涉及商品几百个之多,不能用筛选的笨方法去逐个打印
可能存在每个型号有多行数据的可能
利用VBA将每个型号的数据单独查询出来
再将查询出来的数据附上表头
然后将带有表头的有效数据复制到新的工作簿中
以产品型号为新的工作簿命名并保存
多次循环以达到查询出所有型号的产品的目的
将所有单个产品型号的工作薄存储在一个文件夹中
最后打印所有新工作博
我简单的做了一个进销存的明细表,包含20个产品,示例如下:
VBA代码示例如下(由于代码占用篇幅较大,我放在文末了):
执行代码后,已经创建好的存储文件夹中:
随便打开一个文件查看,新文件查询生成ok
表头没问题,数据查询没问题,也不存在空文件
接下来,鉴于不能一次性打印太多的文件,只能选中一部分文件打印,如下:
此VBA代码使用说明由于需要定义要查找的内容,所以,在运行代码前,我们需要将所有的产品类型找出来,相信这是个简单的过程,大家能会做,如果有重复项,去重即可。
新建一个叫做“数组”sheet,并将所有的产品类型复制到第一列中,当然了,你也可以根据自己的需要去创建,但是在代码中得随着更改。如下图:
修改你的进销存的表头在表格中的区域区域,如下图:修改表头以下,数据内容的起始单元格,如下图:然后创建一个新文件夹,并将文件的地址,更改到代码中,如下图:
需要注意的最后一定要加一个“/”用以表示文件夹层级,在我的示例中,如果不标,就会把查询后生成的文件都放到Desktop文件夹下,并且工作簿名会带上“test”,这样不行将sheet切换到你的要查询的进销存表格,让表格处于激活状态
最后即可执行VBA代码了
如果有报错,就得自己检查一下代码了
代码如下:Sub test()
Dim myText$, myRow As Long
Dim d As Object, myRng As Range, myRng1 As Range, i%
Application.ScreenUpdating = False '禁止运行时刷新
Application.DisplayAlerts = False '禁止告警
Set myRng1 = ActiveSheet.[A1:T2] '定义表头位置
For i = 1 To 20 Step 1
Set d = CreateObject("scripting.dictionary")
myText = Sheets("数组").Cells(i, 1) '要查找的内容位置
With ActiveSheet.Cells '查找的范围
Set c = .Find(myText, Lookat:=xlPart)
If Not c Is Nothing Then
firstAddress = c.Address
Do
myRow = c.Row
If d.exists(myRow) = False Then
If myRng Is Nothing Then Set myRng = Rows(myRow) Else Set myRng = Union(myRng, Rows(myRow))
d(myRow) = 0
End If
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With
If Not myRng Is Nothing Then
myRng1.Copy Workbooks.Add.Sheets(1).Range("A1") '复制表头
myRng.Copy ActiveSheet.Range("A3") '复制内容
ActiveWorkbook.SaveAs Filename:="C:\Users\hxyuh\Desktop\test\" & myText & ".xlsx" '新工作簿保存位置及工作簿名定义
ActiveWindow.Close
End If
Set myRng = Nothing
Next i
Application.ScreenUpdating = True '开启运行时刷新
Application.DisplayAlerts = True '开启告警
End Sub
回答完毕,我就不一一写代码的注释了,有需要的朋友私信或者评论问我就行了。
太晚了,回答的比较仓促,代码没写的那么便于使用。欢迎大神们来补充优化,谢谢!
进销存明细账如何填写?
1、“收入”下面的栏中的数量、单价、金额以实际采购的发票与入库单登记。
2、“发出”下面的栏中的数量、单价、金额应通过出库单的数量登记,单价与金额应通过计算,如采用平均法,某物资单价=(某物资期初结存金额+本期入库金额)/(某物资期初结存数量+本期入库数量)某物资金额=某物资单价X发出的数量
3、“结存”下面的栏中的数量=期初结存数量+本期入库数量-发出的数量金额=期初结存金额+本期入库金额-发出金额单价=金额/数量(结存的单价与发出的单价是一样的)
还没有评论,来说两句吧...