*&---------------------------------------------------------------------* *& Title : 不动产转租合同自动出成本 * *& Module : RE * *& Author : linxin * *& Create Date : 11/11/2008 * *& Program Type : Report * *& SAP Release : 4.6c * *& Description : 不动产转租合同自动出成本 * *& * *&---------------------------------------------------------------------* *----------------------------------------------------------------------* *& 修改记录 : * *& 日期 修改人 修改内容 * *& 2014/08/04 chenqy 取租赁合同时，排除类型为ZU80的 * *&---------------------------------------------------------------------* REPORT zre_cost01 NO STANDARD PAGE HEADING LINE-SIZE 200 LINE-COUNT 30. TYPE-POOLS: slis. *-------------------------Table Definition-----------------------------* TABLES:t001,bkpf,vicncn. *-------------------------Internal Table Definition--------------------* DATA: it_sort TYPE slis_t_sortinfo_alv WITH HEADER LINE. DATA: fieldcat TYPE slis_t_fieldcat_alv WITH HEADER LINE. DATA: gs_layout TYPE slis_layout_alv, i_events TYPE slis_t_event WITH HEADER LINE. DATA: g_repid LIKE sy-repid. DATA: msg(255) TYPE c. DATA: v_lines TYPE i. DATA: BEGIN OF i_out1 OCCURS 0, type(2) TYPE c,"A U AU zzht LIKE vicncn-recnnr, zlht LIKE vicncn-recnnr, zzmj LIKE vibdmeas-measvalue,"转租面积 zlmj LIKE vibdmeas-measvalue,"租赁面积 objnr LIKE vicncn-objnr, condtype LIKE vicdcond-condtype, dayfrom TYPE d, dayto TYPE d, condvalidfrom_zl LIKE vicdcond-condvalidfrom, condvalidto_zl LIKE vicdcond-condvalidto, gjahr LIKE bkpf-gjahr, monat LIKE bkpf-monat, bukrs LIKE vicncn-bukrs, recntxt LIKE vicncn-recntxt, cost LIKE bseg-dmbtr, END OF i_out1. DATA: BEGIN OF i_out2 OCCURS 0, type(2) TYPE c,"A U AU zzht LIKE vicncn-recnnr, zlht LIKE vicncn-recnnr, condtype LIKE vicdcond-condtype, dayfrom TYPE d, dayto TYPE d, condvalidfrom_zl LIKE vicdcond-condvalidfrom, condvalidto_zl LIKE vicdcond-condvalidto, gjahr LIKE bkpf-gjahr, monat LIKE bkpf-monat, bukrs LIKE vicncn-bukrs, kostl LIKE cobrb-kostl, recntxt LIKE vicncn-recntxt, cost LIKE bseg-dmbtr, END OF i_out2. DATA: BEGIN OF i_out3 OCCURS 0, bukrs LIKE vicncn-bukrs, gjahr LIKE bkpf-gjahr, monat LIKE bkpf-monat, zzht LIKE vicncn-recnnr, recntxt LIKE vicncn-recntxt, kostl LIKE cobrb-kostl, cost LIKE bseg-dmbtr, END OF i_out3. DATA: wa_out LIKE i_out3. DATA: it_in LIKE i_out3 OCCURS 0 WITH HEADER LINE. DATA: BEGIN OF i_mon OCCURS 0,"月份 monat LIKE bkpf-monat, END OF i_mon. DATA: BEGIN OF i_ym OCCURS 0,"年月 ym(6) TYPE c, END OF i_ym. DATA: BEGIN OF i_zzht OCCURS 0,"转租合同 intreno LIKE vibdro-intreno, bukrs LIKE vicncn-bukrs, recnnr LIKE vicncn-recnnr, recntxt LIKE vicncn-recntxt, objnr LIKE vicncn-objnr, END OF i_zzht. DATA: BEGIN OF i_ass1 OCCURS 0,"Object Assignment IM objnrsrc LIKE vibdobjass-objnrsrc, objnrtrg LIKE vibdobjass-objnrtrg, END OF i_ass1. DATA: BEGIN OF i_ro OCCURS 0,"Rental Object intreno LIKE vibdro-intreno, objnr LIKE vibdro-objnr, bukrs LIKE vibdro-bukrs, swenr LIKE vibdro-swenr, sgenr LIKE vibdro-sgenr, END OF i_ro. DATA: BEGIN OF i_bd OCCURS 0,"Building intreno LIKE vibdbu-intreno, objnr LIKE vibdbu-objnr, xgetxt LIKE vibdbu-xgetxt, bukrs LIKE vibdbu-bukrs, swenr LIKE vibdbu-swenr, sgenr LIKE vibdbu-sgenr, END OF i_bd. DATA: BEGIN OF i_ass2 OCCURS 0,"Object Assignment IB objnrsrc LIKE vibdobjass-objnrsrc, objnrtrg LIKE vibdobjass-objnrtrg, END OF i_ass2. DATA: BEGIN OF i_zlht OCCURS 0,"租赁合同 intreno LIKE vicncn-intreno, bukrs LIKE vicncn-bukrs, recnnr LIKE vicncn-recnnr, recntxt LIKE vicncn-recntxt, objnr LIKE vicncn-objnr, END OF i_zlht. DATA: BEGIN OF i_mea1 OCCURS 0,"Measurement 转租合同 intreno LIKE vibdmeas-intreno, validto LIKE vibdmeas-validto, validfrom LIKE vibdmeas-validfrom, meas LIKE vibdmeas-meas, measvalue LIKE vibdmeas-measvalue, END OF i_mea1. DATA: wa_mea1 LIKE STANDARD TABLE OF i_mea1 WITH HEADER LINE. DATA: BEGIN OF i_mea2 OCCURS 0,"Measurement 租赁合同 intreno LIKE vibdmeas-intreno, validto LIKE vibdmeas-validto, validfrom LIKE vibdmeas-validfrom, meas LIKE vibdmeas-meas, measvalue LIKE vibdmeas-measvalue, END OF i_mea2. DATA: wa_mea2 LIKE STANDARD TABLE OF i_mea2 WITH HEADER LINE. DATA: BEGIN OF i_cobrb OCCURS 0,"结算规则cobrb objnr LIKE cobrb-objnr, gabja LIKE cobrb-gabja, gabpe LIKE cobrb-gabpe, gbisj LIKE cobrb-gbisj, gbisp LIKE cobrb-gbisp, prozs LIKE cobrb-prozs,"百分比 perbz LIKE cobrb-perbz, bukrs LIKE cobrb-bukrs, kostl LIKE cobrb-kostl, END OF i_cobrb. DATA: BEGIN OF i_condzz OCCURS 0,"条件(转租合同) intreno LIKE vicdcond-intreno, condtype LIKE vicdcond-condtype, condvalidfrom LIKE vicdcond-condvalidfrom, condvalidto LIKE vicdcond-condvalidto, END OF i_condzz. DATA: wa_condzz LIKE i_condzz. DATA: BEGIN OF i_condzl OCCURS 0,"条件(租赁合同) intreno LIKE vicdcond-intreno, condtype LIKE vicdcond-condtype, calcrule LIKE vicdcond-calcrule,"fomula termnorh LIKE vicdcond-termnorh,"Number of Frequency Term termnosr LIKE vicdcond-termnosr,"Number of Sales Term condvalidfrom LIKE vicdcond-condvalidfrom, condvalidto LIKE vicdcond-condvalidto, unitprice LIKE vicdcond-unitprice, monthcost LIKE vicdcond-unitprice,"每月成本 END OF i_condzl. DATA: BEGIN OF i_vitmrh OCCURS 0, intreno LIKE vitmrh-intreno, termtype LIKE vitmrh-termtype, termno LIKE vitmrh-termno, validfrom LIKE vitmrh-validfrom, frequency LIKE vitmrh-frequency, frequencyunit LIKE vitmrh-frequencyunit, END OF i_vitmrh. DATA: BEGIN OF i_vicdcfpay OCCURS 0, intreno LIKE vicdcfpay-intreno, dbervon LIKE vicdcfpay-dbervon, dberbis LIKE vicdcfpay-dberbis, bnwhr LIKE vicdcfpay-bnwhr, atage LIKE vicdcfpay-atage, condtype LIKE vicdcfpay-condtype, END OF i_vicdcfpay. *reporting rule相关 DATA: BEGIN OF i_visrtmsbrpi OCCURS 0,"Assignment of Reporting Rule to Sales Rule (Grading) intreno LIKE visrtmsbrpi-intreno, sbtermno LIKE visrtmsbrpi-sbtermno, rptermno LIKE visrtmsbrpi-rptermno, itemno LIKE visrtmsbrpi-itemno, rentpercent LIKE visrtmsbrpi-rentpercent, END OF i_visrtmsbrpi. * DATA: BEGIN OF i_visrtmrprh OCCURS 0,"Assignment of Frequency Rule to Reporting Rule intreno LIKE visrtmrprh-intreno, rptermno LIKE visrtmrprh-rptermno, rhythmtype LIKE visrtmrprh-rhythmtype, frequency LIKE visrtmrprh-frequency, END OF i_visrtmrprh. * DATA: BEGIN OF i_visrreport OCCURS 0,"Sales Report intreno LIKE visrreport-intreno, termno LIKE visrreport-termno, rhythmtype LIKE visrreport-rhythmtype, net_sales LIKE visrreport-net_sales, validfrom LIKE visrreport-validfrom, validto LIKE visrreport-validto, monthcost LIKE visrreport-net_sales,"每月成本 END OF i_visrreport. DATA: i_cost LIKE zre_cost01 OCCURS 0 WITH HEADER LINE. DATA: wa_cost LIKE zre_cost01. DATA: l_ym(6) TYPE c. DATA: flag_exit TYPE c. DATA: l_dbervon LIKE vicdcfpay-dbervon. DATA: l_dberbis LIKE vicdcfpay-dberbis. DATA: begin_day LIKE vicdcfpay-dbervon. DATA: last_day LIKE vicdcfpay-dbervon. DATA: all_day TYPE i. DATA: i_status TYPE jstat OCCURS 0. DATA: lin TYPE i . DATA: v_tabix LIKE sy-tabix. DATA: l_tabix LIKE sy-tabix. DATA: l_monthcost1 LIKE vicdcond-unitprice. DATA: l_monthcost2 LIKE vicdcond-unitprice. DATA: l_monthcost3 LIKE vicdcond-unitprice. DATA: l_monthcost LIKE vicdcond-unitprice. DATA: day1 LIKE vibdmeas-validto. DATA: day2 LIKE vibdmeas-validto. DATA: day TYPE i. DATA: day_ht TYPE i. DATA: l_mear LIKE vibdmeas-measvalue. DATA: v_char TYPE c. DATA: l_bukrs LIKE bkpf-bukrs. DATA: l_gjahr LIKE bkpf-gjahr. DATA: l_monat LIKE bkpf-monat. DATA: l_recnnr LIKE vicncn-recnnr. DATA: gjahr LIKE bkpf-gjahr. DATA: s_monat LIKE bkpf-monat. DATA: l_ksrq(7) TYPE c. DATA: v_ksrq(7) TYPE c. DATA: v_jsrq(7) TYPE c. DATA: BEGIN OF i_bukrs OCCURS 0, bukrs LIKE t001-bukrs, END OF i_bukrs. RANGES: r_bukrs FOR t001-bukrs. DATA: i_bkpf LIKE bkpf OCCURS 0 WITH HEADER LINE. DATA: i_bseg LIKE bseg OCCURS 0 WITH HEADER LINE. DATA: i_bkdf LIKE bkdf OCCURS 0 WITH HEADER LINE. DATA: i_bsec LIKE bsec OCCURS 0 WITH HEADER LINE. DATA: i_bsed LIKE bsed OCCURS 0 WITH HEADER LINE. DATA: i_bset LIKE bset OCCURS 0 WITH HEADER LINE. *-------------------------Selection Screen-----------------------------* SELECTION-SCREEN BEGIN OF BLOCK block1 WITH FRAME TITLE text-001. SELECT-OPTIONS s_bukrs FOR t001-bukrs OBLIGATORY. SELECT-OPTIONS s_zzht FOR vicncn-recnnr. SELECT-OPTIONS s_zlht FOR vicncn-recnnr. PARAMETERS: p_budat LIKE bkpf-budat OBLIGATORY. PARAMETER p_cs AS CHECKBOX DEFAULT 'X'. SELECTION-SCREEN END OF BLOCK block1. *-------------------------Initialization-------------------------------* INITIALIZATION. p_budat = sy-datum. AT SELECTION-SCREEN. CLEAR i_bukrs. REFRESH i_bukrs. CLEAR r_bukrs. REFRESH r_bukrs. SELECT bukrs FROM t001 INTO CORRESPONDING FIELDS OF TABLE i_bukrs WHERE bukrs IN s_bukrs. IF i_bukrs[] IS INITIAL. MESSAGE e001(00) WITH '没有此公司代码，请检查输入！'. ELSE. LOOP AT i_bukrs. AUTHORITY-CHECK OBJECT 'F_BKPF_BUK' ID 'BUKRS' FIELD i_bukrs-bukrs. IF sy-subrc = 0. r_bukrs-sign = 'I'. r_bukrs-option = 'EQ'. r_bukrs-low = i_bukrs-bukrs. APPEND r_bukrs. CLEAR r_bukrs. ENDIF. ENDLOOP. IF r_bukrs[] IS INITIAL. MESSAGE e001(00) WITH '你没有操作此公司的权限！'. ENDIF. ENDIF. *--------------------------Start-of-Selection---------------------------* START-OF-SELECTION. CLEAR: gjahr, s_monat. gjahr = p_budat+0(4). s_monat = p_budat+4(2). CLEAR flag_exit. PERFORM get_data. IF flag_exit = 'X'. EXIT. ENDIF. PERFORM cal_cost. IF p_cs = 'X'. PERFORM sub_output. ENDIF. IF p_cs = ''. PERFORM process. ENDIF. *&---------------------------------------------------------------------* *& Form get_data *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* FORM get_data. DATA:flag(1) TYPE c. CLEAR: l_ym, l_dbervon, l_dberbis. l_ym+0(4) = gjahr. l_ym+4(2) = s_monat. l_dbervon+0(6) = l_ym. l_dbervon+6(2) = '01'. CALL FUNCTION 'BKK_GET_MONTH_LASTDAY' EXPORTING i_date = l_dbervon IMPORTING e_date = l_dberbis. *取转租合同 CLEAR i_zzht. REFRESH i_zzht. **** MODIFY BY lius AT 20111214 FOR 冒香香 BEGIN**** ** 新添加的合同类型有‘ZO03’‘ZO04’‘ZO05’‘ZO40’‘ZO50’ * SELECT intreno bukrs recnnr recntxt objnr INTO CORRESPONDING FIELDS OF TABLE i_zzht * FROM vicncn WHERE bukrs IN r_bukrs AND recnnr IN s_zzht AND recntype IN ('ZO01','ZO02'). SELECT intreno bukrs recnnr recntxt objnr INTO CORRESPONDING FIELDS OF TABLE i_zzht FROM vicncn WHERE bukrs IN r_bukrs AND recnnr IN s_zzht ****** MODIFY BY lius AT 20120326 FOR冒香香 BEGIN **** ** 增加新配置的合同类型：‘ZO60’（内部公司间办公区转租合同），‘ZO70’（内部公司间物流转租合同） * AND recntype IN ('ZO01','ZO02','ZO03','ZO04','ZO05','ZO40','ZO50'). AND recntype IN ('ZO01','ZO02','ZO03','ZO04','ZO05','ZO40','ZO50','ZO60','ZO70'). ****** MODIFY BY lius AT 20120326 FOR冒香香 END **** **** MODIFY BY lius AT 20111214 FOR 冒香香 END **** *将锁定的合同去掉 LOOP AT i_zzht. CALL FUNCTION 'STATUS_READ' EXPORTING objnr = i_zzht-objnr only_active = 'X' TABLES status = i_status EXCEPTIONS object_not_found = 1 OTHERS = 2. READ TABLE i_status TRANSPORTING NO FIELDS WITH KEY stat = 'I0119'. "激活 IF sy-subrc EQ 0 . READ TABLE i_status TRANSPORTING NO FIELDS WITH KEY stat = 'I0064' . "主数据锁定 IF sy-subrc EQ 0 . DELETE i_zzht. ELSE. READ TABLE i_status TRANSPORTING NO FIELDS WITH KEY stat = 'I0065' . "范围锁定 IF sy-subrc EQ 0 . DELETE i_zzht. ENDIF. ENDIF. ELSE. DELETE i_zzht. ENDIF. ENDLOOP. DESCRIBE TABLE i_zzht LINES lin. IF lin < 1. flag_exit = 'X'. WRITE:/10 '无满足条件的转租合同！'. EXIT. ENDIF. *取转租合同条件 SORT i_zzht BY intreno. CLEAR i_condzz. REFRESH i_condzz. SELECT intreno condtype condvalidfrom condvalidto INTO CORRESPONDING FIELDS OF TABLE i_condzz FROM vicdcond FOR ALL ENTRIES IN i_zzht WHERE intreno = i_zzht-intreno AND conddelete = ''. *判断转租合同是否符合月份条件，去掉不符的，初步过滤 LOOP AT i_zzht. CLEAR flag. LOOP AT i_condzz WHERE intreno = i_zzht-intreno. IF l_ym >= i_condzz-condvalidfrom+0(6) AND l_ym <= i_condzz-condvalidto+0(6). flag = 'X'. EXIT. ENDIF. ENDLOOP. IF flag NE 'X'. DELETE i_zzht. ENDIF. ENDLOOP. IF i_zzht[] IS INITIAL. flag_exit = 'X'. WRITE:/10 '无满足年度、月份条件的转租合同！'. EXIT. ENDIF. *取Object Assignment IM SORT i_zzht BY objnr. CLEAR i_ass1. REFRESH i_ass1. SELECT objnrsrc objnrtrg INTO CORRESPONDING FIELDS OF TABLE i_ass1 FROM vibdobjass FOR ALL ENTRIES IN i_zzht WHERE objnrsrc = i_zzht-objnr. SORT i_ass1 BY objnrtrg. LOOP AT i_ass1. IF i_ass1-objnrtrg+0(2) NE 'IM'. DELETE i_ass1. ENDIF. ENDLOOP. IF i_ass1[] IS INITIAL. flag_exit = 'X'. WRITE:/10 '无满足条件的Object Assignment IM！'. EXIT. ENDIF. *取Rental Object CLEAR i_ro. REFRESH i_ro. SELECT intreno objnr bukrs swenr sgenr INTO CORRESPONDING FIELDS OF TABLE i_ro FROM vibdro FOR ALL ENTRIES IN i_ass1 WHERE objnr = i_ass1-objnrtrg. IF i_ro[] IS INITIAL. flag_exit = 'X'. WRITE:/10 '无满足条件的Rental Object！'. EXIT. ENDIF. SORT i_ro BY intreno. *取转租面积 CLEAR i_mea1. REFRESH i_mea1. SELECT intreno validto validfrom meas measvalue INTO CORRESPONDING FIELDS OF TABLE i_mea1 FROM vibdmeas FOR ALL ENTRIES IN i_ro WHERE intreno = i_ro-intreno AND ( meas = 'Z001' OR meas = 'Z002' ). IF i_mea1[] IS INITIAL. flag_exit = 'X'. WRITE:/10 '无满足条件的转租合同Measurement！'. EXIT. ELSE. CLEAR wa_mea1. REFRESH wa_mea1. wa_mea1[] = i_mea1[]. ENDIF. SORT i_ro BY bukrs swenr swenr. *取Building CLEAR i_bd. REFRESH i_bd. SELECT intreno objnr xgetxt bukrs swenr sgenr INTO CORRESPONDING FIELDS OF TABLE i_bd FROM vibdbu FOR ALL ENTRIES IN i_ro WHERE bukrs = i_ro-bukrs AND swenr = i_ro-swenr AND sgenr = i_ro-sgenr. IF i_bd[] IS INITIAL. flag_exit = 'X'. WRITE:/10 '无满足条件的Building！'. EXIT. ENDIF. SORT i_bd BY intreno. *取租赁面积 CLEAR i_mea2. REFRESH i_mea2. SELECT intreno validto validfrom meas measvalue INTO CORRESPONDING FIELDS OF TABLE i_mea2 FROM vibdmeas FOR ALL ENTRIES IN i_bd WHERE intreno = i_bd-intreno AND ( meas = 'Z001' OR meas = 'Z002' ). IF i_mea2[] IS INITIAL. flag_exit = 'X'. WRITE:/10 '无满足条件的租赁合同Measurement！'. EXIT. ELSE. CLEAR wa_mea2. REFRESH wa_mea2. wa_mea2[] = i_mea2[]. ENDIF. SORT i_bd BY objnr. *取Object Assignment IB CLEAR i_ass2. REFRESH i_ass2. SELECT objnrsrc objnrtrg INTO CORRESPONDING FIELDS OF TABLE i_ass2 FROM vibdobjass FOR ALL ENTRIES IN i_bd WHERE objnrtrg = i_bd-objnr. IF i_ass2[] IS INITIAL. flag_exit = 'X'. WRITE:/10 '无满足条件的Object Assignment IB！'. EXIT. ENDIF. SORT i_ass2 BY objnrsrc. *取租赁合同 CLEAR i_zlht. REFRESH i_zlht. *** MODIFY BY CHENQY AT 20140804 FOR 冒香香 BEGIN *** * 排除ZU80的合同 "在根据规则（转租合同中的租赁对象取对应的建筑物，找出建筑物上所建立的合同）取租赁合同时（如下图），剔除合同类型（VICNCN-RECNTYPE）为ZU80的合同； * SELECT intreno bukrs recnnr recntxt objnr INTO CORRESPONDING FIELDS OF TABLE i_zlht FROM vicncn * FOR ALL ENTRIES IN i_ass2 WHERE objnr = i_ass2-objnrsrc AND recnnr IN s_zlht. SELECT intreno bukrs recnnr recntxt objnr INTO CORRESPONDING FIELDS OF TABLE i_zlht FROM vicncn FOR ALL ENTRIES IN i_ass2 WHERE objnr = i_ass2-objnrsrc AND recnnr IN s_zlht AND recntype <> 'ZU80'. *** MODIFY BY CHENQY AT 20140804 FOR 冒香香 END *** *将锁定的合同去掉 LOOP AT i_zlht. CLEAR i_status[]. CALL FUNCTION 'STATUS_READ' EXPORTING objnr = i_zlht-objnr only_active = 'X' TABLES status = i_status EXCEPTIONS object_not_found = 1 OTHERS = 2. READ TABLE i_status TRANSPORTING NO FIELDS WITH KEY stat = 'I0119'. "激活 IF sy-subrc EQ 0 . READ TABLE i_status TRANSPORTING NO FIELDS WITH KEY stat = 'I0064' . "主数据锁定 IF sy-subrc EQ 0 . DELETE i_zlht. ELSE. READ TABLE i_status TRANSPORTING NO FIELDS WITH KEY stat = 'I0065' . "范围锁定 IF sy-subrc EQ 0 . DELETE i_zlht. ENDIF. ENDIF. ELSE. DELETE i_zlht. ENDIF. ENDLOOP. DESCRIBE TABLE i_zlht LINES lin. IF lin < 1 . flag_exit = 'X'. WRITE:/10 '无满足条件的租赁合同！'. EXIT. ENDIF. SORT i_zlht BY objnr. *取租赁合同结算规则 CLEAR i_cobrb. REFRESH i_cobrb. SELECT objnr gabja gabpe gbisj gbisp prozs perbz bukrs kostl INTO CORRESPONDING FIELDS OF TABLE i_cobrb FROM cobrb FOR ALL ENTRIES IN i_zlht WHERE objnr = i_zlht-objnr. *取租赁合同条件 fomula SORT i_zlht BY intreno. CLEAR i_condzl. REFRESH i_condzl. SELECT intreno condtype calcrule termnorh termnosr condvalidfrom condvalidto unitprice INTO CORRESPONDING FIELDS OF TABLE i_condzl FROM vicdcond FOR ALL ENTRIES IN i_zlht WHERE intreno = i_zlht-intreno AND conddelete = ''. *取期间天数 CLEAR i_vicdcfpay. REFRESH i_vicdcfpay. SELECT intreno dbervon dberbis bnwhr atage condtype FROM vicdcfpay INTO CORRESPONDING FIELDS OF TABLE i_vicdcfpay FOR ALL ENTRIES IN i_zlht WHERE intreno = i_zlht-intreno AND ( ( dbervon <= l_dbervon AND dberbis >= l_dbervon ) OR ( dbervon <= l_dberbis AND dberbis >= l_dberbis ) ). *Assignment of Reporting Rule to Sales Rule (Grading) CLEAR i_visrtmsbrpi. REFRESH i_visrtmsbrpi. SELECT intreno sbtermno rptermno itemno rentpercent INTO CORRESPONDING FIELDS OF TABLE i_visrtmsbrpi FROM visrtmsbrpi FOR ALL ENTRIES IN i_zlht WHERE intreno = i_zlht-intreno. *Assignment of Frequency Rule to Reporting Rule CLEAR i_visrtmrprh. REFRESH i_visrtmrprh. SELECT intreno rptermno rhythmtype frequency INTO CORRESPONDING FIELDS OF TABLE i_visrtmrprh FROM visrtmrprh FOR ALL ENTRIES IN i_zlht WHERE intreno = i_zlht-intreno. *Sales Report CLEAR i_visrreport. REFRESH i_visrreport. SELECT intreno termno rhythmtype net_sales validfrom validto FROM visrreport INTO CORRESPONDING FIELDS OF TABLE i_visrreport FOR ALL ENTRIES IN i_zlht WHERE intreno = i_zlht-intreno. ENDFORM. "GET_DATA *&---------------------------------------------------------------------* *& Form cal_cost *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* FORM cal_cost. DATA:flag(1) TYPE c. *U 计算月成本 SORT i_visrtmsbrpi BY intreno rptermno. LOOP AT i_visrreport. READ TABLE i_visrtmsbrpi WITH KEY intreno = i_visrreport-intreno rptermno = i_visrreport-termno. IF sy-subrc EQ 0. i_visrreport-monthcost = i_visrreport-net_sales * i_visrtmsbrpi-rentpercent / 100. ENDIF. MODIFY i_visrreport. ENDLOOP. *A 计算月成本 SORT i_vicdcfpay BY intreno. LOOP AT i_condzl WHERE calcrule = 'A'. CLEAR l_monthcost. IF i_condzl-condvalidfrom+0(6) <= l_ym AND i_condzl-condvalidto+0(6) >= l_ym. LOOP AT i_vicdcfpay WHERE intreno = i_condzl-intreno AND condtype = i_condzl-condtype. CLEAR: begin_day, last_day, all_day, l_monthcost1, l_monthcost2, l_monthcost3. IF i_vicdcfpay-dbervon >= i_condzl-condvalidfrom AND i_vicdcfpay-dberbis <= i_condzl-condvalidto. IF i_vicdcfpay-atage <> 0. IF l_ym = i_vicdcfpay-dbervon+0(6) AND l_ym < i_vicdcfpay-dberbis+0(6). begin_day = i_vicdcfpay-dbervon. CALL FUNCTION 'BKK_GET_MONTH_LASTDAY' EXPORTING i_date = begin_day IMPORTING e_date = last_day. all_day = last_day - begin_day + 1. l_monthcost1 = i_vicdcfpay-bnwhr * all_day / i_vicdcfpay-atage. l_monthcost = l_monthcost + l_monthcost1. ELSEIF l_ym = i_vicdcfpay-dberbis+0(6) AND l_ym >= i_vicdcfpay-dbervon+0(6). begin_day+0(6) = l_ym. begin_day+6(2) = '01'. last_day = i_vicdcfpay-dberbis. all_day = last_day - begin_day + 1. l_monthcost2 = i_vicdcfpay-bnwhr * all_day / i_vicdcfpay-atage. l_monthcost = l_monthcost + l_monthcost2. ELSEIF l_ym > i_vicdcfpay-dbervon+0(6) AND l_ym < i_vicdcfpay-dberbis+0(6). begin_day+0(6) = l_ym. begin_day+6(2) = '01'. CALL FUNCTION 'BKK_GET_MONTH_LASTDAY' EXPORTING i_date = begin_day IMPORTING e_date = last_day. all_day = last_day - begin_day + 1. l_monthcost3 = i_vicdcfpay-bnwhr * all_day / i_vicdcfpay-atage. l_monthcost = l_monthcost + l_monthcost3. ENDIF. ENDIF. ENDIF. ENDLOOP. ENDIF. i_condzl-monthcost = l_monthcost. MODIFY i_condzl. ENDLOOP. *计算每个合同的成本（分月） *计算类别有A U AU 3类 *这里，假定condtionvalidfrom 和condtionvalidto 不会是同一年月的 DATA:l_ac TYPE i. DATA:l_uc TYPE i. DATA:lastd TYPE d. DATA:days TYPE i. DATA:daym TYPE i."月份的天数 DATA:daycost LIKE vicdcond-unitprice. DATA:dayfrom TYPE d. DATA:dayto TYPE d. SORT i_ass1 BY objnrsrc. SORT i_ro BY objnr. SORT i_bd BY bukrs swenr sgenr. SORT i_ass2 BY objnrtrg. SORT i_zlht BY objnr. SORT i_condzz BY intreno condvalidfrom. SORT i_condzl BY intreno condvalidfrom. SORT i_mea1 BY intreno. SORT wa_mea1 BY intreno validfrom. SORT i_mea2 BY intreno. SORT wa_mea2 BY intreno validfrom. SORT i_visrtmsbrpi BY intreno sbtermno. SORT i_visrreport BY intreno termno validfrom validto. SORT i_visrtmrprh BY intreno rptermno rhythmtype. LOOP AT i_zzht. CLEAR i_out1. *计算 dayfrom,dayto CLEAR:dayfrom,dayto. SORT i_condzz BY condvalidfrom. LOOP AT i_condzz WHERE intreno = i_zzht-intreno. CLEAR: v_tabix, l_tabix, wa_condzz. v_tabix = sy-tabix. l_tabix = v_tabix + 1. IF i_condzz-condvalidfrom+0(6) = l_ym AND l_ym < i_condzz-condvalidto+0(6). IF dayfrom IS INITIAL. dayfrom = i_condzz-condvalidfrom. ENDIF. IF dayto IS INITIAL. dayto = i_condzz-condvalidto. ENDIF. READ TABLE i_condzz INTO wa_condzz INDEX l_tabix. IF sy-subrc = 0. IF i_condzz-condvalidto+0(6) = wa_condzz-condvalidfrom+0(6). dayto = i_condzz-condvalidto. CONTINUE. ENDIF. ENDIF. ELSEIF i_condzz-condvalidto+0(6) = l_ym AND l_ym > i_condzz-condvalidfrom+0(6). IF dayfrom IS INITIAL. dayfrom = i_condzz-condvalidfrom. ENDIF. IF dayto IS INITIAL. dayto = i_condzz-condvalidto. ENDIF. READ TABLE i_condzz INTO wa_condzz INDEX l_tabix. IF sy-subrc = 0. IF i_condzz-condvalidto+0(6) = wa_condzz-condvalidfrom+0(6). dayto = i_condzz-condvalidto. CONTINUE. ENDIF. ENDIF. ELSEIF i_condzz-condvalidfrom+0(6) < l_ym AND l_ym < i_condzz-condvalidto+0(6). IF dayfrom IS INITIAL. dayfrom = i_condzz-condvalidfrom. ENDIF. IF dayto IS INITIAL. dayto = i_condzz-condvalidto. ENDIF. READ TABLE i_condzz INTO wa_condzz INDEX l_tabix. IF sy-subrc = 0. IF i_condzz-condvalidto+0(6) = wa_condzz-condvalidfrom+0(6). dayto = i_condzz-condvalidto. CONTINUE. ENDIF. ENDIF. ENDIF. ENDLOOP. IF dayfrom IS INITIAL OR dayto IS INITIAL. CLEAR i_zzht. CONTINUE. ENDIF. i_out1-dayfrom = dayfrom.i_out1-dayto = dayto. SORT i_condzz BY intreno. READ TABLE i_condzz WITH KEY intreno = i_zzht-intreno. IF sy-subrc NE 0. CLEAR i_zzht. CONTINUE. ENDIF. READ TABLE i_ass1 WITH KEY objnrsrc = i_zzht-objnr. IF sy-subrc NE 0. CLEAR i_zzht. CONTINUE. ENDIF. READ TABLE i_ro WITH KEY objnr = i_ass1-objnrtrg. IF sy-subrc NE 0. CLEAR i_zzht. CONTINUE. ENDIF. READ TABLE i_mea1 WITH KEY intreno = i_ro-intreno. IF sy-subrc NE 0. CLEAR i_zzht. CONTINUE. ENDIF. *取租赁面积 CLEAR: l_mear, day_ht. LOOP AT wa_mea1 WHERE intreno = i_ro-intreno. CLEAR: day1, day2, day. IF l_ym = wa_mea1-validfrom+0(6) AND l_ym < wa_mea1-validto+0(6). day1 = wa_mea1-validfrom. CALL FUNCTION 'BKK_GET_MONTH_LASTDAY' EXPORTING i_date = day1 IMPORTING e_date = day2. day = day2 - day1 + 1. ELSEIF l_ym = wa_mea1-validto+0(6) AND l_ym > wa_mea1-validfrom+0(6). day1+0(6) = l_ym. day1+6(2) = '01'. day2 = wa_mea1-validto. day = day2 - day1 + 1. ELSEIF l_ym > wa_mea1-validfrom+0(6) AND l_ym < wa_mea1-validto+0(6). day1+0(6) = l_ym. day1+6(2) = '01'. CALL FUNCTION 'BKK_GET_MONTH_LASTDAY' EXPORTING i_date = day1 IMPORTING e_date = day2. day = day2 - day1 + 1. ENDIF. IF day > day_ht. day_ht = day. l_mear = wa_mea1-measvalue. ENDIF. CLEAR wa_mea1. ENDLOOP. i_out1-zzmj = l_mear. READ TABLE i_bd WITH KEY bukrs = i_ro-bukrs swenr = i_ro-swenr sgenr = i_ro-sgenr. IF sy-subrc NE 0. CLEAR i_zzht. CONTINUE. ENDIF. READ TABLE i_mea2 WITH KEY intreno = i_bd-intreno. IF sy-subrc NE 0. CLEAR i_zzht. CONTINUE. ENDIF. *取转租面积 CLEAR: l_mear, day_ht. LOOP AT wa_mea2 WHERE intreno = i_bd-intreno. CLEAR: day1, day2, day. IF l_ym = wa_mea2-validfrom+0(6) AND l_ym < wa_mea2-validto+0(6). day1 = wa_mea2-validfrom. CALL FUNCTION 'BKK_GET_MONTH_LASTDAY' EXPORTING i_date = day1 IMPORTING e_date = day2. day = day2 - day1 + 1. ELSEIF l_ym = wa_mea2-validto+0(6) AND l_ym > wa_mea2-validfrom+0(6). day1+0(6) = l_ym. day1+6(2) = '01'. day2 = wa_mea2-validto. day = day2 - day1 + 1. ELSEIF l_ym > wa_mea2-validfrom+0(6) AND l_ym < wa_mea2-validto+0(6). day1+0(6) = l_ym. day1+6(2) = '01'. CALL FUNCTION 'BKK_GET_MONTH_LASTDAY' EXPORTING i_date = day1 IMPORTING e_date = day2. day = day2 - day1 + 1. ENDIF. IF day > day_ht. day_ht = day. l_mear = wa_mea2-measvalue. ENDIF. CLEAR wa_mea2. ENDLOOP. i_out1-zlmj = l_mear. i_out1-recntxt = i_zzht-recntxt. LOOP AT i_ass2 WHERE objnrtrg = i_bd-objnr. READ TABLE i_zlht WITH KEY objnr = i_ass2-objnrsrc. IF sy-subrc NE 0. CONTINUE. ENDIF. i_out1-zzht = i_zzht-recnnr. i_out1-zlht = i_zlht-recnnr. i_out1-objnr = i_zlht-objnr. i_out1-bukrs = i_zlht-bukrs. i_out1-gjahr = gjahr. CLEAR: l_ac, l_uc. LOOP AT i_condzl WHERE intreno = i_zlht-intreno. IF i_condzl-calcrule = 'A'.l_ac = l_ac + 1.ENDIF. IF i_condzl-calcrule = 'U'.l_uc = l_uc + 1.ENDIF. ENDLOOP. IF l_ac > 0 AND l_uc = 0.i_out1-type = 'A'.ENDIF. IF l_uc > 0 AND l_ac = 0.i_out1-type = 'U'.ENDIF. IF l_uc > 0 AND l_ac > 0.i_out1-type = 'AU'.ENDIF. IF i_out1-type = 'AU'. DATA:l_u LIKE visrreport-net_sales. DATA:l_a LIKE i_condzl-unitprice. DATA:l_flag1(1) TYPE c. DATA:l_flag2(1) TYPE c. i_out1-monat = l_ym+4(2). CLEAR:l_u,l_a,l_flag1,l_flag2. LOOP AT i_condzl WHERE intreno = i_zlht-intreno AND condvalidfrom+0(6) <= l_ym AND condvalidto+0(6) >= l_ym AND calcrule = 'U'. READ TABLE i_visrtmsbrpi WITH KEY intreno = i_zlht-intreno sbtermno = i_condzl-termnosr. IF sy-subrc NE 0. CONTINUE. ENDIF. CLEAR i_visrreport. LOOP AT i_visrreport WHERE intreno = i_zlht-intreno AND termno = i_visrtmsbrpi-rptermno AND validfrom+0(6) <= l_ym AND validto+0(6) >= l_ym. EXIT. ENDLOOP. IF i_visrreport IS INITIAL. CONTINUE. ENDIF. IF l_ym EQ i_visrreport-validto+0(6). l_flag1 = 'X'. l_u = i_visrreport-monthcost. ENDIF. ENDLOOP. IF l_flag1 EQ 'X'. i_out1-condvalidfrom_zl = i_condzl-condvalidfrom. i_out1-condvalidto_zl = i_condzl-condvalidto. READ TABLE i_visrtmrprh WITH KEY intreno = i_visrreport-intreno rptermno = i_visrreport-termno rhythmtype = i_visrreport-rhythmtype. IF sy-subrc NE 0. CONTINUE. ENDIF. LOOP AT i_condzl WHERE intreno = i_zlht-intreno AND condvalidfrom+0(6) <= l_ym AND condvalidto+0(6) >= l_ym AND calcrule = 'A'. l_a = l_a + i_condzl-unitprice. "i_condzl-monthcost * i_visrtmrprh-frequency. ENDLOOP. IF l_a > l_u. CONTINUE. ENDIF. i_out1-cost = l_u - l_a. i_out1-condtype = i_condzl-condtype. APPEND i_out1. ENDIF. ENDIF. IF i_out1-type = 'A' OR i_out1-type = 'AU'. i_out1-monat = l_ym+4(2). IF l_ym = dayfrom+0(6). LOOP AT i_condzl WHERE intreno = i_zlht-intreno AND condvalidfrom+0(6) <= l_ym AND condvalidto+0(6) >= l_ym AND calcrule = 'A'. i_out1-condtype = i_condzl-condtype. i_out1-condvalidfrom_zl = i_condzl-condvalidfrom. i_out1-condvalidto_zl = i_condzl-condvalidto. lastd = sy-datum. lastd+0(6) = l_ym. CALL FUNCTION 'LAST_DAY_OF_MONTHS' EXPORTING day_in = lastd IMPORTING last_day_of_month = lastd EXCEPTIONS day_in_no_date = 1 OTHERS = 2. daym = lastd+6(2)."月份的天数 days = lastd - dayfrom + 1."天数计算 daycost = i_condzl-monthcost / daym. i_out1-cost = days * daycost. APPEND i_out1. ENDLOOP. ENDIF. IF l_ym = dayto+0(6). LOOP AT i_condzl WHERE intreno = i_zlht-intreno AND condvalidfrom+0(6) <= l_ym AND condvalidto+0(6) >= l_ym AND calcrule = 'A'. i_out1-condtype = i_condzl-condtype. i_out1-condvalidfrom_zl = i_condzl-condvalidfrom. i_out1-condvalidto_zl = i_condzl-condvalidto. lastd = sy-datum. lastd+0(6) = l_ym. CALL FUNCTION 'LAST_DAY_OF_MONTHS' EXPORTING day_in = lastd IMPORTING last_day_of_month = lastd EXCEPTIONS day_in_no_date = 1 OTHERS = 2. daym = lastd+6(2)."月份的天数 days = dayto+6(2)."天数计算 daycost = i_condzl-monthcost / daym. i_out1-cost = days * daycost. APPEND i_out1. ENDLOOP. ENDIF. IF l_ym > dayfrom+0(6) AND l_ym < dayto+0(6). LOOP AT i_condzl WHERE intreno = i_zlht-intreno AND condvalidfrom+0(6) <= l_ym AND condvalidto+0(6) >= l_ym AND calcrule = 'A'. i_out1-condtype = i_condzl-condtype. i_out1-condvalidfrom_zl = i_condzl-condvalidfrom. i_out1-condvalidto_zl = i_condzl-condvalidto. i_out1-cost = i_condzl-monthcost. APPEND i_out1. ENDLOOP. ENDIF. ENDIF."TYPE A IF i_out1-type = 'U'. i_out1-monat = l_ym+4(2). IF l_ym = dayfrom+0(6). LOOP AT i_condzl WHERE intreno = i_zlht-intreno AND condvalidfrom+0(6) <= l_ym AND condvalidto+0(6) >= l_ym AND calcrule = 'U'. IF i_condzl-condtype NE 'Z290' AND i_condzl-condtype NE 'Z900'. CONTINUE. ENDIF. READ TABLE i_visrtmsbrpi WITH KEY intreno = i_zlht-intreno sbtermno = i_condzl-termnosr. IF sy-subrc NE 0. CONTINUE. ENDIF. CLEAR i_visrreport. LOOP AT i_visrreport WHERE intreno = i_zlht-intreno AND termno = i_visrtmsbrpi-rptermno AND validfrom+0(6) <= l_ym AND validto+0(6) >= l_ym. EXIT. ENDLOOP. IF i_visrreport IS INITIAL. CONTINUE. ENDIF. i_out1-condtype = i_condzl-condtype. i_out1-condvalidfrom_zl = i_condzl-condvalidfrom. i_out1-condvalidto_zl = i_condzl-condvalidto. lastd = sy-datum. lastd+0(6) = l_ym. CALL FUNCTION 'LAST_DAY_OF_MONTHS' EXPORTING day_in = lastd IMPORTING last_day_of_month = lastd EXCEPTIONS day_in_no_date = 1 OTHERS = 2. daym = lastd+6(2)."月份的天数 days = lastd - dayfrom + 1."天数计算 daycost = i_visrreport-monthcost / daym. i_out1-cost = days * daycost. APPEND i_out1. ENDLOOP. ENDIF. IF l_ym = dayto+0(6). LOOP AT i_condzl WHERE intreno = i_zlht-intreno AND condvalidfrom+0(6) <= l_ym AND condvalidto+0(6) >= l_ym AND calcrule = 'U'. IF i_condzl-condtype NE 'Z290' AND i_condzl-condtype NE 'Z900'. CONTINUE. ENDIF. READ TABLE i_visrtmsbrpi WITH KEY intreno = i_zlht-intreno sbtermno = i_condzl-termnosr. IF sy-subrc NE 0. CONTINUE. ENDIF. CLEAR i_visrreport. LOOP AT i_visrreport WHERE intreno = i_zlht-intreno AND termno = i_visrtmsbrpi-rptermno AND validfrom+0(6) <= l_ym AND validto+0(6) >= l_ym. EXIT. ENDLOOP. IF i_visrreport IS INITIAL. CONTINUE. ENDIF. i_out1-condtype = i_condzl-condtype. i_out1-condvalidfrom_zl = i_condzl-condvalidfrom. i_out1-condvalidto_zl = i_condzl-condvalidto. lastd = sy-datum. lastd+0(6) = l_ym. CALL FUNCTION 'LAST_DAY_OF_MONTHS' EXPORTING day_in = lastd IMPORTING last_day_of_month = lastd EXCEPTIONS day_in_no_date = 1 OTHERS = 2. daym = lastd+6(2)."月份的天数 days = dayto+6(2)."天数计算 daycost = i_visrreport-monthcost / daym. i_out1-cost = days * daycost. APPEND i_out1. ENDLOOP. ENDIF. IF l_ym > dayfrom+0(6) AND l_ym < dayto+0(6). LOOP AT i_condzl WHERE intreno = i_zlht-intreno AND condvalidfrom+0(6) <= l_ym AND condvalidto+0(6) >= l_ym AND calcrule = 'U'. IF i_condzl-condtype NE 'Z290' AND i_condzl-condtype NE 'Z900'. CONTINUE. ENDIF. READ TABLE i_visrtmsbrpi WITH KEY intreno = i_zlht-intreno sbtermno = i_condzl-termnosr. IF sy-subrc NE 0. CONTINUE. ENDIF. CLEAR i_visrreport. LOOP AT i_visrreport WHERE intreno = i_zlht-intreno AND termno = i_visrtmsbrpi-rptermno AND validfrom+0(6) <= l_ym AND validto+0(6) >= l_ym. EXIT. ENDLOOP. IF i_visrreport IS INITIAL. CONTINUE. ENDIF. i_out1-condtype = i_condzl-condtype. i_out1-condvalidfrom_zl = i_condzl-condvalidfrom. i_out1-condvalidto_zl = i_condzl-condvalidto. i_out1-cost = i_visrreport-monthcost. APPEND i_out1. ENDLOOP. ENDIF. ENDIF."TYPE U ENDLOOP. "ASS2 ENDLOOP."ZZHT *分摊-成本中心 *面积 DATA:l_cost LIKE i_out2-cost. DATA: v_flag TYPE c. DATA: v_kostl TYPE kostl. LOOP AT i_out1. CLEAR l_cost. MOVE-CORRESPONDING i_out1 TO i_out2. IF i_out1-zlmj EQ 0. CONTINUE. ENDIF. IF i_out1-zlmj NE 0. l_cost = i_out1-cost / i_out1-zlmj * i_out1-zzmj. ENDIF. CLEAR: v_flag, v_kostl, l_ksrq. CONCATENATE p_budat+0(4) '0' p_budat+4(2) INTO l_ksrq. LOOP AT i_cobrb WHERE objnr = i_out1-objnr. IF i_cobrb-gabja = '0000' AND i_cobrb-gbisj = '0000'. IF i_cobrb-kostl+4(1) = 'Y'. v_flag = 'X'. v_kostl = i_cobrb-kostl. EXIT. ENDIF. ELSE. CLEAR: v_ksrq, v_jsrq. CONCATENATE i_cobrb-gabja i_cobrb-gabpe INTO v_ksrq. CONCATENATE i_cobrb-gbisj i_cobrb-gbisp INTO v_jsrq. IF ( v_ksrq = '0000000' AND l_ksrq <= v_jsrq ) OR ( v_jsrq = '0000000' AND v_ksrq <= l_ksrq ). ELSE. DELETE i_cobrb. CLEAR i_cobrb. CONTINUE. ENDIF. IF i_cobrb-kostl+4(1) = 'Y'. v_flag = 'X'. v_kostl = i_cobrb-kostl. EXIT. ENDIF. ENDIF. ENDLOOP. IF v_flag = 'X'. i_out2-kostl = v_kostl. i_out2-cost = l_cost. COLLECT i_out2. ELSE. LOOP AT i_cobrb WHERE objnr = i_out1-objnr. i_out2-kostl = i_cobrb-kostl. i_out2-cost = l_cost * i_cobrb-prozs / 100. COLLECT i_out2. ENDLOOP. ENDIF. ENDLOOP. LOOP AT i_out2. MOVE-CORRESPONDING i_out2 TO i_out3. COLLECT i_out3. ENDLOOP. SORT i_out3 BY bukrs gjahr monat zzht. ENDFORM. "cal_cost *&---------------------------------------------------------------------* *& Form sub_output *&---------------------------------------------------------------------* * *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM sub_output. g_repid = sy-repid. REFRESH fieldcat[]. fieldcat-fieldname = 'BUKRS'. fieldcat-ref_tabname = 'BKPF'. APPEND fieldcat. CLEAR fieldcat. fieldcat-fieldname = 'GJAHR'. fieldcat-ref_tabname = 'BKPF'. APPEND fieldcat. CLEAR fieldcat. fieldcat-fieldname = 'MONAT'. fieldcat-ref_tabname = 'BKPF'. APPEND fieldcat. CLEAR fieldcat. fieldcat-fieldname = 'ZZHT'. fieldcat-reptext_ddic = '合同号'. APPEND fieldcat. CLEAR fieldcat. fieldcat-fieldname = 'KOSTL'. fieldcat-ref_tabname = 'BSEG'. APPEND fieldcat. CLEAR fieldcat. fieldcat-fieldname = 'COST'. fieldcat-reptext_ddic = '金额'. APPEND fieldcat. CLEAR fieldcat. gs_layout-coltab_fieldname = 'COLOR_CELL'. gs_layout-zebra = 'X'. gs_layout-colwidth_optimize = 'X'. CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY' EXPORTING i_callback_program = g_repid is_layout = gs_layout it_fieldcat = fieldcat[] i_save = 'A' TABLES t_outtab = i_out3 EXCEPTIONS program_error = 1 OTHERS = 2. IF sy-subrc <> 0. MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4. ENDIF. ENDFORM. "sub_output *&---------------------------------------------------------------------* *& Form process *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* FORM process. DELETE i_out3 WHERE cost = 0. SORT i_out3 BY bukrs gjahr monat zzht. LOOP AT i_out3 INTO wa_out. CLEAR wa_cost. SELECT SINGLE * FROM zre_cost01 INTO wa_cost WHERE bukrs = wa_out-bukrs AND kostl = wa_out-kostl AND recnnr = wa_out-zzht AND gjahr = wa_out-gjahr AND monat = wa_out-monat AND status = 'S'. IF sy-subrc = 0. WRITE: /10 wa_out-bukrs, wa_out-gjahr, wa_out-monat, wa_out-zzht, wa_out-kostl, '已出成本，无需重复执行！'. CLEAR wa_out. CONTINUE. ENDIF. CLEAR: v_char, l_bukrs, l_gjahr, l_monat, l_recnnr. AT END OF zzht. v_char = 'X'. l_bukrs = wa_out-bukrs. l_gjahr = wa_out-gjahr. l_monat = wa_out-monat. l_recnnr = wa_out-zzht. ENDAT. IF v_char = ''. CONTINUE. ELSE. CLEAR it_in. REFRESH it_in. LOOP AT i_out3 INTO wa_out WHERE bukrs = l_bukrs AND gjahr = l_gjahr AND monat = l_monat AND zzht = l_recnnr. MOVE-CORRESPONDING wa_out TO it_in. APPEND it_in. CLEAR: wa_out, it_in. ENDLOOP. PERFORM fb01 TABLES it_in. ENDIF. ENDLOOP. ENDFORM. "SAVE *&---------------------------------------------------------------------* *& Form FB01 *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* FORM fb01 TABLES it_in STRUCTURE i_out3. DATA: error_flag(1) TYPE c. DATA: c1(20) TYPE c. DATA: c2(20) TYPE c. DATA: c3(20) TYPE c. DATA: belnr_ou LIKE bkpf-belnr. DATA: bukrs_ou LIKE bkpf-bukrs. DATA: gjahr_ou LIKE bkpf-bukrs. DATA: documentheader LIKE bapiache09. DATA: accountgl LIKE bapiacgl09 OCCURS 0 WITH HEADER LINE. DATA: currencyamount LIKE bapiaccr09 OCCURS 0 WITH HEADER LINE. DATA: return LIKE bapiret2 OCCURS 0 WITH HEADER LINE. DATA: realestate LIKE bapiacre09 OCCURS 0 WITH HEADER LINE. DATA: l_currency LIKE bapiaccr09-currency. ****** ADD BY MENGJW 20130815 FOR 黄秀娟 BEGIN ****** DATA:lt_criteria TYPE STANDARD TABLE OF bapiackec9, ls_criteria TYPE bapiackec9. DATA:BEGIN OF gs_vicncn, objnr LIKE vicncn-objnr, END OF gs_vicncn, gt_vicncn LIKE STANDARD TABLE OF gs_vicncn. DATA:BEGIN OF gs_cobrb, paobjnr LIKE cobrb-paobjnr, gabja LIKE cobrb-gabja, gabpe LIKE cobrb-gabpe, gbisj LIKE cobrb-gbisj, gbisp LIKE cobrb-gbisp, END OF gs_cobrb, gt_cobrb LIKE STANDARD TABLE OF gs_cobrb. DATA:lv_kmvkbu LIKE ce4snjt_acct-kmvkbu. DATA:lv_paobjnr LIKE cobrb-paobjnr. ****** ADD BY MENGJW 20130815 FOR 黄秀娟 END ****** DATA:l_line TYPE i. DATA:l_budat LIKE bkpf-budat. DATA:l_total LIKE bseg-dmbtr. DATA:l_recntxt LIKE vicncn-recntxt. DATA:l_sgtxt LIKE bseg-sgtxt. l_budat = sy-datum. LOOP AT it_in. l_total = l_total + it_in-cost. ENDLOOP. READ TABLE it_in INDEX 1. l_budat+0(4) = it_in-gjahr. l_budat+4(2) = it_in-monat. CALL FUNCTION 'LAST_DAY_OF_MONTHS' EXPORTING day_in = l_budat IMPORTING last_day_of_month = l_budat EXCEPTIONS day_in_no_date = 1 OTHERS = 2. CLEAR: documentheader, accountgl, currencyamount, return, realestate, wa_cost, i_cost. REFRESH: accountgl, currencyamount, return, realestate, i_cost. ****** ADD BY MENGJW 20130815 FOR 黄秀娟 BEGIN ****** CLEAR:lt_criteria,ls_criteria,lv_paobjnr. ****** ADD BY MENGJW 20130815 FOR 黄秀娟 END ****** documentheader-bus_act = 'RFBU'. documentheader-username = sy-uname. documentheader-header_txt = '不动产转租合同自动成本'. documentheader-comp_code = it_in-bukrs. documentheader-doc_date = sy-datum. documentheader-pstng_date = l_budat. documentheader-doc_type = 'TZ'. CLEAR l_currency. SELECT SINGLE waers FROM t001 INTO l_currency WHERE bukrs = it_in-bukrs. *取行项目文本 CLEAR: l_recntxt, l_sgtxt. l_recntxt = it_in-recntxt. SEARCH l_recntxt FOR '转租合同' IN CHARACTER MODE. IF sy-subrc EQ 0 AND sy-fdpos GT 0. l_recntxt = l_recntxt(sy-fdpos). ENDIF. CONCATENATE gjahr '年' s_monat '月' l_recntxt '转租成本' INTO l_sgtxt. *借: 5405090110 其他业务成本-租赁费 l_line = l_line + 1. accountgl-itemno_acc = l_line. accountgl-gl_account = '5405090110'. accountgl-comp_code = it_in-bukrs. accountgl-alloc_nmbr = it_in-zzht. accountgl-item_text = l_sgtxt. accountgl-pstng_date = l_budat. accountgl-doc_type = 'TZ'. APPEND accountgl. * currencyamount-itemno_acc = l_line. currencyamount-currency = l_currency. currencyamount-amt_doccur = l_total. APPEND currencyamount. CLEAR accountgl.CLEAR currencyamount. * ****** MODIFY BY MENGJW 20130815 FOR 黄秀娟 BEGIN ****** **将不动产合同号写入不动产对象中 * realestate-itemno_acc = l_line. * realestate-contract_no = l_recnnr. * APPEND realestate. CLEAR realestate. SELECT objnr FROM vicncn INTO CORRESPONDING FIELDS OF TABLE gt_vicncn WHERE recnnr = it_in-zzht. IF gt_vicncn IS NOT INITIAL. SELECT paobjnr gabja gabpe gbisj gbisp FROM cobrb INTO CORRESPONDING FIELDS OF TABLE gt_cobrb FOR ALL ENTRIES IN gt_vicncn WHERE objnr = gt_vicncn-objnr. ENDIF. LOOP AT gt_cobrb INTO gs_cobrb. IF gs_cobrb-gbisj = '0000'. gs_cobrb-gbisj = '9999'. ENDIF. IF gs_cobrb-gbisp = '000'. gs_cobrb-gbisp = '012'. ENDIF. IF gs_cobrb-gabja <= p_budat+0(4) AND gs_cobrb-gabpe+1(2) <= p_budat+4(2) AND gs_cobrb-gbisj >= p_budat+0(4) AND gs_cobrb-gbisp+1(2) >= p_budat+4(2). lv_paobjnr = gs_cobrb-paobjnr. ENDIF. ENDLOOP. SELECT SINGLE kmvkbu FROM ce4snjt_acct INTO lv_kmvkbu WHERE aktbo = 'X' AND paobjnr = lv_paobjnr AND pasubnr = 1. ls_criteria-itemno_acc = l_line. ls_criteria-fieldname = 'KMVKBU'. ls_criteria-character = lv_kmvkbu. APPEND ls_criteria TO lt_criteria. CLEAR:ls_criteria. * ls_criteria-itemno_acc = l_line. * ls_criteria-fieldname = 'PAOBJNR'. * ls_criteria-character = gs_cobrb-paobjnr. * APPEND ls_criteria TO lt_criteria. * CLEAR:ls_criteria. ****** MODIFY BY MENGJW 20130815 FOR 黄秀娟 END ****** *贷: 5501280000 租赁费 – 成本中心1 LOOP AT it_in. l_line = l_line + 1. accountgl-itemno_acc = l_line. accountgl-costcenter = it_in-kostl. accountgl-gl_account = '5501280000'. accountgl-comp_code = it_in-bukrs. accountgl-alloc_nmbr = it_in-zzht. accountgl-item_text = l_sgtxt. accountgl-pstng_date = l_budat. accountgl-doc_type = 'TZ'. APPEND accountgl. * currencyamount-itemno_acc = l_line. currencyamount-currency = l_currency. currencyamount-amt_doccur = - it_in-cost. APPEND currencyamount. CLEAR accountgl.CLEAR currencyamount. ENDLOOP. * CALL FUNCTION 'BAPI_ACC_DOCUMENT_POST' EXPORTING documentheader = documentheader TABLES accountgl = accountgl currencyamount = currencyamount return = return realestate = realestate ****** ADD BY MENGJW 20130816 FOR 黄秀娟 BEGIN ****** criteria = lt_criteria ****** ADD BY MENGJW 20130816 FOR 黄秀娟 END ****** EXCEPTIONS OTHERS = 1. IF sy-subrc <> 0. CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK' IMPORTING return = return. ELSE. LOOP AT return. IF NOT return IS INITIAL. IF return-type = 'A' OR return-type = 'E'. CONCATENATE msg '~' return-message INTO msg. error_flag = 'X'. ENDIF. ENDIF. ENDLOOP. IF error_flag = 'X'. LOOP AT it_in. wa_cost-bukrs = it_in-bukrs. wa_cost-kostl = it_in-kostl. wa_cost-recnnr = it_in-zzht. wa_cost-gjahr = it_in-gjahr. wa_cost-monat = it_in-monat. wa_cost-wrbtr = it_in-cost. wa_cost-waers = l_currency. wa_cost-bukrs_ou = ''. wa_cost-belnr_ou = ''. wa_cost-gjahr_ou = ''. wa_cost-status = 'E'. wa_cost-error = msg. APPEND wa_cost TO i_cost. WRITE:/10 it_in-bukrs,it_in-monat,it_in-kostl,it_in-cost,msg+0(100). ENDLOOP. CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK' IMPORTING return = return. ELSE. LOOP AT return WHERE type = 'S'. SPLIT return-message AT space INTO c1 c2 c3. belnr_ou = c3+0(10). bukrs_ou = c3+10(4). gjahr_ou = c3+14(4). LOOP AT it_in. wa_cost-bukrs = it_in-bukrs. wa_cost-kostl = it_in-kostl. wa_cost-recnnr = it_in-zzht. wa_cost-gjahr = it_in-gjahr. wa_cost-monat = it_in-monat. wa_cost-wrbtr = it_in-cost. wa_cost-waers = l_currency. wa_cost-bukrs_ou = bukrs_ou. wa_cost-belnr_ou = belnr_ou. wa_cost-gjahr_ou = gjahr_ou. wa_cost-status = 'S'. wa_cost-error = ''. APPEND wa_cost TO i_cost. WRITE:/10 it_in-bukrs,it_in-monat,it_in-kostl,it_in-cost,belnr_ou,bukrs_ou,gjahr_ou. ENDLOOP. EXIT. ENDLOOP. CALL FUNCTION 'BAPI_TRANSACTION_COMMIT' EXPORTING wait = 'X'. *将合同号放入凭证内 * DO 100 TIMES. * CLEAR i_bkpf. REFRESH i_bkpf. * SELECT * FROM bkpf INTO CORRESPONDING FIELDS OF TABLE i_bkpf WHERE bukrs = bukrs_ou AND belnr = belnr_ou AND gjahr = gjahr_ou. * IF i_bkpf[] IS NOT INITIAL. * EXIT. * ELSE. * WAIT UP TO 1 SECONDS. * ENDIF. * ENDDO. * CLEAR: i_bseg, i_bkdf, i_bsec, i_bsed, i_bset. * REFRESH: i_bseg, i_bkdf, i_bsec, i_bsed, i_bset. * SELECT * FROM bseg INTO CORRESPONDING FIELDS OF TABLE i_bseg WHERE bukrs = bukrs_ou AND belnr = belnr_ou AND gjahr = gjahr_ou. * IF i_bseg[] IS NOT INITIAL. * LOOP AT i_bseg WHERE hkont = '5405090110'. * i_bseg-vertn = l_recnnr. * SELECT SINGLE imkey FROM vicncn INTO i_bseg-imkey WHERE recnnr = l_recnnr. * MODIFY i_bseg. CLEAR i_bseg. * ENDLOOP. * CALL FUNCTION 'CHANGE_DOCUMENT' * TABLES * t_bkdf = i_bkdf * t_bkpf = i_bkpf * t_bsec = i_bsec * t_bsed = i_bsed * t_bseg = i_bseg * t_bset = i_bset. * IF sy-subrc = 0. * CALL FUNCTION 'BAPI_TRANSACTION_COMMIT' * EXPORTING * wait = 'X'. * ELSE. * CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'. * ENDIF. * ENDIF. ENDIF. ENDIF. IF i_cost[] IS NOT INITIAL. MODIFY zre_cost01 FROM TABLE i_cost[]. IF sy-subrc = 0. COMMIT WORK AND WAIT. ELSE. ROLLBACK WORK. ENDIF. ENDIF. ENDFORM. "f-02