Notes

*-------------------------------------------------------------------------*
* Program Name : ZSGTB_RLC_AMDT_RA_TOP *
* Technical consultant : Shafquat Khan *
* Functional Consultant : Prathamesh Narvarkar *
* Date of Creation : 08-JUN-2020 *
* Transport Request No : TRDK903368 *
* FS Document Number : 4000010874_ZSGTB_RLC_AMDT_RA_FS *
* TS Document Number : 4000010874_ZSGTB_RLC_AMDT_RA_TS *
* Description : Accept / Reject LC Amendment Request *
*-------------------------------------------------------------------------*
* Modified By : Shahin Anjum *
* Date of Modification : TRDK905898 *
* Change Request No : 24-Mar-2021 *
* Reason Of Modification : Declared constants *
*-------------------------------------------------------------------------*
* Modified By : Azhar Khan *
* Date of Modification : TRDK910160 *
* Change Request No : 24-Sep-2021 *
* Reason Of Modification : Declared constants *
*-------------------------------------------------------------------------*
* Modified By : Akshay Mohnot *
* Date of Modification : 21-Aug-2024 *
* Change Request No : TRDK920436 *
* Reason Of Modification : Amount column logic for JPY currency *
* corrected *
*-------------------------------------------------------------------------*
* Modified By : Priyanka Singh *
* Date of Modification : 06-Nov-2025 *
* Change Request No : GSDK934749 *
* Reason Of Modification : Amount round up logic added for JPY *
* currency *
*-------------------------------------------------------------------------*
* Modified By : Shahin Anjum *
* Date of Modification : 20-May-2026 *
* Scope ID : 4000034014 *
* Change Request No : GSDK934749 *
* Reason Of Modification : Amount conversion for JPY Currency *
*-------------------------------------------------------------------------*

REPORT zsgtrm_rlc_amdt_ra MESSAGE-ID zsgtb_msg.

TABLES: vtbfha .

CONSTANTS: cs_pstat(20) TYPE c VALUE 'P_STAT',
cs_22a TYPE vvsart VALUE '22A',
cs_22b TYPE vvsart VALUE '22B',
cs_22c TYPE vvsart VALUE '22C',
cs_22d TYPE vvsart VALUE '22D',
cs_bil TYPE vvsart VALUE 'BIL',
cs_1860 TYPE tb_sfhazba VALUE '1860',
cs_1861 TYPE tb_sfhazba VALUE '1861',
cs_1301 TYPE tb_sfhazba VALUE '1301',
cs_1302 TYPE tb_sfhazba VALUE '1302',
cs_1100 TYPE tb_sfhazba VALUE '1100',
cs_1110 TYPE tb_sfhazba VALUE '1110',
cs_500 TYPE tb_sfhaart VALUE '500',
cs_600 TYPE tb_sfhaart VALUE '600',
cs_credit_line TYPE tb_credit_line VALUE '003',
cs_usd(3) TYPE c VALUE 'USD',
cs_5r TYPE char4 VALUE '@5R@',
cs_5b TYPE char4 VALUE '@5B@',
cs_5c TYPE char4 VALUE '@5C@',
cs_5d TYPE char4 VALUE '@5D@',
"""Added on 18-Feb-2021 Scope Id - 4000012728 By Shahin
cs_1000 TYPE tb_bzbetr VALUE '1000',
cs_1000000 TYPE tb_bzbetr VALUE '1000000',
"""Added on 24-Mar-2021 Scope Id - 4000012728 By Shahin {
cs_back TYPE sy-ucomm VALUE 'BACK',
cs_query TYPE sy-ucomm VALUE 'QUERY',
cs_reject TYPE sy-ucomm VALUE 'REJECT',
cs_ref TYPE sy-ucomm VALUE 'REF',
cs_check TYPE sy-ucomm VALUE 'CHECK',
cs_enter TYPE sy-ucomm VALUE 'ENTER',
cs_exit TYPE sy-ucomm VALUE 'EXIT',
cs_cancel TYPE sy-ucomm VALUE 'CANCEL',
cs_edit TYPE sy-ucomm VALUE 'EDIT',
cs_cont1 TYPE sy-ucomm VALUE 'CONT1', """""""""""""}
"""{Added on 24-Sep-2021 by Azhar (4000015357)
cs_06 TYPE zsgtbdt_stat VALUE '06',
cs_09 TYPE zsgtbdt_stat VALUE '09',
cs_10 TYPE zsgtbdt_stat VALUE '10',
cs_11 TYPE zsgtbdt_stat VALUE '11',
cs_12 TYPE zsgtbdt_stat VALUE '12',
cs_3 VALUE '3',
"Added for JPY Currency on 20-May-2026 by Shahin Scope - 4000034014
cs_100 TYPE tb_bzbetr VALUE '100'.
"""}

DATA: go_class TYPE REF TO zsgtbcl_phase1b. "declare class

TYPES: BEGIN OF ty_data,

