应付暂估的明细查询还是很麻烦的一件事情,系统本身并不提供相关功能。其开发源代码如下:
*———————————————————————*
* Report ZRFI0950
* Created By : SAP方丈 *
* Created On : 2008/04/17 *
* Description: 1、查询暂估帐 *
*———————————————————————-*
* Modification Log *
*———————————————————————-*
* 01 Changed By : *
* Changed On : *
* Description : *
************************************************************************
REPORT ZRFI0950.
***********************************************************************
* TABLES
***********************************************************************
tables:
bkpf,
kna1, “客户**
knb1, “公司代码
knc1, “会计年度
bsid. “凭证日期
***********************************************************************
* ALV ABOUT
***********************************************************************
type-pools:
slis.
DATA: i_events TYPE slis_t_event WITH HEADER LINE,
i_fieldcat TYPE slis_t_fieldcat_alv WITH HEADER LINE,
i_listcomm TYPE slis_t_listheader WITH HEADER LINE,
i_layout TYPE slis_layout_alv.
***********************************************************************
* GLOBAL VARIABLES
***********************************************************************
data: begin of gt_detail occurs 0, ” 暂估入库列表
hkont like bsis-hkont, ” 科目号
belnr like bsis-belnr, ” 凭证编号
buzei like bsis-buzei, ” 凭证行项目
shkzg like bsis-shkzg, ” 借贷标识
budat like bsis-budat, ” 过帐日期
dmbtr like bsis-dmbtr, ” 发生金额
ebeln like bseg-ebeln, ” 采购凭证
lifnr like ekko-lifnr, ” 供应商号
lname LIKE lfa1-name1,
dnume type i, ” 帐龄
end of gt_detail,
BEGIN OF gt_out OCCURS 0,
id type i, ” 序号
lifnr LIKE ekko-lifnr, “供应商号
lname like lfa1-name1, “供应商名
ncdat like bsis-dmbtr, “年初余额
qmdat like bsis-dmbtr, “期末余额
qjone like bsis-dmbtr, “0-90天
qjtwo like bsis-dmbtr, “91-180
qjthr like bsis-dmbtr, “181-270
qjfou like bsis-dmbtr, “271-360
qjfiv like bsis-dmbtr, “>360
END OF gt_out.
data: gt_ebeln LIKE STANDARD TABLE OF gt_detail WITH HEADER LINE,
wa_lname LIKE lfa1-name1.
**************