ＩＦＳ前台资料检查写法

源代码文件: SplitReservedLot.apl
相关窗口: frmSplitReservedLot2

问题描述: 批号拆分时,可任意拆分批号,会导致拆分后批号资料不正确
例子: 批号(1900-1) 有5道工序(10/20../50) 数量为20
若批号1900-1未做到20工序,就在20工序拆分会导致资料不正确;

PS: 目前2K4/SP4版本未能做到在工序上拆分,这是我们后来客户化的地方
也就是在RESERVED_LOT_BATCH_TAB表里增加一新FIELD:
Parent_Operation_No表示此子批号从父批号的某道工序开始拆分的资料
后续会讲WIP的部分,基本上来说按批号管理的IFS'S WIP资料都不准确;

解决方法:
在拆分批号APPLY时检查此批号在此道工序上的WIP是否够用?
接上例,假设拆分前资料
 OPERATION_NO  LOT_NO        OUTPUT　WIP
10                             1900-1              20             　0       =>表示第10工序已经完工
20                             1900-1              15                 5       =>表示第20工序上有WIP数量为5
30                             1900-1               0                 15      =>表示第30工序上有WIP数量为15
此时在此10工序应该不允许拆分批号,
20工序至多只能拆分5个数量；
30工序至多只能拆分15个数量；

具体实现：
1) 写一CheckQty函数：检查ＷＩＰ数量是否够，不通过nCheck＝１；否则nCheck＝０；
Function: CheckQty
 Description:
 Returns
 Parameters
 Static Variables
 Local variables
  Number: nRowI
  Number: nRowJ
  Number: nSum
  Number: nOpNoI
  Number: nOpNoJ
  Number: nWip
 Actions
  Set nSum= 0
  Set nRowI = TBL_MinRow
  --两层ＬＯＯＰ，此处为外ＬＯＯＰ
  While SalTblFindNextRow(hWndTbl, nRowI, 0, ROW_MarkDeleted)
   Call SalTblSetContext(hWndTbl, nRowI)
   Set nSum= 0
   Set nOpNoI = hWndTbl.colnParentOperationNo
   Set nWip = hWndTbl.colnWipQty
   Set nRowJ = TBL_MinRow
　－－此处为内ＬＯＯＰ
   While SalTblFindNextRow(hWndTbl, nRowJ, 0, ROW_MarkDeleted)
    Call SalTblSetContext(hWndTbl, nRowJ)
    Set nOpNoJ = hWndTbl.colnParentOperationNo
　－－相同ＯＰＥＲＡＴＩＯＮ＿ＮＯ，统计拆分数量
    If nOpNoI = nOpNoJ
     Set nSum = nSum  + hWndTbl.colnReservedQty
　－－拆分数量超过ＷＩＰ数量，返回１
   If nSum > nWip
    Set nCheck  = 1
    Return TRUE
  Set nCheck  = 0
  Return FALSE
２）修改PM_DataSourceSave
On PM_DataSourceSave
 If wParam =METHOD_Execute
  If dfnQtySplit > nOrigReservedQty
   Call AlertBox(TranslateConstant(TEXT_SplitResLot_QtySplit) , CAPTION_Error, INFO_Ok )
   Return FALSE
　－－增加此处调用
  Call CheckQty()
　－－检查不通过，错误对话框
  If nCheck = 1
   Call AlertBox(TranslateConstant(TEXT_SplitResLot_QtyWip) , CAPTION_Error, INFO_Ok )
   Return FALSE
 ．．以下省略