- SAP Managed Tags
Hello,
i am trying to post INTERFACE_POSTING_CLEARING , but getting an error - more than two accounts were transferred
*** Global Declaration
DATA: wa_error TYPE zsbtr_checkuploaderror.
""Variable declaration
DATA: l_auglv TYPE t041a-auglv VALUE 'EINGZAHL', "Posting with Clearing
l_tcode TYPE sy-tcode VALUE 'FB05',
l_sgfunct TYPE rfipi-sgfunct VALUE 'C'.
CONSTANTS : co_check TYPE string VALUE 'Duplicate Check Found',
co_ermsgtype TYPE string VALUE 'E'.
" internal table and work area declaration
DATA: lt_blntab TYPE STANDARD TABLE OF blntab WITH HEADER LINE,
lt_ftclear TYPE STANDARD TABLE OF ftclear WITH HEADER LINE,
lt_fttax TYPE STANDARD TABLE OF fttax WITH HEADER LINE,
lt_ftpost TYPE STANDARD TABLE OF ftpost,
wa_ftpost LIKE LINE OF lt_ftpost,
ls_return LIKE bapiret2,
lv_bapitype TYPE bapireturn-type,
lv_classid TYPE sy-msgid,
lv_msgnumber TYPE sy-msgno,
lv_belnr TYPE belnr_d,
wa_post LIKE LINE OF zt_post.
LOOP AT zt_post INTO wa_post.
lv_belnr = wa_post-belnr.
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
EXPORTING
input = lv_belnr
IMPORTING
output = lv_belnr.
SELECT belnr FROM bsid INTO TABLE @DATA(it_bsid)
WHERE belnr = @lv_belnr.
IF sy-subrc NE 0 .
wa_error-zmsgid = ls_return-id.
wa_error-zmsgtype = co_ermsgtype.
wa_error-zmsg = co_check.
APPEND wa_error TO it_error.
CLEAR wa_error.
ELSE.
"Header and line item
wa_ftpost-stype = 'K'."Header
wa_ftpost-count = wa_post-zcount. "number of Dynpro
wa_ftpost-fnam = 'BKPF-BLDAT'. "Document Date
wa_ftpost-fval = wa_post-bldat.
CALL FUNCTION 'CONVERSION_EXIT_PDATE_OUTPUT'
EXPORTING
input = wa_ftpost-fval
IMPORTING
output = wa_ftpost-fval.
APPEND wa_ftpost TO lt_ftpost.
wa_ftpost-stype = 'K'."Header
wa_ftpost-count = wa_post-zcount.
wa_ftpost-fnam = 'BKPF-BUDAT'. "Posting Date
wa_ftpost-fval = wa_post-budat.
CALL FUNCTION 'CONVERSION_EXIT_PDATE_OUTPUT'
EXPORTING
input = wa_ftpost-fval
IMPORTING
output = wa_ftpost-fval.
APPEND wa_ftpost TO lt_ftpost.
wa_ftpost-stype = 'K'."Header
wa_ftpost-count = wa_post-zcount.
wa_ftpost-fnam = 'BKPF-BUKRS'. "Company Code
wa_ftpost-fval = wa_post-bukrs.
APPEND wa_ftpost TO lt_ftpost.
wa_ftpost-stype = 'K'."Header
wa_ftpost-count = wa_post-zcount.
wa_ftpost-fnam = 'BKPF-BLART'. "Document Type
wa_ftpost-fval = wa_post-blart.
APPEND wa_ftpost TO lt_ftpost.
wa_ftpost-stype = 'K'."Header
wa_ftpost-count = wa_post-zcount.
wa_ftpost-fnam ='BKPF-WAERS'. "Currency
wa_ftpost-fval = wa_post-waers.
APPEND wa_ftpost TO lt_ftpost.
wa_ftpost-stype = 'K'."Header
wa_ftpost-count = wa_post-zcount.
wa_ftpost-fnam ='BKPF-monat'. "Currency
wa_ftpost-fval = wa_post-monat.
APPEND wa_ftpost TO lt_ftpost.
wa_ftpost-stype = 'K'."Header
wa_ftpost-count = wa_post-zcount.
wa_ftpost-fnam ='RF05A-AUGTX'. " document text
wa_ftpost-fval = wa_post-augtx.
APPEND wa_ftpost TO lt_ftpost.
wa_ftpost-stype = 'K'."Line Item
wa_ftpost-count = wa_post-zcount.
wa_ftpost-fnam ='RF05A-NEWBS'. "BSEG-BSCHL Posting Key
wa_ftpost-fval = wa_post-newbs.
APPEND wa_ftpost TO lt_ftpost.
wa_ftpost-stype = 'K'."Line Item
wa_ftpost-count = wa_post-zcount.
wa_ftpost-fnam ='BSEG-WRBTR'.
wa_ftpost-fval = wa_post-wrbtr.
DATA : dummy_amt TYPE p DECIMALS 2,
gv_gross_total TYPE char20.
dummy_amt = wa_ftpost-fval.
WRITE dummy_amt TO gv_gross_total.
wa_ftpost-fval = gv_gross_total.
CONDENSE wa_ftpost-fval.
APPEND wa_ftpost TO lt_ftpost.
wa_ftpost-stype = 'K'."Line Item
wa_ftpost-count = wa_post-zcount.
wa_ftpost-fnam ='RF05A-AUGTX'.
wa_ftpost-fval = wa_post-augtx.
APPEND wa_ftpost TO lt_ftpost.
wa_ftpost-stype = 'P'."Line Item
wa_ftpost-count = wa_post-zcount.
wa_ftpost-fnam ='BSEG-HKONT'. "Account Number
wa_ftpost-fval = wa_post-hkont.
APPEND wa_ftpost TO lt_ftpost.
wa_ftpost-stype = 'P'."Line Item
wa_ftpost-count = 1.
wa_ftpost-fnam ='RF05A-NEWKO'.
wa_ftpost-fval = wa_post-newko.
APPEND wa_ftpost TO lt_ftpost.
wa_ftpost-stype = 'P'."Line Item
wa_ftpost-count = 1.
wa_ftpost-fnam ='BSEG-SGTXT'.
wa_ftpost-fval = wa_post-sgtxt.
APPEND wa_ftpost TO lt_ftpost.
wa_ftpost-stype = 'P'."Line item
wa_ftpost-count = 1.
wa_ftpost-fnam = 'BSEG-VALUT'. "Posting Date
wa_ftpost-fval = wa_post-valut.
CALL FUNCTION 'CONVERSION_EXIT_PDATE_OUTPUT'
EXPORTING
input = wa_ftpost-fval
IMPORTING
output = wa_ftpost-fval.
APPEND wa_ftpost TO lt_ftpost.
lt_ftclear-agkon = wa_post-kunnr.
lt_ftclear-agkoa = 'D'. "Account Type
lt_ftclear-xnops = 'X'. "Indicator: Select only open items which are not special G/L?
lt_ftclear-xfifo = 'X'.
lt_ftclear-agbuk = wa_post-bukrs. "Company Code
lt_ftclear-selfd = 'BELNR'."Selection Field
lt_ftclear-selvon = wa_post-belnr.
lt_ftclear-selbis = wa_post-belnr. "added by me
APPEND lt_ftclear.
ENDIF.
ENDLOOP.
IF it_error IS INITIAL.
CALL FUNCTION 'POSTING_INTERFACE_START'
EXPORTING
i_function = 'C'
i_mode = 'N'
i_update = 'S' "ADDED BY ME
EXCEPTIONS
client_incorrect = 1
function_invalid = 2
group_name_missing = 3
mode_invalid = 4
update_invalid = 5
user_invalid = 6
OTHERS = 7.
IF sy-subrc <> 0.
* Implement suitable error handling here
WRITE: 'Error in start'.
ENDIF.
CALL FUNCTION 'POSTING_INTERFACE_CLEARING'
EXPORTING
i_auglv = l_auglv
i_tcode = l_tcode
i_sgfunct = l_sgfunct
IMPORTING
e_msgid = lv_msgid
e_msgno = lv_errormsg
e_msgty = lv_type
e_msgv1 = lv_errorrrr
e_msgv2 = lv_msfrw
* E_MSGV3 =
* E_MSGV4 =
* E_SUBRC =
TABLES
t_blntab = lt_blntab
t_ftclear = lt_ftclear
t_ftpost = lt_ftpost
t_fttax = lt_fttax
EXCEPTIONS
clearing_procedure_invalid = 1
clearing_procedure_missing = 2
table_t041a_empty = 3
transaction_code_invalid = 4
amount_format_error = 5
too_many_line_items = 6
company_code_invalid = 7
screen_not_found = 8
no_authorization = 9
OTHERS = 10.
IF sy-subrc = 0.
* implement suitable error handling here
lv_bapitype = lv_type.
lv_classid = lv_msgid.
lv_msgnumber = lv_errormsg.
CALL FUNCTION 'BALW_BAPIRETURN_GET2'
EXPORTING
type = lv_bapitype
cl = lv_classid
number = lv_msgnumber
IMPORTING
return = ls_return.
wa_error-zmsgid = ls_return-id.
wa_error-zmsgtype = ls_return-type.
wa_error-zmsg = ls_return-message.
APPEND wa_error TO it_error.
ENDIF.
IF NOT lt_blntab IS INITIAL .
READ TABLE lt_blntab ASSIGNING FIELD-SYMBOL(<fs_blntab>) INDEX 1.
IF sy-subrc EQ 0.
lv_docno = <fs_blntab>-belnr.
ENDIF.
ENDIF.
CALL FUNCTION 'POSTING_INTERFACE_END'
EXPORTING
i_bdcimmed = 'X'
* I_BDCSTRTDT = NO_DATE
* I_BDCSTRTTM = NO_TIME
EXCEPTIONS
session_not_processable = 1
OTHERS = 2.
IF sy-subrc <> 0.
* Implement suitable error handling here
ENDIF.
ENDIF.
ENDFUNCTION.
Bluesky