Copy from through code

Question

Hi,
I want to do the copy from functionality from Goods receipt PO   to Purchase through code in my Addon.Can we assign  a link between these two documents?How will we copy multiple goods receipt PO to one purchase Invoice.?I have no provision to add a copy from button or matrix.All should be done through code.
Regards
MANJU

Answer 1

Hello,
You can do this vis the DI API. Here is an example code that copies two Goods Receipt POs to one AP Invoice:
Dim rs, errCode, errMsg
Dim oAPInvoice As SAPbobsCOM.Documents
oAPInvoice = oCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.oPurchaseInvoices)
'We will create the AR Invoice based on two Goods Receipt POs. Both have CardCode = "V10000"
'Goods Receipt PO DocNum 92 has 3 lines
'Goods Receipt PO DocNum 94 has 1 line
oAPInvoice.CardCode = "V10000"
oAPInvoice.DocDueDate = Now
'DocNum 92 line 0
oAPInvoice.Lines.BaseEntry = 92
oAPInvoice.Lines.BaseLine = 0
oAPInvoice.Lines.BaseType = CInt(SAPbobsCOM.BoObjectTypes.oPurchaseDeliveryNotes)
'DocNum 92 line 1
oAPInvoice.Lines.Add()
oAPInvoice.Lines.BaseEntry = 92
oAPInvoice.Lines.BaseLine = 1
oAPInvoice.Lines.BaseType = CInt(SAPbobsCOM.BoObjectTypes.oPurchaseDeliveryNotes)
'DocNum 92 line 2
oAPInvoice.Lines.Add()
oAPInvoice.Lines.BaseEntry = 92
oAPInvoice.Lines.BaseLine = 2
oAPInvoice.Lines.BaseType = CInt(SAPbobsCOM.BoObjectTypes.oPurchaseDeliveryNotes)
'DocNum 94 line 0
oAPInvoice.Lines.Add()
oAPInvoice.Lines.BaseEntry = 94
oAPInvoice.Lines.BaseLine = 0
oAPInvoice.Lines.BaseType = CInt(SAPbobsCOM.BoObjectTypes.oPurchaseDeliveryNotes)
rs = oAPInvoice.Add
If rs <> 0 Then
    oCompany.GetLastError(errCode, errMsg)
    MsgBox("Error: " & errCode & " - " & errMsg)
Else
    MsgBox("Done")
End If
Regards,
Paul Feeney
SAP Business One Forums Team