ALV台账统计表

逃离我推掉我的手 2022-09-30 06:15 183阅读 0赞

在sap开发中常常需要开发台账表,台账的统计时间是变动的, 我们通常会用临时程序来处理。我这里介绍一个简单的动态台账表(统计月份，周等在有限范围内)的实现方法。  
1、申明内表  
DATA: BEGIN OF gt\_list OCCURS 0,  
        pernr    LIKE pa0001-pernr,        "员工编号  
        ename    LIKE pa0001-ename,        "员工姓名  
        gjj1 TYPE p DECIMALS 2,       "计算周期一字段  
        gjj2 TYPE p DECIMALS 2,       "  
        gjj3 TYPE p DECIMALS 2,       "  
        gjj4 TYPE p DECIMALS 2,       "  
        gjj5 TYPE p DECIMALS 2,       "  
        gjj6 TYPE p DECIMALS 2,       "  
        gjj7 TYPE p DECIMALS 2,       "  
        gjj8 TYPE p DECIMALS 2,       "  
        gjj9 TYPE p DECIMALS 2,       "  
        gjj10 TYPE p DECIMALS 2,       "  
        gjj11 TYPE p DECIMALS 2,       "  
        gjj12 TYPE p DECIMALS 2,       "计算周期12字段  
        gjj TYPE p DECIMALS 2,       "计算合计字段  
      END OF gt\_list.  
计算的周期字段由自己需求最大来定义，本例子是12个月的台账统计报表，所以只定义12个字段；

2、定义统计周期参数  
PARAMETERS: p\_spmons TYPE s031-spmon OBLIGATORY MEMORY ID per DEFAULT sy-datum+0(6) .  
PARAMETERS: p\_spmone  TYPE s031-spmon OBLIGATORY MEMORY ID per DEFAULT sy-datum+0(6) .

3、在AT SELECTION-SCREEN.事件中检查台账期间的合法性  
AT SELECTION-SCREEN.  
  CONCATENATE   p\_spmons+0(6)  '01' INTO g\_sdate.  
  CONCATENATE   p\_spmone+0(6)  '01' INTO g\_edate.  
  CALL FUNCTION 'LAST\_DAY\_OF\_MONTHS'  
    EXPORTING  
      day\_in            = g\_edate  
    IMPORTING  
      last\_day\_of\_month = g\_edate.  
  IF g\_sdate > g\_edate.  
    MESSAGE '截止日期必须大于起始日期'   TYPE 'E'.  
  ENDIF.  
  CALL FUNCTION 'DURATION\_DETERMINE'  
    EXPORTING  
      unit       = 'MON'  
    IMPORTING  
      duration   = g\_count  
    CHANGING  
      start\_date = g\_sdate  
      end\_date   = g\_edate.  
  IF g\_count > 12.  
    MESSAGE '台帐统计不能超过12个月份'   TYPE 'E'.  
  ENDIF.

4、如何定义显示Grid字段格式(参见红色部分代码)  
FORM f\_fieldcat\_init USING im\_fieldcat TYPE slis\_t\_fieldcat\_alv  
                           im\_sort TYPE slis\_t\_sortinfo\_alv.  
  DATA: ls\_fieldcat TYPE slis\_fieldcat\_alv,  
        ls\_sort TYPE slis\_sortinfo\_alv.  
  DATA: s TYPE d.  
  DATA: month(5).  
  DATA: field(20).  
  DATA: n TYPE i.  
\* "字段名要大写  
  s = g\_sdate.

REFRESH im\_fieldcat.  
  REFRESH im\_sort.  
  CLEAR ls\_fieldcat.  
  ls\_fieldcat-fieldname = 'ENAME'.  
  ls\_fieldcat-seltext\_l = '员工姓名'.  
  ls\_fieldcat-outputlen = '10'.  
  APPEND ls\_fieldcat TO im\_fieldcat.

