Campo contador o que esta errado?

Delphi

15/02/2003

Por favar amigos.
Quero criar um campo que incremenet o codigo. Esta aparencendo esse erro.

Project.exe exception class econverterror
with messge ´is not integer value process stopped´

procedure TformForn.btnAdicionarClick(Sender: TObject);
var
NovoCodigo:integer;
begin
Posicao1;
limpatela;
edtrazaoSocial.setfocus;
{novoCodigo:=strtoint(dmBasedados1.TblTabelaSistemaCodigoFornecedor.asString);
NovoCodigo:=NovoCodigo + 1;
DmBaseDados1.tblTabelaSistema.edit;
edtCodigo.text:=Inttostr(NovoCodigo);
DmBasedados1.tblTabelaSistemaCodigoFornecedor.AsString:= edtCodigo.text;
dmBaseDados1.tblTabelaSistema.Post;}


end;


Anonymous

Anonymous

Curtidas 0

Respostas

Anonymous

Anonymous

15/02/2003

crie uma váriavel publica
[b:cf3f2c8b08]varcod:integer;[/b:cf3f2c8b08]
depois coloque no evento [b:cf3f2c8b08]onbeforeinsert [/b:cf3f2c8b08]do table onde está a tabela assim.

[i:cf3f2c8b08]table.last;//[/i:cf3f2c8b08]posiciona no fim da tabela
[i:cf3f2c8b08]varcod:=tableCODIGO.asinteger; [/i:cf3f2c8b08]///onde CODIGO é o nome do campo onde vc quer gerar o ´contador´ [campo autonumeração].

depois coloque no evento onnewrecord do mesmo table assim

[i:cf3f2c8b08]table.edit
table.COIDGO:=varcod+1;[/i:cf3f2c8b08]

que q eu fiz??
posicionei no ultimo registro, peguei o codigo dele, e ao adicionar um novo somei 1 no codigo do ultimo ..

boa sorte cara


Fernando Souza
Votorantim/Sp


GOSTEI 0
POSTAR