ABAP 内表的行列转换-销售范围

*&---------------------------------------------------------------------*
*& Report  ZSDR008
*&
*&---------------------------------------------------------------------*
*&程序名称：销售范围
*&事物代码：ZSDR008
*&导入模板：无
*&作者：董冬
*&时间：2016/2/27
*&--------------------------------------------------------------------

REPORT ZSDR008.


TABLES: tvbvk ,cskt ,ztsd007.
*自建表ztxszz:销售办公室-销售组-成本中心

TYPES:ty_xs LIKE  v_tvbur.
DATA:gt_xs LIKE TABLE OF v_tvbur.
DATA:wa_xs TYPE v_tvbur.
DATA:edit(1) VALUE ''."ALV是否处于可编辑状态

FIELD-SYMBOLS: <f1>, <f2>, <f3>.

TYPES:BEGIN OF ty_zz,
  vkbur TYPE tvkbt-vkbur,
  vkgrp TYPE tvkgr-vkgrp,
  kostl TYPE csks-kostl,
  ltext TYPE cskt-ltext,
  "      INCLUDE TYPE zxszz.
 vkburtext TYPE tvkbt-bezei,
 vkgrptext TYPE tvgrt-bezei.
TYPES:END OF ty_zz.

DATA :gt_zz TYPE STANDARD  TABLE OF ztsd007  .
DATA:wa_zz TYPE ztsd007.

FORM get_data.
*  CALL FUNCTION 'VIEW_GET_DATA'
*    EXPORTING
*      view_name = 'V_TVBUR'
*    TABLES
*      data      = gt_xs.
  SELECT *
    FROM ztsd007
    INTO CORRESPONDING FIELDS OF TABLE gt_zz.
  LOOP AT gt_xs INTO wa_xs.
    wa_zz-vkbur = wa_xs-vkbur.
    wa_zz-vkburtext = wa_xs-bezei.
    APPEND wa_zz TO gt_zz.
  ENDLOOP.
*  SELECT *
*    FROM cskt
*    INTO CORRESPONDING FIELDS OF TABLE gt_zz.
ENDFORM.

DATA: gs_fcat TYPE lvc_s_fcat,
      gt_fcat TYPE lvc_t_fcat,
      gs_layo TYPE lvc_s_layo,
      gs_grid TYPE lvc_s_glay.
DATA: gt_event TYPE slis_t_event WITH HEADER LINE,
      gt_event_exit TYPE slis_t_event_exit WITH HEADER LINE.

DATA:  ref_grid TYPE REF TO cl_gui_alv_grid .

"parameters: p_ds type c as checkbox.
START-OF-SELECTION.
PERFORM get_data.
  PERFORM show_data_to_alv.

CLASS lcl_event_receiver DEFINITION.
  PUBLIC SECTION.
    METHODS handle_modify
    FOR EVENT data_changed_finished OF cl_gui_alv_grid
    IMPORTING e_modified et_good_cells.

    METHODS data_changed
      FOR EVENT data_changed OF cl_gui_alv_grid
      IMPORTING er_data_changed.
ENDCLASS.

CLASS lcl_event_receiver IMPLEMENTATION.
  METHOD handle_modify.
*    PERFORM refresh.

    DATA stbl TYPE lvc_s_stbl.

    stbl-row = 'X'." 基于行的稳定刷新
    stbl-col = 'X'." 基于列稳定刷新
    CALL METHOD ref_grid->refresh_table_display
      EXPORTING
        is_stable = stbl.

  ENDMETHOD.
  METHOD data_changed.

    DATA: ls_mod_cells TYPE lvc_s_modi,
          tvalue       TYPE string.
    DATA: ls_stable TYPE lvc_s_stbl.
    DATA: l_message TYPE string.
