BAPI/BAPI_MATERIAL_PO at main · jenapranab1/BAPI · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
EPORT zmm_po_create.

DATA :  poheader      TYPE bapimepoheader,
        poheaderx     TYPE bapimepoheaderx,
        it_return     LIKE bapiret2 OCCURS 0 WITH HEADER LINE,
        it_return1    LIKE bapiret2 OCCURS 0 WITH HEADER LINE,
        it_poitem     LIKE bapimepoitem OCCURS 0 WITH HEADER LINE,
        it_poitemx    LIKE bapimepoitemx OCCURS 0 WITH HEADER LINE,
        it_potextitem LIKE bapimepotext OCCURS 0 WITH HEADER LINE,
        it_POSCHEDULE   like BAPIMEPOSCHEDULE OCCURS 0 WITH HEADER LINE,
        it_POSCHEDULEX   LIKE BAPIMEPOSCHEDULX OCCURS 0 WITH HEADER LINE.

DATA: lv_ponum TYPE bapimepoheader-po_number.
DATA: gd_layout TYPE         slis_layout_alv,
      gd_repid  TYPE         sy-repid,
      i_events  TYPE         slis_t_event,
      w_events  LIKE LINE OF i_events.
DATA: i_fieldcat  TYPE slis_t_fieldcat_alv,
      wa_fieldcat TYPE slis_fieldcat_alv.
DATA: c_user_command TYPE slis_formname VALUE ‘USER_COMMAND’.

DATA err_file TYPE string.

DATA : BEGIN OF it_err OCCURS 0,
         message1 TYPE bapi_msg,
       END OF it_err.

TYPES: BEGIN OF ty_input,
         ebeln          TYPE ebeln,
*         comp_code     TYPE bukrs,
         doc_type       TYPE bsart,
*         purch_org     TYPE ekorg,
*         pur_group     TYPE ekgrp ,
         suppl_plnt     TYPE lifnr,

*         po_item       TYPE ebelp,
         material       TYPE matnr,
         plant(4) ,” type ewerks,
         quantity(15),
         net_price(28),
         tax_code(2),
         po_text(132),
         sales_pers(30),
         dlv_date(10) TYPE c,
*        PRICE_UNIT(3),
       END OF ty_input.

DATA: BEGIN OF it_display OCCURS 0,
        ebeln     TYPE ebeln,
        ebeln1    TYPE text100,
        type      TYPE char2,
        number(5) TYPE n,
        sale      TYPE char30,
      END OF it_display.

DATA : it_input TYPE TABLE OF ty_input WITH HEADER LINE,
       wa_input LIKE LINE OF  it_input.

DATA : it_input_h TYPE TABLE OF ty_input WITH HEADER LINE.
DATA : wa_input_h LIKE LINE OF it_input_h.


DATA: BEGIN OF i_excel OCCURS 0.
        INCLUDE STRUCTURE alsmex_tabline.
DATA END OF i_excel.

PARAMETERS : p_bukrs TYPE ekko-bukrs DEFAULT ‘1000’ OBLIGATORY,
             p_ekorg TYPE ekko-ekorg DEFAULT ‘1100’OBLIGATORY,
             p_ekgrp     TYPE ekko-ekgrp DEFAULT ‘101’ OBLIGATORY.
*             p_tax TYPE ekpo-mwskz DEFAULT ‘V0’ OBLIGATORY.

PARAMETERS: p_file TYPE rlgrap-filename OBLIGATORY,
            start TYPE i OBLIGATORY DEFAULT 4, end TYPE i OBLIGATORY.
PARAMETERS file_err LIKE rlgrap-filename OBLIGATORY. “DEFAULT ‘C:\InitialStock_ErrorFile.txt’.


AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.

  CALL FUNCTION ‘KD_GET_FILENAME_ON_F4’
    EXPORTING
      program_name  = syst-repid
    CHANGING
      file_name     = p_file
    EXCEPTIONS
      mask_too_long = 1
      OTHERS        = 2.
  IF sy-subrc <> 0.
  ENDIF.