Problema recorriendo tabla desde formula
Publicado por Alfonso (2 intervenciones) el 27/03/2012 18:04:08
Buenas,
estoy realizando un calendario en crystal reports en el que tengo que pintar los días festivos de diferente color.
Cada día está representado por un text box, cuyo fondo depende del resultado de la siguiente formula:
//Calculo el día que estamos pintando con el formato YYYYMMXX
//Podeis omitir esta primera parte
Dim x as Number
x= {?anio} * 10000 + {@dia22}
if {@dia22} < 20 then
x = x + ({?mes}+1) * 100
else
x = x + {?mes} * 100
end if
//Compruebo si el día es festivo
if {CalendarioLaboral.Tipo}= 1 AND {CalendarioLaboral.Fecha} = x then
Formula = crSilver
else
Formula = crwhite
end if
Si bien esto funciona solo con el primer registro de la tabla CalendarioLaboral, pero no recorre la tabla.
¿¿Como podría hacer para que me recorriese toda la tabla y si encuentra un {CalendarioLaboral.Tipo}= 1 AND {CalendarioLaboral.Fecha} = x pinte en crSilver??
Un saludo y muchas gracias
estoy realizando un calendario en crystal reports en el que tengo que pintar los días festivos de diferente color.
Cada día está representado por un text box, cuyo fondo depende del resultado de la siguiente formula:
//Calculo el día que estamos pintando con el formato YYYYMMXX
//Podeis omitir esta primera parte
Dim x as Number
x= {?anio} * 10000 + {@dia22}
if {@dia22} < 20 then
x = x + ({?mes}+1) * 100
else
x = x + {?mes} * 100
end if
//Compruebo si el día es festivo
if {CalendarioLaboral.Tipo}= 1 AND {CalendarioLaboral.Fecha} = x then
Formula = crSilver
else
Formula = crwhite
end if
Si bien esto funciona solo con el primer registro de la tabla CalendarioLaboral, pero no recorre la tabla.
¿¿Como podría hacer para que me recorriese toda la tabla y si encuentra un {CalendarioLaboral.Tipo}= 1 AND {CalendarioLaboral.Fecha} = x pinte en crSilver??
Un saludo y muchas gracias
Valora esta pregunta
0