73 lines
1.0 KiB
Plaintext
73 lines
1.0 KiB
Plaintext
COMPILE ROUTINE FIX_WO_MAT_LOG(Dummy)
|
|
ROWDEF(CHARSTR)
|
|
|
|
DECLARE SUBROUTINE obj_Schedule,Send_Dyn,Send_Info, obj_WO_Log, Set_Status, obj_WO_Step
|
|
DECLARE FUNCTION Get_Status, Set_Printer, obj_WO_Step
|
|
|
|
$INSERT WO_MAT_EQUATES
|
|
$INSERT WO_LOG_EQU
|
|
|
|
|
|
OPEN 'WO_MAT_LOG' TO FileIn ELSE
|
|
DEBUG
|
|
GOTO Bail
|
|
END
|
|
|
|
SELECT FileIn
|
|
|
|
Done = 0
|
|
DEBUG
|
|
|
|
LOOP
|
|
READNEXT Key ELSE Done = 1
|
|
UNTIL Done
|
|
READ Rec FROM FileIn,Key THEN
|
|
IF LEN(Rec) > 1000 THEN
|
|
DEBUG
|
|
Send_Dyn(Key)
|
|
*DELETE FileIn,Key ELSE Null
|
|
END
|
|
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
|