*
    DATA :wa_tvbkt TYPE tvkbt,
          tab_tvbkt TYPE TABLE OF tvkbt.
    DATA:wa_tvgrt TYPE tvgrt,
          tab_tvgrt TYPE TABLE OF tvgrt.
    DATA:wa_cskt TYPE cskt,
          tab_cskt TYPE TABLE OF cskt.
    DATA:row_no TYPE i.
    CHECK er_data_changed->mt_inserted_rows[] IS INITIAL.

    LOOP AT  er_data_changed->mt_good_cells INTO ls_mod_cells.

      CLEAR tvalue.
      CALL METHOD er_data_changed->get_cell_value
        EXPORTING
          i_row_id    = ls_mod_cells-row_id
          i_fieldname = ls_mod_cells-fieldname
        IMPORTING
          e_value     = tvalue.

      SELECT *
          FROM tvkbt
          INTO CORRESPONDING FIELDS OF TABLE tab_tvbkt.
        SELECT *
              FROM tvgrt
              INTO CORRESPONDING FIELDS OF TABLE tab_tvgrt.

        SELECT *
              FROM cskt
              INTO CORRESPONDING FIELDS OF TABLE tab_cskt.

      IF strlen( tvalue ) GT 3 AND strlen( tvalue ) LE 4.


        LOOP AT tab_tvbkt INTO wa_tvbkt .
          IF wa_tvbkt-vkbur EQ tvalue.
            CALL METHOD er_data_changed->modify_cell
              EXPORTING
                i_row_id    = ls_mod_cells-row_id
                i_fieldname = 'VKBURTEXT'
                i_value     = wa_tvbkt-bezei.
            EXIT.
          ENDIF.
          CLEAR wa_tvbkt.
        ENDLOOP.
      ENDIF.


      IF strlen( tvalue ) LE 3.

         DATA:blank_zz TYPE ztsd007.



        LOOP AT tab_tvgrt INTO wa_tvgrt .
          IF wa_tvgrt-vkgrp EQ tvalue.
            CLEAR wa_zz.
            LOOP AT gt_zz INTO wa_zz.
              IF wa_zz-vkgrp EQ tvalue  AND tvalue NE ''.
                MESSAGE i001(00) WITH '已有相同的销售组！'.

                "MODIFY  gt_zz INDEX ls_mod_cells-row_id FROM blank_zz .
                CLEAR wa_tvgrt.
                "如果有重复的销售组，那么将输入的销售组清空
                CALL METHOD er_data_changed->modify_cell
              EXPORTING
                i_row_id    = ls_mod_cells-row_id
                i_fieldname = 'VKGRP'
                i_value     = ''.
              ENDIF.

              CONTINUE.
            ENDLOOP.

            CALL METHOD er_data_changed->modify_cell
              EXPORTING
                i_row_id    = ls_mod_cells-row_id
                i_fieldname = 'VKGRPTEXT'
                i_value     = wa_tvgrt-bezei.
          ENDIF.
            CLEAR wa_tvgrt.
        ENDLOOP.


      ENDIF.

      IF strlen( tvalue ) GT 4.


        LOOP AT tab_cskt INTO wa_cskt .
          IF wa_cskt-kostl EQ tvalue.
            CALL METHOD er_data_changed->modify_cell
              EXPORTING
                i_row_id    = ls_mod_cells-row_id
                i_fieldname = 'LTEXT'
                i_value     = wa_cskt-ltext.
            EXIT.
          ENDIF.
          CLEAR wa_cskt.
        ENDLOOP.
      ENDIF.



    ENDLOOP.

  ENDMETHOD.                    "HANDLE_MODIFY
ENDCLASS.                    "LCL_EVENT_RECEIVER IMPLEMENTATION
DATA gt_event_receiver TYPE REF TO lcl_event_receiver .

FORM show_data_to_alv.

  PERFORM set_fcat USING edit.
  PERFORM set_layout.

  PERFORM show_alv  TABLES gt_fcat  gt_zz[]
                     USING  gs_layo.

ENDFORM.

FORM frm_edit_alv." TABLES GT.
*DATA:   ls_row      TYPE lvc_s_cell,
*       lt_rows     TYPE lvc_t_cell.
*  "CLEAR GT_HEADER.
*  "CLEAR GT_ITEMS.
*  CALL METHOD ref_grid->GET_SELECTED_CELLS
*    IMPORTING
*      et_index_cells = lt_rows

ENDFORM.


FORM show_changed_alv.

  CLEAR gt_fcat[].

*  IF edit EQ '' .
*    edit = 'X'.
*  ELSE.
*    edit = ''.
*  ENDIF.

  PERFORM set_fcat USING edit.
  PERFORM set_layout.

  PERFORM show_alv  TABLES gt_fcat  gt_zz[]
                 USING  gs_layo.
  PERFORM frm_edit_alv.
ENDFORM.

FORM set_fcat USING edit.   
PERFORM csalv_set_fcat USING :

