Merged PR 14213: Added condition to ignore line if the tw lot id is null

Added condition to ignore line if the tw lot id is null
This commit is contained in:
Ouellette Jonathan (CSC FI SPS MESLEO) 2025-04-01 18:14:24 +02:00
parent 6cfd1324c7
commit 999e11b1b8

View File

@ -243,7 +243,8 @@ Event PUB_SUBMIT.CLICK()
Quantity = TWRow<1,3> Quantity = TWRow<1,3>
ProdName = TWRow<1,2> ProdName = TWRow<1,2>
TWLot = TWRow<1,1> TWLot = TWRow<1,1>
If Quantity NE '' AND TWLot NE '' then If TWLot NE '' then
If Quantity NE '' then
if Num(Quantity) then if Num(Quantity) then
Begin Case Begin Case
Case Quantity GT 0 AND Quantity LE 25 Case Quantity GT 0 AND Quantity LE 25
@ -262,6 +263,7 @@ Event PUB_SUBMIT.CLICK()
end else end else
NotReadyReason := 'A quantity of test wafers used is required for test wafer lot ' : TWLot : CRLF$ NotReadyReason := 'A quantity of test wafers used is required for test wafer lot ' : TWLot : CRLF$
end end
end
Next TWRow Next TWRow
If NotReadyReason EQ '' then If NotReadyReason EQ '' then
TRWaferKey = Test_Run_Services('CreateTestRunRecord', SelRunTypeID, SelEquipType, EquipmentID, RelatedPSN, RelatedRDS, @User4, TWLots, TWLotQtys) TRWaferKey = Test_Run_Services('CreateTestRunRecord', SelRunTypeID, SelEquipType, EquipmentID, RelatedPSN, RelatedRDS, @User4, TWLots, TWLotQtys)
@ -336,3 +338,4 @@ return