[[egostar]]

Hola amigos

Estoy migrando una aplicación de Paradox a Firebird 2.0, pero tengo un problema al querer insertar un registro.

Ya he probado varias alternativas que he encontrado, pero ninguna de ellas me inserta el registro, no me muestra ningún error ni nada que me indique que esta pasando.

Aqui pongo las diferentes maneras como he tratado de hacerlo.

Código Delphi [-]
  
with DataModule1 do begin

     Llamadas.Active := False;
     Llamadas.Active := True;
     LLamadas.Insert;

     Llamadas.FieldByName('Fecha').Value           := StrToDate(Fecha);
     Llamadas.FieldByName('Extension').Value       := Extension;
     Llamadas.FieldByName('Hora').Value            := StrToTime(HoraLlamada);
     Llamadas.FieldByName('Prefijo').Value         := Prefijo;
     Llamadas.FieldByName('Numero').Value          := Numero;
     Llamadas.FieldByName('Codigo').Value          := Fac;
     Llamadas.FieldByName('Departamento').Value    := Nivel1;
     Llamadas.FieldByName('CCostos').Value         := Nivel2;
     Llamadas.FieldByName('Troncal').Value         := Troncal;
     Llamadas.FieldByName('Carrier').Value         := Carrier;
     Llamadas.FieldByName('Ciudad').Value          := Ciudad;
     Llamadas.FieldByName('Estado').Value          := Estado;
     Llamadas.FieldByName('SMedido').Value         := SMedido;
     Llamadas.FieldByName('Costo').Value           := CostoLla;
     Llamadas.FieldByName('Iva').Value             := Iva;
     Llamadas.FieldByName('Duracion').Value        := Duracion;
     Llamadas.FieldByName('DurEntera').Value       := Round(DurEntera);
     Llamadas.FieldByName('ExtensionOrigen').Value := ExtOrigen;
     Llamadas.FieldByName('Empresa').Value         := Empresa;

     Llamadas.Post;
     Llamadas.Transaction.Commit;

{     If not IBTransaction1.InTransaction then
        IBTransaction1.StartTransaction;

     // Con IBDataSet
     IBDataset1.FieldByName('Fecha').Value        := StrtoDate(Fecha);
     IBDataset1.FieldByName('Extension').Value       := Extension;
     IBDataset1.FieldByName('Hora').Value            := StrToTime(HoraLlamada);
     IBDataset1.FieldByName('Prefijo').Value         := Prefijo;
     IBDataset1.FieldByName('Numero').Value          := Numero;
     IBDataset1.FieldByName('Codigo').Value          := Fac;
     IBDataset1.FieldByName('Departamento').Value    := Nivel1;
     IBDataset1.FieldByName('CCostos').Value         := Nivel2;
     IBDataset1.FieldByName('Troncal').Value         := Troncal;
     IBDataset1.FieldByName('Carrier').Value         := Carrier;
     IBDataset1.FieldByName('Ciudad').Value          := Ciudad;
     IBDataset1.FieldByName('Estado').Value          := Estado;
     IBDataset1.FieldByName('SMedido').Value         := SMedido;
     IBDataset1.FieldByName('Costo').Value           := CostoLla;
     IBDataset1.FieldByName('Iva').Value             := Iva;
     IBDataset1.FieldByName('Duracion').Value        := Duracion;
     IBDataset1.FieldByName('DurEntera').Value       := Round(DurEntera);
     IBDataset1.FieldByName('ExtensionOrigen').Value := ExtOrigen;
     IBDataset1.FieldByName('Empresa').Value         := Empresa;

     IBDataset1.Prepare;
     IBDataset1.InsertSQL;
     IBTransaction1.CommitRetaining;
     IBDataSet1.ApplyUpdates;
     IBDataset1.Close;

     // Con IBQuery
     IBQuery1.Close;
     IBQuery1.Params[0].Value  := strtodate(Fecha);
     IBQuery1.Params[1].Value  := Extension;
     IBQuery1.Params[2].Value  := StrToTime(HoraLlamada);
     IBQuery1.Params[3].Value  := Prefijo;
     IBQuery1.Params[4].Value  := Numero;
     IBQuery1.Params[5].Value  := Fac;
     IBQuery1.Params[6].Value  := Nivel1;
     IBQuery1.Params[7].Value  := Nivel2;
     IBQuery1.Params[8].Value  := Troncal;
     IBQuery1.Params[9].Value  := Carrier;
     IBQuery1.Params[10].Value := Ciudad;
     IBQuery1.Params[11].Value := Estado;
     IBQuery1.Params[12].Value := SMedido;
     IBQuery1.Params[13].Value := CostoLla;
     IBQuery1.Params[14].Value := Iva;
     IBQuery1.Params[15].Value := Duracion;
     IBQuery1.Params[16].Value := Round(DurEntera);
     IBQuery1.Params[17].Value := ExtOrigen;
     IBQuery1.Params[18].Value := Empresa;

     IBQuery1.Prepare;
     IBQuery1.ExecSQL; }
  end;

Como les explico, en ninguna de ellas me muestra error, pero no se agregan los registros en la tabla.

¿Que estoy haciendo mal?

Salud OS.