DATA : lv_mganr LIKE bgmkobj-mganr,
lv_gwldt LIKE bgmkobj-gwldt.
DATA : lv_month LIKE t5a4a-dlymo,
lv_calc_date LIKE p0001-begda.
CLEAR : gs_main-mganr, gs_main-gwldt.
SELECT SINGLE mganr gwldt
INTO (gs_main-mganr, gs_main-gwldt)
FROM bgmkobj
WHERE j_objnr EQ p_objnr
AND gaart EQ '1'.
DATA: BEGIN OF ivbgmk OCCURS 10.
INCLUDE STRUCTURE gbgmk.
DATA: END OF ivbgmk.
DATA: BEGIN OF ivbgmp OCCURS 10.
INCLUDE STRUCTURE gbgmp.
DATA: END OF ivbgmp.
DATA: BEGIN OF ivbgmz OCCURS 10.
INCLUDE STRUCTURE gbgmz.
DATA: END OF ivbgmz.
DATA : ls_gbgmz LIKE gbgmz.
DATA : ls_gazwe LIKE rbgm00-gazwe.
CHECK NOT gs_main-mganr IS INITIAL.
CALL FUNCTION 'READ_MASTERWARRANTY'
EXPORTING
mganr = gs_main-mganr
i_delete = 'X'
i_delhd = 'X'
TABLES
ivbgmk = ivbgmk
ivbgmp = ivbgmp
ivbgmz = ivbgmz
EXCEPTIONS
invalid_number = 01.
READ TABLE ivbgmz WITH KEY msehi = 'MON' INTO ls_gbgmz.
CALL FUNCTION 'FLTP_CHAR_CONVERSION_FROM_SI'
EXPORTING
char_unit = ls_gbgmz-msehi "--STD
decimals = ls_gbgmz-anzdz
exponent = ls_gbgmz-atdim
fltp_value_si = ls_gbgmz-gazwt
indicator_value = ls_gbgmz-gazwti
masc_symbol = '_'
IMPORTING
char_value = ls_gazwe.
lv_month = ls_gazwe.
CALL FUNCTION 'RP_CALC_DATE_IN_INTERVAL'
EXPORTING
date = gs_main-gwldt " ----> 기준일
days = '00' " ----> 더할 일수
months = lv_month
signum = '+'
years = '00'
IMPORTING
calc_date = lv_calc_date.
IF lv_calc_date < sy-datum.
gs_main-warat = 'OUT'.
ELSE.
gs_main-warat = 'IN'.
ENDIF.
gv_postx = ivbgmp-postx.