Error "Transaction is not Active"

[[Lepe]]

El IBScript ¿tiene asignado el Transaction?

Yo usaría este código:

Código Delphi [-]
if Datamodule.Transaction.Intransaction then
  Datamodule.Transaction.Commit;

Datamodule.Transaction.StartTransaction;
        IBTableInfo.Edit;
      IBTableInfo.FieldByName('VERSIONDB').value:=sigVersion(floattostr(version));
        IBTableInfo.Post;
if Datamodule.Transaction.Intransaction then
  Datamodule.Transaction.Commit;

No es un código optimizado, pero si es muy seguro en cuanto a transacciones activas.

Lo hago así, porque al hacer un post, puede que se haga un Commit en la transacción, (por el AutoCommit del TDatabase) o tu configuración

Saludos

[Mfi]

Pues muchas gracias.. ya está, si te soy sincero al ver tu respuesta pensé que no serviría, pues había probado practicamente lo mismo sin el if y el error me seguía dando en el post... peeeero.. he probado tu codigo al que he tenido que añadir un IbTableInfo.open; despues del transaction.StartTransaction y tatachaaaan!!!..

Por si a alguien le interesa mi codigo final ha quedado así, ni me molesto en depurar pues esta operación posiblemente se ejecute una vez al año con que funcione vale.

Código Delphi [-]
   if IbTransaction1.Intransaction then
              IbTransaction1.Commit;
        IbTransaction1.StartTransaction;    
        IBTableInfo.open;
        IBTableInfo.Edit;
        IBTableInfo.FieldByName('VERSIONDB').value:=sigVersion(floattostr(version));
        IBTableInfo.post;
        IBTableInfo.Transaction.commitretaining;
        showmessage(IBTableInfo.FieldByName('VERSIONDB').AsString);

Bueno.. muchisimas gracias otra vez