" 'Field' 'Text' 'Edit' 'Zero' 'Type' 'Qfieldname' 'Key' 'Hostspot' 'Emphasize' 'Checkbox'              
'VKBUR'  '销售部门' edit ''  ''  ''  ''   ''  ''  '' '' '' '' 'X' 'ZTSD007' 'VKBUR',              
"'NAME1'  '客户' EDIT ''  ''  ''  ''   ''  ''  '' '' '' '',             
'VKBURTEXT' '销售部门描述' ''  ''  ''  ''  ''  ''  ''  '' ''  '' '' '' '' '',             
'VKGRP' '销售组'       edit  ''  ''  ''  ''  ''  ''  '' ''  '' '' 'X' 'ZTSD007' 'VKGRP',             
'VKGRPTEXT' '销售组描述'   ''  ''  ''  ''  ''  ''  ''  '' ''  '' '' '' '' '',             
'KOSTL' '成本中心'    edit ''  ''  ''  ''  ''  ''  '' ''   '' '' 'X' 'CSKS' 'KOSTL' ,             
'LTEXT'  '成本中心描述'  ''  ''  ''  ''  ''  ''  ''  '' ''  '' '' '' '' '' .
*            'ADD01'  '车主'  ''  ''  ''  ''  ''  ''  ''  '' ''  '' '',
*            'EXTI1'  '卸货点'      ''  ''  ''  ''  ''  ''  ''  '' ''  '' '',
*            'ADD02'   '司机'     ''  ''  ''  ''  ''  ''  ''  '' ''  '' '',
*            'BFART'     '车厢类型'     ''  ''  ''  ''  ''  ''  ''  '' ''  '0' '',
*
*            'BEIZHU'  '备注'     'X'  ''  ''  ''  ''  ''  ''  '' '' '' 'X'.   


" 'zsel'   '是否打印 ' 'X' ''  ''  ''  ''  ''  ''  'X' ''.

ENDFORM.                    " SET_FCAT

FORM set_layout .   gs_layo
-zebra             = 'X'.
*  gs_layout-stylefname     = 'FIELD_STYLE'.   gs_layo
-cwidth_opt        =  'X'.
ENDFORM.                    " SET_LAYOUT
*&---------------------------------------------------------------------*
FORM csalv_set_fcat USING       p_name       p_text       p_edit       p_zero       p_type       p_qfieldname       p_key       p_hotspot       p_emphasize       p_checkbox       p_do_sum       p_decimals_out       p_no_out       p_f4availabl       p_ref_table       p_ref_field















.   gs_fcat
-fieldname   =  p_name.
*  gs_fcat-reptext_l   =
*  gs_fcat-selddictxt   =   gs_fcat
-reptext     =  p_text.   gs_fcat
-edit        =  p_edit.   gs_fcat
-no_zero     =  p_zero.   gs_fcat
-datatype    =  p_type.   gs_fcat
-qfieldname  =  p_qfieldname.   gs_fcat
-key         =  p_key.   gs_fcat
-hotspot     =  p_hotspot.   gs_fcat
-emphasize   =  p_emphasize.   gs_fcat
-checkbox    =   p_checkbox.   gs_fcat
-do_sum      =  p_do_sum.   gs_fcat
-decimals_o  =  p_decimals_out.   gs_fcat
-no_out      =  p_no_out.   gs_fcat
-f4availabl  =  p_f4availabl.   gs_fcat
-ref_table   =  p_ref_table.   gs_fcat
-ref_field   =  p_ref_field.   

APPEND gs_fcat TO  gt_fcat.
ENDFORM.                    "csalv_set_fcat

FORM show_alv TABLES  pt_fcat                       pt_tab               

USING   ps_layout.   gs_grid


-edt_cll_cb = 'X'."当屏幕失去焦点时，自动刷新   gt_event

-name = 'CALLER_EXIT'.   "slis_ev_caller_exit_at_start事件   gt_event
-form = 'FM_BUTTON'.   
APPEND gt_event .   

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY_LVC'     
EXPORTING       i_callback_program       
= sy-repid       i_callback_user_command  
= 'USER_COMMAND'       i_grid_settings          
= gs_grid       i_callback_pf_status_set 
= 'SET_PF_STATUS'       is_layout_lvc            
= ps_layout       it_fieldcat_lvc          
= pt_fcat[]       it_events                
= gt_event[]
*     it_event_exit            = gt_event_exit[]     
TABLES       t_outtab                 
= pt_tab     
EXCEPTIONS       program_error            
= 1       
OTHERS                   = 2.
ENDFORM.                    "csalv_set_fcat

