作业需求编写FI模块应收应付的报表.docx
- 文档编号:26742180
- 上传时间:2023-06-22
- 格式:DOCX
- 页数:28
- 大小:332.98KB
作业需求编写FI模块应收应付的报表.docx
《作业需求编写FI模块应收应付的报表.docx》由会员分享,可在线阅读,更多相关《作业需求编写FI模块应收应付的报表.docx(28页珍藏版)》请在冰豆网上搜索。
作业需求编写FI模块应收应付的报表
作业需求:
编写FI模块应收应付的报表
目录:
1.作业目的和安排
本作业的目的是:
1.为了进一步熟悉ABAP的编程技巧;
2.更主要的目标的:
熟悉sapfi模块的应收和应付业务场景;
3.熟悉相关的表;
2.作业简单需求
开发一个FI模块的报表:
输入的条件是:
供应商(但是可以多选),公司代码(必输)账龄计算日:
报表输出字段包括:
公司代码、供应商(客户),年度销售总额、应付(收)账款总额、<0天金额
1-30天,31-60天,61-90天,91-150天,150天以上
数据结果需要和这个表进行比对。
3.作业要求
时间要求:
1.郭裕的要求
2天左右开发完成报表;
2.一般的项目要求
给予4天左右。
3.最低要求
4.作业过程
1.充分分析需求;
2.对于复杂程序在编写之前要画流程图;
为了方便和加深对要编写程序的理解,我们一般:
步骤一:
编写字段来源
输入的条件是:
公司代码(必输),供应商(但是可以多选),账龄计算日(默认今天)
报表输出字段包括:
公司代码、供应商,年度采购总额、应付账款总额、<=0天金额,1-30天,31-60天,61-90天,91-150天,150天以上
需要的表字段:
(具体见步骤2)
BSIK(会计核算:
供应商的第二次索引(未结算项目)):
公司代码(bukrs),供应商(lifnr),清帐日期(AUGDT)用于到期日计算的基准日期(ZFBDT)
BSAK(会计核算:
供应商的第二个索引(已结算项目)):
公司代码(bukrs),供应商(lifnr),清帐日期(AUGDT)用于到期日计算的基准日期(ZFBDT)
要知道年度采购总额,必须知道年度已付账款总额+年度应付账款总额,采购成立与否,是由收到发票与否来判断的。
每张发票都对应一个会计凭证,此凭证分别在bsik和bsak中都可找到。
经se16n检查,bsik中清算单据的单据号码(AUGBL)全部为空,bsak中清算单据的单据号码(AUGBL)全部不为空。
这个字段表示对会计凭证编号(BELNR)的清算单据号,blart代表凭证类型。
例子:
用f-53实验了2笔清帐凭证,2笔都是完全清帐了1个会计凭证,部分清帐了1个会计凭证。
第1笔清帐凭证号是1500000005,我填的开始总清帐金额为1234元,完全清帐了5100000673的696元,部分清帐了1500000005的538元,一共就是1234元。
第2笔清帐凭证号为1500000006,开始清帐总金额为2345元,完全清帐了5100000004的367.72元,部分清帐了1500000006的1977.28元,共2345元。
在se11中查看bsak,可以分别看到2笔清帐凭证已经完成的清帐,注意SHKZG是借贷标记,DMBTR(按本位币计的金额)和WRBTR(凭证货币金额),
同样在se11中查看bsik,可以分别看到2笔清帐凭证部分完成的清帐:
年度采购总额可以通过发票金额总额来判断,也就是bsik和bsak中凭证类型为RE的。
应付账款总额,即bsik中所有凭证金额之和(正负冲销,原因见下面)。
上图其实是已清的,为何在未清中呢?
这很令人混淆,其实答案很简单,它是正值!
写到那里就是为了冲销用的,所有应付的实质是欠款,因此显示都是负值,因此,它们还是显示原来的值(负值),不管冲销多少,只要没冲销完,就显示原来的,比如下图:
已经被冲销了很多次了,可是没有完,所以值不变。
正负冲销的判断是借方或贷方科目,在字段借贷标识(SHKZG)中。
步骤二:
画数据来源表的逻辑关系
本次表关系比较简单,难在1.业务的理解和数据的寻找2.程序的统计功能上。
还在艰难摸索中。
步骤三:
具体完整程序流程
"在bsik中累加得到发票总金额
select bukrs lifnr sum( dmbtr )
into table git_bsik_sum
from bsik
where bukrs = s_bukrs
and lifnr in s_lifnr
and blart = 'RE'
group by bukrs lifnr.
"在bsak中累加得到发票总金额
select bukrs lifnr sum( dmbtr )
into table git_bsak_sum
from bsak
where bukrs = s_bukrs
and lifnr in s_lifnr
and blart = 'RE'
group by bukrs lifnr.
"合并未结算发票总额表git_bsik_sum与已结算发票总额表git_bsak_sum,结果
"得到销售总额表git_sum
git_sum[] = git_bsak_sum[].
"sort git_sum by lifnr.
loop at git_bsik_sum.
loop at git_bsak_sum.
first_index = SY-TABIX.
check = 0.
if git_bsik_sum-lifnr = git_bsak_sum-lifnr.
clear wa_sum.
wa_sum-bukrs = git_bsak_sum-bukrs.
wa_sum-lifnr = git_bsak_sum-lifnr.
wa_sum-dmbtr_sum = git_bsik_sum-dmbtr_sum + git_bsak_sum-dmbtr_sum.
modify git_sum from wa_sum index first_index.
check = 1.
exit.
endif.
endloop.
if check = 0.
clear wa_sum.
wa_sum-bukrs = git_bsik_sum-bukrs.
wa_sum-lifnr = git_bsik_sum-lifnr.
wa_sum-dmbtr_sum = git_bsik_sum-dmbtr_sum.
append wa_sum to git_sum.
endif.
endloop.
"对销售总额表按公司与供应商进行排序
sort git_sum by bukrs lifnr.
"程序设计中的检查功能
* write:
/ '销售总额表git_sum'.
* write:
/ '#############################################'.
* loop at git_sum.
* write:
/ git_sum-bukrs, git_sum-lifnr, git_sum-dmbtr_sum.
* endloop.
"在bsik中以公司供应商与借贷标识累加得到应付账款总额的分别借贷方
"得到处理前的应付账款总额表
select bukrs lifnr SHKZG sum( dmbtr )
into table git_bsik_yfze
from bsik
where bukrs = s_bukrs
and lifnr in s_lifnr
group by bukrs lifnr shkzg.
(难点)计算应付账款总额:
思路:
设置check为s,开始循环,done=0,检查是否H,
一.是上体是否h(由check判断),1.是则上体写入git,本体写入wa,check设为h;
2.否则本体写入wa,check设为h。
二.否本体减额写入wa,写入git,done=1,check设为s。
三.判断是否到了表尾,是则判断done是否为0,是则本体写入git,最后一次清空wa。
"对此处理前应付总额表分别借贷方进行升序排序,'S'在前,'H'在后
sort git_bsik_yfze by bukrs lifnr SHKZG.
* loop at git_bsik_yfze. "程序设计中的检查功能
* write:
/ git_bsik_yfze-bukrs, git_bsik_yfze-lifnr, git_bsik_yfze-SHKZG, git_bsik_yfze-dmbtr_sum.
* endloop.
"得到合并借贷方后的处理后应付账款总额表git_bsik_yfzep p代表process”已经处理过的“
clear git_bsik_yfzep[].
check_p = 's'.
loop at git_bsik_yfze.
if git_bsik_yfze-SHKZG = 'H'.
if check_p = 'h'.
append wa_bsik_yfzep to git_bsik_yfzep.
clear wa_bsik_yfzep.
wa_bsik_yfzep-bukrs = git_bsik_yfze-bukrs.
wa_bsik_yfzep-lifnr = git_bsik_yfze-lifnr.
wa_bsik_yfzep-dmbtr_sum = git_bsik_yfze-dmbtr_sum.
check_p = 'h'.
else.
clear wa_bsik_yfzep.
wa_bsik_yfzep-bukrs = git_bsik_yfze-bukrs.
wa_bsik_yfzep-lifnr = git_bsik_yfze-lifnr.
wa_bsik_yfzep-dmbtr_sum = git_bsik_yfze-dmbtr_sum.
check_p = 'h'.
endif.
else.
wa_bsik_yfzep-bukrs = git_bsik_yfze-bukrs.
wa_bsik_yfzep-lifnr = git_bsik_yfze-lifnr.
wa_bsik_yfzep-dmbtr_sum = wa_bsik_yfzep-dmbtr_sum - git_bsik_yfze-dmbtr_sum.
if wa_bsik_yfzep-dmbtr_sum <> 0.
append wa_bsik_yfzep to git_bsik_yfzep.
endif.
check_p = 's'.
"initial_yingfu = initial_yingfu + git_bsik_yfze-dmbtr.
endif.
endloop.
"对处理后应付账款总额表进行排序
sort git_bsik_yfzep by bukrs lifnr.
* write:
/ '处理后应付账款总额表git_bsik_yfzep'.
* write:
/ '#############################################'.
* loop at git_bsik_yfzep. "程序设计中的检查功能
* write:
/ git_bsik_yfzep-bukrs, git_bsik_yfzep-lifnr, git_bsik_yfzep-dmbtr_sum.
* endloop.
(难点)合并年度采购总额和应付账款总额表:
思路:
Loop年度采购总额表,在应付账款总额表中找公司号与供应商号相同记录,找到则将应付账款总额加入,否则为0。
写入git。
Loop应付账款总额表,在年度采购总额表中找公司号与供应商号不同记录(因为上一步已经找了相同记录),如果是则将采购总额加入,否则为0。
写入git。
"合并销售总额表git_sum与应付账款总额表git_bsik_yfzep 第一步
refresh git_sumyfzep[].
loop at git_sum.
read table git_bsik_yfzep
with key bukrs = git_sum-bukrs
lifnr = git_sum-lifnr
binary search.
if sy-subrc = 0.
clear wa_sumyfzep.
wa_sumyfzep-bukrs = git_sum-bukrs.
wa_sumyfzep-lifnr = git_sum-lifnr.
wa_sumyfzep-dmbtr_gsum = git_sum-dmbtr_sum.
wa_sumyfzep-dmbtr_yfzep = git_bsik_yfzep-dmbtr_sum.
append wa_sumyfzep to git_sumyfzep.
else.
clear wa_sumyfzep.
wa_sumyfzep-bukrs = git_sum-bukrs.
wa_sumyfzep-lifnr = git_sum-lifnr.
wa_sumyfzep-dmbtr_gsum = git_sum-dmbtr_sum.
wa_sumyfzep-dmbtr_yfzep = 0.
append wa_sumyfzep to git_sumyfzep.
endif.
endloop.
"sort git_sum by bukrs lifnr. 前面已经sort过了,且没有改动表
"合并销售总额表git_sum与应付账款总额表git_bsik_yfzep 第二步
loop at git_bsik_yfzep.
read table git_sum
with key bukrs = git_bsik_yfzep-bukrs
lifnr = git_bsik_yfzep-lifnr
binary search.
if sy-subrc <> 0.
clear wa_sumyfzep.
wa_sumyfzep-bukrs = git_bsik_yfzep-bukrs.
wa_sumyfzep-lifnr = git_bsik_yfzep-lifnr.
wa_sumyfzep-dmbtr_gsum = 0.
wa_sumyfzep-dmbtr_yfzep = git_bsik_yfzep-dmbtr_sum.
append wa_sumyfzep to git_sumyfzep.
endif.
endloop.
"将得到的销售总额与应付账款总额表git_sumyfzep排序
sort git_sumyfzep by bukrs lifnr.
"程序设计中的检查功能
* write:
/ '销售总额与应付账款总额表git_sumyfzep'.
* write:
/ '#############################################'.
* loop at git_sumyfzep.
* write:
/ git_sumyfzep-bukrs, git_sumyfzep-lifnr, git_sumyfzep-dmbtr_gsum, git_sumyfzep-dmbtr_yfzep.
* endloop.
"内表无法inner join
* select
* a~bukrs
* a~lifnr
* a~dmbtr_sum
* b~dmbtr_sum
* into table git_sumyfzep
* from git_sum as a left join git_bsik_yfzep as b
* on a~bukrs = b~bukrs
* and a~lifnr = b~lifnr.
* loop at git_bsik_yfze. "程序设计中的检查功能
* write:
/ git_bsik_yfze-bukrs, git_bsik_yfze-lifnr, git_bsik_yfze-SHKZG, git_bsik_yfze-dmbtr_sum.
* endloop.
(难点)统计不同时间段的应付账款总额:
Loopgit_bsik表,
-1.赋值tmax_git_bsik=SY-TMAXL。
0.如果为借方,则直接重新循环。
(原因见4)
1.如果SY-TABIX=1,记录此供应商号入wa,readme=1,check=0,然后进入2;
否则与上一供应商号比,相等且check=0则重新循环。
若不等且check=0则记录此供应商号入wa,readme=1,进入下一步。
若相等且check=1,进入下一步。
若不等且check=1,则通过wa直接根据tabix_sumyfzep来modifygit_sumyfzep表,清空wa,记录供应商号入wa,check=0,readme=1,进入下一步。
2.如果readme=0,直接进入3;
如果readme=1,读表git_sumyfzep看有无记录的供应商号且应付总额不为0,
无则check=0,重新循环。
有则check=1,readme=0,并记录读此表的sy-tabix(tabix_sumyfzep=sy-tabix)进入下一步。
3.判断是否为贷方(原因见4),是则按账龄计算日与付款基准日ZFBDT对比,归类于不同时间段来累加金额,重新循环。
4.判断是否到达表尾(此为最后一条记录),也就是最外层sy-tabix是否等于tmax_git_bsik,是则通过wa直接根据tabix_sumyfzep来modifygit_sumyfzep表,最后一次清空wa,跳出。
5.由于业务理解阻碍,程序无法完美实现,因此只能做出半成品,可以知道应付账款各二阶汇总原始总额(贷方数据),而无法知道其现实总额(被借方冲销后剩余的贷方数据)
"按公司与供应商把所有借贷方金额与付款基准日期选出,以备二阶汇总
select bukrs lifnr SHKZG dmbtr ZFBDT
into corresponding fields of table git_bsik
from bsik
where bukrs = s_bukrs
and lifnr in s_lifnr.
"将二阶汇总备用表git_bsik按公司与供应商排序
sort git_bsik by bukrs lifnr.
"将二阶汇总应付数据写入销售与应付总额表,得到最终git_sumyfzep表
clear wa_sumyfzep. "重要!
!
!
我很容易就搞忘了
loop at git_bsik.
if git_bsik-shkzg = 'S'.
continue.
endif.
if sy-tabix = 1.
wa_sumyfzep-bukrs = git_bsik-bukrs.
wa_sumyfzep-lifnr = git_bsik-lifnr.
readme = 1.
check = 0.
else.
if ( git_bsik-lifnr = wa_sumyfzep-lifnr and check = 0 ).
continue.
endif.
if ( git_bsik-lifnr <> wa_sumyfzep-lifnr and check = 0 ).
wa_sumyfzep-bukrs = git_bsik-bukrs.
wa_sumyfzep-lifnr = git_bsik-lifnr.
readme = 1.
endif.
if ( git_bsik-lifnr = wa_sumyfzep-lifnr and check = 1 ).
"直接往下走
endif.
if ( git_bsik-lifnr <> wa_sumyfzep-lifnr and check = 1 ).
modify git_sumyfzep from wa_sumyfzep index tabix_sumyfzep.
clear wa_sumyfzep.
wa_sumyfzep-bukrs = git_bsik-bukrs.
wa_sumyfzep-lifnr = git_bsik-lifnr.
check = 0.
readme = 1.
endif.
endif.
if readme = 0.
"直接往下走
endif.
if readme = 1.
"看此公司供应商是否有应付账款,有的话肯定在git_sumyfzep中有记录
read table git_sumyfzep
with key lifnr = wa_sumyfzep-lifnr
binary search.
if sy-subrc <> 0.
continue.
else.
if git_sumyfzep-dmbtr_yfzep = 0.
continue.
endif.
endif.
check = 1.
readme = 0.
tabix_sumyfzep = sy-tabix.
wa_sumyfzep-dmbtr_
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 作业 需求 编写 FI 模块 应收 应付 报表
![提示](https://static.bdocx.com/images/bang_tan.gif)