客户应收应付管理明细表模板
客户应收应付管理明细表模板如下：
客户名称应收金额应收日期到期日期应付金额应付日期到期日期备注
:--: :--: :--: :--: :--: :--: :--: :--:
模板说明：
1. 客户名称：填写客户的名称。
2. 应收金额：填写该客户应支付给您的金额。
3. 应收日期：填写该客户应支付给您的日期。
4. 到期日期：填写该客户的支付到期日期。
5. 应付金额：填写您应该支付给该客户的金额。
6. 应付日期：填写您应该支付给该客户的日期。
7. 到期日期：填写您的支付到期日期。
8. 备注：填写其他需要说明的事项。
请根据实际情况填写表格，并根据需要进行修改和调整。
REPORT ZFIRP009 line-size 153 LINE-COUNT 58 no standard page heading.*********************************************************************** * IDENTIFICA TION: 应收账款余额明细表* DESCRIPTION: 按客户对企业应收账款进行账龄分析*********************************************************************** tables: bkpf, bsid, kna1.parameters: p_bukrs like bsid-bukrs obligatory.select-options: s_kunnr for bsid-kunnr.parameters: p_datum like sy-datum default sy-datum obligatory.parameters: p_per1(3) type c obligatory,p_per2(3) type c obligatory,p_per3(3) type c obligatory.PARAMETERS: P_sign AS CHECKBOX DEFAULT 'X'.data: i_per1 type i,i_per2 type i,i_per3 type i.data: w_datuml like sy-datum,w_datumh like sy-datum.data: w_gjahr like bsid-gjahr.data: c_aircompany(35) type c.data: c_datel(3) type c,c_dateh(3) type c.DA TA: BEGIN OF W A_HEADER,H1(16) TYPE C,H2(16) TYPE C,H3(16) TYPE C,H4(16) TYPE C,END OF W A_HEADER.data: begin of it_display occurs 0,sort2 like adrc-sort2,kunnr like bsid-kunnr,name1 like kna1-name1,advance like bsid-dmbtr,per1 like bsid-dmbtr,per2 like bsid-dmbtr,per3 like bsid-dmbtr,per4 like bsid-dmbtr,sum_dmbtr like bsid-dmbtr,end of it_display.data: wa_sum like it_display.data: wa_sumkunnr like it_display.data: it_bsid like bsid occurs 0 with header line.i_per1 = p_per1.i_per2 = p_per2.i_per3 = p_per3.*w_gjahr = p_datum+0(4).* get sum_dmbtr and advanceselect * from bsidinto corresponding fields of table it_bsidwhere kunnr in s_kunnr and bukrs = p_bukrsand BUDA T le p_datumorder by kunnr.loop at it_bsid.if it_bsid-shkzg eq 'S'.it_bsid-dmbtr = it_bsid-dmbtr.elseif it_bsid-shkzg eq 'H'.it_bsid-dmbtr = 0 - it_bsid-dmbtr.endif.modify it_bsid.it_display-kunnr = it_bsid-kunnr.if it_bsid-umskz eq 'A'.it_display-advance = it_display-advance + it_bsid-dmbtr. endif.it_display-sum_dmbtr = it_display-sum_dmbtr + it_bsid-dmbtr. at end of kunnr.append it_display.clear it_display.endat.endloop.* get period 1 dmbtrclear: w_datuml, w_datumh.clear it_bsid.clear it_bsid[].w_datuml = p_datum - i_per1.w_datumh = p_datum.clear: c_datel, c_dateh.WRITE I_PER1 TO c_datel.concatenate c_datel TEXT-013 into wa_header-h1.select * from bsidinto corresponding fields of table it_bsidwhere kunnr in s_kunnr and bukrs = p_bukrsand BUDA T gt w_datuml and budat le w_datumhorder by kunnr.loop at it_display.loop at it_bsid where kunnr eq it_display-kunnr.if it_bsid-shkzg eq 'S'.it_bsid-dmbtr = it_bsid-dmbtr.elseif it_bsid-shkzg eq 'H'.it_bsid-dmbtr = 0 - it_bsid-dmbtr.endif.modify it_bsid.it_display-per4 = it_display-per4 + it_bsid-dmbtr.endloop.modify it_display.endloop.* get period2 dmbtrclear: w_datuml, w_datumh.clear it_bsid.clear it_bsid[].w_datuml = p_datum - i_per2.w_datumh = p_datum - i_per1.clear: c_datel, c_dateh.WRITE I_PER2 TO c_datel.write i_per1 to c_dateh.concatenate c_dateh TEXT-014 c_datel TEXT-015 into wa_header-h2. select * from bsidinto corresponding fields of table it_bsidwhere kunnr in s_kunnr and bukrs = p_bukrsand BUDA T gt w_datuml and budat le w_datumhorder by kunnr.loop at it_display.loop at it_bsid where kunnr eq it_display-kunnr.if it_bsid-shkzg eq 'S'.it_bsid-dmbtr = it_bsid-dmbtr.elseif it_bsid-shkzg eq 'H'.it_bsid-dmbtr = 0 - it_bsid-dmbtr.endif.modify it_bsid.it_display-per3 = it_display-per3 + it_bsid-dmbtr.endloop.modify it_display.endloop.* get period 3 dmbtrclear: w_datuml, w_datumh.clear it_bsid.clear: it_bsid[].w_datuml = p_datum - i_per3.w_datumh = p_datum - i_per2.clear: c_datel, c_dateh.WRITE I_PER3 TO c_datel.write i_per2 to c_dateh.concatenate c_dateh TEXT-014 c_datel TEXT-015 into wa_header-h3. select * from bsidinto corresponding fields of table it_bsidwhere kunnr in s_kunnr and bukrs = p_bukrsand BUDA T gt w_datuml and budat le w_datumhorder by kunnr.loop at it_display.loop at it_bsid where kunnr eq it_display-kunnr.if it_bsid-shkzg eq 'S'.it_bsid-dmbtr = it_bsid-dmbtr.elseif it_bsid-shkzg eq 'H'.it_bsid-dmbtr = 0 - it_bsid-dmbtr.endif.modify it_bsid.it_display-per2 = it_display-per2 + it_bsid-dmbtr.endloop.modify it_display.endloop.* get period4 dmbtrclear: w_datuml, w_datumh.clear it_bsid.clear it_bsid[].w_datumh = p_datum - i_per3.clear: c_datel, c_dateh.write i_per3 to c_dateh.concatenate c_dateh TEXT-012 into wa_header-h4.select * from bsidinto corresponding fields of table it_bsidwhere kunnr in s_kunnr and bukrs = p_bukrsand budat le w_datumhorder by kunnr.loop at it_display.loop at it_bsid where kunnr eq it_display-kunnr.if it_bsid-shkzg eq 'S'.it_bsid-dmbtr = it_bsid-dmbtr.elseif it_bsid-shkzg eq 'H'.it_bsid-dmbtr = 0 - it_bsid-dmbtr.endif.modify it_bsid.it_display-per1 = it_display-per1 + it_bsid-dmbtr.endloop.modify it_display.endloop.loop at it_display.select single name1 from kna1into it_display-name1where kunnr eq it_display-kunnr.select single f2~sort2from adrc as f2 inner join kna1 as f1on f2~ADDRNUMBER eq f1~adrnrinto it_display-sort2where f1~kunnr eq it_display-kunnr.modify it_display.wa_sum-advance = wa_sum-advance + it_display-advance.wa_sum-per1 = wa_sum-per1 + it_display-per1.wa_sum-per2 = wa_sum-per2 + it_display-per2.wa_sum-per3 = wa_sum-per3 + it_display-per3.wa_sum-per4 = wa_sum-per4 + it_display-per4.wa_sum-sum_dmbtr = wa_sum-sum_dmbtr + it_display-sum_dmbtr.endloop.if p_sign eq 'X'.perform collect.else.perform display.endif.top-of-page.write: /67 text-000.skip.write: /1 text-001, 130 text-002.skip.uline.write: /1 sy-vline, text-003 color col_heading, sy-vline,text-004 color col_heading, sy-vline,* text-005 color col_heading, sy-vline,wa_header-h1 color col_heading, sy-vline,wa_header-h2 color col_heading, sy-vline,wa_header-h3 color col_heading, sy-vline,wa_header-h4 color col_heading, sy-vline,* text-006 color col_heading, sy-vline,* text-007 color col_heading, sy-vline,* text-008 color col_heading, sy-vline,text-009 color col_heading, sy-vline.*&---------------------------------------------------------------------**& Form DISPLA Y*&---------------------------------------------------------------------** text*----------------------------------------------------------------------** --> p1 text* <-- p2 text*----------------------------------------------------------------------*FORM DISPLAY.loop at it_display.uline.write: / sy-vline, it_display-name1 color col_normal, sy-vline, it_display-advance color col_normal, sy-vline,it_display-per4 color col_normal, sy-vline,it_display-per3 color col_normal, sy-vline,it_display-per2 color col_normal, sy-vline,it_display-per1 color col_normal, sy-vline,it_display-sum_dmbtr color col_normal, sy-vline. endloop.uline.write: / sy-vline, text-010 color col_total, sy-vline,wa_sum-advance color col_total, sy-vline,wa_sum-per4 color col_total, sy-vline,wa_sum-per3 color col_total, sy-vline,wa_sum-per2 color col_total, sy-vline,wa_sum-per1 color col_total, sy-vline,wa_sum-sum_dmbtr color col_total, sy-vline.uline.ENDFORM. " DISPLA Y*&---------------------------------------------------------------------**& Form COLLECT*&---------------------------------------------------------------------** text*----------------------------------------------------------------------** --> p1 text* <-- p2 text*----------------------------------------------------------------------*FORM COLLECT.sort it_display by sort2 descending.loop at it_display.uline.write: / sy-vline, it_display-name1 color col_normal, sy-vline,it_display-advance color col_normal, sy-vline,it_display-per4 color col_normal, sy-vline,it_display-per3 color col_normal, sy-vline,it_display-per2 color col_normal, sy-vline,it_display-per1 color col_normal, sy-vline,it_display-sum_dmbtr color col_normal, sy-vline.wa_sumkunnr-advance = wa_sumkunnr-advance + it_display-advance. wa_sumkunnr-per1 = wa_sumkunnr-per1 + it_display-per1.wa_sumkunnr-per2 = wa_sumkunnr-per2 + it_display-per2.wa_sumkunnr-per3 = wa_sumkunnr-per3 + it_display-per3.wa_sumkunnr-per4 = wa_sumkunnr-per4 + it_display-per4.wa_sumkunnr-sum_dmbtr = wa_sumkunnr-sum_dmbtr + it_display-sum_dmbtr.at end of sort2.if it_display-sort2 ne space.clear c_aircompany.concatenate it_display-sort2 text-011 into c_aircompany.uline.write: / sy-vline, c_aircompany color col_total, sy-vline,wa_sumkunnr-advance color col_total, sy-vline,wa_sumkunnr-per4 color col_total, sy-vline,wa_sumkunnr-per3 color col_total, sy-vline,wa_sumkunnr-per2 color col_total, sy-vline,wa_sumkunnr-per1 color col_total, sy-vline,wa_sumkunnr-sum_dmbtr color col_total, sy-vline.clear wa_sumkunnr.endif.endat.endloop.uline.write: / sy-vline, text-010 color col_total, sy-vline,wa_sum-advance color col_total, sy-vline,wa_sum-per4 color col_total, sy-vline,wa_sum-per3 color col_total, sy-vline,wa_sum-per2 color col_total, sy-vline,wa_sum-per1 color col_total, sy-vline,wa_sum-sum_dmbtr color col_total, sy-vline.uline.ENDFORM. " COLLECT。
