herdar valor de variavel.

[lynx 0]

Boa Noite, Meu primeiro post nessa comunidade .

 

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.

 

Código:

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 frmCadPedidos.idpedido na condicão do relatório.

 

Se eu mudar para frmPesqPedidos.idpedido vai funcionar a impressao na tela de pesquisa e não vai funcionar na tela de cadastro http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

 

 

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. http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

[bastard2003 4]

cria uma varialvel do tipo publica e passa esse valor pra ela... ai qnd tu quiser usar o valor dela tu chama ele!deu pra intender? :D