Notes

FORM tds_year_end .


CLEAR: i_return,i_return[], w_flowkey,w_financialtransaction,w_companycode,w_additionalflow,w_additionalflow[].

READ TABLE i_vtbfha INTO wa_vtbfha WITH KEY rfha = wa_txn-rfha.
IF sy-subrc = 0.

CASE wa_vtbfha-sfhaart.
* WHEN '100' OR '210' OR '200'.
WHEN '210' OR '200' . ""for TDS Acc changes removed sfhaart = 100 'added by omkar
w_additionalflow-flow_sign = '-'.
WHEN OTHERS. "20A "20B "20C
w_additionalflow-flow_sign = '+'.
ENDCASE.
ENDIF.

w_additionalflow-flow_type = '1931' . "'1922'.

w_additionalflow-payment_date = wa_txn-date.

CLEAR:tds_amt.

tds_amt = ( wa_txn-amt * 10 ) / 100.

"""Check interest flwo within the month
DATA : st_date TYPE dats,
end_date TYPE dats.
CALL FUNCTION 'HR_JP_MONTH_BEGIN_END_DATE'
EXPORTING
iv_date = wa_txn-date
IMPORTING
ev_month_begin_date = st_date
ev_month_end_date = end_date.
*
* SELECT company_code , deal_number , trldate , position_amt , flowtype FROM trlv_trans_pos
* WHERE company_code = @wa_vtbfha-bukrs AND deal_number = @wa_vtbfha-rfha AND booking_state <> 3
** AND trldate = @wa_txn-date
* AND trldate >= @st_date
* AND trldate <= @end_date
* AND flowtype = 'MM1208-'
* INTO TABLE @DATA(lt_flows) .
DATA: lt_flows TYPE TABLE OF trlv_trans_pos.
IF lt_flows IS INITIAL ." AND ( wa_txn-sgsart = '12A' OR wa_txn-sgsart = '12B' ). ""12A,12B.
SELECT company_code , deal_number , trldate , position_amt , flowtype FROM trlv_trans_pos
WHERE company_code = @wa_vtbfha-bukrs AND deal_number = @wa_vtbfha-rfha AND booking_state <> 3
AND trldate >= @st_date
AND trldate <= @end_date
AND flowtype IN ( 'AD1022' )
* AND flowtype IN ( 'AD1003' , 'AD1002' )
INTO CORRESPONDING FIELDS OF TABLE @lt_flows.
DATA : index TYPE i .
index = 1.
LOOP AT lt_flows INTO DATA(ls_flows) .

IF index = 1 .
tds_amt = ls_flows-position_amt * -1.
CLEAR index .
ELSE.
tds_amt = tds_amt + ls_flows-position_amt .
ENDIF.
ENDLOOP.
tds_amt = ( tds_amt * 10 ) / 100.
IF tds_amt < 0.
tds_amt = tds_amt * -1 .
ENDIF.
ENDIF.

""End

w_additionalflow-payment_amount = tds_amt.
w_additionalflow-payment_cur = 'INR'.
APPEND w_additionalflow.


CALL FUNCTION 'BAPI_FTR_ADDFLOW_CREATE'
EXPORTING
companycodein = w_companycodein
financialtransactionin = w_financialtransactionin
additionalflow = w_additionalflow
* TESTRUN = ' '
* SIDE = 0
IMPORTING
flowkey = w_flowkey
financialtransaction = w_financialtransaction
companycode = w_companycode
TABLES
return = i_return.

READ TABLE i_return INTO wa_return WITH KEY type = 'E'.
IF sy-subrc = 0.
ROLLBACK WORK.
APPEND w_financialtransactionin TO i_return1.
ELSE.
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
EXPORTING
wait = 'X'.
ENDIF.


ENDFORM.