科目余额辅助表

type-POOLs :slis .
TABLES :bkpf ,bseg ,faglflext .

DATA : BEGIN  OF get_tab_result  OCCURS  0 ,
  bukrs  like bseg -bukrs , "公司代码
  hkont  LIKE bseg -hkont , "总账科目
  txt20  LIKE skat -txt20 , "总账科目文本
  kunnr  LIKE bseg -kunnr , "客户编号
  lifnr  LIKE bseg -lifnr , "供应商编号
  matnr  LIKE bseg -matnr , "物料
  anln1  LIKE bseg -anln1 , "资产
  kostl  LIKE bseg -kostl , "成本中心
  name1  TYPE  c LENGTH  100 , "对应的项目文本
  dmbtr  LIKE bseg -dmbtr , "金额
  dmbtr1  LIKE bseg -dmbtr ,
  dmbtr2  LIKE bseg -dmbtr ,
  dmbtr3  LIKE bseg -dmbtr ,
  dmbtr4  LIKE bseg -dmbtr ,
  dmbtr5  LIKE bseg -dmbtr ,
  dmbtr6  LIKE bseg -dmbtr ,
  dmbtr7  LIKE bseg -dmbtr ,
   END  OF get_tab_result .

SELECTION-SCREEN  BEGIN  OF  BLOCK blk1  WITH  FRAME  TITLE tt1 .
SELECT-OPTIONS :s_bukrs  FOR bkpf -bukrs  no -EXTENSION  no INTERVALS OBLIGATORY ,
               s_gjahr  FOR bkpf -gjahr  NO -EXTENSION  NO INTERVALS OBLIGATORY ,
               s_rpmax  FOR faglflext -rpmax  no -EXTENSION OBLIGATORY ,
               s_hkont  FOR bseg -hkont .
SELECTION-SCREEN  END  OF  BLOCK blk1 .

AT  SELECTION-SCREEN  ON  VALUE-REQUEST  FOR s_hkont -low .
   PERFORM frm_onf4_hkont  USING  'S_HKONT-LOW' .

AT  SELECTION-SCREEN  ON  VALUE-REQUEST  FOR s_hkont -high .
   PERFORM frm_onf4_hkont  USING  'S_HKONT-HIGH' .

AT  SELECTION-SCREEN .
   PERFORM frm_auth_check .

START-OF-SELECTION .
*获取数据
   PERFORM frm_get_data .

end-OF-SELECTION .
   PERFORM frm_output_data .
*&---------------------------------------------------------------------*
*&      Form  FRM_ONF4_HKONT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->P_0150   text
*----------------------------------------------------------------------*
FORM FRM_ONF4_HKONT   USING  p_field .
   TYPES : BEGIN  OF ty_skat ,
    saknr  TYPE skat -saknr ,
    txt20  TYPE skat -txt20 ,
     END  OF ty_skat .

   DATA :lt_skat  TYPE  TABLE  OF ty_skat  WITH  HEADER  LINE .

   SELECT
    saknr
    txt20
     FROM skat
     INTO  TABLE lt_skat
     WHERE spras  = sy -langu  AND ktopl  =  '1000' .

   CALL  FUNCTION  'F4IF_INT_TABLE_VALUE_REQUEST'
     EXPORTING
*         DDIC_STRUCTURE         = ' '
      RETFIELD                =  'SAKNR'
*         PVALKEY                = ' '
      DYNPPROG                = SY -REPID
      DYNPROFIELD             = P_FIELD
      DYNPNR                  = SY -DYNNR
*         STEPL                  = 0
*         WINDOW_TITLE           =
*         VALUE                  = ' '
      VALUE_ORG               =  'S'
*         MULTIPLE_CHOICE        = ' '
*         DISPLAY                = ' '
      CALLBACK_PROGRAM        = SY -REPID
*         CALLBACK_FORM          = ' '
*         CALLBACK_METHOD        =
*         MARK_TAB               =
*       IMPORTING
*         USER_RESET             =
     TABLES
      VALUE_TAB               = lt_skat[]
