Fórum Erro quando tento adicionar novo registro #320310
01/05/2006
0
Tenho uma tela de Cadastro de cliente, mas quando uso o botao novo/incluir da a seguinte mensagem de erro ´não eh um valor inteiro valido´
Estou usando Interbase e o campo na tabela cliente esta como Interger
esse eh o codigo do botao
Obs. se eu anular a linha do FmtStr(***********) ele funciona normal
Estou usando Interbase e o campo na tabela cliente esta como Interger
esse eh o codigo do botao
procedure TfrmClientes.XiButton1Click(Sender: TObject);
var
s:String;
begin
if (DM.tbClientes.RecordCount=0)
then begin
DM.tbClientes.Append;
dbecodigo.text:=´00001´;
DM.tbClientes.Post;
FmtStr(s, ´¬.5d´, [StrToInt(dbeCodigo.text)]);
dbeCodigo.text := s;
DM.tbClientes.Edit;
DBEnome.setfocus
end else begin
DM.tbClientes.Append;
tbAutoInc(DM.tbClientes, ´Codigo´);
FmtStr(s, ´¬.5d´, [StrToInt(dbeCodigo.text)]);
dbeCodigo.text := s;
DM.tbClientes.Post;
DM.tbClientes.Edit;
DBEnome.setfocus;
end;
end;
Obs. se eu anular a linha do FmtStr(***********) ele funciona normal
Mcb
Curtir tópico
+ 0
Responder
Posts
01/05/2006
Marco Salles
troque
para
FmtStr(s, ´¬.5d´, [StrToInt(dbeCodigo.text)]);
para
FmtStr(s, ´¬.5s´, [dbeCodigo.text]);
Responder
Gostei + 0
01/05/2006
Mcb
Amigo obrigado pela dica funcionou blz aqui.
Vlw
Vlw
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)