23 lines
398 B
Plaintext
23 lines
398 B
Plaintext
COMPILE ROUTINE TEST_OBJ_ORDER(Dummy)
|
|
ROWDEF(CHARSTR)
|
|
|
|
DECLARE SUBROUTINE obj_Notes, Set_Status, Send_Info, obj_Order
|
|
DECLARE FUNCTION Get_Status,obj_Order
|
|
|
|
Result = obj_Order('Ord_WOLog',20690)
|
|
WO1 = Result[1,@RM]
|
|
WO2 = Result[COL2()+1,@RM]
|
|
WO3 = Result[COL2()+1,@RM]
|
|
WO4 = Result[COL2()+1,@RM]
|
|
WO5 = Result[COL2()+1,@RM]
|
|
|
|
|
|
GOTO Bail
|
|
|
|
* * * * * * *
|
|
Bail:
|
|
* * * * * * *
|
|
|
|
END
|
|
|