Control DBAccess...

[Fito]

Hola Amigos:

Estoy haciendo un trabajo con unas notas de pedido que están en un SQL Server de un tercero. Y necesito leer y modificar sus tablas. Para eso estoy usando el control DBAceccess.

El primer problema que me encuentro es que no logro filtrar por fecha.


WORKING-STORAGE SECTION.

01 db-error pic s9(5) comp-5.
01 db-eof pic s9(5) comp-5.

01 ind pic s9(5) comp-5.
01 wcondicion pic x(256).

01 wdesfec-comp.
02 wdesfec-aa pic 9999.
02 pic x value "/".
02 wdesfec-mm pic 99.
02 pic x value "/".
02 wdesfec-dd pic 99.
02 pic x(9) value " 00:00:00".
01 redefines wdesfec-comp.
02 wdesfec pic x(19).

01 whasfec-comp.
02 whasfec-aa pic 9999.
02 pic x value "/".
02 whasfec-mm pic 99.
02 pic x value "/".
02 whasfec-dd pic 99.
02 pic x(9) value " 00:00:00".
01 redefines whasfec-comp.
02 whasfec pic x(19).

01 wfec-comp.
02 wfec-aa pic 9999.
02 pic x value "/".
02 wfec-mm pic 99.
02 pic x value "/".
02 wfec-dd pic 99.
01 redefines wfec-comp.
02 wfec pic x(19).

PROCEDURE DIVISION.

#include "copys\declara.cpy".

comienzo.
invoke grdLista "ClearList".

invoke dbPedidos "OpenDB".

move spaces to wdesfec whasfec.

move "text" of txtDesfec to fecha-dma.
move fecha-dma-aa to wdesfec-aa.
move fecha-dma-mm to wdesfec-mm.
move fecha-dma-dd to wdesfec-dd.

move "text" of txtHasfec to fecha-dma.
move fecha-dma-aa to whasfec-aa.
move fecha-dma-mm to whasfec-mm.
move fecha-dma-dd to whasfec-dd.

open output tempo close tempo open i-o tempo.

open input ctacte arti.

move spaces to wcondicion.

string "XFECHA >= " delimited by size
wdesfec delimited by size
" and XFECHA <= " delimited by size
whasfec delimited by size
into wcondicion
end-string.

move wcondicion to "Condition" of dbPedidos.

invoke dbPedidos "SelectRecords" returning db-error.
if db-error >= zeros
move 1 to db-eof
perform until db-eof not = 1
invoke dbPedidos "ReadNextRecord" returning db-eof
if db-eof = 1
perform hace thru f-hace
end-if
end-perform
end-if.

invoke dbPedidos "CloseDB".



Ya he probado de varias maneras y no logro hacerlo.

Le saco la condición de filtro y me trae todo y me fijo de qué manera me trae la fecha 2021/03/29 16:28:21

Saludos.

Fito...

---------- Post añadido : 11:55 ---------- Post anterior : 11:23 ----------

Me contesto solo.

El campos fecha debe ser pic 9(8) AAAAMMDD y va entre apóstrofes.


WORKING-STORAGE SECTION.

01 xdesfec pic 9(8).
01 xhasfec pic 9(8).

PROCEDURE DIVISION.

string "XFECHA >= '" delimited by size
xdesfec delimited by size
"' and XFECHA <= '" delimited by size
xhasfec delimited by size
"'" delimited by size
into wcondicion
end-string.



---------- Post añadido : 11:39 ---------- Post anterior : 11:55 ----------

Holaaaa:

Me parece que hasta acá llegué con el control DBAccess.

No me etrae los datos de un campo tipo "decimal", si bien la conversión me dice que es un s9(14)v99, no me lee nada.
Creo que ese problema lo tuve con un MySql una vez, evidentemente acá tambien.

Voy a tener que probar con otra cosa :(

Saludos

Fito...

[fastpho]

@Fito, Hola podes subir la bd para ver si te podemos ayudar con el campo tipo decimal

[Fito]

Hola:

Ahí subi la tabla

saludos

Fito

[JCantero]

En PowerCobol no se, pero en RM/Cobol que es lo que yo utilizo con base de datos SQLserver, PostgreSQL, etc, utilizo para los importes campos de edición o alfanumericos que seria lo mismo.

Intenta declarar un campo para probar:

01 importe pic ---------------9.99.

Yo pongo siempre "." en vez de ',' para no meter configuraciones ni conversiones.

Si no te funciona prueba con

01 importe pic x(16).

y luego un "move importe to importe-numerico "


Y en algunas ocasiones para ejecutar procedimientos almacenados en la base de datos (o funciones) utilizo campos numericos como tu indicas:



01 valor1 pic S9(15)V99.
01 consulta-sql pic x(100).


****** esto seria la consulta que quiero hacer al procedimiento almacenado f_saldo

initialize consulta-sql

STRING "select f_saldo"
delimited by size
"('" cuenta "')"
delimited by size
INTO consulta-sql

********** para ejecutar la consulta y recibir resultado

SQL PREPARE QUERY sql-QueryHaNdle
sql-ConnectionHandle
consulta-sql.
SQL START QUERY sql-QueryHandle.
SQL FETCH ROW sql-QueryHandle
SQL GET DATA sql-queryhandle
1 VALOR1 OMITTED.



Pero este ultimo rollo que he puesto aqui es para rm/cobol

[fastpho]

@Fito, yo lo meteria en listview y probaria asi:

*----------------
Carga.
INVOKE DB-Ventas-Database "ReadNextRecord" RETURNING ReturnValue.

IF ReturnValue not = 1 then
MOVE 2 to OFlag
exit program
end-if
end-if.
IF ReturnValue = 1
INVOKE CMLISTVIEW1 "Add" USING 1 1 RETURNING WK-IDX
IF WK-IDX > 0 THEN
MOVE "ListItems"(WK-IDX) OF CMLISTVIEW1 TO POW-PCMLIST
MOVE "ARTICULOID" OF DB-Ventas-Database TO "Text"(1) OF POW-PCMLIST
MOVE "CANTIDAD" OF DB-Ventas-Database TO "Numeric"(2) OF POW-PCMLIST *> picture $$$,$$$,$$9.99
MOVE "XTOTAL" OF DB-Ventas-Database TO "Numeric"(3) OF POW-PCMLIST *> picture $$$,$$$,$$9.99
MOVE "PRECIO" OF DB-Ventas-Database TO "Numeric"(4) OF POW-PCMLIST *> picture $$$,$$$,$$9.99
INVOKE CMLISTVIEW1 "Refresh"
MOVE 3 TO OFlag
END-IF
END-IF.
*----------------
F-Carga.
exit program.

Saludos

[Fito]

Hola:

Me viene en cero el dato, sin importar el formato que le de.

No voy a renegar más con esto, voy a ver con ADO si funciona

Muchas gracias...

Saludos...

Fito...

[fastpho]

Hola @Fito, es muy raro que te traiga los valores en zero , no tendra que ver con la configuracion regional que tenes , o la declaracion

SPECIAL-NAMES
DECIMAL-POINT IS COMMA.


---------- Post añadido : 16:30 ---------- Post anterior : 15:50 ----------

Hola @Fito, es muy raro que te traiga los valores en zero , no tendra que ver con la configuracion regional que tenes , o la declaracion

SPECIAL-NAMES
DECIMAL-POINT IS COMMA.


yo le pondria en la configuracion regional de numeros , Setear "." separador de decimales (numeros) y Setear "," separador de miles (numeros)