[Sintaxis] Ayuda para interactuar con base de Datos

[Breew]

❞ A qué te refieres con lo de "iniciar la búsqueda"??? De todoso modos, si he entendido bien la pregunta, si le pones "RenderText" al CmText, indica "yyyy/MM/dd" con MM en mayúsculas y te mostrará las fechas en el formato que necesitas.

Hola kuk.

Mi intencion es iniciar una busqueda por fechas . Lo interpreto como si fuera un fichero cobol indexado, es decir
Siguiendo el ejemplo de Hrmcobol

    move "Text" OF Cm-CODIGO to wl-codigo
     
     string "CLICODIGO = '" DELIMITED BY SIZE
             WL-CODIGO       DELIMITED BY SIZE
            "'"              DELIMITED BY SIZE
       into wl-condi
     end-string
 
     move SPACES   to "Condition" OF CmDb1
     move wl-condi to "Condition" OF CmDb1    
     
     INVOKE CmDb1 "SelectRecords" RETURNING ReturnValue

Aqui , funciona correctamente y cuando leo un registro , la fecha me aparece con formato yyyy/MM/dd

     move "Text" OF Cm-FECHA2 to wl-codigo
     
     string "FECHA = '"        DELIMITED BY SIZE
             WL-CODIGO       DELIMITED BY SIZE
            "'"              DELIMITED BY SIZE
       into wl-condi
     end-string
 
     move wl-condi to "Condition" OF CmDb1    
     
     INVOKE CmDb1 "SelectRecords" RETURNING ReturnValue

El problema es que si quiero buscar fechas aunque el cmtext CmFecha-2 tenga un render yyyy/MM/dd me aparece un error en tiempo de ejecucion SQL error State 22005 native error code
Controlador ODBC dBase No coinciden los tipos de datos en la expresion de criterios.

Interpreto que es porque en la base el formato solo especifica D , y no puede comparar la busqueda por que yo lo intento con yyyy/MM/dd.
Tambien lo he probado de varias maneras , pero sigue dandome error.

En resumen lo que quiero hacer es poder interrogar la base de datos y quedarme o pasar una tabla cobol ( o fichero , o lo que sea ) los datos que cumpran la condicion para procesarlos. En este caso por fechas.

Saludos

Añadido despues de 5 minutos

❞ Amigo, yo muevo el "Text" del CmText a un pic 9(8). lo mismo hago, si es que me lo permite el campo de la db, y luego los comparo, o bien los trabajo de acuerdo a mi necesidad. Saludos PD.: espero te sirva

Je, je, je , siempre sirven vuestras enseñanzas. Inicialmente lo que habia pensado hacer es leer toda la base dB y grabarla a un fichero cobol indexado. Proceso y supongo que todo me podria salir mas o menos correctamente.
Pero pienso que realmente no se haria asi, Lo suyo seria actuar directamente sobre la base ( creo ) por esto os comentaba que no se como plantearme este reto, mi pensamiento sigue trabajando en el Rmcobol Dos, quisiera cambiar un poco el chip y aprender a trabajar de otra manera.

Saludos

[Kuk]

Breew, la propiedad "Text" en un CmText obtiene valor sobre 8 en numérico, no coge los guiones/barras. Si en la tabla, el campo de la fecha lo tienes definido como DATE, no va a funcionar. Porque, que yo sepa, el tipo DATE en una tabla siempre lleva separadores, cual exactamente depende del formato. Por ejemplo el formato ISO es AAAA-MM-DD. Si le pones barras "/", va a dar error de formato.

Dicho esto, revisa el formato definido en la tabla. Y sea como sea que muestres las fechas en CmText, con STRING construye el formato de fecha esperado por la BBDD. Así no te dará error.

[Breew]

Hola.

He seguido tus instrucciones y he salvado el error, pero no me funciona, no encuentro el fallo.
Quizas no sepa bien como actua.
Mi intencion es que haga la seleccion por fechas , le indico una fecha minima y quisiera que se situara en ella. A partir de ella , me hiciera un avance al siguiente registro que cumpliera el mismo requisito.

 
 ENVIRONMENT     DIVISION.
 DATA            DIVISION.
 WORKING-STORAGE SECTION.
 01  wl-codigo  pic x(010).
 01  wl-condi   pic x(050).
 01  FECHA.
      02 AÑO        PIC X(4).
      02 MES        PIC X(2). 
      02 DIA        PIC X(2). 
 01  FECHA-2       PIC X(10).
  
 PROCEDURE       DIVISION.
     move spaces to wl-condi.
*     move "Text" OF Cm-FECHA2 TO FECHA. 
*             STRING AÑO "/" MES "/" DIA DELIMITED BY SIZE
*                into FECHA-2.
*              MOVE FECHA-2 TO "Text" OF Cm-FECHA3.
*     MOVE FECHA-2 TO WL-CODIGO.
*     move wl-codigo  TO "Text" OF Cm-FECHA3.
*     string "FECHA  >= '"      DELIMITED BY SIZE
*             WL-CODIGO       DELIMITED BY SIZE
*            "'"              DELIMITED BY SIZE
*            into wl-condi.
 
*  aqui le meto la fecha a la fuerza para ver si chuta
       move "FECHA > 2014/08/30" to wl-condi.
