Serial no in delivery document

Hi to all,
       i am facing some problem regarding print layout in delivery document .i want serial no in delivery doument.because serial no is print on separate page.i want print serial no. on delivery document .if i set serial no in prinlayout. it does not show serial no database table in delivery document...pls help me...
Regards,
vishal

HI,
IN 2007 version you can print the serial numbers. See the system PLD-s names "Delivery Including Batch/SN (System)"
Regards,
J.

Similar Messages

  • How can i restrict the change of serial number in delivery document ?

    how can i restrict the manual change of serial number in delivery document ?

    I can tell you that you are observing standard program behavior.       
    By using a reference document for a return delivery, you are only      
    receiving proposal values for a new document. The posting will not     
    create a permanent link between the referred document and the return   
    delivery document.                                                                               
    Hence it is allowed to change various fields. This applies not only    
    to serial numbers, but to storage location, quantity and other fields.

  • Serial Number on Delivery Document

    Hello All,
    I want to have the serial number of an item on the actual delivery document. I know that this is a standard functionality in 2007A. However, in my scenario, it doesn't work.
    I have an item DG0001 which is a serial managed item. If have another item BOQ0001 which is NOT a serial managed item. DG0001 is the child item of BOQ0001. When I create a delivery document, I deliver BOQ0001. as a result, it doesn't display any serial number. However, since i've left the default printing preferences as they are, it prints out the "Serial Numbers in Document" Report as well as my delivery note and on that I see the correct Serial Numbers.
    My question is, how do I get the serial number of a child item onto the delivery PLD?
    Thanks
    Reza

    As the other reply suggests - add a UDF and create a formatted search on that UDF.
    The formatted search could be a function call to a function you define in SQL Server which taken the ItemCode on the Delivery line as parameter and returns the Serial number as the result.
    The logic to drill in to the line items child and then fetch it serial numbers can be created in the SQL Function.
    Suda

  • Maxium number of serial numbers in delivery document (VL02n)

    Hi
    Can anyone know what is the maximum number of serial numbers that can be entered in delivery document (VL01N/VL02N)? I tried generating (automatically) serial numbers with line item quantity 999999 and system generated shot dump. Do let me know if there are any OSS notes for this.
    Thanks in Advance for your immediate feedback.
    thanks,
    Joseph Anand B

    Found Answer from OSS note
    Which note ??   Was the one suggested by me or a different one ??
    thanks
    G. Lakshmipathi

  • Adding Item managed by serial no.s to Delivery Document

    Hello Experts,
    Can you please help me in the following?
    I'll appreciate your help.
    I want to add items managed by Serial Number to delivery document (using DI API).
    We have a set of internal serial numbers to be used for those items.
    For E.g, we have to add an item with code A0001, quantity of 2, with internal serial numbers to be used 00080,00090
    to the delivery document.
    (We allow the user to specify the internal serial numbers to be used).
    I'm not sure how to get the system serial number for this item.
    I believe OSRI has the Serial No/Internal serial no. for each item, w.r.t the marketing documents. (Is each item has its own set of system serial nos & internal serial no.s? From where we need to take it?)
    Can you please post if you have any sample code?
    (If possible, can you please explain me the relationship between OSRI and marketing documents, and oitem)
    Thanks a lot.
    Regards,
    Geetha
    Code that I'm using:
    Private Function UpdateSerialNumbers(ByRef objSerialNumbers As SAPbobsCOM.SerialNumbers, ByVal strShpReqNm As String, ByVal strShpReqRw As String) As Boolean
    'Get the values of Internal Serial numbers from our table, into this RS.
    If objRS.RecordCount > 0 Then
    objRS.MoveFirst()
    Dim i As Integer
    If objSerialNumbers.Count <= 0 Then SerialNumbers.Add()
    For i = 0 To objRS.RecordCount - 1
      Dim strTmp As String
      strTmp = objRS.Fields.Item(0).Value() & ""
      objSerialNumbers.SetCurrentLine(i)
      objSerialNumbers.InternalSerialNumber = strTmp 'e.g 00080
    'Need your help in this step
      objSerialNumbers.SystemSerialNumber =     objCommon.GetNextKeyValue("OSRI", "SysSerial")
      objRS.MoveNext()
      If Not objRS.EoF Then
        SerialNumbers.Add()
      End If
    Next
    End If
    End If
    return true
    End Function
    Function CallingFn() as boolean
    UpdateSerialNumbers(objDLDoc.Lines.SerialNumbers, objHeaderInfo.ShipReqNum, strTmp)
    objDLDoc.Add
    End Function

    Geetha,
    let me explain you shortly how the serial data is stored in the database
    OSRI - Serial Numer for Items
    SRI1 - Serial No. Trans. for Item
    OSRI and SRI1 are "connected" by SysSerial
    SRI1 is connected to the Document Tables Lines (INV1, DLN1, ...)
    with BaseType, BaseNum and BaseLinNum to the Document
    a Serial Number is Unique - 1 SerialNr = 1 Quantity (thats the difference to Batches)
    regards
    David

  • Removing Serial Number from Delivery

    Hi Folks,
      I have a requirement of Removing Serial Number from Delivery Document. Is there is some BAPI or FM available for this?
      Thanks in Advance,
      Punit

    Hi Anirban,
      I tried the FM. By Using the FM status of Serial Number 'Assigned to Delivery' is removed.
      But I could still see the Serial Number attached to Line Item in tran VL02N.
      Following is the code I have written.
    MOVE: '0085003031'     TO DA_SERXX-LIEF_NR,
            '000030'         TO DA_SERXX-POSNR,
            '0000034226'     to DA_SERXX-OBKNR,
            'M047SBX050034'  TO SERNO-SERNR.
            APPEND serno.
    CALL FUNCTION 'SERNR_DEL_FROM_DOCUMENT'
      EXPORTING
        objkopf                    = 'SER01'
        serxx                      = DA_SERXX
        operation                  = 'SDD1'
        MATERIAL                   = 'BM20847'
        j_vorgang                  = 'PMSA'
      BSTCH                      =
      BSTUP                      =
      DEL_COMPLETE               = ' '
      PROFILE                    =
      BUDAT                      =
    IMPORTING
      ANZSN                      =
      SERIAL_COMMIT              =
      STATUS_NOT_ALLOWED         =
    TABLES
       SERNR                      = serno
       R_SERNR                    = e_serno
    CHANGING
       T_SMESG                    =  t_msg
    EXCEPTIONS
       OBJECTLIST_NOT_FOUND       = 1
       PARAMETER_ERROR            = 2
       OTHERS                     = 3
    Please Let me know if I am worng someware.
    Thanks a lot,
    Punit

  • DIAPI posting Delivery Document with Serial Numbers SP1

    Release 2005A, SP1 PL4 seems to have broken code that worked with SP00.  When trying to create a Delivery Document that contains Serial Numbers, an error is generated: Error -1, General Error.  When adding a delievery document which does not contain serial numbers, the document adds successfully.
    The following code loops through a recordset to create documents, add expenses and add serial numbers when appropriate.  Is this a new 'feature' or can we make a coding change to eliminate this error?
    Sample code:
        Try
          oSalesOrder = oCompany(piCompany).GetBusinessObject(SAPbobsCOM.BoObjectTypes.oOrders)
          RecSet = oCompany(piCompany).GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset)
          RecSet2 = oCompany(piCompany).GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset)
          RecSet3 = oCompany(piCompany).GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset)
          RecSet4 = oCompany(piCompany).GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset)
          RecSet5 = oCompany(piCompany).GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset)
          RecSet6 = oCompany(piCompany).GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset)
          '-- Select Documents to process and loop through recordset
          lsSQL = "SELECT DocEntry FROM DeliveryTable WHERE ProcessResult IS NULL Group by DocEntry"
          RecSet.DoQuery(lsSQL)
          While Not RecSet.EoF
            oSalesOrder.GetByKey(RecSet.Fields.Item(0).Value)
            If bDocuments(piCompany).DelDraft = False Then
              oDelivery = oCompany(piCompany).GetBusinessObject(SAPbobsCOM.BoObjectTypes.oDeliveryNotes)
            Else
              oDelivery = oCompany(piCompany).GetBusinessObject(SAPbobsCOM.BoObjectTypes.oDrafts)
            End If
            oDelivery.CardCode = oSalesOrder.CardCode
            oDelivery.Comments = "Based On Sales Order " & oSalesOrder.DocNum & "."
            oDelivery.DocDate = Today
            oDelivery.ContactPersonCode = oSalesOrder.ContactPersonCode
            oDelivery.DocCurrency = oSalesOrder.DocCurrency
            oDelivery.DocDueDate = Today
            If bDocuments(piCompany).DelDraft = True Then
              oDelivery.DocObjectCode = SAPbobsCOM.BoObjectTypes.oDeliveryNotes
            End If
            '-- Handle Expenses for Document
            Dim ExpenseLoop As Integer
            Dim ExpenseCount As Integer = 0
            For ExpenseLoop = oSalesOrder.Expenses.Count - 1 To 0 Step -1
            ExpenseCount += 1
              '-- Create new Expense if needed
              If ExpenseCount > oDelivery.Expenses.Count Then
                oDelivery.Expenses.Add()
              End If
              oSalesOrder.Expenses.SetCurrentLine(ExpenseLoop)
              '-- Copy all non-readonly properties
              If oSalesOrder.Expenses.LineTotal > 0 Then
                oDelivery.Expenses.BaseDocEntry = oSalesOrder.Expenses.BaseDocEntry
                oDelivery.Expenses.BaseDocLine = oSalesOrder.Expenses.BaseDocLine
                oDelivery.Expenses.BaseDocType = oSalesOrder.Expenses.BaseDocType
                oDelivery.Expenses.DeductibleTaxSum = oSalesOrder.Expenses.DeductibleTaxSum
                oDelivery.Expenses.DistributionMethod = oSalesOrder.Expenses.DistributionMethod
                oDelivery.Expenses.ExpenseCode = oSalesOrder.Expenses.ExpenseCode
                oDelivery.Expenses.LineTotal = oSalesOrder.Expenses.LineTotal
                oDelivery.Expenses.Remarks = oSalesOrder.Expenses.Remarks
                oDelivery.Expenses.TaxCode = oSalesOrder.Expenses.TaxCode
                oDelivery.Expenses.VatGroup = oSalesOrder.Expenses.VatGroup
              End If
            Next ExpenseLoop
            Dim i As Integer = 0
            Dim liMinRef As Integer = -1
            For x = 0 To oSalesOrder.Lines.Count - 1
              lsSQL = "SELECT ISNULL(MIN(CAST(LineRef as int)),999999) as MinLineRef FROM DeliveryTable WHERE DocEntry = " & RecSet.Fields.Item(0).Value & " AND CAST(LineRef as int) > " & liMinRef
              RecSet5.DoQuery(lsSQL)
              If Not RecSet5.EoF Then
                '-- It's possible that the DeliveryTable has less records then the RDR1 table - if that's the case
                '-- we may be at the end, so set the liMinRef field to something out of range
                liMinRef = RecSet5.Fields.Item(0).Value
              End If
              '-- get line items for each document
              lsSQL = "Select * from DeliveryTable WHERE DocEntry = " & RecSet.Fields.Item(0).Value & " AND LineRef = " & x & " AND ProcessResult IS Null"
              RecSet2.DoQuery(lsSQL)
              RecSet2.MoveFirst()
              While Not RecSet2.EoF
                '-- We need to walk through the SO to find the item that we are receiving based on the LineNum
                Dim liCurrentLine As Integer = x
                Dim lbFound As Boolean = False
                While liCurrentLine <= (oSalesOrder.Lines.Count - 1)
                  '-- We need to get the PO Line number (x is NOT the LineRef)
                  oSalesOrder.Lines.SetCurrentLine(liCurrentLine)
                  If oSalesOrder.Lines.LineNum = liMinRef Then
                    lbFound = True
                    Exit While
                  End If
                  liCurrentLine += 1
                End While
                If lbFound Then
                  i += 1
                  If i > oDelivery.Lines.Count Then
                    oDelivery.Lines.Add()
                  End If
                  oDelivery.Lines.BaseEntry = oSalesOrder.DocEntry
                  oDelivery.Lines.Quantity = RecSet2.Fields.Item(6).Value
                  oDelivery.Lines.BaseType = SAPbobsCOM.BoObjectTypes.oOrders
                  oDelivery.Lines.LineTotal = oSalesOrder.Lines.LineTotal * (oDelivery.Lines.Quantity / oSalesOrder.Lines.Quantity)
                  oDelivery.Lines.UserFields.Fields.Item("U_WhseLoc").Value = RecSet2.Fields.Item(8).Value
                  oDelivery.Lines.AccountCode = oSalesOrder.Lines.AccountCode
                  oDelivery.Lines.Address = oSalesOrder.Lines.Address
                  oDelivery.Lines.Currency = oSalesOrder.Lines.Currency
                  oDelivery.Lines.ItemCode = oSalesOrder.Lines.ItemCode
                  oDelivery.Lines.BaseLine = liMinRef
                  oDelivery.Lines.ItemDescription = oSalesOrder.Lines.ItemDescription
                  oDelivery.Lines.WarehouseCode = oSalesOrder.Lines.WarehouseCode
                  lsUserID = RecSet2.Fields.Item("UserID").Value
                  '-- manage serial numbers
                  j = -1
                  lsSQL = "Select * from DeliverySerial WHERE DocEntry = " & oDelivery.Lines.BaseEntry & " AND LineRef = " & liMinRef
                  lsSQL += " AND WIPLineRef = " & RecSet2.Fields.Item("WIPLineRef").Value
                  RecSet3.DoQuery(lsSQL)
                  While Not RecSet3.EoF
                    '-- get the next SystemSerialNumber for the Inventory Item
                    lsSQL = "EXEC " & gsDB(piCompany) & "xspGetSysSerial " & sparm(oDelivery.Lines.ItemCode) & ", " & sparm(RecSet3.Fields.Item("LotNo").Value)
                    lsSQL += ", " & sparm(RecSet3.Fields.Item("ManSerNo").Value) & ", " & sparm(RecSet3.Fields.Item("IntSerNo").Value)
                    lsSQL += ", " & RecSet3.Fields.Item("QTY").Value & ", " & sparm(oDelivery.Lines.WarehouseCode) & ", " & sparm(RecSet2.Fields.Item(8).Value)
                    RecSet4.DoQuery(lsSQL)
                      j += 1
                      If j + 1 > oDelivery.Lines.SerialNumbers.Count Then
                        oDelivery.Lines.SerialNumbers.Add()
                      End If
                      oDelivery.Lines.SerialNumbers.SetCurrentLine(j)
                      oDelivery.Lines.SerialNumbers.BatchID = RecSet3.Fields.Item("LotNo").Value
                      oDelivery.Lines.SerialNumbers.ManufacturerSerialNumber = RecSet3.Fields.Item("ManSerNo").Value
                      oDelivery.Lines.SerialNumbers.InternalSerialNumber = RecSet3.Fields.Item("IntSerNo").Value
                      oDelivery.Lines.SerialNumbers.SystemSerialNumber = RecSet4.Fields.Item(0).Value
                      oDelivery.Lines.SerialNumbers.BaseLineNumber = oDelivery.Lines.BaseLine
                    RecSet3.MoveNext()
                  End While
                  '-- 'end manage serial numbers
                End If
                RecSet2.MoveNext()
              End While
            Next x
            '-- now add object to SAP
            If 0 <> oDelivery.Add() Then
              Dim liError As Long
              Dim lsError As String
              Call oCompany(piCompany).GetLastError(liError, lsError)
              '-- write error code to table - Delivery document creation was unsuccessful
              lsSQL = "Update DeliveryTable SET ProcessResult = " & liError & ", ProcessDate = GetDate() WHERE DocEntry = " & oSalesOrder.DocEntry & " AND ProcessResult Is Null"
              RecSet2.DoQuery(lsSQL)
              lsuWriteEvent("AR Delivery", bDocuments(piCompany).DelDraft, oSalesOrder.DocEntry, liError, lsError, piCompany)
            Else
              lsuWriteEvent("AR Delivery", bDocuments(piCompany).DelDraft, oSalesOrder.DocEntry, 0, "Success", piCompany)
            End If
            RecSet.MoveNext()
          End While
        Catch
          LogErrorMessage(Err.Description)
        Finally
          If Not RecSet Is Nothing Then
            System.Runtime.InteropServices.Marshal.ReleaseComObject(RecSet)
          End If
          If Not RecSet2 Is Nothing Then
            System.Runtime.InteropServices.Marshal.ReleaseComObject(RecSet2)
          End If
          If Not RecSet3 Is Nothing Then
            System.Runtime.InteropServices.Marshal.ReleaseComObject(RecSet3)
          End If
          If Not RecSet4 Is Nothing Then
            System.Runtime.InteropServices.Marshal.ReleaseComObject(RecSet4)
          End If
          If Not RecSet5 Is Nothing Then
            System.Runtime.InteropServices.Marshal.ReleaseComObject(RecSet5)
          End If
          If Not RecSet6 Is Nothing Then
            System.Runtime.InteropServices.Marshal.ReleaseComObject(RecSet6)
          End If
          If Not oSalesOrder Is Nothing Then
            System.Runtime.InteropServices.Marshal.ReleaseComObject(oSalesOrder)
          End If
          If Not oDelivery Is Nothing Then
            System.Runtime.InteropServices.Marshal.ReleaseComObject(oDelivery)
          End If
          GC.WaitForPendingFinalizers()
        End Try

    We have narrowed down the issue to this:
    If you are just adding a delivery document with serial numbers, the DIAPI works OK.  If you are adding a delivery document which is based upon a sales order and add the 3 lines that reference it:
    oDelivery.Lines.BaseEntry = oSalesOrder.DocEntry
    oDelivery.Lines.BaseType = SAPbobsCOM.BoObjectTypes.oOrders
    oDelivery.Lines.BaseLine = liMinRef
    then you receive a error of -1, General error.  This is functionality that did work in 2004 and 2005 SP00.  I believe this is a bug.

  • Retrieve Multiple Serial Numbers for given Delivery Document and Item

    Hello Experts,
                          I am currently working on a 2Lis datasource to extract Delivery information.Now it is required to append the
    datasource with field (say ZZSERNO) which should extract ALL Serial Numbers from OBJK table for a given Delivery Item.
    I know that there is a link between table SER01 and OBJK to retrieve the same.However, my concern is- C_T_Data table is
    already providing the Delivery Information and along with that I want to display ALL Serial numbers for a given Delivery Item.
    A delivery Item can have more that one serial number linked to it as what I see in VL03N for a Delivery document.
    So currently in RSA3, I retrieve say 1 record for a given Delivery Document and Item .Now an Item has say 10 Serial Numbers
    associated with it, so i should see 10 Records for that Delivery Document and Item, after executing RSA3.
    Please provide me with the CMOD logic to do so.

    Hi,
    You can Link LIPS and OBJK tables with Delivery and Del Item.........refer below for the code.
    1) Declare an Internal table of type OBJK with fields DEL DOC, DEL ITEM and ZZSERNO .
    2) Declare another Internal Table ITAB_LIPS of type LIPS with required fields say in your case *DEL DOC, DEL ITEM and ZZSERNO....etc.
    3) Use below select statement to extract records from LIPS into ITAB_LIPS that you have declared for to fetch LIPS data.
    Select DEL DOC, DEL ITEM ( here i have included only few fields but as per requirement please add fields here)   from
    LIPS into corresponding fields of Table ITAB_LIPS.
    4) write one more select statement to fetch Serial number data.
    Select DEL DOC, DEL ITEM ZZSERNO  from OBJK into corresponding fields of TABLE ITAB_OBJK for all entries in ITAB_LIPS
    where DEL DOC = ITAB_LIPS-DEL DOC and
                DEL ITEM = ITAB_LIPS-DEL ITEM.
    Loop at ITAB_OBJK.
    Read table ITAB_OBJK into ITAB_LIPS with keys DEL DOC    DEL ITEM.
    ITAB_LIPS-DEL DOC = ITAB_LIPS-DEL DOC
    ITAB_LIPS-DEL ITEM = ITAB_OBJK-DEL ITEM.
    IF SY-SUBRC = 0.
    ITAB_LIPS-ZZSERNO = ITAB_OBJK-ZZSERNO.
    ENDIF
    ENDLOOP.
    Hope the above code helps
    Sujan

  • DIAPI posting Delivery Document with Serial Numbers

    Hi,
    I am using SAP 2005A, SP01, Patch 8. I am not able to create a delivery document based on Sales Order with serial number items.
    Code is given below. The error i get is
    Error No: -10, Message: [DLN1.WhsCode][line: 0] , 'The selected quantity of batch/serial numbers is greater than the open quantity.'
    When i checked the openqty in the sales order it is 0 and i guess we cannot set it thru DIAPI. Any solutions?
    Dim oSO As SAPbobsCOM.Documents
    Dim oDlv As SAPbobsCOM.Documents
    oSO = pcompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.oOrders)
    oDlv = pcompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.oDeliveryNotes)
    ' iSoDocEntry contains Sales Order no
    If oSO.GetByKey(iSoDocEntry) = True Then
    oDlv.CardCode = oSO.CardCode
    oDlv.DocDueDate = oSO.DocDueDate
    oDlv.Comments = "Based on Sales Order " & iSoDocEntry & "." & oSO.Comments
    oDlv.Address = oSO.Address
    oDlv.ShipToCode = oSO.ShipToCode
    oDlv.Address2 = oSO.Address2
    oDlv.AgentCode = oSO.AgentCode
    oDlv.DocType = SAPbobsCOM.BoDocumentTypes.dDocument_Items
    oDlv.DocumentSubType = SAPbobsCOM.BoDocumentSubType.bod_None
    oDlv.Lines.BaseLine = iRowNo
    oDlv.Lines.BaseType = SAPbobsCOM.BoAPARDocumentTypes.bodt_Order
    oDlv.Lines.BaseEntry = iSoDocEntry
    Dim objSerialNum As SAPbobsCOM.SerialNumbers
    Dim sSerialNumbers(), sSysSerialNumbers(), sInternalSerial() As String
    Dim iCount As Integer
    objSerialNum = oDlv.Lines.SerialNumbers()
    sSerialNumbers = sSupSerial.Split(",") ' Contains the List of Supplier Serial Nos value of the Selected serials
    sSysSerialNumbers = sSysserial.Split(",") ' Contains the List of Sys Serial value of the selected serials
    sInternalSerial = sInternal.Split(",") ' Contains the List of Internal Serial value of the selected serials
    For iCount = 0 To sSysSerialNumbers.Length() - 1
    objSerialNum.InternalSerialNumber = sInternalSerial.GetValue(iCount)
    objSerialNum.ManufacturerSerialNumber = sSerialNumbers.GetValue(iCount)
    objSerialNum.SystemSerialNumber = sSysSerialNumbers.GetValue(iCount)
    objSerialNum.SetCurrentLine(iRowNo)
    objSerialNum.Add()
    Next
    end if
    iReturnValue = oDlv.Add()
    Thanks,
    Jayakumar

    Hey,
    I was having the same problem... With that error though I found that when I wrote the Delivery Obj to an XML file that every time that you add a Serial Number Line you are adding a blank Serial number line, and thus producing that error. I have also seen other post the same problem with the same solution of removing the Add completely for all serial numbers. Just a warning as well. If you want to create a Delivery Withless items then the assosiated SO, There seems to be a bug with SAP that will give you a error stating that some random Item (one that may or may not be in the sales order) does not have a system Serial number avaliable...
    Anyways, that has been my experience,
    Hope this helps
    Jeremy Adam

  • Adding a delivery document with serial numbers

    Hi everyone,
    A delivery document is created in code and the item delivered requires a serial number. In this example there is a quantity of two so two serial numbers will need to be added.
      Dim oCompany As New SAPbobsCOM.Company, lRetCode As Long
            Dim oSerialNumbers As SAPbobsCOM.SerialNumbers
            Dim oDelivery As SAPbobsCOM.Documents
            Dim RetVal As Long
            Dim ErrCode As Long
            Dim ErrMsg As String
                oDelivery = oCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.oDeliveryNotes)
                oDelivery.CardCode = "KellyD"
                oDelivery.DocDate = "09/20/2005"
                oDelivery.Lines.ItemCode = "MDASTPE"
                oDelivery.Lines.Quantity = 1
                oDelivery.Lines.TaxCode = 0
                oDelivery.Lines.Price = 300
                oSerialNumbers = oDelivery.Lines.SerialNumbers
                ??What code goes here to enter the serial numbers??
                RetVal = oDelivery.Add
    Any help would be appreciated.
    Thanks.

    Hi
    try this or something alike
    oSerialNumbers.add() ' i'm not sure if its necessary
    oSerialNumbers.SetCurrentLine(0)
    oSerialNumbers.InternalSerialNumber="yourfirstserial"
    oSerialNumbers.add()
    oSerialNumbers.SetCurrentLine(1)
    oSerialNumbers.InternalSerialNumber="yourSecondserial"
    tell me results
    Kind regards
    Salvador Biot

  • Serial Numbers and Delivery not automated.

    "The serial number field on the delivery is only a text field and requires user input. The actual serial numbers shipped on the delivery are not put in this field automatically by the system as you know. This is how it works. The serial number data is stored in different tables, OSRI and SRI1 and linked to the delivery document."
    We have been manually typing the S/N into the delivery form so that we can have it print packing lists and invoices. Once we select the S/N for the delivery it should automatically update the delivery form.
    The Delivery form does not automatically fill in the S/N once we select a s/n. Here is a scenario
    1.)Select a Sales Order that has an item that requires a s/n.
    2.) Copy SO to Delivery
    3.) Click Add or put the cursor in the proper row of the s/n column and hit enter. A new window showing available S/N should appear.
    4.) Select the S/N, assign to this SO and click Update then OK.
    5.) Repeat if more then 1 item requires a s/n.
    6) When done,  click ADD and a new Delivery ticket is created. Note at this time the S/N are not showing in the Delivery Form.
    7) You can now click Print Preview and it will show the Packing List along with a page for serial numbers. Also a Crystal Report Packing list is generated, but the s/nu2019s are not listed.
    The only way we can get s/nu2019s to show on the Delivery form and in Crystal .Reports is to MANUALLY type the s/n into the Delivery form. We want to avoid typing the data, potential for typou2019s. This should be something the software  does for us.

    We're wondering the same thing. Would a bar code scanner work? The data would have to be displayed on a PC or something where it could be recorded.
    Yes and no.  
    We have a small Bluetooth barcode scanner.  Works well if the bar codes were printed better.  I mean, the bar codes for switches/routers are "readable" but for wireless access points, you would need several attempts to get it to read.  
    Alternatively, you can read the bar codes from the box.  I only use this as a "last resort" because I have seen, in two occasions, that the codes in the box and the the ones from the appliance don't match.  

  • Delivery Document closing -5002

    Hi,
    I am closing my delivery document and the document doesn’t close with item with serial number; I get error -5002 and the document doesn’t close.
    Is there a special routine to close a delivery document with items with serial number?
    Thank you,
    Rune

    hi Rune,
    there's only one way to close a document
    the .Close Methode
    odocument.close
    there's no special way with serial numbers

  • Update delivery document from IDOC

    Hi Friends,
    As i am new to EDI, I need your help for the below requirement.
    The requirement demands
    There are 3 existing IDoc fields when filled in the values need to overwrite the fields on the delivery header.But these values in the IDoc are currently not automatically copied in the delivery header. So i need your help to solve this problem.
    And also i have one more requirement like there is a serial number used. This will be put in idoc segment E1EDL24/E1EDL11 field SERNR. When updating the delivery (VL02N) this serial number has to be filled in the delivery.
    I need help in solving the above 2 issues.
    Thanks,
    Raj

    Hi Venkat ,
    what is your req ?
    1 .you want to update the delivery document .
    2. .you want to update the delivery document by Idoc only..
    If not by Idoc then you can do it easily by making a File to RFC scenario where in RFC incorpoarate BDC Call transaction logic and update the Delivry doc..
    Simple..:-)
    Regards,

  • How to create place holders for serial numbers in billing document

    Hey Guys,
    I want to create place holders for serial numbers in the billing documents so that the serial number information along with the material number is copied from the delivery document into the billing document. Could you please suggest how to do this.

    Hey friend,
    We have a user exit for that however I don’t remember it. It is known issue as it is essential in India for a telecom industry. They need to declare their invoice no. according to the area. So they are assigning there no ranges with plants. Here plants are nothing but different region.
    So you try to find out that exit as you have the similar requirement. And your problem will be solved. If your ABAPer don’t get the user-exit and it’s really urgent come back I will find it out for you.

  • Error when reverse delivery document

    Hi Gurus
    Basically we are pipe coating company (Service based)
    We are using serial number management for pipes .GRN for pipe has been done and serial number assigned to it.
    While doing dispatch the one serial number has been taken by  two different delivery doc.(which we have seen from them serial number history)
    For Some reason we cancelled all the delivery for the sales order in vl09.
    Since the one delivery doc is reversed the serial number is taken by that document.
    When we do for other delivery document we are not able to reverse we are getting the following error,
    System status ESTO is active (EQU 62784)
    Message no. BS013
    Diagnosis
    Object EQU 62784 has system status ESTO (In the warehouse).  According to this status, transaction 'Goods receipts' is not allowed.

    Hi KK,
    Please post it in the correct functional forum so that your issue will be resolved at the earliest.
    This forum is for performance tuning.
    Please close this thread and open it in the correct forum.
    Cheers,
    Raja.D

Maybe you are looking for