【ABAP】在ALV 使用On_F4的事件例程

 这里并不介绍类cl_gui_alv_grid的用法,所以此博文的先决条件是会使用基本的cl_gui_alv_grid显示ALV。
 
 Sample code:
 
 Definition:  
 CLASS lcl_event_receiver DEFINITION DEFERRED.
 
 DATA:
      gt_fieldcat                TYPE lvc_t_fcat,      
      gs_fieldcat              TYPE lvc_s_fcat,
      g_grid                       TYPE REF TO cl_gui_alv_grid,      
      g_event_receiver    TYPE REF TO lcl_event_receiver.
 
*----------------------------------------------------------------------*
*       CLASS lcl_event_receiver DEFINITION
 *----------------------------------------------------------------------*
 CLASS lcl_event_receiver DEFINITION.
       PUBLIC SECTION.    
             METHODS:
                     on_f4            FOR EVENT onf4 OF cl_gui_alv_grid                 
                                            IMPORTING  e_fieldname es_row_no er_event_data et_bad_cells e_display,
 
        PRIVATE SECTION.
ENDCLASS.                    "lcl_event_receiver DEFINITION
 
*----------------------------------------------------------------------*
*       CLASS lcl_event_receiver IMPLEMENTATION
*----------------------------------------------------------------------*
CLASS lcl_event_receiver IMPLEMENTATION.     
   METHOD on_f4.             
      CASE e_fieldname.                    
         WHEN 'KOSTL'.                            
             READ TABLE gt_output INTO gs_output INDEX es_row_no-row_id.                            
             IF sy-subrc = 0.                                  
                PERFORM sub_help_kostl CHANGING gs_output-kostl.                                  
                IF gs_output-kostl IS NOT INITIAL.                                         
                  MODIFY gt_output FROM gs_output INDEX es_row_no-row_id.                                         
                  CALL METHOD g_grid->refresh_table_display.                                                            
                ENDIF.                           
             ENDIF.           
         WHEN 'POSID'.        
             READ TABLE gt_output INTO gs_output INDEX es_row_no-row_id.        
             IF gs_output-prctr = gc_prctr.          
               PERFORM sub_help_posid CHANGING gs_output-posid.          
               IF gs_output-posid IS NOT INITIAL.            
                  MODIFY gt_output FROM gs_output INDEX es_row_no-row_id.            
                  CALL METHOD g_grid->refresh_table_display.          
               ENDIF.        
             ENDIF.        
             CLEAR gs_output.        
       ENDCASE.     
    ENDMETHOD.                                                "on_f4 
  定义ALV列字段的时候:
      gs_fieldcat-f4availabl     =  'X'.       
      gs_fieldcat-edit                =  'X'.  
 
  Screen 2000 PBO:
      PERFORM d0100_register_f4.
      CREATE OBJECT g_event_receiver.       
      SET HANDLER g_event_receiver->on_f4 FOR g_grid.  
 
  Subrouting:
  FORM d0100_register_f4 .            
     DATA lt_f4 TYPE lvc_t_f4 WITH HEADER LINE.            
 
     lt_f4-fieldname  = 'KOSTL'.            
     lt_f4-register   = 'X'.            
     lt_f4-getbefore  = 'X'.            
     lt_f4-chngeafter = 'X'.            
     lt_f4-internal   = 'X'.            
     INSERT table lt_f4.            
 
     CALL METHOD g_grid->register_f4_for_fields                  
        EXPORTING                         
           it_f4   =   lt_f4[].   
   ENDFORM.                    " d0100_register_f4
 
   FORM sub_help_kostl  CHANGING pc_kostl.          
      DATA: t_shfields LIKE help_value OCCURS 0 WITH HEADER LINE.          
      DATA: BEGIN OF t_shvalue OCCURS 0,                                  
                     string(60),                            
                  END OF t_shvalue.          
      DATA: BEGIN OF lt_cskt OCCURS 0,                                    
                     kostl  LIKE  csks-kostl,                                    
                     ktext  LIKE  cskt-ktext,                             
                  END OF lt_cskt.
 
      SELECT csks~kostl cskt~ktext INTO TABLE lt_cskt                
          FROM csks INNER JOIN cskt                       
               ON csks~kokrs = cskt~kokrs                    
             AND csks~kostl = cskt~kostl                    
             AND csks~datbi = cskt~datbi                    
             AND cskt~spras = '1'           
      WHERE csks~kokrs = '××'                    
             AND csks~datbi GT sy-datum                    
             AND csks~bukrs = p_bukrs.          
 
      t_shfields-tabname = 'CSKS'.          
      t_shfields-fieldname = 'KOSTL'.         
      t_shfields-selectflag = 'X'.          
      APPEND t_shfields.
      CLEAR t_shfields.      
      t_shfields-tabname = 'CSKT'.          
      t_shfields-fieldname = 'KTEXT'.          
      APPEND t_shfields.CLEAR t_shfields.          
 
      LOOP AT lt_cskt.                 
         t_shvalue-string = lt_cskt-kostl.                 
         APPEND t_shvalue.CLEAR t_shvalue.     
         t_shvalue-string = lt_cskt-ktext.                 
         APPEND t_shvalue.CLEAR t_shvalue.          
      ENDLOOP.          
 
      CALL FUNCTION 'HELP_VALUES_GET_WITH_TABLE'                  
         EXPORTING                         
            title_in_values_list = '成本中心'                         
            titel                = '请选择'                  
         IMPORTING                         
            select_value     = pc_kostl                  
         TABLES                         
            fields                  = t_shfields                         
            valuetab             = t_shvalue.                
       IF sy-subrc NE 0.                      
        MESSAGE 'No value selected!' TYPE 'S'.                
       ENDIF.   
   ENDFORM.                    " sub_help_kostl
   
   FORM sub_help_posid  CHANGING pc_posid.  
     CALL FUNCTION 'HELP_VALUES_GET_WITH_MATCHCODE'     
        EXPORTING *     DISPLAY                         = ' '
*     FIELDNAME                       = ' '
*     INPUT_VALUE                  = ' '      
           matchcode_object                = 'PRP'
  *     TABNAME                         = ' '    IMPORTING     
           select_value                    = pc_posid .  
      IF sy-subrc <> 0.
*   MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
 *           WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.  
      ENDIF.
   ENDFORM.                    " sub_help_posid

你可能感兴趣的:(function,object,header,table,Class,output)