Notes

*&---------------------------------------------------------------------*
*& Form CANC
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM canc .


DATA: v_hc TYPE string,
v_sign TYPE c.

SELECT a~bukrs,
a~rfha,
a~sgsart,
a~sfhaart,
a~rcomvalcl,
a~wgschft1,
a~wgschft2,
a~dblfz,
a~delfz,
a~kontrh,
a~refer,
a~merkm,
a~rfhazul,
a~zuonr,
a~saktiv,
b~name_org1,
c~ltx,
d~com_val_cl_name,
e~dzterm,
f~xtext,
g~kkurs,
g~kkassa,
g~kswap,
g~kwliqui,
h~zfx_flow
FROM zfs_frx_t012 AS h
LEFT OUTER JOIN vtbfha AS a ON h~zbukrs = a~bukrs
AND h~zsgsart = a~sgsart
AND h~zsfhaart = a~sfhaart
INNER JOIN but000 AS b ON a~kontrh = b~partner
INNER JOIN tzpat AS c ON a~sgsart = c~gsart
INNER JOIN trgc_com_valcl_t AS d ON a~rcomvalcl = d~com_val_class
INNER JOIN vtbfhapo AS e ON a~rfha = e~rfha
AND a~bukrs = e~bukrs
AND a~rfhazul = e~rfhazu
AND h~zflow_typ = e~sfhazba
INNER JOIN at10t AS f ON a~sfhaart = f~sfhaart
AND a~sgsart = f~sgsart
INNER JOIN vtbfhazu AS g ON a~rfha = g~rfha
AND a~bukrs = g~bukrs
AND a~rfhazul = g~rfhazu
INTO TABLE @DATA(lt_vtbfha)
WHERE a~bukrs IN @s_bukrs
AND a~saktiv < 3
AND c~spras EQ 'E' AND d~spras EQ 'E' AND f~spras EQ 'E'
AND a~delfz >= @p_date.


* SELECT a~bukrs,
* a~rfha,
* a~sgsart,
* a~sfhaart,
* a~rcomvalcl,
* a~wgschft1,
* a~wgschft2,
* a~dblfz,
* a~delfz,
* a~kontrh,
* a~refer,
* a~merkm,
* a~rfhazul,
* a~saktiv,
* a~zzkostl,
* a~zzprctr,
* b~name_org1,
* c~ltx,
* d~com_val_cl_name,
* e~sfhazba,
* e~bzbetr,
* e~wzbetr,
* f~xtext,
* g~kkurs,
* g~kkassa,
* g~kswap,
* g~kwliqui,
* h~zfx_flow
*FROM zfs_frx_t012 AS h
*LEFT OUTER JOIN vtbfha AS a ON h~zbukrs = a~bukrs
* AND h~zsgsart = a~sgsart
* AND h~zsfhaart = a~sfhaart
*INNER JOIN but000 AS b ON a~kontrh = b~partner
*INNER JOIN tzpat AS c ON a~sgsart = c~gsart
*INNER JOIN trgc_com_valcl_t AS d ON a~rcomvalcl = d~com_val_class
*INNER JOIN vtbfhapo AS e ON a~rfha = e~rfha
* AND a~bukrs = e~bukrs
* AND a~rfhazul = e~rfhazu
* AND h~zflow_typ = e~sfhazba
*INNER JOIN at10t AS f ON a~sfhaart = f~sfhaart
* AND a~sgsart = f~sgsart
*INNER JOIN vtbfhazu AS g ON a~rfha = g~rfha
* AND a~bukrs = g~bukrs
* AND a~rfhazul = g~rfhazu
*INTO TABLE @DATA(lt_detail)
*FOR ALL ENTRIES IN @lt_deal
*WHERE a~rfha = @lt_deal-zrfha
*AND a~bukrs IN @s_bukrs
*AND a~delfz >= @p_date
*AND a~sfhaart IN ('102','104')
*AND a~saktiv < 3
*AND c~spras EQ 'E' AND d~spras EQ 'E' AND f~spras EQ 'E'.



SELECT bukrs,
rfha,
ssign,
bzbetr,
sfhazba
FROM vtbfhapo INTO TABLE @DATA(lt_gl)
FOR ALL ENTRIES IN @lt_vtbfha
WHERE bukrs IN @s_bukrs AND rfha = @lt_vtbfha-rfha AND sfhazba = '1031'.


