added LSL2 stored procedures

This commit is contained in:
Infineon\StieberD
2024-03-25 14:46:21 -07:00
parent 09f1a66046
commit c667dd56eb
1655 changed files with 527967 additions and 0 deletions

View 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