row wise background color in alv

 


    REPORT ZAJAY_ALV_TS.

    tables:vbap.

    types: BEGIN OF ty_vbap,
            vbeln TYPE vbap-vbeln,
            posnr TYPE vbap-posnr,
            matnr TYPE vbap-matnr,
            matkl TYPE vbap-matkl,
            zcolor(5),
          END OF ty_vbap.

     data: it_vbap type STANDARD TABLE OF ty_vbap WITH HEADER LINE,
          wa_vbap type ty_vbap,
          wa_fieldcat   TYPE slis_fieldcat_alv,
          it_fieldcat   TYPE slis_t_fieldcat_alv,
          wa_layout TYPE slis_layout_alv,
          it_header TYPE slis_t_listheader,
          wa_header TYPE slis_listheader.


    SELECT-OPTIONS: s_vbeln for vbap-vbeln.

    START-OF-SELECTION.


      SELECT vbeln
        posnr
        matnr
        matkl
        from vbap
        into TABLE it_vbap
        WHERE vbeln in s_vbeln.

        sort it_vbap by vbeln.
        LOOP AT it_vbap INTO wa_vbap.


        IF wa_vbap-posnr eq '10'.
                 wa_vbap-zcolor = 'C5'.
                   MODIFY it_vbap from wa_vbap TRANSPORTING zcolor.

        ELSEIF wa_vbap-posnr eq '20'.
                 wa_vbap-zcolor = 'C6'.
               MODIFY it_vbap from wa_vbap TRANSPORTING zcolor.

        ENDIF.
        ENDLOOP.
        wa_layout-info_fieldname = 'zcolor'.



              wa_fieldcat-col_pos = '1'.
              wa_fieldcat-fieldname  = 'vbeln'.
              wa_fieldcat-seltext_m  = 'Sale Doc'.
              wa_fieldcat-outputlen = '10'.
*             wa_fieldcat-emphasize = 'C6'.
              APPEND wa_fieldcat TO it_fieldcat.
              clear: wa_fieldcat.

              wa_fieldcat-col_pos = '2'.
              wa_fieldcat-fieldname  = 'posnr'.
              wa_fieldcat-seltext_m  = 'Sale Item'.
              wa_fieldcat-outputlen = '10'.
*             wa_fieldcat-emphasize = 'C5'.
              APPEND wa_fieldcat TO it_fieldcat.
              clear: wa_fieldcat.

              wa_fieldcat-col_pos = '3'.
              wa_fieldcat-fieldname  = 'matnr'.
              wa_fieldcat-seltext_m  = 'Material Num'.
              wa_fieldcat-outputlen = '15'.
*              wa_fieldcat-emphasize = 'C4'.
              APPEND wa_fieldcat TO it_fieldcat.
              clear: wa_fieldcat.

              wa_fieldcat-col_pos = '4'.
              wa_fieldcat-fieldname  = 'matkl'.
              wa_fieldcat-seltext_m  = 'Mat Group'.
              wa_fieldcat-outputlen = '10'.
*             wa_fieldcat-emphasize = 'C3'.
              APPEND wa_fieldcat TO it_fieldcat.
              clear: wa_fieldcat.



              CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
               EXPORTING
                IS_LAYOUT        = wa_layout
                T_FIELDCAT       = it_fieldcat

                TABLES
                   t_outtab      = it_vbap.

Input



Output









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