Foro de programación ABAP
SAP / ABAP => Programación ABAP => Mensaje iniciado por: molaci en 05 de Febrero de 2008, 03:31:18 pm
-
Hola a todos,
de donde se saca la fecha de caducidad de un producto, o fecha de consumo preferente?
Gracias.
-
Hola.
Te copio un trozo de código donde le calculo la fecha de caducidad.
*&---------------------------------------------------------------------*
*& Form calcular_f_consumo_pref
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
form calcular_f_consumo_pref using p_f_produccion
p_m_con_preferente
p_ind_dias_fcp
changing p_f_consumo_p.
data: lf_fecha type datum.
lf_fecha = p_f_produccion.
* Cálculo de la fecha de consumo preferente
call function 'RE_ADD_MONTH_TO_DATE'
EXPORTING
months = p_m_con_preferente
olddate = lf_fecha
IMPORTING
newdate = lf_fecha.
.
* Aplicamos el redondeo (siempre al último día del periodo)
if p_ind_dias_fcp = '+'.
call function 'LAST_DAY_OF_MONTHS'
EXPORTING
day_in = lf_fecha
IMPORTING
last_day_of_month = lf_fecha
EXCEPTIONS
day_in_no_date = 1
others = 2.
endif.
p_f_consumo_p = lf_fecha.
endform. " calcular_f_consumo_pref
Un saludo.
Carlos.