*         FIELD_TAB              =
*         RETURN_TAB             =
*         DYNPFLD_MAPPING        =
     EXCEPTIONS
      PARAMETER_ERROR         =  1
      NO_VALUES_FOUND         =  2
       OTHERS                  =  3
             .
   IF SY -SUBRC <>  0 .
* Implement suitable error handling here
   ENDIF .


ENDFORM .                     " FRM_ONF4_HKONT
*&---------------------------------------------------------------------*
*&      Form  FRM_GET_DATA
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM FRM_GET_DATA  .
   DATA : BEGIN  OF L_T_BSEG  OCCURS  0 ,
    BUKRS  LIKE BSEG -BUKRS , "公司号
    BELNR  LIKE BSEG -BELNR , "凭证号
    GJAHR  LIKE BSEG -GJAHR , "年度
    BUZEI  LIKE BSEG -BUZEI , "行项目
    SHKZG  LIKE BSEG -SHKZG , "借贷
    HKONT  LIKE BSEG -HKONT , "总账
    KUNNR  LIKE BSEG -KUNNR , "客户
    LIFNR  LIKE BSEG -LIFNR , "供应商
    MATNR  LIKE BSEG -MATNR , "物料
    ANLN1  LIKE bseg -ANLN1 , "成本中心
    KOSTL  LIKE BSEG -KOSTL ,
    DMBTR  LIKE BSEG -DMBTR ,
    BUDAT  LIKE BKPF -BUDAT ,
    XNEGP  LIKE BSEG -XNEGP , "标识：反记账
    XREVERSAL  LIKE BKPF -XREVERSAL , "指定是否凭证被冲销或已被冲销
    STGRD  LIKE BKPF -STGRD , "冲销原因
    EBELN  LIKE BSEG -EBELN , "采购凭证号
     END  OF L_T_BSEG .

   TYPES : BEGIN  OF L_S_BKPF ,
    BUKRS  LIKE BKPF -BUKRS ,
    BELNR  LIKE BKPF -BELNR ,
    GJAHR  LIKE BKPF -GJAHR ,
    BUDAT  LIKE BKPF -BUDAT ,
    STGRD  LIKE BKPF -STGRD ,
    XREVERSAL  LIKE BKPF -XREVERSAL ,
     END  OF L_S_BKPF .

   DATA L_T_BKPF  TYPE  HASHED  TABLE  OF L_S_BKPF  WITH  UNIQUE  KEY BUKRS BELNR GJAHR  WITH  HEADER  LINE .
   SELECT
    BUKRS
    BELNR
    GJAHR
    BUZEI
    SHKZG
    HKONT
    KUNNR
    LIFNR
    MATNR
    ANLN1
    KOSTL
    dmbtr
    XNEGP
    EBELN
     INTO CORRESPONDING  FIELDS  OF  TABLE L_T_BSEG
     FROM BSEG
     WHERE BUKRS  IN S_BUKRS
     AND   GJAHR  IN S_GJAHR
     AND   hkont  IN s_hkont .

   IF L_T_BSEG[]  IS  NOT  INITIAL .
     SELECT
      BUKRS
      BELNR
      GJAHR
      BUDAT
      STGRD
      XREVERSAL
       INTO CORRESPONDING  FIELDS  OF  TABLE L_T_BKPF
       FROM BKPF
       FOR  ALL ENTRIES  IN L_T_BSEG
       WHERE bukrs  = L_T_BSEG -BUKRS
       AND   BELNR  = L_T_BSEG -BELNR
       AND   GJAHR  = L_T_BSEG -GJAHR .

   ENDIF .

   LOOP  AT L_T_BSEG .
     READ  TABLE L_T_Bkpf  WITH  TABLE  KEY BUKRS  = L_T_BSEG -BUKRS
                                       BELNR  = L_T_BSEG -BELNR
                                       GJAHR  = L_T_BSEG -GJAHR .
     IF SY -SUBRC  =  0 .
      L_T_BSEG -BUDAT  = L_T_BKPF -BUDAT .
      L_T_BSEG -XREVERSAL  = L_T_BKPF -XREVERSAL .
      L_T_BSEG -STGRD  = L_T_BKPF -STGRD .
       MODIFY L_T_BSEG  TRANSPORTING BUDAT XREVERSAL STGRD .
     ELSE .
       DELETE L_T_BSEG .
     ENDIF .
   ENDLOOP .
