Display Purchase order details using OOPS ALV in ABAP(Manual field catlog).

  Refer - Steps for OOPS ALV

1. Goto SE38.

2. Give program name and click on create.

3. Give title and click on save.

4. Write code.

REPORT zab_rp_oops_ekko_ekpo1.
TABLES: ekko,ekpo.
TYPES: BEGIN OF ty_ekko,
         ebeln TYPE ekko-ebeln,
         bukrs TYPE ekko-bukrs,
         bstyp TYPE ekko-bstyp,
         bsart TYPE ekko-bsart,
       END OF ty_ekko.
TYPES: BEGIN OF ty_ekpo,
         ebeln TYPE ekpo-ebeln,
         ebelp TYPE ekpo-ebelp,
         matnr TYPE ekpo-matnr,
         werks TYPE ekpo-werks,
       END OF ty_ekpo.
TYPES: BEGIN OF ty_final,
         ebeln TYPE ekko-ebeln,
         bukrs TYPE ekko-bukrs,
         bstyp TYPE ekko-bstyp,
         bsart TYPE ekko-bsart,
         ebelp TYPE ekpo-ebelp,
         matnr TYPE ekpo-matnr,
         werks TYPE ekpo-werks,
       END OF ty_final.

DATA: lt_ekko  TYPE TABLE OF ty_ekko,
      lr_ekko  TYPE ty_ekko,
      lt_ekpo  TYPE TABLE OF ty_ekpo,
      lr_ekpo  TYPE ty_ekpo,
      lt_final TYPE TABLE OF ty_final,
      lr_final TYPE ty_final.
DATA: lt_fieldcat  TYPE lvc_t_fcat,
      lr_fieldcat  TYPE lvc_s_fcat,
      lo_container TYPE REF TO cl_gui_custom_container,
      lo_grid      TYPE REF TO cl_gui_alv_grid.

SELECT-OPTIONS: s_ebeln FOR ekko-ebeln.

IF s_ebeln IS INITIAL.
  MESSAGE 'Pls enter purchasing doc number' TYPE 'E'.
ELSE.
  SELECT ebeln
          bukrs
          bstyp
          bsart
          FROM ekko
          INTO TABLE lt_ekko
          WHERE ebeln IN s_ebeln.

ENDIF.

IF lt_ekko IS NOT INITIAL.
  SELECT ebeln
          ebelp
          matnr
          werks
          FROM ekpo
          INTO TABLE lt_ekpo
          FOR ALL ENTRIES IN lt_ekko
          WHERE ebeln = lt_ekko-ebeln.

ENDIF.

LOOP AT lt_ekko INTO lr_ekko.
  lr_final-ebeln = lr_ekko-ebeln.
  lr_final-bukrs = lr_ekko-bukrs.
  lr_final-bstyp = lr_ekko-bstyp.
  lr_final-bsart = lr_ekko-bsart.
  LOOP AT lt_ekpo INTO lr_ekpo WHERE ebeln = lr_ekko-ebeln.
    lr_final-ebelp = lr_ekpo-ebelp.
    lr_final-matnr = lr_ekpo-matnr.
    lr_final-werks = lr_ekpo-werks.
    APPEND lr_final TO lt_final.
    CLEAR lr_final.

  ENDLOOP.

ENDLOOP.

lr_fieldcat-fieldname = 'EBELN'.
lr_fieldcat-scrtext_l = 'Purchase DOC Num'.
APPEND lr_fieldcat TO lt_fieldcat.
CLEAR: lr_fieldcat.

lr_fieldcat-fieldname = 'BUKRS'.
lr_fieldcat-scrtext_l = 'Company code'.
APPEND lr_fieldcat TO lt_fieldcat.
CLEAR: lr_fieldcat.

lr_fieldcat-fieldname = 'BSTYP'.
lr_fieldcat-scrtext_l = 'Purchase DOC Category'.
APPEND lr_fieldcat TO lt_fieldcat.
CLEAR: lr_fieldcat.

lr_fieldcat-fieldname = 'BSART'.
lr_fieldcat-scrtext_l = 'Purchase DOC Type'.
APPEND lr_fieldcat TO lt_fieldcat.
CLEAR: lr_fieldcat.

lr_fieldcat-fieldname = 'EBELP'.
lr_fieldcat-scrtext_l = 'Item Number'.
APPEND lr_fieldcat TO lt_fieldcat.
CLEAR: lr_fieldcat.

