Problema en el uso de Transacciones

[AGAG4]

Con respecto al Guardado en la Cache del ibDataset, el problema que tengo ahora, es que en la llave primaria del Detalle es Serie+Folio+Indice, donde indice es un consecutivo, donde cada vez de que se inserte un nuevo registro va tomando el Siguiente, esto lo hacia por medio de un Procedimiento Almacenado, pero ahora que no se va a la BD si no a la Cache quize hacer la prueba del cual muestro a continuación:

Código Delphi [-]
....
var
Marca:TBookMark;
eve:TDataSetNotifyEvent;
begin
with dmFactBabatsa do begin
BookMarkDFAC:=true;
if tDFacturas.RecordCount<1 then
result:=1
else begin
try
eve:=tDFacturas.BeforePost;
tDFacturas.BeforePost:=Nil;
Marca:=tDFacturas.GetBookMark;
tDFacturas.DisableControls;
{Empieza la Acción....}
{AQUI MARCA ERROR, ES DECIR LLAMA AL EVENTO BEFORE POST}
{E INTENTA HACER EL POST Y MARCA ERROR EN CAMPO INDICE QUE LLAVE}
{PRIMARIA ESTA INCOMPLETA, AUN ASI ENTRA AL EVENTO AUNQUE }
{ANTERIORMENTE LE HAYA PASADO EL VALOR NIL}
tDFacturas.First;
 
while not tDFacturas.Eof do begin
result:=tDFacturasINDICE.value+1;
tDFacturas.Next;
end;
{Finaliza la Acción....}
tDFacturas.GotoBookMark(Marca);
{Tomar Posición Original}
tDFacturas.EnableControls;
tDFacturas.BeforePost:=Eve;
finally
tDFacturas.FreeBookmark(Marca);
end;
end;
BookMarkDFAC:=false;
end;

Sugerencias para Tomar Totales de Factura ó Tomar el Indice Consecutivo dentro de la Cache????

Agredezco cualquier sugerencia.