各位高手，请进！关于库存先进先出问题！

Benjamin_luk

都是同一订单，用不着分那么细的了

[此贴子已经被作者于2004-4-5 15:00:24编辑过]

petrelai

不是呀。到时我要做商品销售明细时就没法分了。

akesaisi

销售订单里就别考虑进价了.因为同一品种在销售单里一般是一条记录,所以难以考虑多种进价的数据保存.
1.可以考虑处理完销售记录同时,再处理本次出货的成本.即再搞个成本表. 是不是太复杂了?
2.可以在销售记录中设一个成本字段,用以汇总同一商品的核销成本.(但成本组成的明细内容似乎还是搞一个成本表比较好)

petrelai

我有一个成本表呀，因为我这个库要做采用先进先出的方法来计算商品的销售成本，所以我我建了一个成本表，销售时的成本就在这个表取，但如果出现29楼，还是28楼说的那样的情况出现的话，我就没法了，它只会取最后一个商品销售的成本表。我们老板而就是想要这种效果，不想要平均的。我为了这个问题苦了十多天呀。

Benjamin_luk

你在下面的代码中加入增加数据到成本表不行了吗？你进货时还是用批号吧
//Dim Rs1 as recordset
//set rs1=db.OpenRecordset("成本表", dbOpenDynaset)
//在减库存量的时候同时记录成本
//RS1.Edit
//rs1(..)=Forms!..![订单号]
//rs1(..)=Forms!..![产品]
//rs1(..)=wei
//rs1(..)== rec("商品进价")
这样的记录,还怕什么找不到



Dim bian, ku, wan, wei, qi, qian, zi
Dim e As Currency
Dim ri As Date
Dim db As DAO.Database
Dim rec As DAO.Recordset
Dim strXs As String
Dim check
check = True

bian = " [商品编号] ='" & Forms![销售出库]![销售出库子窗体]![商品编号] & "'"
wan = "[完结]=" & False
wei = Forms![销售出库]![销售出库子窗体]!数量
      Set db = CurrentDb()
      strXs = "select 库存表.日期,库存表.库存量,库存表.完结,库存表.商品进价 from 库存表 where 库存表.商品编号 = '" & Forms!销售出库!销售出库子窗体!商品编号 & "'" & "and  库存表.完结 = " & False & ""
      Set rec = db.OpenRecordset(strXs, dbOpenDynaset)
      'ri = DMin("日期", "库存表")
      'rec.FindFirst "[日期]=# " & Forms!销售出库!销售出库子窗体!单据日期 & "#"
       Do While wei < 0 Or Not rec.EOF
        If rec("库存量") > wei Then
        rec.Edit
        rec("库存量") = rec("库存量") - wei
        Forms![销售出库]![销售出库子窗体]![进货价] = rec("商品进价")
        rec.Update
        Exit Do
        Else
        rec.Edit
        wei = wei - rec("库存量")
        Forms![销售出库]![销售出库子窗体]![进货价] = rec("商品进价")
        rec("库存量") = 0
        rec("完结") = True
        rec.Update
        
        End If
        
    rec.MoveNext
   Loop

Benjamin_luk

Do While wei < 0 Or Not rec.EOF
是不是应该为:
Do While wei > 0 Or Not rec.EOF

Benjamin_luk

另外,我觉得,你还先看一下,库存量是否足够,所以还要多写一些代码,提醒用户当前的库存是否足够.

petrelai

您这样做的话，是不是用到了两个表来计算了？一个库存表，记录着入库的进货价，一个是成表，记录着出库存的成本价。

Benjamin_luk

只有这样才能做到了，这样做也很容易呀

petrelai

您说得对，好，我先试试看。谢谢！