From d4c3b2aeabf4b58350701ed6bc757ace45eabe8f Mon Sep 17 00:00:00 2001
From: "Infineon\\Ouellette" <jonathan.ouellette@infineon.com>
Date: Wed, 11 Sep 2024 14:53:38 -0700
Subject: [PATCH] Identified possible OI10 related bug where tabbing out of
 edit table creates an extra blank row. Also identified existing bugs that
 would allow user to enter non numeric values in a numeric only field. Put
 checking for that value in the commuter module.

---
 LSL2/STPROC/NDW_TEST_RUN_EVENTS.txt | 22 ++++++++++++++++++----
 1 file changed, 18 insertions(+), 4 deletions(-)

diff --git a/LSL2/STPROC/NDW_TEST_RUN_EVENTS.txt b/LSL2/STPROC/NDW_TEST_RUN_EVENTS.txt
index c31ee1e..6eed030 100644
--- a/LSL2/STPROC/NDW_TEST_RUN_EVENTS.txt
+++ b/LSL2/STPROC/NDW_TEST_RUN_EVENTS.txt
@@ -176,11 +176,25 @@ Event PUB_SUBMIT.CLICK()
 		ProdID   = ''
 		Quantity = TWRow<1,2>
 		ProdName = TWRow<1,1>
-		Locate ProdName in TWProdOpts<2> setting tPos then
-			ProdID         = TWProdOpts<1, tPos>
-			ProdUsages<-1> = ProdID : @VM : Quantity
+		If Quantity NE '' AND ProdName NE '' then
+			if Num(Quantity) AND Quantity GT 0 then
+				Locate ProdName in TWProdOpts<2> setting tPos then
+					ProdID         = TWProdOpts<1, tPos>
+					ProdUsages<-1> = ProdID : @VM : Quantity
+				end else
+					NotReadyReason := 'Invalid Product ID ' : ProdName : ' selected.' : CRLF$ 
+				end
+			end else
+				NotReadyReason := 'Quantity for Product ID ' : ProdName : ' was not a number or was a negative number.' : CRLF$ 
+			end
+			
 		end else
-			NotReadyReason := 'Invalid Product ID ' : ProdName : ' selected.' : CRLF$ 
+			Begin Case
+				Case Quantity NE ''
+					NotReadyReason := 'Prod. not selected..' : CRLF$
+				Case ProdName NE ''
+					NotReadyReason := 'Qty for ' : ProdName : ' is blank' : CRLF$
+			End Case
 		end
 	Next TWRow