variable de Tipo Decimal envia error
 

Hola Chicos como estan nuevamente algo currioso con firebird:

estoy realizando un procedimiento que actualiza campos directamente con firebird

Código SQL [-]
CREATE PROCEDURE ACTUALIZAPRECIO(
  ID_ARTCOMPRA INTEGER,
  NEW_COMPRA DECIMAL(5, 2))
RETURNS(
  IDPRECIO INTEGER,
  IDART INTEGER,
  IDARTXIVA INTEGER,
  COMISION DECIMAL(12, 2),
  GASTOS DECIMAL(12, 2),
  MARGEN DECIMAL(12, 2),
  MARGENDETALLE DECIMAL(12, 2),
  PCOMPRAPRODUCTO DECIMAL(12, 2),
  MONTOIMPUESTO DECIMAL(12, 2),
  PRECIOCIV DECIMAL(12, 2),
  PRECIOSIV DECIMAL(12, 2))
AS
DECLARE VARIABLE IDPRECIOCOMPRA INTEGER;
DECLARE VARIABLE IDARCOMPRA INTEGER;
DECLARE VARIABLE IDARTXIMPUESTO INTEGER;
DECLARE VARIABLE COMISIONCOMPRA DECIMAL(12, 2);
DECLARE VARIABLE GASTOCOMPRA DECIMAL(12, 2);
DECLARE VARIABLE MARGENCOMPRA DECIMAL(12, 2);
DECLARE VARIABLE MARGENDETALLECOMPRA DECIMAL(12, 2);
DECLARE VARIABLE NEWPCOMPRA DECIMAL(12, 2);
DECLARE VARIABLE MONTOIVA DECIMAL(12, 2);
DECLARE VARIABLE NEW_PRECIOCIV DECIMAL(12, 2);
DECLARE VARIABLE NEW_PRECIOSIV DECIMAL(12, 2);
DECLARE VARIABLE OLDPCOMPRA DECIMAL(12, 2);
DECLARE VARIABLE IDIMPUESTO INTEGER;
DECLARE VARIABLE PORCENTAJEIVA DECIMAL(3, 2);
BEGIN
 FOR 
      SELECT 
         PRECIO.ID_PRECIO,
         PRECIO.ID_ARTICULO,
          PRECIO.ID_ARTXIMPUES,
         PRECIO.COEF_COMISION,
          PRECIO.COEF_GASTOS,
          precio.COEF_MARGEN,
          precio.COEF_MARGENDETALLE,
          precio.PRECIOCOMPRA,
          PRECIO.MONTO_IMPUESTO,
          PRECIO.PRECIO_CIV,
          PRECIO.PRECIO_SIV
            FROM
             PRECIO where precio.ID_ARTICULO = :ID_ARTCOMPRA
         INTO
         :IDPRECIO,
         :IDART,
         :IDARTXIVA,
         :COMISION,
         :GASTOS,
         :MARGEN,
         :MARGENDETALLE,
         :PCOMPRAPRODUCTO,
         :MONTOIMPUESTO,
         :PRECIOCIV,
         :PRECIOSIV  
                    
 DO

 BEGIN
  SELECT
  ARTXIMPUES.ID_IMPUESTO, IMPUESTO.PORCENTAJE
   FROM ARTXIMPUES, IMPUESTO 
   WHERE IMPUESTO.ID_IMPUESTO = ARTXIMPUES.ID_IMPUESTO AND
   ARTXIMPUES.ID_ARTXIMPUES = :IDARTXIVA 
   INTO :IDIMPUESTO, :PORCENTAJEIVA;
 
    COMISIONCOMPRA = 0.00;--aquí es donde tengo el problema que me envia: scale must be between zero and precision
    GASTOCOMPRA = 0.00;
    MARGENCOMPRA = 0.00;
    MARGENDETALLECOMPRA = 0.00;

  IF (PCOMPRAPRODUCTO < NEW_COMPRA) THEN
  BEGIN
    COMISIONCOMPRA = (NEW_COMPRA * COMISION)/100;
    GASTOCOMPRA = (NEW_COMPRA * GASTOS)/100;
    MARGENCOMPRA = (NEW_COMPRA * MARGEN)/100;
    MARGENDETALLECOMPRA = (NEW_COMPRA * MARGENDETALLE)/100;
  END  

 /* UPDATE 
  PRECIO  
  SET 
  PRECIOCOMPRA = :NEWPCOMPRA,
  PRECIO_CIV = :PRECIO_CIV,
  PRECIO_SIV = :PRECIO_SIV,
  MONTOSUMAFIJA = :MONTOSUMAFIJA,
  MONTO_IMPUESTO = :MONTO_IMPUESTO,
  COEF_COMISION = :COEF_COMISION,
  COEF_GASTOS = :COEF_GASTOS,
  COEF_MARGEN = :COEF_MARGEN,
  COEF_MARGENDETALLE = :COEF_MARGENDETALLE
 
WHERE 
  ID_PRECIO = :ID_PRECIO */
  
   

 END
