Por que isso - quot; ´is not a valid integer value´
:shock:
Uso Delphi 5.0 e Paradox 7.0
- Em meu form uso um RadioGroup
- No RadioGroup coloquei 2 DBEdits, um pra CPF e outro pra CNPJ
- Em minha tabela declarei CPF alpha 11 / CNPJ alpha 14
O que ocorre é o seguinte:
- Seleciono o CPF e digito no DBEdit correspondente, porém não gravo e apago o conteúdo do DBEdit do CPF e seleciono o CNPJ é nesse momento que dá esta mensagem: ´ ´is not a valid integer value´ .
POR QUE ISSO ??????
Uso a seguinte sintaxe no RadioGroup:
with TbCadConv do
if dbRadioGroup1.ItemIndex=0 then
begin
dbedit1.color := clWindow;
dbedit17.readonly := false;
dbedit17.text := ´´;
dbedit17.SetFocus;
dbedit1.readonly := true;
dbedit1.tabstop := false;
dbedit1.color := clbtnface;
end
else
if dbRadioGroup1.ItemIndex=1 then
begin
dbedit1.color := clWindow;
dbedit1.readonly := false;
dbedit1.text := ´´;
dbedit1.setfocus;
dbedit17.readonly := true;
dbedit17.tabstop := false;
dbedit17.color := clbtnface;
end;
Desde já agradeço pela ajuda...
Jota
Uso Delphi 5.0 e Paradox 7.0
- Em meu form uso um RadioGroup
- No RadioGroup coloquei 2 DBEdits, um pra CPF e outro pra CNPJ
- Em minha tabela declarei CPF alpha 11 / CNPJ alpha 14
O que ocorre é o seguinte:
- Seleciono o CPF e digito no DBEdit correspondente, porém não gravo e apago o conteúdo do DBEdit do CPF e seleciono o CNPJ é nesse momento que dá esta mensagem: ´ ´is not a valid integer value´ .
POR QUE ISSO ??????
Uso a seguinte sintaxe no RadioGroup:
with TbCadConv do
if dbRadioGroup1.ItemIndex=0 then
begin
dbedit1.color := clWindow;
dbedit17.readonly := false;
dbedit17.text := ´´;
dbedit17.SetFocus;
dbedit1.readonly := true;
dbedit1.tabstop := false;
dbedit1.color := clbtnface;
end
else
if dbRadioGroup1.ItemIndex=1 then
begin
dbedit1.color := clWindow;
dbedit1.readonly := false;
dbedit1.text := ´´;
dbedit1.setfocus;
dbedit17.readonly := true;
dbedit17.tabstop := false;
dbedit17.color := clbtnface;
end;
Desde já agradeço pela ajuda...
Jota
Jota
Curtidas 0
Respostas
Anonymous
17/03/2003
Experimente colocar
ao invez de
dbedit99.text := ´´;
coloque
dbedit99.text:=´0´;
OK
ao invez de
dbedit99.text := ´´;
coloque
dbedit99.text:=´0´;
OK
GOSTEI 0
Anonymous
17/03/2003
Vc está fazendo a verificação do CPF e do CNPJ ...???
Pode estar ficando a mascara.....
Pode estar ficando a mascara.....
GOSTEI 0
Marcelo
17/03/2003
Isso pode ocorrer se vc estiver usando algum tipo de fomatacao,,, no caso se estiver usando algum tipo de formatacao.. faça com que ela so seje valida se estiver totalmente preenchida, caso contrario exibe uma mensagem e limpa o campo!
GOSTEI 0