\*根据输入确定显示统计输出的字段  
  n = 1.  
  WHILE s+0(6) <= g\_edate+0(6).  
    WRITE n TO month LEFT-JUSTIFIED.  
    CONCATENATE 'GJJ' month INTO month.  
    CONCATENATE s+0(6) '月' '金额'  INTO field.  
    CLEAR ls\_fieldcat.  
    ls\_fieldcat-fieldname =  month.  
    ls\_fieldcat-seltext\_m = field.  
    ls\_fieldcat-outputlen = 15.  
    ls\_fieldcat-do\_sum    = 'X'.  
    ls\_fieldcat-no\_zero   = 'X'.  
    APPEND ls\_fieldcat TO im\_fieldcat.  
    n = n + 1.  
    CALL FUNCTION 'START\_TIME\_DETERMINE'  
      EXPORTING  
        duration   = -1  
        unit       = 'MON'  
      IMPORTING  
        start\_date = s  
      CHANGING  
        end\_date   = s.  
  ENDWHILE.

CLEAR ls\_fieldcat.  
  ls\_fieldcat-fieldname =  'GJJ'.  
  ls\_fieldcat-seltext\_m =  '合计'.  
  ls\_fieldcat-outputlen = 15.  
  ls\_fieldcat-do\_sum    = 'X'.  
  ls\_fieldcat-no\_zero   = 'X'.  
  APPEND ls\_fieldcat TO im\_fieldcat.  
endform.

5、如何在计算时填写内表的合适字段  
  data: l\_monthdur type i,  
        l\_date type d.  
      l\_date = sdate."数据的日期  
\*计算数据的日期和起始日期的月份差  
      CALL FUNCTION 'DURATION\_DETERMINE'  
        EXPORTING  
          unit       = 'MON'  
        IMPORTING  
          duration   = l\_monthdur  
        CHANGING  
          start\_date = g\_sdate  
          end\_date   = l\_date.  
      IF l\_monthdur = 0.  
        l\_monthdur = 1.  
      ENDIF.  
\*根据月份差将数据算到相应字段  
          CASE l\_monthdur.  
            WHEN 1.  
              gt\_list-gjj1 = gt\_list-gjj1 + wa\_rt\_header-betrg / 2.  
            WHEN 2.  
              gt\_list-gjj2 = gt\_list-gjj2 + wa\_rt\_header-betrg / 2.  
            WHEN 3.  
              gt\_list-gjj3 = gt\_list-gjj3 + wa\_rt\_header-betrg / 2.  
            WHEN 4.  
              gt\_list-gjj4 = gt\_list-gjj4 + wa\_rt\_header-betrg / 2.  
            WHEN 5.  
              gt\_list-gjj5 = gt\_list-gjj5 + wa\_rt\_header-betrg / 2.  
            WHEN 6.  
              gt\_list-gjj6 = gt\_list-gjj6 + wa\_rt\_header-betrg / 2.  
            WHEN 7.  
              gt\_list-gjj7 = gt\_list-gjj7 + wa\_rt\_header-betrg / 2.  
            WHEN 8.  
              gt\_list-gjj8 = gt\_list-gjj8 + wa\_rt\_header-betrg / 2.  
            WHEN 9.  
              gt\_list-gjj9 = gt\_list-gjj9 + wa\_rt\_header-betrg / 2.  
            WHEN 10.  
              gt\_list-gjj10 = gt\_list-gjj10 + wa\_rt\_header-betrg / 2.  
            WHEN 11.  
              gt\_list-gjj11 = gt\_list-gjj11 + wa\_rt\_header-betrg / 2.  
            WHEN 12.  
              gt\_list-gjj12 = gt\_list-gjj12 + wa\_rt\_header-betrg / 2.  
          ENDCASE.

本文来自CSDN博客，转载请标明出处：[http://blog.csdn.net/CompassButton/archive/2007/10/15/1826033.aspx][http_blog.csdn.net_CompassButton_archive_2007_10_15_1826033.aspx]

[http_blog.csdn.net_CompassButton_archive_2007_10_15_1826033.aspx]: http://blog.csdn.net/CompassButton/archive/2007/10/15/1826033.aspx