cancel
Showing results for 
Search instead for 
Did you mean: 

Help me, Create Goods Receipt by Batch witch DI API

Former Member
0 Kudos

I' want example code Create Goods Receipt by Batch with DI API ?

Thank you for reply

Edited by: Mdiaw2552 on Mar 26, 2010 11:59 AM

Edited by: Mdiaw2552 on Mar 26, 2010 12:04 PM

Accepted Solutions (0)

Answers (1)

Answers (1)

Former Member
0 Kudos

Hello,

oGrp = oCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.oPurchaseDeliveryNotes)
        'Add Header Goods Receipt
        oGrp.CardCode = "CC1"
        oGrp.CardName = "Card Code 1."
        oGrp.DocDate = Now
        oGrp.DocDueDate = Now
        oGrp.TaxDate = Now


        oGrp.Lines.ItemCode = "BATCH"
        oGrp.Lines.Quantity = 10
        oGrp.Lines.Price = 10000

        oGrp.Lines.BatchNumbers.SetCurrentLine(0)
        oGrp.Lines.BatchNumbers.BatchNumber = "1"
        oGrp.Lines.BatchNumbers.Quantity = 10
        oGrp.Lines.BatchNumbers.Add()
        RetVal = oGrp.Add()

        If RetVal <> 0 Then
            oCompany.GetLastError(ErrCode, ErrMsg)
        End If

Regards

J

Former Member
0 Kudos

I'm sorry

Code full : variable "oGrp" Dim oGrp as ?

oGrp = oCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.oPurchaseDeliveryNotes)

Thank you very much I will try to do more.

Edited by: Mdiaw2552 on Mar 26, 2010 12:30 PM