ALV双击出来明细

浅浅的花香味﹌ 2022-12-13 15:26 135阅读 0赞

*\*&---------------------------------------------------------------------\**  
*\*& Report ZCO005*  
*\*&---------------------------------------------------------------------\**  
*\*&*  
*\*&---------------------------------------------------------------------\**  
REPORT zco005.  
  
TABLES : csks,setleaf ,acdoca .  
  
PARAMETERS      p\_bukrs TYPE csks\-bukrs  OBLIGATORY     . *"**公司代码*  
PARAMETERS      p\_gjahr TYPE acdoca\-gjahr  OBLIGATORY    . *"**财年*  
SELECT-OPTIONS: s\_poper  FOR acdoca\-poper OBLIGATORY .  *"**期间*  
  
SELECT-OPTIONS :s\_kostl  FOR csks\-kostl    .*"**成本中心*  
SELECT-OPTIONS : s\_name  FOR  setleaf\-setname  .  
PARAMETERS:setclass TYPE  setleaf\-setclass DEFAULT'0101' NO\-DISPLAY .  
PARAMETERS:subclass TYPE   setleaf\-subclass DEFAULT '8000' NO\-DISPLAY.  
  
  
DATA : BEGIN OF gs\_csks,  
         kostl LIKE  csks\-kostl,  
       END OF gs\_csks .  
DATA: gt\_csks LIKE TABLE OF gs\_csks.  
  
DATA: BEGIN OF gs\_setleaf,  
        valfrom LIKE setleaf\-valfrom,  
        valto   LIKE setleaf\-valto,  
      END OF gs\_setleaf .  
DATA: gt\_setleaf LIKE TABLE OF gs\_setleaf .  
DATA : BEGIN OF gw\_t001,  
         bukrs TYPE t001\-bukrs,     *" **公司代码*  
         butxt TYPE t001\-butxt,     *" **公司描述*  
       END OF gw\_t001  .  
  
  
DATA: BEGIN OF gs\_out1 ,  
        bukrs  TYPE csks\-bukrs      , *"**公司代码*  
*\*        BUTXT  TYPE T001-BUTXT      , "**公司名称*  
        gjahr  TYPE acdoca\-gjahr    , *"**财年*  
        poper  TYPE acdoca\-poper    , *"**期间*  
        kostl  TYPE csks\-kostl      , *"**成本中心*  
*\*        KTEXT  TYPE CSKT-KTEXT,       "**成本中心名称*  
        racct  TYPE acdoca\-racct,     *"**会计科目*  
  
*\*        TXT20  TYPE SKAT-TXT20,       "**科目名称*  
        *"    tsl    TYPE acdoca-tsl,       "**合计*  
        sumtsl TYPE acdoca\-tsl,       *"**期间累计值*  
      END OF gs\_out1.  
  
DATA: gt\_out1 LIKE TABLE OF gs\_out1 .  
  
  
DATA: BEGIN OF gs\_out ,  
  
        kostl TYPE csks\-kostl      , *"**成本中心*  
        ktext TYPE cskt\-ktext,       *"**成本中心名称*  
        racct TYPE acdoca\-racct,     *"**会计科目*  
        txt20 TYPE skat\-txt20,       *"**科目名称*  
        rs001 TYPE  i,  
        fy001 TYPE acdoca\-tsl,  
        pj001 TYPE  acdoca\-tsl,  
        rs002 TYPE  i,  
        fy002 TYPE acdoca\-tsl,  
        pj002 TYPE  acdoca\-tsl,  
        rs003 TYPE  i,  
        fy003 TYPE acdoca\-tsl,  
        pj003 TYPE  acdoca\-tsl,  
        rs004 TYPE  i,  
        fy004 TYPE acdoca\-tsl,  
        pj004 TYPE  acdoca\-tsl,  
        rs005 TYPE  i,  
        fy005 TYPE acdoca\-tsl,  
        pj005 TYPE  acdoca\-tsl,  
        rs006 TYPE  i,  
        fy006 TYPE acdoca\-tsl,  
        pj006 TYPE  acdoca\-tsl,  
        rs007 TYPE  i,  
        fy007 TYPE acdoca\-tsl,  
        pj007 TYPE  acdoca\-tsl,  
        rs008 TYPE  i,  
        fy008 TYPE acdoca\-tsl,  
        pj008 TYPE  acdoca\-tsl,  
        rs009 TYPE  i,  
        fy009 TYPE acdoca\-tsl,  
        pj009 TYPE  acdoca\-tsl,  
        rs010 TYPE  i,  
        fy010 TYPE acdoca\-tsl,  
        pj010 TYPE  acdoca\-tsl,  
        rs011 TYPE  i,  
        fy011 TYPE acdoca\-tsl,  
        pj011 TYPE  acdoca\-tsl,  
        rs012 TYPE  i,  
        fy012 TYPE acdoca\-tsl,  
        pj012 TYPE  acdoca\-tsl,  
        fysum TYPE acdoca\-tsl,  
        rspj  TYPE acdoca\-tsl,  
        rssum TYPE acdoca\-tsl,  
        fypj  TYPE acdoca\-tsl,  
  
  
      END OF gs\_out.  
DATA gt\_out LIKE TABLE OF gs\_out .  
  
  
DATA: gt\_fieldcat TYPE TABLE OF  slis\_fieldcat\_alv.  
DATA: gs\_fieldcat TYPE slis\_fieldcat\_alv.  
DATA: gs\_layout TYPE slis\_layout\_alv .  
  
  
  
