No actualiza IBQ

[trex2000]

Saludos:
Estoy haciendo un pequeño sistema de inventarios pero al mandar actualizar en el catalogo de articulos no hace las modificaciones que le indico, me deja el registro tal y como estaba grabado, o sea no lo modifica.

Alguien me podria ayudar?

El codigo que utilizo es el siguiente:

Primero verifico el estado de la transaccion:

If Not Modulo.IBTrans.InTransaction Then
Modulo.IBTrans.StartTransaction;

Despues ejecuto este procedimiento

Procedure TFCatArt.GrabarCambios;
Var
Id,Activo:Integer;
Begin
//hola
If CheckBox1.Checked Then
Activo:=0
Else
Activo:=1;
Id:=Modulo.IBQ_Consultas.FieldByName('Id').AsInteger;
//
Modulo.IBQ_Articulos.Close;
Modulo.IBQ_Articulos.SQL.Clear;
Modulo.IBQ_Articulos.SQL.Add('Update Articulos');
Modulo.IBQ_Articulos.SQL.Add('Set Descripcion=:Nombre1,Precio1=:PP1,Precio2=:P11,Precio3=:P21,Precio4=:P31,ExistSolo=:ExistSolo1,Exist Jgo=:ExistJgo1,Activo=:Activo1,Impuesto=:Imp1');
Modulo.IBQ_Articulos.SQL.Add('Where Id=:Id1 And Clave=:Clave1');
Modulo.IBQ_Articulos.Params.Clear;
Modulo.IBQ_Articulos.Params.CreateParam(ftString,'Nombre1',ptInput);
Modulo.IBQ_Articulos.Params.CreateParam(ftInteger,'Id1',ptInput);
Modulo.IBQ_Articulos.Params.CreateParam(ftString,'Clave1',ptInput);
Modulo.IBQ_Articulos.Params.CreateParam(ftString,'Activo1',ptInput);
Modulo.IBQ_Articulos.Params.CreateParam(ftFloat,'PP1',ptInput);
Modulo.IBQ_Articulos.Params.CreateParam(ftFloat,'P11',ptInput);
Modulo.IBQ_Articulos.Params.CreateParam(ftFloat,'P21',ptInput);
Modulo.IBQ_Articulos.Params.CreateParam(ftFloat,'P31',ptInput);
Modulo.IBQ_Articulos.Params.CreateParam(ftInteger,'ExistSolo1',ptInput);
Modulo.IBQ_Articulos.Params.CreateParam(ftInteger,'ExistJgo1',ptInput);
Modulo.IBQ_Articulos.Params.CreateParam(ftFloat,'Imp1',ptInput);
Modulo.IBQ_Articulos.ParamByName('Nombre1').AsString:=Edit_Descr.Text;
Modulo.IBQ_Articulos.ParamByName('Id1').AsInteger:=Id;
Modulo.IBQ_Articulos.ParamByName('Clave1').AsString:=Edit_Clave.Text;
Modulo.IBQ_Articulos.ParamByName('Activo1').AsInteger:=Activo;
Modulo.IBQ_Articulos.ParamByName('PP1').AsFloat:=StrToFloat(Edit_PP.Text);
Modulo.IBQ_Articulos.ParamByName('P11').AsFloat:=StrToFloat(Edit_P1.Text);
Modulo.IBQ_Articulos.ParamByName('P21').AsFloat:=StrToFloat(Edit_P2.Text);
Modulo.IBQ_Articulos.ParamByName('P31').AsFloat:=StrTofloat(Edit_P3.Text);
Modulo.IBQ_Articulos.ParamByName('ExistSolo1').AsInteger:=0;
Modulo.IBQ_Articulos.ParamByName('ExistJgo1').AsInteger:=0;
Modulo.IBQ_Articulos.ParamByName('Imp1').AsFloat:=StrTofloat(Edit_IVA.Text);
Modulo.IBQ_Articulos.ExecSQL;

End;

De antemano muchas gracias.

[luisgutierrezb]

y donde le das commit a la transaccion?

[trex2000]

Despues de ejecutar el procedimiento.

Verifico TRansaccion
Procedimiento
Commit a la tranasaccion.