Show only 2 Decimal places from String Value

I am retrieving the DerQtyAvailable value from an IDO on a form. When I get this value, it shows 6 places after the decimal. I want to only show 2 but since it is a string value, I cannot figure out how to either convert it to a decimal or format the string. This is my code. Any help is appreciated.

Sub GetQtyAvail()
Dim QtyAvailRequestData As LoadCollectionRequestData = New LoadCollectionRequestData()
Dim itemNum As String = ThisForm.Variables("ItemVar").Value
QtyAvailRequestData.IDOName = "ICSLItemLocs"
QtyAvailRequestData.PropertyList.SetProperties("Item, Whse, Loc, DerQtyAvailable")
QtyAvailRequestData.Filter = "Item = '" + itemNum + "' AND Whse='MAIN' AND Loc='W3'"
QtyAvailRequestData.RecordCap = -1
QtyAvailRequestData.OrderBy = "Item"
Dim QtyAvailResponseData As LoadCollectionResponseData = New LoadCollectionResponseData()
QtyAvailResponseData = Me.IDOClient.LoadCollection(QtyAvailRequestData)
Dim sItemType As String = String.Empty
If (QtyAvailResponseData.Items.Count <> 0) Then
sItemType = (QtyAvailResponseData(0, "DerQtyAvailable").ToString)
ThisForm.Components("W3QtyEdit").Value = sItemType
End If

Find more posts tagged with

General Discussions

Accepted answers

antonio-caria

maybe "#0.00" is a better solution..

All comments

unknown

This is C# equivalent that I'm doing off the top of my head, but it should get you there. You can lookup the topic on custom numeric format strings for .NET to tweak the output format.

sItemType = QtyAvailResponseData[0, "DerQtyAvailable"].GetValue<decimal>().ToString("#0.##");

antonio-caria

maybe "#0.00" is a better solution..

Ryan Pukanski

I have done this with some derived fields. Maybe it will help?

This is what my form script it like:

Total = Convert.ToDecimal(ThisForm.PrimaryIDOCollection.GetCurrentObjectAggregateValue(WSAggregateFunctions.SUM,"DerDTLExtPrice","ID"))

ThisForm.Variables("Total").Value = Total.ToString

Then on the component:

unknown

This is what worked. Thank you all for your help!

Sub GetQtyAvail()
Dim QtyAvailRequestData As LoadCollectionRequestData = New LoadCollectionRequestData()
Dim itemNum As String = ThisForm.Variables("ItemVar").Value
QtyAvailRequestData.IDOName = "ICSLItemLocs"
QtyAvailRequestData.PropertyList.SetProperties("Item, Whse, Loc, DerQtyAvailable")
QtyAvailRequestData.Filter = "Item = '" + itemNum + "' AND Whse='MAIN' AND Loc='W3'"
QtyAvailRequestData.RecordCap = -1
QtyAvailRequestData.OrderBy = "Item"
Dim QtyAvailResponseData As LoadCollectionResponseData = New LoadCollectionResponseData()
QtyAvailResponseData = Me.IDOClient.LoadCollection(QtyAvailRequestData)
Dim sItemType As String = String.Empty
If (QtyAvailResponseData.Items.Count <> 0) Then
sItemType = (QtyAvailResponseData(0, "DerQtyAvailable").GetValue(Of Decimal).ToString("#0.00"))
ThisForm.Variables("W3Qty").Value = sItemType
End If
End Sub

Copyright © 2025 Infor. All rights reserved.