Skip to Content
0
Former Member
Feb 27, 2009 at 11:53 AM

Create AR Correction Invoice

260 Views

Hi All,

I need create AR Correction Invoice link to AR Invoice, abt system display error "Invalid structure document"

oDoc = oCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.oInvoice)

oDoc.GetByKey(XXX)

_oOCSI = oCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.oCorrectionInvoice)

If _oRecSet.RecordCount <> 0 Then

_oOCSI.CardCode = oDoc.CardCode

_oOCSI.DocDate = oDoc.DocDate

_oOCSI.DocDueDate = oDoc.DocDate

oOCSI.DocType = SAPbobsCOM.BoDocumentTypes.dDocumentService

For i = 1 To _oRecSet.RecordCount

If i > 1 Then

_oOCSI.Lines.Add()

End If

oDoc.Lines.SetCurrentLine(i - 1)

_oOCSI.Lines.BaseEntry = oDoc.DocEntry

_oOCSI.Lines.BaseLine = oDoc.Lines.LineNum

_oOCSI.Lines.BaseType = SAPbobsCOM.BoObjectTypes.oInvoices

oOCSI.Lines.CorrectionInvoiceItem = SAPbobsCOM.BoCorInvItemStatus.ciisWas

_oOCSI.Lines.Add()

_oOCSI.Lines.BaseEntry = oDoc.DocEntry

_oOCSI.Lines.BaseLine = oDoc.Lines.LineNum

_oOCSI.Lines.BaseType = SAPbobsCOM.BoObjectTypes.oInvoices

_oOCSI.Lines.LineTotal = 0

oOCSI.Lines.CorrectionInvoiceItem = SAPbobsCOM.BoCorInvItemStatus.ciisShouldBe

_oRecSet.MoveNext()

Next i

lErrCode = _oOCSI.Add

Please Help me.