DATA: functxt TYPE smp\_dyntxt. *" **菜单制作器**:**动态文本的程序接*  
TABLES: sscrfields,faglflext. *" **选择屏幕上的字段*  
DATA: wa\_vimsellist LIKE vimsellist, *" **选择视图维护范围的工作区*  
      gt\_vimsellist LIKE TABLE OF wa\_vimsellist.  
  
DATA :      gv\_bukrs TYPE bukrs.  
  
  
SELECTION-SCREEN: FUNCTION KEY 1. *" **资产负债表维护的功能键*  
  
INITIALIZATION.  
  functxt\-icon\_id   = icon\_create\_text.  
  functxt\-quickinfo = '部门人数维护'.  
  functxt\-icon\_text = '部门人数表维护'.  
  sscrfields\-functxt\_01 = functxt.  
  
AT SELECTION-SCREEN.  
  
*\*Authority check(**权限检查**)*  
  
  PERFORM frm\_authority\_check.  
  IF sscrfields\-ucomm = 'FC01'.  
  
*\*&---**对资产负债表进行维护*  
  
    PERFORM frm\_configuration USING 'ZMV\_ZTFI010'.  
  ELSE.  
    PERFORM frm\_check\_screen.  
  ENDIF.  
  
  
START-OF-SELECTION.  
  
  SELECT valfrom valto  
    INTO TABLE gt\_setleaf  
    FROM setleaf  
    WHERE  setclass = '0101'  
    AND subclass = '8000'  
    AND setname IN s\_name .  
  
  
  DATA: lt\_csks LIKE TABLE OF gs\_csks .  
  
  IF s\_kostl IS NOT INITIAL .  
    SELECT kostl  
      INTO TABLE  gt\_csks  
      FROM csks  
      WHERE kostl IN s\_kostl .  
  ELSE .  
    LOOP AT gt\_setleaf INTO gs\_setleaf .  
      SELECT kostl  
      INTO TABLE  lt\_csks  
       FROM csks  
       WHERE kostl BETWEEN  gs\_setleaf\-valfrom AND  gs\_setleaf\-valto  .  
  
      APPEND LINES OF lt\_csks TO gt\_csks .  
  
    ENDLOOP .  
  
  ENDIF .  
  
  
  SORT   gt\_csks BY kostl .  
  
  DELETE ADJACENT DUPLICATES FROM gt\_csks  COMPARING kostl .  
*\**  
*\*DATA: BEGIN OF gs\_out1 ,*  
*\*        bukrs  TYPE csks-bukrs      , "**公司代码*  
*\*\*        BUTXT  TYPE T001-BUTXT      , "**公司名称*  
*\*        gjahr  TYPE acdoca-gjahr    , "**财年*  
*\*        poper  TYPE acdoca-poper    , "**期间*  
*\*        kostl  TYPE csks-kostl      , "**成本中心*  
*\*\*        KTEXT  TYPE CSKT-KTEXT,       "**成本中心名称*  
*\*        racct  TYPE acdoca-racct,     "**会计科目*  
*\**  
*\*\*        TXT20  TYPE SKAT-TXT20,       "**科目名称*  
*\*        tsl    TYPE acdoca-tsl,       "**合计*  
*\*        sumtsl TYPE acdoca-tsl,       "**期间累计值*  
*\*      END OF gs\_out1.*  
  
  
  SELECT rbukrs , gjahr , poper , rcntr , racct ,   SUM( tsl ) AS sumtsl  
  
    FROM acdoca AS a  
    JOIN  @gt\_csks AS b ON   a~rcntr =  b~kostl  
    WHERE rbukrs    = @p\_bukrs  
    AND   a~gjahr  = @p\_gjahr  
    AND   a~poper  IN @s\_poper  
    AND   ( a~racct LIKE '8%' OR a~racct LIKE '6630%')  
  
    GROUP BY  rbukrs ,  
    gjahr ,  
    poper ,  
    rcntr ,  
    racct  
     INTO TABLE @gt\_out1  
    .  
  
  
  DATA: lt\_out1 LIKE TABLE OF gs\_out1 .  
  DATA: ls\_out1 LIKE gs\_out1 .  
  
  
  
  lt\_out1 = gt\_out1.  
  
  SORT lt\_out1 BY kostl  racct .  
  
  DELETE ADJACENT DUPLICATES FROM lt\_out1 COMPARING kostl racct  .  
  
  
  
  
  DATA: gsday TYPE string .  
  DATA: gsday2 TYPE string .  
  DATA: gsday3 TYPE string .  
  DATA: lv\_rs TYPE i .  
  DATA:l\_txt TYPE dd03p\-scrtext\_l.  
  
  DATA : lv\_fysum TYPE acdoca\-tsl .  
  DATA : lv\_rssum TYPE acdoca\-tsl .  
  
  
  LOOP AT lt\_out1 INTO ls\_out1 .  
    LOOP AT gt\_out1 INTO gs\_out1 WHERE kostl = ls\_out1\-kostl AND racct = ls\_out1\-racct .  
  
      SELECT SINGLE rs INTO lv\_rs FROM ztfi010  
        WHERE bukrs = gs\_out1\-bukrs AND gjahr = gs\_out1\-gjahr AND poper = gs\_out1\-poper AND kostl = gs\_out1\-kostl .  
      gs\_out\-kostl = gs\_out1\-kostl .*"**成本中心*  
  
