como cambiar un valor true por un caracter

[[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