Currency and Linked documents problem.

Question

Hello all,
I am using the sdk to import documents form one database to another. I have a currency problem when I try to create an AR Invoice based on a Sales Order already in the target database.
We are running SBO 2005 sp1 pl45
The Sales order document currency set up like this:
Header : CAD
Line 0 : USD
Line 1 : USD
Line 5 : USD
When I create an AR Invoices using the SDK based, I set the currency the same way as for the sales orders. The SDK add the document without errors.
However, there are always one or more lines that switch to CAD currency.
Header : CAD
Line 0 : USD
Line 1 : CAD
Line 5 : USD
I have check the database to make sure the currency field and DocCur field where set to the proper value in the order table.
This is a simplified version of my code. I am having the same behavior as my application. I also tried to remove the itemcode and currency info without success.
I have also checked that:
- The currency exists in the database and the exchange rate is up do date.
- The Customer, Series and Tax Code are correct.
               oDoc = oComp.GetBusinessObject(SAPbobsCOM.BoObjectTypes.oInvoices)
                oDoc.CardCode = "C10003"
                oDoc.DocType = SAPbobsCOM.BoDocumentTypes.dDocument_Items
                oDoc.Series = 2
                oDoc.DocCurrency = "CAD"
                oDoc.Lines.ItemCode = "GC0001"
                oDoc.Lines.BaseEntry = 3
                oDoc.Lines.BaseLine = 0
                oDoc.Lines.BaseType = 17
                oDoc.Lines.UnitPrice = 580
                oDoc.Lines.Currency = "USD"
                oDoc.Lines.Quantity = 9
                oDoc.Lines.TaxCode = "TAXNO"
                oDoc.Lines.Add()
                oDoc.Lines.BaseEntry = 3
                oDoc.Lines.BaseLine = 1
                oDoc.Lines.BaseType = 17
                oDoc.Lines.ItemCode = "GC0002"
                oDoc.Lines.UnitPrice = 1233.58
                oDoc.Lines.Currency = "USD"
                oDoc.Lines.Quantity = 9
                oDoc.Lines.TaxCode = "TAXNO"
                oDoc.Lines.Add()
                oDoc.Lines.BaseEntry = 3
                oDoc.Lines.BaseLine = 2
                oDoc.Lines.BaseType = 17
                oDoc.Lines.ItemCode = "WH0001"
                oDoc.Lines.UnitPrice = 447.01
                oDoc.Lines.Currency = "USD"
                oDoc.Lines.Quantity = 9
                oDoc.Lines.TaxCode = "TAXNO"
                oDoc.Lines.Add()
                oDoc.Lines.BaseEntry = 3
                oDoc.Lines.BaseLine = 3
                oDoc.Lines.BaseType = 17
                oDoc.Lines.ItemCode = "WH0001"
                oDoc.Lines.UnitPrice = 997.5
                oDoc.Lines.Currency = "USD"
                oDoc.Lines.Quantity = 9
                oDoc.Lines.TaxCode = "TAXNO"
                oDoc.Lines.Add()
                oDoc.Lines.BaseEntry = 3
                oDoc.Lines.BaseLine = 4
                oDoc.Lines.BaseType = 17
                oDoc.Lines.ItemCode = "WH0001"
                oDoc.Lines.UnitPrice = 276.15
                oDoc.Lines.Currency = "USD"
                oDoc.Lines.Quantity = 9
                oDoc.Lines.TaxCode = "TAXNO"
                oDoc.Lines.Add()
                oDoc.Lines.BaseEntry = 3
                oDoc.Lines.BaseLine = 5
                oDoc.Lines.BaseType = 17
                oDoc.Lines.ItemCode = "TM9999"
                oDoc.Lines.UnitPrice = 205
                oDoc.Lines.Currency = "USD"
                oDoc.Lines.Quantity = 9
                oDoc.Lines.TaxCode = "TAXNO"
                If oDoc.Add <> 0 Then
                    MessageBox.Show("Error " + oComp.GetLastErrorDescription())
                Else
                    MessageBox.Show("Good")
                End If
