[BAPI]创建会计凭证 BAPI_ACC_DOCUMENT_POST

http://www.soujigu.com/blog_76943.html

http://blog.csdn.net/longgerr/article/details/5958210

http://scnblogs.techweb.com.cn/orangeboy/archives/149.html

http://blog.csdn.net/wren2004/article/details/5757565

http://blog.csdn.net/longgerr/article/details/5958210

sap 标准例子 SE38：ACC_BAPI_TEST_DOCUMENT

使用实例：

FUNCTION zrfc_document_post.
*"----------------------------------------------------------------------
*"*"Local interface:
*" EXPORTING
*" REFERENCE(EP_DOCNO) TYPE BELNR_D
*" TABLES
*" T_DOCUMENT STRUCTURE ZDOCUMENT
*" IT_RETURN STRUCTURE BAPIRET2
*"----------------------------------------------------------------------
DATA:wa_documentheader TYPEbapiache09, "待传凭证抬头 工作区

wa_accountgl TYPEbapiacgl09, "总帐科目项 工作区
it_accountgl TYPE STANDARD TABLE OF bapiacgl09, "总帐科目项内表
wa_accountreceivable TYPEbapiacar09, "客户项目 工作区
it_accountreceivable TYPE STANDARD TABLE OFbapiacar09, "客户项目 内表
wa_accountpayable TYPEbapiacap09, "供应商项目 工作区
it_accountpayable TYPE STANDARD TABLE OF bapiacap09, "供应商项目内表
wa_currencyamount TYPEbapiaccr09, "货币项目 工作区
it_currencyamount TYPE STANDARD TABLE OF bapiaccr09, "货币项目 内表
wa_extension2 TYPEbapiparex, "参考结构 工作区
it_extension2 TYPE STANDARD TABLE OFbapiparex, "参考结构 内表
wa_return TYPEbapiret2, "返回参数 工作区
** it_return TYPE STANDARD TABLE OFbapiret2, "返回参数 内表
wa_zbkpf_send TYPEzbkpf_send, "已导凭证 工作区
it_zbkpf_send TYPE STANDARD TABLE OF zbkpf_send. "已导凭证 内表

DATA: w_document TYPEzdocument, "凭证头 工作区
lw_documentTYPEzdocument. "临时 凭证头 工作区

DATA: cns_dr_r TYPE char2 VALUE'DR', "凭证借方标识
cns_cr_rTYPE char2 VALUE'CR', "凭证贷方标识
cns_x TYPEchar1 VALUE'X', "确认标识
cns_rfbuTYPE char4 VALUE 'RFBU', "业务事务
cns_sa TYPE char2 VALUE'SA', "总分类账凭证
cns_kr TYPE char2 VALUE'KR', "供应商发票
cns_40 TYPE char2 VALUE'40', "总账-借
cns_50 TYPE char2 VALUE'50', "总账-贷
cns_01 TYPE char2 VALUE'01', "应收-借
cns_11 TYPE char2 VALUE'11', "应收-贷
cns_21 TYPE char2 VALUE'21', "应付-借
cns_31 TYPE char2 VALUE'31'. "应付-贷
DATA: l_return_tabcount TYPE i.

CHECK t_document IS NOT INITIAL.

SORT t_document BY belnr ASCENDING.

LOOP AT t_document INTO w_document.

lw_document = w_document.
*------------------------转换表头------------------------------------
AT NEWbelnr.
wa_documentheader-bus_act =cns_rfbu. "业务事务
wa_documentheader-username =sy-uname. "系统当前用户
wa_documentheader-comp_code =lw_document-bukrs. "公司代码
wa_documentheader-doc_date =lw_document-bldat. "凭证中的凭证日期
wa_documentheader-pstng_date = lw_document-budat. "凭证中的记帐日期
wa_documentheader-fisc_year =lw_document-gjahr. "会计年度
wa_documentheader-fis_period = lw_document-monat. "会计期间
wa_documentheader-doc_type =lw_document-blart. "凭证类型
wa_documentheader-ref_doc_no = lw_document-xblnr. "参考凭证号
wa_documentheader-header_txt = lw_document-bktxt. "凭证抬头文本
ENDAT.

CASElw_document-blart.
*------------------------总账科目------------------------------------
WHEN cns_sa.
*------------------------总帐科目项----------------------------------
wa_accountgl-itemno_acc =lw_document-buzei. "会计凭证中的行项目数
wa_accountgl-gl_account =lw_document-hkont. "总分类帐帐目
wa_accountgl-comp_code =lw_document-bukrs. "公司代码
wa_accountgl-costcenter =lw_document-kostl. "成本中心
wa_accountgl-profit_ctr =lw_document-prctr. "利润中心
APPEND wa_accountgl TO it_accountgl.
CLEAR wa_accountgl.
*------------------------供应商发票OR供应商贷项凭证----------------
WHEN cns_kr OR cns_kg.
* 统驭科目
IF lw_document-mitkz = cns_x.
*------------------------供应商项目----------------------------------
wa_accountpayable-itemno_acc =lw_document-buzei. "会计凭证中的行项目数
wa_accountpayable-vendor_no =lw_document-lifnr. "供应商
APPEND wa_accountpayable TO it_accountpayable.
CLEAR wa_accountpayable.
* 非统驭科目
ELSE.
*------------------------总帐科目项----------------------------------
wa_accountgl-itemno_acc =lw_document-buzei. "会计凭证中的行项目数
wa_accountgl-gl_account =lw_document-hkont. "总分类帐帐目
wa_accountgl-comp_code =lw_document-bukrs. "公司代码
wa_accountgl-costcenter =lw_document-kostl. "成本中心
wa_accountgl-profit_ctr =lw_document-prctr. "利润中心
APPEND wa_accountgl TO it_accountgl.
CLEAR wa_accountgl.
ENDIF.
ENDCASE.

