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

先上图吧。

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

如图所示

录入了一张生产记录表。

前面几行都是半成品，后面两行是成品（因为还没有入库，所以要让他默认是半成品）。

现在我想把后面两个生产记录的 状态 改成“成品” 既然是成品 就要增加库存数量。

所以 “半成品” 变成 “成品”后 库存要把 这个成品的生产数量加上。

如何快速解决这样的问题。

网页的 思路就很简单，设置一个连接，点击连接 就把参数传递到专门的页面处理就可以了。

有点不明白

先说第一个 方案：不可以分成两个表的。因为 这个表是我拿来给 员工计算工资的。

（为什么 我有管家婆，一直在用，现在要开始研究 foxtable ，因为管家婆 不支持我们这种特殊的生产录入方式，扯远了。）

第二个方案。不是很理解。

我的疑惑在于，生产记录我每天都要录入。其中有些是成品，有些是半成品的。只有成品才入库。

然后还有销售表格，销售出货了以后，还要减库存的。

先看下 我用网页做的效果

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

用网页做的时候，我在“入库” 这一列 的 “半”字 做一个连接，如果是产成品，我就点击 “半”字，

它就会把这一条记录的相关参数传递到专门的页面进行处理，这样库存就会加上相应的生产数量，

并且 这一条记录“半”字 变成 “入” 表明 该记录已经入库。这样直观，防止重复入库。

看一下 foxtable 的界面，这是 生产记录 界面

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

再看一下 仓库界面

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


 

类似 网页这样的功能如何实现？

生产记录是不能分开两个表的。因为生产记录是我们拿来算员工工资的。

就算不能做到网页这样的效果，只要能快捷入库，又直观就好。

模拟的项目 如下

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

点击浏览该文件:生产入库_0809.zip

谢谢管理员

可是有点不对。我原来有库存数量的，要在原来库存的基础上 加上生产入库的数量。而且我们的工厂没有办法做到100% 数量准确。有时候要直接改库存数量的。（大部分工厂都有没办法做到100%准确。）

最好是数据列而不是表达式列。然后可以直接改库存数据。

如果不可以的话，这样的方法也勉强可以。

不知道是怎么做出来的？

还是不对。

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

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

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

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

可以实现吗？

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

谢谢管理员！

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

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

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

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

看来是不能实现了？

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

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

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

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

我的 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

这样要怎么写？

不行，程序出错了！

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

确定ptypeid 列不是空值。

只要 所有nothing 情况下 都不可以新增列，如下图79行。