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.