registro current y bookmarks

[charly]

Hola,

He mirado tu codigo, y el post que te falla lo usas para rellenar la variable cCodigo, no?

Mira yo he probado lo siguiente :
// EN FIREBIRD
en una tabla de articulos tengo un campo CODIGO_BARRAS que se rellena en un After Insert de la tabla ARTICULO con el siguiente codigo, lo cual creo que funciona igual que lo que tu haces con tu generador;

/* asignacion automatica del codigo de barras */
execute procedure a_art_asigna_cb(new.empresa)
returning_values new.codigo_barras;


// EN DELPHI
en el AfterPost de ARTICULO

procedure TDMArticulos_Alm.QArticuloAfterPost(DataSet: TDataSet);
begin
if lNuevo then
begin
Graba(DataSet);
end;
lNuevo := false;

// ME MUESTRA EL CODIGO (AQUI PODRIAS TU, DAR VALOR A cCodigo, no?

showmessage(QArticuloCODIGO_BARRAS.AsString);
??
cCodigo := TbEconoCODIGO.Value;

// sistema de propagación entre empresas
with SPPropagacion do
begin
ParamByName('empresa').Value := EMPRESA;
ParamByName('referencia').Value := QArticuloREFERENCIA.Value;
ExecProc;
Close;
TLocal.CommitRetaining;
end;

end;

procedure TDMArticulos_Alm.Graba(DataSet: TDataSet);
begin
TpFIBDataSet( DataSet ).Transaction.CommitRetaining ;
end;

Yo uso Firebird + FIBPlus + Delphi 7

No se es un ejemplo que se me ha ocurrido, para probar.
Dime algo, (esto lo arreglamos ya por cabezoneria :-))
Un saludo.