SAPABAP应付账款账龄分析表
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
SAP ABAP应付账款账龄分析表
*&---------------------------------------------------------------------*
*&Report ZRP_FI_011
*&
*&---------------------------------------------------------------------*
*&
*&
*&00012012.01.03MINGOS由于取余额函数取数出错，自己写FM *&---------------------------------------------------------------------*
REPORT zrp_fi_011LINE-SIZE800NO STANDARD PAGE HEADING.
TABLES:lfa1,bsik,LFB1.
*Global data declaration
TYPE-POOLS:slis.
TYPES:BEGIN OF gt_vend,
bukrs LIKE bsid-bukrs,
lifnr LIKE lfa1-lifnr,
name1LIKE lfa1-name1,
gjahr LIKE bsid-gjahr,
monat LIKE bsid-monat,
waers LIKE fdbl_header-waers,
bgber LIKE fdbl_balance_line-balance,"期初余额
arber LIKE fdbl_balance_line-balance,"本期销售
pyber LIKE fdbl_balance_line-balance,"本期收款
blber LIKE fdbl_balance_line-balance,"本期余额
END OF gt_vend.
TYPES:BEGIN OF gt_bsik.
INCLUDE STRUCTURE bsik.
TYPES:END OF gt_bsik.
*GLOBAL STRUCTURE OF LIST
TYPES:BEGIN OF t_outtab,
bukrs LIKE bsid-bukrs,
lifnr LIKE lfa1-lifnr,
name1LIKE lfa1-name1,
gjahr LIKE bsid-gjahr,
monat LIKE bsid-monat,
waers LIKE fdbl_header-waers,
bgber LIKE fdbl_balance_line-balance,"期初余额
arber LIKE fdbl_balance_line-balance,"本期销售
pyber LIKE fdbl_balance_line-balance,"本期收款
blber LIKE fdbl_balance_line-balance,"本期余额
bera0LIKE fdbl_balance_line-balance,"账龄<0天
bera1LIKE fdbl_balance_line-balance,"账龄0~30天
bera2LIKE fdbl_balance_line-balance,"账龄31~60天
bera3LIKE fdbl_balance_line-balance,"账龄61~90天
bera4LIKE fdbl_balance_line-balance,"账龄91~120天
bera5LIKE fdbl_balance_line-balance,"账龄121~180天
bera6LIKE fdbl_balance_line-balance,"账龄181~360天
bera7LIKE fdbl_balance_line-balance,"账龄>360天
END OF t_outtab.
*Data variable for use of ALV
DATA:i_gt_fieldcat TYPE slis_t_fieldcat_alv.
DATA:i_gt_outtab TYPE t_outtab OCCURS0WITH HEADER LINE.
DATA:i_gt_excluding TYPE slis_t_extab.
DATA:v_gt_repid LIKE sy-repid.
DATA:i_gt_events TYPE slis_t_event.
DATA:v_gt_variant LIKE disvariant.
DATA:i_gs_layout TYPE slis_layout_alv,
g_val like lfa1-lifnr.
DATA:lt_vend TYPE gt_vend OCCURS0WITH HEADER LINE.
DATA:lt_bsik TYPE gt_bsik OCCURS0WITH HEADER LINE.
*---------------------------------------------------------------------* *SELECTION SCREEN*
*---------------------------------------------------------------------* SELECTION-SCREEN BEGIN OF BLOCK b1WITH FRAME TITLE text-001.
SELECT-OPTIONS:s_bukrs
FOR bsik-bukrs NO INTERVALS OBLIGATORY,
s_lifnr FOR bsik-lifnr,
s_ktokk FOR lfa1-ktokk,
s_akont FOR lfb1-akont.
PARAMETERS:p_gjahr LIKE bsid-gjahr,