SoloCodigo

Bases de Datos => Crystal Reports => Mensaje iniciado por: kesadeixon en Sábado 11 de Noviembre de 2006, 00:12

Título: Campo Calculado Fecha Segun Tabla De Frecuencias
Publicado por: kesadeixon en Sábado 11 de Noviembre de 2006, 00:12

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:

Título: Re: Campo Calculado Fecha Segun Tabla De Frecuencias
Publicado por: lencho en Sábado 18 de Noviembre de 2006, 15:54

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}

Esto lo colocas en el asistente de seleccion ????, o lo envias desde VB ??, por que si es asi tenej que enviarlo como String.

BYTE.