Error in Loading Sales Bom

Question

Hi ..
When im  loading Sales BOM from Sales Quotation to Invoice with Sales Bom  via SDK , im receiving this error message .
" Error The complete Sales BOM, not just some of the components, must be copied to an A/R Invoice or a Delivery  [INV1.TreeType][line: 42] " , im basically transfering record by record from  Sales Quotation to Invoice
But if i used the copy to function to invoice this Sales Quotation , i can be invoice
I would like to know, whats is reason of this error message?
thanks
Loren

Answer 1

Hi Yatsea
Thank you for your response,
Yes i followed some of the documents in the forum on how to add /copy a document to another document . My problem right now, if i will load 2 or more bom items on one invoice,  i receive the same errror "Error The complete Sales BOM, not just some of the components, must be copied to an A/R Invoice or a Delivery http://INV1.TreeTypeline: 42"
but if a sepate the sales bom on different invoice (1 invoice = 1 Sales BOM) , the transaction goes well ....
please see code
  start code -
    Private Function CreateInvoiceFromQuotation()
        Dim oInvoice As SAPbobsCOM.Documents
        Dim oSalesQuotation As SAPbobsCOM.Documents
        Dim rsForInvoice As SAPbobsCOM.Recordset ' A recordset object
        Dim rsFrInvDtls As SAPbobsCOM.Recordset ' A recordset object
        Dim oRecordCount As Integer
        Dim rUpdateStatus As SAPbobsCOM.Recordset
        Dim SQLStr As String
        Try
            rsForInvoice = oCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset)
            SQLStr = "SELECT OQUT.DocEntry,OQUT.DocDate, OQUT.DocDueDate, OQUT.CardCode, OQUT.NumAtCard, OQUT.Comments "
            SQLStr = SQLStr & "FROM [@TDOCPROC] INNER JOIN OQUT ON [@TDOCPROC].U_DocEntry = OQUT.DocEntry"
            rsForInvoice.DoQuery(SQLStr)
            oRecordCount = rsForInvoice.RecordCount
            Do While rsForInvoice.EoF = False
                'oCompany.StartTransaction()
                oInvoice = oCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.oInvoices)
                oInvoice.CardCode = rsForInvoice.Fields.Item("CardCode").Value
                oInvoice.DocDate = rsForInvoice.Fields.Item("DocDate").Value
                oInvoice.DocDueDate = rsForInvoice.Fields.Item("DocDueDate").Value
                oInvoice.Comments = rsForInvoice.Fields.Item("Comments").Value
                oInvoice.DocType = SAPbobsCOM.BoDocumentTypes.dDocument_Items
