diff --git a/LSL2/STPROC/COMM_WM_OUT.txt b/LSL2/STPROC/COMM_WM_OUT.txt index a620121..0810d48 100644 --- a/LSL2/STPROC/COMM_WM_OUT.txt +++ b/LSL2/STPROC/COMM_WM_OUT.txt @@ -231,15 +231,9 @@ RETURN * * * * * * * Read: * * * * * * * - + WMOKey = Get_Property(@WINDOW,'ID') - IF RowExists('WM_OUT',WMOKey) THEN - *IF NOT(Security_Check('Work Order',READ$)) THEN - * Send_Event(@WINDOW,'CLEAR') - * Security_Err_Msg('Work Order',READ$) - * RETURN - *END - END ELSE + IF Not(RowExists('WM_OUT',WMOKey)) THEN ErrMsg('WM_OUT entries may only be created from the Work Order Release process.') Send_Event(@WINDOW,'CLEAR') RETURN @@ -382,11 +376,11 @@ return * * * * * * * WONoLF: * * * * * * * - + WONo = Get_Property(@WINDOW:'.WO_NO','DEFPROP') - + Convert @Lower_Case to @Upper_Case in WONo + Convert 'O' to '' in WONo IF INDEX(WONo,'.',1) > 0 THEN - CONVERT '.' TO '*' IN WONo Set_Property(@WINDOW:'.WO_NO','DEFPROP','') obj_AppWindow('LoadFormKeys',@WINDOW:@RM:WONo)