Example Order and Invoice in the SDK examples

Question

hi all,
i am programming with the DI API in VB6 and i want to perform a normal order and invoice transaction! The example which comes with the SDK is in .NET! How can i do this in VB6, because at the moment i have certain problems to combine the business partners with the corresponding items, they are selling!
Thanks for your help!

Answer 1

Hi
Here is an example of how to add a sales order. The invoice is very similar, just change the document type.
  Dim oBP As SAPbobsCOM.BusinessPartners
        Dim BPCodeStr As String
        oBP = oCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.oBusinessPartners)
        Dim oOrderDoc As SAPbobsCOM.Documents
        oOrderDoc = oCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.oOrders)
        BPCodeStr = BPCode.Text
        If oBP.GetByKey(BPCodeStr) Then
            oOrderDoc.CardCode = BPCodeStr
            oOrderDoc.DocDueDate = Now
            oOrderDoc.Lines.ItemCode = Item1.Text
            oOrderDoc.Lines.Quantity = Qty1.Text
            oOrderDoc.Lines.Add()
            oOrderDoc.Lines.ItemCode = Item2.Text
            oOrderDoc.Lines.Quantity = Qty2.Text
            lRetCode = oOrderDoc.Add
            If lRetCode <> 0 Then
                MessageBox.Show("Not Added")
            ElseIf lRetCode = 0 Then
                oCompany.GetNewObjectCode(OrderStr)
                MsgBox(OrderStr)
            End If
        End If
Hope this helps