Printing delivery notes upon picking confirmation

We wish to only print delivery notes once picking is confirmed and goods ready to go. We can achieve this in VL02n via amendment to routine 35 in V/27 however generation of output does not appear to apply when picking is confirmed via transaction VL06C rather than in the delivery itself. Any suggestions as to how to generate reliable printing of delivery notes upon confirmation that picking is complete?
Thanks
Birna Rowley

Hi,
In the definition of output scheme, set a new conditional subroutine (define it with VOFM) as 035 (for instance 935), as this coding:
form kobev_935.
* Workarea KOMKBV2 is available
if komkbv2-kostk = 'C'.
sy-subrc = 0.
else.
sy-subrc = 4.
endif.
endform.
form kobed_935.
endform.
Check before with debugging that KOMKBV2-KOSTK has the desired value. After, define the output with VV21 and option inmediatly.
I hope this helps you
Regards,
Eduardo

Similar Messages

Issue with printing Delivery note

Hello SAP Gurus,
What is the tcode for display and print delivery note? And my issue is delivery note is printing out item with zero quantity. We have this problem with no Batch items as well.
Could some one please help me on this?
Thanks
Sha

Hi Sharama,
Create through vl01n . Go to vlo2n and see th out out . If any fields are missing just debug why it is not picking . Ask your abap people they can do it easily.
Regards,
madhu.

Dump while trying to print Delivery note

Hello all,
When I trying to print delivery note containing serial numbers I am getting a dump due to the following reason.
The reason for the exception is:
The system tried to access field "SERIAL_PRINT" with type "u" and length
132 in the current program "SAPLIPW0" using offset 127 and length 6.
Partial field access is not allowed with offset and length
specifications that are
larger than actual field length.
The programs are
Program                                 SAPLIPW0
Include                                 LIPW0F50
Row                                     453
Module type                             (FORM)
Module Name                             STRING_OUT
can anyone help me out on this?
Thanks in advance
Anirban

Please check notes 555306 and 95450.
Rob

Trx for printing picking list and from this printing delivery note.

Hi,
1) what is the trx for printing the picking list?
2) what is the trx for printing the delivery note starting from a picking list?
Best regards

Hi,
T. code for Output for Picking list is VL70
T. Code for outputs for Deliveries is VL71.
Hope this is clear.
Reward if helpful.
Thanks,
Praveen

Printing delivery note via attachment list

Hi all,
when I print a delivery note in VL02N, it is also archived as PDF in our archive system (SAPERION).
My problem is, that a print from archive via attachment list is different (e.g. different borders) from that, which i printed at first.
Is there any chance to get the same output again?
Regards, Hubert

Hi,
T. code for Output for Picking list is VL70
T. Code for outputs for Deliveries is VL71.
Hope this is clear.
Reward if helpful.
Thanks,
Praveen

Automatic creation of Delivery Notes in pick transaction

In the pick transaction, when you have a lot of lines with a lot of Delivery adresses, the button (Deliver) creates automatically all the Delivery notes.
That's fine but all the documents remains open until you add them manually in the system.
I have a customer who creates many hundreds delivery notes at the same time.
I wish a button (Create and Add) which automatically create and add every Delivery Notes;
Christian

Hi sameer,
unless the standard program is modified you cannot do auto pgi. However batch jobs can help creating a delivery afer sales order. But incase WM is implemented then we can for the required delivery movment types create an automatic transfer order and confirmation. This brings us closer to some extent in the task. Then schedule again a job that does PGI.
can you please however explain the business need for auto pgi. It helps us to learn something as well.
regards
sadhu kishore

Document Printing - Delivery Note and Packaging

Hi Experts,
When I print my Delivery Notes through Document Printing my Packaging Document prints off automatically. Please can you tell me if it's possible to switch this off so when I print my Delivery Notes through Document Printing only my Delivery Note prints off without the Packaging Note also printing.
Many thanks for any help,
Caroline

Hi Gordon,
Thanks for your reply.
The options I can see on my Document Printing are:
Document Type - I've selected 'Deliveries'
Series - I'll selected 'All'
When Batch/serial No Exist, Print - no matter what I select here I always get the Packaging Note printed.
Is there anyway to stop the Packaging Note being printed when printing the Delivery Note through Document Printing?
Thanks so much for your help.
Caroline

Print delivery note with VL01N

Hi,
The delivery note prints only when I post the good issue. But I would like to print it automatically when I use the VL01N
I delete the routine "1" in NACE for my condition type LD00 (If goods issue has been posted for the delivery, then the output
should be created.), but I have no delivery note.
Anybody could help me, please?
Thanks
Regards
Kari

In VL01n, before saving, please goto output screen.
(Menu bar -> extrax -> delivery output -> header ->)
In output screen, is the output (print) there (with yellow light)?
If it's not there, please goto check output determination analysing log.
(menu bar -> goto -> determin.analysis)
Double click the output type, and check the log on right side.
What's the log saying?

How to print delivery note only to spool

Hi,
Can anyone advise how to send print request from VL02N/Delivery Notes to a printer without actually printing anything ? i.e. print to a spool ? We want to avoid errors in SP01 caused due to spool requests sent to a printer which no longer exists. So we want to retain the spool but not print anything.
Thanks.

Make your form to spool only. do not assign any printer to it.... I mean, no physical printer.

Printing delivery note output to multiple printers...