DELETE lt_vtbfha WHERE sfhaart <> 103.

IF s_rfha IS NOT INITIAL.
DELETE lt_vtbfha WHERE rfha NOT IN s_rfha.
ENDIF.
* IF s_sgsart IS NOT INITIAL.
* DELETE lt_vtbfha WHERE sgsart NOT IN s_sgsart.
* ENDIF.
IF s_kontrh IS NOT INITIAL.
DELETE lt_vtbfha WHERE kontrh NOT IN s_kontrh.
ENDIF.
IF s_bref IS NOT INITIAL.
DELETE lt_vtbfha WHERE refer NOT IN s_bref.
ENDIF.

SELECT * FROM zfs_frx_t004
INTO TABLE @DATA(lt_cash)
* FOR ALL ENTRIES IN @lt_vtbfha
WHERE zbukrs IN @s_bukrs.
* AND zrfha = @lt_vtbfha-rfha.


SELECT * FROM zfs_frx_t017
INTO TABLE @DATA(lt_can_i)
FOR ALL ENTRIES IN @lt_vtbfha
WHERE zbukrs IN @s_bukrs
AND zrfha_net = @lt_vtbfha-rfha.


SELECT a~bukrs,
a~rfha,
a~dzterm,
a~sfhazba,
a~bzbetr,
a~wzbetr,
a~ssign,
h~zfx_flow
FROM zfs_frx_t012 AS h
INNER JOIN vtbfhapo AS a ON h~zbukrs = a~bukrs
AND h~zflow_typ = a~sfhazba
INTO TABLE @DATA(lt_vtbfhapo)
FOR ALL ENTRIES IN @lt_vtbfha
WHERE a~rfha = @lt_vtbfha-rfha
AND a~bukrs IN @s_bukrs.

SORT lt_vtbfha BY rfha ASCENDING.
SORT lt_vtbfhapo BY rfha ASCENDING.
DELETE ADJACENT DUPLICATES FROM lt_vtbfhapo COMPARING rfha sfhazba.

LOOP AT lt_vtbfha ASSIGNING FIELD-SYMBOL(<fs_vtbfha>).
MOVE-CORRESPONDING <fs_vtbfha> TO gw_final.
IF <fs_vtbfha>-rfhazul = '1'.
gw_final-zdeal_status = 'Unsettled'.
ELSEIF <fs_vtbfha>-rfhazul = '2'.
gw_final-zdeal_status = 'Settled'.
ENDIF.

IF gw_final-zmat_from IS INITIAL.
gw_final-zmat_from = <fs_vtbfha>-delfz.
ENDIF.


READ TABLE lt_gl ASSIGNING FIELD-SYMBOL(<fs_gl>) WITH KEY bukrs = <fs_vtbfha>-bukrs rfha = <fs_vtbfha>-rfha.

IF sy-subrc = 0.
IF <fs_gl>-ssign = '-'.
gw_final-zgainloss = <fs_gl>-bzbetr * ( -1 ).
ELSE.
gw_final-zgainloss = <fs_gl>-bzbetr.
ENDIF.
ENDIF.

READ TABLE lt_can_i ASSIGNING FIELD-SYMBOL(<fs_canc_i>) WITH KEY zbukrs = <fs_vtbfha>-bukrs
zrfha_net = <fs_vtbfha>-rfha.
IF sy-subrc = 0.

CALL FUNCTION 'ZFS_FRX_FM02'
EXPORTING
bukrs = <fs_canc_i>-zbukrs
rfha = <fs_canc_i>-zcc_cnet_rfha
IMPORTING
rate = gw_final-zcc_rate
spot = gw_final-zcc_spot
swap = gw_final-zcc_swap
liq = gw_final-zcc_liq
con_date = gw_final-zcc_con_date.

gw_final-zrfha_cancel = <fs_canc_i>-zrfha_net.
gw_final-zref_num = <fs_canc_i>-zcc_cnet_rfha.
gw_final-fin_wash = <fs_canc_i>-zgross_rate.

ENDIF.

