110 lines
1.5 KiB
Plaintext
110 lines
1.5 KiB
Plaintext
COMPILE ROUTINE FIX_WO_MAT_QA(Dummy)
|
|
ROWDEF(CHARSTR)
|
|
|
|
DECLARE SUBROUTINE Send_Dyn,Send_Info, obj_WO_Log, Set_Status, RList, Btree.Extract, obj_WO_Mat_QA
|
|
DECLARE FUNCTION Get_Status, Set_Printer
|
|
|
|
|
|
$INSERT WO_MAT_QA_EQUATES
|
|
$INSERT WO_LOG_EQU
|
|
$INSERT RLIST_EQUATES
|
|
|
|
OPEN 'WO_MAT_QA' TO WOMatQAFile ELSE
|
|
DEBUG
|
|
GOTO Bail
|
|
END
|
|
|
|
|
|
|
|
|
|
OPEN 'DICT.WO_MAT' TO DictVar ELSE
|
|
DEBUG
|
|
GOTO Bail
|
|
END
|
|
|
|
|
|
DEBUG
|
|
|
|
SelectSent = 'SELECT WO_MAT WITH REL_DTM > "4/29/2016 08:00" AND WITH QA_MET_STAGE = "" '
|
|
|
|
|
|
RLIST(SelectSent,TARGET_ACTIVELIST$,'','','')
|
|
|
|
|
|
|
|
IF Get_Status(errCode) THEN
|
|
DEBUG
|
|
GOTO Bail
|
|
END
|
|
|
|
|
|
|
|
Done = 0
|
|
|
|
FixCnt = 0
|
|
|
|
|
|
LOOP
|
|
READNEXT WOMatKey ELSE Done = 1
|
|
UNTIL Done
|
|
|
|
|
|
READ WOMatQARec FROM WOMatQAFile,WOMatKey THEN
|
|
QAMetStage = XLATE('WO_MAT',WOMatKey,'QA_MET_STAGE','X')
|
|
|
|
*Send_Dyn(RecNo:' ':WOMatKey)
|
|
DEBUG
|
|
|
|
END ELSE
|
|
FixCnt += 1
|
|
|
|
WONo = WOMatKey[1,'*']
|
|
CassNo = WOMatKey[COL2()+1,'*']
|
|
|
|
obj_WO_Mat_QA('Create',WONo:@RM:CassNo)
|
|
|
|
Send_Dyn(FixCnt:' ':WONo:' ':CassNo)
|
|
END
|
|
REPEAT
|
|
|
|
|
|
|
|
|
|
|
|
GOTO Bail
|
|
|
|
|
|
|
|
|
|
|
|
/*
|
|
Equ WO_MAT_HOLD$ To 34
|
|
Equ WO_MAT_HOT_LOT$ To 35
|
|
|
|
Equ WO_MAT_REL_DTM$ To 38
|
|
Equ WO_MAT_REL_BY$ To 39
|
|
|
|
Equ WO_MAT_PROMISE_SHIP_DT$ To 61
|
|
Equ WO_MAT_NCR_KEYS$ To 62
|
|
Equ WO_MAT_RX_DTM$ To 63
|
|
Equ WO_MAT_RX_BY$ To 64
|
|
*/
|
|
|
|
|
|
|
|
|
|
|
|
GOTO Bail
|
|
|
|
|
|
|
|
|
|
IF Get_Status(errCode) THEN DEBUG
|
|
|
|
|
|
* * * * * * *
|
|
Bail:
|
|
* * * * * * *
|
|
|
|
END
|