Transaciones IBX

[Loviedo]

Este es el procedimiento

Código Delphi [-]
Procedimiento P_INCFAMILIA
EGIN
  UPDATE codigos SET familia=familia+1;
END

El problema es que en el bucle, no se incrementa el 'FDM.CodigosFAMILIA.AsInteger' y me sale
violación clave primaria al insertar el siguiente registro.
'FDM.CodigosFAMILIA.AsInteger' se refresca después del commit.
Gracias.

[kalimero]

Hola.
En mi opinion deberias llevar el incremento del Codfamilia fuera del procedimiento.Me refiero a que lo Incrementes tu por codigo

Saludos

[rastafarey]

Usa un generador.

Si el generador se llama gen_Id_familia

Haces Un select

Código SQL [-]
Select Gen_id(gen_Id_familia, 0) From rdb$datbase
Select Gen_id(gen_Id_familia, 1) From rdb$datbase

El primero te saca el valor actual
y el otro incrmente en uno.

y el error te ocurre ya que el valor se esta incrementando dentro del procedimiento y no fuera como te didjeron anteriormente.

[Loviedo]

Muchas gracias por las respuestas.
Me inclinaré por uno de los métodos indicados.
Saludos.

[AGAG4]

Te Recomiendo usar la propiedad CachedUpdates en los IBDataSet sobre la realción maestro detalle que comentas, cuando guardes en vez de usar el POST lo cambias por CachedUpdates, y cuando vayas a aceptar la transacción primero Grabas el Detalle y posteriormente el Maestro, si me preguntas porque, te respondo asi me funcionó, que debería de ser primero el Maestro y después el Detalle y por último Aceptas la transacción....

Saludos....

[Loviedo]

¡ ya lo conseguí !. No se si es muy ortodoxo pero...

Código Delphi [-]
   if not FDM.FamiliaT.IsEmpty then
     begin
       FDM.FamiliaT.First;
       while not FDM.FamiliaT.Eof do
         begin
           FDM.PFamilia.StoredProcName:='P_ALTAFAMILIA';
           FDM.PFamilia.ParamByName('mCod').value := codigoficha;
           FDM.PFamilia.ParamByName('mCodf').value:= FDM.CodigosFAMILIA.AsInteger;
           FDM.PFamilia.ParamByName('mNom').value:= FDM.FamiliaTNombre.text;
           FDM.PFamilia.ParamByName('mApell').value := FDM.FamiliaTApellidos.text;
           FDM.PFamilia.ParamByName('mEdad').value := FDM.FamiliaEDAD.asinteger;
           FDM.PFamilia.ParamByName('mDoc').value := FDM.FamiliaTDocumentos.asinteger;
           FDM.PFamilia.ParamByName('mSit').value := FDM.FamiliaTSituacion.asinteger;
           FDM.PFamilia.ParamByName('mParent').value := FDM.FamiliaTParentesco.Text;
           FDM.PFamilia.ExecProc;
           FDM.Incrementa.StoredProcName:='P_INCFAMILIA';
           FDM.Incrementa.ExecProc;
           FDM.codigos.Close;
           FDM.codigos.Open;
           FDM.FamiliaT.Next;
         end;
     end;

Gracias por todo.

[rastafarey]

Recuerda que en un entorno mmulti usuraio si no usas generadores para el id primario te puede dar bloques muertos. o Conflitos de claves devido al control transacional.