F�rum Codigo funciona em um form mas nao no outro.PQ? #377737

17/05/2010

Ola!

Tenho um form onde insiro um novo exame.Logo depois de inserir este exame dou a opcao de imprimir.E um trichtext que � salvo num campo blob. O codigo � este:

      DM.cdsImprimir.Close;
      DM.cdsImprimir.CommandText := 'select * from EXAMEMEDICO where COD_CLI =:COD AND COD_EXAME =:COD_EX';
      DM.cdsImprimir.Params[0].AsInteger := DM.cdsClientes.FieldByName('CODIGO').AsInteger;
      DM.cdsImprimir.Params[1].AsInteger := DM.cdsExames.FieldByName('COD_EXAME').AsInteger;
      DM.cdsImprimir.Open;
      DM.RvProject2.Execute;

So que o papel sai em branco.Estou usando Rave Report.No form anterior tenho um dbgrid com todos os exames cadastrados e um botao view q abre outro form q da a opcao de imprimir.Nesse form no botao imprimir tenho o mesmo codigo a cima e funciona legal sem prblemas.

Oq to fazendo errado?alguem pode ajudar?

obrigado

Eduardo Jr

Curtir t�pico

+ 0

Responder

Posts

17/05/2010

Lartedesign

ola ... uma questao a ser discutida vce esta passando os valores ao ravereport de modo que la esteja ligado ao banco de dados ??

Responder

Gostei + 0

17/05/2010

Eduardo Jr

sim..o engra�ado e q um outro form q eu uso so pra visualizacao com o mesmo codigo funciona blz..

Responder

Gostei + 0

17/05/2010

Juan Garcia

Pelo que entendi, voc� est� utilizando o mesmo c�digo em dois forms diferentes, em um funciona e em outro n�o. Pelo que voc� postou n�o consigo imaginar porque funciona em um form e n�o no outro, mas gostaria de sugerir que voc� movesse o c�digo para o datamodule e o chamasse dos formul�rios.

...
procedure TDM.ImprimirExames(ACod, ACodExame: Integer);begin      cdsImprimir.Close;      cdsImprimir.CommandText := 'select * 
from EXAMEMEDICO where COD_CLI =:COD AND COD_EXAME =:COD_EX';      cdsImprimir.Params[0].AsInteger := ACod;      cdsImprimir.Params[1].AsInteger := ACodExame;      cdsImprimir.Open;      RvProject2.Execute;end;
...

e chamar a procedure a partir dos formul�rios, algo assim:

DM.ImprimirExames(DM.cdsClientes.FieldByName('CODIGO').AsInteger, DM.cdsExames.FieldByName('COD_EXAME').AsInteger);

Espero ter ajudado.

Juan

Responder

Gostei + 0