***************************************************处理反记账
   LOOP  AT L_T_BSEG  WHERE HKONT  BETWEEN  '100100000'  AND  '100900000'  AND XREVERSAL  NE  ''  AND XNEGP  =  'X' .
     IF L_T_BSEG -SHKZG  =  'H' .
      L_T_BSEG -SHKZG  =  'S' .
     ELSEIF L_T_BSEG -SHKZG  =  'S' .
      L_T_BSEG -SHKZG  =  'H' .
     ENDIF .
    L_T_BSEG -DMBTR  =  0  - L_T_BSEG -dmbtr .
     MODIFY L_T_BSEG  TRANSPORTING SHKZG dmbtR .
   ENDLOOP .
*处理同时出现的供应商编码和物料编码的情况
   LOOP  AT L_T_BSEG  WHERE hkont  BETWEEN  141  AND  147 .
     CLEAR : L_T_BSEG -LIFNR  , L_T_BSEG -KUNNR .
     MODIFY L_T_BSEG  TRANSPORTING lifnr KUNNR .
   ENDLOOP .

   LOOP  AT  L_T_BSEG  WHERE HKONT  EQ  222 .
     SELECT  SINGLE LIFNR  INTO L_T_BSEG -lifnr  FROM EKKO  WHERE EBELN  = L_T_BSEG -EBELN .
     IF SY -SUBRC  =  0 .
       MODIFY L_T_BSEG  TRANSPORTING LIFNR .
     ENDIF .
   ENDLOOP .

   DATA :L_F_DATE  TYPE SY -DATUM ,
       L_T_DATE  TYPE SY -DATUM .

   DATA :L_MONTH ( 3 )  TYPE  C .
  L_MONTH  = s_rpmax -LOW .
   SHIFT L_MONTH  LEFT DELETING  LEADING  '0' .

   IF L_MONTH <  10 .
     CONCATENATE  '0' L_MONTH  INTO L_MONTH .
   ENDIF .
   CONCATENATE S_GJAHR -LOW L_MONTH  '01'  INTO L_F_DATE .
   CLEAR L_MONTH .
  L_MONTH  = s_rpmax -HIGH .
   IF L_MONTH  EQ  '000' .
    L_MONTH  = s_rpmax -LOW .
   ENDIF .

   SHIFT L_MONTH  LEFT DELETING  LEADING  '0' .
   IF L_MONTH <  10 .
     CONCATENATE  '0' L_MONTH  INTO L_MONTH .
   ENDIF .

   CONCATENATE S_GJAHR -LOW L_MONTH  '01'  INTO L_T_DATE .
   CALL  FUNCTION  'FIMA_DATE_CREATE'
     EXPORTING
      I_DATE                   = L_T_DATE
      I_FLG_END_OF_MONTH       =  ' '
*     I_YEARS                 = 0
*     I_MONTHS                = 0
*     I_DAYS                  = 0
      I_CALENDAR_DAYS          =  0
      I_SET_LAST_DAY_OF_MONTH  =  'X'
     IMPORTING
      E_DATE                   = L_T_DATE
