Error: Can't Add a New Sales Order: -10 Exchange rate not updated,

Question

Hi,
I'm trying to add several Sales Orders contained in a XML document, whose root element corresponds to the Sales Person created that XML. Anyway, after I fill a Sales Order Document Object with the info in the XML and try to add it the following error appears: "Exchange rate not updated  [RDR1.U_Desc4][line: 2] , 'USD'" Which is strange because this company handles most of its transactions in MXP Currency. I will post the piece of Code that fills the object hoping it helps:
For Each xndSalesOrder In xmlSalesOrder.Item("SalesMan").ChildNodes
                oSalesOrder = Me.Company.GetBusinessObject(SAPbobsCOM.BoObjectTypes.oOrders)
                oSalesOrder.DocType = SAPbobsCOM.BoDocumentTypes.dDocument_Items
                With xndSalesOrder.Item("HEADER")
                    oSalesOrder.CardCode = .Item("Deudor").InnerText
                    oSalesOrder.DocDate = DateTime.Parse(.Item("FechaCont").InnerText, Nothing)
                    oSalesOrder.DocDueDate = DateTime.Parse(.Item("FechaEnt").InnerText, Nothing)
                    oSalesOrder.Comments = .Item("Observaciones").InnerText
                    oSalesOrder.DocRate = 11
                    oSalesOrder.DocCurrency = "MXP"
                    'oSalesOrder.ContactPersonCode = .Item("Contacto").InnerText
                    'User Fields
                    oSalesOrder.UserFields.Fields.Item("U_RefOV").Value = _
                        xndSalesOrder.Attributes.Item(0).InnerText
                    oSalesOrder.UserFields.Fields.Item("U_Referencia2").Value = .Item("Referencia").InnerText
                    oSalesOrder.UserFields.Fields.Item("U_FechaReferencia").Value = _
                        DateTime.Parse(.Item("FechaReferencia").InnerText, Nothing)
                End With
                With xndSalesOrder.Item("LINEAS")
                    For Each xndLinea In .ChildNodes
                        If intContLineas >= 1 Then                             oSalesOrder.Lines.Add()
                        End If
                        oSalesOrder.Lines.ItemCode = xndLinea.Item("Articulo").InnerText
                        oSalesOrder.Lines.Quantity = CDbl(xndLinea.Item("Cantidad").InnerText)
                        oSalesOrder.Lines.Price = CDbl(xndLinea.Item("Precio").InnerText)
                        oSalesOrder.Lines.TaxCode = xndLinea.Item("Impuesto").InnerText
                        oSalesOrder.Lines.DiscountPercent = CDbl(xndLinea.Item("DescuentoTotal").InnerText)
                        oSalesOrder.Lines.SalesPersonCode = xmlSalesOrder.Item("SalesMan").Attributes.Item(0).InnerText
                        oSalesOrder.Lines.Currency = "MXP"
                        'User Fields
                        oSalesOrder.Lines.UserFields.Fields.Item("U_Promocion").Value = _
                            xndLinea.Item("AplicaProm").InnerText 'Valores posibles: Si, No
                        oSalesOrder.Lines.UserFields.Fields.Item("U_Desc1").Value = _
                            CInt(xndLinea.Item("Descuento1").InnerText)
                        oSalesOrder.Lines.UserFields.Fields.Item("U_Desc2").Value = _
                            CInt(xndLinea.Item("Descuento2").InnerText)
                        oSalesOrder.Lines.UserFields.Fields.Item("U_Desc3").Value = _
                            CInt(xndLinea.Item("Descuento3").InnerText)
                        'If xndLinea.Item("AplicaProm").InnerText = "Si" Then
                        oSalesOrder.Lines.UserFields.Fields.Item("U_Desc4").Value = _
                            CInt(xndLinea.Item("Descuento4").InnerText) 'This is the UDF that's giving me problems!!!
                        'End If
                        intContLineas += 1
                    Next
                   If oSalesOrder.Add() <> 0 Then
                        Me.Company.GetLastError(intErrorAdd, sErrMsgAdd)
                        If (0 <> intErrorAdd) Then
                            FillLog("Sales Order Error: " & CStr(intErrorAdd) & "," & sErrMsgAdd)
                        End If
                        xmlLogSalesOrder.Item
                    End If
                End With
            Next
If you look at the code I've even tried the solution of hardcoding the DocRate and the Currency as seen in a similar post about the DTW.
Sorry if code is in Spanglish, its quite late around here. I hope you can help me because it's kind of an urgent matter and I can't seem to find a solution for it.
Other useful data: SAP BO 2005 Patch 4.
Thanks in advance...
Alfredo Gargari

Answer 1

Hi Alfredo,
Have you tried to add the same salesorder by hand, I think you wil first get a form with exchange rates.
I think you should add a check to your program to check for an update currency rate (the sbobob function GetCurrencyRate does this for you).
GetCurrencyRate MethodDescription
Returns a Recordset object that contains the currency rate for a specified date and currency code.
See Currency Bobs sample.
Syntax
Public Function GetCurrencyRate( _
   ByVal Currency As String, _
   ByVal Date As Date _
) As Recordset
Parameters
Currency
Specifies the currency code.
Date
Specifies the date for the currency exchange rate.
Return Type
A Recordset object that contains one field named CurrencyRate that holds the rate value.
SAP Business One returns 0 if the system cannot find the exchange rate.
Regards,
Ad