Campo Codigo Contador

[Eder]

Ola..pessoal

eu sempre usava no paradox o campo codigo contador da tabela autoincremento...sempre usei.... e os programas funcionavam na rede sem problemas com várias pessoas usando sem problemas..

agora fiz uma tela de lançamentos e mudei deixando de usar o autoincremento e usando um contador do tipo Integer....

assim no botão de NOVO REGISTRO:

procedure TFormCVisita.XiButton1Click(Sender: TObject);

var

proxnum: integer; // variavel para inserir um proximo numero

begin

if application.messagebox('Deseja Incluir um Novo Registro?','Aviso',36)=idYes

then

begin

table1.Last;

ProxNum:= table1.fieldbyName('CODIGO').AsInteger +1;

table1.Append;

table1.FieldByName('CODIGO').AsInteger :=ProxNum;

EditData.SETFOCUS;

//EditCnpj.text:=''; // DEPOIS DE INSERIDO ESTE SERÁ O CAMPO DO FOCO

end else

table1.cancel; //CANCELA OPERAÇÃO

end;

nO botão de gravar assim:

table1.Post;

é um programinha simples de lançamentos de controle de visitas de vendedores...mas preciso que ele seja multiusuario.....e agora duas pessoas foram usar e deu erro de

KEY VIOLATION

alguém poderia me dizer como resolver esta Pepa??

muito Grato

[Micheus]

Ola..pessoal

eu sempre usava no paradox o campo codigo contador da tabela autoincremento...sempre usei.... e os programas funcionavam na rede sem problemas com várias pessoas usando sem problemas..

agora fiz uma tela de lançamentos e mudei deixando de usar o autoincremento e usando um contador do tipo Integer....

assim no botão de NOVO REGISTRO:

procedure TFormCVisita.XiButton1Click(Sender: TObject);

var

proxnum: integer; // variavel para inserir um proximo numero

begin

if application.messagebox('Deseja Incluir um Novo Registro?','Aviso',36)=idYes

then

begin

table1.Last;

ProxNum:= table1.fieldbyName('CODIGO').AsInteger +1;

table1.Append;

table1.FieldByName('CODIGO').AsInteger :=ProxNum;

EditData.SETFOCUS;

//EditCnpj.text:=''; // DEPOIS DE INSERIDO ESTE SERÁ O CAMPO DO FOCO

end else

table1.cancel; //CANCELA OPERAÇÃO

end;

nO botão de gravar assim:

table1.Post;

é um programinha simples de lançamentos de controle de visitas de vendedores...mas preciso que ele seja multiusuario.....e agora duas pessoas foram usar e deu erro de

KEY VIOLATION

alguém poderia me dizer como resolver esta Pepa??

Eder, vale a dica deste outro post.

Abraços

[Eder]

Ok...hoje vou dar uma pesquisada...valeu t+

:D