Re-adding from old branch
This commit is contained in:
committed by
Ouellette Jonathan (CSC FI SPS MESLEO)
parent
ef1744c8b1
commit
3a2ff00722
@ -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
|
||||
|
||||
|
||||
|
||||
|
Reference in New Issue
Block a user