使用BAPI过帐供应商付款凭证(F-53)的示例代码:BAPI_ACC_DOCUMENT_POST

2020-09-10 05:01发布

点击此处---> 群内免费提供SAP练习系统(在群公告中)加入QQ群:457200227(SAP S4 HANA技术交流) 群内免费提供SAP练习系统(在群公告中)大家好, 任何人都可以向我提供...

         点击此处--->   EasySAP.com群内免费提供SAP练习系统(在群公告中)

加入QQ群:457200227(SAP S4 HANA技术交流) 群内免费提供SAP练习系统(在群公告中)


大家好,

任何人都可以向我提供示例代码,以通过BAPI过帐供应商付款的付款文档:BAPI_ACC_DOCUMENT_POST。

此外,此BAPI是否会自动清除未清项目(F.13)?

感谢与问候,

Sneh

1条回答
spaceman01
2020-09-10 05:11

HI,Sneh

尝试下面的代码。

 数据:headerinfo LIKE BAPIACHE09,
       带有标题行的示例BAPIACKEC9发生次数0,
       iteminfo像是带有标题行的BAPIACGL09占位0,
       valueinfo像带标题行的BAPIACCR09占位0,
       返回带有标题行的LIKE bapiret2占位0,
       像BAPIACEXTC这样的extension1在标题行中出现0,
       obj_type像bapiache08-obj_type,
       obj_key像bapiache02-obj_key,
       obj_sys LIKE bapiache02-obj_sys,
       docnum像bkpf-belnr。
 *填写文件标题信息
 headerinfo-bus_act ='RFBU'。
 headerinfo-用户名= sy-uname。
 headerinfo-header_txt ='测试BOC BAPI发布'。
 headerinfo-comp_code ='IN10'。
 headerinfo-doc_date ='20060127'。
 headerinfo-pstng_date = sy-datlo。
 headerinfo-doc_type ='SA'。
 *凭证项目相关信息填写行
 iteminfo-itemno_acc ='1'。
 iteminfo-gl_account ='0000500001'。
 iteminfo-pstng_date = sy-datum。
 iteminfo-item_text ='测试发布借项'。
 iteminfo-costcenter ="。
 iteminfo-quantity ='1'。
 iteminfo-base_uom ='ST'。

 APPEND iteminfo。
 清除iteminfo。

 *填写单据价值相关信息行1
 valueinfo-itemno_acc ='1'。
 valueinfo-currency_iso ='INR'。
 valueinfo-amt_doccur ='0.02-'。
 APPEND valueinfo。
 清除valueinfo。

 *在extension1表中添加税码。
 extension1-field1 ='BAPI CALL'。
 追加扩展1。

 刷新样本。
 sample-ITEMNO_ACC ='1'。
 sample-FIELDNAME ='ARTNR'。
 sample-CHARACTER ='000000000001312251'。
 追加样品。
 sample-ITEMNO_ACC ='1'。
 sample-FIELDNAME ='WERKS'。
 sample-CHARACTER ='IN91'。
 追加样品。
 sample-ITEMNO_ACC ='1'。
 sample-FIELDNAME ='KNDNR'。
 sample-CHARACTER ='0000000016'。
 追加样品。
 sample-ITEMNO_ACC ='1'。
 sample-FIELDNAME ='FKART'。
 sample-CHARACTER ='ZIN2'。
 追加样品。
 sample-ITEMNO_ACC ='1'。
 sample-FIELDNAME ='KAUFN'。
 sample-CHARACTER ='0000000633'。
 追加样品。
 sample-ITEMNO_ACC ='1'。
 sample-FIELDNAME ='KDPOS'。
 sample-CHARACTER ='000010'。
 追加样品。

 *所有表已填充-现在调用BAPI。
 通话功能'BAPI_ACC_DOCUMENT_CHECK'
   出口
     documentheader = headerinfo
   输入
     OBJ_TYPE = headerinfo-obj_type
     OBJ_KEY = headerinfo-obj_key
     OBJ_SYS =标头信息obj_sys
   桌子
     样本=样本
     accountgl = iteminfo
     currencyamount = valueinfo
     返回=返回
     EXTENSION1 = EXTENSION1。
 *
 LOOP AT返回WHERE类型='E'。
   出口。
 结局。
 *
 通话功能'BAPI_ACC_DOCUMENT_POST'
   出口
     documentheader = headerinfo
   输入
     OBJ_TYPE = headerinfo-obj_type
     OBJ_KEY = headerinfo-obj_key
     OBJ_SYS =标头信息obj_sys
   桌子
     样本=样本
     accountgl = iteminfo
     currencyamount = valueinfo
     返回=返回
     EXTENSION1 = EXTENSION1。
 LOOP AT返回WHERE类型='E'。
   出口。
 结局。
 如果sy-subrc EQ 0。
   写:/" BAPI调用失败-调试并修复!"。
 其他。
   清除回报。
   刷新返回。
   通话功能'BAPI_TRANSACTION_COMMIT'
 *出口
 *等待=
    输入
      return =返回。
   写:/'BAPI调用成功!!。
   写:/headerinfo-obj_key,"发布"。
  谢谢,

Abinath。 S

一周热门 更多>