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 .
