phares3757/open-insight
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

updated the WM_OUT form to accept barcode scans for the key id

Browse Source
This commit is contained in:
Infineon\StieberD
2025-09-03 16:52:26 -07:00
parent 464a1adebd
commit 993c812252
1 changed files with 5 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
LSL2/STPROC/COMM_WM_OUT.txt
View File

@ -231,15 +231,9 @@ RETURN
* * * * * * * * * * * * * *
Read: Read:
* * * * * * * * * * * * * *
WMOKey = Get_Property(@WINDOW,'ID') WMOKey = Get_Property(@WINDOW,'ID')
IF RowExists('WM_OUT',WMOKey) THEN IF Not(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
ErrMsg('WM_OUT entries may only be created from the Work Order Release process.') ErrMsg('WM_OUT entries may only be created from the Work Order Release process.')
Send_Event(@WINDOW,'CLEAR') Send_Event(@WINDOW,'CLEAR')
RETURN RETURN
@ -382,11 +376,11 @@ return
* * * * * * * * * * * * * *
WONoLF: WONoLF:
* * * * * * * * * * * * * *
WONo = Get_Property(@WINDOW:'.WO_NO','DEFPROP') 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 IF INDEX(WONo,'.',1) > 0 THEN
CONVERT '.' TO '*' IN WONo CONVERT '.' TO '*' IN WONo
Set_Property(@WINDOW:'.WO_NO','DEFPROP','') Set_Property(@WINDOW:'.WO_NO','DEFPROP','')
obj_AppWindow('LoadFormKeys',@WINDOW:@RM:WONo) obj_AppWindow('LoadFormKeys',@WINDOW:@RM:WONo)