Como incremento un numero en la impresion?

[danytorres]

Buenos dias amigos, tengo un pequeño problema estoy trabajando con delphi 7 y Rave, estoy imprimiendo unos boletos que son iguales, yo le paso los string a traves de parametros en rave, lo unico que cambia es un correlativo en cada boleto al pasarle los string le indico la cantidad de copias y e imprime, el problema esta como como incremento el correlativo para cada boleto cuando este imprimiendo???

[[BlueSteel]]

Hola...

Yo tenia un problema similar, pero en QReport... y lo que hice fue en el evento AfterPrint...(del detail) sumarle 1 en forma manual al contador...

No se si en Rave se pueda hacer, tampoco se si se puede usar la expresión COUNT... que trae QReport

espero que te sirva...

[danytorres]

gracias por responder en Qrepot con la exprecion count, pero no encuetro la forma de hacerlo en Rave.

[[BlueSteel]]

la función COUNT.. automáticamente te suma 1... pero yo no use eso...

lo que puse fue una componente de tipo TQRLabel... y antes de hacer Informe.Preview o Informe.Print.... le asignaba el valor de inicio....

Ej. Informe.TQRLabel.Caption := '34'; (Ojo.. esto lo hago del formulario de llamada)

y dentro del inform en el Evento (puedo ser AfterPrint) le sumaba 1 de esta forma

TQRLabel.Caption := IntToStr(StrToInt(TQRLabel.Caption)+1);

Ahora tambien puedes hacerlo con variables.... y despues simplemente lo traspasas...

Por que te digo en el evento AfterPrint...por que se supone que es una banda detail,.. que se va a repetir en forma continua... por lo tanto, imprime e incrementa la variable...

[Loviedo]

De esta forma he conseguido cambiar la fuente, supongo que cambiar el texto del Datatext será similar.
Espero te ayude. Saludos.

Código Delphi [-]
{ Event for DataBand1.OnBeforePrint }function DataBand1_OnBeforePrint(Self: TRaveDataBand);begin if dataview1haber.asfloat < 0 then   datatext5.color := clred; else   datatext5.color := clblack; end if; if dataview1debe.asfloat < 0 then   datatext4.color := clred; else   datatext4.color := clblack; end if;end OnBeforePrint;

[Loviedo]

Código Delphi [-]
{ Event for DataBand1.OnBeforePrint }
function DataBand1_OnBeforePrint(Self: TRaveDataBand);
begin
 if dataview1haber.asfloat < 0 then
   datatext5.color := clred;
 else
   datatext5.color := clblack;
 end if;
 if dataview1debe.asfloat < 0 then
   datatext4.color := clred;
 else
   datatext4.color := clblack;
 end if;
end OnBeforePrint;