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。
