38 lines
653 B
Plaintext
38 lines
653 B
Plaintext
COMPILE ROUTINE TEST_OBJ_Schedule(Dummy)
|
|
ROWDEF(CHARSTR)
|
|
|
|
DECLARE SUBROUTINE Set_Status, Send_Info
|
|
DECLARE FUNCTION Get_Status,obj_Schedule
|
|
/*
|
|
OrderNo = Parms[1,@RM]
|
|
WONo = Parms[COL2()+1,@RM]
|
|
LotNo = Parms[COL2()+1,@RM]
|
|
LotQty = Parms[COL2()+1,@RM]
|
|
CassCnt = Parms[COL2()+1,@RM]
|
|
CassQty = Parms[COL2()+1,@RM]
|
|
*/
|
|
|
|
|
|
OrderNo = '1'
|
|
WONo = '1'
|
|
LotNo = 'ABC12345'
|
|
LotQty = '100'
|
|
CassCnt = '4'
|
|
CassQty = '25'
|
|
|
|
Parms = OrderNo:@RM:WONo:@RM:LotNo:@RM:LotQty:@RM:CassCnt:@RM:CassQty
|
|
|
|
debug
|
|
|
|
NewSchedNo = obj_Schedule('Create',Parms)
|
|
|
|
IF Get_Status(errCode) THEN DEBUg
|
|
|
|
GOTO Bail
|
|
|
|
* * * * * * *
|
|
Bail:
|
|
* * * * * * *
|
|
|
|
END
|