Create confirmations entries with a Badi

I got the problem that I have to add a line for confirmation to migrated purchase order. So if you want to try this, you need a PO. Let us assume you got a PO (EL00000001) with one position (0010). As you can see there is no confirmation. We used material 990003038 and the standard plant 1000.

Now, lets have a look into transaction MD04, using material 990003038 and the plant 1000. You should see something like this.

Now we want to add the confirmation. If you add it by hand:

ATTENTION: In this tutorial a table will be updated with the MODIFY command. Please stop here if the command is not clear and read this. You may damage the system if you do something wrong.

First of all I’ll present you the tables we need.

EKKO – EinKauf KOpf – Header PO (yes, German is my mother tongue)

EKPO – EinKauf POsition – Position PO

EKES - Vendor Confirmations

EKET - Scheduling Agreement Schedule Lines

First I’ll create another PO (EL00000002) with the same position (0010).

So here is the program I used:

1. DATA:  lt_uekes    TYPETABLE OF uekes,
2.       ls_uekes    LIKELINE OF  lt_uekes,
3.       lt_uekes_out TYPETABLE OF uekes,
4.       lv_etens    TYPE          etens.
6. DATA: lv_date TYPE eindt.
7. DATA: lv_ebelp TYPE ebelp VALUE'10'.
8. DATA: lv_ebeln TYPE ebeln VALUE'EL00000002'.
9. DATA: lv_xblnr TYPE ekes-xblnr VALUE'REFERENCE'.
10. DATA: lv_data_char10 TYPE char10 VALUE'01.07.2015'.
11. DATA: lv_menge TYPE bbmng VALUE'5'.
12. DATA: lv_ekpomeins TYPE bstme VALUE'PC'.
13. DATA: ls_return TYPE bapiret2.
15. DATA: ls_eket TYPE eket.
16. DATA: lt_eket TYPESTANDARD TABLE OF eket.
19. "Just make sure the the format is right.
20. CALL FUNCTION'CONVERSION_EXIT_ALPHA_INPUT'
21.   EXPORTING
22.     input  = lv_ebeln
23.   IMPORTING
24.     output= lv_ebeln.
27. CALL FUNCTION'CONVERSION_EXIT_ALPHA_INPUT'
28.   EXPORTING
29.     input  = lv_ebelp
30.   IMPORTING
31.     output= lv_ebelp.
34. "Change the date to internal format
35. CALL FUNCTION'CONVERT_DATE_TO_INTERNAL'
36.   EXPORTING
37.     date_external            = lv_data_char10
38.   IMPORTING
39.     date_internal            = lv_date
40.   EXCEPTIONS
41.     date_external_is_invalid =1
42.     OTHERS                  =2.
43. IF sy-subrc <>0.
44. * Implement suitable error handling here
45. ENDIF.
47. "Check if there is already a ekes entry. If so you have to increase ETENS by one.
48. "ETENS is an incremental counter in the table.
49. SELECTMAX( etens )INTO lv_etens
50.   FROM ekes
51.   WHERE ebeln = lv_ebeln
52.     AND ebelp = lv_ebelp.
53. IF sy-subrc =0AND lv_etens <>0.
54.   ADD1TO lv_etens.
55. ENDIF.
58. ls_uekes-ebeln    = lv_ebeln.        "Purchase order number you want to update 'EL00000002'
59. ls_uekes-ebelp    = lv_ebelp.        "Position you want to update '00010' --> beware 5 digits
60. ls_uekes-etens    = lv_etens.        "Counter in EKES
61. ls_uekes-ebtyp    ='AB'.            "Short form of the confirm category
62. ls_uekes-xblnr    = lv_xblnr.        "The referenc sting
63. ls_uekes-eindt    = lv_date.        "Delivery date of the confirmation
64. ls_uekes-menge    = lv_menge.        "Quantety of the confirmation
65. ls_uekes-ekpomeins = lv_ekpomeins.    "ISO UNIT
66. ls_uekes-lpein    ='1'.
67. ls_uekes-erdat    = sy-datum.        "Date when it was added
68. ls_uekes-ezeit    = sy-uzeit.        "time when it was added
69. ls_uekes-estkz    ='1'.
70. ls_uekes-kzdis    = abap_true.
71. ls_uekes-kz        ='I'.            "I is for Insert, U for Update
72. APPEND ls_uekes TO lt_uekes.
75. CALL FUNCTION'ME_CONFIRMATION_UPDATE'
76.   EXPORTING
77.     i_ebeln = lv_ebeln                "Purchase order number is the key for the FuMo(FUBA)
78.   TABLES
79.     xekes  = lt_uekes.
80. IF sy-subrc =0.
81.   "You have to call the commit, because you want to find an EKET entry
82.   "I you don't do this the next select will fail
83.   CALL FUNCTION'BAPI_TRANSACTION_COMMIT'
84.     EXPORTING
85.       wait  ='X'
86.     IMPORTING
87.       return= ls_return.
88. ENDIF.
92. "Okay now EKES is ready, but the will be no update to md04 if you dont update EKET.
93. "I couldn't find a FuMo(FUBA) which will do the update for me.
94. "If somebody got a better solution please mail me nikolaus.harrich@cnt-online.at
95. "But beware and think about what you do here.
96. SELECTSINGLE*
97.   FROM eket
98.   INTO ls_eket
99.   WHERE ebeln  = lv_ebeln AND
100.         ebelp  = lv_ebelp.
101. ls_eket-dabmg = lv_menge.
103. APPEND ls_eket TO lt_eket.
106. MODIFY eket FROM TABLE lt_eket.
107. IF sy-subrc =0.
108.   CALL FUNCTION'BAPI_TRANSACTION_COMMIT'
109.     EXPORTING
110.       wait  ='X'
111.     IMPORTING
112.       return= ls_return.
113. ENDIF.