VB scripting help

Legacy Contributor

I want to use a valuable get a result from a calculation like below. The compilation was successful. But when I call the script, I got error: Exception message: Input string was not in a correct format. Please help.

Sub CalQtyOnHandMinusAlloc()
ThisForm.Variables("QtyOnHandMinusAlloc").Value = (Convert.ToDecimal(ThisForm.PrimaryIDOCollection.GetCurrentObjectProperty("DerQtyOnHand")) -Convert.ToDecimal(ThisForm.PrimaryIDOCollection.GetCurrentObjectProperty("DerQtyAllocCO"))).ToString
End Sub

dean-bradko

This happens when the string you are trying to convert can't be converted to a decimal.



You'll have to do something like the example below for each operand in the expression to bullet proof it or just catch the exception and display a message to the user or something. Of course, it is never recommended to use an exception to validate data - better to just handle it properly.



IIf(

TryCast(ThisForm.PrimaryIDOCollection.GetCurrentObjectProperty("DerQtyOnHand")) is Nothing,

0,

DirectCast(ThisForm.PrimaryIDOCollection.GetCurrentObjectProperty("DerQtyOnHand"))

)



I recommend setting a break point in your script at this line to see exactly what the values of those two properties are. ...obviously, they're not quite what you are expecting.