81 lines
1.1 KiB
Plaintext
81 lines
1.1 KiB
Plaintext
COMPILE ROUTINE FIX_PRS_PROP(Dummy)
|
|
ROWDEF(CHARSTR)
|
|
|
|
DECLARE SUBROUTINE obj_Schedule,Send_Dyn,Send_Info, RList, ErrMsg, obj_Prod_Spec, Btree.Extract, obj_PRS_Stage
|
|
DECLARE FUNCTION Get_Status, Set_Printer, obj_Prod_Spec, NextKEy
|
|
|
|
$INSERT PROD_SPEC_EQUATES
|
|
$INSERT QUOTE_SPEC_EQU
|
|
$INSERT PART_EQUATES
|
|
$INSERT RLIST_EQUATES
|
|
|
|
$INSERT CUST_EPI_PART_EQUATES
|
|
$INSERT PRS_PROP_EQUATES
|
|
$INSERT CLEAN_INSP_EQUATES
|
|
|
|
EQU TAB$ TO \09\:'/'
|
|
|
|
EQU CRLF$ TO \0D0A\
|
|
|
|
EQU PDISPLAY$ TO 8
|
|
|
|
OPEN 'PROD_SPEC' TO PSNTable ELSE
|
|
DEBUG
|
|
GOTO Bail
|
|
END
|
|
|
|
|
|
OPEN 'PRS_STAGE' TO StageTable ELSE
|
|
DEBUG
|
|
GOTO Bail
|
|
END
|
|
|
|
OPEN 'PRS_PROP' TO PropTable ELSE
|
|
DEBUG
|
|
GOTO Bail
|
|
END
|
|
|
|
|
|
SelectSent = 'SELECT PRS_PROP '
|
|
|
|
RList(SelectSent,TARGET_ACTIVELIST$,'','','')
|
|
|
|
DEBUG
|
|
|
|
|
|
Done = 0
|
|
RecCnt = 0
|
|
FixCnt = 0
|
|
|
|
LOOP
|
|
READNEXT PropKey ELSE Done = 1
|
|
UNTIL Done
|
|
|
|
|
|
|
|
READ PropRec FROM PropTable,PropKey THEN
|
|
|
|
PropRec<PRS_PROP_MET_SLOT$> = 1
|
|
|
|
WRITE PropRec ON PropTable,PropKey THEN
|
|
Send_Info(RecCnt:' ':PropKey)
|
|
END
|
|
|
|
RecCnt += 1
|
|
END
|
|
|
|
|
|
|
|
REPEAT
|
|
|
|
GOTO Bail
|
|
|
|
|
|
* * * * * * *
|
|
Bail:
|
|
* * * * * * *
|
|
|
|
END
|
|
|
|
|