No evento OnPrint do objeto RvSystem (RvSysCliente) digitei:
fiz essa Procedure;
procedure TFrmCadCliente.RvSysClientePrint(Sender: TObject);
begin
inherited;
with RvSysCliente.BaseReport do
begin
QueryClientes.First;
While (not QueryClientes.Eof) do
begin
lin := 1;
Cab RelCadCliente; -------> o erro estar no cab ([Error] UCadCliente.pas(196): Undeclared identifier: 'Cab')
While (Not QueryClientes.Eof) and (Lin <= 29) do
begin
Det RelCadCliente; ------------> o erro estar no Det ([Error] UCadCliente.pas(199): Undeclared identifier: 'Det')
QueryClientes.Next;
end;
If not QueryClientes.Eof then
NewPage;
end;
Lin := lin - 0.2;
MoveTo(0.7, Lin);
LineTo(20.5, Lin);
Lin := Lin + 0.5;
end;
end;
Agradejo de já a ajuda de todos!!!
Editado por Micheus Incluída tag's CODE para melhorar a visualização. Utilize a identação também ;)
Pergunta
Livio Neiva
inserir o cmponente RvSystem da guia Rave.
No evento OnPrint do objeto RvSystem (RvSysCliente) digitei:
fiz essa Procedure;
Agradejo de já a ajuda de todos!!!
Editado por MicheusIncluída tag's CODE para melhorar a visualização. Utilize a identação também ;)
Link para o comentário
Compartilhar em outros sites
4 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.