应收账款账龄分析表
第七章 营运资本管理-应收账款的监控(二)——账龄分析表
2015年全国会计专业技术中级资格考试内部资料
财务管理
第七章 营运资本管理
知识点：应收账款的监控（二）——账龄分析表● 详细描述：
优点：比应收账款周转天数更能揭示应收账款变化趋势，因为账龄分析表给出了应收账款分布的模式，而不仅仅是一个平均数。
假定信用期限为30天，表7-4的账龄分析表反映出30%的应收账款为逾期账款。
表7-4 账龄分析表
例题：
1.账龄分析表比计算应收账款周转天数更能揭示应收账款的变化趋势。
（）
A.正确
B.错误
正确答案：A
解析：账龄分析表比计算应收账款周转天数更能揭示应收账款的变化趋势，因为账龄分析表给出了应收账款分布的模式，而不仅仅是一个平均数。
账龄（天）
应收账款金额（元）占应收账款总额的百分比（%）0-30
175********-60
3750001561-90
2500001091以上
1250005合计
2500000100。
应收账款账龄分析表制作
应收账款账龄分析做过财务的人都清楚我们的软件里也设有对应收账款的账龄的分析，但是好多企业都没有对账龄分析的好的财务软件，就像是我们的财务软件里面没有固定资产模块，可以自动计提折旧一样，我们只好用函数和一些别的方法来实现对于应收账款账龄的分析了，下面要用到的是数据透视表来做账龄分析表。
求和项:金额列标签行标签1-3061-90>121总计李四1500015000刘明60006000马二40004000王五30003000张海7000070000张三500000500000总计5100007300015000598000看到如此规范的一个账龄分析表，你可能只在财务软件里看到过，现实工作当中我利用了三个技巧，将此表做好。
①数据自动获取（OFFSET函数）②数据自动刷新（VBA）③数据组合（将账龄分好）第一步：单击任何一个单元格，点击“公式”-“定义名称”，如下图在引用位置输入offset函数，定义名称为“动态数据”，修改引用位置=offset(Sheet1!$A$1,0,0,counta(Sheet1!$A:$A),counta(Sheet1!$1:$1))这个引用位置公式是利用了offset的一个用法，“Sheet1!$A$1”表示起点第一个单元格；第一个0表示向下0行；第二个0表示向右0列；counta(Sheet1!$A:$A)表示有几行，选中第一列就可以，但是需要注意的是第一列不能有空单元格，否则会出现错误；counta(Sheet1!$1:$1)表示有几列，选中第一行就知道有几列了，同样不能有空单元格。
（注：OFFSET函数，有如下两种用法①OFFSET(起点，向下几行，向右几列)②OFFSET(起点，向下几行，向右几列，多少行，多少列)第一个用法是获取某个动态单元格，第二个用法是获取某个动态区域）第二步：要想实现数据的自动刷新就要借助VBA了,先要根据获取的动态数据插入一个数据透视表，然后再实现VBA的使用。
excel 应收账款账龄分析与坏账提取
6.2.2 创建坏账统计表格并统计坏账金额所占比例
输入公式计算第一个 客户的坏账金额总值， 然后将公式向下复制， 计算其他客户的坏账 金额总值
利用“求和”按钮 计算坏账金额合计 值
制作的统 计表格
输入公式计算第一个客户 坏账金额所占比例值，然 后复制公式计算所有客户 坏账金额所占比例值
6.2.3 创建图表分析应提取坏账
“应收账款明细”工作表标签， 在表格的右侧添加“坏账提 取比例”和“坏账金额”列， 并设置其数字格式分别为 “百分比”和“货币”，然 后输入公式计算第一位客户 在应收账款账龄的坏账提取 比例
复制公式计算出其他 客户在应收账款账龄 的坏账提取比例
输入公式计算第 一位客户的应提 取坏账金额 复制公式计算 其他客户的应 提取坏账金额
制作的应 提取坏账 分布饼图
本章小结
通过本章学习，读者应掌握如下知识。 掌握应收账款所包含的项目及如何制作应收账 款明细和坏账提取表格的方法。 掌握应收账款账龄的概念及使用Excel函数统计 不同账龄段的应收账款金额及应提取坏账金额， 以便对账龄和坏账等进行分析操作的方法。 掌握利用图表对应收账款和应提取坏账金额进 行分析、比较操作的方法。 重点掌握OFFSET函数和数组公式的应用。
6.2.1 设置公式计算坏账提取比例 和应提取坏账金额
在本例中，假设企业根据应收账款的账龄 进行坏账的提取，即在信用期内的不提取坏账， 超信用期1~30天的按2%提取，超过信用期 31~90天的按6%提取，超过信用期91~180 天的按9%提取，超过信用期181~360天的按 14%提取，超过信用期360天以后的按25%提 取坏账。
6.1.1 创建应收账款明细表并计算
新建“客户代码”工 作表，并在其中输入 客户代码和客户名称 数据并格式化表格
《Excel在财务管理中的应用》第四章——应收账款管理
(5)机会成本。机会成本,是指利用一定资源获得某种收入时所放弃的另一种收入。在实行本方案 时,失去所放弃方案的潜在收益,是实行本方案的一种代价,称为本方案的机会成本。机会成本,实际上 不是一种支出和费用,而是失去的收益,与通常意义上的成本概念不同,是辩证的概念,这种收益不是实 际的而是潜在的。例如,现有A和B两种方案,若选择A方案可获利10万元,则这10万元的潜在收益就是 选择B方案的机会成本。
第四章 应收账款管理
4.1 应收账款统计表及账龄分析表
4.1.1 创建应收账款统计表
1.编制应收账款基本信息表 企业进行应收账款管理的基础是客户及赊销额的基本信息,因此,首先需要根据客户及赊销信息,将 应收账款基本信息录到应收账款基本信息表中。 企业的应收账款基本信息主要包括客户代码、客户名称、业务员、应收金额、预收金额、实收 金额,灵活进行内容的设计和编制,具体操作 步骤如下。
图4-8
4.2 应收账款对账单
4.2.1 创建应收账款对账单
发送应收账款对账单,是企业与客户之间重要的活动之一。对于财务人员而言,准确、快速地完 成应收账款对账单的制作,并发送至相应的客户邮箱中,是一项既要求准确率、又要求效率的工作。 Excel不仅能够快速完成对账单的制作,还能够准确发送邮件,是财务人员必须掌握的工具之一。
图4-5
4.1.1 创建应收账款统计表
5.计算逾期账龄及逾期金额 计算逾期账龄的基本思路是:判断该项应收账款是否已经逾期,如果已经逾期,则显示计算出的逾期 时间,否则不显示。
判断是否逾期可以使用IF函数,逾期时间的计算可以使用DAYS360函数。DAYS360函数是按照一 年360天的算法返回两个给定日期的相差天数,其语法为 DAYS360(start_date,end_date,[method])。 计算逾期金额可以使用IF与DAYS360嵌套函数来实现,逾期金额可用期末余额表示。操作步骤如下。
SAPABAP查询实时应收账款账龄分析表
SAPABAP查询实时应收账款账龄分析表查询应收帐款某天的账龄情况*&---------------------------------------------------------------------**&Report ZRP_FI_008*&*&---------------------------------------------------------------------**&*&*&---------------------------------------------------------------------*REPORT zrp_fi_008LINE-SIZE800NO STANDARD PAGE HEADING.TABLES:kna1,bsid,knb1.TYPE-POOLS:slis.TYPES:BEGIN OF ty_cust,bukrs LIKE bsid-bukrs,kunnr LIKE kna1-kunnr,name1LIKE kna1-name1,waers LIKE fdbl_header-waers,bgber LIKE fdbl_balance_line-balance,"期初余额AKONT LIKE knb1-AKONT,vkorg LIKE knvv-vkorg,END OF ty_cust.DATA:wa_cust TYPE ty_cust,gt_cust TYPE STANDARD TABLE OF ty_cust.TYPES:BEGIN OF ty_bsid.INCLUDE STRUCTURE bsid.TYPES:END OF ty_bsid.DATA:wa_bsid TYPE ty_bsid,gt_bsid TYPE STANDARD TABLE OF ty_bsid. TYPES:BEGIN OF ty_outtab,bukrs LIKE bsid-bukrs,kunnr LIKE kna1-kunnr,name1LIKE kna1-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,"本期余额bera LIKE fdbl_balance_line-balance,"未来30天以上bera0LIKE fdbl_balance_line-balance,"未来账龄30天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天zxiao TYPE ztfi026-zxiao,pay TYPE string,vkgrp TYPE knvv-vkgrp,augo TYPE string,qy TYPE string,AKONT TYPE knb1-AKONT,ckrq LIKE sy-DATUM,END OF ty_outtab.DATA:wa_outtab TYPE ty_outtab,gt_outtab TYPE STANDARD TABLE OF ty_outtab. TYPES:BEGIN OF ty_bq,kunnr LIKE bsid-kunnr,waers LIKE bsid-waers,HKONT LIKE bsid-HKONT,jfbtr LIKE bsid-wrbtr,dfbtr LIKE bsid-wrbtr,END OF ty_bq.DATA:wa_bq TYPE ty_bq,gt_bq TYPE STANDARD TABLE OF ty_bq."取出销售组TYPES:BEGIN OF ty_tvgrt,vkgrp LIKE tvgrt-vkgrp,bezei LIKE tvgrt-bezei,END OF ty_tvgrt.DATA:itab_tvgrt TYPE STANDARD TABLE OF ty_tvgrt, wa_tvgrt TYPE ty_tvgrt."取地区TYPES:BEGIN OF TY_QY.INCLUDE STRUCTURE T171T.TYPES:END OF TY_QY.DATA:WA_QY TYPE TY_QY,GT_QY TYPE STANDARD TABLE OF TY_QY.TYPES:BEGIN OF ty_sk.INCLUDE STRUCTURE bsid.TYPES:END OF ty_sk.DATA:wa_sk TYPE ty_sk,gt_sk TYPE STANDARD TABLE OF ty_sk.DATA:G_START_DATE LIKE SY-DATUM,G_UPMON_DATE LIKE SY-datum.*Data variable for use of ALVDATA:i_gt_fieldcat TYPE slis_t_fieldcat_alv.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.*---------------------------------------------------------------------**SELECTION SCREEN**---------------------------------------------------------------------*SELECTION-SCREEN BEGIN OF BLOCK b1WITH FRAME TITLE text-001. PARAMETERS p_bukrs LIKE bsid-bukrs DEFAULT'1000'OBLIGATORY. SELECT-OPTIONS:s_kunnr FOR bsid-kunnr,s_ktokd FOR kna1-ktokd,s_akont FOR knb1-akont.PARAMETERS:p_ckrq LIKE sy-datum DEFAULT sy-datum OBLIGAT ORY.SELECTION-SCREEN SKIP.PARAMETERS:cb_YSZK AS CHECKBOX DEFAULT'X',cb_tczz AS CHECKBOX DEFAULT'X'.SELECTION-SCREEN SKIP.PARAMETERS:cb_zero AS CHECKBOX DEFAULT'X'.SELECTION-SCREEN END OF BLOCK b1.SELECTION-SCREEN BEGIN OF BLOCK b3WITH FRAME TITLE text-002. PARAMETERS:r_cny RADIOBUTTON GROUP lim DEFAULT'X',r_all RADIOBUTTON GROUP lim.SELECTION-SCREEN END OF BLOCK b3.*---------------------------------------------------------------------**INITIALIZATION**---------------------------------------------------------------------**Initialization fieldcatalogINITIALIZATION.v_gt_repid=sy-repid.AT SELECTION-SCREEN."权限判断PERFORM CHECK_AUTH.*---------------------------------------------------------------------**START-OF-SELECTION**---------------------------------------------------------------------**Start of SelectionSTART-OF-SELECTION.PERFORM GET_SALES_DATA.*"记录报表使用情况*include zic_tcode_history."应收帐款IF cb_YSZK EQ'X'.PERFORM get_base_data."取客户信息IF r_cny EQ'X'.PERFORM get_local_data."本位币ELSE.PERFORM get_original_data.ENDIF.ENDIF.IF cb_tczz eq'X'.PERFORM get_tczz_cust.ENDIF.*---------------------------------------------------------------------**END-OF-SELECTION**---------------------------------------------------------------------*END-OF-SELECTION.PERFORM fieldcat_init.PERFORM eventtab_build.PERFORM call_alv.*&---------------------------------------------------------------------**&Form GET_DATA*&---------------------------------------------------------------------**text*----------------------------------------------------------------------**-->p1text*<--p2text*----------------------------------------------------------------------*FORM get_local_data.DATA:wa_balanc LIKE bapi3007_3,gt_balanc LIKE TABLE OF bapi3007_3.DATA:lv_days LIKE sy-index.DATA:lv_budat LIKE sy-datum,l_vkgrp LIKE knvv-vkgrp,l_BZIRK LIKE knvv-BZIRK.FIELD-SYMBOLSTYPE ty_cust."处理期初余额LOOP AT gt_cust ASSIGNING.CALL FUNCTION'BAPI_AR_ACC_GETKEYDATEBALANCE'EXPORTINGcompanycode=-bukrscustomer=-kunnrkeydate=G_UPMON_DATEbalancespgli='X'"是否分开统计分类帐TABLESkeybalance=gt_balanc.DELETE gt_balanc WHERE SP_GL_IND NE''.IF gt_balanc[]IS NOT INITIAL.LOOP AT gt_balanc INTO wa_balanc.-bgber=-bgber+wa_balanc-LC_BAL. *-waers=wa_balanc-LOC_CURRCY.CLEAR:wa_balanc.ENDLOOP.ENDIF.-waers='CNY'.CLEAR:gt_balanc[].ENDLOOP."取区间发生额度CLEAR gt_sk[].SELECT*INTO CORRESPONDING FIELDS OF TABLE gt_skFROM bsidFOR ALL ENTRIES IN gt_custWHERE hkont IN s_akontAND bukrs EQ P_bukrsAND gjahr EQ p_ckrq+0(4)AND kunnr EQ gt_cust-kunnrAND budat BETWEEN G_START_DATE and p_ckrqAND umskz EQ''.SELECT*APPENDING CORRESPONDING FIELDS OF TABLE gt_skFROM bsadFOR ALL ENTRIES IN gt_custWHERE hkont IN s_akontAND bukrs EQ P_bukrsAND gjahr EQ p_ckrq+0(4)AND budat BETWEEN G_START_DATE and p_ckrqAND kunnr EQ gt_cust-kunnrAND umskz EQ''."处理本期借贷LOOP AT gt_sk INTO wa_sk.wa_bq-waers='CNY'.wa_bq-kunnr=wa_sk-kunnr.IF wa_sk-xnegp='X'AND wa_sk-shkzg EQ'H'."处理反记帐wa_sk-shkzg='S'.wa_sk-DMBTR=wa_sk-DMBTR*-1.ELSEIF wa_sk-xnegp='X'AND wa_sk-shkzg EQ'S'.wa_sk-shkzg='H'.wa_sk-DMBTR=wa_sk-DMBTR*-1.ENDIF.IF wa_sk-shkzg EQ'H'.wa_bq-dfbtr=wa_sk-DMBTR.ELSE.wa_bq-jfbtr=wa_sk-DMBTR.ENDIF.COLLECT wa_bq INTO gt_bq.CLEAR:wa_bq,wa_sk.ENDLOOP.IF NOT gt_cust[]IS INITIAL."处理帐龄数据SELECT*INTO CORRESPONDING FIELDS OF TABLE gt_bsid FROM bsidFOR ALL ENTRIES IN gt_custWHERE bukrs=gt_cust-bukrsAND kunnr=gt_cust-kunnrAND umsks=spaceAND budat<=p_ckrq."取出已清份SELECT*APPENDING CORRESPONDING FIELDS OF TABLE gt_bsid FROM bsadFOR ALL ENTRIES IN gt_custWHERE bukrs=gt_cust-bukrsAND kunnr=gt_cust-kunnrAND umsks=spaceAND budat<=p_ckrqAND AUGDT>p_ckrq.ENDIF.LOOP AT gt_cust ASSIGNING.MOVE-CORRESPONDINGTO wa_outtab."付款条件(公司级）SELECT SINGLE text1INTO(wa_outtab-pay)FROM knb1AS aJOIN t052u AS b ON a~zterm EQ b~ztermWHERE b~spras EQ sy-langu AND a~kunnr EQ-kunnr AND a~bukrs EQ-bukrs.IF sy-subrc NE0."付款条件SELECT SINGLE text1INTO wa_outtab-payFROM knvv AS aJOIN t052u AS b ON a~zterm EQ b~ztermWHERE b~spras EQ sy-langu ANDa~kunnr EQ-kunnrAND a~vkorg NE'1002'.ENDIF..SELECT SINGLE vkgrp BZIRK INTO(l_vkgrp,L_BZIRK)FROM knvvWHERE kunnr EQ-kunnrAND vkorg NE'1002'.SELECT SINGLE zxiao vkgrp INTO(wa_outtab-zxiao,wa_outtab-vkgr p)FROM ztfi026WHERE vkgrp=l_vkgrp.READ TABLE itab_tvgrt INTO wa_tvgrt WITH KEY vkgrp=l_vk grp.wa_outtab-augo=wa_tvgrt-bezei.CLEAR:l_vkgrp,wa_tvgrt.READ TABLE GT_QY INTO WA_QY WITH KEY BZIRK=L_BZIRK.wa_outtab-QY=WA_QY-BZTXT.wa_outtab-ckrq=p_ckrq."本期发生额度READ TABLE gt_bq INTO wa_bq WITH KEY kunnr=-kunnr.if sy-subrc eq0.wa_outtab-arber=wa_bq-jfbtr."期间借方发生额wa_outtab-pyber=wa_bq-dfbtr."期间贷方发生额ENDIF.wa_outtab-blber=wa_outtab-bgber+wa_outtab-arber-wa_outtab -pyber."期末LOOP AT gt_bsid INTO wa_bsid WHERE bukrs=-bukrs ANDkunnr=-kunnr.*lv_days=sy-datum-(wa_bsid-zfbdt+wa_bsid-zb d1t).lv_days=p_ckrq-(wa_bsid-zfbdt+wa_bsid-zbd1t).IF lv_days<0.if lv_days<0and lv_days>-30."未来30天IF wa_bsid-shkzg='S'.wa_outtab-bera0=wa_outtab-bera0+wa_bsid-dm btr.ELSE.wa_outtab-bera0=wa_outtab-bera0-wa_bsid-dmb tr.ENDIF.else."未来30天以上IF wa_bsid-shkzg='S'.wa_outtab-bera=wa_outtab-bera+wa_bsid-dmbt r.ELSE.wa_outtab-bera=wa_outtab-bera-wa_bsid-dmbtr.ENDIF.endif.ELSEIF lv_days>=0AND lv_days<=30.IF wa_bsid-shkzg='S'.wa_outtab-bera1=wa_outtab-bera1+wa_bsid-dmbtr.ELSE.wa_outtab-bera1=wa_outtab-bera1-wa_bsid-dmbtr.ENDIF.ELSEIF lv_days>=31AND lv_days<=60.IF wa_bsid-shkzg='S'.wa_outtab-bera2=wa_outtab-bera2+wa_bsid-dmbtr.ELSE.wa_outtab-bera2=wa_outtab-bera2-wa_bsid-dmbtr.ENDIF.ELSEIF lv_days>=61AND lv_days<=90.IF wa_bsid-shkzg='S'.wa_outtab-bera3=wa_outtab-bera3+wa_bsid-dmbtr. ELSE.wa_outtab-bera3=wa_outtab-bera3-wa_bsid-dmbtr. ENDIF.ELSEIF lv_days>=91AND lv_days<=120.IF wa_bsid-shkzg='S'.wa_outtab-bera4=wa_outtab-bera4+wa_bsid-dmbtr. ELSE.wa_outtab-bera4=wa_outtab-bera4-wa_bsid-dmbtr. ENDIF.ELSEIF lv_days>=121AND lv_days<=180.IF wa_bsid-shkzg='S'.wa_outtab-bera5=wa_outtab-bera5+wa_bsid-dmbtr. ELSE.wa_outtab-bera5=wa_outtab-bera5-wa_bsid-dmbtr. ENDIF.ELSEIF lv_days>=181AND lv_days<=360.IF wa_bsid-shkzg='S'.wa_outtab-bera6=wa_outtab-bera6+wa_bsid-dmbtr. ELSE.wa_outtab-bera6=wa_outtab-bera6-wa_bsid-dmbtr. ENDIF.ELSEIF lv_days>360.IF wa_bsid-shkzg='S'.wa_outtab-bera7=wa_outtab-bera7+wa_bsid-dmbtr. ELSE.wa_outtab-bera7=wa_outtab-bera7-wa_bsid-dmbtr. ENDIF.ENDIF.CLEAR wa_bsid.ENDLOOP.SHIFT wa_outtab-kunnr LEFT DELETING LEADING'0'."去前导空格APPEND wa_outtab to gt_outtab.CLEAR:L_BZIRK,WA_QY,wa_outtab,wa_bq.ENDLOOP.SORT gt_outtab BY bukrs kunnr.ENDFORM."GET_DATA*&---------------------------------------------------------------------**&Form FIELDCAT_INIT*&---------------------------------------------------------------------**Initialization fieldcatalog DEFINITION OF HEADING.*Fieldnames and ref_fieldnames MUST be UPPER CASE !!*----------------------------------------------------------------------**-->p1text*<--p2text*----------------------------------------------------------------------*FORM fieldcat_init.DATA:l_fieldcat TYPE slis_fieldcat_alv.*---------------------------------------------------------------------**general fields selected**---------------------------------------------------------------------*DEFINE alv_fieldcat.l_fieldcat-tabname=&1.l_fieldcat-fieldname=&2.l_fieldcat-key=&3.l_fieldcat-ref_fieldname=&4.l_fieldcat-ref_tabname=&5.l_fieldcat-reptext_ddic=&6.l_fieldcat-no_out=&7.l_fieldcat-no_zero=&8.l_fieldcat-outputlen=&9.append l_fieldcat to i_gt_fieldcat.END-OF-DEFINITION.alv_fieldcat'gt_outtab''BUKRS''''''''公司'''''4.alv_fieldcat'gt_outtab''CKRQ''''''''参考日期'''''10.alv_fieldcat'gt_outtab''KUNNR''''''''客户'''''10.alv_fieldcat'gt_outtab''NAME1''''''''客户名称'''''36.alv_fieldcat'gt_outtab''AKONT''''''''科目编号'''''12.alv_fieldcat'gt_outtab''AUGO''''''''销售组'''''8.alv_fieldcat'gt_outtab''PAY''''''''付款条件'''''25.alv_fieldcat'gt_outtab''QY''''''''区域'''''25.alv_fieldcat'gt_outtab''ZXIAO''''''''内外销'''''4.alv_fieldcat'gt_outtab''WAERS''''''''币种'''''4.alv_fieldcat'gt_outtab''BGBER''''''''期初余额''''X'15.alv_fieldcat'gt_outtab''ARBER''''''''本期借方''''X'15.alv_fieldcat'gt_outtab''PYBER''''''''本期贷方''''X'15.alv_fieldcat'gt_outtab''BLBER''''''''本期余额''''X'15.alv_fieldcat'gt_outtab''BERA''''''''未来30天以上''''X'15. alv_fieldcat'gt_outtab''BERA0''''''''未来(1~30)天''''X'15. alv_fieldcat'gt_outtab''BERA1''''''''账龄(0~30)天''''X'15.alv_fieldcat'gt_outtab''BERA2''''''''账龄(31~60)天''''X'15.alv_fieldcat'gt_outtab''BERA3''''''''账龄(61~90)天''''X'15.alv_fieldcat'gt_outtab''BERA4''''''''账龄(91~120)天''''X'15.alv_fieldcat'gt_outtab''BERA5''''''''账龄(121~180)天''''X'15.alv_fieldcat'gt_outtab''BERA6''''''''账龄(181~360)天''''X'15.alv_fieldcat'gt_outtab''BERA7''''''''账龄(>360)天''''X'15.ENDFORM."FIELDCAT_INIT*&---------------------------------------------------------------------**&Form EVENTTAB_BUILD*&---------------------------------------------------------------------**text*----------------------------------------------------------------------**-->p1text*<--p2text*----------------------------------------------------------------------*FORM eventtab_build.DATA:l_ls_event TYPE slis_alv_event.CALL FUNCTION'REUSE_ALV_EVENTS_GET'EXPORTINGi_list_type=0IMPORTINGet_events=i_gt_events.*........ADD EVENT AT-USER-COMMAND............................... ......READ TABLE i_gt_events WITH KEY name=slis_ev_user_commandINTO l_ls_event.IF sy-subrc=0.MOVE slis_ev_user_command TO l_ls_event-form.APPEND l_ls_event TO i_gt_events.ENDIF.ENDFORM."EVENTTAB_BUILD*&---------------------------------------------------------------------**&Form USER_COMMAND*&---------------------------------------------------------------------**DYNAMIC CALL FROM THE ALV*----------------------------------------------------------------------**-->p1text*<--p2text*----------------------------------------------------------------------*FORM user_command USING r_ucomm LIKE sy-ucommrs_selfield TYPE slis_selfield.DATA:l_index LIKE sy-index,l_colno TYPE slis_sel_tab_field.DATA:rspar_tab TYPE rsparams OCCURS0WITH HEADER LINE.l_index=rs_selfield-tabindex."LINE I N LISTl_colno=rs_selfield-sel_tab_field."COLUMN HEAD ER*........POSITION THE CURSOR ON A LINE IN THE LIST........... ...........IF l_index LE0.*MESSAGE.........ENDIF.READ TABLE gt_outtab INTO wa_outtab INDEX l_index. CASE l_colno.*........CUSTOMER DISPLAY........................................... ...* WHEN'wa_outtab-KUNNR'.SET PARAMETER ID'KUN'FIELD wa_outtab-kunnr. CALL TRANSACTION'XD03'AND SKIP FIRST SCREEN. WHEN'wa_outtab-BGBER'OR'wa_outtab-ARBER'OR'wa_outtab-PYBER'OR'wa_outtab-BLBER'.CLEAR rspar_tab.REFRESH rspar_tab.CALL FUNCTION'RS_REFRESH_FROM_SELECTOPTIONS' EXPORTINGcurr_report='RFARBALANCE'TABLESselection_table=rspar_tabEXCEPTIONSnot_found=01no_report=02.LOOP AT rspar_tab.CASE rspar_tab-selname.WHEN'SO_KUNNR'.rspar_tab-sign='I'.rspar_tab-option='EQ'.rspar_tab-low=wa_outtab-kunnr.rspar_tab-high=space.WHEN'SO_BUKRS'.rspar_tab-sign='I'.rspar_tab-low=wa_outtab-bukrs.rspar_tab-high=space.WHEN'GP_GJAHR'.rspar_tab-sign='I'.rspar_tab-option='EQ'.rspar_tab-low=wa_outtab-gjahr.rspar_tab-high=space.ENDCASE.MODIFY rspar_tab.ENDLOOP.IF NOT wa_outtab-kunnr IS INITIAL.SUBMIT rfarbalance USING SELECTION-SCREEN'1000' WITH SELECTION-TABLE rspar_tabAND RETURN.ENDIF.WHEN'gt_outtab-BERA0'OR'gt_outtab-BERA1'OR'gt_outtab-BERA2'OR'gt_outtab-BERA3'OR'gt_outtab-BERA4'OR'gt_outtab-BERA5'OR'gt_outtab-BERA6'OR'gt_outtab-BERA7'.CLEAR rspar_tab.REFRESH rspar_tab.CALL FUNCTION'RS_REFRESH_FROM_SELECTOPTIONS' EXPORTINGcurr_report='RFITEMAR'TABLESselection_table=rspar_tabEXCEPTIONSnot_found=01no_report=02.LOOP AT rspar_tab.CASE rspar_tab-selname.WHEN'DD_KUNNR'.rspar_tab-sign='I'.rspar_tab-option='EQ'.rspar_tab-low=wa_outtab-kunnr.rspar_tab-high=space.WHEN'DD_BUKRS'.rspar_tab-sign='I'.rspar_tab-option='EQ'.rspar_tab-low=wa_outtab-bukrs.rspar_tab-high=space.WHEN'X_OPSEL'.rspar_tab-sign='I'.rspar_tab-low='X'.rspar_tab-high=space.WHEN'X_NORM'.rspar_tab-sign='I'.rspar_tab-option='EQ'.rspar_tab-low='X'.rspar_tab-high=space.WHEN'PA_STIDA'.rspar_tab-sign='I'.rspar_tab-option='EQ'.rspar_tab-low=p_ckrq.rspar_tab-high=space.ENDCASE.MODIFY rspar_tab.ENDLOOP.IF NOT wa_outtab-kunnr IS INITIAL.SUBMIT rfitemar USING SELECTION-SCREEN'1000' WITH SELECTION-TABLE rspar_tabAND RETURN.ENDIF.ENDCASE.ENDFORM."USER_COMMAND*&---------------------------------------------------------------------**&Form CALL_ALV*&---------------------------------------------------------------------**text*----------------------------------------------------------------------**-->p1text*<--p2text*----------------------------------------------------------------------*FORM call_alv.IF cb_zero eq'X'.DELETE gt_outtab WHERE arber=0AND pyber=0AND blber=0AND bgber=0AND bera=0AND bera0=0AND bera1=0AND bera2=0AND bera3=0AND bera4=0AND bera5=0AND bera6=0AND bera7=0.ENDIF.DATA:l_excluding TYPE slis_extab.i_gs_layout-colwidth_optimize='X'.CALL FUNCTION'REUSE_ALV_GRID_DISPLAY'EXPORTINGi_callback_program=v_gt_repidis_layout=i_gs _layoutit_fieldcat=i_gt_f ieldcatit_excluding=i_gt_ex cludingi_default='X'i_save=' A'is_variant=v_gt_ variantit_events=i_gt _eventsTABLESt_outtab=gt_ outtabEXCEPTIONSprogram_error=1OTHERS=2.ENDFORM."CALL_ALV*&---------------------------------------------------------------------**&Form GET_BASE_DATA*&---------------------------------------------------------------------**text*----------------------------------------------------------------------**-->p1text*<--p2text*----------------------------------------------------------------------*FORM get_base_data."取基础数据SELECT a~bukrs a~kunnr b~name1akont vkorg waersINTO CORRESPONDING FIELDS OF TABLE gt_custFROM knb1AS aINNER JOIN kna1AS b ON b~kunnr=a~kunnrLEFT JOIN knvv AS d ON a~kunnr=d~kunnrWHERE a~kunnr IN s_kunnrAND a~bukrs eq p_bukrsAND b~ktokd IN s_ktokdAND a~akont IN s_akont.DELETE gt_cust WHERE vkorg eq'1002'."1000工厂的销售组织停用SORT gt_cust BY kunnr.DELETE ADJACENT DUPLICATES FROM gt_cust COMPARING kunnr. ENDFORM."GET_BASE_DATA*&---------------------------------------------------------------------**&Form CHECK_AUTH*&---------------------------------------------------------------------**text*----------------------------------------------------------------------**-->p1text*<--p2text*----------------------------------------------------------------------*FORM CHECK_AUTH.AUTHORITY-CHECK OBJECT'F_FAGL_LDR'。
SAP ABAP应收账款账龄分析表
FROM knc1 AS a
INNER JOIN kna1 AS b ON b~kunnr = a~kunnr
INNER JOIN knb1 AS c ON c~kunnr = a~kunnr AND c~bukrs = a~bukrs
kunnr LIKE kna1-kunnr,
name1 LIKE kna1-name1,
gjahr LIKE bsid-gjahr,
monat LIKE bsid-monat,
waers LIKE fdbl_header-waers,
bgber LIKE fdbl_balance_line-balance, "期初余额
SELECTION-SCREEN END OF BLOCK b1.
*---------------------------------------------------------------------*
* INITIALIZATION *
* lt_cust-monat = p_monat.
bera3 LIKE fdbl_balance_line-balance, "账龄61~90天
bera4 LIKE fdbl_balance_line-balance, "账龄91~120天
bera5 LIKE fdbl_balance_line-balance, "账龄121~180天
bukrs LIKE bsid-bukrs,
kunnr LIKE kna1-kunnr,
SAP ABAP应收账款账龄分析表
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
END OF gt_cust.
TYPES:BEGIN OF gt_bsid.
INCLUDE STRUCTURE bsid.
TYPES:END OF gt_bsid.
* GLOBAL STRUCTURE OF LIST
TYPES:BEGIN OF t_outtab,
*---------------------------------------------------------------------*
END-OF-SELECTION.
PERFORM fieldcat_init.
PERFORM eventtab_build.
PERFORM call_alv.
SELECTION-SCREEN END OF BLOCK b1.
*---------------------------------------------------------------------*
* INITIALIZATION *
s_bukrs-sign = 'I'.
s_bukrs-option = 'EQ'.
s_bukrs-low = '1000'.
APPEND s_bukrs.
4 管理应收账款用表(11个)
（一）应收账款登记表（二）应收账款明细表（三）应收账款日报表`2 2财务报表分析从入门到精通（四）应收账款月报表年 月 日 单位：元 序 号 客户名称 月初余额 本月增加 本月减少 月末余额 账款类别 1 2 3 …… 合 计月份销售额累计销售额未收 账款应收 票据累计 票据未贴现金额 兑现 金额累计 金额退票 金额坏账 金额一月 二月 ……十二月分析对策（六）应收账款变动表年 月 日 客户 名称上期余额（A ）本期增加 本期减少 本期余额（A+B-C ） 备注销货额 销货税额 合计（B ） 收款折让退货合计（C ）核准： 主管： 制表：第1章财务报表快速入门基本资料栏客户名称公司地址电话工厂地址电话负责人联系人开始往来时间交易项目平均每月交易额授信额度问题账金额问题账形成原因处理意见附件明细核准：复核：制表：（八）应收账款控制表年月日客户名称上月应收账款本月出资本月减项本月底应收账款回款退款折让合计合计总经理：主管：制表：（九）应收账款账龄分析表年月日单位：元账龄A公司B公司C公司合计折扣期内金额比重（%）金额比重（%）金额比重（%）金额比重（%）过折扣期但未到期过期1～30天过期3 1`4 4财务报表分析从入门到精通31～60天 过期 61～90天过期 91～180天过期 181天以上合 计客户信用调查表企业编号 地址 电话 负责人住所电话创业日期 年 月 日营业项目经营方式 □ 独资 □ 合伙 □ 企业 开始交易日期 年 月 日营业区域经营地点 □ 市场 □ 住宅 □ 郊外负责人情况性格 气质 兴趣职位 学历 籍贯经历 口才 □ 佳 □ 普通 □ 差思想嗜好酒 □ 饮 □ 不饮 烟□ 抽 □ 不抽 优点 特长缺点技术 □ 熟练 □ 略懂 □ 不懂 财务状况往来银行银行信用□ 很好 □ 好 □ 普通 □ 差 □ 很差 账务体系 □ 完备 □ 不完备 同业者评价□ 很好 □ 好 □ 普通 □ 差 □ 很差经营组织 □股份企业 □个人经营 □有限企业 □合资企业近邻评价 □很好 □好 □普通 □差 □很差资本额付款态度□爽快 □普通 □尚可第1章财务报表快速入门（元）□迟延□为难□拖欠尾款营业执照登记号码其他说明办公情况资产汽车辆□自有辆□租用辆场所□处于繁华区□一般商业区□偏僻地区自有租用面积（m2）面积（m2）装饰□精装□普通□差层数市价保险□有（元）□无营业状况交易品种品种品牌月销售量金额年销售量金额备注信用评定信用等级信用评分付款方式选择赊销限额是否担保备注总经理：经理：调查人：客户信用调查总表年月日类别客户名称总资产（单位：万元）净资产（单位：万元）信用等级（ABCD）评定等级（ABCD）发展前景（ABCD）编制：填表人：5 1财务报表分析从入门到精通` 66。