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.
This commit is contained in:
parent
5fdcfdafb4
commit
d4c3b2aeab
@ -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
|
||||
|
||||
|
Loading…
x
Reference in New Issue
Block a user