details -
                Dim StrFilter As String
                Dim z As Integer
                Dim RecCnt As Integer
                Dim oInvNum As String = 0
                rsFrInvDtls = oCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset)
                StrFilter = "SELECT * FROM qut1 WHERE DOCENTRY =" & rsForInvoice.Fields.Item("DocEntry").Value & " order by linenum "
                rsFrInvDtls.DoQuery(StrFilter)
                RecCnt = rsFrInvDtls.RecordCount
                z = 0
                Do While rsFrInvDtls.EoF = False
                    Dim prodCode As String
                    prodCode = rsFrInvDtls.Fields.Item("ItemCode").Value
                    If z = 0 Then
                        oInvoice.Lines.ItemCode = rsFrInvDtls.Fields.Item("ItemCode").Value
                        oInvoice.Lines.ItemDescription = rsFrInvDtls.Fields.Item("Dscription").Value
                        oInvoice.Lines.WarehouseCode = rsFrInvDtls.Fields.Item("WhsCode").Value
                        oInvoice.Lines.Quantity = rsFrInvDtls.Fields.Item("Quantity").Value
                        oInvoice.Lines.UnitPrice = rsFrInvDtls.Fields.Item("Price").Value
                        oInvoice.Lines.CostingCode = rsFrInvDtls.Fields.Item("OcrCode").Value '--- Profit Center             
                        ' oInvoice.Lines.TreeType = rsFrInvDtls.Fields.Item("TreeType").Value  '--- Profit Center
                        'oInvoice.Lines.AccountCode = rsFrInvDtls.Fields.Item("Acctcode").Value
                        oInvoice.Lines.LineTotal = rsFrInvDtls.Fields.Item("LineTotal").Value
                        oInvoice.Lines.BaseLine = rsFrInvDtls.Fields.Item("LineNum").Value
                        oInvoice.Lines.BaseEntry = rsForInvoice.Fields.Item("DocEntry").Value
                        oInvoice.Lines.BaseType = SAPbobsCOM.BoObjectTypes.oQuotations
                    Else
                        oInvoice.Lines.Add()
                        oInvoice.Lines.SetCurrentLine(z)
                        oInvoice.Lines.ItemCode = rsFrInvDtls.Fields.Item("ItemCode").Value
                        oInvoice.Lines.ItemDescription = rsFrInvDtls.Fields.Item("Dscription").Value
                        oInvoice.Lines.WarehouseCode = rsFrInvDtls.Fields.Item("WhsCode").Value
                        oInvoice.Lines.Quantity = rsFrInvDtls.Fields.Item("Quantity").Value
                        oInvoice.Lines.UnitPrice = rsFrInvDtls.Fields.Item("Price").Value
                        oInvoice.Lines.CostingCode = rsFrInvDtls.Fields.Item("OcrCode").Value '--- Profit Center             
                        'oInvoice.Lines.AccountCode = rsFrInvDtls.Fields.Item("Acctcode").Value
                        oInvoice.Lines.LineTotal = rsFrInvDtls.Fields.Item("LineTotal").Value
                        oInvoice.Lines.BaseLine = rsFrInvDtls.Fields.Item("LineNum").Value
                        oInvoice.Lines.BaseEntry = rsForInvoice.Fields.Item("DocEntry").Value
                        oInvoice.Lines.BaseType = SAPbobsCOM.BoObjectTypes.oQuotations
                    End If
                    z = z + 1
                    rsFrInvDtls.MoveNext()
                Loop
                rsFrInvDtls = Nothing
                Dim cResult As String
                Dim cMessage As String
                Dim dPostDate As Date
                cResult = ""
                If oInvoice.Add <> 0 Then
                    ' MsgBox("Error " + oCompany.GetLastErrorDescription())
                    cMessage = "Error " + oCompany.GetLastErrorDescription()
                    cResult = "Failed"
                    dPostDate = DateTime.Now.ToString
                    dPostDate = Date.Parse(dPostDate)
                    rUpdateStatus = oCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset)
                    SQLStr = "update [@TDOCPROC] set U_DOCSTATUS = '" & cResult & "' ,U_InvNum = " & oInvNum
                    SQLStr = SQLStr & ",U_REMARKS = '" & cMessage & "'"
                    SQLStr = SQLStr & ",U_POSTDATE = '" & dPostDate & "'"
                    SQLStr = SQLStr & " where u_DocEntry = " & rsForInvoice.Fields.Item("DocEntry").Value
                    rUpdateStatus.DoQuery(SQLStr)
                Else
                    Dim rs1 As SAPbobsCOM.Recordset
                    Dim retval As Long
                    Dim cValues As Integer
                    cResult = "Success"
                    oInvNum = oCompany.GetNewObjectKey()
                    oSalesQuotation = oCompany.GetBusinessObject(BoObjectTypes.oQuotations)
                    cValues = rsForInvoice.Fields.Item("DocEntry").Value
                    If (oSalesQuotation.GetByKey(cValues) = True) Then
                        oSalesQuotation.Close()
                        oSalesQuotation.Update()
                    Else
                        Dim errcode As String
                        Dim errmsg As String
                        oCompany.GetLastError(errcode, errmsg)
                        MsgBox(oSalesQuotation.CardCode)
                        MsgBox("Failed to Retrieve the record " & errcode & " " & errmsg)
                    End If
                End If
                dPostDate = DateTime.Now.ToString
                dPostDate = Date.Parse(dPostDate)
                rUpdateStatus = oCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset)
                SQLStr = "update [@TDOCPROC] set U_DOCSTATUS = '" & cResult & "' ,U_InvNum = " & oInvNum & ","
                SQLStr = SQLStr & " U_PostDate = '" & dPostDate & "'"
                SQLStr = SQLStr & " where u_DocEntry =" & rsForInvoice.Fields.Item("DocEntry").Value
                rUpdateStatus.DoQuery(SQLStr)
                'If oCompany.InTransaction = True Then
                '-ompany.EndTransaction(BoWfTransOpt.wf_Commit)
                'End If
                rsForInvoice.MoveNext()
            Loop
            rsForInvoice = Nothing
            '    'msg2send(NumOfInv) = oDocNum
            '    'Insert2OCTP(vDocNum, vDocDate, oDocNum, Now.ToShortDateString, vCardCode, vCardName)
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Function
   end code
thank you