*     E_FLG_END_OF_MONTH      =
*     E_DAYS_OF_I_DATE        =
     .

   DATA L_T_BSEG_BEG  LIKE  TABLE  OF L_T_BSEG  WITH  HEADER  LINE .
   DATA L_T_BSEG_END  LIKE  TABLE  OF L_T_BSEG  WITH  HEADER  LINE .

   APPEND  LINES  OF L_T_BSEG  TO L_T_BSEG_BEG .
   APPEND  LINES  OF L_T_BSEG  TO L_T_BSEG_END .

   DELETE L_T_BSEG  WHERE BUDAT > L_T_DATE .
   DELETE L_T_BSEG  WHERE BUDAT < L_F_DATE .
   DELETE L_T_BSEG  WHERE BUDAT  >= L_F_DATE .
   DELETE L_T_BSEG  WHERE BUDAT > L_T_DATE .

   LOOP  AT L_T_BSEG .
    get_tab_result -BUKRS  = L_T_BSEG -BUKRS .
    get_tab_result -HKONT  = L_T_BSEG -HKONT .
    get_tab_result -KUNNR  = L_T_BSEG -KUNNR .
    get_tab_result -LIFNR  = L_T_BSEG -LIFNR .
    get_tab_result -MATNR  = L_T_BSEG -MATNR .
    get_tab_result -ANLN1  = L_T_BSEG -ANLN1 .
    get_tab_result -KOSTL  = L_T_BSEG -KOSTL .

     IF L_T_BSEG -SHKZG  =  'H' .
      get_tab_result -dmbtr3  = L_T_BSEG -dmbtr .
      get_tab_result -dmbtr5  = L_T_BSEG -dmbtr .
     ELSE .
      get_tab_result -dmbtr2  = L_T_BSEG -dmbtr .
      get_tab_result -dmbtr4  = L_T_BSEG -dmbtr .

     ENDIF .
     COLLECT get_tab_result .
     CLEAR get_tab_result .


   ENDLOOP .

   LOOP  AT L_T_BSEG_BEG .
    get_tab_result -bukrs  = L_T_BSEG_BEG -bukrs .
    get_tab_result -HKONT  = L_T_BSEG_BEG -HKONT .
    get_tab_result -KUNNR  = L_T_BSEG_BEG -KUNNR .
    get_tab_result -LIFNR  = L_T_BSEG_BEG -LIFNR .
    get_tab_result -MATNR  = L_T_BSEG_BEG -MATNR .
    get_tab_result -ANLN1  = L_T_BSEG_BEG -ANLN1 .
    get_tab_result -KOSTL  = L_T_BSEG_BEG -KOSTL .

     IF L_T_BSEG_BEG -SHKZG  =  'H' .
      get_tab_result -dmbtr1  = L_T_BSEG_BEG -dmbtr .
     ELSE .
      get_tab_result -dmbtr  = L_T_BSEG_BEG -dmbtr .
     ENDIF .

     COLLECT get_tab_result .
     CLEAR get_tab_result .

   ENDLOOP .

   LOOP  AT  L_T_BSEG_END .
    get_tab_result -BUKRS  = L_T_BSEG_END -BUKRS .
    get_tab_result -HKONT  = L_T_BSEG_END -HKONT .
    get_tab_result -KUNNR  = L_T_BSEG_END -KUNNR .
    get_tab_result -LIFNR  = L_T_BSEG_END -LIFNR .
    get_tab_result -MATNR  = L_T_BSEG_END -MATNR .
    get_tab_result -ANLN1  = L_T_BSEG_END -ANLN1 .
    get_tab_result -KOSTL  = L_T_BSEG_END -KOSTL .

     IF L_T_BSEG_END -SHKZG  =  'H' .
      get_tab_result -dmbtr7  = L_T_BSEG_END -dmbtr .
     ELSE .
      get_tab_result -dmbtr6  = L_T_BSEG_END -dmbtr .
     ENDIF .
     COLLECT get_tab_result .
     CLEAR get_tab_result .

   ENDLOOP .

   LOOP  AT get_tab_result .
     IF get_tab_result -KUNNR  IS  NOT  INITIAL .
       SELECT  SINGLE NAME1  INTO get_tab_result -NAME1  FROM KNA1  WHERE kunnr  = get_tab_result -KUNNR .
     ENDIF .

     IF get_tab_result -LIFNR  IS  NOT  INITIAL .
       SELECT  SINGLE NAME1  INTO get_tab_result -NAME1  FROM LFA1  WHERE LIFNR  = get_tab_result -LIFNR .
     ENDIF .

     IF get_tab_result -matnr  IS  NOT  INITIAL .
       SELECT  SINGLE MAKTX  INTO get_tab_result -NAME1  FROM MAKT  WHERE MATNR  = get_tab_result -MATNR .
     ENDIF .

     IF get_tab_result -ANLN1  IS  NOT  INITIAL .
       SELECT  SINGLE ANLHTXT  INTO get_tab_result -NAME1  FROM ANLH  WHERE ANLN1  = get_tab_result -ANLN1 .
     ENDIF .

     IF get_tab_result -KOSTL  IS  NOT  INITIAL .
       SELECT  SINGLE KTEXT  INTO get_tab_result -NAME1  FROM CSKT  WHERE spras  =  '1'
         AND KOSTL  = get_tab_result -KOSTL .

     ENDIF .

     SELECT  SINGLE TXT20  INTO get_tab_result -TXT20  FROM skat  WHERE spras  =  '1'
       AND saknr  = get_tab_result -HKONT .

     IF get_tab_result -dmbtr  - get_tab_result -dmbtr1 >=  0 .
      get_tab_result -dmbtr  = get_tab_result -dmbtr  - get_tab_result -dmbtr1 .
      get_tab_result -dmbtr1  =  0 .
     ELSE .
      get_tab_result -dmbtr1  = get_tab_result -dmbtr1  - get_tab_result -dmbtr .
      get_tab_result -dmbtr  =  0 .
     ENDIF .

     IF get_tab_result -dmbtr6  - get_tab_result -dmbtr7 >=  0 .
      get_tab_result -dmbtr6  = get_tab_result -dmbtr6  - get_tab_result -dmbtr7 .
      get_tab_result -dmbtr7  =  0 .
     ELSE .
      get_tab_result -dmbtr7  = get_tab_result -dmbtr7  - get_tab_result -dmbtr6 .
      get_tab_result -dmbtr6  =  0 .
     ENDIF .

     IF get_tab_result -LIFNR <>  '' .
      get_tab_result -matnr  = get_tab_result -LIFNR .
     ELSEIF get_tab_result -kunnr <>  '' .
      get_tab_result -matnr  = get_tab_result -KUNNR .
     ELSEIF get_tab_result -ANLN1 <>  '' .
      get_tab_result -matnr  = get_tab_result -anln1 .
     ELSEIF get_tab_result -kostL <>  '' .
      get_tab_result -matnr  = get_tab_result -kostl .
     ENDIF .

     MODIFY get_tab_result  TRANSPORTING NAME1 TXT20 MATNR DMBTR DMBTR1 DMBTR6 DMBTR7 .

   ENDLOOP .

   SORT get_tab_result  BY BUKRS HKONT MATNR .


