Import wrong prices in Sales.Order

Question

I try to import Sales Orders from a table.
The code is
            rs.DoQuery("SELECT .........  FROM ZAM_imp_orders2
            'Lines
            rs.MoveFirst()
            Dim strProdSku As String
            While rs.EoF = False
                oSalesOrders.Lines.ItemCode = rs.Fields.Item(5).Value
                oSalesOrders.Lines.Quantity =     CDbl(rs.Fields.Item(17).Value)
                Dim Pri As Double = Math.Round(CDbl(rs.Fields.Item(16).Value), 4)
                oSalesOrders.Lines.UnitPrice = Pri  'product_price_total
                oSalesOrders.Lines.Add()
                rs.MoveNext()
The problem is that in MSSQL the price (in  ZAM_imp_orders2 ) is eg 100.00000 and in SAP B1 imports 10,000,000.00
I assume that it has to do with Decimal Settings (they are Seperator '.'  & Thousands ",") which is seems correct o me.
Any Idea?
Best Regards,
Vangelis

Answer 1

Hi,
What is you try this:
DIm strQuantity as string
While rs.EoF = False
oSalesOrders.Lines.ItemCode = rs.Fields.Item(5).Value
strQuantity = rs.Fields.Item(17)
strQuantity =  strQuantity .Replace(",", ".")
oSalesOrders.Lines.Quantity = CDbl(strQuantity)
Dim Pri As Double = Math.Round(CDbl(rs.Fields.Item(16).Value), 4)
oSalesOrders.Lines.UnitPrice = Pri 'product_price_total
oSalesOrders.Lines.Add()
rs.MoveNext()
Kind regards,
Winfried Tiemessen