*     end-string
 
     move SPACES   to "Condition" OF CmDb1
     move wl-condi to "Condition" OF CmDb1    
     
     INVOKE CmDb1 "SelectRecords" RETURNING ReturnValue
     if ReturnValue < zeros
        INVOKE pow-self "DisplayMessage" USING "Atencion" "Codigo No Existe" 0
               exit program.
     INVOKE CmDb1 "ReadNextRecord" RETURNING ReturnValue
     if ReturnValue = 1
        move "FECHA"        of CmDb1 to "Text" OF Cm-FECHA
        move "CLICODIGO"    of CmDb1 to "Text" OF Cm-Clicodigo
        move "NOMBRE"       of CmDb1 to "Text" OF Cm-Nombre
        move "TOTAL_FRA"    of CmDb1 to "Text" OF Cm-Total_fra
        move "N_FACTURA"    of CmDb1 to "Text" OF Cm-n_factura
        ELSE DISPLAY RETURNVALUE
     end-if         

Se posiciona en una fecha erronea :-¿?
Y el avance de registro no funciona.

 ENVIRONMENT     DIVISION.
 DATA            DIVISION.
 WORKING-STORAGE SECTION.
 01  wl-codigo  pic x(010).
 01  wl-condi   pic x(050).
 PROCEDURE       DIVISION.
 
     INVOKE CmDb1 "ReadNextRecord" RETURNING ReturnValue
     if ReturnValue = 1
        move "FECHA"        of CmDb1 to "Text" OF Cm-FECHA
        move "CLICODIGO"    of CmDb1 to "Text" OF Cm-Clicodigo
        move "NOMBRE"       of CmDb1 to "Text" OF Cm-Nombre
        move "TOTAL_FRA"    of CmDb1 to "Text" OF Cm-Total_fra
        move "N_FACTURA"    of CmDb1 to "Text" OF Cm-n_factura
     end-if     

❞ Breew, la propiedad "Text" en un CmText obtiene valor sobre 8 en numérico, no coge los guiones. Si en la tabla, el cahmpo de la fecha lo tienes definido como DATE, no va a funcionar. Porque, que to sepa, el tipo DATE en una tabla siempre lleva separadores, depende del formato. Por ejemplo el formato ISO es AAAA-MM-DD. Si le pones barras "/", va a dar error de formato. Dicho esto, revisa el formato definido en la tabla. Y sea como sea que muestres las fechas en CmText, con STRING construye el formato de fecha esperado por la BBDD. Así no te dará error.

[Kuk]

Breew, lo que yo te decía, que mirases cómo tienes definido el campo FECHA en la tabla de la base de datos, no en tu código COBOL. Además:

❞ Por ejemplo el formato ISO es AAAA-MM-DD. Si le pones barras "/", va a dar error de formato.

Y en tu código tienes "/" en vez de "-".

Prueba con:

         STRING AÑO "-" MES "-" DIA 
             DELIMITED BY SIZE INTO FECHA-2.

Por cierto, te compila con la Ñ ¿?!!! Nunca lo había probado.

Ya me contarás

[Breew]

Hola Kuk.

❞ Breew, lo que yo te decía, que mirases cómo tienes definido el campo FECHA en la tabla de la base de datos, no en tu código COBOL. Además: Y en tu código tienes "/" en vez de "-". Prueba con:          STRING AÑO "-" MES "-" DIA              DELIMITED BY SIZE INTO FECHA-2.

Si, lo entendi . En la base de datos, unicamente encuentro que tiene formato d y si lo busco en un editor hexadecimal lo veo como yyyyymmdd.
En la definicion del CmDb1 en FIELDS, el campo fecha lo detecta con formato yyyy/mm/dd. y en ejecucion , tanto con formato separado con guion o barra, no me da error de formato, simplemente se posiciona en el primer registro fisico de la base. Pero lo hace sin cumplir la condicion de que sea mayor que la fecha que le indico. No tengo ni idea del motivo porque no se posiciona segun la posicion.

Quisiera adjuntaros la base, pero es excesivamente grande, y no tengo ninguna herramienta para editarla y poderos enviar algun registro grabado.

❞ Por cierto, te compila con la Ñ ¿?!!! Nunca lo había probado. Ya me contarás

Si , compila con la ñ sin problemas. Utilizo el power Cobol 9.0 Sobre windows 7 .
Por cierto la base dbf esta hecha bajo programacion del FoxPro 6.0

[Hrmcobol]

Hola Amigo, que tan grande es la base, no la puedes bajar a un DropBox?.

saludos

[Breew]

Hola.

He limpiado la base de datos personales y la he subido a un dropbox.

Si alguien quiere echarle un vistazo a ver porque no proceso las fechas por favor que me envie un privado y le doy las señas.

Muchas gracias .

[Rapinto]

Breew,

Tenta o seguinte SQL

"SELECT * FROM FACTURA1 WHERE [FECHA] between #1/02/2003 12:00:00 AM# and #1/02/2003 12:00:00 AM# ;"

Atenção que o formato da data é MM/DD/AAAA

Espero que resolva

Saludos,
Rui Pinto

[Recato53]

❞ Hola Breew, te adjunto un zip con un ppj que lee una base access con una tabla de materiales, también va un jpg con la odbc que debes crear, una base con datos. Si tiene algún error avísame y lo vemos. Saludos espero que te sirva. Si no dime y la seguimos. PD. Crea una carpeta en C: que se llame C:\MF_Breew Saludos

Estoy usando tu ejemplo con tu Base de Datos y no tengo problemas en conectarme, pero cuando lo intento con otra Base de Datos no hay manera de conectarme. Envio un ejemplo de la Base de datos, para ver donde puede estar el problema.

Muchas gracias.

[Dasije]

Al mover los valores, utilizar mascara PIC 9999/99/99.

Yo tengo desarrollado unas rutinas para "descomponer" la mascara que recibe de la base de datos y volcarla a una variable PIC 9(8) en el orden que quiero que se muestre.