关于成品仓入、出库问题，急！在线等待！

D_net

这是我们MRP系统中成品管理模块的一部分。
这里有：
    4张表：tbljpcg(出库)，tbljpig(入库)，tbljplist(成品物料代码及详细规格)，tbljpuc(顾客名称)；
    3个查询：qry_jpcg(出库)，qry_jpig(入库)，qry_jpjg(在库)；
    1个在库查询窗体。
    现在我遇到的困难是：入库了两批产品（其中一批的备考(rem)字段值为1），而出库的一条记录为：出库时忘了填备考(rem)字段的1-----其实是应该对应第2批入库的产品(即"正常入库"的那批)，仍然可以出库；于是在库查询(qry_jpjg)还有两批产品。
    我们实际希望的结果是：在qry_jpjg中能体现出那批出库的产品是非法出库，即这批产品并没有入库，却出库了。比如用红字/负数表示。
    或者，出库时备考列没填1，就不允许其出库。
    困难在于：为了实际工作中的方便，两张表都没有供联接的有效的关键字段。
    谢谢！
文件下载[em01]

[此贴子已经被作者于2003-2-21 9:50:43编辑过]

D_net

问题解决：
在事件过程里编码：
Private Sub Form_BeforeUpdate(Cancel As Integer)
    Dim conn  As New ADODB.Connection
    Set conn = CurrentProject.Connection
    Dim rst As New ADODB.Recordset
    Dim msg As String
    Dim m As String
    rst.Open "select * from tbljpig where jpuc='" & Me.jpuc & "'and jpp='" & Me.jpp & "'and rem='" & Me.rem & "'", conn, adOpenKeyset, adLockOptimistic
   
    If rst.EOF Then
        MsgBox "RODUCTION NULL!"
        jpgb.SetFocus
        
    End If
   
    Set conn = Nothing
    Set rst = Nothing
End Sub


同时多谢各位！尤其是cattjiu ！

[此贴子已经被作者于2003-2-20 18:12:20编辑过]

D_net

首先谢谢你的关注！
    关于“在tbljpcg表中出库数(cgs)字段的查阅选项卡中：查阅控件=组合框，行来源=SELECT [igs]-[cgs] AS cgsLimit FROM tbljpcg RIGHT JOIN tbljpig ON tbljpcg.jpp = tbljpig.jpp;“
    我觉得：如果像我这样做是意义不大的，因为igs(出库数）这一列并没有与jpuc(制品业体)、jpp(制品P)连接起来，任出库一批产品，都把所有的igs-cgs列出来了，而且，无法实时更新。
    你有没有改进一下的方法？

或者，在事件中编程怎样？我在frmjpcg窗体的BeforeUpdate事件中用了代码，但是无法达到目的。

（文件我发email给你了）

cattjiu

错误信息是什么？

D_net

UP!UP!
拜托！

D_net

cattjiu：
    我在tbljpcg表中出库数(cgs)字段的查阅选项卡中：查阅控件=组合框，行来源=SELECT [igs]-[cgs] AS cgsLimit FROM tbljpcg RIGHT JOIN tbljpig ON tbljpcg.jpp = tbljpig.jpp;
执行时出错了!

还望指点！

cattjiu

怎么会死锁呢？

D_net

cattjiu:
    您说的第1点，我们值得采用；
    至于第2点，照您所说的查询思路，是不是在出库表(tbljpcg)中验证这个查询，而查询中也要使用出库表(tbljpcg)的数据，这样岂不是一个死锁循环？
   
    各位：难道这个问题无解？？

cattjiu

1、“你可以在有效那里设<>0来约束输入时忘记输入则不可以继续”/“用有效性确保备考必须输入”；我觉得这两个办法很好，但-----如果录入员把1录成2了呢:最好别用1/2来区别,应该使用系统的编码,而且不能太短,这样还输入错,就应该换人了.
2、“做出库时，当选择某个PN时先判断可以供出货数量（=已经入库数量-已经出库数量）。如为0则不允许出库，同时输入的出库数不可以大于供出货数量”-----是不是这个意思：先生成一个在库查询（或将其生成一个表），然后在出库时以此为验证基准？？:用查询

D_net

请允许我再明确一下：
    但在入库记录表(tbljpig)中不可能是唯一的，肯定会有多批同一个编码的产品不定时的入库。
   从我目前的设计来看：
       1、尚未入库的产品，出库表也可以录入。（即明明库里没有的产品，也被出库了）
       2、即使出库的产品是库里有的品目，但如果出库时录入的内容不与入库时的完全一样（比如忘了录入“备考”中的1），那这批产品仍然完完整整的在库（qry_jpjg)。-------而我希望识别出这批出库产品是无库存的（非法出库），比如用这两种方式：1.在（在库量查询）qry_jpjg中显示出来，但数量用红字/负数显示。  2. 在出库录入时，就不允许其录入（比如在离开当前录入记录时，警告）。

    同理，即使入库产品为空，仍然可以任意出库，且在库量（qry_jpjg)为空，这样就失去了控制作用了--------这样的系统，使用起来还有什么意义？？
            
    我曾使用过在入库与出库表里各增加一个字段，来控制入、出库两张表的连接，但这样仓库人员的工作量就大大增加了，后来方案被否定。（请见问题发言附件2,可能因为OS语言版本不同显示有点异常，但可以看出数据运算逻辑）

[此贴子已经被作者于2003-2-19 20:03:20编辑过]