continuar una numeracion con Qreport

[[Lepe]]

Probado con QuickReport que viene en Delphi 7 y funcionando:

Creamos una variable donde guardamos el número de página (number)

Código Delphi [-]
class TfrmQR3Demo = Class(TForm);
...
  private
    { Private declarations }
    Number : integer;
    procedure Myprint(Sender:TObject; var Value:string);
    procedure FormCreate(Sender: TObject);
end;

En el OnCreate de la ventana:

Código Delphi [-]
procedure TfrmQR3Demo.FormCreate(Sender: TObject);
var i: integer;
begin
// rescatar el valor inicial de la base de datos 
// y asignarlo a la variable Number

  Number := 3;
end;

Yo he hecho todo por código delphi:
- crear la banda
- asignar propiedades
- Crear un qrlabel y asignar su evento
- dar sus coordenadas, etc

Código Delphi [-]
aReport.Bands.HasPageFooter := true;
aReport.Bands.PageFooterBand.Enabled:= True;
aReport.Bands.PageFooterBand.Visible:= true;
aReport.Bands.PageFooterBand.Height:= 90;
aReport.Bands.PageFooterBand.Color := clCream;
with TQRLabel(aReport.Bands.PageFooterBand.AddPrintable(TQRLabel)) do
begin
  Left := 20;
  top := 40;
  AutoSize:= False;
  width := 300;
  Enabled:= true;
  Caption := '00'; // si se omite esta línea no sale nada ¿cosas del QuickReport?
  OnPrint := MyPrint;

end;

Si tienes un QuickReport en tiempo de diseño:
- coloca un qrLabel dentro del FooterBand.
- Asegúrate de escribir algo en su propiedad Caption por ejemplo dos ceros '00'
(si se deja vacía,QuickReport no ejecuta el evento OnPrint (nu sé por qué)
- Asigna el evento OnPrint con el nombre que quieras (doble clic en el inspector de objetos y corriendo que es gerundio). Debe quedar más o menos así:

Código Delphi [-]
procedure TfrmQR3Demo.Myprint(Sender: TObject; var Value: string);
begin
  Inc(Number,1); 
  Value := IntToStr(Number);
end;

Queda guardar el valor de Number en la Base de datos, supongo que podrás hacerlo en el evento OnAfterPrint del quickReport.

Edito: Por cierto, mi nombre no es raro, es el nombre de mi ciudad. El tuyo si que es raro

Saludos

[Alfredo]

Empezado por Lepe

Edito: Por cierto, mi nombre no es raro, es el nombre de mi ciudad. El tuyo si que es raro

Jajajajajaja,,,, No mi estimado amigo, no me referia a tu nombre, o el de tu ciudad en tal caso, sino al nombre que le puse a el RqLabel, que en vez de ponerle algo como rqLabelPagina, le puse rqBand_pagina y obiamente no contribuye a que se entienda el planteamiento.....


Bueno he estado con la conexion a internet medio intermitente y asta ahora pude ver tu respuesta, lo que te agradezco enormemente y voy a probar ahorita mismo. En todo caso logre el cometido precisamente creando mi propio "Preview", bastante basico, pero funcional. Sin embargo me intereza mucho su solución porque resulta que ahora tengo que diferenciar entre los pares e impares, pues en las paginas impares la numeración debe ir asi: "Página doce (12)" -lo que me obliga a tener que convertir numeros a letras- y en las paginas pares: "vuelto página 12", y creo que mediante tu formulación lo puedo abordar mejor...

Un millon y luego posteo el avance...

[Alfredo]

Ok..
Para LEPE: Super agradecido con tu sugerencia, me sirvio de más..., porque yo trate de implementar lo de la variable pero no estaba claro de como funcionaban las cosas...

Al final como comente antes cree mi propio preview, como el que pude trabajar sin problemas el QrLabel que cambiaria la paginación; pude montar todo sobre el preview que el Qreport trae por defecto, pero me gustaron las personalizaciones que hice. Lo siguiente fue agregar otra variable que controlaria las paginas pares e impares.

Para cualquier otro despistado como yo que quiera usar la guia de Freire de como personalizar el Preview de Qreport, le aclaro que los identificadores no declarados que da como error el compilador, son los nombres que el autor le dio a los componentes que añadio al que seria el form del preview, llamado form3, sobre un panel alineado al top, o sea:
sbFirstPage: TSpeedButton
sbPreviousPage: TSpeedBut
sbNextPage: TSpeedButton;
sbLastPage: TSpeedButton;
StBar: TStatusBar;
printsetup: TSpeedButton;
print: TSpeedButton;
exit: TSpeedButton;
sepage: TSpinEdit; ETC....

Lo otro es que recuerden hacer esto :

Código Delphi [-]
         form3.QuickRep1.OnPreview := form2.muestra;
         form3.QuickRep1.Preview;

donde muestra es el procedimiento que inicializa los valores pero sobre todo
contiene esta linea: QRPrev.QRPrinter := TQRPrinter(Sender)
por su puesto todo esto despues de crear la form3 (mi caso), pues en el ejemplo, el amigo Freire simplifica el ejemplo al mantener la form creada.

Un saludo a todos.

[[Lepe]]

En cuanto a pasar de números a letras en el foro tienes el componente ATexto, no sé si lo conoces.

Saludos