在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.
分享到:
相关推荐
ABAP - Keyword Documentation This documentation describes the syntax and meaning of the keywords of the ABAP language and its object-oriented part ABAP Objects. Alongside this, language frameworks ...
ABAP-培训教材附录 ABAP-培训教材ABAP-培训教材ABAP-培训教材ABAP-培训教材
CD260-ABAP-in-Eclipse-开发-CN CD260-ABAP-in-Eclipse-开发-CNCD260-ABAP-in-Eclipse-开发-CNCD260-ABAP-in-Eclipse-开发-CN
eclipse-abap-keywordcolors eclipse-abap-关键字颜色
ABAP-透明表学习笔记.py
动态内表的创建,动态内表的赋值,动态内表的读取显示
ABAP-根据T-CODE找用户出口;ABAP-根据T-CODE找用户出口
ABAP-学习笔记-通用
SAP-ABAP-OO-实现-CL-SALV-TABLE
SAP方丈-ABAP-SAP增强应用实例
SAP-ABAP-Certification-Review.pdf
ABAP-选择屏幕 Dynpros 基础 通过这个屏幕实例可以了解屏幕元素的构成,及屏幕事件。
ABAP-数据类型学习笔记
ABAP-EXCEL编程 完整详细例子
SAP中文教材全系列之:ABAP中文标准教材-BC400_ZH_Col63_FV_Part_A4 陆续更新中。
ABAP 读EXCEL 到内表 ABAP总结之BDC完整版 ABAP的面向对象-class的定义 SAP ABAP程序优化方法 table_control中的小操作 ABAP 搜索帮助 ABAP如何自定义下拉列表 ALV常用参数详细描述 SD相关表 如何建立通过sap表...
SAP初探之ABAP-数据库对象 解释说明 在ABAP里面 面向对象的概念
SAP资料集有ABAP-PP-MM-RFC-BAPI-JCO等.rar
SAP ABAP-Dictionary_查询表结构和内容 实战技术
ABAP-OLE[借鉴].pdf