cancel
Showing results for 
Search instead for 
Did you mean: 

Created purchase order based in drafts

Former Member
0 Kudos

I need help, I want to create purchase order based in drafts.

Has somebody any sample in SDK??

Thanks.

Accepted Solutions (1)

Accepted Solutions (1)

Former Member
0 Kudos

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

Answers (0)