Hai team, we have a custom delivery note output which is called commercial invoice. This output is defined thru transactions VV21 & VP01shp. The output device is defaulted within these transactions. However, there's a request to send the printing immediately to multiple printers. Does anyone know how we can set so that the output gets printed immediately to multiple printers since the configs mentioned above only allow us 1 entry in the output device field?

Hi
when you are maintaining the output master, maintain the same document type for different partner functions and for each partner function, you can give a different printer in the communication screen. By this , you can trigger the print out in multiple printers for any document.
Reward points if it helps.
HI ANANDAN,
I TRIED IT, IT IS NOT WORKING, AS THE DOCUMENT TYPE IS UNIQUE IN OUTPUT MASTER. APOLOGISE FOR GIVING AN INCORRECT SOLUTION.
Message was edited by:
iimnava

Issuing Delivery Note before Ship confirm

Hello Gurus,
I need some advice regarding how to issue the delivery note for a particular scenario. In case we have a standing agreement with a customer to deliver goods to him, and the goods are delivered from time to time. The proces are decided only later and the Sale order is created and invoice is generated only later.
How can we handle this in Oracle. If I close the Sale Order and deliver the items, then later on I am not able to change the prices. If I dont close the SO, my stock in ware house will not match with Oracle stock, as the stock is not getting depleted.
Please advise how to handling this in Oracle order management.
Thanks
George

Are you supposed to deliver goods first on demand and then later, when customer takes ownership, you create a sales order?
This might be similar to consignment (From supplier's point of view)
There are a couple of options. The simplest one is as follows
Define the customer as a separate org. Create internal sales order to deliver goods to that org. This will take care of your inventory and will generate appropriate shipping documents. When you get the "REAL" sales order, create it with warehouse = the CUSTOMER org. Ship the order in the system (no physical shipping here) .
This will generate the invoice.
Hope this answers your question
Sandeep Gandhi
Omkar Technologies Inc.
Independent Techno-functional Consultant
513-325-9026

HP L7590 printer - paper not being picked up

We are a small company with a remote office that has a new L7590. It is connected to a wired network and has win2ks in Head Office managing the print queue. A paper jam occurs from the tray, and I am told the paper was extricated in several pieces, although am assured that it was all removed.
Once cleared, the roller that drops down to pick up the paper for the next job doesn't pick up the paper, and the error message is out of paper.
We've seen this once before some time back in a different location, and the fix we had was to power off the printer and then remove the power lead, so it is 100% power off and not in hibernation. Upon powering on, this has reset the hardware so that the paper was picked up okay for the next job and all was sweet.
Not the case with this newest L7590, it remains in a faulted state and while I have sent the office an old spare to get them out of immediate trouble, I must wait until the new L7590 is transported back to me so I can verify what I have said is 100% accurate.
Has anyone encountered this paper pickup issue and fixed it before ??
My first post here, so please be gentle :-))

I just spent several hours troubleshooting this printer. My rollers were all clean. I then used a bright flashlight and monitored thru the front what it was doing when trying to load paper.. There is a grey wheel that is lowered to the paper and rotates pulling the sheet in. It simply just isn't getting lowered enough because its just spinning on top of the paper. I've tried a dozen different types of paper from heavy/thick to thin. I've tried fanning the paper and I've tried not fanning the paper. I've tried a full stack of paper down to a few sheets and everywhere in between. This is just a flawed printer and based on the hundreds of people I see having the exact same issues with this printer so soon afte purchase is an eye opener. {Content Removed: no legal discussion permitted} I'm simply this fed up with my last several HP printer purchases. Anyone else that is as fed up with me please {Personal Information Removed}. I'm going to start tracking down as many people as I can. I'll likely move this discussion to a third party forum, hopefully one with a very high volume of traffic so if this post mysteriously disappears google search for it.

Orientation is wrong when delivery note, pick ticket are printed together!

Hi All,
I am facing this peculiar problem.
When delivery notes and pick ticket both are printed at the same time from VL02N, then the pick ticket is being printed in portrait instead of landscape.
The delivery note should print as portrait and pick ticket should print as landscape.But these when printed together from VL02N transaction, the second one pick list is printed as Portrait rather than Landscape.
The spool is generating correctly (DELIVERY NOTE as PORTRAIT and PICK LIST as LANDSCAPE) but when passed to printer both are printing in PORTRAIT format.
The printer settings are same in PRODUCTION as well as QA.In Production system it is working fine but the same settings are there in QA behaving differently.
The printer model we are using is HP Laserjet 4350.
Please advice.
Regards,
Pratyusha
Edited by: pratyushasdn on Jul 12, 2010 4:59 PM
Edited by: pratyushasdn on Jul 13, 2010 7:26 AM

Dear Pratyusha,
Kindly chck on the production and quality system version of the form. The landscape/ potrait option is passed on to the smartform and should be independent of the driver program / Tcode. Kindly chck on it again and revert

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

For several deliveries one delivery note

Hello,
we are using a transport order to collect several deliveries for one customer. Only one customer.
Is there an easy way to create a delivery note out of the transport order with all items of all deliveries.
Best Regards...
Edited by: Tobias Haungs on Apr 1, 2009 9:55 AM

I believe this very much possible in printing outputs for delivery notes.
Consult & confirm with ABAP resource on SmartForm in your team.
They would be in better position to guide you.
Regards
JP

Printing delivery notes upon picking confirmation

Similar Messages

Maybe you are looking for