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

Fixed obj_Prod_Spec('GetQAMet'). Added RDS_Test_Services('UpdateRDSTestSpecs').

Browse Source
This commit is contained in:
Infineon\StieberD
2025-09-26 11:30:17 -07:00
parent febe660fcf
commit edd09af821
5 changed files with 271 additions and 95 deletions
Download Patch File Download Diff File Expand all files Collapse all files

70
LSL2/STPROC/NDW_RDS_QUERY_EVENTS.txt
View File

@ -44,7 +44,7 @@ $insert SUPPLEMENTS_EQUATES
equ WOCust$ to 2
Declare subroutine SRP_Show_Window, Rds_Services, ErrMsg, Start_Window, Placedialog, Supplement_Services, Hold_Services
Declare subroutine Labeling_Services
Declare subroutine Labeling_Services
Declare function Database_Services, Material_Services, Rds_Services, RGB, SRP_Array, MemberOf, Supplement_Services
Declare function Hold_Services, Datetime, Printer_Select
@ -186,44 +186,37 @@ Event PUB_ENG_OPTIONS.CLICK()
NumRows = DCount(WOMatKeys, @VM)
Begin Case
Case SelOpt EQ 'CLEAN_INSP'
Caption = "Updating Clean & Insp specs for selected RDS cassettes..."
ServiceModules = 'CLEAN_INSP_SERVICES'
Services = 'UpdateAllCleanInsp'
ServiceModules = ''
Services = ''
Caption = ''
For each Sel in SelOpt using @VM
If Sel EQ 'CLEAN_INSP' then
Caption<0, -1> = "Updating Clean & Insp specs for selected RDS cassettes..."
ServiceModules<0, -1> = 'CLEAN_INSP_SERVICES'
Services<0, -1> = 'UpdateAllCleanInsp'
end
Case SelOpt EQ 'QA_MET'
Caption = "Updating QA Metrology specs for selected RDS cassettes..."
ServiceModules = 'WO_MAT_QA_SERVICES'
Services = 'UpdateQAMet'
If SelOpt EQ 'QA_MET' then
Caption<0, -1> = "Updating QA Metrology specs for selected RDS cassettes..."
ServiceModules<0, -1> = 'WO_MAT_QA_SERVICES'
Services<0, -1> = 'UpdateQAMet'
end
Case SelOpt EQ 'UPDATE_RDS_LAYER'
Caption = "Updating RDS Layer specs for selected RDS cassettes..."
ServiceModules = 'RDS_LAYER_SERVICES'
Services = 'UpdateRDSLayerSpecs'
If SelOpt EQ 'UPDATE_RDS_LAYER' then
Caption<0, -1> = "Updating RDS Layer specs for selected RDS cassettes..."
ServiceModules<0, -1> = 'RDS_LAYER_SERVICES'
Services<0, -1> = 'UpdateRDSLayerSpecs'
end
Case SelOpt EQ 'CLEAN_INSP':@VM:'QA_MET'
Caption = "Updating Clean & Insp and QA Metrology specs for selected RDS cassettes..."
ServiceModules = 'CLEAN_INSP_SERVICES':@VM:'WO_MAT_QA_SERVICES'
Services = 'UpdateAllCleanInsp':@VM:'UpdateQAMet'
Case SelOpt EQ 'QA_MET':@VM:'UPDATE_RDS_LAYER'
Caption = "Updating RDS Layer and QA Metrology specs for selected RDS cassettes..."
ServiceModules = 'WO_MAT_QA_SERVICES':@VM:'RDS_LAYER_SERVICES'
Services = 'UpdateQAMet':@VM:'UpdateRDSLayerSpecs'
Case SelOpt EQ 'CLEAN_INSP':@VM: 'UPDATE_RDS_LAYER'
Caption = "Updating RDS Layer and Clean & Insp specs for selected RDS cassettes..."
ServiceModules = 'CLEAN_INSP_SERVICES':@VM:'RDS_LAYER_SERVICES'
Services = 'UpdateAllCleanInsp':@VM:'UpdateRDSLayerSpecs'
Case SelOpt EQ 'CLEAN_INSP':@VM:'QA_MET':@VM: 'UPDATE_RDS_LAYER'
Caption = "Updating Clean & Insp, QA Metrology, and RDS Layer specs for selected RDS cassettes..."
ServiceModules = 'CLEAN_INSP_SERVICES':@VM:'WO_MAT_QA_SERVICES' :@VM: 'RDS_LAYER_SERVICES'
Services = 'UpdateAllCleanInsp':@VM:'UpdateQAMet' :@VM: 'UpdateRDSLayerSpecs'
End Case
If SelOpt EQ 'UPDATE_RDS_TEST' then
Caption<0, -1> = "Updating RDS Test specs for selected RDS cassettes..."
ServiceModules<0, -1> = 'RDS_TEST_SERVICES'
Services<0, -1> = 'UpdateRDSTestSpecs'
end
Next Sel
Swap @VM with CRLF$ in Caption
If ServiceModules NE '' then
ErrorMsg = ''
@ -239,7 +232,7 @@ Event PUB_ENG_OPTIONS.CLICK()
Running = Msg(@Window, MsgUp, vPos, MSGINSTUPDATE$) ;* Update gas guage
For each ServiceModule in ServiceModules using @VM setting sPos
Service = Services<0, sPos>
If Service = 'UpdateRDSLayerSpecs' then
If ( (Service _EQC 'UpdateRDSLayerSpecs') or (Service _EQC 'UpdateRDSTestSpecs') ) then
RDSKey = SelRDSList<4, vPos>
Ans = Function(@ServiceModule(Service, RDSKey))
end else
@ -254,9 +247,6 @@ Event PUB_ENG_OPTIONS.CLICK()
Next WOMatKey
Msg(@Window,MsgUp) ;* Take gas guage down
If (ErrorMsg NE '') then
Msg(@Window, '', 'OK', '', 'Operation Aborted':@FM:ErrorMsg)
end
end
Def = ''