Delivery note in BAPI_GOODSMVT_CREATE

I'm trying to do GR with purchase order using BAPI_GOODSMVT_CREATE, I need to fill in delivery note (I can fill in using MB01), however I can't find any field for delivery note in BAPI_GOODSMVT_CREATE, anybody knows which field need to fill in? or any other method to fill in?

Hi All
I also need to update the delivery note (and also the quantity in the delivery note) using the BAPI_GOODSMVT_CREATE.
I tried filling the DELIV_NUMB DELIV_ITEM, as recommeded, but it didn't work out. Kindly sugest what is to passed here.
And finally I was able to update the 'Delivery Note' field by filling the field goods_mvt_header-ref_do_no in the BAPI.
But this worked only when I passed the Purcahse Order Number (as I am doing the GR against a PO) in goods_mvt_header-ref_do_no.
If I give any other value, it gives an error M7-036.
How shall I proceed, cause in the MIGO transaction, I am able to fill anything in the Delivery Note field, but using the BAPI, I can update this field only with the PO number.
Thanks & Regards,
Ankur Malhotra

Similar Messages

Need BAPI for uploading "Qty in Delivery Note" in MIGO

Hi All,
Please find the details of my requirement as below :
Goto T-code MIGO and select goods receipt for a PO , here under material Item tab there is a field as "Qty in Delivery Note" under Quantity tab.
I need to update this field using my BAPI. Is there is any FM , RFC for getting this output.
Right now i am using BAPI BAPI_GOODSMVT_CREATE, please let me know if any field of this BAPI can be used for thid purpose.
Thanks,
Mahesh.Gattu
9900380302

It is been done by implementing one implicit enhancement in FM: MAP2I_B2017_GM_ITEM_TO_IMSEG
I have added the below functionality at the end of the function module.
Just i have maped the ERFMG i.e ent_qnt(Received quanity) with LSMNG i.e qty.in del note
All best for others.
$$-Start: (1)----
$$
ENHANCEMENT 1 Z_EV_IMP_GOODSMOVEMENT. "active version
Populate the delivery note quantity and UoM
IF IMSEG-ERFMG IS NOT INITIAL.
MOVE IMSEG-ERFMG TO IMSEG-LSMNG.
MOVE IMSEG-ERFME TO IMSEG-LSMEH.
ENDIF.
ENDENHANCEMENT.
Thanks,
Mahesh.Gattu
Edited by: Maheshkumar gattu on Dec 3, 2010 4:35 PM

Update qty in delivery note through bapi for migo

hi im using bapi for migo upload
my requiremnt is to update QTY IN DELIVERY NOTE in migo.
i got the folowing error if i dont pass the quantity.
qty and/0r delivery indicator or final issue indicator missing
if i pass the quantity field then it is changing quantity in unity of entity and qty in SKU i dnt want to change this field
here is my code,
gmcode-gm_code = '01'.
    ls_GOODSMVT_HEADER-pstng_date = tdate . "sy-datum.
    ls_GOODSMVT_HEADER-doc_date   = sy-datum.
    ls_GOODSMVT_HEADER-pr_uname   = sy-uname.
loop at itab.
ls_GOODSMVT_HEADER-REF_DOC_NO = itab-LFSNR.
it_goodsmvt-move_type = itab-BWART.
it_goodsmvt-po_number = itab-EBELN.
it_goodsmvt-PO_ITEM = '10'.
it_goodsmvt-STGE_LOC = itab-LGORT.
it_goodsmvt-QUANTITY = itab-LSMNG.
it_goodsmvt-BASE_UOM = 'KG'.
it_goodsmvt-material = 'RC1092'.
it_goodsmvt-entry_qnt = itab-LSMNG.
it_goodsmvt-ENTRY_UOM = 'KG'.
it_goodsmvt-mvt_ind = 'B'.
it_goodsmvt-plant = 'G001'.
it_goodsmvt-NO_MORE_GR = 'X'.
append it_goodsmvt.
clear it_goodsmvt.
CALL FUNCTION 'BAPI_GOODSMVT_CREATE'
EXPORTING
    goodsmvt_header               = ls_GOODSMVT_HEADER
    goodsmvt_code                 = gmcode-gm_code
TESTRUN                       = ' '
GOODSMVT_REF_EWM              =
IMPORTING
GOODSMVT_HEADRET              =
   MATERIALDOCUMENT              = lf_MATERIALDOCUMENT
   MATDOCUMENTYEAR               = lf_MATERIALDOCYEAR
tables
    goodsmvt_item                 = it_goodsmvt
GOODSMVT_SERIALNUMBER         =
    return                        = return
GOODSMVT_SERV_PART_DATA       =
EXTENSIONIN                   =
if return-type ca 'EA'.
      rollback work.
      message id '26' type 'I' number '000'
      with return-message.
    else.
      call function 'BAPI_TRANSACTION_COMMIT'
EXPORTING
WAIT          =
IMPORTING
RETURN        =
      wait up to 5 seconds.
    endif.
select * fROM mseg
      INTO CORRESPONDING FIELDS OF TABLE IT_MSEG
                         where mblnr = lf_MATERIALDOCUMENT and
                                   MJAHR = lf_MATERIALDOCYEAR.