* <fs_vtbfha>-rfha = |{ <fs_vtbfha>-rfha ALPHA = IN }|.
LOOP AT lt_vtbfhapo ASSIGNING FIELD-SYMBOL(<fs_vtbfhapo>) WHERE bukrs = <fs_vtbfha>-bukrs
AND rfha = <fs_vtbfha>-rfha.
IF <fs_vtbfhapo>-zfx_flow = 'FX_SELL' .
gw_final-zsel_amt = <fs_vtbfhapo>-bzbetr.
gw_final-zsel_cur = <fs_vtbfhapo>-wzbetr.
ELSEIF <fs_vtbfhapo>-zfx_flow = 'FX_BUY'.
gw_final-zbuy_amt = <fs_vtbfhapo>-bzbetr.
gw_final-zbuy_cur = <fs_vtbfhapo>-wzbetr.
ENDIF.

READ TABLE lt_cash ASSIGNING FIELD-SYMBOL(<fs_cash>) WITH KEY zbukrs = <fs_vtbfha>-bukrs
zrfha = <fs_vtbfha>-zuonr.
IF sy-subrc = 0.
gw_final-zbs1 = <fs_cash>-zbs1.
gw_final-zbs2 = <fs_cash>-zbs2.
ENDIF.
* IF <fs_vtbfhapo>-dzterm > p_date.
* IF <fs_vtbfhapo>-zfx_flow = 'FX_GST'.
* gw_final-zgst_amt = <fs_vtbfhapo>-bzbetr.
** ELSEIF <fs_vtbfhapo>-zfx_flow = 'FX_DIS'.
** gw_final-zdis_amt = <fs_vtbfhapo>-bzbetr.
* ELSEIF <fs_vtbfhapo>-zfx_flow = 'FX_CHAR'.
* gw_final-zfx_charg = <fs_vtbfhapo>-bzbetr.
* ELSEIF <fs_vtbfhapo>-zfx_flow = 'FX_EDC'.
* gw_final-zedc_amt = <fs_vtbfhapo>-bzbetr.
* ELSEIF <fs_vtbfhapo>-zfx_flow = 'FX_CAN'.
* IF <fs_vtbfhapo>-ssign = '-'.
* gw_final-can_amt = <fs_vtbfhapo>-bzbetr * ( -1 ) .
* ELSE.
* gw_final-can_amt = <fs_vtbfhapo>-bzbetr.
* ENDIF.
* ELSEIF <fs_vtbfhapo>-zfx_flow = 'FX_STAM'.
* gw_final-zstamp_duty = <fs_vtbfhapo>-bzbetr.
* ENDIF.
* ENDIF.
ENDLOOP.

IF gw_final-zsel_cur = 'USD'.
CONCATENATE gw_final-zsel_cur ':' gw_final-zbuy_cur INTO gw_final-zcur_pair.
ELSEIF gw_final-zbuy_cur = 'USD'.
CONCATENATE gw_final-zbuy_cur ':' gw_final-zsel_cur INTO gw_final-zcur_pair.
ENDIF.

IF gw_final-zref_num IS NOT INITIAL.
IF gw_final-zrfha_cancel IS INITIAL.
CONCATENATE gw_final-zbuy_cur ':' 'INR' INTO gw_final-rc_cur_pair.
ELSE.
CONCATENATE gw_final-zsel_cur ':' 'INR' INTO gw_final-rc_cur_pair.
ENDIF.
ENDIF.

* IF gw_final-zrfha_cancel IS NOT INITIAL.
* gw_final-xtext = 'Cancellation'.
* ENDIF.

* IF gw_final-zbuy_cur <> 'INR'.
* gw_final-eqi_usd = gw_final-zbuy_amt.
* gw_final-eqi_inr = gw_final-zsel_amt * gw_final-fin_wash.
* ELSE.
* gw_final-eqi_usd = gw_final-zsel_amt.
* gw_final-eqi_inr = gw_final-zbuy_amt.
* ENDIF.

IF gw_final-zbuy_cur = 'INR'.
gw_final-eqi_usd = gw_final-zsel_amt.
gw_final-eqi_inr = gw_final-zbuy_amt.
ELSEIF gw_final-zsel_cur = 'INR'.
gw_final-eqi_usd = gw_final-zbuy_amt.
gw_final-eqi_inr = gw_final-zsel_amt.
ELSEIF gw_final-zbuy_cur = 'USD'.
gw_final-eqi_usd = gw_final-zbuy_amt.
ELSEIF gw_final-zsel_cur = 'USD'.
gw_final-eqi_usd = gw_final-zsel_amt.
ENDIF.

