FUNCTION zrfc_mm018. *"---------------------------------------------------------------------- *"*"Local interface: *" IMPORTING *" VALUE(CALLNO) TYPE ZCALLNO *" VALUE(ZFIS005) LIKE ZFIS005 STRUCTURE ZFIS005 *" EXPORTING *" VALUE(BELNR) TYPE BELNR_D *" VALUE(COMP_CODE) TYPE BUKRS *" VALUE(GJAHR) TYPE GJAHR *" VALUE(FLAG) LIKE BAPIRET2-TYPE *" VALUE(MESSAGE) LIKE BAPIRET2-MESSAGE *" TABLES *" ZFIS006 STRUCTURE ZFIS006 OPTIONAL *" ZFIS007 STRUCTURE ZFIS007 OPTIONAL *"---------------------------------------------------------------------- DATA: ls_documentheader LIKE bapiache09, "凭证抬头数据 lt_accountgl LIKE TABLE OF bapiacgl09, "总账科目项目 lt_accountpayable LIKE TABLE OF bapiacap09, "供应商科目项目 lt_curren LIKE TABLE OF bapiaccr09, "金额项目 lt_extension2 LIKE TABLE OF bapiparex, "扩展字段项目 lt_return LIKE TABLE OF bapiret2, "返回消息 ls_return LIKE bapiret2, lv_obj_type LIKE bapiache09-obj_type, lv_obj_key LIKE bapiache09-obj_key, lv_obj_sys LIKE bapiache09-obj_sys, lt_zfis006 LIKE TABLE OF zfis006, lt_zfis007 LIKE TABLE OF zfis007, lv_bukrs LIKE zfis005-bukrs, "分公司 lv_waers LIKE zfis005-waers, "货币码 lv_message LIKE bapiret2-message. DATA: ls_zfis006 LIKE zfis006, ls_zfis007 LIKE zfis007, ls_accountgl LIKE bapiacgl09, ls_accountpayable LIKE bapiacap09, ls_curren LIKE bapiaccr09, ls_extension2 LIKE bapiparex, ls_zfis001 LIKE zfis001. *---预提凭证账期检查 *IF zfis005-blart = 'SA_W' OR zfis005-blart = 'SA_R'. *PERFORM frm_check_post_date USING zfis005-blart zfis005-budat CHANGING flag message. *ENDIF. *CHECK flag IS INITIAL. *---参数赋值 lt_zfis006 = zfis006[]. lt_zfis007 = zfis007[]. lv_waers = zfis005-waers. lv_bukrs = zfis005-bukrs. *---凭证抬头数据： ls_documentheader-header_txt = zfis005-bktxt. "抬头文本 ls_documentheader-comp_code = zfis005-bukrs. "公司代码 ls_documentheader-doc_date = zfis005-bldat. "凭证日期 ls_documentheader-pstng_date = zfis005-budat. "过账日期 ls_documentheader-doc_type = zfis005-blart. "凭证类型 ls_documentheader-ref_doc_no = zfis005-xblnr. "参考凭证编号 ls_documentheader-username = sy-uname. " *---凭证行项目: *----------------------------------------------------------------------------------- * 借方项目 *----------------------------------------------------------------------------------- LOOP AT lt_zfis006 INTO ls_zfis006. *---总账科目项目 ls_accountgl-itemno_acc = ls_zfis006-posnr. "行项目编号 ls_accountgl-gl_account = ls_zfis006-hkont. "总账科目 ls_accountgl-alloc_nmbr = ls_zfis006-zuonr. "分配编号 ls_accountgl-item_text = ls_zfis006-sgtxt. "文本 ls_accountgl-costcenter = ls_zfis006-kostl. "成本中心 ls_accountgl-value_date = ls_zfis006-valut. "起息日 ls_accountgl-ref_key_2 = ls_zfis006-xref2. "参考码2--预算号 ls_accountgl-ref_key_3 = ls_zfis006-xref3. "参考码3--预算号 APPEND ls_accountgl TO lt_accountgl. *---金额项目 ls_curren-itemno_acc = ls_zfis006-posnr. "项目 ls_curren-currency = lv_waers. "币种 ls_curren-amt_doccur = ls_zfis006-bapiwrbtr. "金额 APPEND ls_curren TO lt_curren. *---扩展字段项目 ls_zfis001-posnr = ls_zfis006-posnr. ls_zfis001-bschl = ls_zfis006-bschl. "借方记账码40 ls_zfis001-rstgr = ls_zfis006-rstgr. "付款原因代码 ls_zfis001-shkzg = ls_zfis006-shkzg. "借贷标识 ls_zfis001-zumsk = ls_zfis006-zumsk. "目标特别总帐标志 ls_extension2-structure = 'ZFIS001'. ls_extension2-valuepart1 = ls_zfis001. APPEND ls_extension2 TO lt_extension2. CLEAR:ls_zfis006,ls_accountgl,ls_extension2,ls_zfis001,ls_curren. ENDLOOP. *----------------------------------------------------------------------------------- * 贷方项目（员工借款借贷都在供应商行项目上） *----------------------------------------------------------------------------------- *---供应商科目项目 LOOP AT lt_zfis007 INTO ls_zfis007. CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT' EXPORTING input = ls_zfis007-lifnr IMPORTING output = ls_zfis007-lifnr. ls_accountpayable-itemno_acc = ls_zfis007-posnr. "行项目编号 ls_accountpayable-vendor_no = ls_zfis007-lifnr. "员工供应商账号 ls_accountpayable-alloc_nmbr = ls_zfis007-zuonr. "分配编号 ls_accountpayable-item_text = ls_zfis007-sgtxt. "文本 ls_accountpayable-comp_code = lv_bukrs. "公司代码 ls_accountpayable-ref_key_2 = ls_zfis007-xref2. "参考码2--预算号 ls_accountpayable-ref_key_3 = ls_zfis007-xref3. "参考码3(预付款申请凭证) ls_accountpayable-sp_gl_ind = ls_zfis007-sp_gl_ind. "特别总账标识(预付款申请凭证： F 原借款：I ) ls_accountpayable-bline_date = ls_zfis007-bline_date. "到期日计算的基限日期(员工借款) ls_accountpayable-tax_code = ls_zfis007-mwskz. "销售税代码(预付款申请凭证) APPEND ls_accountpayable TO lt_accountpayable. *---金额项目 ls_curren-itemno_acc = ls_zfis007-posnr. ls_curren-currency = lv_waers. IF zfis005-blart = 'KR'. ls_curren-amt_doccur = ls_zfis007-bapiwrbtr. AT LAST. ls_curren-amt_doccur = ls_curren-amt_doccur * -1. ENDAT. ELSE. ls_curren-amt_doccur = ls_zfis007-bapiwrbtr * -1. ENDIF. APPEND ls_curren TO lt_curren. *---扩展字段项目 ls_zfis001-posnr = ls_zfis007-posnr. "项目编号 ls_zfis001-bschl = ls_zfis007-bschl. "借方记账码 ls_zfis001-rstgr = ls_zfis007-rstgr. "付款原因代码 ls_zfis001-zumsk = ls_zfis007-zumsk. "目标特别总帐标志.(预付款申请凭证 N ) ls_zfis001-zfbdt = ls_zfis007-zfbdt. "用于到期日计算的基准日期(预付款申请凭证) ls_zfis001-wmwst = ls_zfis007-wmwst. "税额(预付款申请凭证) IF zfis005-blart = 'KA'. "(预付款申请凭证类型) ls_zfis001-bstat = 'S'. "凭证状态 S(预付款申请凭证) ls_zfis001-glvor = 'RFST'. "交易(预付款申请凭证) ENDIF. ls_extension2-structure = 'ZFIS001'. ls_extension2-valuepart1 = ls_zfis001. APPEND ls_extension2 TO lt_extension2. CLEAR:ls_zfis007,ls_accountgl,ls_extension2,ls_zfis001,ls_curren. ENDLOOP. *----------------------------------------------------------------------------------- * 调用BAPI生成凭证 *----------------------------------------------------------------------------------- CALL FUNCTION 'BAPI_ACC_DOCUMENT_POST' EXPORTING documentheader = ls_documentheader IMPORTING obj_type = lv_obj_type obj_key = lv_obj_key obj_sys = lv_obj_sys TABLES accountgl = lt_accountgl accountpayable = lt_accountpayable currencyamount = lt_curren return = gt_return extension2 = lt_extension2. READ TABLE gt_return INTO gs_return WITH KEY type = 'E'. IF sy-subrc NE 0. belnr = lv_obj_key+0(10). "会计凭证 comp_code = lv_obj_key+10(4). "公司代码 gjahr = lv_obj_key+14(4). "会计年度 flag = 'S'. CALL FUNCTION 'BAPI_TRANSACTION_COMMIT' EXPORTING wait = 'X'. ELSE. CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'. LOOP AT gt_return INTO gs_return WHERE type CA 'AEX'. MESSAGE ID gs_return-id TYPE gs_return-type NUMBER gs_return-number WITH gs_return-message_v1 gs_return-message_v2 gs_return-message_v3 gs_return-message_v4 INTO lv_message. CONCATENATE message lv_message INTO message SEPARATED BY '｜'. ENDLOOP. SHIFT message LEFT DELETING LEADING '｜'. flag = 'E'. ENDIF. *----------------------------------------------------------------------------------- * 日志记录 *----------------------------------------------------------------------------------- PERFORM frm_in_log USING callno flag message zfis005 lt_zfis006 lt_zfis007. *----------------------------------------------------------------------------------- * 凭证记录 **----------------------------------------------------------------------------------- IF flag = 'S'. PERFORM frm_insert_zmmt002 USING belnr comp_code gjahr zfis005-blart. ENDIF. *----------------------------------------------------------------------------------- * 做预提凭证的冲销 *----------------------------------------------------------------------------------- IF zfis005-blart+0(2) = 'SA' AND flag = 'S'. PERFORM frm_rev_post USING lv_obj_type lv_obj_key lv_obj_sys zfis005-budat. ENDIF. ENDFUNCTION.
FORM frm_in_log USING callno TYPE zcallno flag LIKE bapiret2-type message LIKE bapiret2-message p_zfis005 LIKE zfis005 pt_zfis006 LIKE gt_zfis006 pt_zfis007 LIKE gt_zfis007. DATA: ls_zfis006 TYPE zfis006, ls_zfis007 TYPE zfis007, lt_in_log TYPE TABLE OF zrfc_mm01in_log, ls_in_log TYPE zrfc_mm01in_log, lv_datano TYPE zdatano, bapiwrbtr(15), wmwst(15). *---抬头项目 lv_datano = lv_datano + 1. bapiwrbtr = ls_zfis006-bapiwrbtr. ls_in_log-name = 'ZRFC_MM018'. ls_in_log-cdate = sy-datum. GET TIME. ls_in_log-ctime = sy-uzeit. ls_in_log-callno = callno. ls_in_log-datano = lv_datano. ls_in_log-flag = flag. ls_in_log-log = message. CONCATENATE p_zfis005-bukrs p_zfis005-blart p_zfis005-bldat p_zfis005-budat p_zfis005-bktxt p_zfis005-waers p_zfis005-xblnr INTO ls_in_log-content SEPARATED BY '|'. CONDENSE ls_in_log-content NO-GAPS. ls_in_log-length = STRLEN( ls_in_log-content ). APPEND ls_in_log TO lt_in_log. *---总账科目项目 LOOP AT pt_zfis006 INTO ls_zfis006. lv_datano = lv_datano + 1. bapiwrbtr = ls_zfis006-bapiwrbtr. ls_in_log-name = 'ZRFC_MM018'. ls_in_log-cdate = sy-datum. GET TIME. ls_in_log-ctime = sy-uzeit. ls_in_log-callno = callno. ls_in_log-datano = lv_datano. ls_in_log-flag = flag. ls_in_log-log = message. CONCATENATE 'ZFIS006' ls_zfis006-posnr ls_zfis006-hkont ls_zfis006-kostl ls_zfis006-valut ls_zfis006-zuonr ls_zfis006-sgtxt bapiwrbtr ls_zfis006-bschl ls_zfis006-rstgr ls_zfis006-shkzg ls_zfis006-zumsk ls_zfis006-xref2 ls_zfis006-xref3 INTO ls_in_log-content SEPARATED BY '|'. SHIFT message LEFT DELETING LEADING '｜'. CONDENSE ls_in_log-content NO-GAPS. ls_in_log-length = STRLEN( ls_in_log-content ). APPEND ls_in_log TO lt_in_log. CLEAR bapiwrbtr. ENDLOOP. *----供应商项目 LOOP AT pt_zfis007 INTO ls_zfis007. lv_datano = lv_datano + 1. bapiwrbtr = ls_zfis007-bapiwrbtr. wmwst = ls_zfis007-wmwst. ls_in_log-name = 'ZRFC_MM018'. ls_in_log-cdate = sy-datum. GET TIME. ls_in_log-ctime = sy-uzeit. ls_in_log-callno = callno. ls_in_log-datano = lv_datano. ls_in_log-flag = flag. ls_in_log-log = message. CONCATENATE 'ZFIS007' ls_zfis007-posnr ls_zfis007-lifnr ls_zfis007-bline_date ls_zfis007-sp_gl_ind ls_zfis007-pmnttrms ls_zfis007-zuonr ls_zfis007-sgtxt bapiwrbtr ls_zfis007-bschl ls_zfis007-rstgr ls_zfis007-shkzg ls_zfis006-zumsk ls_zfis007-xref2 ls_zfis007-xref3 wmwst ls_zfis007-zfbdt ls_zfis007-mwskz INTO ls_in_log-content SEPARATED BY '|'. SHIFT message LEFT DELETING LEADING '｜'. CONDENSE ls_in_log-content NO-GAPS. ls_in_log-length = STRLEN( ls_in_log-content ). APPEND ls_in_log TO lt_in_log. CLEAR: bapiwrbtr,wmwst. ENDLOOP. IF lt_in_log IS NOT INITIAL. INSERT zrfc_mm01in_log FROM TABLE lt_in_log. ENDIF. ENDFORM. " FRM_IN_LOG
FORM frm_insert_zmmt002 USING p_belnr TYPE bseg-belnr p_bukrs TYPE bseg-bukrs p_gjahr TYPE bseg-gjahr p_blart TYPE zfis005-blart. DATA: lt_zmmt002 TYPE TABLE OF zmmt002, ls_zmmt002 TYPE zmmt002. *---会计凭证信息 SELECT bukrs belnr gjahr buzei zuonr sgtxt xref1 xref2 xref3 INTO CORRESPONDING FIELDS OF TABLE lt_zmmt002 FROM bseg WHERE bukrs = p_bukrs AND belnr = p_belnr AND gjahr = p_gjahr. ls_zmmt002-blart = p_blart. "凭证类型 MODIFY lt_zmmt002 FROM ls_zmmt002 TRANSPORTING blart WHERE blart IS INITIAL . INSERT zmmt002 FROM TABLE lt_zmmt002. IF sy-subrc = 0. COMMIT WORK AND WAIT. ELSE. ROLLBACK WORK. ENDIF. ENDFORM. " FRM_INSERT_ZMMT002
FORM frm_rev_post USING p_obj_type TYPE bapiache09-obj_type p_obj_key TYPE bapiache09-obj_key p_obj_sys TYPE bapiache09-obj_sys p_budat TYPE d. DATA: l_datum1 TYPE d, fis_period TYPE bapiacrev-fis_period, reason_rev TYPE bapiacrev-reason_rev VALUE '04', ls_bkpf TYPE bkpf, l_period TYPE t009b-poper, l_reversal TYPE bapiacrev, l_bus_act TYPE bapiache09-bus_act, lt_return TYPE TABLE OF bapiret2, ls_return TYPE bapiret2. DATA: l_obj_type TYPE bapiache09-obj_type, l_obj_key TYPE bapiache09-obj_key, l_obj_sys TYPE bapiache09-obj_sys, belnr TYPE bseg-belnr, comp_code TYPE bseg-bukrs, gjahr TYPE bseg-gjahr, flag LIKE bapiret2-type, message LIKE bapiret2-message, lv_message LIKE bapiret2-message. SELECT SINGLE * INTO ls_bkpf FROM bkpf WHERE awtyp = p_obj_type AND awkey = p_obj_key. *取得冲销凭证的账期 l_datum1 = p_budat. *---得到当前过账日期的下一个月日期 CALL FUNCTION 'MONTH_PLUS_DETERMINE' EXPORTING months = '1' olddate = p_budat IMPORTING newdate = l_datum1. CONCATENATE l_datum1+0(6) '01' INTO l_datum1. *---取下个月账期 CALL FUNCTION 'G_PERIOD_GET' EXPORTING company = ls_bkpf-bukrs date = l_datum1 ledger = '0L' IMPORTING period = l_period. *-----冲销凭证 l_reversal-obj_type = ls_bkpf-awtyp. l_reversal-obj_key = ls_bkpf-awkey. l_reversal-obj_key_r = ls_bkpf-awkey. l_reversal-pstng_date = l_datum1. l_reversal-fis_period = l_period. l_reversal-comp_code = ls_bkpf-bukrs. l_reversal-reason_rev = reason_rev. l_reversal-ac_doc_no = ls_bkpf-belnr. l_bus_act = ls_bkpf-glvor. CALL FUNCTION 'BAPI_ACC_DOCUMENT_REV_POST' EXPORTING reversal = l_reversal bus_act = l_bus_act IMPORTING obj_type = l_obj_type obj_key = l_obj_key obj_sys = l_obj_sys TABLES return = lt_return. READ TABLE lt_return INTO ls_return WITH KEY type = 'E'. IF sy-subrc NE 0. belnr = l_obj_key+0(10). "会计凭证 comp_code = l_obj_key+10(4). "公司代码 gjahr = l_obj_key+14(4). "会计年度 flag = 'S'. CALL FUNCTION 'BAPI_TRANSACTION_COMMIT' EXPORTING wait = 'X'. ELSE. CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'. LOOP AT lt_return INTO ls_return WHERE type CA 'AEX'. MESSAGE ID ls_return-id TYPE ls_return-type NUMBER ls_return-number WITH ls_return-message_v1 ls_return-message_v2 ls_return-message_v3 ls_return-message_v4 INTO lv_message. CONCATENATE message lv_message INTO message SEPARATED BY '｜'. ENDLOOP. SHIFT message LEFT DELETING LEADING '｜'. flag = 'E'. ENDIF. IF flag = 'S'. PERFORM frm_insert_zmmt002 USING belnr comp_code gjahr 'SA'. ENDIF. ENDFORM. " FRM_REV_POST