bom , me disserem que o open; last first, eh pra corrigir o bug do recordcount,
vou testar sem.
Abraços
Elton Adriano Pering
Brusque - Santa Catarina
----- Original Message -----
From: Eduardo Silva dos Santos
To: delphi-br@yahoogrupos.com.br
Sent: Wednesday, June 21, 2006 9:14 PM
Subject: Re: [delphi-br] duplica itens
with TQuickReportPedido.Create(self) do
try
with IBQueryPedidos do
begin
Database:= Self.EIBDatabase;
Transaction:= Self.EIBTransaction;
SQL.CLEAR;
SQL.Add('select * from PEGA_PEDIDOS WHERE NUMPED = :NUMPED');
ParamByName('NUMPED').AsInteger := strToInt(TypeEditPedido.Text);
Open;
Last; // pra que fazer isso??? nao precisa..
First; // pra que fazer isso??? nao precisa..
end;
{configuracoes}
with IBQueryItensPedidos do
begin
Database:= Self.EIBDatabase;
Transaction:= Self.EIBTransaction;
SQL.CLEAR;
SQL.Add('select * from PEGA_ITENSPEDIDO(:NUMPED)');
// ta faltando um where nesse SQL.......
ParamByName('NUMPED').AsInteger := strToInt(TypeEditPedido.Text);
Open;
Last; // nao precisa fazer isso
First; // nao precisa fazer isso
end;
Preview;
finally
free;
end;
Em 21/06/06, Elton <[EMAIL PROTECTED]> escreveu:
>
> SEGUINTE :
>
> Temos um relatorio de pedidos.
>
> Ao visulizar o pedido ,(quickreport), as de forma aleartória aparece os
> itens do pedido duplicado.
>
> Vejam se conseguem ver alguma coisa errada na montagem :
>
>
>
//------------------------------------------------------------------------------------------------------------------------------------------------------------------------
> with TQuickReportPedido.Create(self) do
> try
> with IBQueryPedidos do
> begin
> Database:= Self.EIBDatabase;
> Transaction:= Self.EIBTransaction;
> SQL.CLEAR;
> SQL.Add('select * from PEGA_PEDIDOS WHERE NUMPED = :NUMPED');
> ParamByName('NUMPED').AsInteger := strToInt(TypeEditPedido.Text);
> Open;
> Last;
> First;
> end;
> {configuracoes}
> with IBQueryItensPedidos do
> begin
> Database:= Self.EIBDatabase;
> Transaction:= Self.EIBTransaction;
> SQL.CLEAR;
> SQL.Add('select * from PEGA_ITENSPEDIDO(:NUMPED)');
> ParamByName('NUMPED').AsInteger := strToInt(TypeEditPedido.Text);
> Open;
> Last;
> First;
> end;
> Preview;
> finally
> free;
> end;
>
>
>
//------------------------------------------------------------------------------------------------------------------------------------------------------------------------
>
> aguardo alguma sugestão .
> Obrigado
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
>
> --
> <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
>
>
>
> Links do Yahoo! Grupos
>
>
>
>
>
>
>
>
>
--
Eduardo Silva dos Santos
DRD Sistemas.
(27) 3218-4201
MSN: [EMAIL PROTECTED]
Site: http://www.drdsistemas.com/
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
<*> Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
