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

Commit to switch branches again

Browse Source
This commit is contained in:
Infineon\Mitchem
2025-03-27 12:03:49 -07:00
committed by Stieber Daniel (CSC FI SPS MESLEO)
parent e8b73d30c8
commit e876d6a8ac
3 changed files with 56 additions and 18 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
LSL2/STPROC/MATERIAL_SERVICES.txt
View File

@ -705,7 +705,6 @@ Service GetAvailableMakeupWafers(WorkOrderNo, KeysOnly=BOOLEAN)
ActiveStatus = XLATE('PROD_SPEC', ProdSpecID, PROD_SPEC_STATUS$, 'X')
LabelCheck = Count(WOMatRow<WO_MAT_INV_ACTION$>, 'LBLCHK')
// JRO Added the extra condition for Active Status 5/8/2020
debug
If ActiveStatus EQ 'A' then
Begin Case
@ -1484,3 +1483,4 @@ ClearCursors:
return

62
LSL2/STPROC/NDW_MAKEUP_WAFERS_EVENTS.txt
View File

@ -85,20 +85,58 @@ Event WINDOW.CREATE(CreateParam)
MsgUp = Msg(@Window, MsgDef)
MakeupWafers = Material_Services('GetAvailableMakeupWafers', ThisWorkOrderNo, False$)
debug
// Remove cassette being backfilled from available list
MakeupWafersClean = ''
NumMUCass = DCount(MakeupWafers, @VM)
AvailMuCass = ''
NoFQAMuCass = ''
NoBatchMuCass = ''
NoLabelMuCass = ''
If NumMUCass GT 0 then
For CassIndex = 1 to NumMUCass
Row = MakeupWafers<0, CassIndex>
MuWoMatKey = Row<0, 0, 1> : '*' : Row<0, 0, 2>
If (MuWoMatKey NE ThisWOMatKey) then MakeupWafersClean<0, -1> = Row
Next CassIndex
If MakeupWafers<1> NE '' then
For each Row in MakeupWafers<1> using @VM setting RowPos
MuWoMatKey = Row<0, 0, 1> : '*' : Row<0, 0, 2>
If (MuWoMatKey NE ThisWOMatKey) then AvailMuCass<0, -1> = Row
Next Row
end
MakeupWafers = MakeupWafersClean
If MakeupWafers<2> NE '' then
For each Row in MakeupWafers<2> using @VM setting RowPos
MuWoMatKey = Row<0, 0, 1> : '*' : Row<0, 0, 2>
If (MuWoMatKey NE ThisWOMatKey) then NoFQAMuCass<0, -1> = Row
Next Row
end
If MakeupWafers<3> NE '' then
For each Row in MakeupWafers<3> using @VM setting RowPos
MuWoMatKey = Row<0, 0, 1> : '*' : Row<0, 0, 2>
If (MuWoMatKey NE ThisWOMatKey) then NoBatchMuCass<0, -1> = Row
Next Row
end
If MakeupWafers<4> NE '' then
For each Row in MakeupWafers<4> using @VM setting RowPos
MuWoMatKey = Row<0, 0, 1> : '*' : Row<0, 0, 2>
If (MuWoMatKey NE ThisWOMatKey) then NoLabelMuCass<0, -1> = Row
Next Row
end
MakeupWafers<1> = AvailMuCass
MakeupWafers<2> = NoFQAMuCass
MakeupWafers<3> = NoBatchMuCass
MakeupWafers<4> = NoLabelMuCass
* MakeupWafersClean = ''
* NumMUCass = DCount(MakeupWafers, @VM)
*
* If NumMUCass GT 0 then
* For CassIndex = 1 to NumMUCass
* Row = MakeupWafers<0, CassIndex>
* MuWoMatKey = Row<0, 0, 1> : '*' : Row<0, 0, 2>
* If (MuWoMatKey NE ThisWOMatKey) then MakeupWafersClean<0, -1> = Row
* Next CassIndex
* end
*
* MakeupWafers = MakeupWafersClean
Msg(@Window, MsgUp)
@ -203,7 +241,7 @@ Setup_OLE_Controls:
Set_Property(RptUnsignedCtrl, 'OLE.ColumnList', ColumnList)
Set_Property(RptNoBatchCtrl, 'OLE.ColumnList', ColumnList)
Set_Property(RptNoLabelCtrl, 'OLE.ColumnList', ColumnList)
debug
SignedWafers = ''
UnsignedWafers = ''
NoBatchWafers = ''