RES: [delphi-br] duplica itens

Moked - Tamara \(Brazil\) Thu, 22 Jun 2006 04:57:09 -0700

Elton,
 
Não sei se entendi muito bem o problema, mas um distinct no select ñ ajudaria?
 
Tamara Clemente - Suporte Técnico
Moked do Brasil - Consultoria de Segurança Empresarial
Divisão MokInf de Informática
PABX: (55-11) 5071-2748
[EMAIL PROTECTED] <mailto:[EMAIL PROTECTED]> 
www.moked.com.br <http://www.moked.com.br/>



________________________________

De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Elton
Enviada em: quinta-feira, 22 de junho de 2006 05:01
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] duplica itens


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]

 


[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

RES: [delphi-br] duplica itens

Responder a