herdando valores.

Question

Imaginem a seguinte situa��o:Tenho um form frmRelatorio, outro frmCadPedido.No frmRelatorio, no evento AfterPrint, eu fa�o o relat�rio receber todos os valores, (N�mero do Pedido, Cliente etc.. etc..)...

Lynx · Answer

eu tentei criar um procedimento ImprimirRelatorio(form:Tform;idpedido:integer);

e no outro form fazer

  with TfrmRelatorio.Create(nil) do
    begin
      rlPedido.AfterPrint.ImprimirRelatorio(nomedoform:idpedido);
      rlPedido.Preview;
      free
    end;

Mas n�o deu certo

Lynx · Answer

beleza acho que assim estou no caminho certo.

No form relat�rio eu criei a procedure ImprimirRelatorio(Form:TForm;idpedido:Integer)

no form do cadastro ou pesquisa, eu coloco assim

  with TfrmRelatorio.Create(nil) do
    begin
      rlPedido.AfterPrint.ImprimirRelatorio(frmPesquisaouCadastro,idpedido);
      rlPedido.Preview;
      free
    end;

Mas est� retornando esse erro

Incompatible types: �TForm� and �Class reference�

Lynx · Answer

Outra coisa, se eu criar uma variavel no frmRelatorio, e nos outros Forms atribuir valor a ela � certo ?

frmrelatorio
varidpedido: Integer;

frmCadPedido e FrmPesqPedido
Nesses forms eu altero o valor da variavel varpedido, do relat�rio.

� Possivel alterar o valor da variavel em outro form ?
� meio estranho fazer isso...

Algu�m pode me dar uma for�a ?

Valeu

Rjun · Answer

Basta declarar a vari�vel na �rea de declara��es publicas. Mas o correto seria vc criar propriedades em vez de vari�veis publicas....

Lynx · Answer

O Problema, que n�o da certo alterar o valor de uma v�riavel em outro form.

Ler funciona, mas alterar o valor n�o.
Isso � meio gambiarra tb...

Como seria declarar propriedades ?
Na verdade o que eu preciso � passar o valor, da variavel idpedido de qualquer form.

Quando fixo no frmRelat�rio ,frmcadPedidos.idpedido funciona...
Mas s� vai funcionar para esse form.

valeu

Lynx · Answer

no caso no relat�rio eu coloco fixo assim.

      SQL.Add(�select * from PEDIDOS where IDPEDIDO = :IDPEDIDO�);
      ParamByName(�IDPEDIDO�).AsInteger:= frmCadPedidos.idpedido;
      Open;

Eu fixei o frmCadPedidos, esse valor deveria ser dinamico, no caso.

frmFormQueAbriu.idpedido.

Porque, agora vou passar o idpedido, em v�rios forms, e n�o gostaria de repetir c�digo.

Lynx · Answer

:cry: ainda estou com esse problema...N�o tem como pegar a variavel do form que abriu...Fixando o valor da certo, s� para um form.N�o gostaria de fazer gambiarra com variavel pra saber qual form abriu, e colocar v�rios parametros... :cry:...

Lynx · Answer

Vou tentar explicar da forma mais clara possivel.

Imagine isso

FrmCadPedidos 
var 
 idpedido : Integer; 

FrmPesqPedidos 
var 
 idpedido : Integer

No cadastro tem um botao para imprimir, quando clica nele abre o FrmRelatorio.

no form relat�rio tem isso.

with qryRelPedido do 
    begin 
      Close; 
      SQL.Clear; 
      SQL.Add(�select * from PEDIDOS where IDPEDIDO = :IDPEDIDO�); 
      ParamByName(�IDPEDIDO�).AsInteger:= frmCadPedidos.idpedido; 
      Open; 
      lblData.Caption:= �Data: �+FieldByname(�DATA�).AsString; 
      lblPedido.Caption:= �Pedido N� �+FieldByname(�CODPEDIDO�).AsString; 
  
     abaixo tem muitas mais linhas... passando para os label do relat�rio

Ent�o essa situa��o funciona porque eu coloco fixo [color=red:e61925b042]frmCadPedidos.idpedido[/color:e61925b042] na condic�o do relat�rio.

Se eu mudar para [color=red:e61925b042]frmPesqPedidos.idpedido[/color:e61925b042] vai funcionar a impressao na tela de pesquisa e n�o vai funcionar na tela de cadastro :lol:

Acho que deu para entender, o que preciso...
Tentei de muitas maneiras mas n�o deu certo.

S� fazendo gambiarra com v�riavel para resolver.

Algu�m pode me ajudar, a resolver isso de uma forma mais limpa ?

Muito Obrigado.

Obs:(Fica aqui meu agradecimento ao Marcos Sales, pela for�a que deu nas m.p)

valeu!

F�rum herdando valores. #292382