Fórum Xmaker

Como usar o script no free report ? Ou seja,
Se o campo DATA_VENCIMENTO estiver preenchido então escreve a data.

Estou usando assim, mais ocorre um erro caso o campo PA_DATA esteja com algum valor (com a data preenchida)

if [MascData([DT_PARC_BOLETOS."PA_DATA"], 'dd/mm/yyyy')] <> 0 then
Memo21.Text := 'Vencimento : '+[MascData([DT_PARC_BOLETOS."PA_DATA"], 'dd/mm/yyyy')]
else
Memo21.Text := 'Vencimento : '+'___/___/_____.'

Alguma solução ?

olá,

Manipular datas sempre foi uma tarefa que parece simples, mas sempre tem os seus complicadores...
resolvemos os problemas de campos datas em relatórios com campos calculados com fómulas.

Crie um campo calculado na sua tabela de boletos com uma instrução semelhante a baixo:

{ inicio do código campo datarelcalc}
result:='___/___/_____';

if TabGlobal.DT_PARC_BOLETOS.PA_DATA.Conteudo<>null then
result:='___/___/_____';


if TabGlobal.DT_PARC_BOLETOS.PA_DATA.Conteudo='' then
result:='___/___/_____';

try

if (TabGlobal.DT_PARC_BOLETOS.PA_DATA.Conteudo<>'') and
(TabGlobal.DT_PARC_BOLETOS.PA_DATA.Conteudo<>null) then
result:=copy(DT_PARC_BOLETOS.PA_DATA.Conteudo,1,2)+'/'+
copy(DT_PARC_BOLETOS.PA_DATA.Conteudo,3,2)+'/'+
copy(DT_PARC_BOLETOS.PA_DATA.Conteudo,5,4);

except
result:='___/___/_____';

end;

{ fim código }

Pode ser feito via Script, porém a margem de erros em tempo de execução é grande devido a falta de tratamento de erros.

Recomendo usar o método acima.

Caso algum usuário conheça alguma forma mais "elegante" de transpor o uso de datas em relatórios( mesmo sendo nulas ou "em branco" ), sinta-se a vontade para continuar este tópico, expondo suas sugestões e experiências.

Não sei dizer se é mais "elegante", agora que que a função abaixo é mais prática "Sim", e "Funciononal".

Resolvi da seguinte forma:

if [MascData([DT_PARC_BOLETOS."PA_DATA"], 'dd/mm/yyyy')] <> '0' then
Memo21.text := 'Vencimento : '+[MascData([DT_PARC_BOLETOS."PA_DATA"], 'dd/mm/yyyy')]
else
Memo21.text := 'Vencimento : ___/___/_____'