Ver Mensaje Individual
  #5  
Antiguo 19-11-2008
Avatar de duilioisola
[duilioisola] duilioisola is offline
Miembro Premium
 
Registrado: ago 2007
Ubicación: Barcelona, España
Posts: 1.806
Reputación: 22
duilioisola Es un diamante en brutoduilioisola Es un diamante en brutoduilioisola Es un diamante en bruto
Y no tendrá que ver con las transacciones?
Yo trabajo con Firebird y depende de si utilizo Commit o CommitRetaining, la cosa cambia mucho.
Código Delphi [-]
while (no_se_terminen_los_datos) do
begin
   if (not MD.ZAsientos.Transaction.InTransaction) then
      MD.ZAsientos.Transaction.StartTransaction;
   MD.ZAsientos.SQL.Clear;
   MD.ZAsientos.SQL.Text:='INSERT INTO asientos (fecha,cuenta,debe,haber,saldo,comentario,numero,comp,numcom,codprov) '+
   'VALUES (:fecha,:cuenta,:debe,:haber,:saldo,:comentario,:numero,:comp,:numcom,:codprov)';
   MD.ZAsientos.ParamByName('fecha').Value:=StrtoDate(fecha.text);
   MD.ZAsientos.ParamByName('cuenta').Value:=MD.DetalleImputa.Value;
   MD.ZAsientos.ParamByName('Debe').Value:=MD.DetalleNetograv.Value;
   MD.ZAsientos.ParamByName('comentario').Value:=comentario;
   MD.ZAsientos.ParamByName('Numero').value:=nasiento;
   MD.zAsientos.ParamByName('Comp').value:=MD.DetalleTipo.Value;
   MD.zAsientos.ParamByName('Numcom').Value:=MD.DetalleNumcom.Value;
   MD.zAsientos.ParamByName('Codprov').Value:=MD.DetalleCod_prov.Value;
   MD.ZAsientos.ExecSQL;
   MD.ZAsientos.Transaction.Commit;
end;

También puede tener que ver con los triggers que ejecute al insertar en esa tabla.

Última edición por duilioisola fecha: 19-11-2008 a las 14:21:25.
Responder Con Cita