Fórum Mudar Máscara #237281
11/06/2004
0
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
Curtir tópico
+ 0Posts
11/06/2004
Wolverine
checked oq!!!!, entendeu!
Gostei + 0
11/06/2004
Wolverine
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
11/06/2004
Diegus
Num entendi o q vc quis dizer...
Mas se for o |IF DBCheckBox1.Checked = true) then| eu ja fiz...
Gostei + 0
11/06/2004
Diegus
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
11/06/2004
Wolverine
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
Clique aqui para fazer login e interagir na Comunidade :)