27 lines
370 B
Plaintext
27 lines
370 B
Plaintext
COMPILE ROUTINE TEST_OBJ_ORDER_DET(Dummy)
|
|
ROWDEF(CHARSTR)
|
|
|
|
DECLARE SUBROUTINE obj_Notes, Set_Status, Send_Info, obj_Order
|
|
DECLARE FUNCTION Get_Status,obj_Order_Det
|
|
|
|
|
|
OrderNo = 49822
|
|
ItemNo = 1
|
|
|
|
|
|
|
|
|
|
OrderDetRec = ''
|
|
|
|
Stuff = obj_Order_Det('CustPNDesc',OrderNo:@RM:ItemNo:@RM:OrderDetRec)
|
|
|
|
debug
|
|
|
|
GOTO Bail
|
|
|
|
* * * * * * *
|
|
Bail:
|
|
* * * * * * *
|
|
|
|
END
|