主题：根据 生产表的 生产数量，如何快速的 把产品入库，然后增加库存数量

如果原始数据错误，就无法保证报表数据是正确的了。

既然是编码，想怎样都行的：

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

点击浏览该文件:管理项目175.rar

成品入库+材料损耗=100%

你们做不到是你们的人的问题，你要把折损引入，不是没办法做到100%，是有没有做的问题，经常直接改库存是不是生产流程有问题，改进模型吧，要不后面经常改写好的软件，那才要命。

还是不对。

我原来有一套管家婆。管家婆里面有一个表 是用来记录库存的。（管家婆里面还有 销售出货，进货等功能。销售的时候会减库存。）

因为管家婆 没有合适我用的生产功能。

所以 我目前暂时用 foxtabl 开发生产功能。和管家婆公用库存表。

所以记录 库存的  还是管家婆的表。不能变。就是库存数量必须是 数据列，而不是表达式列。反正是要保证管家婆销售减库存，进货增加库存，还有foxtable 生产功能入库的时候 增加库存。 所以入库的时候应该是执行 库存数量+生产数量，取消入库的时候应该是执行    库存数量-生产数量。而不是用 SUM（生产数量）and 入库=true 来表达。

可以实现吗？

还有麻烦管理员透露一下，“最新入库”列 是怎么获取数据的？

库存表再增加一列，用于统计销售数量，然后修改代码，初始库存 + 累计入库 -累计销售，就是最新库存了。

不管担心行不行的问题，只有有规则，Foxtable无所不能，你用foxtable能够设计出一套管家婆来的。

先打好基础，设计好需要的表结构。

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

点击浏览该文件:管理项目177.rar

谢谢管理员！

我们的主要操作还是在管家婆里面。大部分操作都在管家婆里面。（进货，收款。开单，打印、新增产品，新增单位，查看库存等 都在管家里面操作。）只是目前我要用 foxtable 开发 生产功能，除了生产功能，其他都在管家婆操作。当然包括查询库存，也在管家婆里面操作。

再说了 管家婆岂是 这么好改的？

所以 其他都可以改，就是库存表不能改。

在foxtable 里面，只有这样的思路：点击“入库”的时候 执行某段代码 （“库存数量”+.生产数量。）这样管家婆才能查询到 库存数量。

看来是不能实现了？

目前是想先用 foxtable 添加一个 生产的组件。结合管家婆先用着。能把仓库的数量和电脑对的上就好了。

想想我们偌大一个工厂，竟让没有库存数据，真是可悲。

管家婆还是有很多不合理的地方，至少是 不合我们用，所以用foxtable 开发自己的 工厂管理软件才是我最终的目标。

但这可能还需要比较长的一段时间。所以目前只能用 管家婆+foxtable开发的生产组件。

没有什么是不可以的，不动表结构，即时更新库存并保存：

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

点击浏览该文件:管理项目178.table

其实帮助有很多这种例子的。

我的 datacolchanged 代码如下

Select Case e.DataCol.Name
    Case "ruku"
        Dim val As Integer = e.DataRow("shuliang")
        If e.DataRow("ruku") = False Then
            val = -val
        End If
        Dim dr As DataRow = DataTables("GoodsStocks").find("ptypeid = '" & e.DataRow("Ptypeid") & "'")
        If dr IsNot Nothing Then
            dr("Qty") = dr("Qty") + val
            dr("total") = dr("Qty") * dr("price")
            dr.Save()
       
        End If
        e.DataRow.Save()
End Select

正常可运行。

但是有个特殊情况 DataTables("GoodsStocks").find("ptypeid = '" & e.DataRow("Ptypeid") & "'")
有时候会存在 noting 的情况。

当存在 noting 的时候 希望 goodsstocks 增加一行

其中具体 数据是

       goodsstocks.("ptypeid") =e.DataRow("ptypeid")
       goodsstocks.("KtypeId")="00001"   
       goodsstocks.("qty")=dr("qty")
       goodsstocks.("price")=0
       goodsstocks.("total")=0
       goodsstocks.("GOODSORDERID")=0

这样要怎么写？

Select Case e.DataCol.Name
    Case "ruku"
        Dim val As Integer = e.DataRow("shuliang")
        If e.DataRow("ruku") = False Then
            val = -val
        End If
        Dim dr As DataRow = DataTables("GoodsStocks").find("ptypeid = '" & e.DataRow("Ptypeid") & "'")
        If dr IsNot Nothing Then
            dr("Qty") = dr("Qty") + val
            dr("total") = dr("Qty") * dr("price")
        Else
            dr = DataTables("GoodsStocks").AddNew()
            dr("ptypeid") =e.DataRow("ptypeid")
            dr("KtypeId")="00001"
            dr("qty")=dr("qty")
            dr("price")=0
            dr("total")=0
            dr("GOODSORDERID")=0
        End If
        dr.Save()
        e.DataRow.Save()
End Select

不行，程序出错了！

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