APPEND gw_final TO gt_final.
CLEAR gw_final.

ENDLOOP.

"////////uncomment after checking///////////////"
* LOOP AT gt_final ASSIGNING FIELD-SYMBOL(<fs_final>).
* DELETE gt_final WHERE rfha = <fs_final>-zref_num.
* DELETE gt_final WHERE zrfha_util IS INITIAL AND sfhaart = '105'.
* DELETE gt_final WHERE zrfha_cancel IS NOT INITIAL AND sfhaart <> '103'.
* DELETE gt_final WHERE zrfha_cancel IS INITIAL AND sfhaart = '103'.
* ENDLOOP.
"///////////////////////////////////////////////"
DELETE ADJACENT DUPLICATES FROM gt_final COMPARING rfha.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form UTIL
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM util .

DATA: v_hc TYPE string,
v_sign TYPE c.
SELECT a~bukrs,
a~rfha,
a~sgsart,
a~sfhaart,
a~rcomvalcl,
a~wgschft1,
a~wgschft2,
a~dblfz,
a~delfz,
a~kontrh,
a~refer,
a~merkm,
a~rfhazul,
a~zuonr,
a~saktiv,
b~name_org1,
c~ltx,
d~com_val_cl_name,
e~dzterm,
f~xtext,
g~kkurs,
g~kkassa,
g~kswap,
g~kwliqui,
h~zfx_flow
FROM zfs_frx_t012 AS h
LEFT OUTER JOIN vtbfha AS a ON h~zbukrs = a~bukrs
AND h~zsgsart = a~sgsart
AND h~zsfhaart = a~sfhaart
INNER JOIN but000 AS b ON a~kontrh = b~partner
INNER JOIN tzpat AS c ON a~sgsart = c~gsart
INNER JOIN trgc_com_valcl_t AS d ON a~rcomvalcl = d~com_val_class
INNER JOIN vtbfhapo AS e ON a~rfha = e~rfha
AND a~bukrs = e~bukrs
AND a~rfhazul = e~rfhazu
AND h~zflow_typ = e~sfhazba
INNER JOIN at10t AS f ON a~sfhaart = f~sfhaart
AND a~sgsart = f~sgsart
INNER JOIN vtbfhazu AS g ON a~rfha = g~rfha
AND a~bukrs = g~bukrs
AND a~rfhazul = g~rfhazu
INTO TABLE @DATA(lt_vtbfha)
WHERE a~bukrs IN @s_bukrs
AND a~saktiv < 3
AND c~spras EQ 'E' AND d~spras EQ 'E' AND f~spras EQ 'E'
AND a~delfz >= @p_date.


SELECT bukrs,
rfha,
ssign,
bzbetr,
sfhazba
FROM vtbfhapo INTO TABLE @DATA(lt_gl)
FOR ALL ENTRIES IN @lt_vtbfha
WHERE bukrs IN @s_bukrs AND rfha = @lt_vtbfha-rfha AND sfhazba = '1031'.


DELETE lt_vtbfha WHERE sfhaart <> 105.

IF s_rfha IS NOT INITIAL.
DELETE lt_vtbfha WHERE rfha NOT IN s_rfha.
ENDIF.
* IF s_sgsart IS NOT INITIAL.
* DELETE lt_vtbfha WHERE sgsart NOT IN s_sgsart.
* ENDIF.
IF s_kontrh IS NOT INITIAL.
DELETE lt_vtbfha WHERE kontrh NOT IN s_kontrh.
ENDIF.
IF s_bref IS NOT INITIAL.
DELETE lt_vtbfha WHERE refer NOT IN s_bref.
ENDIF.

SELECT * FROM zfs_frx_t004
INTO TABLE @DATA(lt_cash)
* FOR ALL ENTRIES IN @lt_vtbfha
WHERE zbukrs IN @s_bukrs.
* AND zrfha = @lt_vtbfha-rfha.

