24 lines
379 B
Plaintext
24 lines
379 B
Plaintext
COMPILE ROUTINE TEST_CARTON_PACK(Dummy)
|
|
ROWDEF(CHARSTR)
|
|
|
|
DECLARE SUBROUTINE obj_Notes, Set_Status, comm_Dialog_Carton_Pack, ErrMsg
|
|
DECLARE FUNCTION Get_Status, Utility, Dialog_Box
|
|
|
|
$INSERT COC_EQU
|
|
|
|
EQU CRLF$ TO \0D0A\
|
|
|
|
debug
|
|
ShipNo = 73110
|
|
|
|
AllCartonData = Dialog_Box('DIALOG_CARTON_PACK',@WINDOW,ShipNo)
|
|
|
|
|
|
DEBUG
|
|
|
|
* * * * * * *
|
|
Bail:
|
|
* * * * * * *
|
|
|
|
RETURN
|