Error al insertar registro

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

[[egostar]]

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.

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

[[RONPABLO]]

por lo que me imagino usas IBX, así pues, en el componente de la transacción puedes darle doble click y ponerla en la segunda opción o en el inspector de objetos buscar la propiedad params y en ella poner los siguientes comandos:

read_committed
rec_version
nowait

asegúrate de que la transacción este bien asociada a el componente database, y así mismo, que el IBTable este bien asociado a los dos anteriores (Transaccion y Database)....

[[Caral]]

Hola egostar
Para empezar, se sabe que una transaccion se usa para salvar la integridad de los datos, bueno esto siempre que se tarte de mas de dos sentencias sql, en otras palabras, si se hacen dos transacciones y una falla, no se actualiza ninguna de las dos.
Ya que una sentencia de insercion no debuelve valores es importante saber si se hizo o no las transacciones.
En tu caso, se esta haciendo solo una sentencia sql, esta funciona o no, pero no afecta a mas sentencias sql, por eso me parece innecesario el uso de transacciones aqui.
Bueno yo haria una inserccion corriente y ya, funciona o no, eso es todo, asi:

Código Delphi [-]
   
    Fecha := StringReplace(Fecha,'/','.',[rfReplaceAll]);
    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;
 end;

Otra cosa que tienes que tener en cuenta es que las transacciones se hacen directamente a la tabla, no al query.
Mas, en el caso de seguir igual elimina el IBQuery1.Close; del principio.
Saludos

[[Caral]]

Hola egostar
Para que te quede un poco mas claro esto de las transacciones:
1: Modulo de datos, enlace, comienzo trans.

Código Delphi [-]
DataModule1.AC1.BeginTrans;

2: Query, Sentencia sql, y ejecutar sentencia sql.

Código Delphi [-]
QTemp.SQL.Text := // sentencia 1
QTemp.ExecSQL;

QTemp.SQL.Text := // sentencia 2
QTemp.ExecSQL;
DataModule1.AC1.CommitTrans;

3: Si fallan las insersiones u otros se hace un (no paso nada), todo sigue igual asi:

Código Delphi [-]
DataModule1.AC1.RollbackTrans;

Bueno este es el procedimiento que uso y a mi me funciona.
Saludos

[[egostar]]

Empezado por Caral

Otra cosa que tienes que tener en cuenta es que las transacciones se hacen directamente a la tabla, no al query.
Mas, en el caso de seguir igual elimina el IBQuery1.Close; del principio.
Saludos

Gracias Caral, pero este programa debe estar ejecutandose siempre ya que es un sistema de control de llamadas y debo de agregar los registros en tiempo real, estuve probando sin las transacciones y no me refleja los cambios sino hasta que cierro el programa, cosa que no debo hacer.

Pues bien, esto es debido a mi inexperiencia en el uso de Firebird, algún día lo dominaré.

Salud OS y gracias a ti a RONPABLO