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

1201
LSL2/OIWIN/NDW_5S.json
View File

File diff suppressed because it is too large Load Diff

3452
LSL2/OIWIN/NDW_MAIN.json
View File

File diff suppressed because it is too large Load Diff

4317
LSL2/OIWIN/PM_SPEC.json
View File

File diff suppressed because it is too large Load Diff

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

70
LSL2/STPROCINS/PM_SPEC_EQUATES.txt
View File

@ -1,41 +1,41 @@
compile insert PM_SPEC_EQUATES
/*----------------------------------------
Author : Table Create Insert Routine
Written : 31/10/2016
Author : Table Create Insert Routine
Written : 12/12/2024
Description : Insert for Table PM_SPEC
----------------------------------------*/
#ifndef __PM_SPEC_EQUATES__
#define __PM_SPEC_EQUATES__
Equ PM_SPEC_PMS_ID$ To 0
Equ PM_SPEC_TOOL_ID$ To 1
Equ PM_SPEC_DESC$ To 2
Equ PM_SPEC_CHANGE_STAT$ To 3
Equ PM_SPEC_UNITS$ To 4
Equ PM_SPEC_INT_TIME_CD$ To 5
Equ PM_SPEC_INTERVAL$ To 6
Equ PM_SPEC_INT_DT$ To 6
Equ PM_SPEC_INT_QTY$ To 6
Equ PM_SPEC_INT_TM$ To 6
Equ PM_SPEC_EARLY_START_DELTA$ To 7
Equ PM_SPEC_EARLY_START_DT$ To 7
Equ PM_SPEC_EARLY_START_QTY$ To 7
Equ PM_SPEC_EARLY_START_TM$ To 7
Equ PM_SPEC_LATE_START_DELTA$ To 8
Equ PM_SPEC_LATE_START_DT$ To 8
Equ PM_SPEC_LATE_START_QTY$ To 8
Equ PM_SPEC_LATE_START_TM$ To 8
Equ PM_SPEC_NOTES$ To 17
Equ PM_SPEC_PM_KEYS$ To 18
Equ PM_SPEC_PM_START_TIME$ To 19
Equ PM_SPEC_PM_ARCHIVED$ To 20
Equ PM_SPEC_FIVE_S_FLAG$ To 21
Equ PM_SPEC_SEND_EARLY_NOTIFICATION$ To 22
Equ PM_SPEC_SEND_DUE_NOTIFICATION$ To 23
Equ PM_SPEC_SEND_LATE_NOTIFICATION$ To 24
Equ PM_SPEC_LAST_PM_COMP_DTM$ To 25
Equ PM_SPEC_PM_CLASS$ To 26
Equ PM_SPEC_AD_NOTIFICATION_GROUPS$ To 27
Equ PM_SPEC_AREA$ To 28
Equ PM_SPEC_PMS_ID$ To 0
Equ PM_SPEC_TOOL_ID$ To 1
Equ PM_SPEC_DESC$ To 2
Equ PM_SPEC_CHANGE_STAT$ To 3
Equ PM_SPEC_UNITS$ To 4
Equ PM_SPEC_INT_TIME_CD$ To 5
Equ PM_SPEC_INTERVAL$ To 6
Equ PM_SPEC_INT_DT$ To 6
Equ PM_SPEC_INT_QTY$ To 6
Equ PM_SPEC_INT_TM$ To 6
Equ PM_SPEC_EARLY_START_DELTA$ To 7
Equ PM_SPEC_EARLY_START_DT$ To 7
Equ PM_SPEC_EARLY_START_QTY$ To 7
Equ PM_SPEC_EARLY_START_TM$ To 7
Equ PM_SPEC_LATE_START_DELTA$ To 8
Equ PM_SPEC_LATE_START_DT$ To 8
Equ PM_SPEC_LATE_START_QTY$ To 8
Equ PM_SPEC_LATE_START_TM$ To 8
Equ PM_SPEC_NOTES$ To 17
Equ PM_SPEC_PM_KEYS$ To 18
Equ PM_SPEC_PM_START_TIME$ To 19
Equ PM_SPEC_PM_ARCHIVED$ To 20
Equ PM_SPEC_FIVE_S_FLAG$ To 21
Equ PM_SPEC_SEND_EARLY_NOTIFICATION$ To 22
Equ PM_SPEC_SEND_DUE_NOTIFICATION$ To 23
Equ PM_SPEC_SEND_LATE_NOTIFICATION$ To 24
Equ PM_SPEC_LAST_PM_COMP_DTM$ To 25
Equ PM_SPEC_PM_CLASS$ To 26
Equ PM_SPEC_AD_NOTIFICATION_GROUPS$ To 27
#endif