GoodleAds

MODIFY SELECTION SCREEN USING AT SELECTION SCREEN OUTPUT

Design the selection-screen as shown in the figure.



  If the user select the sales radio button then sales field enable & rest of the fields are disabled. If the user select the company radio button then S_BUKRS is enabled and rest of the fields are disabled. If the user select the customer radio button then S_KUNNR is enable and rest of the fields are disabled.

PROGRAM:

*&---------------------------------------------------------------------*
*& Report  ZR_MODIFY_SCREEN
*&
*&---------------------------------------------------------------------*

REPORT ZR_MODIFY_SCREEN.
Data V1 type VBAK-VBELN.
Data V2 type KNA1-KUNNR.

Selection-screen begin of block with frame.
Select-options S_VBELN for V1 MODIF ID M1.
Parameter P_BUKRS type T001-BUKRS MODIF ID M2.
Select-options S_KUNNR for V2 MODIF ID M3.
Parameter p_sal radiobutton group USER-COMMAND UC.
Parameter p_com radiobutton group B.
Parameter p_cus radiobutton group default 'X'.
Selection-screen end of block A.

At selection-screen output.
 
If p_sal 'X'.
   
Loop at screen.
     
If screen-group1 'M1'.
       
Screen-input 1.
       
Modify screen.
     
Elseif screen-group1 'M2'.
       
Screen-input 0.
       
Modify screen.
     
Elseif screen-group1 'M3'.
       
Screen-input 0.
       
Modify screen.
     
Endif.
   
Endloop.
 
Elseif p_com 'X'.
    
Loop at screen.
      
If screen-group1 'M1'.
        
Screen-input 0.
        
Modify screen.
      
Elseif screen-group1 'M2'.
        
Screen-input 1.
        
Modify screen.
      
Elseif screen-group1 'M3'.
        
Screen-input 0.
        
Modify screen.
      
Endif.
    
Endloop.
 
Elseif p_cus 'X'.
   
Loop at screen.
     
If screen-group1 'M1'.
       
Screen-input 0.
       
Modify screen.
     
Elseif screen-group1 'M2'.
       
Screen-input 0.
       
Modify screen.
     
Elseif screen-group1 'M3'.
       
Screen-input 1.
       
Modify screen.
     
Endif.
 
Endloop.
 
Endif.

OUTPUT:


BY DEFAULT CUSTOMER IS SELECTED








No comments:

Post a Comment