45 lines
779 B
Plaintext
45 lines
779 B
Plaintext
COMPILE ROUTINE TEST_OBJ_WM_OUT(Dummy)
|
|
ROWDEF(CHARSTR)
|
|
|
|
DECLARE SUBROUTINE obj_Notes, Set_Status, Send_Info, Send_Dyn, Btree.Extract, ErrMsg, obj_WM_In, obj_WM_Out, obj_WO_Mat, obj_Tables
|
|
|
|
DECLARE FUNCTION Get_Status, obj_WM_Out, Send_Dyn, obj_Tables
|
|
|
|
$INSERT WO_LOG_EQUATES
|
|
|
|
|
|
DEBUG
|
|
|
|
WONo = '155215'
|
|
WOStep = 1
|
|
NewCassNos = 1:@VM:2:@VM:3:@VM:4:@VM:5
|
|
OutQty = 5
|
|
|
|
/*
|
|
otParms = 'WO_LOG':@RM:WONo
|
|
WOLogRec = obj_Tables('ReadRec',otParms)
|
|
|
|
DEBUG
|
|
|
|
CassCnt = COUNT(NewCassNos,@VM) + (NewCassNos NE '')
|
|
|
|
FOR I = 1 TO CassCnt
|
|
NewCassNo = NewCassNos<1,I>
|
|
WOLogRec<WO_LOG_WO_MAT_KEY$,-1> = WONo:'*':NewCassNo
|
|
NEXT I
|
|
|
|
|
|
|
|
*/
|
|
|
|
obj_WM_Out('Create',WONo:@RM:WOStep:@RM:NewCassNos:@RM:OutQty)
|
|
|
|
debug
|
|
GOTO Bail
|
|
|
|
* * * * * * *
|
|
Bail:
|
|
* * * * * * *
|
|
|
|
END
|