ENDFORM .                     " FRM_GET_DATA
*&---------------------------------------------------------------------*
*&      Form  FRM_AUTH_CHECK
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM FRM_AUTH_CHECK  .
   DATA LT_T001  LIKE  TABLE  OF T001  WITH  HEADER  LINE .
   SELECT
    bukrs
     INTO CORRESPONDING  FIELDS  OF  TABLE LT_T001
     FROM T001
     WHERE BUKRS  IN S_BUKRS .

   LOOP  AT LT_T001 .

     CALL  FUNCTION  'ZZ_CHECK_REPAUTH'
       EXPORTING
        I_MODULE       =  'FC'
        I_BUKRS        = LT_T001 -BUKRS
       EXCEPTIONS
        NO_AUTHORIZED  =  1
        NO_MODULE      =  2
         OTHERS         =  3 .
     IF SY -SUBRC <>  0 .

     ENDIF .

   ENDLOOP .

ENDFORM .                     " FRM_AUTH_CHECK
*&---------------------------------------------------------------------*
*&      Form  FRM_OUTPUT_DATA
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM FRM_OUTPUT_DATA  .
   DATA :PROGNAME  LIKE SY -REPID ,
         TITLE  TYPE LVC_TITLE .
  PROGNAME  = SY -REPID .
   TITLE  =  '总账科目余额辅助表' .
   DATA :gt_fieldcat  TYPE slis_t_fieldcat_alv  WITH  HEADER  LINE ,
       gs_layout  TYPE slis_layout_alv ,
       gt_sort  TYPE slis_t_sortinfo_alv .
   DATA :gt_events  TYPE slis_t_event  WITH  HEADER  LINE . "ALV事件

  gs_layout -zebra  =  'X' .
  gs_layout -colwidth_optimize  =  'X' .
  gs_layout -detail_popup  =  'X' .

  gt_fieldcat -fieldname  =  'BUKRS' .
  gt_fieldcat -seltext_m  =  '公司代码' .
   append gt_fieldcat .
   CLEAR gt_fieldcat .

  gt_fieldcat -fieldname  =  'HKONT' .
  gt_fieldcat -seltext_m  =  '总账科目' .
  gt_fieldcat -no_zero  =  'X' .
   append gt_fieldcat .
   CLEAR gt_fieldcat .

  gt_fieldcat -fieldname  =  'txt20' .
  gt_fieldcat -seltext_m  =  '总账科目描述' .
   append gt_fieldcat .
   CLEAR gt_fieldcat .

  gt_fieldcat -fieldname  =  'MATNR' .
  gt_fieldcat -seltext_m  =  '辅助核算编码' .
  gt_fieldcat -no_zero  =  'X' .
  gt_fieldcat - hotspot  =  'X' .
   Append gt_fieldcat .
   CLEAR gt_fieldcat .

  gt_fieldcat -fieldname  =  'NAME1' .
  gt_fieldcat -seltext_m  =  '辅助核算名称' .
   append gt_fieldcat .
   CLEAR gt_fieldcat .

  gt_fieldcat -fieldname  =  'DMBTR' .
  gt_fieldcat -seltext_m  =  '期初借方' .
  gt_fieldcat -no_zero  =  'X' .
   append gt_fieldcat .
   CLEAR gt_fieldcat .

  gt_fieldcat -fieldname  =  'DMBTR1' .
  gt_fieldcat -seltext_m  =  '期初贷方' .
  gt_fieldcat -no_zero  =  'X' .
   append gt_fieldcat .
   CLEAR gt_fieldcat .

  gt_fieldcat -fieldname  =  'DMBTR2' .
  gt_fieldcat -seltext_m  =  '本期借方' .
  gt_fieldcat -no_zero  =  'X' .
   append gt_fieldcat .
   CLEAR gt_fieldcat .

  gt_fieldcat -fieldname  =  'DMBTR3' .
  gt_fieldcat -seltext_m  =  '本期贷方' .
  gt_fieldcat -no_zero  =  'X' .
   append gt_fieldcat .
   CLEAR gt_fieldcat .

  gt_fieldcat -fieldname  =  'DMBTR4' .
  gt_fieldcat -seltext_m  =  '借方累计' .
  gt_fieldcat -no_zero  =  'X' .
   append gt_fieldcat .
   CLEAR gt_fieldcat .

  gt_fieldcat -fieldname  =  'DMBTR5' .
  gt_fieldcat -seltext_m  =  '贷方累计' .
  gt_fieldcat -no_zero  =  'X' .
   append gt_fieldcat .
   CLEAR gt_fieldcat .

  gt_fieldcat -fieldname  =  'DMBTR6' .
  gt_fieldcat -seltext_m  =  '期末借方' .
  gt_fieldcat -no_zero  =  'X' .
   append gt_fieldcat .
   CLEAR gt_fieldcat .

  gt_fieldcat -fieldname  =  'DMBTR7' .
  gt_fieldcat -seltext_m  =  '期末贷方' .
  gt_fieldcat -no_zero  =  'X' .
   append gt_fieldcat .
   CLEAR gt_fieldcat .


   CALL  FUNCTION  'REUSE_ALV_GRID_DISPLAY'
     EXPORTING
