Erro de Key Violation

Tem certeza q essa funçao esta retornando códigos diferentes para as duas pessoas ?

Olá

vc poderia postar a função pra pegar um novo código.


Silvio Guedes

Daniel conforme o Rjun já informou se vc realmente garante que sua função atribui valores diferente o problema pode estar no Componente Ibtransaction não esta configurado corretamente, Dê dois cliques neste componente vai aparecer uma janela com 3 radio buton seleciona o Radio do Meio não me lembro a descrição agora.

Não.... mas em uma maquina só sempre retorna..... eu tenho o ´ssql´ de inclusão antes de ele executar o sql ele puxa o novo código....

o componente já esta como read-comited...

Em uma maquina ele so vai fazer uma requisição. Ai com certeza ele retorna um numero novo. Você ta usando trigger ? Senão, quando vc pega o novo codigo teria q salvar o codigo novo para que quando a outra maquina pedisse o novo codigo, ele teria o valor correto.

Tipo eu num usu triger....mas logo após pegar o código ele salva seria tipo asism: novocodigo
salvana tabela







qyGeral.sql.clear;
qyGeral.sql.close;
qyGeral.sql.add(´Select max(´+nomecampo+´) as lastcode´);
qyGeral.sql.add(´from ´+nometabela);
qyGeral.Open;
if qyGeral.RecordCount = 0 then
result := 1
else
result := qyGeral.fieldbyname(´lastcode´).asinteger + 1;

Nesse trecho voce esta so pegando o codigo. Não esta salvando. Então deve ser isso q esta acontecendo. Por que você não utiliza Stored Procedure ?

Neste Caso o Registro não esta fisico na tabela, ele só esta lógico portanto outra requisição solicitada não pegara o novo, seria interessante usar uma Trigger neste caso

num esses trecho é so o do codigo.... depois q vem o ´insert into...´
num da pra usar.

depois de executado o sql eu faço o
if trFB.InTransaction then
trFB.Commit;

Quando vc da o Insert vc commita a Tabela? se não o registro só vai estar lógico lá, e o select não pega ele

Tenta mudar o Comando Para:

if trFB.InTransaction then
trFB.CommitRetaining;

qual a diferença entre os dois

Puts a Diferença eu não sei, mas tive um problema desses uma vez e só alterei isso, claro que existe uma propriedade no IBTransaction que vc seta ´TaCommit´ ou ´TaCommitRtaining´ muda para este segundo

Olá

Daniel geralmente num sistema em rede usa-se uma tabela aux para gerar os codigos, pq se vários usuários pedirem a mesma requisição vc não terá problemas com a sequência.

Ex: O segundo a pedir a req. só terá seu código quando o primeiro efutuar a rotina. De preferência use uma Stored Procedure, para garantir que a rotina de gerar um novo codigo seja executada no servidor.

Atenciosamente


Silvio Guedes

Tipo se eu estiver com a transação aberta ele não pode abrir outra ou pode?

Use generators para garantir que os números sejam realmente únicos

Olá

geralmente neste caso usamos uma tabela auxiliar para gerar codigos automaticamente. Quando vários usuários pedem uma requisição para criar um novo registro, o segundo em diante só poderá receber um novo código quando o primeiro efetuar a rotina que deve ser uma Stored Procedure que está no servidor. Desta forma não haverá Key Violation.

Atenciosamente


Silvio Guedes

Olá

desculpe a redundância pois pensei que não havia postado a resposta anterior.

Silvio Guedes