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,12 +176,26 @@ Event PUB_SUBMIT.CLICK()
|
|||||||
ProdID = ''
|
ProdID = ''
|
||||||
Quantity = TWRow<1,2>
|
Quantity = TWRow<1,2>
|
||||||
ProdName = TWRow<1,1>
|
ProdName = TWRow<1,1>
|
||||||
|
If Quantity NE '' AND ProdName NE '' then
|
||||||
|
if Num(Quantity) AND Quantity GT 0 then
|
||||||
Locate ProdName in TWProdOpts<2> setting tPos then
|
Locate ProdName in TWProdOpts<2> setting tPos then
|
||||||
ProdID = TWProdOpts<1, tPos>
|
ProdID = TWProdOpts<1, tPos>
|
||||||
ProdUsages<-1> = ProdID : @VM : Quantity
|
ProdUsages<-1> = ProdID : @VM : Quantity
|
||||||
end else
|
end else
|
||||||
NotReadyReason := 'Invalid Product ID ' : ProdName : ' selected.' : CRLF$
|
NotReadyReason := 'Invalid Product ID ' : ProdName : ' selected.' : CRLF$
|
||||||
end
|
end
|
||||||
|
end else
|
||||||
|
NotReadyReason := 'Quantity for Product ID ' : ProdName : ' was not a number or was a negative number.' : CRLF$
|
||||||
|
end
|
||||||
|
|
||||||
|
end else
|
||||||
|
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
|
Next TWRow
|
||||||
|
|
||||||
If NotReadyReason EQ '' then
|
If NotReadyReason EQ '' then
|
||||||
|
Loading…
x
Reference in New Issue
Block a user