COMPILE ROUTINE TEST_MAT_SCAN(Dummy)
ROWDEF(CHARSTR)

DECLARE SUBROUTINE obj_Schedule, RList,Send_Dyn, Print_Carton_Labels, Btree.Extract, msg, Set_List_Box_Data
DECLARE SUBROUTINE ErrMsg, Print_Small_Loc_Label, Print_Loc_Label, obj_RDS2
DECLARE FUNCTION Get_Status,Security_Check, Ping, FTPList, Utility, INet_OI_XML, obj_WM_Out,Dialog_Box

debug

WONo = 139617

NewRows = Dialog_Box("DIALOG_MAT_SCAN", @WINDOW, 'Ship':@VM:'Scan Cassettes for WO ':WONo)


* * * * * * *
Bail:
* * * * * * *

RETURN