Chinaunix首页 | 论坛 | 博客
  • 博客访问: 641266
  • 博文数量: 68
  • 博客积分: 2527
  • 博客等级: 少校
  • 技术积分: 1028
  • 用 户 组: 普通用户
  • 注册时间: 2009-09-07 08:59
文章分类

全部博文(68)

文章存档

2014年(1)

2013年(6)

2012年(18)

2011年(15)

2010年(7)

2009年(21)

我的朋友

分类: 嵌入式

2009-09-25 11:40:35

[原创]BAPI: BAPI_ACC_DOCUMENT_POST

     ——生成总账\应收\应付会计凭证的源程序

 
关于BAPI的查找: 事务代码 BAPI.
              该事务码中包括了全部BAPI.
 

**
以下是生成总账会计凭证的源码:

REPORT  zfb01_bapi.
 
*****声明变量和内表
DATA: gs_docheader  LIKE bapiache09,                           "会计凭证抬头内表
      gt_accountgl  LIKE TABLE OF bapiacgl09 WITH HEADER LINE, "一般总账行项目表
      gt_acccustar  LIKE TABLE OF bapiacar09 WITH HEADER LINE, "客户应收行项目表
      gt_accvendap  LIKE TABLE OF bapiacap09 WITH HEADER LINE, "供应商应付行项表
      gt_accounttax LIKE TABLE OF bapiactx09 WITH HEADER LINE, "税科目内表
      gt_curramount LIKE TABLE OF bapiaccr09 WITH HEADER LINE, "行项货币金额内表
      gt_extension  LIKE TABLE OF bapiacextc WITH HEADER LINE, "出口内表
      gt_return     LIKE TABLE OF bapiret2   WITH HEADER LINE. "值返回内表
DATA: gv_post_doc   LIKE bapiache09-obj_key.                   "凭证号变量
*****调用过程
PERFORM fill_header.
PERFORM fill_gl.         "一般总账(GL), 本例为凭证行项目0001行
PERFORM fill_ar.         "客户(应收AR), 本例为凭证行项目0002行
PERFORM fill_ap.         "供应商(应付AP), 本例为凭证行项目0003行
*perform fill_accounttax."税TAX科目
PERFORM fill_curramount. "行项货币和金额1~3行项

*****调用会计凭证记账前的检查
CALL FUNCTION 'BAPI_ACC_DOCUMENT_CHECK'
  EXPORTING
    documentheader          = gs_docheader
*   CUSTOMERCPD             =
*   CONTRACTHEADER          =
  TABLES
    accountgl               = gt_accountgl
    accountreceivable       = gt_acccustar
    accountpayable          = gt_accvendap
*   accounttax              =
    currencyamount          = gt_curramount
*   CRITERIA                =
*   VALUEFIELD              =
*   PAYMENTCARD             =
*   CONTRACTITEM            =
*   EXTENSION2              =
*   REALESTATE              =
    extension1              = gt_extension
    return                  = gt_return.

*****调用会计凭证的记账
READ TABLE gt_return WITH KEY type = 'E'.
IF sy-subrc <> 0.  "找不到错误
  CALL FUNCTION 'BAPI_ACC_DOCUMENT_POST'
    EXPORTING
      documentheader    = gs_docheader
*     CUSTOMERCPD       =
*     CONTRACTHEADER    =
  IMPORTING
*     OBJ_TYPE          =
      obj_key           = gv_post_doc
*     OBJ_SYS           =
  TABLES
      accountgl         = gt_accountgl
      accountreceivable = gt_acccustar
      accountpayable    = gt_accvendap
*     ACCOUNTTAX        =
*     CRITERIA          =
*     VALUEFIELD        =
*     PAYMENTCARD       =
*     CONTRACTITEM      =
*     EXTENSION2        =
*     REALESTATE        =
      currencyamount    = gt_curramount
      extension1        = gt_extension
      return            = gt_return.
  COMMIT WORK AND WAIT.
  WRITE: 'Posting Document: ', gv_post_doc.
ELSE.
  WRITE: 'Error!'.
ENDIF.
*&--------------------------------------------------------------------*
*&      Form  fill_header
*&--------------------------------------------------------------------*
FORM   fill_header .
  CLEAR gs_docheader.
  gs_docheader-comp_code  = '1100'.               "公司代码,必输
  gs_docheader-doc_date   = sy-datum.             "凭证日期,必输
  gs_docheader-pstng_date = sy-datum.             "记帐日期,必输
  gs_docheader-fis_period = sy-datum+4(2).        "凭证的会计期间, 必输
  gs_docheader-fisc_year  = sy-datum(4).          "凭证的会计年度
  gs_docheader-doc_type   = 'SA'.                 "凭证类型,必输
  gs_docheader-trans_date = sy-datum.             "凭证的换算日期
*  gS_docheader-obj_type  = 'IDOC'.
*  gS_docheader-obj_key   = '$'.
*  gS_docheader-obj_sys   = 'BGS1'.
  gs_docheader-bus_act    = 'RFBU'.               "交易业务,必输
  gs_docheader-username   = sy-uname.             "用户名,必输
  gs_docheader-header_txt = 'Header Text'.        "凭证抬头文本
  gs_docheader-ref_doc_no = 'Reference Doc No'.   "参考凭证编号
  gs_docheader-reason_rev = ''.                   "凭证的冲销原因
ENDFORM.                    " fill_header
*&--------------------------------------------------------------------*
*&      Form  fill_curramount
*&--------------------------------------------------------------------*
FORM fill_curramount .
  gt_curramount-itemno_acc   = 1.             "行项目编号0001行
