Numerar itens

Question

Tenho um relat�rio, onde preciso numerar os itens que v�o sendo impresso. Como fa�o isso? Pelo RecordCount, vinha sempre 1, e tem q estar assim:
primeiro item impresso = 1
segundo item impresso = 2
terceiro item impresso = 3
e assim por diante, depois no final, um total de itens impressos. Grato!

Gabriel.elessar · Answer

N�o sei se te entendi direito!Pelo que entendi voc� quer o numero do registro na tabela,a tabela tem uma propriedade chamada RecNo que traz o numero do registro.at� mais!...

Paulo · Answer

N�o t� dando certo, ou seja, se coloco dentro de um loop do tipo while..do, vem tudo 3, se tiver tres itens, tudo 4 se tiver 4 itens. Se coloco fora do loop, fica tudo 1. O que eu quero, � relacionar item a item, cardinalmente, tipo, 1,2,3,4 e etc..., dependendo do n� de itens.

try
frmRelPedidos:=TfrmRelPedidos.Create(Self);
Dm.RelPed.Parameters[0].Value:=strtoint(edNumPed.Text);
Dm.RelPed.Open;

while not Dm.RelPed.Eof do begin frmRelPedidos.RLLabel10.Caption:=inttostr(Dm.RelPed.RecNo); Dm.RelPed.Next; end;

frmRelPedidos.RLReport1.PreviewModal;
Dm.RelPed.Close;
finally
FreeAndNil(frmRelPedidos);
end;

A cita��o, � o while que eu coloquei, mas j� fiz sem o while tamb�m e n�o funcionou. Do jeito que t�, n�o funciona, fica tudo 3 para tres itens, tudo 4 para 4 itens. J� tentei tamb�m RlDbText e nada too.

Michael · Answer

[quote:f5941320d8=�Paulo�]while not Dm.RelPed.Eof do begin  frmRelPedidos.RLLabel10.Caption:=inttostr(Dm.RelPed.RecNo);  Dm.RelPed.Next; end;[/quote:f5941320d8]O [b:f5941320d8]RecNo[/b:f5941320d8] funciona, mas do jeito que est� o c�digo acima, vc est� atualizando o [b:f5941320d8]Caption [/b:f5941320d8]do label para cada registro do recordset, e obviamente que no final do loop este Caption vai ter o valor da �ltima linha da tabela. ;-)N�o entendi muito bem sua d�vida. Poste novamente com mais detalhes.[]�s...

Paulo · Answer

T� fazendo com vari�vel e parece q funciona. � o seguinte. Eu imprimo um pedido, com v�rios itens, na seguinte ordem:
qde,descri��o,valor unit,valor total,isso na grid. S�o v�rias linhas, ent�o eu gostaria de numerar as linhas, assim:

item qde descricao unit total 1 1 tampa de rolha 2,35 2,35 2 1 tampa de ferro 2,56 2,56 3 3 tampa alum 3,00 9,00 4 2 fita gomada 15,00 30,00

O que eu quero � numerar a propriedade item, como acima, para quando o cliente do meu cliente disser, no ITEM 3 est� errado, ele imediatamente localizar.

Paulo · Answer

Resolvi. Eu usava o evento errado. Passei usar o BeforePrint da banda detail do fortes e a� funcionou.

var tot:integer; begin tot:=0; tot:=Dm.RelPed.RecNo; RLLabel10.Caption:=inttostr(tot); end;