FB05 清账

1. REPORT  ztest.  
2.   
3. *--------------------------------------------------------------------*  
4. *  INTERNAL TABLE DECLARATION  
5. *--------------------------------------------------------------------*  
6. DATA: it_blntab TYPE TABLE OF blntab WITH HEADER LINE,  
7.       it_ftclear TYPE TABLE OF ftclear WITH HEADER LINE,  
8.       it_ftpost TYPE TABLE OF ftpost WITH HEADER LINE,  
9.       it_fttax TYPE TABLE OF fttax WITH HEADER LINE.  
10.   
11.   
12. *--------------------------------------------------------------------*  
13. *  START-OF-SELECTION  
14. *--------------------------------------------------------------------*  
15. START-OF-SELECTION.  
16.   DEFINE populate_ftpost.  
17.     it_ftpost-stype = &1.  
18.     it_ftpost-count = &2.  
19.     it_ftpost-fnam  = &3.  
20.     it_ftpost-fval  = &4.  
21.     append it_ftpost.  
22.   END-OF-DEFINITION.  
23.   
24.   DEFINE populate_ftclear.  
25.     it_ftclear-agkoa  = 'D'.  
26.     it_ftclear-agbuk  = 'XXXX'. "company code  
27.     it_ftclear-selfd  = 'BELNR'.  
28.     it_ftclear-xnops  = 'X'.  
29.     it_ftclear-selvon = &1.  
30.     append it_ftclear.  
31.   END-OF-DEFINITION.  
32.   
33.   CALL FUNCTION 'POSTING_INTERFACE_START'  
34.     EXPORTING  
35.       i_function         = 'C'  
36.       i_keep             = 'X'  
37.       i_mode             = 'A'  
38.     EXCEPTIONS  
39.       client_incorrect   = 1  
40.       function_invalid   = 2  
41.       group_name_missing = 3  
42.       mode_invalid       = 4  
43.       update_invalid     = 5  
44.       OTHERS             = 6.  
45.   
46.   populate_ftpost: 'K' 1 'BKPF-BUKRS' 'BUKRS', "Company code  
47.                    'K' 1 'BKPF-BLART' 'DA',  
48.                    'K' 1 'BKPF-BLDAT' '16.09.2010',  
49.                    'K' 1 'BKPF-BUDAT' '16.09.2010',  
50.                    'K' 1 'BKPF-WAERS' 'RMB',  
51.                    'K' 1 'BKPF-XBLNR' 'Test',  
52.                    'P' 1 'RF05A-NEWBS' '11',  
53.                    'P' 1 'BSEG-HKONT' '0090000052',  
54.                    'P' 1 'BSEG-SGTXT' '20100916-01',  
55.                    'P' 1 'BSEG-WRBTR' '52'.  
56.   populate_ftclear '78000020772008001'. "concatenate doc number + fiscal year + line number  
57.   CALL FUNCTION 'POSTING_INTERFACE_CLEARING'  
58.     EXPORTING  
59.       i_auglv                          = 'UMBUCHNG'  
60.       i_tcode                          = 'FB05'  
61.       i_sgfunct                        = 'C'  
62.    IMPORTING  
63.       e_msgid                          = sy-msgid  
64.       e_msgno                          = sy-msgno  
65.       e_msgty                          = sy-msgty  
66.       e_msgv1                          = sy-msgv1  
67.       e_msgv2                          = sy-msgv2  
68.       e_msgv3                          = sy-msgv3  
69.       e_msgv4                          = sy-msgv4  
70. *      E_SUBRC                          = SY-SUBRC  
71.     TABLES  
72.       t_blntab                         = it_blntab  
73.       t_ftclear                        = it_ftclear  
74.       t_ftpost                         = it_ftpost  
75.       t_fttax                          = it_fttax  
76.     EXCEPTIONS  
77.       clearing_procedure_invalid       = 1  
78.       clearing_procedure_missing       = 2  
79.       table_t041a_empty                = 3  
80.       transaction_code_invalid         = 4  
81.       amount_format_error              = 5  
82.       too_many_line_items              = 6  
83.       company_code_invalid             = 7  
84.       screen_not_found                 = 8  
85.       no_authorization                 = 9  
86.       OTHERS                           = 10.  
87.   IF sy-subrc <> 0.  
88. * MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO  
89. *         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.  
90.   ENDIF.  
91.   CALL FUNCTION 'POSTING_INTERFACE_END'  
92.     EXCEPTIONS  
93.       session_not_processable = 1  
94.       OTHERS                  = 2.