lr_fieldcat-fieldname = 'MATNR'.
lr_fieldcat-scrtext_l = 'Material Number'.
APPEND lr_fieldcat TO lt_fieldcat.
CLEAR: lr_fieldcat.

lr_fieldcat-fieldname = 'WERKS'.
lr_fieldcat-scrtext_l = 'PLANT'.
APPEND lr_fieldcat TO lt_fieldcat.
CLEAR: lr_fieldcat.

CREATE OBJECT lo_container
  EXPORTING
    container_name = 'CONT'.
CREATE OBJECT lo_grid
  EXPORTING
    i_parent = lo_container.

CALL METHOD lo_grid->set_table_for_first_display
  CHANGING
    it_outtab                     = lt_final
    it_fieldcatalog               = lt_fieldcat
*   it_sort                       =
*   it_filter                     =
  EXCEPTIONS
    invalid_parameter_combination = 1
    program_error                 = 2
    too_many_lines                = 3
    OTHERS                        = 4.

CALL SCREEN '1234'.

MODULE user_command_1234 INPUT.
  IF sy-ucomm = 'BACK'.
    LEAVE TO SCREEN '0'.

  ENDIF.

ENDMODULE.

**************************Call screen 123*********************

* Double clicks on screen number.

* Give description.

* Uncomment the 'MODULE USER_COMMAND_1234.' in under flow logic tab.

    - Double click on 'USER_COMMAND_1234'. and write code.

            MODULE user_command_1234 INPUT.

          IF sy-ucomm = 'BACK'.
            LEAVE TO SCREEN '0'.
          ENDIF.
        ENDMODULE.

* Click on layout.

* Click on custom container button and drag.

* Go back and activate the screen.


* Give name (used in container creation).

**************************End of screen 100*********************


Input


Output



************************Thank You***************************

Comments

Post a Comment

Popular posts from this blog

New syntax for append- VALUE (new syntax 7.4+) in ABAP

Image
* We use APPEND statement to insert the records at the last of the internal table. * In SAP ABAP new syntax, we can use VALUE expression instead of APPEND statement. * Value expression is a powerful mechanism to declare as well as initialize the internal tables. * It is a powerful utility where we can achieve the result with minimal coding. * Value expression is of 2 types.      -  Define the type before using it with VALUE keyword. The type defined is structure type  or table type.      -  Using # character for type and use it with VALUE keyword. Report REPORT  zab_rp_append_value . TYPES :  BEGIN  OF  ls_stu ,          st_id ( 10 )    TYPE  n ,          st_name ( 15 )  TYPE  c ,         END  OF  ls_stu . DATA :  lt_stu  TYPE  TABLE...
Read more

Read statement new syntax in ABAP. (7.4+).

Image
*  Before ABAP 7.4, we used READ TABLE statement to read the first matching record from the internal table  based upon key or index . * In SAP ABAP new syntax, instead of READ TABLE , we can use the table expressions. * We need to use the square bracket [ ], In the square bracket, we need to specify the key or index. * While using table expression, If the table entry does not exist, system throws the exception CX_SY_ITAB_LINE_NOT_FOUND. * Use line_exists statement to check the existence of a record. Report REPORT  zab_rp_read_new . TABLES :   vbak . SELECT-OPTIONS :   s_vbeln  FOR  vbak - vbeln . SELECT  vbeln , erdat , erzet , ernam , auart         FROM  vbak         INTO  TABLE  @DATA ( lt_vbak )          WHERE  vbeln  IN  @s_vbeln . WRITE :   'Index value'  COLOR  5 . READ  T...
Read more

Concatenation new syntax( 7.4+ ).

Image
  Report REPORT  zab_rp_concat_7_4 . DATA :   lv_str1    TYPE  string  VALUE  'ajay' ,       lv_str2    TYPE  string  VALUE  'babu' ,       lv_str3    TYPE  string  VALUE  'varikallu' ,       lv_final1  TYPE  string ,       lv_final2  TYPE  string . CONCATENATE  lv_str1 lv_str2 lv_str3  INTO  lv_final1  SEPARATED  BY  space . WRITE :   /  'Old syntax: '  ,  lv_final1  COLOR  4 . lv_final2  =  | { lv_str1 } { lv_str2 } { lv_str3 } | . WRITE :   /  'New syntax: '  ,  lv_final2  COLOR  5 . Output ****** *********** ******** Thank You ****** ******* *********
Read more