Fórum Bug #145908

uma vez em um projeto, sabe o engracado?


Que o projeto eu já utilizava ele em um outro sistema, a unica modificação que eu fiz foi o nome da empresa no QR.

Depois de alterar o nome ficou estar merda...


My page, acesse : http://instrutor.cjb.net/

[quote:7958f2b997=´Pedro Leonardo´]Amigos, fiz um relatorio usando QR e está acontecendo algo no minimo extranho: O relatorio esta direcionado p/ Query todo normal, quando dou preview pela primeira vez o relatorio está normal com todos os campos lincados aparecendo os dados, mas se fecho e abro denovo (preview ), os dados nao aparecem, já procurei por erros e nao achei, fiz todas as experiencias e nada resolve, alguem da lista ja passou por isso? Oque fazer nesse caso?

Obrigado
Pedro Leonardo[/quote:7958f2b997]

Olá amigo

Voce poderia colocar o código que voce chama o seu preview e tbm me dizer se, o FORM que chama o preview é modalou não

Eu consigo visualizar os dados dentro do DBGrid e quando dou preview o relatorio está normal, se faço outros selects sem fechar o form e dou preview denovo continua normal , mas se fecho o form ao qual chamo o quickrep e fço outro select o quickrep vem sem os dados.... so voltando ao normal quando fecho a aplicação e abro denovo.

SEGUE O CODIGO...

procedure TFrmRecibo.btnVisualizarClick(Sender: TObject);
var where:String;
begin
if DBGrid1.SelectedRows.Count <= 0 then
begin
ShowMessage(´Selecione o(s) Recibos(s) para visualizar...´);
Exit;
end;
Where := ´´;
DBGrid1.DataSource.DataSet.DisableControls;
DBGrid1.DataSource.DataSet.First;
while not DBGrid1.DataSource.DataSet.Eof do
begin
if DBGrid1.SelectedRows.CurrentRowSelected then
begin
if Where <> ´´ then
Where := Where+´,´;
Where := Where+DBGrid1.DataSource.DataSet.FieldByName(´Cod´).AsString;
end;
DBGrid1.DataSource.DataSet.Next;
end;
Where := ´Cod IN (´+Where+´)´;
DBGrid1.DataSource.DataSet.EnableControls;
with QueryAuxiliar do
begin
QueryAuxiliar.Close;
QueryAuxiliar.SQL.Text := ´SELECT * FROM Comprove WHERE ´+Where;
QueryAuxiliar.Prepare;
QueryAuxiliar.Open;
end;
QueryAuxiliar.First;
QRRecibo.Prepare;
QRRecibo.preview; // (ou Print)

end;