65 lines
1.3 KiB
Plaintext
65 lines
1.3 KiB
Plaintext
COMPILE ROUTINE FIX_CUST_EPI_PART(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
|
|
DECLARE FUNCTION Get_Status, Set_Printer
|
|
|
|
$INSERT CUST_EPI_PART_EQUATES
|
|
$INSERT COMPANY_EQU
|
|
$INSERT PROD_SPEC_EQU
|
|
$INSERT EPI_PART_EQUATES
|
|
|
|
OPEN 'CUST_EPI_PART' TO CEPTable ELSE
|
|
DEBUG
|
|
GOTO Bail
|
|
END
|
|
|
|
|
|
|
|
SELECT CEPTable
|
|
|
|
|
|
DEBUG
|
|
|
|
RecCnt = 0
|
|
Done = 0
|
|
LOOP
|
|
READNEXT CEPKey ELSE Done = 1
|
|
UNTIL Done
|
|
|
|
CustNo = CEPKey[1,'*']
|
|
EpiPn = CEPKey[COL2()+1,'*']
|
|
|
|
DefBagInst = 'Tape/PE Bag/TriLam Alum'
|
|
|
|
READ CEPRec FROM CEPTAble,CEPKey Then ;* Find all the CUST_NO keys for the CUST_NO entered
|
|
|
|
IF CEPRec<CUST_EPI_PART_SHIP_BAG_REQ$> NE DefBagInst THEN
|
|
|
|
CEPRec<CUST_EPI_PART_SHIP_BAG_REQ$> = DefBagInst
|
|
|
|
*WRITE CEPRec ON CEPTable,CEPKey THEN ;* Remove the remark when ready to actually write to the CUSTNO record.
|
|
Send_Dyn(CEPKey)
|
|
*END ;* Remove the remark when ready to actually write to the CUSTNO record.
|
|
|
|
|
|
|
|
END ;* End of record read
|
|
|
|
END ;* End of check for customer no
|
|
|
|
REPEAT
|
|
|
|
GOTO Bail
|
|
|
|
|
|
|
|
* * * * * * *
|
|
Bail:
|
|
* * * * * * *
|
|
|
|
|
|
|
|
END
|