Delivery note - Scripts

Hi Dear ABAP expets,
I need the selection parameters for the Delivery Note.
Rgds,
Raju

use delivery note no, delivery date, customer code.
but why these r all required? are u going to create your own delivery note printout program?
Reward if useful
Regards
ANUPAM

Similar Messages

  • Logic of Delivery Note in Scripts

    Hi Friends,
    In script of delivery Note I need to print wholesale price, Retail price and Net price.
    Can any one let me know from which tables I can get and display on the output.
    I have tried through KOMV table but the data its not picking.
    The following piece of code is which I am trying
    IL           &VBDPL-POSNR+00(06)&,,&VBDPL-MATNR(15)&,,&VBDPL-  LFIMG(I15)&
    =           &VBDPL-VRKME(03)&,,&KOMVD-KWERT(I14)&</>
    IL           ,,&VBDPL-ARKTX&
    /*           ,,&'Customer article number'VBDPL-IDNKD''&&'Item'VBDPL-POSEX&
    /           ,,&'Batch'VBDPL-CHARG&
    <b>  OR this</b>
    /*           <K>,,&VBDPR-POSNR+2&,,</>
    /*           =<K>&VBDPR-MATNR&/&VBDPR-ARKTX(30)&,,</>
    /*           /:IF &KOMV-KSCHL& = 'Z001'
    /*           =<K>&KOMV-KWERT(13)&</>
    /*           /:ENDIF
    /*           /*<K>&KOMVD-KWERT(13)&</>
    /*           =<K>,,&VBDPR-FKIMG(I3)&,,&VBDPR-VRKME&,,&VBDPR-NETWR(I9)&
    /*           =&VBDPR-WAERK(3)&,,&KOMVD-KWERT(I14)&</>
    /*           /*&VBDPR-WAERK(3)&,,&KOMK-FKWRT(I14)&
    /*           ZL,,,,&'<K>Batch: 'VBDPR-CHARG&</>

    Hi,
    I think that the prices you want to print are available in the price determination flow.
    You have to search for the functin RV_PRICE_PRINT_ITEM in the control print program: in the internal table KOMP you find all the prices you need. Then you have to use some custom global variables to contain this values so the SAPscript can use them.
    Antonino

  • How to put footer in the Delivery note  sap script form.

    Hi All,
      i am new to SAP SCRIPT , can any one guide us how to Create a footer in the Delivery note sap  script.
      I need to put  some message if the stock of the material is "0"(zero).
           can anyone  tell me the process to do this.
    Thanks
    Channappa Sajjanar

    Hi,
    U create a window in script (Footer), and in the Driver program call this window at last..
    eg:
    create a window in script and call it at the end in the layout..
    /E FOOTER
    P1 'Write Required text what u want to display;.
    now in print program, after printing all the line items in ur internal table call the FM write_form to print the footer...
    LOOP AT itab.
      call function 'WRITE_FORM'
        exporting
         window = 'MAIN'
        exceptions
          others = 1.
    endloop.
    now call, FM write_form to print the footer
    IF stock EQ 0.
    call function 'WRITE_FORM'
        exporting
         window = 'FOOTER'
          element = 'FOOTER'
        exceptions
           others = 1.
    endif.
    Hope it helps!!
    Rgds,
    Pavan

  • DG Output on Delivery Note

    Dear Experts,
    THis is regarding form for LD00.
    For getting DG data on form, there is one std form in sap which is RVDELNOTE. The respective print program is RVADDN01
    Please note that, I have exported RVDELNOTE in All Languages from another IDES system and Imported the same in my system.
    I have replaced this LE_SHP_DELNOTE with RVDELNOTE  then I am getting error: Output could not be issued
    As this is script and not the smartform, I have tried following two combinations In transaction NACE, but still error continue
    Combination 1)
    Medium: Print Output
    Program: RVADDN01
    Form Routine: ENTRY
    Form:BLANK
    PDF/SamartForm Form: RVDELNOTE
    Type: BLANK
    Combination 2)
    Medium: Print Output
    Program: RVADDN01
    Form Routine: ENTRY
    Form:RVDELNOTE
    PDF/SamartForm Form: BLANK
    Type: BLANK
    again if I assign LE_SHP_DELNOTE, it is working fine..
    on the other hand, RVDELNOTE is also Standard SAP Script. I have not done any changes in it.
    Pls guide,
    Regards
    Amol
    Note: I am already referring the Note 453250 - No dangerous goods data on delivery note: Possible causes

    Problem resovled at my own..
    Thanks...

  • Delivery note in Russia with prices

    In Russia, there is a legal requirement to send a delivery note with prices printed on it along with the goods. It is having a layout which is given by Goverment. Is there any standard SAP program & script used to print the delivery note with prices in Russia.
    Thank you so much for your help in advance.

    Hi,
    I am not aware of standard forms (at least there was no such when we were developing Russian layouts in 2008..).
    As a watchout however you need to note that the pricing of those documents (1T etc.) with pricing need to have exactly the same price as later on when you generate the invoice. So when there are any quantity cuts you need to recalculate all pricing from SO taken into account new quantities. And pay special attention there to rounding issues.
    The format of the layout itself is less of a problem.
    Regards,
    Dominik Modrzejewski

  • Providing subroutines for delivery note

    how to tprovide subroutines for rvdelnote using smartforms.pla tell me its urgent.

    Hi
    This is a script and only in scripts we use the external Subroutines to get data from outside since in scripts we can't write the code
    where as in Smartforms you can create your own PROGRAM LINES in the respective window and can write the code and fetch the data and can be used
    so no need of writing subroutines in smartforms
    DELIVERY NOTE
    Output type         : LD00
    ScriptForm Name     : RVDELNOTE
    Driver Program Name : RVADDN01
    smartform name      <b>: LE_SHP_DELNOTE</b>
    Smartform Driver Pgm: RLE_DELNOTE
    Regards
    Anji

  • Invoice and delivery notes - idocs..

    Hello SD experts,
    I am new to SD.
    Can any one tell me what is the invoice. I mean
    what are the table AND transaction codes I have to go and check ?
    What are delivery notes ?
    My functional consultant is telling that
    there is a consolidated invoice and there are 2 delivery notes that are being combined for this invoice. The invoice # is 6016186004
    For DN#   6073107044 there is a VICS BOL that was passed back that is = 04000000000016146 
                   6073107045 there is a VICS BOL that was passed back that is = 04000000000016023
    and he wants to know how the program selects which VICS BOL fields in IDOC.  He gave me to use IDOC #77122253 in quality system for testing.
    In this case , Idoc checking/testing...I need to go to RSNAST00 program ?
    If so then what are the I need to give
    Output application    (is it V1 or MR ?)       
    Output type    ??

    hi ..
    Please refer below..
    for invoice ,  tables: VBRK and VBRP
    AND transaction codes : VF01 to 03.
    What are delivery notes ?
    after goods issue, we need to issues delivery note to customer.
    In this case , Idoc checking/testing...I need to go to RSNAST00 program ?
    you need to go to VL70 or you can process with RSNAST00.
    Output application type : V2
    Output type : LD00
    Regards
    Venkat.. Ananth Technologies

  • How to create excise invoice with refer to Delivery Note

    Hi SAP Expert,
    I am doing STOCK Transport process from factory to depot and hitting error while creating excise invoice in Factory.
    From SAP help on Creating Excise Invoice, it said :
    From the SAP Easy Access screen, choose Indirect Taxes ® Sales/Outbound Movements ® Excise Invoice ® For Sales Order ® Outgoing Excise Invoice Create/Change/Display ® …
    If you want to create the excise invoice with reference to a pro forma excise invoice or commercial invoice, choose Excise Invoice ® Create.
    If you want to create the excise invoice with reference to a delivery note, choose Exc. inv. for delivery ® Create.
    Enter the number of the reference document.
    - When i created the excise invoice with reference to a STO Delivery Note, i am getting error : " For delivery 800050092 no document of type JEX exist "
    - I already setup the config to assign Delivery Type NL to billing type JEXP.
    I was doing the steps as below :
    1. ME21N u2013 Create Stock Transport Order
    2. VL10B u2013 Create Outbound Delivery w.r.t. STO
    3. J1IIN u2013 Create Outgoing Excise Invoice w.r.t. Delivery Note
    - Anything that i am missing ?

    Hi Guru,
    Thanks for your reply. It is my typo error. I have maintained the delivery type NL to billing type JEX, instead of JEXP
    I am getting error :
    For delivery 800050092 no document of type JEX exist
    Message no. 8I320
    Diagnosis
    The excise reference document defined does not exist for the delivery.
    Procedure
    Create the excise reference document before running the excise posting transaction.
    - What is it means by create the excise reference document before running the excise posting transaction ? Do I need to create Pro-forma invoice prior to execute transaction J1IIN ?
    I did not check the selection for ": Excise Inv during Billing " in my Excise Group maintainance.

  • Error while Adding a Delivery Note with Barcode

    When i add the deliverynote , i get the following error :
    Error Code : -10 : Document can not be added: Base line item has been updated, re-transmitting the document data from the base document .
    or
    Access violation error
    This happens only when i assign a barcode to the item in the Item Master Data ( Eg : ITM001 is assigned a barcode ) .This works fine when the barcode is not assigned to the item .
    What is the cause of this error ?
    Obj := IDocuments(Company.GetBusinessObject(oDeliveryNotes));
    Obj.CardCode         := 'B1010';
    Obj.Lines.Add;
    Obj.Lines.BaseType   := bodt_Order;
    Obj.Lines.BaseEntry  := 100;
    Obj.Lines.BaseLine   := 0;
    obj.Lines.ItemCode := 'ITM001';
    Edited by: senthil kumar on Dec 2, 2009 1:04 PM

    Hello,
    I had the same problem. This occurs. when you change the barcode between sales order and delivery note, and YOu are issuing the Delivery note by DI API.
    To do:
    - Open Sales Order
    - OverWrite in the lines the barcode to the same as Material Master Data
    - Update sales order
    Issue delivery note.
    SAP Note number: 1314220
    Regards
    János

  • MIGO - GR Against Purchase Order -  Delivery Note # not to Repeat !!

    Hi all,
    Here is a interesting requirement from the business user!!
    Scenario: Currently they are making Goods receipt against Purchase order in Transaction MIGO. Delivery Note # (LFSNR) is entered during Posting.
    Problem: Recently they did MIGO for Purchase order, by mistake they did Goods receipt twice for same vendor delivery note # !
    Question: Can you please suggest a way to validate the Delivery note # field of MIGO, Such that it is unique. If the number is Repeated for the Same Vendor, system should throw a error message, stating that Delivery note # already exists. So that it avoids posting of GR for same delivery note even by mistake !!
    I thought of validating this entry in MSEG Table, but problem is it will delay the posting of document !!
    Is there a standard user exit or setting to validate this field during posting!!
    Thanks in advance.
    Regards,
    Thiyagu

    Joven,
    If you see transaction VL31, Creation of Inbound Delivery, SAP did the validation for EXTERNAL ID in the Input screen of the Transaction. If we try to repeat the External id #, system throws error message as below.
    "The external ID of the delivery note is not unique (see inb. dely
    0180267952)"  Message no. BORGR547
    When we make Goods receipt against Inbound Delivery instead Purchase order. We may over come the problem some how. Reason is that during Inbound Delivery creation itself External ID is validated. During GR against Inbound Delivery this External Id gets copied as Delivery Note #, so this is the alternative i thought !!
    Thanks,
    Thiyagu

  • Delivery note from sale order

    Hi all,
    While trying to create a delivery note against sale order in VL10G, the message "only 0 ea of  material XXX available".    In stock material quantity is available.  The material has some reservations against it.  Will this be resulting in not creating delivery note. 
    Regards
    sappy

    Hello,
    Is your material stock against order ie restricted to specific order  or is it make to stock ie in Unrestricted.
    Please check the availability check in sales order. It will show if any delivery is created but not done PGI. Either delete that delivery & then you will be able to create the delivery for this order.
    Let me know if the problem still continues.
    Thanks

  • Joining Sales Orders and Delivery Notes in Query

    Hi Experts
    Please could someone provide me with the correct SQL syntax for joining tables ORDR, RDR1, ODLN and DLN1 in a query?
    I need to show a list of the (rows of all open sales orders) and (closed sales order (which have a delivery note) between certain dates).
    Thanks
    Jon

    Hi Gordon
    Thanks for your help.  Could you help me a little further?  I am writing the query to show me a mixture of (Open Order rows which contain item code 'C&P') and (closed orders between 2 dates which also contain C&P) - both need to have the customer having property 54 set as 'Y'
    Working with what you sent me it almost works but for some reason I cannt fathom it won't show the open orders only the closed.  I think it may have some do with my last JOIN
    This is what I have:
    SELECT T0.DocNum 'Delivery No', T0.DocDate 'Delivery Date',  T3.Quantity 'Delivery Quantity', T1.DocNum 'S/O No', T1.DocDate 'SO Date', T1.DocStatus, T3.ItemCode, T3.Dscription, T2.Quantity 'SO Quantity', T2.Quantity-T3.Quantity 'Balance Quantity', T2.LineTotal'C&P Price After Discount', T2.DiscPrcnt, T2.Project, T4.QryGroup54'Carriage Deal', t2.freetxt, t1.comments
    FROM DBO.DLN1 T3
    INNER JOIN DBO.ODLN T0 ON T3.DOCENTRY = T0.DOCENTRY LEFT JOIN DBO.RDR1 T2 ON T3.BaseENTRY = T2.DOCENTRY AND T2.ItemCode = T3.ItemCode LEFT JOIN DBO.ORDR T1 ON T2.DOCENTRY = T1.DOCENTRY INNER JOIN OCRD T4 ON T0.CardCode = T4.CardCode
    WHERE (T2.ItemCode LIKE 'C&P%%' AND T1.DocStatus='O' and t4.qrygroup54='Y')  or (T2.[ItemCode] LIKE 'C&P%%' AND T1.[DocStatus] = 'C' and T4.QryGroup54='Y' and (T0.DocDate Between '[%0]' and '[%1]'))
    Thanks
    Jon

  • SAP standard Report-PO, delivery Note, Bill of lading,Header txt,GR/GI slip

    Dear Firends,
    Kindly tell me the SAP standard Report which give the details of
    Po number, delivery Note, Bill of lading, Header text and GR/GI slip no.
    Thanks in advance.
    Regards,
    william

    Hi,
    You can get all these fields in MB51 report by selecting the relavant fields in the selection variant. If any of the required fields are not available than you can add those in img -going tothe Inv Mgt-Reporting - Define field selection for material document list.
    Dhruba

  • Delivery Notes Generation Via Pick List

    Am trying to generate delivery notes off pick tickets and i can't find any code example. I now came up with the following code but am having issues when items are in multiple Bin Locations.
    Public Sub Sales2Delivery() '(ByVal OrderID As String)
            Dim OrderID As String = ""
            Try
                Using connection As New SqlConnection(StaginConn)
                    'Dim command As New SqlCommand("SELECT DocEntry from ORDR with (nolock) WHERE NumAtCard = '" & OrderID & "'", connection)
                    Dim command As New SqlCommand("SET DATEFORMAT DMY; select distinct top 5 o.DocEntry, o.NumAtCard from ordr O with (nolock) join RDR1 R with (nolock) on R.DocEntry = O.DocEntry join OPKL P with (nolock) on P.AbsEntry = R.PickIdNo where u_shipstate = 'Delivered' and CAST(O.docdate as date) >= '30/04/2014' and P.Status = 'Y';", connection)
                    connection.Open()
                    Dim reader As SqlDataReader = command.ExecuteReader()
                    ' Call Read before accessing data.
                    While reader.Read()
                        Dim BusinessOrders As Documents = DirectCast(vCompany.GetBusinessObject(BoObjectTypes.oOrders), Documents)
                        Dim BusinessDelivery As Documents = DirectCast(vCompany.GetBusinessObject(BoObjectTypes.oDeliveryNotes), Documents)
                        Dim orders As Documents = BusinessOrders
                        orders.GetByKey(Convert.ToInt32(reader(0)))
                        OrderID = Convert.ToString(reader(1))
                        Dim Delivery As Documents = BusinessDelivery
                        Delivery.CardCode = orders.CardCode
                        Delivery.CardName = orders.CardName
                        Delivery.NumAtCard = orders.NumAtCard
                        'Delivery.DocNum = orders.DocNum
                        Delivery.HandWritten = BoYesNoEnum.tNO
                        Delivery.Series = 8
                        Delivery.DocDate = DateTime.Today
                        Delivery.DocDueDate = DateTime.Today
                        Delivery.TaxDate = DateTime.Today
                        Delivery.Address = orders.Address
                        Delivery.Address2 = orders.Address2
                        Delivery.Comments = "Based on Sales Order #" + orders.NumAtCard & "."
                        Delivery.DocCurrency = orders.DocCurrency
                        Delivery.DocDueDate = orders.DocDueDate
                        Delivery.DocObjectCode = SAPbobsCOM.BoObjectTypes.oDeliveryNotes
                        Delivery.ShipToCode = orders.ShipToCode
                        Dim lines As Document_Lines = orders.Lines
                        'If (count > 0) Then
                        '    lines.Add()
                        '    lines.SetCurrentLine((lines.Count - 1))
                        'End If
                        Dim oPickList As PickLists = DirectCast(vCompany.GetBusinessObject(BoObjectTypes.oPickLists), PickLists)
                        oPickList.GetByKey(orders.Lines.PickListIdNumber)
                        For i As Int32 = 0 To (lines.Count - 1)
                            If i > 0 Then
                                Delivery.Lines.Add()
                                Delivery.Lines.SetCurrentLine(i)
                            End If
                            ' Set the Current Lines on the order
                            orders.Lines.SetCurrentLine(i)
                            Try
                                oPickList.Lines.SetCurrentLine(i)
                                Delivery.Lines.BaseEntry = oPickList.Lines.OrderEntry
                                Delivery.Lines.BaseLine = oPickList.Lines.OrderRowID
                                Delivery.Lines.Quantity = oPickList.Lines.PickedQuantity
                                Delivery.Lines.BaseType = DirectCast(SAPbobsCOM.BoObjectTypes.oOrders, Integer)
                                Delivery.Lines.BinAllocations.BinAbsEntry = oPickList.Lines.BinAllocations.BinAbsEntry
                                Dim rs As SAPbobsCOM.Recordset = vCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset)
                                rs.DoQuery("select itemcode, price, dscription from RDR1 R where R.LineNum = " & oPickList.Lines.OrderRowID & " and R.PickIdNo = " & oPickList.Lines.AbsoluteEntry)
                                While (rs.EoF <> True)
                                    Delivery.Lines.ItemCode = rs.Fields.Item(0).Value.ToString 'orders.Lines.ItemCode
                                    Delivery.Lines.UnitPrice = CType(rs.Fields.Item(1).Value.ToString, Double) 'orders.Lines.UnitPrice
                                    Delivery.Lines.ItemDescription = rs.Fields.Item(2).Value.ToString 'orders.Lines.ItemDescription
                                    rs.MoveNext()
                                End While
                                rs = Nothing
                            Catch ex As Exception
                                Continue For
                                My.Computer.FileSystem.WriteAllText(_LogPath, ErrDetails.ToString, True)
                            End Try
                        Next
                        If Delivery.Add() <> 0 Then
                            ErrDetails.AppendLine(" Unable to create Delivery note for Order: " & OrderID & " <br /> " & vCompany.GetLastErrorCode() & ":" & vCompany.GetLastErrorDescription())
                        Else
                            ErrDetails.AppendLine("Successfully created Delivery note for Order:" & OrderID) ' & " as requested by " & UserEmail & ".")
                        End If
                        orders = Nothing
                        Delivery = Nothing
                        BusinessOrders = Nothing
                        BusinessDelivery = Nothing
                        My.Computer.FileSystem.WriteAllText(_LogPath, ErrDetails.ToString, True)
                    End While
                    'orders = Nothing
                    'BusinessOrders = Nothing
                End Using
            Catch ex As Exception
                ErrDetails.AppendLine(" Error generating Delivery note for Order: " & OrderID & " <br /> " & ex.ToString())
                My.Computer.FileSystem.WriteAllText(_LogPath, ErrDetails.ToString, True)
            Finally
                If Not String.IsNullOrWhiteSpace(ErrDetails.ToString) Then
                    My.Computer.FileSystem.WriteAllText(_LogPath, (ChrW(13) & ChrW(10) & ChrW(13) & ChrW(10) & "Errors encountered while registering data on " & System.DateTime.Now.ToString("F") & ".Errors:" & ChrW(13) & ChrW(10) & Me.ErrDetails.ToString), True)
                Else
                    My.Computer.FileSystem.WriteAllText(_LogPath, (ChrW(13) & ChrW(10) & ChrW(13) & ChrW(10) & "Application Ran successfully on " & System.DateTime.Now.ToString("F") & "."), True)
                End If
            End Try
        End Sub
    The Error message am getting is 1470000368 - The quantity allocated to bin locations must be positive.

    Am getting this error now is
    "1470000341 - Fully allocate item "1017494" to bin locations in warehouse "Isolo". Issue is we have items in multiple Bin locations and the items have been picked via the pick ticket. Is it also possible to generate the delivery note off the Pick List.
    The new code am using is
        Public Sub Sales2Delivery() '(ByVal OrderID As String)
            Dim OrderID As String = ""
            Try
                Using connection As New SqlConnection(StaginConn)
                    'Dim command As New SqlCommand("SELECT DocEntry from ORDR with (nolock) WHERE NumAtCard = '" & OrderID & "'", connection)
                    Dim command As New SqlCommand("SET DATEFORMAT DMY; select distinct top 5 o.DocEntry, o.NumAtCard from ordr O with (nolock) join RDR1 R with (nolock) on R.DocEntry = O.DocEntry join OPKL P with (nolock) on P.AbsEntry = R.PickIdNo where u_shipstate = 'Delivered' and CAST(O.docdate as date) >= '30/04/2014' and P.Status = 'Y' and o.DocStatus = 'O';", connection)
                    connection.Open()
                    Dim reader As SqlDataReader = command.ExecuteReader()
                    ' Call Read before accessing data.
                    While reader.Read()
                        Dim BusinessOrders As Documents = DirectCast(vCompany.GetBusinessObject(BoObjectTypes.oOrders), Documents)
                        Dim BusinessDelivery As Documents = DirectCast(vCompany.GetBusinessObject(BoObjectTypes.oDeliveryNotes), Documents)
                        Dim orders As Documents = BusinessOrders
                        orders.GetByKey(Convert.ToInt32(reader(0)))
                        OrderID = Convert.ToString(reader(1))
                        Dim Delivery As Documents = BusinessDelivery
                        Delivery.CardCode = orders.CardCode
                        Delivery.CardName = orders.CardName
                        Delivery.NumAtCard = orders.NumAtCard
                        'Delivery.DocNum = orders.DocNum
                        Delivery.HandWritten = BoYesNoEnum.tNO
                        'Delivery.Series = 8
                        Delivery.DocDate = DateTime.Today
                        Delivery.DocDueDate = DateTime.Today
                        Delivery.TaxDate = DateTime.Today
                        Delivery.Address = orders.Address
                        Delivery.Address2 = orders.Address2
                        Delivery.Comments = "Based on Sales Order #" + orders.NumAtCard & "."
                        Delivery.DocCurrency = orders.DocCurrency
                        Delivery.DocDueDate = orders.DocDueDate
                        Delivery.DocObjectCode = SAPbobsCOM.BoObjectTypes.oDeliveryNotes
                        Delivery.ShipToCode = orders.ShipToCode
                        Dim lines As Document_Lines = orders.Lines
                        'If (count > 0) Then
                        '    lines.Add()
                        '    lines.SetCurrentLine((lines.Count - 1))
                        'End If
                        Dim oPickList As PickLists = DirectCast(vCompany.GetBusinessObject(BoObjectTypes.oPickLists), PickLists)
                        oPickList.GetByKey(orders.Lines.PickListIdNumber)
                        For i As Int32 = 0 To (lines.Count - 1)
                            If i > 0 Then
                                Delivery.Lines.Add()
                                Delivery.Lines.SetCurrentLine(i)
                            End If
                            ' Set the Current Lines on the order
                            orders.Lines.SetCurrentLine(i)
                            Try
                                oPickList.Lines.SetCurrentLine(i)
                                Delivery.Lines.BaseEntry = oPickList.Lines.OrderEntry
                                Delivery.Lines.BaseLine = oPickList.Lines.OrderRowID
                                Delivery.Lines.Quantity = oPickList.Lines.PickedQuantity
                                Delivery.Lines.BaseType = DirectCast(SAPbobsCOM.BoObjectTypes.oOrders, Integer)
                                'Dim rs As SAPbobsCOM.Recordset = vCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset)
                                'rs.DoQuery("select itemcode, price, dscription from RDR1 R where R.LineNum = " & oPickList.Lines.OrderRowID & " and R.PickIdNo = " & oPickList.Lines.AbsoluteEntry)
                                'While (rs.EoF <> True)
                                Delivery.Lines.ItemCode = orders.Lines.ItemCode
                                Delivery.Lines.UnitPrice = orders.Lines.UnitPrice
                                Delivery.Lines.ItemDescription = orders.Lines.ItemDescription
                                '            rs.MoveNext()
                                '            End While
                                'rs = Nothing
                            Catch ex As Exception
                Continue For
                My.Computer.FileSystem.WriteAllText(_LogPath, ErrDetails.ToString, True)
            End Try
                        Next
                        If Delivery.Add() <> 0 Then
                            ErrDetails.AppendLine(" Unable to create Delivery note for Order: " & OrderID & " <br /> " & vCompany.GetLastErrorCode() & ":" & vCompany.GetLastErrorDescription())
                        Else
                            ErrDetails.AppendLine("Successfully created Delivery note for Order:" & OrderID) ' & " as requested by " & UserEmail & ".")
                        End If
                        orders = Nothing
                        Delivery = Nothing
                        BusinessOrders = Nothing
                        BusinessDelivery = Nothing
                        My.Computer.FileSystem.WriteAllText(_LogPath, ErrDetails.ToString, True)
                    End While
                    'orders = Nothing
                    'BusinessOrders = Nothing
                End Using
            Catch ex As Exception
                ErrDetails.AppendLine(" Error generating Delivery note for Order: " & OrderID & " <br /> " & ex.ToString())
                My.Computer.FileSystem.WriteAllText(_LogPath, ErrDetails.ToString, True)
            Finally
                If Not String.IsNullOrWhiteSpace(ErrDetails.ToString) Then
                    My.Computer.FileSystem.WriteAllText(_LogPath, (ChrW(13) & ChrW(10) & ChrW(13) & ChrW(10) & "Errors encountered while registering data on " & System.DateTime.Now.ToString("F") & ".Errors:" & ChrW(13) & ChrW(10) & Me.ErrDetails.ToString), True)
                Else
                    My.Computer.FileSystem.WriteAllText(_LogPath, (ChrW(13) & ChrW(10) & ChrW(13) & ChrW(10) & "Application Ran successfully on " & System.DateTime.Now.ToString("F") & "."), True)
                End If
            End Try
        End Sub

  • Document Generation Wizard - disregard picked Items for Delivery Notes

    Hi,
    We have a requirement from a customer whereby when they are creating Delivery Notes from Sales Orders via the Document Generation Wizard to exclude quantities of Items which have been picked on the Sales Order already. 
    E.g. Sales Order, Product XXXX for Qty 10.
    Qty 5 has been Picked.
    Document Generation Wizard is run with an option to create Delivery Note from Sales Order for qty 5 of XXXX
    Thanks,
    Caroline

    Here is the other solution:
    1. Using the draft document generator, you can generate 1 time all the invoices like draft, then you can write a query to display this invoices , then you ca put this query in the alert management to generate the report with this invoices montly when you want.....then you create the invoices that you want, this option is semi-automatic and can work good if you don't have a lot of invoices...
    2. using Data tranfer workbench, you can configure a excel template with all the invoices ready to migrate to SBO with the DTW, also you can make a alert in SBO in order to make this activity in a day montly....this is more automatic.
    3.writing "Simply" SDK project to generate this invoices... using the oinvoice SBO object to create automaticaly all the invoices that you want....you can use the draft table information in order to generate this invoices using SDK.
    The 3 solutions above are meant to resolve problem relate to auto invoice process, you can think about it.
    Rgds,

Maybe you are looking for

  • Campo vAFRMM para transporte Marítimo - NFE 3.10

    Olá Pessoal, Para NFE 3.10, é exigida a tag vAFRMM quando há transporte marítimo. AFRMM = Adicional de Frete para Renovação da Marinha Mercante. O problema é que nas transações de NFe, esse campo aparece como cabeçalho e no XML aparece como item. O v

  • Mail for Exchange does not send letters

    Hi. I am from Ukraine and use MTS operator. The E-mail sets up OK both with IMAP and POP and woks both through GPRS and Wi-Fi. But I have a problem with bult-in Mail for Exchange application. I had set it up for a gmail account, it synchronizes mail,

  • How to Edit SQL Query in Crystal XI?

    Post Author: sk8skiier CA Forum: Data Connectivity and SQL I'm wondering if any of you can help me.  We've recently upgraded from Crystal Reports 6 to Crystal Reports XI, the version on my machine is 11.0.0.2178 and is the Professional version. In Cr

  • I'm trying to setup a High Availability build for SP13

    Here what I've mapped out Software: Windows Server 2012 SharePoint Server 2013 Enterprise SQL Server 2012 Enterprise I have a good idea on what the hardware specs of the SP and SQL servers should be. What type of hardware specs would should I use for

  • String intensive operations

    I need to do intensive operations on strings, mainly searching substrings and replacing text on that string. These strings i need to handle are about 4-8 thousand characteres lenght. What class do you recommend me to use? Thanks