[Sintaxis] Campos numericos en SQL Server

[Fito]

Hola Amigos:

Estoy con un problema. Me tengo que comunicar con una BBDD MS Sql Server y tengo problemas para pasar los campos numericos.

Me conecto vía ADO.

Los campos alfabéticos los carga perfectos.

 ENVIRONMENT     DIVISION.
 DATA            DIVISION.
 WORKING-STORAGE SECTION.
 
 01  warticulo   pic x(20).
 01  redefines warticulo.
     02 xart     pic 9(6).
     02          pic x(14).
     
 01  wartdenom   pic x(150).
 01  wartunimed  pic x(20).
 01  wtexto      pic x(250)      value spaces.
 01  wenviado    pic 9(4) comp-5 value zeros.
 01  wzeros      pic 9           value zeros.
 
 01  wbaja       pic s9(10)      value zeros.
 01  wstock      pic s9(14)v99.
 01  wimp        pic 9(14),99.
 
 01  wunimed     pic x(10).
 01  wiva        pic 99,99.
 
 
 01  xprecio         pic 9(7)v9(8).
 01  wprecio         pic 9(7)v9999.
 01  xvprcla.
     02 wven         pic 9(6).
     02 wart         pic 9(6).
     02 wfec         pic 9(8).
 
 PROCEDURE       DIVISION.
 
 comienzo.
     open extend salida.
     accept wsalhora             from time.
     move "   Artículos"         to zlite.
     move wsalhora               to zhora.
     write reg-salida from zregsal.
     close salida.
 
     move "Artículos"         to "Caption" of lblMSG.
     perform refresca.
 
     move 'dbo."DKARTICULOS"'        to ADO-ARCHIVO.
     perform inicializacion.
 
     perform fecha-sistema.
     move fecha-amd           to wfec.
     
     open input arti venpre.
 
*    go sale.
     
 sigue.
     initialize artcla.
     start arti key is not < artcla invalid go sale.
     
 leo.
     read arti next at end go sale.
 
     perform busca-precio.
     if xprecio = zeros go leo.
     
     invoke OBJ-RECORDSET "ADDNEW".
  
*...............................................................     
   *> codigo
     move spaces           to warticulo.
     move articulo         to xart.
     invoke OBJ-FIELD(1)  "SET-VALUE" using warticulo.
 
   *> nombre
     move artdenom         to wartdenom.
     invoke OBJ-FIELD(2)  "SET-VALUE" using wartdenom.
     
   *> baja
     move zeros            to wbaja.
     invoke OBJ-FIELD(3)  "SET-VALUE" using wbaja.
     
   *> stock
     move zeros            to wstock.
     invoke OBJ-FIELD(4)  "SET-VALUE" using wstock.
     
   *> unidad de medida
     move artunimed        to wartunimed.
     invoke OBJ-FIELD(5)  "SET-VALUE" using wartunimed.
     
   *> precio
     move xprecio          to wimp.
     invoke OBJ-FIELD(6)  "SET-VALUE" using wimp.
 
     move zeros            to wimp.
     invoke OBJ-FIELD(7)  "SET-VALUE" using wimp.
     invoke OBJ-FIELD(8)  "SET-VALUE" using wimp.
     invoke OBJ-FIELD(9)  "SET-VALUE" using wimp.
     invoke OBJ-FIELD(10) "SET-VALUE" using wimp.
     invoke OBJ-FIELD(11) "SET-VALUE" using wimp.
 
     invoke OBJ-FIELD(12) "SET-VALUE" using wzeros.
     invoke OBJ-FIELD(13) "SET-VALUE" using wtexto.
     invoke OBJ-FIELD(14) "SET-VALUE" using wtexto.
     
   *> enviado
     move zeros            to wenviado.
     invoke OBJ-FIELD(6)  "SET-VALUE" using wenviado.
*...............................................................     
     invoke OBJ-RECORDSET "UPDATE".
     
     go leo.
     
 sale.
     close arti venpre.
 
     perform cierra.
 
     exit program.
     
 #include "copys\comunpro.cpy".
 #include "copys\adoCnnAvaro.cpy".
 
 
  busca-precio. 
     move articulo                  to wart.
     move 99                        to wven.
     perform busca-vpr thru f-busca-vpr.
     move pre-precio     to xprecio.
 
 busca-vpr.
     initialize vprcla pre-precio.
     move wven       to vprven.
     move wart       to vprart.
     start venpre key is not < vprcla invalid go f-busca-vpr.
 
 leo-venpre.
     read venpre next at end go f-busca-vpr.
 
     if vprven  not = wven or
        vprart  not = wart or
        vprfec      > wfec
        go f-busca-vpr.
 
     move vprpre(1)     to pre-precio.
 
     go leo-venpre.
 
 f-busca-vpr.
     exit.

Estoy tratando de cargar el precio y no lleva nada. Ya controlé que el precio venga bien de mis archivos.

El campo PRECIO está definido en la BBDD como "decimal (13,2)"

Para Postgres wimp pic +9(11),99.

Acá ya probé de todo.

Saludos.

Fito...

---------- Post añadido : 15:26 ---------- Post anterior : 13:57 ----------

Hola:

Me respondo solo.

Me parece que estoy para internación,

Si se fijan bien, antes de update, estoy pisando el dato 6. Eso es por copiar y pegar.

Ya mi mente mejorará... o no...

Saludos

Fito...

[Kuk]

@Fito, mira a ver poniéndoles COMP o COMP-4 o COMP-5.

[JCantero]

@Fito, has probado a poner el punto decimal en vez de la coma en la definición de wimp.

01 wimp pic 9(14).99.

Yo en programas de migración a postgresql lo hago así. (quitando "decimal-point is comma.")

[Fito]

Holaaaa:

Ya está solucionado, no me traía nada, porque pisaba el dato con otra cosa. Al final lo dejé igual como lo tengo para Postgres

01  wimp         pic +9(14),99.

Así anda perfecto.

Saludos.

Fito...

[Nitzer]

Cuando se trabaja con Ado utilizando UPDATE se pueden pasar los númericos con la representación de Cobol, pero si accedes nativamente a la bbdd hay que hacer lo que dice jcantero.

Esto es lo que hago en esos casos:

01  VALORORIGINAL PIC S9(10)V99.
01  VALORNUEVO      PIC ----------,--.
01  VALORAPASAR    PIC X(13).
 
MOVE VALORORIGINAL TO VALORNUEVO
MOVE VALORNUEVO TO VALORAPASAR
INSPECT VALORAPASAR REPLACING ALL ',' BY '.'

Y después hago el insert con ese valor o el update.
Luego hago un INSPECT REPLACING y sustituyo la coma por el punto, siempre que estemos en un sistema decimal como el que se utiliza en España.
Y una vez cambiada paso el valor