48 lines
833 B
Plaintext
48 lines
833 B
Plaintext
COMPILE ROUTINE TEST_OBJ_WO_MAT_QA(Dummy)
|
|
ROWDEF(CHARSTR)
|
|
|
|
DECLARE SUBROUTINE obj_Notes, Set_Status, Send_Info, Send_Dyn, Btree.Extract, ErrMsg, obj_WO_Mat, obj_Tables, obj_WO_Mat_QA
|
|
DECLARE FUNCTION Get_Status,obj_WO_Log, Send_Dyn, obj_WO_Mat, obj_Tables, obj_WO_Mat_QA
|
|
|
|
$INSERT PROD_SPEC_EQU
|
|
$INSERT WO_LOG_EQUATES
|
|
$INSERT WO_MAT_QA_EQUATES
|
|
$INSERT SEMI_VEND_CODE_EQUATES
|
|
$INSERT PROD_VER_EQUATES
|
|
|
|
|
|
DEBUG
|
|
|
|
WONo = 160164
|
|
|
|
WOMatKeys = XLATE('WO_LOG',WONo,WO_LOG_WO_MAT_KEY$,'X')
|
|
|
|
womCnt = COUNT(WOMatKeys,@VM) + (WOMatKeys NE '')
|
|
|
|
FOR I = 1 TO womCnt
|
|
|
|
WOMatKey = WOMatKeys<1,I>
|
|
CassNo = WOMatKey[-1,'B*']
|
|
|
|
|
|
ShipDocData = obj_WO_Mat_QA('GetShipDoc',WONo:@RM:CassNo)
|
|
|
|
debug
|
|
|
|
IF Get_Status(errCode) THEN
|
|
DEBUG
|
|
END
|
|
|
|
|
|
NEXT I
|
|
|
|
GOTO Bail
|
|
|
|
|
|
|
|
* * * * * * *
|
|
Bail:
|
|
* * * * * * *
|
|
|
|
END
|