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
