Created purchase order based in drafts

Question

I need help, I want to create purchase order based in drafts.
Has somebody any sample in SDK??
Thanks.

Answer 1

Hi Santiago,
Please see your Help Filesprovided with the SDK:
DI-API > Reference > Overview > Objects > Documents. Below on that page you'll find a nice link to the sample below. Replace the <i>vDrafts.DocObjectCode = oInvoices</i> with order and you're set.
Hope it helps,
Rowdy
<b>Code (VB from the Help File)</b>
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