*   I_INTERFACE_CHECK                 = ' '
*   I_BYPASSING_BUFFER                = ' '
*   I_BUFFER_ACTIVE                   = ' '
      I_CALLBACK_PROGRAM                 = progname
*   I_CALLBACK_PF_STATUS_SET          = ' '
      I_CALLBACK_USER_COMMAND            =  'FRM_USER_COMMAND' "处理用户双击事件
*   I_CALLBACK_TOP_OF_PAGE            = ' '
*   I_CALLBACK_HTML_TOP_OF_PAGE       = ' '
*   I_CALLBACK_HTML_END_OF_LIST       = ' '
*   I_STRUCTURE_NAME                  =
*   I_BACKGROUND_ID                   = ' '
      I_GRID_TITLE                       =  TITLE
*   I_GRID_SETTINGS                   =
      IS_LAYOUT                          = GS_LAYOUT
      IT_FIELDCAT                        = gt_fieldcat[]
*   IT_EXCLUDING                      =
*   IT_SPECIAL_GROUPS                 =
      IT_SORT                            = GT_SORT
*   IT_FILTER                         =
*   IS_SEL_HIDE                       =
*   I_DEFAULT                         = 'X'
      I_SAVE                             =  'A'
*   IS_VARIANT                        =
*   IT_EVENTS                         =
*   IT_EVENT_EXIT                     =
*   IS_PRINT                          =
*   IS_REPREP_ID                      =
*   I_SCREEN_START_COLUMN             = 0
*   I_SCREEN_START_LINE               = 0
*   I_SCREEN_END_COLUMN               = 0
*   I_SCREEN_END_LINE                 = 0
*   I_HTML_HEIGHT_TOP                 = 0
*   I_HTML_HEIGHT_END                 = 0
*   IT_ALV_GRAPHICS                   =
*   IT_HYPERLINK                      =
*   IT_ADD_FIELDCAT                   =
*   IT_EXCEPT_QINFO                   =
*   IR_SALV_FULLSCREEN_ADAPTER        =
* IMPORTING
*   E_EXIT_CAUSED_BY_CALLER           =
*   ES_EXIT_CAUSED_BY_USER            =
     TABLES
      T_OUTTAB                           = get_tab_result
     EXCEPTIONS
      PROGRAM_ERROR                      =  1
       OTHERS                             =  2
             .
   IF SY -SUBRC <>  0 .