*\*        gs\_out-ktext  = gs\_out1-ktext .       "**成本中心名称*  
      gs\_out\-racct  =  gs\_out1\-racct.    *"**会计科目*  
*\*        gs\_out-txt20 = gs\_out1-txt20 .*  
  
      FIELD-SYMBOLS <fs> TYPE any.  
  
      gsday = 'gs\_out-fy' && gs\_out1\-poper.  
      ASSIGN (gsday) TO <fs>.  
      <fs> =  gs\_out1\-sumtsl .  
  
      FIELD-SYMBOLS <fs2> TYPE any.  
      gsday2 = 'gs\_out-rs' && gs\_out1\-poper.  
      ASSIGN (gsday2) TO <fs2> .  
      <fs2> = lv\_rs .  
  
      FIELD-SYMBOLS <fs3> TYPE any.  
      gsday3 = 'gs\_out-pj' && gs\_out1\-poper.  
      ASSIGN (gsday3) TO <fs3> .  
      IF <fs2> IS INITIAL .  
        <fs3>  = 0 .  
      ELSE .  
        <fs3> = <fs> / <fs2> .  
      ENDIF .  
  
      *"  gs\_out-yf4 = gs\_out1-sumtsl .*  
      lv\_fysum = lv\_fysum + <fs> .  
  
      CLEAR : lv\_rs .  
  
    ENDLOOP .  
  
    SELECT SINGLE ktext INTO gs\_out\-ktext FROM cskt  WHERE kostl = gs\_out\-kostl AND kokrs = '8000'.  
    SELECT  SINGLE txt20 INTO gs\_out\-txt20 FROM skat WHERE saknr = gs\_out\-racct AND ktopl = '8000'.  
    gs\_out\-fysum  = lv\_fysum .  
  
    APPEND gs\_out TO gt\_out .  
    CLEAR : gs\_out ,lv\_fysum  .  
  
  
  ENDLOOP .  
  
  
  DEFINE append\_field.  
    gs\_fieldcat\-fieldname = &1.  
    gs\_fieldcat\-seltext\_l = &2.  
    APPEND gs\_fieldcat TO gt\_fieldcat.  
    CLEAR: gs\_fieldcat.  
  END-OF-DEFINITION.  
  
  
  append\_field: 'KOSTL' '成本中心' .  
  append\_field: 'KTEXT' '成本中心名称' .  
  append\_field: 'RACCT' '会计科目' .  
  append\_field: 'TXT20' '会计科目名称' .  
  
  
  DATA: lt\_out2 LIKE TABLE OF gs\_out1 .  
  DATA: ls\_out2 LIKE gs\_out1 .  
  DATA : lv\_i TYPE i .  
  DATA : lv\_low TYPE i .  
  DATA : lv\_high TYPE i .  
  
  lv\_low  = s\_poper\-low .  
  IF  s\_poper\-high IS INITIAL .  
    lv\_high = s\_poper\-low .  
  ELSE .  
    lv\_high = s\_poper\-high .  
  ENDIF .  
  
  
  
  lv\_i = lv\_high \- lv\_low + 1  .  *"**计算选了几个月*  
  
  LOOP AT gt\_out INTO gs\_out .  
    *"**月份费用没有，人数有，单独处理汇总人数*  
    SELECT SUM( rs )   INTO gs\_out\-rssum FROM ztfi010  
      WHERE bukrs = p\_bukrs  AND gjahr = p\_gjahr  AND kostl = gs\_out\-kostl  
      AND poper IN s\_poper .  
    IF gs\_out\-rssum IS NOT INITIAL AND lv\_i IS NOT INITIAL  .  
      gs\_out\-rspj = gs\_out\-rssum / lv\_i  .  
      gs\_out\-fypj = gs\_out\-fysum / ( gs\_out\-rssum / lv\_i ) .  
    ENDIF .  
    MODIFY gt\_out FROM gs\_out .  
  ENDLOOP .  
  
  DATA : lv\_poper TYPE  acdoca\-poper .  
  DATA: rsfield TYPE string .  
  
  DO lv\_i TIMES .  
    lv\_poper = lv\_low .  
    l\_txt = |\{ lv\_poper ALPHA = OUT \}月费用|.  
  
*\*    gs\_fieldcat-fieldname =  'FY' && ls\_out2-poper .*  
    gs\_fieldcat\-fieldname =  |FY\{ lv\_poper ALPHA = IN \}| .  
    gs\_fieldcat\-seltext\_l = l\_txt .  
    APPEND gs\_fieldcat TO gt\_fieldcat.  
    CLEAR: gs\_fieldcat.  
  
  
    l\_txt = |\{ lv\_poper ALPHA = OUT \}月人数|.  
    gs\_fieldcat\-fieldname =  |RS\{ lv\_poper ALPHA = IN \}| .  
    gs\_fieldcat\-seltext\_l = l\_txt .  
    APPEND gs\_fieldcat TO gt\_fieldcat.  
    CLEAR: gs\_fieldcat.  
  
    rsfield  =  | gs\_out\-rs\{ lv\_poper ALPHA = IN \}| .  
    *"**月份费用没有，人数有，单独处理每月人数*  
    LOOP AT gt\_out INTO gs\_out .  
      ASSIGN (rsfield) TO <fs2> .  
      SELECT SINGLE   rs INTO <fs2> FROM ztfi010  
           WHERE bukrs = p\_bukrs  AND gjahr = p\_gjahr  AND kostl = gs\_out\-kostl  AND poper  =  lv\_poper .  
      MODIFY gt\_out FROM gs\_out .  
      CLEAR gs\_out .  
    ENDLOOP .  
  
  
  
    l\_txt = |\{ lv\_poper ALPHA = OUT \}月人均费用|.  
    gs\_fieldcat\-fieldname =  | PJ\{ lv\_poper ALPHA = IN \} | .  
    gs\_fieldcat\-seltext\_l = l\_txt .  
    APPEND gs\_fieldcat TO gt\_fieldcat.  
    CLEAR: gs\_fieldcat.  
  
    lv\_low  = lv\_low + 1 .  
  
  ENDDO .  
  
