
1 DATA : lt_xkomfk LIKE komfk OCCURS 0 WITH HEADER LINE.
2 DATA : lt_xkomv LIKE komv OCCURS 0 WITH HEADER LINE.
3 DATA : lt_xthead LIKE theadvb OCCURS 0 WITH HEADER LINE.
4 DATA : lt_xvbpa LIKE vbpavb OCCURS 0 WITH HEADER LINE.
5 DATA : lt_xvbrk LIKE vbrkvb OCCURS 0 WITH HEADER LINE.
6 DATA : lt_xvbrp LIKE vbrpvb OCCURS 0 WITH HEADER LINE.
7 DATA : lt_xvbss LIKE vbss OCCURS 0 WITH HEADER LINE.
8 DATA : it_vbrk LIKE vbrk OCCURS 0 WITH HEADER LINE.
9 DATA : wx_vbrk LIKE vbrk OCCURS 0 WITH HEADER LINE.
10 DATA : lt_xvbrl LIKE vbrlvb OCCURS 0 WITH HEADER LINE.
11 DATA: gt_vbfs LIKE vbfs OCCURS 10 WITH HEADER LINE.
12 DATA:error TYPE string .
13
14 SELECT *
15 FROM vbrk
16 INTO CORRESPONDING FIELDS OF TABLE it_vbrk[] .
17
18 CALL FUNCTION 'SD_INVOICE_RELEASE_TO_ACCOUNT'
19 EXPORTING
20 with_posting = 'B'
21 TABLES
22 it_vbrk = it_vbrk[]
23 xkomfk = lt_xkomfk
24 xkomv = lt_xkomv
25 xthead = lt_xthead
26 xvbfs = gt_vbfs[]
27 xvbpa = lt_xvbpa
28 xvbrk = lt_xvbrk
29 xvbrp = lt_xvbrp
30 xvbrl = lt_xvbrl
31 xvbss = lt_xvbss
32 EXCEPTIONS
33 set_not_found = 1
34 OTHERS = 2.
35
36 IF line_exists( gt_vbfs[ msgty = 'E' ] ) OR line_exists( gt_vbfs[ msgty = 'W' ] ) .
37
38 CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.
39
40 LOOP AT gt_vbfs WHERE msgty = 'E' OR msgty = 'W' .
41
42 CLEAR error .
43 MESSAGE ID gt_vbfs-msgid TYPE gt_vbfs-msgty
44 NUMBER gt_vbfs-msgno
45 INTO error
46 WITH gt_vbfs-msgv1 gt_vbfs-msgv2 gt_vbfs-msgv3 gt_vbfs-msgv4 .
47
48 ENDLOOP.
49
50 ELSE .
51
52 CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
53 EXPORTING
54 wait = 'X'.
55
56 ENDIF .

【推荐】编程新体验,更懂你的AI,立即体验豆包MarsCode编程助手
【推荐】凌霞软件回馈社区,博客园 & 1Panel & Halo 联合会员上线
【推荐】抖音旗下AI助手豆包,你的智能百科全书,全免费不限次数
【推荐】博客园社区专享云产品让利特惠,阿里云新客6.5折上折
【推荐】轻量又高性能的 SSH 工具 IShell:AI 加持,快人一步
· 在鹅厂做java开发是什么体验
· 百万级群聊的设计实践
· WPF到Web的无缝过渡:英雄联盟客户端的OpenSilver迁移实战
· 永远不要相信用户的输入:从 SQL 注入攻防看输入验证的重要性
· 浏览器原生「磁吸」效果!Anchor Positioning 锚点定位神器解析