Mudar Máscara
Pessoal,
estou tendo um problema quando tento mudar a máscara de um DBEdit...
Tem uma flag com o caption = ´Pessoa Física´. (Linkado ao banco)
Se esta flag for marcada a máscara deverá ser mudada para um formato de CPF ... senão para CNPJ...]
Quando eu marco está dando nada...
Vejam o código e vejam se tem algo errado...
If (DBCheckBox1.Checked) Then
begin
Label1.Caption:=´Nome:´;
Label2.Enabled:=False;
Label4.Enabled:=False;
Label5.enabled:=false;
DBEdit2.Enabled:=False;
DBEdit4.Enabled:=False;
DBEdit5.Enabled:=False;
fCb001.QEmpresasCGHNMCGC.EditMask:=´999.999.999-99;0; ´;
End else
begin
Label1.Caption:=´Nome Fantasia:´;
Label2.Enabled:=True;
Label4.Enabled:=True;
Label5.enabled:=true;
DBEdit2.Enabled:=True;
DBEdit4.Enabled:=True;
DBEdit5.Enabled:=True;
fCb001.QEmpresasCGHNMCGC.EditMask:=´99.999.999/9999-99;0; ´;
end;
Desde já agradecido!
Diego
[color=red:87f4e0fa26][b:87f4e0fa26]Título alterado pelo Moderador oTTo. Removido: ´(Urgente!)´[/b:87f4e0fa26][/color:87f4e0fa26]
estou tendo um problema quando tento mudar a máscara de um DBEdit...
Tem uma flag com o caption = ´Pessoa Física´. (Linkado ao banco)
Se esta flag for marcada a máscara deverá ser mudada para um formato de CPF ... senão para CNPJ...]
Quando eu marco está dando nada...
Vejam o código e vejam se tem algo errado...
If (DBCheckBox1.Checked) Then
begin
Label1.Caption:=´Nome:´;
Label2.Enabled:=False;
Label4.Enabled:=False;
Label5.enabled:=false;
DBEdit2.Enabled:=False;
DBEdit4.Enabled:=False;
DBEdit5.Enabled:=False;
fCb001.QEmpresasCGHNMCGC.EditMask:=´999.999.999-99;0; ´;
End else
begin
Label1.Caption:=´Nome Fantasia:´;
Label2.Enabled:=True;
Label4.Enabled:=True;
Label5.enabled:=true;
DBEdit2.Enabled:=True;
DBEdit4.Enabled:=True;
DBEdit5.Enabled:=True;
fCb001.QEmpresasCGHNMCGC.EditMask:=´99.999.999/9999-99;0; ´;
end;
Desde já agradecido!
Diego
[color=red:87f4e0fa26][b:87f4e0fa26]Título alterado pelo Moderador oTTo. Removido: ´(Urgente!)´[/b:87f4e0fa26][/color:87f4e0fa26]
Diegus
Curtidas 0
Respostas
Wolverine
11/06/2004
If (DBCheckBox1.Checked) Then
checked oq!!!!, entendeu!
checked oq!!!!, entendeu!
GOSTEI 0
Wolverine
11/06/2004
amigo, desculpa
vc esta tentando incluir um registro, se sim, use o radio group da standard
nele vc coloca pessoa fisica e cnpf, dempendendo do caso vc altera o label do dbedit referente a esse campo na sua tabela junto com a masara
if RadioGroup1.ItemIndex = 0 then
label.capiton:=´Pe. fi.´
else
label.capion := ´cnpj´
vc esta tentando incluir um registro, se sim, use o radio group da standard
nele vc coloca pessoa fisica e cnpf, dempendendo do caso vc altera o label do dbedit referente a esse campo na sua tabela junto com a masara
if RadioGroup1.ItemIndex = 0 then
label.capiton:=´Pe. fi.´
else
label.capion := ´cnpj´
GOSTEI 0
Diegus
11/06/2004
If (DBCheckBox1.Checked) Then
checked oq!!!!, entendeu!
Num entendi o q vc quis dizer...
Mas se for o |IF DBCheckBox1.Checked = true) then| eu ja fiz...
GOSTEI 0
Diegus
11/06/2004
amigo, desculpa
vc esta tentando incluir um registro, se sim, use o radio group da standard
nele vc coloca pessoa fisica e cnpf, dempendendo do caso vc altera o label do dbedit referente a esse campo na sua tabela junto com a masara
if RadioGroup1.ItemIndex = 0 then
label.capiton:=´Pe. fi.´
else
label.capion := ´cnpj´
Amigo, eh quase isso... no banco eu tenho um campo com nome CGHNMCGC (numero cgc), mas nesse campo num entrarão soh empresas... entrarao pessoas fisicas... por isso também na tabela tem um campo (flag pessoa fisica) CGHPESFI (Boolean). Se eu clicar nessa flag eu tenho que mudar pra pessoa física...
Falow?
Desde ja agradecido...
Diego
GOSTEI 0
Wolverine
11/06/2004
amigo,
tente isso
if (DBCheckBox1.Checked) Then
begin
label.capiton:=´Pe. fi.´;
DBEdit1.DataField:=´CGHPESFI´
end
else
begin
label.capion := ´cnpj´;
DBEdit1.DataField:=´CGHNMCGC´
end;
entendeu
tente isso
if (DBCheckBox1.Checked) Then
begin
label.capiton:=´Pe. fi.´;
DBEdit1.DataField:=´CGHPESFI´
end
else
begin
label.capion := ´cnpj´;
DBEdit1.DataField:=´CGHNMCGC´
end;
entendeu
GOSTEI 0