SELECT * FROM zfs_frx_t008
INTO TABLE @DATA(lt_util_i)
FOR ALL ENTRIES IN @lt_vtbfha
WHERE bukrs IN @s_bukrs
AND zrfha_util = @lt_vtbfha-rfha.


SELECT a~bukrs,
a~rfha,
a~dzterm,
a~sfhazba,
a~bzbetr,
a~wzbetr,
a~ssign,
h~zfx_flow
FROM zfs_frx_t012 AS h
INNER JOIN vtbfhapo AS a ON h~zbukrs = a~bukrs
AND h~zflow_typ = a~sfhazba
INTO TABLE @DATA(lt_vtbfhapo)
FOR ALL ENTRIES IN @lt_vtbfha
WHERE a~rfha = @lt_vtbfha-rfha
AND a~bukrs IN @s_bukrs.

SORT lt_vtbfha BY rfha ASCENDING.
SORT lt_vtbfhapo BY rfha ASCENDING.
DELETE ADJACENT DUPLICATES FROM lt_vtbfhapo COMPARING rfha sfhazba.

LOOP AT lt_vtbfha ASSIGNING FIELD-SYMBOL(<fs_vtbfha>).
MOVE-CORRESPONDING <fs_vtbfha> TO gw_final.
IF <fs_vtbfha>-rfhazul = '1'.
gw_final-zdeal_status = 'Unsettled'.
ELSEIF <fs_vtbfha>-rfhazul = '2'.
gw_final-zdeal_status = 'Settled'.
ENDIF.

READ TABLE lt_gl ASSIGNING FIELD-SYMBOL(<fs_gl>) WITH KEY bukrs = <fs_vtbfha>-bukrs rfha = <fs_vtbfha>-rfha.

IF sy-subrc = 0.
IF <fs_gl>-ssign = '-'.
gw_final-zgainloss = <fs_gl>-bzbetr * ( -1 ).
ELSE.
gw_final-zgainloss = <fs_gl>-bzbetr.
ENDIF.
* gw_final-zgainloss = <fs_gl>-ssign.
* gw_final-zhedcost = <fs_gl>-bzbetr.
* v_hc = gw_final-zhedcost.
* v_sign = gw_final-zgainloss.
* CONCATENATE v_sign v_hc INTO gw_final-zgainloss.
* CLEAR: gw_final-zhedcost.
ENDIF.



IF gw_final-zmat_from IS INITIAL.
gw_final-zmat_from = <fs_vtbfha>-delfz.
ENDIF.

READ TABLE lt_util_i ASSIGNING FIELD-SYMBOL(<fs_util_i>) WITH KEY bukrs = <fs_vtbfha>-bukrs
zrfha_util = <fs_vtbfha>-zuonr.
IF sy-subrc = 0.

CALL FUNCTION 'ZFS_FRX_FM02'
EXPORTING
bukrs = <fs_util_i>-bukrs
rfha = <fs_util_i>-zcc_util_rfha
IMPORTING
rate = gw_final-zcc_rate
spot = gw_final-zcc_spot
swap = gw_final-zcc_swap
liq = gw_final-zcc_liq
con_date = gw_final-zcc_con_date.

gw_final-zref_num = <fs_util_i>-zcc_util_rfha.
* gw_final-zfx_charg = <fs_util_i>-zcharg_amt.
gw_final-zrfha_util = <fs_util_i>-zrfha_util.
gw_final-fin_wash = <fs_util_i>-zfin_grs_rate.


ENDIF.

LOOP AT lt_vtbfhapo ASSIGNING FIELD-SYMBOL(<fs_vtbfhapo>) WHERE bukrs = <fs_vtbfha>-bukrs
AND rfha = <fs_vtbfha>-rfha.
IF <fs_vtbfhapo>-zfx_flow = 'FX_SELL' .
gw_final-zsel_amt = <fs_vtbfhapo>-bzbetr.
gw_final-zsel_cur = <fs_vtbfhapo>-wzbetr.
ELSEIF <fs_vtbfhapo>-zfx_flow = 'FX_BUY'.
gw_final-zbuy_amt = <fs_vtbfhapo>-bzbetr.
gw_final-zbuy_cur = <fs_vtbfhapo>-wzbetr.
ENDIF.

