Problems while saving the tax values in a Draft Document to AP Invoice

Question

Hi All
I have an interface .net where I use a DIAPI to enter values in B1 2007 B (8.60.039) PL 15.
I have the following cases:
First case
- I create a document type oPurchaseInvoices, where I set the tax values for IRPF, INSS, ISSQN (Brazil).
  When i execute the code that inserts this A/P Invoice in SAP, it works perfectly, including by setting the values of the taxes correctly.
Second case
- I create a document type oDrafts, and say that this draft is the type oPurchaseInvoices.
  After that I follow the same steps to launch a note entry, laying the tax values(IRPF, INSS, ISSQN) and everything else.
  When i execute the code that inserts this values in the draft, the tax values are not entered and that everything else works perfectly. 
You can tell me whether the taxes really are not inserted when I issue a draft or I'm leaving to score some parameter.
I am in the look of your response
Regards
Luis Felipe

Answer 1

Hi Gordon.
You can see below the part of the code to add the Draft Document.
oAPInvoice = oCompany.SapCommand.GetBusinessObject(BoObjectTypes.oDrafts)
oAPInvoice.DocObjectCode = BoObjectTypes.oPurchaseInvoices
With oAPInvoice
    .Lines.TaxLiable = BoYesNoEnum.tYES
    .Lines.ItemCode = Itemcode
    .Lines.Quantity = Quantity
    .Lines.UnitPrice = Unitprice
    .Lines.TaxCode = Taxcode
    .Lines.WTLiable = BoYesNoEnum.tNO
    .Lines.Usage = "Consumo"
    If oDTO.IRRF > 0 Or oDTO.INSS > 0 Or oDTO.ISSQN > 0 Then
        If oDTO.WtLiable = "Y" Then .Lines.WTLiable = BoYesNoEnum.tYES
        Add tax values
        For i As Int16 = 1 To 3
            vlrImposto = 0
            addTax = False
            If IRRF > 0 And Not addIR Then
                codImposto = CodeIRRF   (tax code)
                vlrImposto = IRRF             (tax value)
                addIR = True
                addTax = True
            ElseIf INSS > 0 And Not addINSS Then
                codImposto = "F501"  (tax code)
                vlrImposto = INSS       (tax value)
                addINSS = True
                addTax = True
            ElseIf ISSQN > 0 And Not addISSQN Then
                codImposto = CodeISSQN  (tax code)
                vlrImposto = ISSQN            (tax value)
                addISSQN = True
                addTax = True
            End If
            If addTax Then
                (If include more one tax then add line)
                If i > 1 And vlrImposto > 0 Then .Lines.WithholdingTaxLines.Add()
                .Lines.WithholdingTaxLines.WTCode = codImposto                     (tax code)
                .Lines.WithholdingTaxLines.TaxableAmount = Unitprice              (base value calculation)
                .Lines.WithholdingTaxLines.WTAmount = vlrImposto                   (tax value)
            End If
        Next
    End If
    .CardCode = Cardcode
    .CardName = Cardname
    .HandWritten = BoYesNoEnum.tNO
    .DocDueDate = DueDate
    .DocDate = DocDate
    .TaxDate = TaxDate
    .SequenceCode = -2      '-1=Manual  -2=External
    .SeriesString = "RCB"
    .SequenceModel = 37
    lRetCode = .Add()
End With
Regards
Luis Felipe