Qreport

[mvrinaldi]

Olá,

Estou fazendo um relatório no QReport que é um carnê de pgto.

Só que ele mostra sempre o mesmo registro.

Deveria funcionar assim:

É feita a venda e no form pedidos clico em "gerar carnê". Ele gera um form carnê de pgtos. Nessa hora, o valor da venda pode ser dividido em qtas parcelas quiser.

Então tenho os campos, no carnê, "chave" e "codvenda". O "chave" não pode duplicar, mas o "codvenda" repete tantas vezes qtas forem as parcelas.

É a partir do "codvenda" que eu gero o QReport, então deveria gerar tantos carnês qtos fossem os codvenda repetidos. Assim: dividi 100,00 em duas vezes.

chave: 010

codvenda: 025

valor: 50,00

chave: 011

codvenda: 025

valor: 50,00

O problema é que tá gerando sempre o mesmo codvenda. E só um.

Código do Botão Imprimir:

procedure TFContasRec.btnImprimirClick(Sender: TObject);
var
 loc: string;
begin
  loc := ecodvenda.Text;

   application.CreateForm(tficarnepgto, ficarnepgto);

      fdm.tbContasRec.Filtered := False;
      fdm.tbContasRec.Filter := 'codvenda=''' + ecodvenda.Text + '''';
      fdm.tbCliente.Filtered := True;

      ficarnepgto.QuickRep1.preview;

  end;

A última linha aponta para:

procedure Tficarnepgto.QuickRep1Preview(Sender: TObject);
begin

  application.CreateForm(tfimpressao, fimpressao);
  fimpressao.QRPreview1.QRPrinter := TQRPrinter(Sender);
  fimpressao.Show;

end;

onde o fimpressao é um form com botões primeiro, avançar...

Alguém sabe o que pode estar acontecendo???

[mvrinaldi]

Ninguém sabe???