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.:agres:

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. :tontol::tontol::tontol:

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