radio buttons

 Radio buttons

        *  Takes only one value

REPORT ZAJAY_PRACTICE.

PARAMETERS: r1 RADIOBUTTON GROUP g1,

             r2 RADIOBUTTON GROUP g1,

             r3 RADIOBUTTON GROUP g1.

PARAMETERS: r11 RADIOBUTTON GROUP g2,

             r12 RADIOBUTTON GROUP g2.


    *  r1,r2,r3 comes under g1 group that means select either r1 or r2 or r3.

    *  r11,r12, comes under g2 group that means select either r11 or r12 .

Output




        Radio button perform


    REPORT ZAJAY_RADIO.
    TABLES:vbap,vbak.
    Types: BEGIN OF ty_vbak,
            vbeln TYPE vbak-vbeln,
            erdat TYPE vbak-erdat,
            ernam TYPE vbak-ernam,
          END OF ty_vbak.
    types: BEGIN OF ty_vbap,
            vbeln TYPE vbap-vbeln,
            posnr TYPE vbap-posnr,
            matnr TYPE vbap-matnr,
          END OF ty_vbap.
    data: it_vbap type table of ty_vbap,
          it_vbak type table of ty_vbak,
          wa_vbap type ty_vbap,
          wa_vbak type ty_vbak,
          wa_fieldcat   TYPE slis_fieldcat_alv,
          it_fieldcat   TYPE slis_t_fieldcat_alv,
          wa_layout TYPE slis_layout_alv.

    PARAMETERS: r1 RADIOBUTTON GROUP g1 USER-COMMAND USD DEFAULT 'X',
                r2 RADIOBUTTON GROUP g1.
    PARAMETERS: p1_vbeln type vbak-vbeln MODIF ID A1.
    PARAMETERS: p2_vbeln type vbak-vbeln MODIF ID A2,
                   p2_posnr type vbap-posnr MODIF ID A2.
    AT SELECTION-SCREEN OUTPUT.

    LOOP AT SCREEN.
      IF r1 = 'X' AND screen-group1 = 'A1'.
        screen-active = 1.
      MODIFY SCREEN.
      ELSEIF r2 = 'X' AND screen-group1 = 'A2'.
        screen-active = 1.
      MODIFY SCREEN.
      ELSEIF r1 = ' ' AND screen-group1 = 'A1'.
        screen-active = 0.
      MODIFY SCREEN.
      ELSEIF r2 = ' ' AND screen-group1 = 'A2'.
        screen-active = 0.
      MODIFY SCREEN.



      ENDIF.
    ENDLOOP.

    START-OF-SELECTION.
    IF r1 = 'X'.
      select vbeln
        erdat
        ernam
        from vbak
        into table it_vbak
        where vbeln = p1_vbeln.

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

          wa_fieldcat-col_pos = '2'.
          wa_fieldcat-fieldname  = 'erdat'.
          wa_fieldcat-seltext_m  = 'Created on'.
          wa_fieldcat-outputlen = '10'.
          APPEND wa_fieldcat TO it_fieldcat.
          clear: wa_fieldcat.

          wa_fieldcat-col_pos = '3'.
          wa_fieldcat-fieldname  = 'ernam'.
          wa_fieldcat-seltext_m  = 'Name'.
          wa_fieldcat-outputlen = '10'.
          APPEND wa_fieldcat TO it_fieldcat.
          clear: wa_fieldcat.

          CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
           EXPORTING

             IS_LAYOUT   = wa_layout
            IT_FIELDCAT  = it_fieldcat


            TABLES
              t_outtab  = it_vbak.

    ENDIF.
    IF r2 = 'X'.
      select vbeln
        posnr
        matnr
        from vbap
        into TABLE it_vbap
        WHERE vbeln = p2_vbeln and posnr = p2_posnr.

          wa_fieldcat-col_pos = '4'.
          wa_fieldcat-fieldname  = 'vbeln'.
          wa_fieldcat-seltext_m  = 'Sale Doc'.
          wa_fieldcat-outputlen = '10'.
          APPEND wa_fieldcat TO it_fieldcat.
          clear: wa_fieldcat.

          wa_fieldcat-col_pos = '5'.
          wa_fieldcat-fieldname  = 'posnr'.
          wa_fieldcat-seltext_m  = 'Sale DocItem'.
          wa_fieldcat-outputlen = '10'.
          APPEND wa_fieldcat TO it_fieldcat.
          clear: wa_fieldcat.

          wa_fieldcat-col_pos = '6'.
          wa_fieldcat-fieldname  = 'matnr'.
          wa_fieldcat-seltext_m  = 'Material Number'.
          wa_fieldcat-outputlen = '10'.
          APPEND wa_fieldcat TO it_fieldcat.
          clear: wa_fieldcat.

          CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
           EXPORTING

             IS_LAYOUT = wa_layout
             IT_FIELDCAT = it_fieldcat

            TABLES
              t_outtab = it_vbap.



    ENDIF.

  Input




  Output

    


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