READ TABLE lt_cash ASSIGNING FIELD-SYMBOL(<fs_cash>) WITH KEY zbukrs = <fs_vtbfha>-bukrs
zrfha = <fs_vtbfha>-zuonr.
IF sy-subrc = 0.
gw_final-zbs1 = <fs_cash>-zbs1.
gw_final-zbs2 = <fs_cash>-zbs2.
ENDIF.

* IF <fs_vtbfhapo>-dzterm > p_date.
* IF <fs_vtbfhapo>-zfx_flow = 'FX_GST'.
* gw_final-zgst_amt = <fs_vtbfhapo>-bzbetr.
** ELSEIF <fs_vtbfhapo>-zfx_flow = 'FX_DIS'.
** gw_final-zdis_amt = <fs_vtbfhapo>-bzbetr.
* ELSEIF <fs_vtbfhapo>-zfx_flow = 'FX_CHAR'.
* gw_final-zfx_charg = <fs_vtbfhapo>-bzbetr.
* ELSEIF <fs_vtbfhapo>-zfx_flow = 'FX_EDC'.
* gw_final-zedc_amt = <fs_vtbfhapo>-bzbetr.
* ELSEIF <fs_vtbfhapo>-zfx_flow = 'FX_CAN'.
* IF <fs_vtbfhapo>-ssign = '-'.
* gw_final-can_amt = <fs_vtbfhapo>-bzbetr * ( -1 ) .
* ELSE.
* gw_final-can_amt = <fs_vtbfhapo>-bzbetr.
* ENDIF.
* ELSEIF <fs_vtbfhapo>-zfx_flow = 'FX_STAM'.
* gw_final-zstamp_duty = <fs_vtbfhapo>-bzbetr.
* ENDIF.
* ENDIF.
ENDLOOP.

IF gw_final-zrfha_cancel IS INITIAL.
CONCATENATE gw_final-zbuy_cur ':' gw_final-zsel_cur INTO gw_final-zcur_pair.
ELSE.
CONCATENATE gw_final-zsel_cur ':' gw_final-zbuy_cur INTO gw_final-zcur_pair.
ENDIF.

IF gw_final-zref_num IS NOT INITIAL.
IF gw_final-zrfha_cancel IS INITIAL.
CONCATENATE gw_final-zbuy_cur ':' 'INR' INTO gw_final-rc_cur_pair.
ELSE.
CONCATENATE gw_final-zsel_cur ':' 'INR' INTO gw_final-rc_cur_pair.
ENDIF.
ENDIF.

* IF gw_final-zbuy_cur <> 'INR'.
* gw_final-eqi_usd = gw_final-zbuy_amt.
* gw_final-eqi_inr = gw_final-zsel_amt * gw_final-fin_wash.
* ELSE.
* gw_final-eqi_usd = gw_final-zsel_amt.
* gw_final-eqi_inr = gw_final-zbuy_amt.
* ENDIF.

IF gw_final-zbuy_cur = 'INR'.
gw_final-eqi_usd = gw_final-zsel_amt.
gw_final-eqi_inr = gw_final-zbuy_amt.
ELSEIF gw_final-zsel_cur = 'INR'.
gw_final-eqi_usd = gw_final-zbuy_amt.
gw_final-eqi_inr = gw_final-zsel_amt.
ELSEIF gw_final-zbuy_cur = 'USD'.
gw_final-eqi_usd = gw_final-zbuy_amt.
ELSEIF gw_final-zsel_cur = 'USD'.
gw_final-eqi_usd = gw_final-zsel_amt.
ENDIF.


APPEND gw_final TO gt_final.
CLEAR gw_final.

ENDLOOP.

"////////uncomment after checking///////////////"
* LOOP AT gt_final ASSIGNING FIELD-SYMBOL(<fs_final>).
* DELETE gt_final WHERE rfha = <fs_final>-zref_num.
* DELETE gt_final WHERE zrfha_util IS INITIAL AND sfhaart = '105'.
* DELETE gt_final WHERE zrfha_cancel IS NOT INITIAL AND sfhaart <> '103'.
* DELETE gt_final WHERE zrfha_cancel IS INITIAL AND sfhaart = '103'.
* ENDLOOP.
"///////////////////////////////////////////////"
DELETE ADJACENT DUPLICATES FROM gt_final COMPARING rfha.
ENDFORM.