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

Migrate BaggerIdentification project.

Browse Source
This commit is contained in:
Infineon\Mitchem
2024-09-12 12:15:48 -07:00
committed by Mitchem Dakota (IT FI MES External)
parent dc8665d553
commit d7215cfa9a
5 changed files with 303 additions and 93 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
LSL2/STPROC/NDW_PACKAGING_EVENTS.txt
View File

@ -217,6 +217,8 @@ Event EDL_PASSWORD_SCAN.LOSTFOCUS(Flag, FocusID)
ScanData = Get_Property(CtrlEntID, 'TEXT')
If ScanData NE '' then
Username = Get_Property(@Window:'.EDL_USER_ID_SCAN', 'TEXT')
PolyText = Get_Property(@Window:'.EDL_POLY_SCAN', 'TEXT')
BaggerID = PolyText[5,1]
ScanData = Packaging_Services('ProcessScanData', ScanData, 'PASSWORD', Username)
If Error_Services('NoError') then
Set_Property(CtrlEntID, 'TEXT', ScanData)
@ -225,7 +227,7 @@ Event EDL_PASSWORD_SCAN.LOSTFOCUS(Flag, FocusID)
//replace period with asterisk for GaN cassettes
Convert '.' to '*' in CassetteID
OperatorID = Get_Property(@Window:'.EDL_USER_ID_SCAN', 'TEXT')
Packaging_Services('CompletePackaging', CassetteID, OperatorID)
Packaging_Services('CompletePackaging', CassetteID, OperatorID, BaggerID)
If Error_Services('NoError') then
SuccessMessage = 'Bagging process complete!'
MsgStruct = ""