Tree ALV in ABAP

Report

REPORT zab_rp_tree_alv.

TABLES: vbak.

DATA: gt_node TYPE TABLE OF snodetext,
      gs_node TYPE snodetext.
SELECT-OPTIONS: s_vbeln FOR vbak-vbeln.

IF s_vbeln IS INITIAL.
  MESSAGE 'Please select sale document' TYPE 'E'.
ELSE.
  SELECT a~vbeln, b~posnr,b~matnr,b~kwmeng,b~vrkme,c~maktx
    FROM vbak AS a LEFT OUTER JOIN vbap AS b
    ON a~vbeln = b~vbeln
    INNER JOIN makt AS c
    ON b~matnr = c~matnr
    INTO TABLE @DATA(lt_final)
    WHERE a~vbeln IN @s_vbeln.
ENDIF.

gs_node-type = 'T'.
gs_node-name = 'Sale Document'.
gs_node-tlevel = '1'.
gs_node-nlength = '20'.
gs_node-color = '3'.
APPEND gs_node TO gt_node.
CLEAR:gs_node.



LOOP AT lt_final INTO DATA(lr_final).


  gs_node-name = 'VBELN'.
  gs_node-tlevel = '2'.
  gs_node-nlength = '20'.
  gs_node-color = '3'.
  gs_node-text = lr_final-vbeln.
  gs_node-tlength = '20'.
  gs_node-tcolor = '6'.
  APPEND gs_node TO gt_node.
  CLEAR:gs_node.

  gs_node-name = 'SALE ITEM'.
  gs_node-tlevel = '3'.
  gs_node-nlength = '20'.
  gs_node-color = '3'.
  gs_node-text = 'MATERIAL NUMBER'.
  gs_node-tlength = '20'.
  gs_node-tcolor = '6'.
  APPEND gs_node TO gt_node.
  CLEAR:gs_node.


  gs_node-tlevel = '4'.
  gs_node-text = lr_final-posnr.
  gs_node-tlength = '20'.
  gs_node-tcolor = '3'.
  gs_node-text1 = lr_final-matnr.
  gs_node-tlength1 = '20'.
  gs_node-tcolor = '6'.
  APPEND gs_node TO gt_node.
  CLEAR:gs_node.

  gs_node-name = 'MATERIAL NUMBER'.
  gs_node-tlevel = '5'.
  gs_node-nlength = '20'.
  gs_node-color = '3'.
  gs_node-text = 'DESCIPTION'.
  gs_node-tlength = '20'.
  gs_node-tcolor = '6'.
  APPEND gs_node TO gt_node.
  CLEAR:gs_node.

  gs_node-tlevel = '6'.
  gs_node-text = lr_final-matnr.
  gs_node-tlength = '20'.
  gs_node-tcolor = '3'.
  gs_node-text1 = lr_final-maktx.
  gs_node-tlength1 = '20'.
  gs_node-tcolor1 = '6'.
  APPEND gs_node TO gt_node.
  CLEAR:gs_node.
ENDLOOP.


CALL FUNCTION 'RS_TREE_CONSTRUCT'
  TABLES
    nodetab            = gt_node
  EXCEPTIONS
    tree_failure       = 1
    id_not_found       = 2
    wrong_relationship = 3
    OTHERS             = 4.
CALL FUNCTION 'RS_TREE_LIST_DISPLAY'
  EXPORTING
    callback_program = sy-cprog.

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  OF  ls_stu ,       lr_stu  TYPE  ls_stu . lr_stu - st_id  =  1 . lr_stu - st_name  =  'ajay' . APPEND  lr_stu  TO  lt_stu . CLEAR :  lr_stu . lr_stu - st_id  =  2 . lr_stu - st_name  =  'vinod' . APPEND  lr_stu  TO  lt_stu
Read more

Add custom tab to me51n at item level in ABAP

Image
                                        * Customer exit for ME51N is -  MEREQ001                                         * To implement the customer exit in CMOD. Step 1: Goto T-code: CMOD. Step 2: Give project name and click on create. Step 3: Give short text and click on Enhancement assignments . Press enter and click on save. Step 4: Click on components . Double click on CI_EBANDB include and create the include. Step5: Give your field names (If your enhancement category can't be enhanced) as per our requirement. Otherwise click on append structure and create. Field names must started with ZZ. Step 6: Save and activate the structure. Step 7: Double click on C_EBANDBX and create structure like this. Step 7: Double click on screen number (0111) and design layout (Pls ignore email field).         Fields: EBAN-ZZGL_NUM, EBAN-ZZGL_TEXT, EBAN-ZZCC_NUM, EBAN- ZZCC_TEXT. Step 8: Save and activate the screen. ***************************** Create class To set and get th
Read more

Pf status and user command in factory method - OOPS ALV in ABAP

Image
  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_pfstatus_ucomm . 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 . 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 . DATA :   lo_salv1 TYPE   REF  TO  cl_salv_table ,       lo_salv2  TYPE  REF  TO  cl_salv_table ,       lo_events  TYPE  REF  TO  cl_salv_events_table ,       lo_grid    TYPE  REF  TO  cl_gui_alv_grid ,       lt_rows    TYPE  lvc_t_row ,       lr_rows    TYPE 
Read more