Re-adding from old branch

This commit is contained in:
Infineon\Ouellette
2024-11-19 15:51:39 -07:00
committed by Ouellette Jonathan (CSC FI SPS MESLEO)
parent ef1744c8b1
commit 3a2ff00722
14 changed files with 2821 additions and 1783 deletions

View File

@ -67,7 +67,8 @@ Return EventFlow or 1
//-----------------------------------------------------------------------------
Event WINDOW.CREATE(CreateParam)
PlaceDialog(-2, -2)
Set_Property(@Window, 'VISIBLE', 1)
GoSub SetupOLEControls
GoSub FillFormMasterData
EventFlow = 1
@ -204,7 +205,7 @@ Event PUB_SUBMIT.CLICK()
for each Prod in ProdUsages using @FM setting pPos
for i = 1 to Prod<1,2>
TWPartID = Prod<1,1>
TRWaferKey = Test_Run_Services('CreateTestRunWaferRecord', NewTWRunKey, TWPartID)
TRWaferKey = Test_Run_Services('CreateTestRunWaferRecord', NewTWRunKey, TWPartID, @USER4)
If RowExists('TEST_RUN_WAFER', TRWaferKey) then
//Do Nothing for now.
end else
@ -352,3 +353,4 @@ SetupOLEControls:
return