ABAP-MIRO创建发票BAPI

最新推荐文章于 2024-07-14 07:00:00 发布

TigerMan~

最新推荐文章于 2024-07-14 07:00:00 发布

阅读量201

点赞数

本文链接：https://blog.csdn.net/qq_42489747/article/details/133700680

版权

这段代码演示了如何使用SAP Business Application Programming Interface (BAPI) 'BAPI_INCOMINGINVOICE_CREATE' 创建一张采购订单的发票。它设置了发票头数据、项目数据和税数据，并通过循环遍历处理单据条目。最后，根据BAPI调用的结果决定是否提交事务。

摘要由CSDN通过智能技术生成

 1 *发票bapi参数
 2 DATA:gs_headerdata TYPE bapi_incinv_create_header,
 3      gt_itemdata   TYPE TABLE OF bapi_incinv_create_item,
 4      gs_itemdata   TYPE bapi_incinv_create_item,
 5      gt_taxdata    TYPE TABLE OF bapi_incinv_create_tax,
 6      gs_taxdata    TYPE bapi_incinv_create_tax,
 7      gv_number     TYPE bapi_incinv_fld-inv_doc_no,
 8      gv_year       TYPE bapi_incinv_fld-fisc_year.
 9 
10 gs_headerdata-invoice_ind = 'X' .
11 gs_headerdata-doc_type = 'RE' ."单据类型(RE表示采购订单)
12 gs_headerdata-doc_date = sy-datum .
13 gs_headerdata-ref_doc_no = gv_docno .
14 gs_headerdata-comp_code = 'RIZJ' .
15 gs_headerdata-currency = 'CNY' .
16 gs_headerdata-pstng_date = sy-datum .
17 gs_headerdata-pmnttrms = '0005' .
18 gs_headerdata-bline_date = sy-datum .
19 
20 LOOP AT gt_vbrp ASSIGNING FIELD-SYMBOL(<fs_vbrp2>) .
21 
22   CLEAR gs_itemdata .
23   CLEAR gs_taxdata .
24 
25   gv_ebelp = gv_ebelp + 10 .
26   gs_headerdata-gross_amount = gs_headerdata-gross_amount + <fs_vbrp2>-netwr .
27 
28   gs_itemdata-invoice_doc_item = gv_ebelp .
29   gs_itemdata-po_number = gv_ebeln .
30   gs_itemdata-po_item = gv_ebelp .
31   gs_itemdata-tax_code = 'J0' .
32   gs_itemdata-item_amount = <fs_vbrp2>-netwr .
33   gs_itemdata-quantity = <fs_vbrp2>-fkimg .
34   gs_itemdata-po_unit = <fs_vbrp2>-vrkme .
35   APPEND gs_itemdata TO gt_itemdata .
36 
37   gs_taxdata-tax_code = 'J0' .
38   APPEND gs_taxdata TO gt_taxdata .
39 
40 ENDLOOP .
41 
42 CALL FUNCTION 'BAPI_INCOMINGINVOICE_CREATE'
43   EXPORTING
44     headerdata       = gs_headerdata
45 *   ADDRESSDATA      =
46 *   OILDATA          =
47   IMPORTING
48     invoicedocnumber = gv_number
49     fiscalyear       = gv_year
50   TABLES
51     itemdata         = gt_itemdata
52 *   ACCOUNTINGDATA   =
53 *   GLACCOUNTDATA    =
54 *   MATERIALDATA     =
55     taxdata          = gt_taxdata
56 *   WITHTAXDATA      =
57 *   VENDORITEMSPLITDATA       =
58     return           = gt_return
59 *   EXTENSIONIN      =
60 *   TM_ITEMDATA      =
61 *   NFMETALLITMS     =
62 *   ASSETDATA        =
63   .
64 
65 IF line_exists( gt_return[ type = 'E' ] ) OR line_exists( gt_return[ type = 'A' ] ).
66 
67   CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.
68 
69 ELSE.
70 
71   CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
72     EXPORTING
73       wait = 'X'.
74 
75 ENDIF.