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

fixed barcode scanning focus issues

Browse Source
This commit is contained in:
Infineon\StieberD
2024-09-10 18:14:46 -07:00
parent 31f9796cff
commit 5fdcfdafb4
4 changed files with 150 additions and 136 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
LSL2/STPROC/NDW_PACKAGING_EVENTS.txt
View File

@ -90,6 +90,7 @@ Event EDL_USER_ID_SCAN.LOSTFOCUS(Flag, FocusID)
MsgStruct = ""
MsgStruct<MTEXTWIDTH$> = MSG_WIDTH$
Msg(@Window, MsgStruct, 'PROCESS_ERROR', '', ErrorMessage)
Set_Property(CtrlEntId, 'FOCUS', True$)
end
end
end
@ -114,7 +115,8 @@ Event EDL_CASS_SCAN_1.LOSTFOCUS(Flag, FocusID)
ErrorMessage = Error_Services('GetMessage')
MsgStruct = ""
MsgStruct<MTEXTWIDTH$> = MSG_WIDTH$
Msg(@Window, MsgStruct, 'PROCESS_ERROR', '', ErrorMessage)
Msg(@Window, MsgStruct, 'PROCESS_ERROR', '', ErrorMessage)
Set_Property(@Window:'.EDL_USER_ID_SCAN', 'FOCUS', True$)
end
end
end
@ -141,7 +143,8 @@ Event EDL_CASS_SCAN_2.LOSTFOCUS(Flag, FocusID)
ErrorMessage = Error_Services('GetMessage')
MsgStruct = ""
MsgStruct<MTEXTWIDTH$> = MSG_WIDTH$
Msg(@Window, MsgStruct, 'PROCESS_ERROR', '', ErrorMessage)
Msg(@Window, MsgStruct, 'PROCESS_ERROR', '', ErrorMessage)
Set_Property(@Window:'.EDL_USER_ID_SCAN', 'FOCUS', True$)
end
end
end
@ -229,7 +232,6 @@ Event EDL_PASSWORD_SCAN.LOSTFOCUS(Flag, FocusID)
MsgStruct<MTEXTWIDTH$> = MSG_WIDTH$
Msg(@Window, MsgStruct, 'PROCESS_COMPLETE', '', SuccessMessage)
end else
* ErrorMessage = Error_Services('GetMessage')
ErrorMessage = 'An internal error occurred. Please retry the pack scan.'
MsgStruct = ""
MsgStruct<MTEXTWIDTH$> = MSG_WIDTH$
@ -254,7 +256,9 @@ end event
Event PUB_CLEAR_FORM.CLICK()
GoSub ClearForm
end event
@ -263,6 +267,7 @@ end event
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
ClearForm:
Set_Property(@Window:'.EDL_SEQUENCE1' , 'TEXT' , '')
Set_Property(@Window:'.EDL_USER_ID_SCAN' , 'TEXT' , '')
Set_Property(@Window:'.EDL_CASS_SCAN_1' , 'TEXT' , '')
@ -295,3 +300,4 @@ return