Inicio > ABAP/4 > Rangos para fechas Select-options

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

Anuncios
Categorías:ABAP/4 Etiquetas: , , ,
  1. Aún no hay comentarios.
  1. No trackbacks yet.

Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión /  Cambiar )

Google+ photo

Estás comentando usando tu cuenta de Google+. Cerrar sesión /  Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión /  Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión /  Cambiar )

Conectando a %s

A %d blogueros les gusta esto: