Skip to Content
avatar image
Former Member

Issue while Submitting delivery against Pick list from DI-API for Non-Track Item

Dim rs As SAPbobsCOM.Recordset = DirectCast(oCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset),
SAPbobsCOM.Recordset)
            Dim delivery As Documents = oCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.oDeliveryNotes)
            Dim oOrder As SAPbobsCOM.Documents = DirectCast(oCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.oOrders),
SAPbobsCOM.Documents)
            Dim picking As SAPbobsCOM.PickLists = DirectCast(oCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.oPickLists),
SAPbobsCOM.PickLists)
            Dim oItem As SAPbobsCOM.Items = DirectCast(oCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.oItems),
SAPbobsCOM.Items)
            picking.GetByKey(Int32.Parse(370))
            Dim cadena As Boolean = oOrder.GetByKey(Int32.Parse(939))If cadena Then
                delivery.CardCode ="ABCD"
                delivery.CardName =""
                delivery.DocDate = DateTime.Now
                delivery.DocDueDate = DateTime.Now
                Dim val As Integer =0
                Dim lineas As Integer =1For r As Integer =0To picking.Lines.Count-1If r >0Then
                        delivery.Lines.Add()EndIf
 
                   
picking.Lines.SetCurrentLine(r)If
picking.Lines.OrderEntry.Equals(Int32.Parse(939))Then
 
                        delivery.Lines.BaseType
= CInt(SAPbobsCOM.BoObjectTypes.oOrders)
                       
delivery.Lines.BaseEntry = picking.Lines.OrderEntry
                        delivery.Lines.BaseLine
= picking.Lines.OrderRowID
                        delivery.Lines.ItemCode ="AA-N"
                        delivery.Lines.Quantity
=1
                       
delivery.Lines.BinAllocations.BinAbsEntry =
picking.Lines.BinAllocations.BinAbsEntry
                       
delivery.Lines.BinAllocations.Quantity =1
                       
delivery.Lines.BinAllocations.SerialAndBatchNumbersBaseLine =
delivery.Lines.BaseLine
 
                    EndIf
                    val = delivery.Add()
 
                    lineas +=1NextIf val <>0Then''Error
                Else''Delivery Created Successfully.EndIfEndIf

Add comment
10|10000 characters needed characters exceeded

  • Get RSS Feed

1 Answer

  • Nov 15, 2017 at 05:35 AM

    Hi,

    It looks same as here:

    Duplicate Question

    Kind regards,

    ANKIT CHAUHAN

    SAP SME Support

    Add comment
    10|10000 characters needed characters exceeded