como cambiar un valor true por un caracter

[janexa]

THANK YOU a todos los ke me contestaron... BuenaOnda] Hola..

hice lo ke me mandaron pero ke creen si funciona con el afterOpen pero no del todo ya ke si me cambia el valor qrdtext con el evento ONPrint y en quickreport ANTES me apareceCIA:
NOMBRE-ARCHIVAR-INFORMAR-NINGUNO ARRIBA <---
XYZ TRUE FALSE TRUE
ACE FALSE TRUE TRUE

AHORA ME SALE EN EL QUICKREPORT:
NOMBRE-ARCHIVAR-INFORMAR-NINGUNO
XYZ * *
ACE * *

PERO PARA CUANDO SON MAS CAMPOS HACIA ABAJO NO CAMBIA, LOS DEJA IGUAL A LOS DE ARRIBA Y DEBERIA DE HACER ALGO ASI:
NOMBRE-ARCHIVAR-INFORMAR-NINGUNO
XYZ * *
ACE * *

ESTE ES MI QUERY SI FUNCIONA PORKE ANTES SALIA LO DE ARRIBA <---
UTILIZO SQL SERVER
select A.* ,P.per_nombre
from tmp_asignacion_per2 A,personal P
where A.CE_Folio_id2=:ce_folio_id AND A.CE_año_id2=:CE_año_id AND A.djs_id2=:djs_id AND A.rpe_id2=P.rpe_id

Y MIS CODIGOS EN DELPHI
procedure TDMCorrespondencia.QAsignacion_ceAfterOpen(DataSet: TDataSet);
begin
IF QAsignacion_cectrl_mod2.AsBoolean=true THEN
ctrl:=3
ELSE
ctrl:=4;
END;
END;
--------------------
procedure TFReporte.QRDBText13Print(sender: TObject; var Value: String);
begin
// FEntradas.e1.text:=inttostr(ctrl);
if ctrl=3 then
begin
value:='*';
end
else
begin
value:=' ';
end;
end;

Y AHORA COMO LE HAGO??????
HELP ME PLEASE....SE LO AGRADECERE MUCHO

[[Lepe]]

Se puede hacer todo en el BeforePrint (ojo BeforePrint):


Suponiendo que el QRDBText13 está enlazado con la consulta QAsignacion_ce y al campo ctrl_mod2, el código a usar sería:

Código Delphi [-]
procedure TFReporte.QRDBText13BeforePrint(sender: TObject; var Value: String);
begin
IF QAsignacion_cectrl_mod2.AsBoolean THEN
  value:='*'
else
  value:=' ';

end;

... y nada más.

Deberás repetir esto por cada campo que quieras sustituir sus valores, es decir, por cada QRDBText, QRlabel o lo que sea.

Ten en cuenta que si el valor que tiene es un nulo, porque no se ha asignado un valor, siempre saldrá un espacio en lugar del asterisco.


PD: Por favor, encierra el código entre

[ delphi ]
aqui vuestro codigo
[ /delphi ]

(sin espacios dentro de los corchetes) Así consigues que respete el identado y aparezca las palabras reservadas en negrita y colores.

Saludos

[janexa]

:::HØlA::::
Lepe vbmenu_register("postmenu_152138", true);
eternamente Junior
muchas gracias¡¡¡¡ Si FUNCIONO.. te debo una
eres excelente en delphi THANKS YOU.....
saludos

[janexa]

hola tengo unpekeño problemita al hacer una suma de horas Código Delphi [-] totalon:=totalon+HourSpan(dom_hsc.Time,dom_hec.Time);
totalin:=totalin+HourSpan(dom_hs.Time,dom_he.Time);
totalin:=totalin-totalon;
tothrs.Text:=floattostr(totalin);






ejemplo tengo que sumar 09:00:00 a.m. a 05:30:00pm tiene ke darme 8:30 horas
pero solo me pone 8:50 hrs