主题：出入库

老师，我按照帮助修改了一个出入库，

1、我需要按照项目结存，入库后，库存里面的入库信息没增加，请看看什么问题？

2、一个项目完成后，需要转库又怎么来弄呢？

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:出入库.foxdb

比如我：项目名称1  这个是项目部的库，当这个项目完成后，所有剩余的库存的材料需要运回到公司库存或是转入到：项目名称2 的的库存，

相当于把项目名称1  这个库的剩余材料全部出库一次，在公司库存 或 项目名称2 入库一次。

 

在请老师看看出库的代码应该怎么修改呢，出库后，库存也没信息

老师，出库这样写：

If e.DataCol.Name  =  "项目名称" OrElse e.DataCol.Name  = "产品名称" OrElse e.DataCol.Name  = "规格型号"
    If e.DataRow.IsNull("项目名称") = False AndAlso e.DataRow.IsNull("产品名称") = False  AndAlso  e.DataRow.IsNull("规格型号") = False Then
        Dim dw As DataRow = DataTables("库存").Find("项目名称 = '" & e.DataRow("项目名称") & "' And 产品名称 = '" & e.DataRow("产品名称") & "' And 规格型号 = '" & e.DataRow("规格型号") & "'")
        If dw IsNot Nothing Then
            If e.DataRow("出库_数量") > dw("库存_数量") Then
                MessageBox.Show("该产品库存数量小于出库数量,请核对库存量是否充足!","提示",MessageBoxButtons.OK,MessageBoxIcon.None)
                Return
            Else
                e.DataRow("出库_单价") = dw("库存_单价")
                e.DataRow.Save
            End If
        Else
            MessageBox.Show("该产品无库存,请核对库存是否有该产品!","提示",MessageBoxButtons.OK,MessageBoxIcon.None)
            Return
        End If
    End If
End If

Select Case e.DataCol.Name
    Case  "出库_数量","出库_单价","出库_金额"
        Dim pr  As  DataRow
        pr = DataTables("库存").Find("项目名称 = '" & e.DataRow("项目名称") & "' And 产品名称 = '" & e.DataRow("产品名称") & "'And 规格型号 = '" & e.DataRow("规格型号") & "'")
        If pr IsNot Nothing  Then
            DataTables("库存").DataCols("项目名称").RaiseDataColChanged(pr)
        End  If
End Select

 

存在一个问题，我库存单价是按照库存金额/库存数量计算的，我在出库中引用库存单价后，库存的数量发生了变化，单价也变化了，就是个死循环，这样没法获得库存单价，怎么来处理呢？

我在论坛看到一个移动平均的方法，麻烦看看我的怎么按照这个修改？

 

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:移动平均.table

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:出入库.foxdb

 

入库后，入库的金额如果用：数量*单价（这个单价的税后单价），这个入库金额需要加上税额部分

比如下面这张piao：

  

此主题相关图片如下：img_20200520_111525.jpg

如果这样是不是不同的单价、税率都需要单独入一次库呢？

出库后需要给不砼的领料人结算，这个又怎么来核算准确的出库金额呢？