Ver Mensaje Individual
  #7  
Antiguo 23-04-2007
[egostar] egostar is offline
Registrado
 
Registrado: feb 2006
Posts: 6.557
Reputación: 25
egostar Va camino a la fama
Hola RONPABLO, la transaccion la tengo como TACommit y tambien he probado con TACommitRetaining y nada.

Ya he probado lo que me comentas Caral

Código Delphi [-]
    

IBQuery1.Transaction.Commit;
    Fecha := StringReplace(Fecha,'/','.',[rfReplaceAll]);
    IBQuery1.Transaction.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;
    IBQuery1.Transaction.CommitRetaining;

Pero no agrega el registro.

Sigo haciendo pruebas, gracias por leerme.

Salud OS.
__________________
"La forma de empezar es dejar de hablar y empezar a hacerlo." - Walt Disney
Responder Con Cita