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

20
LSL2/STPROC/PM_SERVICES.txt
View File

@ -51,6 +51,8 @@ Return Response or ""
// Service Parameter Options
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
Options BOOLEAN = True$, False$
Options PM_CLASSES = 'SCRUBBER', '5S'
Options AREAS = 'CLEANROOM', 'SHIPPING/RECEIVING', 'MAINTENANCE'
//-----------------------------------------------------------------------------
// SERVICES
@ -444,7 +446,6 @@ Service FailedPM(PMNo, UserID, StartDTM)
end service
Service ProcessQual(PSN, ToolID, CompDtm, Pass)
StatusCode = 'UID001'
@ -520,19 +521,21 @@ Service ProcessQual(PSN, ToolID, CompDtm, Pass)
end service
Service Get5SPMs(ShowArchived=BOOLEAN)
Service Get5SPMs(ShowArchived=BOOLEAN, Area=AREAS)
Option = ''
Flag = ''
keylist = ''
Query = ''
Open 'DICT.PM_SPEC' to PmsDict then
if NOT(ShowArchived) then
Query := 'FIVE_S_FLAG':@VM:True$:@FM
if Not(ShowArchived) then
Query := 'ARCHIVED':@VM:'#1':@FM
end else
Query := 'FIVE_S_FLAG':@VM:True$:@FM
end
If Area NE '' then
Query := 'AREA':@VM:Area:@FM
end
Query := 'FIVE_S_FLAG':@VM:True$:@FM
Btree.Extract(Query, 'PM_SPEC', PmsDict, keylist, '', Flag)
end
Response = keylist
@ -1078,4 +1081,9 @@ Service GetActivePMsByToolId(ToolId)
Response = ActivePMIdList
end service
Processing:
ctr += 1
return