Numerar registros con QR o Rave

[rgstuamigo]

Bueno aunque como he comentado anteriormente que mejor sería traer la "numeracion" desde la base de dato como una columna calculada, pues logicamente en el propio Diseñador de Rave Report se lo puede tambien implementar.

Para tomar en cuenta:
* Primero aclarar que no suelo usar Rave report muy a menudo, por lo tanto no lo conozco muy a fondo que digamos.

* Al implementar los evento de cada componente y/o bandas de rave report tenemos que utilizar un lenguaje propio que solo el Editor de Rave report entiende, es decir debemos aprender a usar el lenguaje de Rave Report, pero no se asusten es muy similar a Object Pascal con algunas cositas diferentes segun se ve.

Bueno para lograr poner numeración a cada fila del reporte podemos utilizar dos componentes Text de la paleta "Standard" de Rave Report; el primer componente text lo ponemos en la banda que hace de Encabezado,pues precisamente para eso, pues sera el que indique el encabezado de nuestra numeracion; el otro componente Text lo ponemos en la banda de detalle donde se muestras los registros; a este ultimo componente Text le vamos a cambiar su nombre a "Numeracion" para poder recordar mejor su nombre.
El truco está en que vamos a utilizar la propiedad "Tag" de nuestro componente Text llamado "Numeración" para lograr mostrar una numeracion en el reporte.Dicha propiedad Tag la vamos ir incrementado cada vez que la Banda de detalle vaya ser imprimida.
...Ok... Entonces pues seleccionamos la banda de detalle y nos vamos a la pestaña de eventos (Events Editor).
Estando ya en la pestaña de eventos selecionamos el evento que queremos implementar, esto se hace en el ComboBox que tiene como Caption "Available event", en nuestro caso vamos a seleccionar el evento OnBeforePrint (antes de imprimir)
Ahora vamos a poner código para que el "Tag" de nuestro componente vaya incrementando y se muestre en el Texto del componente Text de nombre "Numeracion".
En editor de código ponemos el siguiente código:

Código Delphi [-]
function ClientesDataBand_OnBeforePrint(Self: TRaveDataBand);

begin
Numeracion.Tag:=Numeracion.Tag+1;//incrementamos el tag
Numeracion.Text:=IntToStr(Numeracion.Tag);//mostramos el tag en el texto
end OnBeforePrint;

Y compilamos con el boton "Compile", si todo esta bien pues eso es todo.
Sino nos va salir los errores que tenemos y hay que corregirlos.
Guardamos el reporte y si queremos podemos darle una vista previa desde el propio rave report para ver como quedó.
Espero le sea de gran utilidad.
Saludos...