added LSL2 stored procedures
This commit is contained in:
37
LSL2/STPROC/FIX_ORDER_RECON.txt
Normal file
37
LSL2/STPROC/FIX_ORDER_RECON.txt
Normal file
@ -0,0 +1,37 @@
|
||||
COMPILE ROUTINE FIX_Order_Recon(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_Vision
|
||||
DECLARE FUNCTION Get_Status, Set_Printer
|
||||
|
||||
$INSERT ORDER_DET_EQU
|
||||
$INSERT ORDER_EQU
|
||||
$INSERT QUOTE_EQU
|
||||
|
||||
OPEN 'ORDER_RECON' TO FileIn ELSE
|
||||
debug
|
||||
GOTO Bail
|
||||
END
|
||||
|
||||
|
||||
SELECT FileIn
|
||||
|
||||
Done = 0
|
||||
LOOP
|
||||
READNEXT RecKey ELSE Done = 1
|
||||
UNTIL Done
|
||||
READ Rec FROM FileIn,RecKey THEN
|
||||
DEBUG
|
||||
END
|
||||
REPEAT
|
||||
|
||||
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Bail:
|
||||
* * * * * * *
|
||||
|
||||
END
|
||||
|
Reference in New Issue
Block a user