Convertir , por . en una consulta sql

[negrokau]

hola, estoy con un inconveniente, estoy actualizando registros desde una tabla a otra asi:

Código Delphi [-]
procedure TF_FACTURACION.DESHACERClick(Sender: TObject);
VAR
CODIGO, CANTIDAD: INTEGER;
begin
CODIGO:=dm.Q_DET_FACT.FieldValues['CODIGO'];
CANTIDAD:=dm.Q_DET_FACT.FieldValues['CANTIDAD'];

DM.CONSULTA.CLOSE;
DM.CONSULTA.SQL.Clear;
DM.CONSULTA.SQL.Add('UPDATE STOCK SET CANTIDAD=CANTIDAD+'+INTTOSTR(CANTIDAD)+' WHERE COD_STOCK='+inttostr(CODIGO));
DM.CONSULTA.ExecSQL;

mi inconveniente es que al descontar un numero con decimal (1,5) lo redondea (2) y lo que necesito es que descuente (1,5)
Investigando me entere de que en sql toma (.) en vez de (,), creo que es por eso que me redondea al actualizar la tabla, Alguna sugerencia?

[[maeyanes]]

Hola...

Pásale los valores a la consulta vía parámetros.

Otra cosa que veo es que tus variables las declaras como enteros, si quieres manejar valores decimales debes usar el tipo Double...



Saludos...

[ecfisa]

Hola.

No entiendo que tiene que ver el código que estas poniendo con el redondeo.

CANTIDAD vaya y pase, pero... el campo CODIGO esta declarado como NUMERIC ????

Saludos.

[ecfisa]

Hola de nuevo.

Como te dice maeyanes, siempre es más seguro el uso de parámetros.

Además a CANTIDAD siempre le estas sumando un valor entero, de no ser así, tendrías un error de conversión al aplicar la función IntToStr.


Saludos.

[defcon1_es]

Hola. Si declaras la variable CANTIDAD como INTEGER, no esperes que funcione con números fraccionarios...
Debes definirla de tipo double.

Código Delphi [-]
procedure TF_FACTURACION.DESHACERClick(Sender: TObject);
VAR CODIGO: String;  //En otro hilo tratas los códigos como string, no sé si éste es el caso también
    CANTIDAD: Double;
begin
  CODIGO:=dm.Q_DET_FACT.FieldValues['CODIGO'];
  CANTIDAD:=dm.Q_DET_FACT.FieldValues['CANTIDAD'];
  DM.CONSULTA.CLOSE;
  DM.CONSULTA.SQL.Clear;
  DM.CONSULTA.SQL.Add('UPDATE STOCK SET CANTIDAD=CANTIDAD+:PARCANTIDAD WHERE COD_STOCK= :PARCODIGO');
  DM.CONSULTA.ParamByName('ParCODIGO').AsString:=CODIGO;
  DM.CONSULTA.ParamByName('ParCANTIDAD').AsFloat:=CANTIDAD;
  DM.CONSULTA.ExecSQL;

[negrokau]

Empezado por defcon1_es

Hola. Si declaras la variable CANTIDAD como INTEGER, no esperes que funcione con números fraccionarios...
Debes definirla de tipo double.

Código Delphi [-]
procedure TF_FACTURACION.DESHACERClick(Sender: TObject);
VAR CODIGO: String; //En otro hilo tratas los códigos como string, no sé si éste es el caso también
CANTIDAD: Double;
begin
CODIGO:=dm.Q_DET_FACT.FieldValues['CODIGO'];
CANTIDAD:=dm.Q_DET_FACT.FieldValues['CANTIDAD'];
DM.CONSULTA.CLOSE;
DM.CONSULTA.SQL.Clear;
DM.CONSULTA.SQL.Add('UPDATE STOCK SET CANTIDAD=CANTIDAD+:PARCANTIDAD WHERE COD_STOCK= :PARCODIGO'); DM.CONSULTA.ParamByName('ParCODIGO').AsString:=CODIGO; DM.CONSULTA.ParamByName('ParCANTIDAD').AsFloat:=CANTIDAD;
DM.CONSULTA.ExecSQL;

no me va a funcionar porque designo el valor de cantidad y codigo al las variables CODIGO Y CANTIDAD y luego los elimino asi:

Código Delphi [-]
procedure TF_FACTURACION.DESHACERClick(Sender: TObject);
VAR
CODIGO: INTEGER;
CANTIDAD: DOUBLE;
begin
CODIGO:=dm.Q_DET_FACT.FieldValues['CODIGO'];
CANTIDAD:=dm.Q_DET_FACT.FieldValues['CANTIDAD'];
dm.Q_DET_FACT.Delete;//ACA ELIMINO
DM.CONSULTA.CLOSE;
DM.CONSULTA.SQL.Clear;
DM.CONSULTA.SQL.Add('UPDATE STOCK SET CANTIDAD=CANTIDAD+'+INTTOSTR(CANTIDAD)+' WHERE COD_STOCK='+inttostr(CODIGO));
DM.CONSULTA.ExecSQL;