应收账款账龄分析表

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的使用。

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'。

（一）应收账款登记表（二）应收账款明细表（三）应收账款日报表`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。

应收账款管理报告一、应收账款总体情况说明截止2016年6月30日，公司应收账款余额为50846.87万元，其中已开票应收账款19808.92万元，预估金额为31037.95万元。

预估金额占应收账款余额的61.04%,开票金额占38.96%,预估应收账款增加明显。

截止6月底应收账款余额相比年初减少了19209.35万元，降低了27%相比去年同期减少了4863.65万元，降幅8.73%。

系统内部单位应收账款余额为45742.29万元，占公司应收账款总额的89.96%。

系统外应收账款总额为5104.58万元，占公司应收账款总额的10.04%,金额有所增加。

在系统内的客户中，应收账款金额较大的包括等四家单位，合计总额为42931.27万元，占公司应收账款总额的84.4%其中, 公司余额为37892.4万元，占公司应收账款总额的74.5%；开展余额为1209.92万元，占公司应收账款总额的2.4%，由于年中报表要求开展内部必须核对一致，集团内部应收账款降幅较大。

图1:近三年应收账款趋势图（单位：万元）、应收账款分析表1:应收账款账龄分析〔单位：万元〕截止2016年6月30日，公司账龄小于6个月的应收账款41411.19 万元，占81.44%;账龄6个月到一年的7966.19万元，占15.67%,同比增加较多；账龄一年以上的为1469.49万元，占2.89%，同比变化不大。

其中涉与到内部单位的逾期一年的应收账款在后边有详细的说明。

图2:应收账款账龄分析〔单位：万元〕应收账款账龄分析■海淤系蹴内余额 ■海泊垂先外余離表2:应收账款核心指标38.33%55.15%本月公司销售收入收现率为18.86%,比去年同期下降17.81%,说明今 年公司应收账款的回收周期拉长，主要在于预估款较大。

本期营业收入同 比减少9494.58万元，降幅15.7%;而同期应收账款余额同比减少 4863.64 万元，降幅8.73%。

年度平均应收账款 =〔X 月度应收账款〕/月份 38311.47 39488.86 41381.86 营业收入60494.01 36095.58 50999.43 18.86% 36.67% ! -9.40%a-r ・・・・・amt ・销售收入收现率=〔1—年度平均应收账款/营业收入〕X 100%,・ nW ・・・a~r ・・9TW・・・ten・B^・・・・9s W・vn ・・・hn q应收账款与日销售额比 =应收账款余额/〔营业收入/收款期限〕核心指标上年同期 本年上期 本年当期 43.28丨 51.85营业收入增长率=本期营业收入/截至上期累计营业收入X100%应收账款增长率=〔本期末应收账款-上期末应收账款〕 /上期末应收账款X 100%14.06%41.29%-2.58%27.34%系统内部单位应收账款总额为45742.29万元，占应收账款总额的89.96%。

应收账款的账龄分析举例【篇一：应收账款的账龄分析举例】账龄分析在应收账款管理中的应用实例一某公司于今年七月进行人事调整，新的销售主管走马上任，面对一摊烂账请分析人士为其出谋划策。

九月为其分析并提出相应建议，经过三个月的努力，应收账款状况有所改观。

29.79% 30.64% 25.83% 24.41% 欠款合计 2790106 3093460 2586062 3080993 3269513 3239537 3294197 3015994 销售额3210037 2649849 2956094 2473342 2999355 3383028 3393805 2810336 效率 1.150507 0.856597 1.143087 0.802774 0.917371 1.044294 1.030237 0.931811 60天以上与60 天以下对比图 60天以上与60 天以下比例对比图分析：从以上几图可以看出，账龄60 天以上欠款有了明显下降，特别是60-120 天下降幅度较大，30-60 天上升明显。

说明：六月的数据不正常，原因是前任销售主管要办理离职手续，为了让总应收账款好看，就将大部分正常效率客户资金收回，所以六月30 天以下客户欠款额才有56589 月30天以下曲线图月30-60天曲线图月60-120天曲线图月120天以上曲线图分析：八月账龄为120 天以上客户欠款额下降明显，下降金额221887 元，但销售额也下降，下降销售额146255 月120天以上至11 变化情况月60-120天至11 月变化情况月30-60天至11 月变化情况月30天以下至11 月变化情况月与11月各账龄类型对比图分析：以上几图是了解取得的成绩，其中账龄 120 天以上收回 221887 元，流向 30-60 天1329 元，流向60-120 天156706 元；其中账龄60-120 天收回51106 元，流向30 内23473元，流向30-60 天531094 元；其中账龄30-60 天收回 71982 元，流向30 天以内 180274 1611 月120 天以上来源 1711 月60-120 天来源 1811 月30-60 天来源 1911 月30 天以下来源分析：以上几图是了解存在的不足，其中11 月账龄120 天以上有68109 元来自于八月 30 天以内，有73872 元来自于 60-120 天；60-120 43542元来自于 30 天以内，有 42694 元来自于30-60 天；30-60 天有179078 元来自于30 天以内。

要编一张6月份应收账款明细表（按客户、账龄分）账龄分为2个月以内，2-3个月，3-5个月，5-8个月，8各月以上然后是每个公司应收账款的期初余额，本月发生额，本月收回额和本月余额数据，我怎么分析账龄啊？问题补充：我不知道excel表中之前是否设定了账龄计算的公式，我只要输入每个公司的的期初数，本月发生数、本月收回数、期末数后，后面各个期间的账龄数就自动生成了，那我是不是不用在进帐套里计算科目余额表中应收账款下各个往来的账龄了最佳答案正常从往来账中提取科目余额（含累计发生额）表，只要在期间内有一笔业务发生，就按最后发生的日期算账龄，你可以试用EXCELL表格计算，别人都这么弄，没有好办法，都是这样整的，这是个细活。

你如果有时间就把各月余额表都弄出来，下次再添加新的，以后就好弄了，记住客户顺序千万别弄乱了就行！希望对你有帮助！什么是账龄分析法？账龄是指负债人所欠账款的时间。

账龄越长，发生坏账损失的可能性就越大。

账龄分析法是指根据应收帐款的时间长短来估计坏账损失的一种方法，又称“应收账款账龄分析法”。

采用账龄分析法时，将不同账龄的应收账款进行分组，并根据前期坏账实际发生的有关资料，确定各账龄组的估计坏账损失百分比，再将各账龄组的应收账款金额乘以对应的估计坏账损失百分比数，计算出各组的估计坏账损失额之和，即为当期的坏账损失预计金额。

账龄分析法的运用运用账龄估计坏账将应收账款拖欠时间（即账龄）的长短分为若干区间，计列各个区间上应收账款的金额，并为每一个区间估计一个坏账损失百分比；然后，用各区间上的应收账款金额乘以各该区间的坏账损失百分比，估计各个区间上的坏账损失；最后，将各区间上的坏账损失估计数求和，即为坏账损失的估计总额。

应收账款账龄分析表账龄分析法估计可能的坏账金额在估计坏账损失之前，可将应收账款按其账龄编制一张"应收账款账龄分析表"，借以了解应收账款在各个顾客之间的金额分布情况及其拖欠时间的长短。