44 lines
735 B
Plaintext
44 lines
735 B
Plaintext
COMPILE ROUTINE FIX_WMI_WFRS(Dummy)
|
|
ROWDEF(CHARSTR)
|
|
|
|
DECLARE SUBROUTINE obj_Schedule,Send_Dyn,Send_Infom, obj_Order, obj_WO_Log, RList, RList, ErrMsg
|
|
DECLARE SUBROUTIne obj_WO_Step, Set_Status, Send_Info, obj_WM_In, obj_WM_Out
|
|
DECLARE FUNCTION Get_Status, Set_Printer
|
|
|
|
$INSERT ORDER_DET_EQU
|
|
$INSERT ORDER_EQU
|
|
$INSERT QUOTE_EQU
|
|
$INSERT COMPANY_EQU
|
|
$INSERT WM_OUT_EQUATES
|
|
$INSERT WM_IN_EQUATES
|
|
$INSERT RDS_EQU
|
|
|
|
debug
|
|
|
|
OPEN 'WMI_WFRS' TO LockFile ELSE
|
|
DEBUG
|
|
GOTO Bail
|
|
END
|
|
|
|
SELECT LockFile
|
|
|
|
Done = 0
|
|
|
|
LOOP
|
|
READNEXT LockKey ELSE Done = 1
|
|
UNTIL Done
|
|
IF LockKey[1,'*'] = '141335' THEN
|
|
*DELETE LockFile,LockKey THEN
|
|
Send_Dyn(LockKey)
|
|
*END
|
|
END
|
|
|
|
REPEAT
|
|
|
|
|
|
* * * * * *
|
|
Bail:
|
|
* * * * * *
|
|
|
|
END
|