mark TYPE c,
icon TYPE char4,
color TYPE char4,
usd_amt TYPE tpm_amount,
status TYPE char20,
colortab TYPE lvc_t_scol,

butxt TYPE zsgtbdt_butxt,
ltx TYPE zsgtbdt_ltx,
xtext TYPE zsgtbdt_xtext,

facilitybukrs TYPE tb_bukrs,
facilitynr TYPE tb_rfha,

"Old
cre_amt_cur_o TYPE zsgtbdt_curr,
credit_amt_o TYPE zsgtbdt_cramt,
zship_date_o TYPE zsgtbdt_ship_date,
tolerance_pos_o TYPE zsgtbdt_tol,
zdelfz_o TYPE zsgtbdt_en,
usd_amt_o TYPE tpm_amount,
dblfz TYPE zsgtbdt_st,
prctr TYPE prctr,
"""Added on 18-Feb-2021 Scope Id - 4000012728 By Shahin
saktiv TYPE saktiv.
INCLUDE STRUCTURE zsgtbtr_lc_amdt.
TYPES: END OF ty_data.

DATA: gt_data TYPE TABLE OF ty_data,
gs_data TYPE ty_data.

TYPES: BEGIN OF ty_msg,
icon TYPE c LENGTH 4,
rfha TYPE tb_rfha,
message TYPE c LENGTH 100,
END OF ty_msg.

DATA: gt_msg TYPE TABLE OF ty_msg,
gs_msg TYPE ty_msg.

TYPES: BEGIN OF ty_struc,
new_amt TYPE zsgtbtr_lc_amdt-credit_amt,
new_tol TYPE zsgtbtr_lc_amdt-tolerance_pos,
old_amt TYPE zsgtbtr_lc_amdt-credit_amt,
old_tol TYPE zsgtbtr_lc_amdt-tolerance_pos,
old_ship_date TYPE zsgtbtr_lc_amdt-zship_date,
old_zdelfz TYPE zsgtbtr_lc_amdt-zdelfz,
END OF ty_struc.

DATA: gs_amdtcal TYPE ty_struc.

FIELD-SYMBOLS: <fs_data> TYPE ty_data.

DATA : color_tab TYPE STANDARD TABLE OF lvc_s_scol.

DATA: gv_name TYPE vrm_id,
gt_list TYPE vrm_values,
gs_value LIKE LINE OF gt_list.

DATA: gt_fcat TYPE TABLE OF slis_fieldcat_alv,
gs_fcat TYPE slis_fieldcat_alv,

gt_sort TYPE slis_t_sortinfo_alv,
gs_sort TYPE slis_sortinfo_alv.

DATA : gs_variant TYPE disvariant,
gs_layout TYPE lvc_s_layo.
*
"" Global Variable
DATA : gv_bp TYPE tb_kontrh,
gv_fbukrs TYPE bukrs,
gv_frfha TYPE tb_rfha.
DATA: gv_bdg_amt TYPE zsgtbdt_cramt.
"" Global Variable
DATA : gv_answer TYPE c LENGTH 10.
"
DATA : gt_fieldcat TYPE lvc_t_fcat,
gs_fieldcat TYPE lvc_s_fcat.

DATA: gv_drvamt TYPE p DECIMALS 2.
"Message
DATA : go_container TYPE REF TO cl_gui_custom_container,
go_alv TYPE REF TO cl_gui_alv_grid.
*DATA : GS_VARIANT TYPE DISVARIANT.
DATA : gs_layout1 TYPE lvc_s_layo .


"BAPI for LC & BG Data Declaration
"----LC
DATA: gs_letterofcredit TYPE bapi_ftr_change_lc,
gs_letterofcreditx TYPE bapi_ftr_change_lcx.
DATA: gt_sales_purchase_order TYPE TABLE OF bapi_ftr_lc_so_po,
gs_sales_purchase_order TYPE bapi_ftr_lc_so_po,
gt_long_text TYPE TABLE OF bapi_ftr_lc_longtext,
gs_long_text TYPE bapi_ftr_lc_longtext,
gt_nominated_bank TYPE TABLE OF bapi_ftr_lc_nomibank,
gs_nominated_bank TYPE bapi_ftr_lc_nomibank,
gt_document TYPE TABLE OF bapi_ftr_lc_document,
gs_document TYPE bapi_ftr_lc_document.

""Data Declaration For Adding Flow
DATA: gv_companycodein TYPE bapi2042-company_code,
gv_financialtransactionin TYPE bapi2042-transaction,
gs_additionalflow TYPE bapi_ftr_addflow_create,
gv_flowkey TYPE bapi_ftr_addflow_detail-flow_key.

""Data Declaration for main flow
DATA: gv_companycodemn TYPE bapi2042-company_code,
gv_financialtransactionmn TYPE bapi2042-transaction,
gs_mainflow TYPE bapi_ftr_mainflow_create,
gv_flowkeymn TYPE bapi_ftr_mainflow_detail-flow_key.




"----BG
DATA: gs_bankguarantee TYPE bapi_ftr_change_bg,
gs_bankguaranteex TYPE bapi_ftr_change_bgx.

DATA: gt_sales_purchase_order_bg TYPE TABLE OF bapi_ftr_bg_so_po,
gs_sales_purchase_order_bg TYPE bapi_ftr_bg_so_po,
gt_long_text_bg TYPE TABLE OF bapi_ftr_bg_longtext,
gs_long_text_bg TYPE bapi_ftr_bg_longtext.

"----COMMAN
DATA: gs_generalcontractdata TYPE bapi_ftr_change,
gs_generalcontractdatax TYPE bapi_ftr_changex.

DATA: gv_financialtransaction TYPE bapi2042-transaction,
gv_companycode TYPE bapi2042-company_code,
gv_testrun TYPE bapi2042-testrun,
gt_return TYPE TABLE OF bapiret2,
gs_return TYPE bapiret2.

DATA:
gv_returnfinancialtransaction TYPE bapi2042-transaction,
gv_returncompanycode TYPE bapi2042-company_code.

""F4 Help
DATA: gt_dynpread TYPE TABLE OF dynpread,
gs_dynpread TYPE dynpread,
gs_dynpread1 TYPE dynpread.
DATA: gv_dynindex LIKE sy-stepl.

"" BDC Declr

DATA : gt_bdcdata TYPE TABLE OF bdcdata,
gs_bdcdata LIKE LINE OF gt_bdcdata.

DATA : gt_messtab TYPE bdcmsgcoll OCCURS 0 WITH HEADER LINE,
gs_messtab TYPE bdcmsgcoll.

DATA: lv_amt TYPE wmto_s-amount."Added by akshay on 21.08.2024 FY:25 scope id 4000028980

DATA: gt_curr1 TYPE TABLE OF tcurx. " Added for scope id : 4000034014 on 06.11.2025 by Priyanka S // TR: GSDK934749

*""" OUTBOUND INTERFACE DEC
*DATA GV_CL_INS TYPE REF TO ZSGTBCO_ISSUING_BANK_ASYNC_OB.
""

