Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
Tem um sistema aq q fiz uma mascara no dbedit de acordo com a opção escolhida no combobox, ai quando muda o combobox a mascara do dbedit muda tudo bunitinho, ai agente vai la coloca o cpf bunitinho, e na hora de grava....NADA..fdp
Oque q ta pegando ? vo posta o código do salvar aq e do combobox:
----------------------------------------------------------------
procedure TF_CCliente.BtSalvarClick(Sender: TObject);
begin
PageControl2.ActivePage := TabSheet4;
PageControl1.ActivePage := TabSheet1;
Verificabotao(0);
Gravadados;
DM.IBQCliente.Close;
DM.IBQCliente.SQL.Clear;
DM.IBQCliente.SQL.Add('select * from cliente order by cli_nome' );
DM.IBQCliente.Open;
lcodigo.Caption:='000000000';
ldtinclusao.Caption:='00/00/0000';
ldtatualizacao.Caption:='00/00/0000';
end;
--------------------------------------------
procedure TF_CCliente.eComboBoxChange(Sender: TObject);
begin
if (eComboBox.text = 'Pessoa Física') then
begin
DM.IBQClienteCLI_CPF.EditMask:='000\.000\.000-00;0;'
end;
if (eComboBox.Text = 'Pessoa Jurídica') then
begin
DM.IBQClienteCLI_CPF.EditMask:='00\.000\.000\/0000-00;0;'
end;
end;Carregando comentários...