Erro ao salvar registro no Interbase... - O que devo fazer?

Delphi

14/02/2003

:?: :( Criei um campo chamado código do tipo integer. - E coloquei
um código p/ que ao clickar no botao insert do DBNavigator,
ele pega o último código e acrescenta + 1. - Ele mostra
o código seguinte normalmente, e após pressionar o botão
post do DBNavigator, ele tráz a seguinte mensagem:

Project vendas raised exception class EDataSetError
with
message ´arithmetic exception, numeric overflow, or
string
truncation Cannot transliterate character between character
sets´. Process stopped. Use Step or Run to continue.

Código do DBNavigator (Evento on Click)...

var codigo : longint;
begin
if (button = (nbInsert)) then
begin
with ds_locador do
begin
if not Isempty then
begin
last;
codigo := fieldByName(´codigo´).asInteger + 1;
end
else
codigo := 1;
Insert;
fieldByName(´codigo´).asInteger := codigo;
end;
DBEdit2.SetFocus;
end;

O que devo fazer, para resolver este problema!!!


Anonymous

Anonymous

Curtidas 0
POSTAR