CODE 4
* LOOP AT IT_SUCCESS INTO WA_SUCCESS
REFRESH it_bdcdata.
ENDAT.
ENDLOOP.
ENDFORM. ” End of Form transaction
END-OF-SELECTION.
wa_header-field1 = ‘doc_no’.
APPEND wa_header TO it_header.
CLEAR wa_header..
wa_header-field1 = ‘doc_date’.
APPEND wa_header TO it_header.
CLEAR wa_header.
wa_header-field1 = ‘doc_type’.
APPEND wa_header TO it_header.
CLEAR wa_header.
wa_header-field1 = ‘companycode’.
APPEND wa_header TO it_header.
CLEAR wa_header.
wa_header-field1 = ‘postingdate’.
APPEND wa_header TO it_header.
CLEAR wa_header.
wa_header-field1 = ‘period’.
APPEND wa_header TO it_header.
CLEAR wa_header.
wa_header-field1 = ‘currency’.
APPEND wa_header TO it_header.
CLEAR wa_header.
wa_header-field1 = ‘reference’.
APPEND wa_header TO it_header.
CLEAR wa_header.
wa_header-field1 = ‘postingkey’.
APPEND wa_header TO it_header.
CLEAR wa_header..
wa_header-field1 = ‘account’.
APPEND wa_header TO it_header.
CLEAR wa_header.
wa_header-field1 = ‘amount’.
APPEND wa_header TO it_header.
CLEAR wa_header.
wa_header-field1 = ‘taxcode’.
APPEND wa_header TO it_header.
CLEAR wa_header.
wa_header-field1 = ‘businessarea’.
APPEND wa_header TO it_header.
CLEAR wa_header.
wa_header-field1 = ‘profitcenter’.
APPEND wa_header TO it_header.
CLEAR wa_header.
wa_header-field1 = ‘valuedate’.
APPEND wa_header TO it_header.
CLEAR wa_header.
wa_header-field1 = ‘status’.
APPEND wa_header TO it_header.
CLEAR wa_header.
wa_header-field1 = ‘description’.
APPEND wa_header TO it_header.
CLEAR wa_header.
CHECK v_validate_fg <> c_x.