SUSPEND; 
END;

en fin como mencione en el código con un comentario me manda ese error.


Saludos

A ver si te sirve:

La teoria dice:

Cita:

Firebird es compatible con dos tipos de datos a escala, numeric y decimal, para el manejo de datos numéricos con un punto decimal fijo, como los valores monetarios

[color=#004465][font=Arial, sans-serif]

ok entiendo eso ya que lo encontre directamente aquí: http://www.janus-software.com/fbmanu...=psql&topic=30

sin embargo al hacer esto:

Código SQL [-]
IF (PCOMPRAPRODUCTO < NEW_COMPRA) THEN
  BEGIN     
      COMISIONCOMPRA = (NEW_COMPRA * COMISION)/100;  
      GASTOCOMPRA  = (NEW_COMPRA + COMISIONCOMPRA) * GASTOS /100;
      MARGENCOMPRA = (NEW_COMPRA + GASTOCOMPRA + MARGENCOMPRA)* MARGEN /100; 
      PVENTASINIVA = (COMISIONCOMPRA + GASTOCOMPRA + MARGENCOMPRA);
      SUBTOTALVENTA = NEW_COMPRA + PVENTASINIVA; 
      MONTOIVA = (SUBTOTALVENTA * PORCENTAJEIVA)/100;  
      PRECIOVENTACONIVA =  MONTOIVA + SUBTOTALVENTA; 

         UPDATE  PRECIO SET  PRECIOCOMPRA = :NEW_COMPRA,
                                       PRECIO_CIV = :PRECIOVENTACONIVA, --el valor que trae es null     
                                       PRECIO_SIV = :SUBTOTALVENTA,
                                       MONTO_IMPUESTO = :MONTOIVA
                               WHERE 
                               ID_PRECIO = :IDPRECIO;

Saludos

No lo he mirado a fondo, apenas un vistazo, pero cambia el decimal por numeric en todos.

Sip ya lo habia hecho en todo y nada aun me da el error


Saludos casimiro y disculpa la molestia..


novato_erick

Pues cambia
COMISIONCOMPRA = 0.00
por
COMISIONCOMPRA = 0

Ok encontré el problema:

tube que declarar las variables con un valor por defecto:

Código SQL [-]
as
DECLARE VARIABLE PRECIOVENTACONIVA NUMERIC(12, 2) DEFAULT 0

Esto solucionó el problema: aunque al inicializar mis variables en 0 al principio del post no se porque no tomaban ese valor si no es que estan definido en la declaración.

Extraño

pero Casimiro Gracias por tu aporte dejo este link que me ayudó a comprender cuando usar numeric y decimal:

https://firebird21.wordpress.com/201...ric-y-decimal/


Saludos a todos;

casimiro no habia visto tu post anterior jajajajaja


pero nuevamente Gracias amigo


Saludos

Para hacer cálculos deberías usar double, independientemente que luego lo guardes en un campo numeric.

Te refieres a DOUBLE PRECISION en Firebird directamente?

porque en Delphi si mis variables son double.

Saludos

Sí, claro, en firebird.
Que uses numeric(15,2) por ejemplo, si vas a guardar importes con 2 decimales, pero eso es la definición del campo.
Para hacer cálculos y no perder decimales, usa double precision.

Volviendo al problema original quizas el punto decimal no sea punto sino coma, no más digo no.

Código SQL [-]
   COMISIONCOMPRA = 0,00;

Eso también ^\||/