Tuesday, May 8, 2018

SAP ABAP -SELECTION SCREEN DETAILS .HOW CREATE BLOCK RADIO BUTTON ETC.

Q.SELECTION SCREEN DETAILS .HOW CREATE BLOCK RADIO BUTTON ETC

REPORT  ZSELECTION_SCREEN.
SELECTION-SCREEN BEGIN OF BLOCK B5 WITH FRAME TITLE TEXT-004.
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.
*  PARAMETERS P_VENDER AS CHECKBOX USER-COMMAND UC1.
  PARAMETERSP_VEN RADIOBUTTON GROUP RG1 user-command test default 'X',
*  SELECTION-SCREEN COMMENT (25) TEXT-RC1  FOR FIELD P_VEND.
              P_CUS RADIOBUTTON GROUP RG1,
              P_STU RADIOBUTTON GROUP RG1.
  SELECTION-SCREEN END OF BLOCK B1.
SELECTION-SCREEN BEGIN OF BLOCK B2 WITH FRAME TITLE TEXT-001.
*  PARAMETERS P_VEND AS CHECKBOX USER-COMMAND UC1.
  PARAMETERSP_VNAME TYPE CHAR20 MODIF ID RB1,
              P_VID TYPE CHAR30 MODIF ID RB1,
              P_VADD TYPE CHAR30 MODIF ID RB1,
              P_VMOB TYPE CHAR20 MODIF ID RB1.
  SELECTION-SCREEN END OF BLOCK B2.
  SELECTION-SCREEN BEGIN OF BLOCK B3 WITH FRAME TITLE TEXT-002.
  PARAMETERSP_CNAME TYPE CHAR20 MODIF ID SC1,
              P_CID TYPE CHAR20 MODIF ID SC1,
              P_CADD TYPE CHAR20 MODIF ID SC1,
              P_CMOB TYPE CHAR20 MODIF ID SC1.
    SELECTION-SCREEN END OF BLOCK B3.
  SELECTION-SCREEN BEGIN OF BLOCK B4 WITH FRAME TITLE TEXT-003.
*    PARAMETERS P_STUD AS CHECKBOX USER-COMMAND UC3.
    PARAMETERSP_SNAME TYPE CHAR20 MODIF ID SU1 ,
                P_SID TYPE CHAR20 MODIF ID SU1,
                P_SADD TYPE CHAR20 MODIF ID SU1,
                P_SMOB TYPE CHAR20 MODIF ID SU1.
    SELECTION-SCREEN END OF BLOCK B4.
    SELECTION-SCREEN END OF BLOCK B5.
    AT SELECTION-SCREEN OUTPUT.
LOOP AT SCREEN.
  IF SCREEN-GROUP1 'RB1'.
    IF P_CUS 'X' OR P_STU 'X'.
      SCREEN-ACTIVE 0.
      ELSEIF P_VEN 'X'.
        SCREEN-ACTIVE 1.
        ENDIF.
    MODIFY SCREEN.
    ENDIF.
     IF SCREEN-GROUP1 'SC1'.
   IF P_VEN 'X' OR P_STU 'X'.
     SCREEN-ACTIVE 0.
     ELSEIF P_CUS 'X'.
       SCREEN-ACTIVE 1.
  ENDIF.
  MODIFY SCREEN.
  ENDIF.
  IF SCREEN-GROUP1 'SU1'.
    IF P_VEN 'X' OR P_CUS 'X'.
      SCREEN-ACTIVE 0.
      ELSEIF P_STU 'X'.
        SCREEN-ACTIVE 1.
        ENDIF.
        MODIFY SCREEN.
        ENDIF.
ENDLOOP.

No comments:

Post a Comment