*\*  fysum type acdoca-tsl,*  
*\*        rspj type acdoca-tsl,*  
*\*        rssum type acdoca-tsl,*  
*\*        fypj type acdoca-tsl,*  
  
  append\_field: 'FYSUM ' '累计费用' .  
  append\_field: 'RSPJ' '平均人数' .  
  append\_field: 'FYPJ' '人均费用' .  
  
  
  
  gs\_layout\-colwidth\_optimize = 'X'.  
  
  CALL FUNCTION 'REUSE\_ALV\_GRID\_DISPLAY'  
    EXPORTING  
      i\_callback\_program       = sy\-repid  
      i\_callback\_pf\_status\_set = 'FRM\_STATUS\_SET'  
      i\_callback\_user\_command  = 'FRM\_USER\_COMMAND'  
*\**  
*\*     I\_GRID\_SETTINGS          =*  
      is\_layout                = gs\_layout  
      it\_fieldcat              = gt\_fieldcat  
*\*     ES\_EXIT\_CAUSED\_BY\_USER   =*  
    TABLES  
      t\_outtab                 = gt\_out  
    EXCEPTIONS  
      program\_error            = 1  
      OTHERS                   = 2.  
  IF sy\-subrc <> 0.  
*\* Implement suitable error handling here*  
  ENDIF.  
  
FORM frm\_status\_set USING ut\_extab TYPE slis\_t\_extab.  
  SET PF-STATUS 'PF\_001'.  
ENDFORM.  
  
  
  
FORM frm\_user\_command USING uv\_ucomm LIKE sy\-ucomm  
                          us\_selfield TYPE slis\_selfield.  
  
  
  
*\*  IF  sy-ucomm EQ '&IC1'  .*  
  
  
  
    READ TABLE gt\_out INDEX  us\_selfield\-tabindex INTO gs\_out .  
    IF sy\-subrc = 0.  
      IF us\_selfield\-fieldname+0(2) = 'FY' .  
  
        CLEAR:S\_POPER.  
          FREE:S\_POPER.  
          S\_POPER\-SIGN = 'I'.  
          S\_POPER\-OPTION = 'BT' .  
          S\_POPER\-LOW = us\_selfield\-FIELDNAME+2(3) .  
          APPEND S\_POPER.  
      SUBMIT zco001\_item  WITH p\_bukrs  = p\_bukrs  
                             WITH p\_gjahr  = p\_gjahr  
                             WITH p\_rcntr  =  gs\_out\-kostl  
*\*                             WITH s\_poper-low  = us\_selfield-fieldname+1(3)*  
                             WITH  S\_POPER IN S\_POPER  
                             WITH p\_racct  =   gs\_out\-racct  
                             AND RETURN.  
  
*\*      ENDIF .*  
    ENDIF .  
  
  ENDIF .  
ENDFORM .  
  
  
  
  
  
*\*  DATA : dd TYPE i .*  
*\**  
*\*  dd = 9 .*  
  
  
  
FORM frm\_configuration USING pv\_vname TYPE dd02v\-tabname.  
  
  CLEAR: gt\_vimsellist.  
  REFRESH: gt\_vimsellist.  
  
  wa\_vimsellist\-viewfield = 'BUKRS'.                                   *" ABAP **字典：视图字段的名称*  
  wa\_vimsellist\-operator  = 'EQ'.                                      *" **选择条件中的操作符**S*  
  wa\_vimsellist\-value     = gv\_bukrs.                                     *" **视图维护函数模块的数据缓冲区*  
  
  APPEND wa\_vimsellist TO gt\_vimsellist.  
*\*&---**自建表维护函数*  
  CALL FUNCTION 'VIEW\_MAINTENANCE\_CALL'  
    EXPORTING  
      action                       = 'U'  
      view\_name                    = pv\_vname  
    TABLES  
      dba\_sellist                  = gt\_vimsellist                      *" **数据库访问选择条件*  
    EXCEPTIONS  
      client\_reference             = 1  
      foreign\_lock                 = 2  
      invalid\_action               = 3  
      no\_clientindependent\_auth    = 4  
      no\_database\_function         = 5  
      no\_editor\_function           = 6  
      no\_show\_auth                 = 7  
      no\_tvdir\_entry               = 8  
      no\_upd\_auth                  = 9  
      only\_show\_allowed            = 10  
      system\_failure               = 11  
      unknown\_field\_in\_dba\_sellist = 12  
      view\_not\_found               = 13  
      maintenance\_prohibited       = 14  
      OTHERS                       = 15.  
  
  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.  
  
  
FORM frm\_check\_screen .  
*\*&---**公司描述*  
  SELECT SINGLE bukrs butxt  
   FROM t001  
   INTO gw\_t001  
  WHERE bukrs = p\_bukrs.  
  IF sy\-subrc <> 0.  
    SET CURSOR FIELD 'P\_BUKRS'.  
    MESSAGE e001(00) WITH TEXT\-e01.  
  ENDIF.  
  
  