* gt_curramount-curr_type    = '25'.          "货币类型和评估视图
  gt_curramount-currency     = 'CNY'.         "货币代码
  gt_curramount-amt_doccur   = '500'.         "凭证货币金额
  gt_curramount-exch_rate    = 0.             "汇率
  APPEND gt_curramount.
  gt_curramount-itemno_acc   = 2.             "行项目编号0002行
* gt_curramount-curr_type    = '25'.          "货币类型和评估视图
  gt_curramount-currency     = 'CNY'.         "货币代码
  gt_curramount-amt_doccur   = '-300'.        "凭证货币金额
  gt_curramount-exch_rate    = 0.             "汇率
  APPEND gt_curramount.
  gt_curramount-itemno_acc   = 3.             "行项目编号0003行
* gt_curramount-curr_type    = '25'.          "货币类型和评估视图
  gt_curramount-currency     = 'CNY'.         "货币代码
  gt_curramount-amt_doccur   = '-200'.        "凭证货币金额
  gt_curramount-exch_rate    = 0.             "汇率
  APPEND gt_curramount.
ENDFORM.                    " fill_curramount
*&--------------------------------------------------------------------*
*&      Form  fill_gl
*&--------------------------------------------------------------------*
FORM fill_gl .
  CLEAR gt_accountgl.
  gt_accountgl-itemno_acc  = 1.              "行项目编号0001行, 必输
  gt_accountgl-gl_account  = '0010010101'.   "总分类帐帐目, 必输
  gt_accountgl-comp_code   = '1100'.         "公司代码, 必输
  gt_accountgl-acct_type   = 'S'.            "帐户类型, 必输
  gt_accountgl-costcenter  = ''.             "成本中心
  gt_accountgl-profit_ctr  = ''.             "利润中心
  gt_accountgl-bus_area    = ''.             "业务范围
  gt_accountgl-customer    = ''.             "客户编号
  gt_accountgl-vendor_no   = ''.             "供应商编号
  gt_accountgl-alloc_nmbr  = '分配1'.        "分配
  gt_accountgl-item_text   = '行项目文本1'.  "行项目文本
  APPEND gt_accountgl.
ENDFORM.                    " fill_gl
*&---------------------------------------------------------------------*
*&      Form  fill_ar
*&---------------------------------------------------------------------*
FORM fill_ar .
  CLEAR gt_acccustar.
  gt_acccustar-itemno_acc  = 2.             "行项目编号0002行, 必输
  gt_acccustar-customer    = 'A10001'.      "客户编码,必输
  gt_acccustar-gl_account  = ''.            "统驭总帐科目,自动默认
  gt_acccustar-comp_code   = '1100'.        "公司代码,必输
  gt_acccustar-pmnttrms    = '0001'.        "付款条件代码
  gt_acccustar-bline_date  = sy-datum.      "到期日计算的基限日期
  gt_acccustar-sp_gl_ind   = ''.            "特殊总分类帐标志
  gt_acccustar-tax_code    = ''.            "销售/购买税代码
  gt_acccustar-bus_area    = ''.            "业务范围
  gt_acccustar-alloc_nmbr  = '分配2'.       "分配号
  gt_acccustar-item_text   = '行项目文本2'. "行项目文本
  APPEND gt_acccustar.
ENDFORM.                    " fill_ar
*&---------------------------------------------------------------------*
*&      Form  fill_ap
*&---------------------------------------------------------------------*
FORM fill_ap .
  CLEAR gt_accvendap.
  gt_accvendap-itemno_acc  = 3.             "行项目编号0003行, 必输
  gt_accvendap-vendor_no   = '0000020025'.  "供应商编码,必输
  gt_accvendap-gl_account  = ''.            "统驭总帐科目,自动默认
  gt_accvendap-comp_code   = '1100'.        "公司代码,必输
  gt_accvendap-pmnttrms    = '0001'.        "付款条件代码
  gt_accvendap-bline_date  = sy-datum.      "到期日计算的基限日期
  gt_accvendap-sp_gl_ind   = ''.            "特殊总分类帐标志
  gt_accvendap-tax_code    = ''.            "销售/购买税代码
  gt_accvendap-bus_area    = ''.            "业务范围
  gt_accvendap-alloc_nmbr  = '分配3'.       "分配号
  gt_accvendap-item_text   = '行项目文本3'. "行项目文本
  APPEND gt_accvendap.
ENDFORM.                    " fill_ap
*&---------------------------------------------------------------------*
*&      Form  fill_accounttax
*&---------------------------------------------------------------------*
FORM fill_accounttax .
  CLEAR gt_accounttax.
  gt_accounttax-itemno_acc = 4.
  gt_accounttax-gl_account = '0000154000'.
  gt_accounttax-tax_code   = 'V1'.
  gt_accounttax-acct_key   = 'VST'.
* GT_ACCOUNTTAX-TAXJURCODE =
* Gt_accounttax-cond_key   =
* GT_ACCOUNTTAX-TAX_RATE   =
* GT_ACCOUNTTAX-TAX_DATE   =
* GT_ACCOUNTTAX-STAT_CON   =
* GT_ACCOUNTTAX-taxjurcode_deep
* GT_ACCOUNTTAX-taxjurcode_level
  APPEND gt_accounttax.
ENDFORM.                    " fill_accounttax
 
* OVER *
关于记账码还待研究...
阅读(3167) | 评论(0) | 转发(3) |
给主人留下些什么吧!~~