Notes

DATA : gt_return TYPE TABLE OF bapiret2,
gw_return TYPE bapiret2,
gt_add TYPE TABLE OF bapi_ftr_addflow_detail,
gt_add1 TYPE TABLE OF bapi_ftr_addflow_detail,
gw_add TYPE bapi_ftr_addflow_detail,
gw_add1 TYPE bapi_ftr_addflow_detail,
gw_additionalflow TYPE bapi_ftr_addflow_change,
gt_additionalflow TYPE TABLE OF bapi_ftr_addflow_change,
gw_additionalflowx TYPE bapi_ftr_addflow_changex,
gv_flow TYPE bapi_ftr_addflow_detail-flow_key,
gt_condition TYPE TABLE OF bapi_ftr_cond_detail,
gw_condition TYPE bapi_ftr_cond_detail,
gv_condkey TYPE bapi_ftr_cond_detail-condition_key,
gv_port TYPE rportb,
zbukrs TYPE bukrs,
zrfha TYPE tb_rfha.

CLEAR : gw_additionalflow , zbukrs.

IF gw_final-mark = 'X'.
gw_additionalflow-payment_amount = abs( lv_amount ).
gw_additionalflow-flow_type = p_flow.
gw_additionalflow-flow_sign = gw_sign .
gw_additionalflow-payment_date = p_date.
gw_additionalflow-payment_cur = 'INR'.
APPEND gw_additionalflow TO gt_additionalflow.
"""for reversal added by Sahil
gw_additionalflow-payment_amount = abs( lv_amount ).
* gw_additionalflow-flow_type = p_flow.
CONCATENATE p_flow '_R' INTO DATA(wa).
gw_additionalflow-flow_type = wa.
IF gw_sign = '-'.
gw_rsign = '+'.
ELSE.
gw_rsign = '-'.
ENDIF.
gw_additionalflow-flow_sign = gw_rsign .
**CALL FUNCTION 'RP_CALC_DATE_IN_INTERVAL'
** EXPORTING
** date = P_DATE
** days = 1
*** months =
*** SIGNUM = '+'
*** years =
** IMPORTING
** CALC_DATE = P_RDATE.
gw_additionalflow-payment_date = p_rdate.
gw_additionalflow-payment_cur = 'INR'.
APPEND gw_additionalflow TO gt_additionalflow.

READ TABLE gt_add INTO gw_add WITH KEY payment_date = p_date flow_type = p_flow posting_status = '1'.
IF sy-subrc = 0.
* MESSAGE 'Flow already present' TYPE 'S'.
* APPEND message to gt_final_mess.
APPEND VALUE #( msgid = 'ZTRM_MSG'
msgty = 'I'
* msgv1 = |{ gw_final-zois_rfha ALPHA = OUT }|
msgno = '004' ) TO gt_final_mess.
ELSE.
* gw_final-zois_rfha = |{ gw_final-zois_rfha ALPHA = OUT }|.
LOOP AT gt_additionalflow INTO gw_additionalflow.
CALL FUNCTION 'BAPI_FTR_ADDFLOW_CREATE'
EXPORTING
companycodein = z_bukrs
financialtransactionin = gw_final-zois_rfha
additionalflow = gw_additionalflow
* TESTRUN = ' '
* SIDE = 0
IMPORTING
* flowkey =
financialtransaction = zrfha
companycode = zbukrs
TABLES
return = gt_return.

IF zrfha IS NOT INITIAL AND zbukrs IS NOT INITIAL.
* MESSAGE 'Flow updated successfully' TYPE 'S'.
APPEND VALUE #( msgid = 'ZTRM_MSG'
msgv1 = gw_final-zois_rfha
msgty = 'S'
msgno = '005'
) TO gt_final_mess.
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
EXPORTING
wait = 'X'.
WAIT UP TO 2 SECONDS.
IF ( gw_final-zois_amt IS NOT INITIAL OR gw_final-zois_amt = 0 ) OR ( gw_final-zeffective_amt IS NOT INITIAL OR gw_final-zeffective_amt = 0 ) OR ( gw_final-zineffective_amt IS NOT INITIAL OR gw_final-zineffective_amt = 0 ) .
gw_ztrm_t0074-zois_flag = 'X'.
MOVE-CORRESPONDING gw_final TO gw_ztrm_t0074.
MODIFY ztrm_t0074 FROM gw_ztrm_t0074.
IF sy-subrc = 0 .
gw_final-zedit_ois = abap_true.
IF gw_final-zeffective_amt IS NOT INITIAL.
gw_final-zedit_eff = abap_true.
ENDIF.
IF gw_final-zineffective_amt IS NOT INITIAL.
gw_final-zedit_ineff = abap_true.
ENDIF.

ENDIF.
ENDIF.


ELSE.
ROLLBACK WORK.
CALL FUNCTION 'C14ALD_BAPIRET2_SHOW'
TABLES
i_bapiret2_tab = gt_return.
ENDIF.
CLEAR : gw_return.

CLEAR : gt_return , gw_additionalflow , gw_additionalflowx , gt_add, gt_return , gv_flow , gw_sign .


ENDLOOP.
CLEAR : gt_additionalflow.
ENDIF.
ENDIF.