Imprimir registro/cadastro atual

[andersonkso]

Ola Amigos...
Estou com duvidas, se alguem souber e puder e me ajudar ficarei muito grato..
?? o seguinte..
Criei um formrecibos, acrescentei um botão nele imprimir, só que eu estou apanhando para fazer a rotina que pegue o os dados atuais da tela(filtre por exemplo o codatual do registro) jogue num relatório, imprima e se possível consiga colocar um mensagem de (deseja imprimir sim ou não) if..

Quem puder me ajudar a resolver, ..
Abraços

[Gustavo]

No evento onClick do botão imprimir coloque o seguinte código:

FormRel_0026 := TFormRel_0026.Create(Application);
Try
FormRel_0026.XNumEdit1.Value := TabGlobal.DORCAMENT.ECF_NUMERO.Conteudo;
FormRel_0026.XNumEdit1.ReadOnly := True;
FormRel_0026.ShowModal;
Finally
FormRel_0026.Free;
end;

No Relatório dos recibos, vá em diálogo e coloque um XNumEdit, para que na programação do botão imprimir do seu formulário ele seja preenchido pelo código do registro atual do recibo.

Ainda no Relatório dos recibos vá em Filtragem e coloque o seguinte código:

(ORCAMENT.ECF_NUMERO = :XNumEdit1)

Mude os campos para a sua necessidade.

[Dimmy Angelo]

begin
if (TabelaPrincipal.Inclusao) or
(TabelaPrincipal.Modificacao) then
begin
MessageDlg('Salve a Venda antes de Imprimir !', mtInformation, [mbOk], 0);
exit;
end;
FormRel_0027 := TFormRel_0027.Create(Application);
Try
FormRel_0027.XNumEdit1.Value := TabGlobal.DVENDAS.ECF_NUMERO.Conteudo;
FormRel_0027.XNumEdit1.ReadOnly := True;
FormRel_0027.ShowModal;
Finally
FormRel_0027.Free;
end;
end;

[andersonkso]

Fiz direitinho , Olha o codigo como ficou:


FormRelRecibo := TFormRelRecibo.Create(Application);
Try
FormRelRecibo.XEdit1.Value := TabGlobal.RECIBO.NUMRECIBO.Conteudo;
FormRelRecibo.XEdit1.ReadOnly := True;
FormRelRecibo.ShowModal;
Finally
FormRelRecibo.Free;
end;

Porem quando mando compilar da o seguinte erro:
Recibos.Pas(1107) Error: Undeclared identifer:' FormRelRecibo' Recibos.pas(1107) Error:Undeclared identifer:''TFormRelrecibo'

Estranho, esta tudo certo até torquei o Xedit1 para XNumEdit1 e continua errado, o relatorio tem esse nome mais dando esse erro acima de variável.., Os amigos tem Ideia onde eu posso estar errando..

[Gustavo]

Você tem que declarar o relatório nas uses do seu form, exemplo:

implementation

{$R *.DFM}

uses Publicas, Princ, Rotinas, RotinaEd, Abertura, GridPesquisa, ITENS_ORCAMENTO, RelRecibo;

[andersonkso]

Ok...
Resolvido....
Era isso mesmo...
Obrigada!!!