Onde esta o error da linha de codigo

Delphi

09/10/2003

Caros Amigos

Tenho uma tabela e esta tem os campos PESFISJUR e CGCCLI onde recebe tanto CPF e o CNPJ(do tipo string) esta da seguinte maneira :

ex.: CPF 99999999999 e o CNPJ 99999999999999

gostaria de visualizar no meu relatorio da seguinte maneira
CPF 999.999.999-99 e o CNPJ 99.999.999/9999-99

coloquei esta linha de codigo no Evento OnCalcFields do Query1, mas nao funciona gostaria da ajuda de voces.

IF Query1PESFISJUR.Value = ´J´ THEN
Query1CGCCLI.EditMask:=´!99.999.999/9999-99;0;_´;
IF Query1PESFISJUR.Value =´F´ THEN
Query1CGCCLI.EditMask := ´!999.999.999-99;0;_´;

desde ja valeu...


Tornadofuracao

Tornadofuracao

Curtidas 0

Respostas

Macario

Macario

09/10/2003

ola colega nao sei qual relatorio vc usa mas se for quickreport vc pode estar usando a mascara nele fica ate mais facil

no OnPrint

tenta isso


IF Query1PESFISJUR.Value = ´J´ THEN QRDBtext.mask :=´!99.999.999/9999-99;0;_´; IF Query1PESFISJUR.Value =´F´ THEN QRDBtext.mask := := ´!999.999.999-99;0;_´;



GOSTEI 0
Tornadofuracao

Tornadofuracao

09/10/2003

ola colega nao sei qual relatorio vc usa mas se for quickreport vc pode estar usando a mascara nele fica ate mais facil no OnPrint tenta isso [quote:6d6c17469a] IF Query1PESFISJUR.Value = ´J´ THEN QRDBtext.mask :=´!99.999.999/9999-99;0;_´; IF Query1PESFISJUR.Value =´F´ THEN QRDBtext.mask := := ´!999.999.999-99;0;_´;
[/quote:6d6c17469a]

caro Macario

primeiramente muito obrigado pela dica. estou usando o QuickRep tentei fazer mais nao deu certo. se vc tiver outra dica ficarei muito grato.


GOSTEI 0
POSTAR