72 lines
1.1 KiB
Plaintext
72 lines
1.1 KiB
Plaintext
COMPILE ROUTINE LOAD_PART(Dummy)
|
|
ROWDEF(CHARSTR)
|
|
|
|
DECLARE SUBROUTINE Send_Dyn,Send_Info, Send_Dyn, Set_Status, RList, ErrMsg, obj_Part
|
|
DECLARE FUNCTION Get_Status, Set_Printer
|
|
|
|
$INSERT RDS_EQU
|
|
$INSERT QUOTE_DET_EQU
|
|
$INSERT ORDER_DET_EQU
|
|
$INSERT QUOTE_EQU
|
|
$INSERT PROD_SPEC_EQU
|
|
$INSERT PART_EQUATES
|
|
|
|
$INSERT PART_WORK_EQUATES
|
|
|
|
EQU TARGET_ACTIVELIST$ to 5
|
|
|
|
OPEN 'ORDER_DET' TO OrdDetTable ELSE
|
|
ErrMsg('Unable to open PART')
|
|
GOTO Bail
|
|
END
|
|
|
|
OPEN 'PART' TO PartTable ELSE
|
|
ErrMsg('Unable to open PART')
|
|
GOTO Bail
|
|
END
|
|
|
|
|
|
OPEN 'PART_WORK' TO PartWorkTable ELSE
|
|
ErrMsg('Unable to open PART_WORK')
|
|
GOTO Bail
|
|
END
|
|
|
|
|
|
SelectSent = 'SELECT ORDER_DET'
|
|
|
|
RList(SelectSent,TARGET_ACTIVELIST$, "", "", "")
|
|
|
|
IF Get_Status(errCode) THEN
|
|
ErrMsg(errCode)
|
|
GOTO Bail
|
|
END
|
|
|
|
DEBUG
|
|
|
|
RecCnt = 0
|
|
Done = 0
|
|
|
|
LOOP
|
|
READNEXT OrdDetKey ELSE Done = 1
|
|
UNTIL Done
|
|
READ OrdDetRec FROM OrdDetTable,OrdDetKey THEN
|
|
|
|
Set_Status(0)
|
|
obj_Part('Convert',OrdDetKey:@RM:OrdDetRec)
|
|
IF Get_Status(errCode) THEN DEBUG
|
|
RecCnt += 1
|
|
Send_Info(RecCnt)
|
|
END ;* End of OrderDetRec Read
|
|
REPEAT
|
|
|
|
|
|
|
|
|
|
|
|
|
|
* * * * * * *
|
|
Bail:
|
|
* * * * * * *
|
|
|
|
END
|