Error al insertar registro

[[egostar]]

Bueno, pues ya quedo, lo hice como me sugeriste Caral, muchas gracias.

Resulta que tuve que agregar otro IBTransaction asigne esa transaccion a mi IBQuery y ya funcionó.

Sin embargo, no pude usarlo con el IBTable, desconozco la causa, pero en cuanto encuentre el problema lo posteare.

Bueno, aqui pongo el código, pero me quedo con la espinita de porque solo así pude, no quitaré el dedo del renglón.

Código Delphi [-]
  

with DataModule1 do begin
    Fecha := StringReplace(Fecha,'/','.',[rfReplaceAll]);
    IBTransaction2.StartTransaction;
    IBQuery1.Close;
    IBQuery1.SQL.Text := 'Insert Into Llamadas (Fecha, Extension, Hora, Prefijo,'+
               'Numero, Codigo,Departamento, CCostos, Troncal, Carrier, Ciudad,'+
               'Estado,SMedido,Costo, Iva, Duracion, DurEntera, ExtensionOrigen,'+
               'Empresa) '+
               'Values (' +QuotedStr(Fecha)+', '+QuotedStr(Extension)+', '+
               QuotedStr(HoraLlamada)+', '+QuotedStr(Prefijo)+', '+QuotedStr(Numero)+', '+
               QuotedStr(Fac)+', '+QuotedStr(Nivel1)+', '+QuotedStr(Nivel2)+', '+
               QuotedStr(Troncal)+', '+QuotedStr(Carrier)+', '+QuotedStr(Ciudad)+', '+
               QuotedStr(Estado)+', '+FloattoStr(SMedido)+', '+FloattoStr(CostoLla)+
               ', '+FloattoStr(Iva)+', '+QuotedStr(Duracion)+', '+
               InttoStr(Round(DurEntera))+', '+QuotedStr(ExtOrigen)+', '+
               QuotedStr(Empresa)+')';
    IBQuery1.ExecSQL;
    IBTransaction2.Commit;
  end;

Salud OS.