* Implement suitable error handling here
   ENDIF .

ENDFORM .                     " FRM_OUTPUT_DATA

FORM FRM_USER_COMMAND  USING r_ucomm  LIKE sy -ucomm
                                         rs_selfield  TYPE slis_selfield .
  rs_selfield -col_stable  =  'X' .
  rs_selfield -row_stable  =  'X' .
  rs_selfield - refresh  =  'X' . "自动刷新
******参考标准报表QA33之后，发现只要这3行就可以实现自动刷新，并且返回时鼠标回到原来的位置

   DATA :bdcdata_wa  TYPE bdcdata ,
       bdcdata_tab  TYPE  TABLE  OF bdcdata .

   DATA :opt  TYPE ctu_params .

   CASE r_ucomm .
     WHEN  '&IC1' .
       READ  TABLE get_tab_result  INDEX rs_selfield -tabindex .
       IF sy -subrc  =  0 .
         IF get_tab_result -hkont  eq  222 .
           CLEAR bdcdata_wa .
          bdcdata_wa - program  =  'FAGL_ACCOUNT_ITEMS_GL' .
          bdcdata_wa - dYNPRO  =  '1000' .
          bdcdata_wa -DYNBEGIN  =  'X' .
           APPEND bdcdata_wa  TO bdcdata_TAB .

           CLEAR bdcdata_wa .
          bdcdata_wa -FNAM  =  'BDC_CURSOR' .
          bdcdata_wa -FVAL  =  'SD_BUKRS-LOW' .
           APPEND bdcdata_wa  TO bdcdata_TAB .

           CLEAR bdcdata_wa .
          bdcdata_wa -FNAM  =  'BDC_OKCODE' .
          bdcdata_wa -FVAL  =  '=ONLI' .
           APPEND bdcdata_wa  TO bdcdata_TAB .

           CLEAR bdcdata_wa .
          bdcdata_wa -FNAM  =  'SD_SAKNR-LOW' .
          bdcdata_wa -FVAL  = get_tab_result -HKONT .
           APPEND bdcdata_wa  TO bdcdata_TAB .

           CLEAR bdcdata_wa .
          bdcdata_wa -FNAM  =  'SD_BUKRS-LOW' .
          bdcdata_wa -FVAL  = get_tab_result -BUKRS .
           APPEND bdcdata_wa  TO bdcdata_TAB .

           CLEAR bdcdata_wa .
          bdcdata_wa -FNAM  =  'X_OPSEL' .
          bdcdata_wa -FVAL  =  '' .
           APPEND bdcdata_wa  TO bdcdata_TAB .

           CLEAR bdcdata_wa .
          bdcdata_wa -FNAM  =  'X_AISEL' .
          bdcdata_wa -FVAL  =  'X' .
           APPEND bdcdata_wa  TO bdcdata_TAB .

          OPT -DISMODE  =  'E' .
           call  TRANSACTION  'FAGLL03'  USING bdcdata_tab OPTIONS  FROM opt .
         elseif  get_tab_result -kunnr  IS  NOT  INITIAL .
           set  PARAMETER  ID  'KUN'  FIELD get_tab_result -kunnr .
           set  PARAMETER  ID  'BUK'  FIELD get_tab_result -bukrs .
           call  TRANSACTION  'FD10N'  AND  SKIP  FIRST  SCREEN .

         ELSEIF get_tab_result -lifnr  IS  NOT  INITIAL .
           SET  PARAMETER  ID  'LIF' FIELD get_tab_result -lifnr .
           SET  PARAMETER  ID  'BUK'  FIELD get_tab_result -BUKRS .
           CALL  TRANSACTION  'FK10N'  AND  SKIP  FIRST  SCREEN .

         ELSEIF get_tab_result -matnr  IS  NOT  INITIAL .

           CLEAR bdcdata_wa .
          bdcdata_wa - program   =  'FAGL_ACCOUNT_ITEMS_GL' .
          bdcdata_wa - dynpro    =  '1000' .
          bdcdata_wa -dynbegin  =  'X' .
           APPEND bdcdata_wa  TO bdcdata_tab .

           CLEAR bdcdata_wa .
          bdcdata_wa -fnam  =  'BDC_CURSOR' .
          bdcdata_wa -fval  =  'SD_BUKRS-LOW' .
           APPEND bdcdata_wa  TO bdcdata_tab .

           CLEAR bdcdata_wa .
          bdcdata_wa -fnam  =  'BDC_OKCODE' .
          bdcdata_wa -fval  =  '=ONLI' .
           APPEND bdcdata_wa  TO bdcdata_tab .

           CLEAR bdcdata_wa .
          bdcdata_wa -fnam  =  'SD_SAKNR-LOW' .
          bdcdata_wa -fval  = GET_TAB_RESULT -HKONT .
           APPEND bdcdata_wa  TO bdcdata_tab .

           CLEAR bdcdata_wa .
          bdcdata_wa -fnam  =  'SD_BUKRS-LOW' .
          bdcdata_wa -fval  = GET_TAB_RESULT -BUKRS .
           APPEND bdcdata_wa  TO bdcdata_tab .

           CLEAR bdcdata_wa .
          bdcdata_wa -fnam  =  'X_OPSEL' .
          bdcdata_wa -fval  =  '' .
           APPEND bdcdata_wa  TO bdcdata_tab .

           CLEAR bdcdata_wa .
          bdcdata_wa -fnam  =  'X_AISEL' .
          bdcdata_wa -fval  =  'X' .
           APPEND bdcdata_wa  TO bdcdata_tab .


          opt -DISMODE  =  'E' .
           call  TRANSACTION  'FAGLL03'  USING bdcdata_tab OPTIONS  FROM opt .
         ELSE .
           set  PARAMETER  ID  'SAK'  FIELD get_tab_result -hkont .
           set  PARAMETER  ID  'BUK'  FIELD get_tab_result -bukrs .
           call  TRANSACTION  'FS10N'  AND  SKIP  FIRST  SCREEN .

         ENDIF .

       ENDIF .

   ENDCASE .
ENDFORM .