ActiveDelphi

[Tchock]

eu estou fazendo um sistema comercial e estou com um problema no relatorio de vendas, quando eu faço uma venda e mando imprimir ele so imprime a primeira venda que foi vendida por exemplo se eu ja estiver efetuado 1 venda e for fazer mais uma ele so imprime a primeira e não a segunda venda assim contece com as outras se passar de 1 venda so imprime a primeira.

o código que estou usando é esse.

procedure TFBalcao.imprimirExecute(Sender: TObject);
var
bookmark : tbookmarkstr;
begin
bookmark := tbvenda.Bookmark;
tbvenda.Filter := \'pedido = \'\'\' + floattostr(tbvenda[\'pedido\']) + \'\'\'\';
tbvenda.Filtered := true;

Application.CreateForm(TFRelVenda, FRelVenda);
fprincipal.logotipoExecute(self);
if fileexists (extractfilepath(paramstr(0)) + \'\\imagem\\dado.txt\') then
FRelVenda.memo4.Lines.LoadFromFile(extractfilepath(paramstr(0)) + \'\\imagem\\dado.txt\');

FRelVenda.Quickvenda.Preview;
FRelVenda.Release;
tbvenda.Filtered := false;
tbvenda.Bookmark := bookmark;
end;

eu ja tentei um monte de coisas ja limpei a propriedade Dataset QR mas num da certo.... o que eu quero é que quando eu efetuar uma venda ele tem que imprimir a venda que foi efetuada...

se alguem souber me ajuda estou precisando muito disso para finalisar o sistema

qual quer coisa entre em contato comigo pelo MSN laelsonsousa@hotmail.com

[alceca]

Oi,

Você já verificou o arquivo dado.txt ?
O que ele contém ?
Talvez o seu conteúdo é que não esteja sendo atualizado, pois, me parece que é o seu conteúdo que deve ser impresso, não é ?

[Tchock]

o conteudo dado.txt é para configurar o cabeçariio do relatorio tipo endereço, site, e-mail e etc...