8.8 Invoice based on Order

Question

Hi all,
I am trying to create an invoice based on a sales order.
I have this code which worked fine in SBO 2007 but now in 8.8 I get -2010 : Internal error
oDoc = (SAPbobsCOM.Documents) oCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.oInvoices);
oDoc.CardCode = sCardcode;
oDoc.Lines.BaseType = 17;
oDoc.Lines.BaseEntry = int.Parse(docentry);
oDoc.Lines.BaseLine = 0;
Can anyone help me with this?
Thanks

Answer 1

Hi Gordon,
It is a variable, but that is not the issue I think.
But just in case: here is the complete code
oCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset);
try
     SAPbobsCOM.Documents oDoc = (SAPbobsCOM.Documents) oCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.oInvoices);
     Matrix matrix = Matrix.GetFromUID(pVal.Form, "10");
     int rowcount = matrix.Rows.Count;
     string prev_docnum = "";
     string docnum = "";
     string docentry = "";
     string cardcode = "";
     int retval = 0;
     for(int i = 0;i <= rowcount-1;i++)
          docnum = matrix.GetValue("11", i);
          cardcode = matrix.GetValue("10", i);
          string regel = matrix.GetValue("12", i);
          string itemcode = matrix.GetValue("8", i);
          if(prev_docnum != docnum)
               if(prev_docnum != "")
                    retval = oDoc.Add();
                    if(retval != 0)
                         int errcode;
                         string errmsg;
                         oCompany.GetLastError(out errcode, out errmsg);
                         StatusBar.WriteError(String.Format("Fout bij verkooporder {0} - {1}: [{2}] {3}",
                              docnum,
                              cardcode,
                              errcode.ToString(),
                              errmsg));
                    else
                         string newdoc;
                         oCompany.GetNewObjectCode(out newdoc);
                         SAPbobsCOM.Recordset oRs = (SAPbobsCOM.Recordset) oCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset);
                         try
                              oRs.DoQuery(String.Format("SELECT DocNum, convert(varchar(8),DocDate,112), CardName FROM OINV WHERE DocEntry = '{0}'", newdoc));
                              StatusBar.WriteSucess(String.Format("Nieuwe factuur aangemaakt: {0} - {1}",
                                   oRs.Fields.Item(0).Value.ToString(),
                                   oRs.Fields.Item(2).Value.ToString()));
                         finally
                              System.Runtime.InteropServices.Marshal.ReleaseComObject(oRs);
                              oRs = null;
                              GC.Collect();
                    oDoc = null;
                    oDoc = (SAPbobsCOM.Documents) oCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.oInvoices);
               // GET DOCENTRY
               SAPbobsCOM.Recordset oRsDoc = (SAPbobsCOM.Recordset) oCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset);
               try
                    oRsDoc.DoQuery(String.Format("SELECT DocEntry FROM ORDR WHERE DocNum = '{0}'", docnum));
                    docentry = oRsDoc.Fields.Item(0).Value.ToString();
               finally
                    System.Runtime.InteropServices.Marshal.ReleaseComObject(oRsDoc);
                    oRsDoc = null;
                    GC.Collect();
               oDoc.CardCode = cardcode;
               oDoc.DocDate = DateTime.Now;
          oDoc.Lines.BaseType = 17;
          oDoc.Lines.BaseEntry = int.Parse(docentry);
          oDoc.Lines.BaseLine = int.Parse(regel) - 1;
          oDoc.Lines.Add();
          oDoc.Lines.SetCurrentLine(int.Parse(regel) - 1);
          prev_docnum = docnum;
     // ADD LAST INVOICE
     retval = oDoc.Add();
     if(retval != 0)
          int errcode;
          string errmsg;
          oCompany.GetLastError(out errcode, out errmsg);
          StatusBar.WriteError(String.Format("Fout bij verkooporder {0} - {1}: [{2}] {3}",
               docnum,
               cardcode,
               errcode.ToString(),
               errmsg));
     else
          string newdoc;
          oCompany.GetNewObjectCode(out newdoc);
          SAPbobsCOM.Recordset oRs = (SAPbobsCOM.Recordset) oCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset);
          try
               oRs.DoQuery(String.Format("SELECT DocNum, convert(varchar(8),DocDate,112), CardName FROM OINV WHERE DocEntry = '{0}'", newdoc));
               StatusBar.WriteSucess(String.Format("Nieuwe factuur aangemaakt: {0} - {1}",
                    oRs.Fields.Item(0).Value.ToString(),
                    oRs.Fields.Item(2).Value.ToString()));
          finally
               System.Runtime.InteropServices.Marshal.ReleaseComObject(oRs);
               oRs = null;
               GC.Collect();
     oDoc = null;
catch(Exception ex)
     StatusBar.WriteError(ex.Message);