MIRO过账采购订单发票BAPI_INCOMINGINVOICE_POST

MIRO修改参考和抬头文本并过账

1. FUNCTION zpufm020.
   
2. *"----------------------------------------------------------------------
   
3. *"*"本地接口：
   
4. *"  IMPORTING
   
5. *"     VALUE(I_BELNR) TYPE  RE_BELNR
   
6. *"     VALUE(I_GJAHR) TYPE  GJAHR
   
7. *"     VALUE(I_XBLNR) TYPE  XBLNR1 OPTIONAL
   
8. *"     VALUE(I_BKTXT) TYPE  BKTXT OPTIONAL
   
9. *"  EXPORTING
   
10. *"     VALUE(E_MESSAGE) TYPE  ZOTS001
    
11. *"----------------------------------------------------------------------
    
12.   DATA:lt_return TYPE TABLE OF bapiret2 WITH HEADER LINE.
    
13.   DATA:ls_headerdata_change  TYPE bapi_incinv_chng_header.
    
14.   DATA:ls_headerdata_changex TYPE bapi_incinv_chng_headerx.
    
15.   DATA:ls_rbkp  TYPE rbkp.
    
16. 
    
17.   PERFORM frm_re_belnr_input CHANGING i_belnr.
    
18. 
    
19.   SELECT SINGLE * INTO ls_rbkp FROM rbkp WHERE belnr = i_belnr AND gjahr = i_gjahr.
    
20.   IF sy-subrc = 0.
    
21.     IF ls_rbkp-rbstat = '5'.  "5  已过账
    
22.       e_message-type    = 'S'.
    
23.       e_message-message = 'PO预制发票已经过账！'.
    
24.       EXIT.
    
25.     ENDIF.
    
26.   ELSE.
    
27.     e_message-type    = 'E'.
    
28.     e_message-message = 'PO预制发票不存在！'.
    
29.     EXIT.
    
30.   ENDIF.
    
31. 
    
32. *-->BAPI_INCOMINGINVOICE_CHANGE
    
33.   ls_headerdata_change-ref_doc_no = '00100653'.
    
34.   ls_headerdata_change-header_txt = '确认发票自动生成的过账凭证'.
    
35. 
    
36.   ls_headerdata_changex-ref_doc_no = 'X'.
    
37.   ls_headerdata_changex-header_txt = 'X'.
    
38. 
    
39.   CALL FUNCTION 'BAPI_INCOMINGINVOICE_CHANGE'
    
40.     EXPORTING
    
41.       invoicedocnumber   = i_belnr
    
42.       fiscalyear         = i_gjahr
    
43.       headerdata_change  = ls_headerdata_change
    
44.       headerdata_changex = ls_headerdata_changex
    
45.     TABLES
    
46.       return             = lt_return.
    
47. 
    
48.   LOOP AT lt_return WHERE type CA 'AEX'.
    
49.     IF e_message-message IS INITIAL.
    
50.       e_message-message   = lt_return-message.
    
51.     ELSE.
    
52.       CONCATENATE e_message-message lt_return-message INTO e_message-message SEPARATED BY '/'.
    
53.     ENDIF.
    
54.   ENDLOOP.
    
55.   IF sy-subrc = 0.
    
56.     CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.
    
57.     e_message-type   = 'E'.
    
58.     EXIT.
    
59.   ELSE.
    
60.     CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
    
61.       EXPORTING
    
62.         wait = 'X'.
    
63. *-->BAPI_INCOMINGINVOICE_POST
    
64.     CLEAR:lt_return[].
    
65.     CALL FUNCTION 'BAPI_INCOMINGINVOICE_POST'
    
66.       EXPORTING
    
67.         invoicedocnumber = i_belnr
    
68.         fiscalyear       = i_gjahr
    
69.       TABLES
    
70.         return           = lt_return.
    
71. 
    
72.     LOOP AT lt_return WHERE type CA 'AEX'.
    
73.       IF e_message-message IS INITIAL.
    
74.         e_message-message   = lt_return-message.
    
75.       ELSE.
    
76.         CONCATENATE e_message-message lt_return-message INTO e_message-message SEPARATED BY '/'.
    
77.       ENDIF.
    
78.     ENDLOOP.
    
79.     IF sy-subrc = 0.
    
80.       CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.
    
81.       e_message-type   = 'E'.
    
82.       EXIT.
    
83.     ELSE.
    
84.       CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
    
85.         EXPORTING
    
86.           wait = 'X'.
    
87.       e_message-type    = 'S'.
    
88.       e_message-message = 'PO预制发票过账成功！'.
    
89.     ENDIF.
    
90.   ENDIF.
    
91. 
    
92. ENDFUNCTION.
    
93. FORM frm_re_belnr_input CHANGING pc_belnr TYPE re_belnr.
    
94. 
    
95.   CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
    
96.     EXPORTING
    
97.       input  = pc_belnr
    
98.     IMPORTING
    
99.       output = pc_belnr.
    
100. 
     
101. ENDFORM.

复制代码