Bases de Datos > Crystal Reports

 Campo Calculado Fecha Segun Tabla De Frecuencias

(1/1)

kesadeixon:
Hola, quiero calcular un campo fecha, según una tabla de frecuencias, de forma que segun la frecuencia definida por un item, me diga la fecha de caducidad de un tema concreto.

Así, he probado de esta forma, pero me dice que "El texto restante no parece ser de la fórmula"

Dim fechacadu as date

 
IF {MODEL_REC.ID_FREC_MOD} = "01" THEN fechacadu = DateAdd ("d", 1, {V_ACTOS_MEDICOS.FECHA})
ELSE IF {MODEL_REC.ID_FREC_MOD} = "02" THEN fechacadu = DateAdd ("d", 7, {V_ACTOS_MEDICOS.FECHA})  
ELSE IF {MODEL_REC.ID_FREC_MOD} = "03" THEN fechacadu = DateAdd ("m", 1, {V_ACTOS_MEDICOS.FECHA})  
ELSE IF {MODEL_REC.ID_FREC_MOD} = "04" THEN fechacadu = DateAdd ("m", 2, {V_ACTOS_MEDICOS.FECHA})  
ELSE IF {MODEL_REC.ID_FREC_MOD} = "05" THEN fechacadu = DateAdd ("m", 3, {V_ACTOS_MEDICOS.FECHA})  
ELSE IF {MODEL_REC.ID_FREC_MOD} = "06" THEN fechacadu = DateAdd ("yyyy", 1, {V_ACTOS_MEDICOS.FECHA})  
ELSE IF {MODEL_REC.ID_FREC_MOD} = "07" THEN fechacadu = DateAdd ("yyyy", 2, {V_ACTOS_MEDICOS.FECHA})  
ELSE IF {MODEL_REC.ID_FREC_MOD} = "08" THEN fechacadu = DateAdd ("d", 14, {V_ACTOS_MEDICOS.FECHA})  
ELSE {V_ACTOS_MEDICOS.FECHA}

A alguien se le ocurre donde está el fallo?? :unsure:

Utilizo Crystal Reports 8.

Saludos y Gracias!!!

Jose!
:hola:

lencho:

--- Citar ---IF {MODEL_REC.ID_FREC_MOD} = "01" THEN fechacadu = DateAdd ("d", 1, {V_ACTOS_MEDICOS.FECHA})
ELSE IF {MODEL_REC.ID_FREC_MOD} = "02" THEN fechacadu = DateAdd ("d", 7, {V_ACTOS_MEDICOS.FECHA})
ELSE IF {MODEL_REC.ID_FREC_MOD} = "03" THEN fechacadu = DateAdd ("m", 1, {V_ACTOS_MEDICOS.FECHA})
ELSE IF {MODEL_REC.ID_FREC_MOD} = "04" THEN fechacadu = DateAdd ("m", 2, {V_ACTOS_MEDICOS.FECHA})
ELSE IF {MODEL_REC.ID_FREC_MOD} = "05" THEN fechacadu = DateAdd ("m", 3, {V_ACTOS_MEDICOS.FECHA})
ELSE IF {MODEL_REC.ID_FREC_MOD} = "06" THEN fechacadu = DateAdd ("yyyy", 1, {V_ACTOS_MEDICOS.FECHA})
ELSE IF {MODEL_REC.ID_FREC_MOD} = "07" THEN fechacadu = DateAdd ("yyyy", 2, {V_ACTOS_MEDICOS.FECHA})
ELSE IF {MODEL_REC.ID_FREC_MOD} = "08" THEN fechacadu = DateAdd ("d", 14, {V_ACTOS_MEDICOS.FECHA})
ELSE {V_ACTOS_MEDICOS.FECHA}
--- Fin de la cita ---
Esto lo colocas en el asistente de seleccion ????, o lo envias desde VB ??, por que si es asi tenej que enviarlo como String.

BYTE.

Navegación

[0] Índice de Mensajes