LOOP AT IT_MSEG INTO WA_MSEG.
    IF WA_MSEG-LSMNG IS INITIAL.
      wa_mseg-lsmng = ITab-LSMNG.
      UPDATE MSEG from wa_mseg.
      commit work.
      wait up to 5 seconds.
    ENDIF.
ENDLOOP.
ENDLOOP.

It is been done by implementing one implicit enhancement in FM: MAP2I_B2017_GM_ITEM_TO_IMSEG
I have added the below functionality at the end of the function module.
Just i have maped the ERFMG i.e ent_qnt(Received quanity) with LSMNG i.e qty.in del note
All best for others.
$$-Start: (1)----
$$
ENHANCEMENT 1 Z_EV_IMP_GOODSMOVEMENT.    "active version
Populate the delivery note quantity and UoM
IF IMSEG-ERFMG IS NOT INITIAL.
MOVE IMSEG-ERFMG TO IMSEG-LSMNG.
MOVE IMSEG-ERFME TO IMSEG-LSMEH.
ENDIF.
ENDENHANCEMENT.
Thanks,
Mahesh.Gattu
Edited by: Maheshkumar gattu on Dec 3, 2010 4:35 PM

Delivery Note Quantity in BAPI

Dear Gurus,
I am working in SAP-AFS 6.2 and using BAPI ( /AFS/BAPI_GOODSMVT_CREATE ) for Z-Development of Goods Recepit of RM and FG.
This BAPI I am using for Goods Receipt against Production Order, Purchase Order( Including Subcontracting Purchase Order).
I am not able to find the feild for "Delivery Note Quantity" in that BAPI , Can any one help me out ?
Regards
Siddharth

>
Kishore Kumar Chiluka wrote:
> Hi
>
> This field is not avialbal in the BAPI.
> LSMNG - Quantity in Unit of Measure from Delivery Note
>
> Why do you require this data, i think SAP has not provided this field as you will be receiving this data
> from interface and the delivery note qty is equal to Qty in unit of entry.
>
> Try finding out some enhancement point in this BAPI - hope it will be helpful but i am not sure how we can use that...
>
>
> Thanks & Regards
>
> Kishore
Is it really ok if the LSMNG field is left blank in the MIGO through BAPI_GOODSMVT_CREATE? I mean does it affect any other transaction?
pk

DELIVERY NOTE Field missing in BAPI_GOOSDMVT_CREATE

Hi, I'm trying to do a Goods Receipt from a Purchase Order using BAPI_GOODSMVT_CREATE and I need to fill the DELIVERY NOTE field that appears in MIGO (and in MB01) but I can't find this field in the Header or Item structures of the BAPI.
Is there an OSS NOTE that fix this?
Is the field I need already there but with a different name?
I would be really appreciated if somebody could help (reward points available).
Thanks in advance,
Jose Pinedo

Hi All
I also need to update the delivery note (and also the quantity in the delivery note) using the BAPI_GOODSMVT_CREATE.
I tried filling the DELIV_NUMB , as recommeded, but it didn't work out. Kindly sugest what is to passed here.
And finally I was able to update the 'Delivery Note' field by filling the field goods_mvt_header-ref_do_no in the BAPI.
But this worked only when I passed the Purcahse Order Number (as I am doing the GR against a PO) in goods_mvt_header-ref_do_no.
If I give any other value, it gives an error M7-036.
How shall I proceed, cause in the MIGO transaction, I am able to fill anything in the Delivery Note field, but using the BAPI, I can update this field only with the PO number.
Thanks & Regards,
Ankur Malhotra

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,

STO - IDOC INVOIC - MM Receipt on Delivery note rather PO number

Hi Gurus,
I'm processing an MM Receipt INVOIC IDOC to create an Intercompany Vendor Invoice against a Purchase order.
This is integrated in a standard Stock Transfer Order. This IDOC is generated using Output type RD04 from Intercompany billing.
When SAP creates IDOC, it is based on the Delivery note number rather than the PO number, even I have the PO and Delivery in my PO historic, and even if I have IDOC segment E1EDP02 QUALF 001 with PO and segment E1EDP02 with QUALF 016 with Delivery note.
I tried to managed PO item flags: "Invoice Receipt Indicator" or "Indicator: GR-Based Invoice Verification".
But there is no impact.
When I create the MM Receipt manually using TCode MIRO in reference to the PO. It works.
When I create the MM Receipt manually using TCode MIRO in reference to the Delivery not. It doesn't work. I got the same error message "Delivery note/service entry sheet xxxx does not exist".
I conclude that when SAP performs the IDOC, someting in the IDOC tells him to create a invoice in reference to the Delivery note rather than the PO. How can we change it?
Please, could you help me to understand this blocking point and to allow to create the MM Receipt on PO?
Many thanks.
Stéphane.

hello, friend.
i am not an expert in MM, but....
i noticed that when using MIGO, you can do GR based on an inbound delivery, and maybe also an outbound delivery (from STO). an outbound delivery created in an STO scenario should have links to the STO related PO. could this be the link you are looking for?
regards.

Delivery note in BAPI_GOODSMVT_CREATE

Similar Messages

Maybe you are looking for