Error al insertar registro

[[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.

[[Caral]]

Hola egostar

Código Delphi [-]
with DataModule1 do begin
    
     DataModule1.BeginTrans; // esto?
     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;
     DataModule1.CommitTrans;  // Esto?
     Llamadas.Transaction.Commit; // no Se

No se podria ir por ahi.
Saludos

[[egostar]]

Gracias amigo Caral, pero no tengo esa propiedad en el DataModule1.

Si agrego IBTransaction.StartTransaction me dice que ya esta activa, pero si al final agrego IBTransaction1.Commit o CommitRetaining me dice que no hay transacción activa.

Me faltaba cerrar la tabla después del commit, pero aún así sigo teniendo el mismo problema, no hay registros en la tabla llamadas.

Salud OS.

[[egostar]]

Quiero agregar algo que hice,

Agregue un disparador así

Código SQL [-]
CREATE TRIGGER NUEVA_LLAMADA FOR LLAMADAS
ACTIVE AFTER INSERT POSITION 0
AS
begin
  post_event 'nueva_llamada';
  /* Trigger text */
end

Nota: Tambien lo puse en POSITION 1, por probar nadamas

Agregue un IBEvents y agregue en su propiedad Events "nueva_llamada"

En el código hice lo siguiente

Código Delphi [-]
procedure TDataModule1.IBEvents1EventAlert(Sender: TObject; EventName: string;
  EventCount: Integer; var CancelAlerts: Boolean);
begin
  if EventName='nueva_llamada' then
     showmessage('Registro nuevo en la base de datos')
end;

Pero nunca se dispara ese evento.

Salud OS.

[[Caral]]

Hola
Lo que me suena raro es que nisiquiera te de algun error.
La verdad nunca hago las insersiones de esa manera asi que me siento un poco indefenso, las hago asi:

Código Delphi [-]
DataModule1.AC1.BeginTrans;
try
QTemp.SQL.Text := 'Insert Into OrdenProd (Codorden, FechaInicio, FechaRequerido, CodUsuario, Comentarios, CodCliente, Prioridad, Enrutada, OrdenCompra) '+
                   'Values (' +Edit2.Text+', '+QuotedStr(Edit4.Text)+', '+QuotedStr(DateToStr(DateTimePicker1.DateTime))+', '+
                            QuotedStr(Edit5.Text)+', '+QuotedStr(Memo1.Text)+', '+Edit3.Text+', '+IntEdit1.Text+', True, '+QuotedStr(Edit7.Text)+')'
end;
DataModule1.AC1.CommitTrans;
 except
         on E:Exception do DataModule1.AC1.RollbackTrans;
      end;

Me queda dificil saber en que puede estar el error, la verdad lo veo bien.
Saludos

[[RONPABLO]]

Hola, Como tenes configurada la transacción?