Fifo成本计算方法 [英] Fifo costing method
问题描述
此讨论于2011年7月29日开始(Fifo和Lifo成本计算方法,FIFO确定,LIFO问题)。我是MS Access的新手,希望有人可以帮我提供
先生的表格/表格字段名称。 Larocque 代码。
This discussion was started back in July 29, 2011 (Fifo and Lifo costing method, FIFO ok, LIFO problem). I am new to MS Access and was hoping someone could help me with the table / form field names from Mr. Larocque code.
以下是代码:
Option Compare Database
Public Sub CalculateFifoStock()
Dim cn As ADODB.Connection
Dim Rs1 As ADODB.Recordset
Dim Rs2 As ADODB.Recordset
Dim Prid As Long
Dim iTot As Long
Prid = 0
iTot = 0
DelFifo ' check sub procedure below
Set cn = CurrentProject.Connection
Set Rs1 = New ADODB.Recordset
Set Rs2 = New ADODB.Recordset
Rs1.Open "zxFifo", cn, adOpenForwardOnly, adLockReadOnly
Rs2.Open "FifoStock", cn, adOpenDynamic, adLockOptimistic
Do While Not Rs1.EOF
If Rs1![prd] = Prid Then
iTot = iTot + Rs1![pr]
Else
Prid = Rs1![prd]
iTot = Rs1![pr]
End If
If iTot <= Rs1!sold Then
Else 'if total quantity purchased does not exceed consumed
Rs2.AddNew
' *********************** Assign purchase details
Rs2!fdate = Rs1!xdate
Rs2!doc = Rs1!doct
Rs2!prdt = Rs1!prd
Rs2!PQty = Rs1!pr
Rs2!RQty = iTot
Rs2!Rt = Rs1!Pp
' *********************** Assign available quantity
If iTot - Rs1!sold > Rs1!pr Then
Rs2!avQty = Rs1!pr
Else
Rs2!avQty = iTot - Rs1!sold
End If
' ***********************
Rs2.Update
End If
Rs1.MoveNext
Loop
Rs1.Close
Rs2.Close
cn.Close
Set Rs1 = Nothing
Set Rs2 = Nothing
Set cn = Nothing
End Sub
Private Sub DelFifo()
CurrentDb.Execute "delete * from fifoStock", dbFailOnError ' to empty table before new insertion
End Sub
推荐答案
你好Bradyman
Hi Bradyman
你的问题有点模糊。
You question is a little vague.
RecordSets Rs1和Rs2来自一个名为 " zxFifo"和 FifoStock" 。
The RecordSets Rs1 and Rs2 come from a tables or queries named "zxFifo" and "FifoStock" respectively.
字段名称前面加上"!"。 ,so Rs1!xdate 指表/查询zxFifo和字段xdate。
The Field names are listed preceeded by a"!" , so Rs1!xdate Refers to Table/Query zxFifo and field xdate.
这篇关于Fifo成本计算方法的文章就介绍到这了,希望我们推荐的答案对大家有所帮助,也希望大家多多支持IT屋!