F�rum Problemas ao abrir quick report #209057

24/01/2004

Tenho um formul�rio q seu nome � qrContaHospede onde o chamo atravez de um bot�o q antes passa para uma query todas as informa��es necess�rias para abrir o formul�rio do hospede q quero o problema � que abre mas sem mostrar nenhum tipo de informa��o, e n�o to entendo pq tenho um outro rel�torio q uso o mesmo m�todo para abrir.

O codigo q uso no bot�o � esse:

procedure TfrmContaHospede.Button1Click(Sender: TObject);
begin
 if (frmRelatorio.traVerificaConta.InTransaction) then
    frmRelatorio.traVerificaConta.commit;
  frmRelatorio.traVerificaConta.StartTransaction;
  with frmRelatorio.qryVerificaConta do begin
    Close;
    with SQL do begin
      Clear;
      Add(�select * from (HOSPEDE inner join CONTA on HOSPEDE.COD_CONT = CONTA.COD_CONT)�);
      Add(�inner join DESCRICAO_PRODUTO on DESCRICAO_PRODUTO.COD_CONT = CONTA.COD_CONT�);
      Add(�where COD_CONT = � + frmContaHospede.txtCodigoConta.Text);
    end;
  end;
  try
    frmRelatorio.qryVerificaConta.Prepare;
    frmRelatorio.qryVerificaConta.Open;
  except
    on E: EIBError do
    begin
      frmRelatorio.traVerificaConta.Rollback;
      MessageDlg(Format(��s [�d; �d]�, [E.message, E.SQLCode, E.IBErrorCode]),mtError,[mbOK],0);
      Abort;
      Exit;
    end;
  end;
  //Finalizando a transa��o com efetiva��o das modifica��es
  frmRelatorio.traVerificaConta.Commit;

  frmRelatorio.qrContaHospede.PreviewModal;

end;

Douglasf

Curtir t�pico

+ 0

Responder