Erro quando tento adicionar novo registro
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
Curtidas 0
Respostas
Marco Salles
01/05/2006
troque
para
FmtStr(s, ´¬.5d´, [StrToInt(dbeCodigo.text)]);
para
FmtStr(s, ´¬.5s´, [dbeCodigo.text]);
GOSTEI 0
Mcb
01/05/2006
Amigo obrigado pela dica funcionou blz aqui.
Vlw
Vlw
GOSTEI 0