Rangos para fechas Select-options

Caso: un post solo para tener en la bitácora este código para calcular la fecha de inicio-fin de los campos MONAT-GJAHR típicos en libros legales FI.

PERFORM armar_fecha using p_gjahr

s_monat-low

s_monat-high.

FORM armar_fecha USING p_gjahr TYPE gjahr

p_monatl TYPE monat

p_monath TYPE monat.

DATA: w_ifecha TYPE bsid-budat,

w_ffecha TYPE bsid-budat,

w_auxfch TYPE bsid-budat.

CONCATENATE p_gjahr p_monatl ’01’ INTO w_ifecha.

CONCATENATE p_gjahr p_monath ’01’ INTO w_auxfch.

CALL FUNCTION ‘LAST_DAY_OF_MONTHS’

EXPORTING

day_in = w_auxfch

IMPORTING

last_day_of_month = w_ffecha.

IF sy-subrc EQ 0.

r_fecha-low = w_ifecha.

r_fecha-high = w_ffecha.

r_fecha-option = ‘BT’.

r_fecha-sign = ‘I’.

APPEND r_fecha.

ENDIF.

ENDFORM. » ARMAR_FECHA

Anuncio publicitario