SELECTION-SCREEN : BEGIN OF BLOCK b1 WITH FRAME TITLE TEXT-001.
SELECT-OPTIONS: s_bukrs FOR vtbfha-bukrs OBLIGATORY.
SELECT-OPTIONS: s_date FOR sy-datum OBLIGATORY.
SELECTION-SCREEN : END OF BLOCK b1.

SELECTION-SCREEN : BEGIN OF BLOCK b2 WITH FRAME TITLE TEXT-002.
SELECT-OPTIONS: s_sgsart FOR vtbfha-sgsart.
SELECT-OPTIONS: s_sfh FOR vtbfha-sfhaart.
SELECT-OPTIONS: s_rfha FOR vtbfha-rfha.
PARAMETERS: p_stat TYPE char2 AS LISTBOX VISIBLE LENGTH 20 DEFAULT '06'.
SELECTION-SCREEN END OF BLOCK b2.

SELECTION-SCREEN BEGIN OF BLOCK b3 WITH FRAME TITLE TEXT-004.
PARAMETERS: p_rad1 RADIOBUTTON GROUP g1 DEFAULT 'X',
p_rad2 RADIOBUTTON GROUP g1,
p_rad3 RADIOBUTTON GROUP g1.
SELECTION-SCREEN END OF BLOCK b3.

*SELECTION-SCREEN BEGIN OF BLOCK B4 WITH FRAME TITLE TEXT-005.
*PARAMETERS: P_TXN RADIOBUTTON GROUP G2 DEFAULT 'X',
* P_USD RADIOBUTTON GROUP G2.
*SELECTION-SCREEN END OF BLOCK B4.

SELECTION-SCREEN BEGIN OF BLOCK b5 WITH FRAME TITLE TEXT-003.
PARAMETERS p_layout TYPE slis_vari.
SELECTION-SCREEN END OF BLOCK b5.


SELECTION-SCREEN BEGIN OF BLOCK b6 WITH FRAME TITLE TEXT-006.
SELECTION-SCREEN COMMENT /1(50) TEXT-007 .
SELECTION-SCREEN SKIP.
*SELECTION-SCREEN ULINE /1(50).
SELECTION-SCREEN END OF BLOCK b6.

AT SELECTION-SCREEN OUTPUT.

REFRESH gt_list.
SELECT zstatus, zstatus_desc FROM zsgtbtr_status
INTO TABLE @DATA(gt_status)
WHERE zstatus IN ('06','09').

gv_name = cs_pstat.

LOOP AT gt_status INTO DATA(gs_status).

CLEAR gs_value.
gs_value-key = gs_status-zstatus.
gs_value-text = gs_status-zstatus_desc.
APPEND gs_value TO gt_list.

CLEAR gs_value.
ENDLOOP.

CALL FUNCTION 'VRM_SET_VALUES'
EXPORTING
id = gv_name
values = gt_list.