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

Extended use of Production 5S to other areas.

Browse Source
This commit is contained in:
Infineon\Ouellette
2024-12-12 20:18:07 -07:00
parent 35b7fa640e
commit 9c5c01ce24
6 changed files with 5146 additions and 3939 deletions
Download Patch File Download Diff File Expand all files Collapse all files

25
LSL2/STPROC/NDW_5S_EVENTS.txt
View File

@ -52,7 +52,18 @@ Return EventFlow or 1
//-----------------------------------------------------------------------------
Event WINDOW.CREATE(CreateParam)
SelectedArea = ''
Begin Case
Case CreateParam EQ 'CLEANROOM'
SelectedArea = 'CLEANROOM'
Case CreateParam EQ 'MAINTENANCE'
SelectedArea = 'MAINTENANCE'
Case CreateParam EQ 'SHIPPING/RECEIVING'
SelectedArea = 'SHIPPING/RECEIVING'
Case Otherwise$
SelectedArea = 'CLEANROOM'
End Case
Set_Property(@Window : '.CMB_AREA', 'TEXT', SelectedArea)
GoSub Setup_OLE_Controls
GoSub SetupForm
GoSub GetKeys
@ -68,6 +79,10 @@ Event CHK_ARCHIVED.CLICK()
end event
Event CMB_AREA.CHANGED(NewData)
GoSub GetKeys
end event
Event EDT_5S_TABLE.OnClick(Cell, Point, Button, Shift, Ctrl)
@ -202,11 +217,10 @@ end event
//-----------------------------------------------------------------------------
GetKeys:
//Step 1: Check if the archived button is set
ShowArchived = Get_Property(@Window : '.CHK_ARCHIVED', 'CHECK')
//Step 2: Get the 5S keys, passing the Show Archived variable
FiveSPMKeys = Pm_Services('Get5SPMs', ShowArchived)
SelectedArea = Get_Property(@Window : '.CMB_AREA', 'TEXT')
FiveSPMKeys = Pm_Services('Get5SPMs', ShowArchived, SelectedArea)
FormatData:
@ -375,3 +389,4 @@ Setup_OLE_Controls:
return