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

fixed bug in GetAvailableMakeupWafers which was using the CustPartNo instead of the EpiPartNo to find available makeup wafers

Browse Source
This commit is contained in:
Infineon\StieberD
2025-07-10 09:16:00 -07:00
parent af6cd757de
commit d4ce96337b
2 changed files with 111 additions and 123 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
LSL2/STPROC/MATERIAL_SERVICES.txt
View File

@ -619,18 +619,13 @@ end service
Service GetAvailableMakeupWafers(WorkOrderNo, KeysOnly=BOOLEAN) Service GetAvailableMakeupWafers(WorkOrderNo, KeysOnly=BOOLEAN)
AvailableMakeupWafers = '' AvailableMakeupWafers = ''
If WorkOrderNo NE '' then If WorkOrderNo NE '' then
WorkOrderNo = WorkOrderNo[1, '*'] ; // This might be formatted as a WO_MAT Key ID, so strip off the Cassette No. WorkOrderNo = WorkOrderNo[1, '*'] ; // This might be formatted as a WO_MAT Key ID, so strip off the Cassette No.
WOLogRow = Database_Services('ReadDataRow', 'WO_LOG', WorkOrderNo) WOLogRow = Database_Services('ReadDataRow', 'WO_LOG', WorkOrderNo)
If Error_Services('NoError') then If Error_Services('NoError') then
WOStepKeys = WOLogRow<WO_LOG_WO_STEP_KEY$> WOStepKeys = WOLogRow<WO_LOG_WO_STEP_KEY$>
WOMatKeys = WOLogRow<WO_LOG_WO_MAT_KEY$>
FirstWOMatKey = WOMatKeys<0, 1>
WOMatRow = Database_Services('ReadDataRow', 'WO_MAT', FirstWOMatKey)
If Error_Services('NoError') then
PartNo = WOMatRow<WO_MAT_CUST_PART_NO$>
LastWOStepKey = WOStepKeys[-1, 'B' : @VM] LastWOStepKey = WOStepKeys[-1, 'B' : @VM]
PartNo = WOLogRow<WO_LOG_EPI_PART_NO$>
WOStepRow = Database_Services('ReadDataRow', 'WO_STEP', LastWOStepKey) WOStepRow = Database_Services('ReadDataRow', 'WO_STEP', LastWOStepKey)
If Error_Services('NoError') then If Error_Services('NoError') then
WOStepPSN = WOStepRow<WO_STEP_PROD_SPEC_ID$> WOStepPSN = WOStepRow<WO_STEP_PROD_SPEC_ID$>
@ -751,7 +746,6 @@ Service GetAvailableMakeupWafers(WorkOrderNo, KeysOnly=BOOLEAN)
end end
end end
end end
end
end else end else
Error_Services('Add', 'WorkOrderNo argument was missing from the ' : Service : ' service.') Error_Services('Add', 'WorkOrderNo argument was missing from the ' : Service : ' service.')
end end
@ -1482,5 +1476,3 @@ ClearCursors:
return return

14
LSL2/STPROC/NDW_MAKEUP_WAFERS_EVENTS.txt
View File

@ -29,7 +29,6 @@ Function NDW_Makeup_Wafers_Events(CtrlEntId, Event, @PARAMS)
04/13/18 dmb Created initial commuter module. 04/13/18 dmb Created initial commuter module.
***********************************************************************************************************************/ ***********************************************************************************************************************/
#pragma precomp SRP_PreCompiler #pragma precomp SRP_PreCompiler
#Window NDW_MAKEUP_WAFERS #Window NDW_MAKEUP_WAFERS
@ -50,11 +49,11 @@ If Event EQ 'OLE' then
Transfer Param1 to Event Transfer Param1 to Event
Transfer Param2 to Param1 Transfer Param2 to Param1
Transfer Param3 to Param2 Transfer Param3 to Param2
* Transfer Param4 to Param3 Transfer Param4 to Param3
* Transfer Param5 to Param4 Transfer Param5 to Param4
* Transfer Param6 to Param5 Transfer Param6 to Param5
* Transfer Param7 to Param6 Transfer Param7 to Param6
* Transfer Param8 to Param7 Transfer Param8 to Param7
end end
GoToEvent Event for CtrlEntID GoToEvent Event for CtrlEntID
@ -445,6 +444,3 @@ Setup_OLE_Controls:
return return