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

pre cutover push

Browse Source
This commit is contained in:
Infineon\StieberD
2024-09-04 20:33:41 -07:00
parent 6ea6969f4b
commit 7762b129af
2072 changed files with 130000 additions and 95295 deletions
Download Patch File Download Diff File Expand all files Collapse all files

84
LSL2/STPROC/NDW_QA_MET_RESULT_EVENTS.txt
View File

@ -41,7 +41,7 @@ DECLARE SUBROUTINE Start_Window, End_Window, Database_Services
Declare subroutine SRP_EditTable_Manager, SRP_Show_Window, Rds_Services, Form_Services
DECLARE FUNCTION Get_Property, Get_Status, Dialog_Box, obj_WM_Out, set_WinMsgVal, Form_Services, Memberof
DECLARE FUNCTION Msg, obj_WO_Mat, Send_Message, obj_Tables, Start_Window, End_Window, QA_Services
DECLARE FUNCTION Msg, obj_WO_Mat, Send_Message, obj_Tables, Start_Window, End_Window, QA_Services, Signature_Services
DECLARE FUNCTION SRP_EditTable_Manager, Database_Services, Material_Services, Rds_Services, RGB
$insert LOGICAL
@ -98,26 +98,35 @@ Event WINDOW.CREATE(CreateParam)
* Read Parameters *
*******************
CanEdit = Memberof(@USER4, 'ENGINEERING') or Memberof(@USER4, 'LEAD') or Memberof(@USER4, 'SUPERVISOR')
CassID = CreateParam[1,@FM]
Stage = CassID[-1, 'B*']
WONo = FIELD(CassID,'*',1)
WOStepNo = FIELD(CassID,'*',2)
CassNo = FIELD(CassID,'*',3)
RDSNo = FIELD(CassID,'*',4)
RunStep = FIELD(CassID,'*',5)
CanEdit = (Memberof(@USER4, 'ENGINEERING') or Memberof(@USER4, 'LEAD') or Memberof(@USER4, 'SUPERVISOR'))
If CanEdit then
Set_Property(@Window, '@CANEDIT', True$)
If Stage EQ 'UNLOAD' then
//Check if UNLOAD stage is signed
UnloadSigned = Signature_Services('GetStageSummary', WoMatKey, 'UNLOAD')<2>
If UnloadSigned then
Set_Property(@Window, '@CANEDIT', True$)
end else
Set_Property(@Window, '@CANEDIT', False$)
end
end
end else
Set_Property(@Window, '@CANEDIT', False$)
end
CassID = CreateParam[1,@FM]
Stage = CassID[-1, 'B*']
WONo = FIELD(CassID,'*',1)
WOStepNo = FIELD(CassID,'*',2)
CassNo = FIELD(CassID,'*',3)
RDSNo = FIELD(CassID,'*',4)
RunStep = FIELD(CassID,'*',5)
Set_Property(@Window : '.WO_NO', 'TEXT', WoNo)
Set_Property(@Window : '.PROC_STEP_NO', 'TEXT', WOStepNo)
Set_Property(@Window : '.OUT_CASS_NO', 'TEXT', CassNo)
Set_Property(@Window : '.RDS_NO', 'TEXT', RDSNo)
Set_Property(@Window : '.STAGE', 'TEXT', Stage)
Set_Property(@Window : '.RUN_STEP', 'TEXT', RunStep)
WOMatQAKey = WONo : '*' : CassNo
@ -185,23 +194,43 @@ end event
Event THICK_READINGS.GOTFOCUS(PrevFocusID)
WO = Get_Property(@Window : '.WO_NO', 'TEXT')
CassNo = Get_Property(@Window : '.OUT_CASS_NO', 'TEXT')
WoMatKey = WO : '*' : CassNo
Stage = Get_Property(@Window : '.STAGE', 'TEXT')
If Stage EQ 'UNLOAD' then
test = Signature_Services('GetStageSummary', WoMatKey, 'UNLOAD')
UnloadSigned = Signature_Services('GetStageSummary', WoMatKey, 'UNLOAD')<2>
If UnloadSigned then
GoSub VerifyUser
end else
Message = 'Unload metrology data may only be entered after the UNLOAD signature has been signed.'
Msg(@Window, Message)
end
end else
GoSub VerifyUser
end
GoSub VerifyUser
end event
Event HGCV_READINGS.GOTFOCUS(PrevFocusID)
WO = Get_Property(@Window : '.WO_NO', 'TEXT')
CassNo = Get_Property(@Window : '.OUT_CASS_NO', 'TEXT')
WoMatKey = WO : '*' : CassNo
Stage = Get_Property(@Window : '.STAGE', 'TEXT')
GoSub VerifyUser
end event
Event HGCV_PHASE_READINGS.GOTFOCUS(PrevFocusID)
WO = Get_Property(@Window : '.WO_NO', 'TEXT')
CassNo = Get_Property(@Window : '.OUT_CASS_NO', 'TEXT')
WoMatKey = WO : '*' : CassNo
Stage = Get_Property(@Window : '.STAGE', 'TEXT')
GoSub VerifyUser
end event
@ -227,8 +256,30 @@ end event
Event SIGN.CLICK()
GoSub SaveQAData
WO = Get_Property(@Window : '.WO_NO', 'TEXT')
CassNo = Get_Property(@Window : '.OUT_CASS_NO', 'TEXT')
WoMatKey = WO : '*' : CassNo
Stage = Get_Property(@Window : '.STAGE', 'TEXT')
If Stage EQ 'UNLOAD' then
UnloadSigned = Signature_Services('GetStageSummary', WoMatKey, 'UNLOAD')<2>
If UnloadSigned then
GoSub SaveQAData
end else
GoSub VerifyUser
CanEdit = Get_Property(@Window, '@CANEDIT')
If CanEdit then
GoSub SaveQAData
end else
Message = 'Unload metrology data may only be entered after the UNLOAD signature has been signed.'
Msg(@Window, Message)
Return
end
end
end else
GoSub SaveQAData
end
SignatureReady = True$
WONo = Get_Property(@WINDOW:'.WO_NO','DEFPROP')
@ -748,6 +799,7 @@ VerifyUser:
CanEdit = Get_Property(@Window, '@CANEDIT')
If Not(CanEdit) then
Message = 'Only a member of lead, supervisor, or ':@SVM:'engineering can manually enter data.'
Response = Msg(@Window, '', 'OVERRIDE', '', Message)