• Lunes 23 de Diciembre de 2024, 10:05

Autor Tema:  Campo Calculado Fecha Segun Tabla De Frecuencias  (Leído 1533 veces)

kesadeixon

  • Nuevo Miembro
  • *
  • Mensajes: 1
    • Ver Perfil
Campo Calculado Fecha Segun Tabla De Frecuencias
« en: Sábado 11 de Noviembre de 2006, 00:12 »
0
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

  • Miembro de PLATA
  • *****
  • Mensajes: 1076
    • Ver Perfil
Re: Campo Calculado Fecha Segun Tabla De Frecuencias
« Respuesta #1 en: Sábado 18 de Noviembre de 2006, 15:54 »
0
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.
______________________________________________________________________________________
"No estoy de acuerdo con lo que dices, pero defenderé con mi vida tu derecho a expresarlo"