Dúvida Em Sql

[hencker]

estou usando o seguinte código:

var SQL         ,
    Orcamento_ID: String;
    I           : Integer;
begin

  Orcamento_ID := ClienteDMMovimentos.CDOrcamentosOrcamento_ID.AsString;

  SQL := ' Select Orc.Orcamento_ID, Cli.Nome_Fantasia as Cliente,       '+
         '        Cli.Endereco, Cli.Bairro,                            '+
         '        Cid.Nome as Cidade, Cid.UF, Cid.CEP, Cli.Telefone,   '+
         '        Op.Descricao As Operacao, Con.Descricao As Condicao, '+
         '        Ven.Nome as Vendedor, Orc.Desconto, Orc.Base_ICMS,   '+
         '        Orc.Valor_ICMS, Orc.Valor_IPI, Orc.Valor_FRETE,      '+
         '        Orc.SUBT_TOTAL, Orc.Total                            '+
         ' From Clientes Cli, Cidades Cid, Operacoes_Venda Op,         '+
         '      Condicoes_Venda Con, Vendedores Ven, Orcamentos Orc    '+
         ' Where Cli.Cliente_ID   = Orc.Cliente_ID                     '+
         '  AND  Cid.Cidade_ID    = Cli.Cidade_ID                      '+
         '  AND  Op.Operacao_ID   = Orc.Operacao_ID                    '+
         '  AND  Con.Condicao_ID  = Orc.Condicao_ID                    '+
         '  AND  Orc.Orcamento_ID = '+#39+Orcamento_ID+#39+' '        ;

  with ClienteDMCadastros.CDGeral do begin
       Close;
       DataRequest(SQL);
       Open;
  end;

  SQL := ' Select Item.Orcamento_ID, Item.Produto_ID,                  '+
         '        Pro.Descricao As Produto,                            '+
         '        Item.Qtd, Item.Valor_Unitario, Item.Perc_Desconto,   '+
         '        Item.Valor_Total, Item.Valor_Base                    '+
         ' From Itens_Orcamentos Item, Produtos Pro                    '+
         ' Where Pro.Produto_ID   = Item.Produto_ID                    '+
         '  AND  Item.Orcamento_ID = '+Orcamento_ID                    ;


  with ClienteDMCadastros.CDGeral2 do begin
       Close;
       DataRequest(SQL);
       Open;
       I := RecordCount;
       while ( I mod 35 <> 0 ) do begin
             Append;
             FieldByName('ORCAMENTO_ID').AsString := Orcamento_ID;
             Inc(I);
       end;
  end;


  MasterRelVenda := TMasterRelVenda.Create(Self);
  MasterRelVenda.QRLTipo.Caption := Titulo;
  MasterRelVenda.QReport.Print;
  MasterRelVenda.Free;

  ClienteDMCadastros.CDGeral.Close;
  ClienteDMCadastros.CDGeral2.Close;
end;

esse é o procedimento do botão imprimir venda mas quando eu pesso para imprimir ele não imprime apenas a venda, o programa entra em looping e imprime a mesma venda para todos os clientes...

Tipo se eu tiver 100 clientes em meu cadastro ele imprime 100 notas fiscais da mesma venda...

alguém sabe onde eu estou errando???

[Progr'amador]

ONDE você COLOCOU ESSE CODIGO???

[hencker]

Esse é o evento do botão imprimir nota...

[Progr'amador]

você ta usando alguma select (Query) no seu 'MasterRelVenda'???

de onde são atribuido os valores que são impresso, quais componentes você ta usando??? tipo (QRDBText)

[hencker]

não estou usando dois ClientDataSet (o CDGeral e o CDGeral2) são eles q alimentam o formulário...

Eu estou usando QRDBText porque???