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.
Código COBOL:
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.
Código COBOL:
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...