*------------------------增强字段-----------------------------------
IFlw_document-brnch IS NOT INITIAL.
wa_extension2-structure ='BRNCH'. "分支号
wa_extension2-valuepart1 =lw_document-buzei. "行项目数
wa_extension2-valuepart2 =lw_document-brnch. "分支号值

APPEND wa_extension2 TO it_extension2.
CLEAR wa_extension2.
ENDIF.

IFlw_document-umskz IS INITIAL. “特别总/分类帐指示符
CASE lw_document-blart.
WHEN cns_sa.
IF lw_document-shkzg =cns_dr_r. "借贷方记账码
wa_extension2-structure = 'BSCHL'.
wa_extension2-valuepart1 = lw_document-buzei.
wa_extension2-valuepart2 = cns_40.
ELSEIF lw_document-shkzg = cns_cr_r.
wa_extension2-structure = 'BSCHL'.
wa_extension2-valuepart1 = lw_document-buzei.
wa_extension2-valuepart2 = cns_50.
ENDIF.
ENDCASE.

APPEND wa_extension2 TO it_extension2.
CLEAR wa_extension2.
ELSE.
wa_extension2-structure ='UMSKZ'. "特别总/分类帐指示符
wa_extension2-valuepart1 =lw_document-buzei. "行项目数
wa_extension2-valuepart2 =lw_document-umskz. "特别总/分类帐值

APPEND wa_extension2 TO it_extension2.
CLEAR wa_extension2.

CASE lw_document-blart.
WHEN cns_kr OR cns_kg.
IF lw_document-shkzg = cns_dr_r.
wa_extension2-structure = 'BSCHL'.
wa_extension2-valuepart1 = lw_document-buzei.
wa_extension2-valuepart2 = cns_29.
ELSEIF lw_document-shkzg = cns_cr_r.
wa_extension2-structure = 'BSCHL'.
wa_extension2-valuepart1 = lw_document-buzei.
wa_extension2-valuepart2 = cns_39.
ENDIF.
WHEN cns_dr OR cns_dg.
IF lw_document-shkzg = cns_dr_r.
wa_extension2-structure = 'BSCHL'.
wa_extension2-valuepart1 = lw_document-buzei.
wa_extension2-valuepart2 = cns_09.
ELSEIF lw_document-shkzg = cns_cr_r.
wa_extension2-structure = 'BSCHL'.
wa_extension2-valuepart1 = lw_document-buzei.
wa_extension2-valuepart2 = cns_19.
ENDIF.
ENDCASE.

APPEND wa_extension2 TO it_extension2.
CLEAR wa_extension2.
ENDIF.

IFlw_document-sgtxt IS NOT INITIAL.
wa_extension2-structure ='SGTXT'. "项目文本
wa_extension2-valuepart1 =lw_document-buzei. "行项目数
wa_extension2-valuepart2 =lw_document-sgtxt. "项目文本值
APPEND wa_extension2 TO it_extension2.
CLEAR wa_extension2.
ENDIF.

AT END OFbelnr.

CALL FUNCTION 'BAPI_ACC_DOCUMENT_POST'
EXPORTING
documentheader =wa_documentheader "录入凭证头
TABLES
accountgl =it_accountgl "总帐科目项
accountreceivable = it_accountreceivable "客户项目
accountpayable =it_accountpayable "供应商项目
currencyamount =it_currencyamount "货币项目
extension2 =it_extension2 "扩展字段
return =it_return. "返回值

DESCRIBE TABLE it_return LINES l_return_tabcount.

IF l_return_tabcount =1. "凭证导入成功
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'.

* 记录已导入的凭证号
READ TABLE it_return INTO wa_return INDEX 1.
IF sy-subrc EQ 0.
ep_docno = wa_return-message_v2+0(10).
wa_return-type = 'S'.
wa_return-message = text-001.
APPEND wa_return TO it_return.
ELSE.
wa_return-type = 'E'.
wa_return-message = text-002.
APPEND wa_return TO it_return.
ENDIF.
ELSE. "凭证导入失败

ENDIF.
CLEAR: l_return_tabcount,
wa_zbkpf_send,
wa_documentheader,
it_accountgl,
it_accountpayable,
it_currencyamount,
it_extension2,
it_return.
ENDAT.
CLEAR:w_document,lw_document.
ENDLOOP.

ENDIF.

ENDFUNCTION.

原文：http://blog.sina.com.cn/s/blog_69f048190101aqr3.html