ABAP-VF11冲销发票BAPI

复制代码
 1 *开票bapi参数
 2 DATA: gv_number  TYPE bapivbrksuccess-bill_doc,
 3       gt_success TYPE TABLE OF bapivbrksuccess,
 4       gs_success TYPE bapivbrksuccess,
 5       gt_return2 TYPE TABLE OF bapiret1,
 6       gs_return2 TYPE bapiret1,
 7       zmsg       TYPE char255 .
 8       
 9 REFRESH gt_return2 .
10 REFRESH gt_success .
11 
12 CALL FUNCTION 'BAPI_BILLINGDOC_CANCEL1'
13   EXPORTING
14     billingdocument = gv_number"发票号
15 *    TESTRUN         =
16 *    NO_COMMIT       =
17 *    BILLINGDATE     =
18   TABLES
19     return          = gt_return2
20     success         = gt_success.
21 
22 IF gt_success IS INITIAL.
23 
24   CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.
25   LOOP AT gt_return2 INTO gs_return2 WHERE type CA 'EA' .
26     IF zmsg IS INITIAL .
27       zmsg = gs_return2-message .
28     ELSE .
29       zmsg = gs_return2-message && '/' &&  zmsg .
30     ENDIF .
31   ENDLOOP .
32 
33 ELSE.
34 
35   CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
36     EXPORTING
37       wait = 'X'.
38 
39 ENDIF .
复制代码
posted @   TigerMan  阅读(334)  评论(0)  编辑  收藏  举报
相关博文：
· ABAP-MR8M冲销发票BAPI
· ABAP-MIRO创建发票BAPI
· ABAP:销售发票冲销BAPI及VF02过账BDC
· VF01/VF11 创建和冲销开票凭证
· ABAP:MR8M采购发票冲销BAPI
阅读排行：
· 分享4款.NET开源、免费、实用的商城系统
· 全程不用写代码，我用AI程序员写了一个飞机大战
· MongoDB 8.0这个新功能碉堡了，比商业数据库还牛
· 白话解读 Dapr 1.15：你的「微服务管家」又秀新绝活了
· 记一次.NET内存居高不下排查解决与启示
点击右上角即可分享
微信分享提示