Lay-out X Dialogo (Relatorio)
Enviado: Agosto 8th, 2011, 11:39 am
por Adilson
Prezados,
No Dialogo do relatório tenho uma variavel [XDateEit1], como faço para passar no cabeçalho de pagina do lay-out.
Agradeço a ajuda.
Adilson
Re: Lay-out X Dialogo (Relatorio)
Enviado: Agosto 9th, 2011, 9:05 am
por amauri
Olá, sou usuário da versão 5 no meu caso alterei a procedure funcoes extras
procedure TFormRelPagamentos.FuncoesExtras(const Name: string; p1, p2,
p3: Variant; var Val: string);
var
tit: string;
begin
if frParser.Calc(p1) = null then
exit;
{AGA}
tit := 'Relatório de compromissos a pagar (Data)';
//se for incluir radio group de selecao...
if (rbTipo.ItemIndex <> -1) then
begin
if (rbTipo.ItemIndex = 0) then
tit := 'RELA????O DE COMPROMISSOS A PAGAR (Data)'
else
tit := 'RELA????O DE COMPROMISSOS PAGOS (Data)'
end;
if Name = 'TITULO' then
// linha original Val := quotedStr(LbTituloForm.Caption)
Val := quotedStr(tit)
else if Name = 'EMPRESA' then
Val := quotedStr(Sistema.EmpresaUsr)
else if Name = 'VERSAO' then
Val := quotedStr(Sistema.Versao)
else if Name = 'SISTEMA' then
Val := quotedStr(Sistema.Titulo)
//se for incluir parametros do usuário ...
else if (Name = 'DATAINICIAL') then
if (vusr_1.DateText <> '00/00/0000') then
Val := quotedStr(vusr_1.Text)
else
Val := '01/01/1900'
else if (Name = 'DATAFINAL') then
if (vusr_2.DateText <> '00/00/0000') then
Val := quotedStr(vusr_2.Text)
else
Val := '01/01/2999'
{AGA}
else if Name = 'MASCVALOR' then
Val := '''' + MascValor(frParser.Calc(p1), frParser.Calc(p2)) + ''''
else if Name = 'CONSTSTR' then
Val := '''' + ConstStr(frParser.Calc(p1), frParser.Calc(p2)) + ''''
else if Name = 'RETIRABRANCOS' then
Val := '''' + RetiraBrancos(frParser.Calc(p1)) + ''''
else if Name = 'PADR' then
Val := '''' + PadR(frParser.Calc(p1), frParser.Calc(p2)) + ''''
else if Name = 'PADL' then
Val := '''' + PadL(frParser.Calc(p1), frParser.Calc(p2)) + ''''
else if Name = 'CENTER' then
Val := '''' + Center(frParser.Calc(p1), frParser.Calc(p2)) + ''''
else if Name = 'SPACE' then
Val := '''' + Space(frParser.Calc(p1)) + ''''
else if Name = 'POREXTENSO' then
Val := '''' + PorExtenso(frParser.Calc(p1)) + ''''
else if Name = 'STRZERO' then
Val := '''' + StrZero(frParser.Calc(p1), frParser.Calc(p2)) + ''''
else if Name = 'FORMATMASKTEXT' then
Val := '''' + FormatMaskText(frParser.Calc(p1), frParser.Calc(p2)) + ''''
else if Name = 'MASCTEXTO' then
Val := '''' + MascTexto(frParser.Calc(p1), frParser.Calc(p2)) + ''''
else if Name = 'MASCDATA' then
Val := '''' + FormatDateTime(frParser.Calc(p2), frParser.Calc(p1)) + ''''
else if Name = 'CALCC_0' then
Val := '''' + FloatToStr(CalcC(frParser.Calc(p1), frParser.Calc(p2), frParser.Calc(p3), 0)) + ''''
else if Name = 'CALCC_1' then
Val := '''' + FloatToStr(CalcC(frParser.Calc(p1), frParser.Calc(p2), frParser.Calc(p3), 1)) + ''''
else if Name = 'CALCC_2' then
Val := '''' + FloatToStr(CalcC(frParser.Calc(p1), frParser.Calc(p2), frParser.Calc(p3), 2)) + ''''
else if Name = 'CALCC_3' then
Val := '''' + FloatToStr(CalcC(frParser.Calc(p1), frParser.Calc(p2), frParser.Calc(p3), 3)) + ''''
else if Name = 'CALCC_4' then
Val := '''' + FloatToStr(CalcC(frParser.Calc(p1), frParser.Calc(p2), frParser.Calc(p3), 4)) + ''''
else if Name = 'CALCC_5' then
Val := '''' + FloatToStr(CalcC(frParser.Calc(p1), frParser.Calc(p2), frParser.Calc(p3), 5)) + ''''
end;
e no cabecalho no campo que quero incluir coloco a chamada
[DATAINICIAL('',Nil,Nil,'')]
t+