Thank you for your help.
Simon
Edited by: Simon Lizotte on Jul 29, 2008 10:35 PM

Answer 1

HI Simon,
For me it is works perfect.
I do not know about the taxno tax group, and your localization, but on my 2007APL38 works fine.
I have used the demo database  SBODEMO_HU, and added an order and invoice from order, and it is works (without TaxCode).
generally if you inherit a document, you need you the quantity (less or equal then basic) have to be check and the price modified.
here is my, i have a BP in multi currency = C20007, and items from A00002 to A00005 in the code at the
If oDoc.Add <> 0 Then there is less than and more than sign, but here is not visible...
Sub addSalesOrder()
        Dim oDoc As SAPbobsCOM.Documents = oCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.oOrders)
        oDoc.CardCode = "C20007"
        oDoc.DocType = BoDocumentTypes.dDocument_Items
        oDoc.DocDueDate = Today
        oDoc.DocCurrency = "CAD"
        oDoc.Lines.ItemCode = "A00002"
        oDoc.Lines.Quantity = 9
        oDoc.Lines.UnitPrice = 100
        oDoc.Lines.Currency = "USD"
        oDoc.Lines.Add()
        oDoc.Lines.ItemCode = "A00003"
        oDoc.Lines.Quantity = 9
        oDoc.Lines.UnitPrice = 100
        oDoc.Lines.Currency = "USD"
        oDoc.Lines.Add()
        oDoc.Lines.ItemCode = "A00004"
        oDoc.Lines.Quantity = 9
        oDoc.Lines.UnitPrice = 100
        oDoc.Lines.Currency = "USD"
        oDoc.Lines.Add()
        oDoc.Lines.ItemCode = "A00005"
        oDoc.Lines.Quantity = 9
        oDoc.Lines.UnitPrice = 100
        oDoc.Lines.Currency = "USD"
        If oDoc.Add <> 0 Then
            MsgBox("Erreur " + oCompany.GetLastErrorDescription())
        Else
            Dim newCode As String = oCompany.GetNewObjectKey()
            MsgBox(newCode)
            AddInvoice(newCode)
        End If
    End Sub
    Private Sub AddInvoice(ByVal e As Integer)
        Dim oDoc As SAPbobsCOM.Documents = oCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.oInvoices)
        oDoc.CardCode = "C20007"
        oDoc.DocType = SAPbobsCOM.BoDocumentTypes.dDocument_Items
        oDoc.DocDate = Today
        oDoc.DocDueDate = Today
        oDoc.DocCurrency = "CAD"
        oDoc.Lines.BaseEntry = e
        oDoc.Lines.BaseLine = 0
        oDoc.Lines.BaseType = 17
        oDoc.Lines.Quantity = 9
        oDoc.Lines.UnitPrice = 580
        oDoc.Lines.Currency = "USD"
        oDoc.Lines.Add()
        oDoc.Lines.BaseEntry = e
        oDoc.Lines.BaseLine = 1
        oDoc.Lines.BaseType = 17
        oDoc.Lines.Quantity = 9
        oDoc.Lines.UnitPrice = 1233.58
        oDoc.Lines.Currency = "USD"
        oDoc.Lines.Add()
        oDoc.Lines.BaseEntry = e
        oDoc.Lines.BaseLine = 2
        oDoc.Lines.BaseType = 17
        oDoc.Lines.Quantity = 9
        oDoc.Lines.UnitPrice = 447.01
        oDoc.Lines.Currency = "USD"
        oDoc.Lines.Add()
        oDoc.Lines.BaseEntry = e
        oDoc.Lines.BaseLine = 3
        oDoc.Lines.BaseType = 17
        oDoc.Lines.Quantity = 9
        oDoc.Lines.UnitPrice = 997.5
        oDoc.Lines.Currency = "USD"
        If oDoc.Add <> 0 Then
            MsgBox("Erreur " + oCompany.GetLastErrorDescription())
        Else
            MsgBox("Good")
        End If
    End Sub
Regards,
J.
Edited by: Janos  Nagy on Jul 30, 2008 5:02 PM