DBXEXPRESS no actualiza en ciertas ocaciones campos

[novato_erick]

Hola chicos:

Es un gran placer saludarlos por este medio.

ultimamente me habian comunicado algunos usuarios que al realizar una actualización en un campo llamado cantidad en ocasiones no afecta dicho campo la actualización.

Código Delphi [-]
 trnActualizaStock := dmConecta.FBLINUXCONECTION.BeginTransaction;
    try
    cdsAgregaProductos.First;
    while not cdsAgregaProductos.Eof do
    begin
        cantdataset := cdsAgregaProductosCANTIDAD.AsFloat;
        // Consulta la cantidad de cada articulo para aumentarlo
        stockactual := cantidadDisponibleinv
          (cdsAgregaProductosID_PRODUCTO.AsInteger);
        // aumentar cantidad al stock
        nuevacantStock := AumentaCantArticulos(cantdataset, stockactual);
            with dmComprar.qAumentaStock do
            begin
              sql.Clear;
              sql.Text := 'UPDATE ARTICULOS SET CANTIDAD = :CANTIDAD, ' +
              'FECHA_INGRESOART= :FECHA_INGRESOART WHERE ID_ARTICULO = :ID_ARTICULO';
              ParamByName('FECHA_INGRESOART').AsDateTime :=
                dtpFechaIngresoCompra.DateTime;
              ParamByName('CANTIDAD').AsFloat := nuevacantStock;
              ParamByName('ID_ARTICULO').AsInteger :=
                cdsAgregaProductosID_PRODUCTO.AsInteger;
              Execsql;
            end;
        cdsAgregaProductos.Next;
    end;
    dmConecta.FBLINUXCONECTION.CommitFreeAndNil(trnActualizaStock);
    Except
    On e: exception do
    begin
      dmconecta.FBLINUXCONECTION.RollbackFreeAndNil(trnActualizaStock);
      ShowMessage('Error Encontrado' + e.Message);
      dmConecta.RegistraLog(Variables.Usuario + ' CON ERROR AL ACTUALIZAR CANTIDADES: ' +
      e.Message);
      Exito := False;
      Raise;
    end;

cabe aclarar que esto normalmente no sucede a diario es algo que puede ser 1 de 1000 transacciones por decir algo.

pero aún así sucede. alguien sabe el porqué puede pasar o cómo evitar orque el sistema no manda ningún error en transacción.

Saludos;

novato_erick

[[duilioisola]]

No se porqué puede fallar, pero creo que una mejor opción es dejar que SQL se encargue de todo.
Recorres como lo haces hasta ahora y ejecutas el SQL que incremente la cantidad:

Código SQL [-]
UPDATE ARTICULOS 
SET 
CANTIDAD = CANTIDAD + :INCREMENTO, 
FECHA_INGRESOART= :FECHA_INGRESOART 
WHERE
ID_ARTICULO = :ID_ARTICULO';

Esto es solo un SQL en una transacción. Evita que tengas que hacer cálculos en Delphi, traer el stock actual.

[[duilioisola]]

Se me ocurre también que puede ser que nunca entre al bucle si se trata del primer artículo.

Si el SELECT de cdsAgregaProductos no devuelve registros, nunca entrará al bucle que actualiza la tabla ARTICULOS.

[novato_erick]

Empezado por duilioisola

No se porqué puede fallar, pero creo que una mejor opción es dejar que SQL se encargue de todo.
Recorres como lo haces hasta ahora y ejecutas el SQL que incremente la cantidad:

Código SQL [-]
UPDATE ARTICULOS 
SET 
CANTIDAD = CANTIDAD + :INCREMENTO, 
FECHA_INGRESOART= :FECHA_INGRESOART 
WHERE
ID_ARTICULO = :ID_ARTICULO';

Esto es solo un SQL en una transacción. Evita que tengas que hacer cálculos en Delphi, traer el stock actual.

Tampoco se porqué puede fallar sin embargo efectuaré esta sugerencia y le daré seguimiento.

Empezado por duilioisola

Se me ocurre también que puede ser que nunca entre al bucle si se trata del primer artículo.

Si el SELECT de cdsAgregaProductos no devuelve registros, nunca entrará al bucle que actualiza la tabla ARTICULOS.

en cuanto a que no entre al ciclo haré con otro ciclo For.
Gracias hermano por tu comentario en realidad no tenia ni idea por donde empezar la revisión.

Saludos;

[novato_erick]

Para salir de la duda y probablemente no se si será un comportamiento que no pueda soportar DBXExpress ejemplo:

Código Delphi [-]
 trnActualizaStock := dmConecta.FBLINUXCONECTION.BeginTransaction;
    try
    cdsAgregaProductos.First;
    while not cdsAgregaProductos.Eof do
    begin
        cantdataset := cdsAgregaProductosCANTIDAD.AsFloat;
        // Consulta la cantidad de cada articulo para aumentarlo
        stockactual := cantidadDisponibleinv
          (cdsAgregaProductosID_PRODUCTO.AsInteger);
        // aumentar cantidad al stock
        nuevacantStock := AumentaCantArticulos(cantdataset, stockactual); // Esta función hace una consulta en unTSQLQuery abajo   esta la consulta 
            with dmComprar.qAumentaStock do
            begin
              sql.Clear;
              sql.Text := 'UPDATE ARTICULOS SET CANTIDAD = :CANTIDAD, ' +
              'FECHA_INGRESOART= :FECHA_INGRESOART WHERE ID_ARTICULO = :ID_ARTICULO';
              ParamByName('FECHA_INGRESOART').AsDateTime :=
                dtpFechaIngresoCompra.DateTime;
              ParamByName('CANTIDAD').AsFloat := nuevacantStock;
              ParamByName('ID_ARTICULO').AsInteger :=
                cdsAgregaProductosID_PRODUCTO.AsInteger;
              Execsql;
            end;
        cdsAgregaProductos.Next;
    end;
    dmConecta.FBLINUXCONECTION.CommitFreeAndNil(trnActualizaStock);
    Except
    On e: exception do
    begin
      dmconecta.FBLINUXCONECTION.RollbackFreeAndNil(trnActualizaStock);
      ShowMessage('Error Encontrado' + e.Message);
      dmConecta.RegistraLog(Variables.Usuario + ' CON ERROR AL ACTUALIZAR CANTIDADES: ' +
      e.Message);
      Exito := False;
      Raise;
    end;

Código Delphi [-]
function TfrmCompras.cantidadDisponibleinv(idartinv: Integer): Double;
begin
  with dmComprar.qConsultaCantidadArt do
  begin
    sql.Clear;
    sql.Add('select articulos.CANTIDAD from articulos ');
    sql.Add('where articulos.ID_ARTICULO = :idarticulo');
    Params.ParamByName('idarticulo').AsInteger := idartinv;
    Open;
  end;
  Result := dmComprar.qConsultaCantidadArtCANTIDAD.AsFloat;
  dmComprar.qConsultaCantidadArt.Close;
end;

dentro de mi inicio de transacción estoy haciendo una consulta que no tiene que ver con un insert para devolver el resultado esto será esta la causa que la transacción no se realize correctamente?

Saludos