Dynamic Selection Screen Base on TCODE


SELECTION-SCREEN BEGIN OF BLOCK SO WITH FRAME TITLE TEXT-001.
SELECT-OPTIONS: S_VBELN FOR VBAK-VBELN,"Sales order number   
               S_VBELND FOR LIKP-VBELN,"Delivery number     
               S_VBELNI FOR VBRK-VBELN,"Invoice number      
               S_VBELNP FOR VBKD-BSTKD."PO number           
SELECTION-SCREEN END OF BLOCK SO.                            

*--- EVENT AT SCREEN OUTPUT -------------------------------
AT SELECTION-SCREEN OUTPUT.                                       
  CASE SY-TCODE.                                                  
    WHEN 'ZEDI6'.                                                 
      LOOP AT SCREEN.                                             
        CASE SCREEN-GROUP4.                                       
          WHEN '001'.                  "Sales order select        
            SCREEN-ACTIVE = '1'.       "1=Active, 0=Don't display 
            MODIFY SCREEN.                                        
          WHEN '002'.                  "Delivery select           
            SCREEN-ACTIVE = '0'.       "1=Active, 0=Don't display 
            MODIFY SCREEN.                                        
          WHEN '003'.                  "Invoice select             
            SCREEN-ACTIVE = '0'.       "1=Active, 0=Don't display 
            MODIFY SCREEN.                                        
          WHEN '004'.                  "PO Select                 
            SCREEN-ACTIVE = '0'.       "1=Active, 0=Don't display 
            MODIFY SCREEN.                                        
        ENDCASE.                                                  
      ENDLOOP.                                                    
   
 WHEN 'ZEDI6D'.                     "Delivery select           
      LOOP AT SCREEN.                                              
        CASE SCREEN-GROUP4.                                        
          WHEN '001'.                  "Sales order select         
            SCREEN-ACTIVE = '0'.       "1=Active, 0=Don't display  
            MODIFY SCREEN.                                         
          WHEN '002'.                  "Delivery select            
            SCREEN-ACTIVE = '1'.       "1=Active, 0=Don't display  
            MODIFY SCREEN.                                         
          WHEN '003'.                  "Invoice select             
            SCREEN-ACTIVE = '0'.       "1=Active, 0=Don't display  
            MODIFY SCREEN.                                         
          WHEN '004'.                  "PO Select                  
            SCREEN-ACTIVE = '0'.       "1=Active, 0=Don't display  
            MODIFY SCREEN.                                          
        ENDCASE.                                                   
      ENDLOOP.                                                     
    WHEN 'ZEDI6I'.                     "Invoice select                  
      LOOP AT SCREEN.                                                   
        CASE SCREEN-GROUP4.                                             
          WHEN '001'.                  "Sales order select              
            SCREEN-ACTIVE = '0'.       "1=Active, 0=Don't display       
            MODIFY SCREEN.                                              
          WHEN '002'.                  "Delivery select                 
            SCREEN-ACTIVE = '0'.       "1=Active, 0=Don't display        
            MODIFY SCREEN.                                              
          WHEN '003'.                  "Invoice select                  
            SCREEN-ACTIVE = '1'.       "1=Active, 0=Don't display       
            MODIFY SCREEN.                                               
          WHEN '004'.                  "PO Select                       
            SCREEN-ACTIVE = '0'.       "1=Active, 0=Don't display       
            MODIFY SCREEN.                                               
        ENDCASE.                                                        
      ENDLOOP.                                                          
    WHEN 'ZEDI6P'.                     "PO select                   
      LOOP AT SCREEN.                                               
        CASE SCREEN-GROUP4.                                         
          WHEN '001'.                  "Sales order select          
            SCREEN-ACTIVE = '0'.       "1=Active, 0=Don't display   
            MODIFY SCREEN.                                          
          WHEN '002'.                  "Delivery select             
            SCREEN-ACTIVE = '0'.       "1=Active, 0=Don't display   
            MODIFY SCREEN.                                          
          WHEN '003'.                  "Invoice select              
            SCREEN-ACTIVE = '0'.       "1=Active, 0=Don't display   
            MODIFY SCREEN.                                           
          WHEN '004'.                  "PO Select                   
            SCREEN-ACTIVE = '1'.       "1=Active, 0=Don't display   
            MODIFY SCREEN.                                          
        ENDCASE.                                                     
      ENDLOOP.                                                      
  ENDCASE.  

Comments

Popular posts from this blog

Step by step Create SAP LIS Report

Step by Step SAP Splitting Document

New GL Manual Update FAGLFLEXA & FAGLFLEXT