FORM user_command USING r_ucomm LIKE sy-ucomm       rs_selfield 
TYPE slis_selfield.   


CASE r_ucomm.     
WHEN '&DATA_SAVE'.     
WHEN '&CHANGE'.         
IF edit EQ '' .           
edit = 'X'.          
ELSE.            
edit = ''.        
ENDIF.       
PERFORM show_changed_alv.     
WHEN '&BACK'.       
LEAVE PROGRAM.     
WHEN '&ADD_ROW'.
*      CLEAR wa_zz.
*      DATA:end TYPE i.
*      DESCRIBE TABLE gt_zz LINES end.
*
*          READ TABLE gt_zz  INDEX  end  INTO wa_zz.
*          IF wa_zz-vkbur IS INITIAL AND gt_zz is NOT INITIAL  .
*            MESSAGE i001(00) WITH '不能继续添加行！'.
*            exit.
*            ENDIF.      


"edit = ''.      
CLEAR wa_zz.      
IF EDIT EQ 'X'.         
APPEND wa_zz TO gt_zz.         
PERFORM show_changed_alv.      
ENDIF.     






WHEN '&SAVE_DATA'.       
CLEAR wa_zz.       
DELETE FROM ztsd007 .       
IF gt_zz IS NOT INITIAL.           
LOOP AT gt_zz INTO wa_zz.               
INSERT INTO  ztsd007 VALUES wa_zz.               
ENDLOOP.       
ENDIF.         

IF sy-subrc eq 0.             
MESSAGE I001(00) WITH '保存成功！'.           


ELSE.              
MESSAGE I001(00) WITH '保存失败！'.         
ENDIF.     

WHEN '&DELE_ROW'.        
DATA:ls_row      TYPE lvc_s_row,        lt_rows     
TYPE lvc_t_row.        

DATA:del_rows TYPE  STANDARD  TABLE OF ztsd007.       

CALL METHOD ref_grid->get_selected_rows         
IMPORTING           et_index_rows 
= lt_rows
*         et_row_no     =         
.       
CLEAR wa_zz.       

LOOP AT lt_rows INTO ls_row.         

READ TABLE gt_zz INTO wa_zz INDEX ls_row-index.         
"delete  gt_zz INDEX ls_row-index.         
"DELETE ztsd007 FROM wa_zz.         
APPEND wa_zz  TO del_rows.       

ENDLOOP.       
LOOP AT del_rows INTO wa_zz.             
DELETE TABLE gt_zz FROM wa_zz.       
ENDLOOP.              

CLEAR del_rows.       
CLEAR ls_row.       
CLEAR lt_rows.       
PERFORM show_changed_alv.   


ENDCASE.

ENDFORM.

FORM set_pf_status USING rt_extab TYPE slis_t_extab..   
SET PF-STATUS 'STANDARD'.
ENDFORM.                    "SET_PF_STATUS

FORM fm_button USING e_grid TYPE slis_data_caller_exit.   
DATA:   lt_f4             TYPE lvc_t_f4,           ls_f4             
TYPE lvc_s_f4.   
CALL FUNCTION 'GET_GLOBALS_FROM_SLVC_FULLSCR'
*   EXPORTING
*     IR_SALV_FULLSCREEN_ADAPTER       =     
IMPORTING
*     ET_EXCLUDING                     =
*     E_REPID                          =
*     E_CALLBACK_PROGRAM               =
*     E_CALLBACK_ROUTINE               =       e_grid 
= ref_grid
*     ET_FIELDCAT_LVC                  =
*     ER_TRACE                         =
*     E_FLG_NO_HTML                    =
*     ES_LAYOUT_KKBLO                  =
*     ES_SEL_HIDE                      =
*     ET_EVENT_EXIT                    =
*     ER_FORM_TOL                      =
*     ER_FORM_EOL                      =     
.

*   CALL METHOD ref_grid->check_changed_data.
* 设置enter事件   
CALL METHOD ref_grid->register_edit_event     
EXPORTING       i_event_id 
= cl_gui_alv_grid=>mc_evt_enter     
EXCEPTIONS       error      
= 1       
OTHERS     = 2.   


CREATE OBJECT gt_event_receiver.   
SET HANDLER   gt_event_receiver->handle_modify FOR ref_grid.   
SET HANDLER   gt_event_receiver->data_changed FOR ref_grid.


ENDFORM.                    "FM_BUTTON