Mi generador me incrementa doble y no de a 1

[Tcmn]

Estoy haciendo pruebas y curiosamente cuando doy de alta un registro y lo cancelo al generar otro registro me da el sig valor y luego lo cancelo y al dar de alta otro valor me vuelve a dar el sig. Ejemplo
Clave usuario
Ejecuto Insert 1 juan
Cancel
Ejecuto Insert 2 Lpez
Cancel
Ejecuto Insert 3 juana
Cancel
Ejecuto Insert 4 Luis
Post
Ejecuto Insert 6 Luisito (si notas como antes guarde me lo dobla)
Post


Saludos

[Casimiro Noteví]

Si lo das de alta, el generador avanza, aunque luego lo canceles.
Supongo que con "cancelar" te refieres a hacer un rollback. Pero el 'beforeinsert' ya se ha ejecutado y ha avanzado el generador.

[Tcmn]

Empezado por Casimiro Notevi

Si lo das de alta, el generador avanza, aunque luego lo canceles.
Supongo que con "cancelar" te refieres a hacer un rollback. Pero el 'beforeinsert' ya se ha ejecutado y ha avanzado el generador.

Estoy de acuerdo con eso pero aun mi incognita es ¿por qué dobla el valor cuando sí guardo?

Saludos

[guillotmarc]

¿ Estas totalmente seguro que no llamas a estos mismos generadores en ningún otro sitio ?.

¿ Quizás en algunto evento AfterPost en Delphi ?.

[Tcmn]

Probe directo en IBExpert y obviamente ahi todo va bien. En delphi sigue igual.
las unicas lineas de codigo que tengo en el IBDataSet ligado a tabla AYUDANTES
es:

procedure TDataModule2.IBAyudantesAfterCancel(DataSet: TDataSet);
begin
DataModule2.IBTransaction1.RollbackRetaining;
end;

procedure TDataModule2.IBAyudantesAfterDelete(DataSet: TDataSet);
begin
DataModule2.IBTransaction1.CommitRetaining;
end;

procedure TDataModule2.IBAyudantesAfterPost(DataSet: TDataSet);
begin
DataModule2.IBTransaction1.CommitRetaining;
end;

procedure TDataModule2.IBAyudantesNewRecord(DataSet: TDataSet);
begin
IBAyudantesCVEPERSONA.Value:=IBPersonasCVEPERSONA.Value;
end;//Esta linea es porq es una tabla detalle de la tabla maestra "PERSONAS"

En el IBDatabase y el IBTransaction al que esta ligado no he puesto una linea de codigo.
No se si sea alguna propiedad que deba modificar o que.

Disculpen mi ignorancia pero es la primera vez que trabajo con Firebird.

[[Al González]]

El disparador no valida si el campo ya viene con valor. Una buena práctica es añadir un If al código del disparador para no darle valor al campo si éste ya trae uno.

Tcmn no ha dicho qué componentes de acceso está utilizando, pero según lo que comenta sobre las altas y los cancels, estoy casi seguro que:

1. Usa un evento OnNewRecord / AfterInsert de esos componentes para llamar al generador.

o bien:

2. Está utilizando IBX con la propiedad GeneratorField.ApplyEvent = gamOnNewRecord (lo cual no es mala idea).

Si fuera lo anterior, para resolver el problema creo que bastaría con añadir el clásico "IF (NEW.ID IS NULL) THEN" a los disparadores. A menos que a Tcmn le interese que esas claves sean consecutivas (algo que no debería ser requisito en una llave primaria ).

Saludos.

Al González.

P.D. Acabo de ver su nuevo comentario donde nos indica que sí está utilizando IBX. Tcmn, ¿cómo estás utilizando la propiedad GeneratorField del componente de datos?

[Tcmn]

Asi es el asunto era poner On server en la propiedad que dice Al Gonzalez.
Asunto solucionado muchas gracias y saludos

[guillotmarc]

En el futuro no está de más hacer los triggers como ha propuesto Al (te habrías ahorrado este problema, aunque es mejor haberlo tenido y saber exactamente donde estás asignando la clave primaria).

Es decir :

Código SQL [-]
CREATE OR ALTER TRIGGER G_CVEEQUIPO_BI FOR EQUIPOS
ACTIVE BEFORE INSERT POSITION 0
AS
begin
if (NEW.vceequipo is null) then NEW.cveequipo=gen_id(gen_equipos_id,1);
end