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