ENDFORM.  
  
FORM frm\_authority\_check .  
  
  gv\_bukrs = p\_bukrs.  
  
*\*\*--BEGIN CAOXQ 20171221 **添加公司代码的权限校验**-----------------------------------\**  
*\**  
*\*  authority-check object 'F\_BKPF\_BUK'*  
*\*    id 'BUKRS' field p\_bukrs.*  
*\*  if sy-subrc <> 0.*  
*\*    "**没有销售组织** &1 **的操作权限，请检查！*  
*\*\*    message e002(zfi01) with p\_bukrs.*  
*\*    message e001(00) with '**没有销售组织**' p\_bukrs '**的操作权限，请检查！**'.*  
*\*  endif.*  
*\**  
*\*\*--END CAOXQ 20171221 **添加公司代码的权限校验**-----------------------------------\**  
*\**  
*\*  clear gv\_bukrs.*  
*\**  
*\*  select single bukrs*  
*\*    into gv\_bukrs*  
*\*    from ZTFI001*  
*\*    where bukrs = p\_bukrs.*  
*\**  
*\*  if sy-subrc <> 0.*  
*\*    gv\_bukrs = p\_bukrs(3) && '+'.*  
*\*    select single bukrs*  
*\*      into gv\_bukrs*  
*\*      from ZTFI001*  
*\*      where bukrs = gv\_bukrs.*  
*\**  
*\*    if sy-subrc <> 0.*  
*\*      gv\_bukrs = p\_bukrs(2) && '++'.*  
*\*      select single bukrs*  
*\*        into gv\_bukrs*  
*\*        from ZTFI001*  
*\*        where bukrs = gv\_bukrs.*  
*\*      if sy-subrc <> 0.*  
*\*        gv\_bukrs = p\_bukrs(1) && '+++'.*  
*\*        select single bukrs*  
*\*          into gv\_bukrs*  
*\*          from ZTFI001*  
*\*          where bukrs = gv\_bukrs.*  
*\*        if sy-subrc <> 0.*  
*\*          gv\_bukrs = '++++'.*  
*\*          select single bukrs*  
*\*            into gv\_bukrs*  
*\*            from ZTFI001*  
*\*            where bukrs = gv\_bukrs.*  
*\*          if sy-subrc <> 0.*  
*\*            gv\_bukrs = space.*  
*\*          endif.*  
*\*        endif.*  
*\*      endif.*  
*\*    endif.*  
*\*  endif.*  
ENDFORM.

调用的明细

*\*------------------------------------------------------------\**  
REPORT ZCO001\_ITEM .  
  
