SAP Business One DI API 10.0 - Objects Reference (10.00.320)

• Creating a draft document sample

  • Tablelist
  • DI API
  • Service Layer

  • • Description

      The following sample shows how to create a draft invoice document.

  • • Example

      Sub AddInvoice_Click()     Dim RetVal As Long     Dim ErrCode As Long     Dim ErrMsg As String     'Create the Documents object     Dim vDrafts As SAPbobsCOM.Documents     Set vDrafts = vCmp.GetBusinessObject(oDrafts)     'Set values to the fields     vDrafts.DocObjectCode = oInvoices     vDrafts.CardCode = "BP234"     vDrafts.HandWritten = tNO     vDrafts.DocDate = "21/8/2003"     vDrafts.DocTotal = 264.6     'Invoice Lines - Set values to the first line     vDrafts.Lines.ItemCode = "A00023"     vDrafts.Lines.ItemDescription = "Banana"     vDrafts.Lines.Quantity = 50     'Invoice Lines - Set values to the second line     vDrafts.Lines.Add     vDrafts.Lines.ItemCode = " A00033"     vDrafts.Lines.ItemDescription = "Orange"     vDrafts.Lines.Quantity = 1     'Add the Invoice     RetVal = vDrafts.Add    'Check the result     If RetVal <> 0 Then         vCmp.GetLastError ErrCode, ErrMsg         MsgBox ErrCode & " " & ErrMsg     End If  End Sub