COMPILE ROUTINE FIX_Order(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 ORDER_DET_EQU $INSERT ORDER_EQU $INSERT ORDER_CHANGE_EQU $INSERT QUOTE_EQU $INSERT COMPANY_EQU EQU TARGET_ACTIVELIST$ TO 6 OPEN 'ORDER' TO OrderTable ELSE DEBUG GOTO Bail END OPEN 'ORDER_DET' TO OrderDetTable ELSE DEBUG GOTO Bail END OPEN 'ORDER_CHANGE' TO OrderChangeTable ELSE DEBUG GOTO Bail END RList('SELECT ORDER WITH WO_KEYS <= "128597"',TARGET_ACTIVELIST$, "", "", "") DEBUG RecCnt = 0 Done = 0 LOOP READNEXT OrderNo ELSE Done = 1 UNTIL Done READ OrderRec FROM OrderTable,OrderNo THEN RecCnt += 1 Send_Info(RecCnt) OrdDetKeys = OrderRec ChgNoKeys = OrderRec DetCnt = COUNT(OrdDetKeys,@VM) + (OrdDetKeys NE '') DelFlag = 1 FOR I = 1 TO DetCnt OrdDetKey = OrdDetKeys<1,I> OrdDetRec = XLATE('ORDER_DET',OrdDetKey,'','X') IF OrdDetRec NE '' THEN DelFlag = 0 Send_Dyn(OrdDetKey:' ShipNo: ':OrdDetRec) END ELSE IF OrdDetRec NE '' THEN DelFlag = 0 Send_Dyn(OrdDetKey:' InvNo: ':OrdDetRec) END ELSE DELETE OrderDetTable,OrdDetKey THEN *Send_Dyn(OrdDetKey:' ':OrdDetKey:' removed') END END END NEXT I ChgCnt = COUNT(ChgNoKeys,@VM) + (ChgNoKeys NE '') FOR I = 1 TO ChgCnt ChgNoKey = ChgNoKeys<1,I> DELETE OrderChangeTable,ChgNoKey THEN *Send_Dyn('Change No: ':ChgNoKey:' removed') END NEXT I IF DelFlag = 1 THEN DELETE OrderTable,OrderNo THEN Send_Info(RecCnt:' Order: ':OrderNo) END END END REPEAT * * * * * * * Bail: * * * * * * * END