*\*----------------------------------------------------------------------\**  
*\* Database table declaration/**数据库表声明*  
*\*----------------------------------------------------------------------\**  
TABLES: ACDOCA.  
*\*----------------------------------------------------------------------\**  
*\* Structure type declaration/**结构声明类型*  
*\*----------------------------------------------------------------------\**  
TYPES: BEGIN OF TY\_ALV,  
         SLBOX,  
         RBUKRS TYPE      ACDOCA\-RBUKRS , *"**公司代码*  
         BUTXT  TYPE      T001\-BUTXT    , *"**公司名称*  
         GJAHR  TYPE      ACDOCA\-GJAHR  , *"**财年*  
         BELNR  TYPE      ACDOCA\-BELNR  , *"**凭证编号*  
         BLART  TYPE      ACDOCA\-BLART  , *"**凭证类型*  
         BUDAT  TYPE      ACDOCA\-BUDAT  , *"**过账日期*  
         BLDAT  TYPE      ACDOCA\-BLDAT  , *"**凭证日期*  
         BKTXT  TYPE      BKPF\-BKTXT    , *"**抬头文本*  
         RACCT  TYPE      ACDOCA\-RACCT  , *"**会计科目*  
         TXT20  TYPE      SKAT\-TXT20    , *"**科目描述*  
         TSL    TYPE      ACDOCA\-TSL    , *"**金额*  
         RTCUR  TYPE      ACDOCA\-RTCUR  , *"**货币*  
         SGTXT  TYPE      ACDOCA\-SGTXT  , *"**行项目文本*  
         RCNTR  TYPE      ACDOCA\-RCNTR  , *"**成本中心*  
         KTEXT  TYPE      CSKT\-KTEXT    , *"**成本中心名称*  
         RFAREA TYPE      ACDOCA\-RFAREA , *"**功能范围*  
  
       END OF TY\_ALV.  
  
  
  
*\*----------------------------------------------------------------------\**  
*\* Global variable definition/**全局变量定义*  
*\*----------------------------------------------------------------------\**  
*\*&---**全局内表定义*  
DATA: GT\_ALV TYPE STANDARD TABLE OF TY\_ALV,  
      GS\_ALV LIKE LINE OF GT\_ALV.  
  
*\*&---**定义**ALV**显示的字段列及其描述等属性*  
DATA:GT\_FIELDCAT TYPE TABLE OF LVC\_S\_FCAT, *" ALV **控制**: **字段目录*  
     GS\_FIELDCAT TYPE LVC\_S\_FCAT,          *" ALV **控制**: **字段目录*  
     GS\_LAYOUT   TYPE LVC\_S\_LAYO.          *" ALV **控制**: **布局结构*  
  
  
*\*&---**全局常量定义*  
*\*&---------------------------------------------------------------------\**  
*\*& Field-symbols/**字段串定义*  
*\*&---------------------------------------------------------------------\**  
  
  
*\*&---------------------------------------------------------------------\**  
*\*&      Define marco*  
*\*&---------------------------------------------------------------------\**  
DEFINE  MACRO\_FCAT.  
  CLEAR GS\_FIELDCAT.  
  GS\_FIELDCAT\-FIELDNAME  = &1.  *"**字段名*  
  GS\_FIELDCAT\-REF\_FIELD  = &2.  *"**参考字段名*  
  GS\_FIELDCAT\-REF\_TABLE  = &3.  *"**参考表名*  
  GS\_FIELDCAT\-COLTEXT    = &4.  *"**列标题*  
  GS\_FIELDCAT\-NO\_ZERO    = &5.  *"**前导零*  
  GS\_FIELDCAT\-EDIT       = &6.  *"**可编辑*  
  GS\_FIELDCAT\-HOTSPOT    = &7.  *"**复选框*  
  GS\_FIELDCAT\-EMPHASIZE  = &8.  *"**设置字段的颜色*  
  GS\_FIELDCAT\-FIX\_COLUMN = &9.  *"**固定列*  
  APPEND GS\_FIELDCAT TO GT\_FIELDCAT.  
  CLEAR GS\_FIELDCAT.  
END-OF-DEFINITION.  
  
*\*----------------------------------------------------------------------\**  
*\* Selection Screen/**选择屏幕*  
*\*----------------------------------------------------------------------\**  
SELECTION-SCREEN:BEGIN OF BLOCK BK1 WITH FRAME TITLE TEXT\-B01. *"**选择条件*  
  PARAMETERS:    P\_BUKRS LIKE    ACDOCA\-RBUKRS    .  
  PARAMETERS:    P\_GJAHR LIKE    ACDOCA\-GJAHR     .  
  PARAMETERS:    P\_RCNTR LIKE    ACDOCA\-RCNTR     .  
  SELECT-OPTIONS:S\_POPER FOR    ACDOCA\-POPER      .  
  PARAMETERS:    P\_RACCT LIKE    ACDOCA\-RACCT     .  
  
SELECTION-SCREEN:END OF BLOCK BK1.  
  
  
*\*&---------------------------------------------------------------------\**  
*\*& INITIALIZATION/**选择屏幕前初始化（选择屏幕展示之前执行）*  
*\*&---------------------------------------------------------------------\**  
INITIALIZATION.  
  PERFORM INITIALIZATION.     *"**设置用户默认参数*  
  
*\*&---------------------------------------------------------------------\**  
*\*& at selection-screen output/**选择屏幕控制（第二屏输出）*  
*\*&---------------------------------------------------------------------\**  
AT SELECTION-SCREEN OUTPUT.  
  
*\*&---------------------------------------------------------------------\**  
*\*& at selection-screen/**选择屏幕执行（参数输入检查）*  
*\*&---------------------------------------------------------------------\**  
AT SELECTION-SCREEN .  
*\*   PERFORM authority\_check.     "**设置权限检查*  
*\*   PERFORM select\_check.        "**查询数据检查*  
  
*\*&---------------------------------------------------------------------\**  
*\*& Start-of-selection/**开始选择屏幕（点击执行按钮之后执行的语块）*  
*\*&---------------------------------------------------------------------\**  
START-OF-SELECTION.  
  PERFORM  GET\_ALV\_DATA.            *"**获取数据*  
  PERFORM FRM\_SET\_FIELDCAT.          *"**设置输出字段*  
  PERFORM FRM\_SET\_LAYOUT.            *"**设置输出格式*  
  PERFORM FRM\_DISPLAY\_ALV.           *"**输出**ALV*  
  
  
*\*&---------------------------------------------------------------------\**  
*\*& end-of-selection/**结束选择屏幕（程序结束处理，输出等）*  
*\*&---------------------------------------------------------------------\**  
END-OF-SELECTION.  
  
*\*&---------------------------------------------------------------------\**  
*\*&      Form  INITIALIZATION*  
*\*&---------------------------------------------------------------------\**  
*\*       **设置用户默认参数*  
*\*----------------------------------------------------------------------\**  
*\*  -->  p1        text*  
*\*  <--  p2        text*  
*\*----------------------------------------------------------------------\**  
FORM INITIALIZATION .  
  
ENDFORM.  
  
*\*&---------------------------------------------------------------------\**  
*\*&      Form  FRM\_SET\_FIELDCAT*  
*\*&---------------------------------------------------------------------\**  
*\*      **设置输出字段*  
*\*----------------------------------------------------------------------\**  
*\*  -->  p1        text*  
*\*  <--  p2        text*  
*\*----------------------------------------------------------------------\**  
FORM FRM\_SET\_FIELDCAT .  
  
  
  MACRO\_FCAT 'RBUKRS'    'RBUKRS  '           'ACDOCA'     '公司代码'       '' '' '' '' ''.  
  MACRO\_FCAT 'BUTXT '    'BUTXT   '           'T001  '     '公司名称'       '' '' '' '' ''.  
  MACRO\_FCAT 'GJAHR '    'GJAHR   '           'ACDOCA'     '财年'           '' '' '' '' ''.  
  MACRO\_FCAT 'BELNR '    'BELNR   '           'ACDOCA'     '凭证编号'       '' '' 'X' '' ''.  
  MACRO\_FCAT 'BLART '    'BLART   '           'ACDOCA'     '凭证类型'       '' '' '' '' ''.  
  MACRO\_FCAT 'BUDAT '    'BUDAT   '           'ACDOCA'     '过账日期'       '' '' '' '' ''.  
  MACRO\_FCAT 'BLDAT '    'BLDAT   '           'ACDOCA'     '凭证日期'       '' '' '' '' ''.  
  MACRO\_FCAT 'BKTXT '    'BKTXT   '           'BKPF  '     '抬头文本'       '' '' '' '' ''.  
  MACRO\_FCAT 'RACCT '    'RACCT   '           'ACDOCA'     '会计科目'       '' '' '' '' ''.  
  MACRO\_FCAT 'TXT20 '    'TXT20   '           'SKAT  '     '科目描述'       '' '' '' '' ''.  
  MACRO\_FCAT 'TSL   '    'TSL     '           'ACDOCA'     '金额'           '' '' '' '' ''.  
  MACRO\_FCAT 'RTCUR '    'RTCUR   '           'ACDOCA'     '货币'           '' '' '' '' ''.  
  MACRO\_FCAT 'SGTXT '    'SGTXT   '           'ACDOCA'     '行项目文本'     '' '' '' '' ''.  
  MACRO\_FCAT 'RCNTR '    'RCNTR   '           'ACDOCA'     '成本中心'       '' '' '' '' ''.  
  MACRO\_FCAT 'KTEXT '    'KTEXT   '           'CSKT  '     '成本中心名称'   '' '' '' '' ''.  
  MACRO\_FCAT 'RFAREA'    'RFAREA  '           'ACDOCA'     '功能范围'       '' '' '' '' ''.  
  
ENDFORM.  
  
*\*&---------------------------------------------------------------------\**  
*\*&      Form  FRM\_SET\_LAYOUT*  
*\*&---------------------------------------------------------------------\**  
*\*       text*  
*\*----------------------------------------------------------------------\**  
*\*  -->  p1        text*  
*\*  <--  p2        text*  
*\*----------------------------------------------------------------------\**  
FORM FRM\_SET\_LAYOUT .  
  GS\_LAYOUT\-CWIDTH\_OPT    = 'X'.   *"**自适应宽度*  
  GS\_LAYOUT\-ZEBRA         = 'X'.   *"**斑马线*  
*\*  gs\_layout-sel\_mode     = 'A'.   "**选择框*  
  GS\_LAYOUT\-BOX\_FNAME  = 'SLBOX'.  *"**选择框字段名*  
ENDFORM.  
  
  
  
  
  
*\*&---------------------------------------------------------------------\**  
*\*& Form GET\_ALV1\_DATA*  
*\*&---------------------------------------------------------------------\**  
*\*&  **获取数据*  
*\*&---------------------------------------------------------------------\**  
*\*& -->  p1        text*  
*\*& <--  p2        text*  
*\*&---------------------------------------------------------------------\**  
FORM GET\_ALV\_DATA .  
  SELECT  
    ACDOCA~RBUKRS , *"**公司代码*  
    T001~BUTXT    , *"**公司名称*  
    ACDOCA~GJAHR  , *"**财年*  
    ACDOCA~BELNR  , *"**凭证编号*  
    ACDOCA~BLART  , *"**凭证类型*  
    ACDOCA~BUDAT  , *"**过账日期*  
    ACDOCA~BLDAT  , *"**凭证日期*  
    BKPF~BKTXT    , *"**抬头文本*  
    ACDOCA~RACCT  , *"**会计科目*  
    SKAT~TXT20    , *"**科目描述*  
    ACDOCA~TSL    , *"**金额*  
*\*    ( CASE DRCRK WHEN 'S' THEN TSL  WHEN 'H' THEN - TSL END ) AS TSL    , "**金额*  
    ACDOCA~RTCUR  , *"**货币*  
    ACDOCA~SGTXT  , *"**行项目文本*  
    ACDOCA~RCNTR  , *"**成本中心*  
    CSKT~KTEXT    , *"**成本中心名称*  
    ACDOCA~RFAREA  *"**功能范围*  
    FROM ACDOCA  
    INNER JOIN T001 ON ACDOCA~RBUKRS = T001~BUKRS  
    INNER JOIN BKPF ON ACDOCA~GJAHR   = BKPF~GJAHR  
                  AND  ACDOCA~BELNR   = BKPF~BELNR  
                  AND  ACDOCA~RBUKRS  = BKPF~BUKRS  
    LEFT JOIN SKAT ON SKAT~SAKNR = ACDOCA~RACCT AND SKAT~KTOPL = '8000'  
    INNER JOIN CSKS ON ACDOCA~RBUKRS = CSKS~BUKRS AND CSKS~KOSTL = ACDOCA~RCNTR  
    LEFT  JOIN CSKT ON CSKT~KOKRS = CSKS~KOKRS AND CSKT~KOSTL = CSKS~KOSTL AND CSKT~KOKRS = '8000'  
    INTO CORRESPONDING FIELDS OF TABLE @GT\_ALV  
    WHERE   ACDOCA~RBUKRS    = @P\_BUKRS  
    AND     ACDOCA~GJAHR     = @P\_GJAHR  
    AND     ACDOCA~RCNTR     = @P\_RCNTR  
    AND     ACDOCA~POPER     IN @S\_POPER  
    AND     ACDOCA~RACCT     = @P\_RACCT .  
  
  
ENDFORM.  
  
  
  
  
*\*&---------------------------------------------------------------------\**  
*\*&      Form  FRM\_DISPLAY\_ALV*  
*\*&---------------------------------------------------------------------\**  
*\*       **输出**ALV*  
*\*----------------------------------------------------------------------\**  
*\*  -->  p1        text*  
*\*  <--  p2        text*  
*\*----------------------------------------------------------------------\**  
FORM FRM\_DISPLAY\_ALV .  
  
  
  CALL FUNCTION 'REUSE\_ALV\_GRID\_DISPLAY\_LVC' *"**调用函数*  
    EXPORTING  
      I\_CALLBACK\_PROGRAM       = SY\-REPID  
      IS\_LAYOUT\_LVC            = GS\_LAYOUT  
      IT\_FIELDCAT\_LVC          = GT\_FIELDCAT  
      I\_SAVE                   = 'A'  
      I\_CALLBACK\_PF\_STATUS\_SET = 'SET\_STATUS'  *"**设置标准工具栏按钮*  
      I\_CALLBACK\_USER\_COMMAND  = 'USER\_COMMAND'   *"**这个指的是用户自定义按钮**,**需要注意的是**‘**里面的名称要有一一对应的**FORM**才行，否则会报错*  
    TABLES  
      T\_OUTTAB                 = GT\_ALV  
    EXCEPTIONS  
      PROGRAM\_ERROR            = 1  
      OTHERS                   = 2.  
  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.  
  
  
  
  
*\*&---------------------------------------------------------------------\**  
*\*&      Form  SET\_PF\_STATUS*  
*\*&---------------------------------------------------------------------\**  
*\*       **设置导入**GUI**状态*  
*\*----------------------------------------------------------------------\**  
*\*  -->  p1        text*  
*\*  <--  p2        text*  
*\*----------------------------------------------------------------------\**  
FORM SET\_STATUS USING UT\_EXTAB TYPE SLIS\_T\_EXTAB.  
  SET PF-STATUS 'STA' EXCLUDING UT\_EXTAB.  
ENDFORM.  
  
  
  
*\*&---------------------------------------------------------------------\**  
*\*&      Form  USER\_COMMAND*  
*\*&---------------------------------------------------------------------\**  
*\*       **保存之自建表响应事件*  
*\*----------------------------------------------------------------------\**  
*\*  -->  p1        text*  
*\*  <--  p2        text*  
*\*----------------------------------------------------------------------\**  
FORM USER\_COMMAND  USING FU\_UCOMM LIKE SY\-UCOMM  
                          FU\_SELFIELD TYPE SLIS\_SELFIELD.  
  DATA: LV\_MRP TYPE BAPI\_MRP\_IND\_LINES\-MRP\_ELEMENT\_IND.  
  DATA: LV\_PLUS\_MINUS TYPE BAPI\_MRP\_IND\_LINES\-PLUS\_MINUS.  
  CLEAR:LV\_MRP.  
  CASE FU\_UCOMM.  
    WHEN '&IC1'.  
      READ TABLE GT\_ALV INTO gs\_ALV INDEX FU\_SELFIELD\-TABINDEX.  
      IF SY\-SUBRC = 0.  
  
        *"**双击凭证号进入**FB03*  
        IF FU\_SELFIELD\-FIELDNAME EQ 'BELNR'.  
          CALL FUNCTION 'AUTHORITY\_CHECK\_TCODE'  
            EXPORTING  
              TCODE  = 'FB03'  
            EXCEPTIONS  
              OK     = 0  
              NOT\_OK = 2  
              OTHERS = 3.  
          IF SY\-SUBRC <> 0.  
          ENDIF.  
          CHECK GS\_ALV\-BELNR IS NOT INITIAL.  
          SET PARAMETER ID 'BLN' FIELD GS\_ALV\-BELNR.  
          SET PARAMETER ID 'BUK' FIELD GS\_ALV\-RBUKRS.  
          SET PARAMETER ID 'GJR' FIELD GS\_ALV\-GJAHR.  
          CALL TRANSACTION 'FB03' AND SKIP FIRST SCREEN.  
        ENDIF.  
      ENDIF.  
  
      *" **刷新**ALV*  
      PERFORM REFRESH\_ALV.  
  
  
    WHEN OTHERS.  
  ENDCASE.  
ENDFORM.  
  
*\*&---------------------------------------------------------------------\**  
*\*&      Form  REFRESH\_ALV*  
*\*&---------------------------------------------------------------------\**  
*\*       text*  
*\*----------------------------------------------------------------------\**  
*\*  -->  p1        text*  
*\*  <--  p2        text*  
*\*----------------------------------------------------------------------\**  
FORM REFRESH\_ALV .  
  DATA: LO\_GRID   TYPE REF TO CL\_GUI\_ALV\_GRID,  
        LW\_STABLE TYPE LVC\_S\_STBL.  
  
  CALL FUNCTION 'GET\_GLOBALS\_FROM\_SLVC\_FULLSCR'  
    IMPORTING  
      E\_GRID = LO\_GRID.  
  
  LW\_STABLE\-ROW = ABAP\_TRUE.  
  LW\_STABLE\-COL = ABAP\_TRUE.  
  LO\_GRID\->REFRESH\_TABLE\_DISPLAY(  
    EXPORTING  
      IS\_STABLE = LW\_STABLE  
    EXCEPTIONS  
      FINISHED  = 1  
      OTHERS    = 2 ).  
  IF SY\-SUBRC = 0.  
  ENDIF.  
ENDFORM.