Un poco de GeneXus...

[Arielo]

Bien... Para cambiar un poco el foro de programación, hoy les traigo una pequeña rutina en el lenguaje con el que trabajo todos los días: GeneXus

Esta rutina hace un append de una DBF.

Para esto, habrá que declarar las siguientes variables:
dbfFile - C(80)
DataView - C(80)
Linea - N(6)
&Msg - C(80)
Ok - C(1)
Tipo - C(3)

NOTA: C(80) significa que es una variable de tipo "Character", con una longitud de 80 bytes. Del mismo modo, N(6) significa que es una variable "Numeric" de 6 dígitos.

Esta rutina debe recibir los parms:
&dbfFile - &DataView - &Tipo

y devolverá un valor en &Ok

El código es el siguiente:

&Ok = 'S'

DBase CLOSE DATA

&Msg = 'Importando ' + &ArchivoDBF 
Msg(&Msg, NoWait) 

DBase ARCHIVO = '"'+[!&DataView!]+'.DBF"'

DBase IF .NOT. FILE(&Archivo)
  &Ok = 'N'
  &Msg = 'Archivo no encontrado: ' + &DataView
  Msg(&msg)
  Return
DBase ENDIF

DBase USE &ARCHIVO EXCL
DBase ZAP
DBase PACK
  
DBase ARCHIVO = '"'+[!&dbfFile!]+'"'
  
DBase IF .NOT. FILE(&Archivo)
  &Ok = 'N'
  &Msg = 'Archivo no encontrado ' + &dbfFile
  Msg(&Msg)
  Return
DBase ENDIF

If &Tipo = 'DBF'	
  DBase APPEND FROM &ARCHIVO
  DBase CLOSE DATA
Else   
  DBase APPEND FROM &ARCHIVO SDF
  DBase CLOSE DATA
EndIf

En el parámetro de salida &Ok, se encuentra el resultado de la operación.
Si fué exitosa, contendrá "S", de lo contrario, contendrá "N"

[josell]

INTERESANTE... no sabía que este lenguaje existiera... para que te es de utilidad? saludos.

[Arielo]

A mí, me sirve para ganarme la vida.
A la empresa para la cual programo, para cubrir todas sus necesidades de software.

[jak_uy]

Bien... Para cambiar un poco el foro de programación, hoy les traigo una pequeña rutina en el lenguaje con el que trabajo todos los días: GeneXus

Esta rutina hace un append de una DBF.

Para esto, habrá que declarar las siguientes variables:
dbfFile - C(80)
DataView - C(80)
Linea - N(6)
&Msg - C(80)
Ok - C(1)
Tipo - C(3)

NOTA: C(80) significa que es una variable de tipo "Character", con una longitud de 80 bytes. Del mismo modo, N(6) significa que es una variable "Numeric" de 6 dígitos.

Esta rutina debe recibir los parms:
&dbfFile - &DataView - &Tipo

y devolverá un valor en &Ok

El código es el siguiente:

&Ok = 'S'

DBase CLOSE DATA

&Msg = 'Importando ' + &ArchivoDBF 
Msg(&Msg, NoWait) 

DBase ARCHIVO = '"'+[!&DataView!]+'.DBF"'

DBase IF .NOT. FILE(&Archivo)
  &Ok = 'N'
  &Msg = 'Archivo no encontrado: ' + &DataView
  Msg(&msg)
  Return
DBase ENDIF

DBase USE &ARCHIVO EXCL
DBase ZAP
DBase PACK
  
DBase ARCHIVO = '"'+[!&dbfFile!]+'"'
  
DBase IF .NOT. FILE(&Archivo)
  &Ok = 'N'
  &Msg = 'Archivo no encontrado ' + &dbfFile
  Msg(&Msg)
  Return
DBase ENDIF

If &Tipo = 'DBF'	
  DBase APPEND FROM &ARCHIVO
  DBase CLOSE DATA
Else   
  DBase APPEND FROM &ARCHIVO SDF
  DBase CLOSE DATA
EndIf

En el parámetro de salida &Ok, se encuentra el resultado de la operación.
Si fué exitosa, contendrá "S", de lo contrario, contendrá "N"

Como estas Arielo??

Muy bueno el aporte, y estoy intentando usar esto para leer un DBF y volcar los datos en MySQL con gen java. Y tengo un par de dudas conlas variables que utilizas en el código. Me mareo un poco con las variables &dbfFile, &ArchivoDBF, &DataView.
Me podrías dar un ejemplo concreto de uso con esas variables??

Y en la sentencia DBase... DBase If .NOT. File(ARCHIVO) (no sería sin el &) ?

Muchas gracias.
Te agradezco si me pudieras ayudar pronto!!
Saludos.

[Arielo]

Hola, jak_uy, bienvenido... Qué bueno que se haya inscrito alguien que conozca GeneXus...

Las variables que mencionás, en concreto son:

&ArchivoDBF y &Dataview, son ambas Character(80). Contienen los nombres de las DBF original, y del DataView destino de los datos.

&Archivo está utilizado de esa manera, para que la macrosustitución sea soportada. Para esto se debe utilizar: [!(variable)!] junto con instrucción DBase al definirla.

Ejemplo:

&Formula = '1+1' 
&Resultado = 0 
dBase dBaseFormula = [!&Formula!] 
dBase [!&Resultado!] = dBaseFormula

Al final del código, &Resultado contendrá el valor 2...
Esto sirve con los generadores Fox, no sabría decirte si con otros funciona...

Lo que no especifiqué, fueron los parámetros para el call a este prc:

Call(rAppend, &ArchivoDBF, &DataView, 'DBF', &Ok)

El tercer parámetro, con valor en este caso = 'DBF', especifica cuál será el formato de salida. En base a esto, se agrega o no la sentencia SDF al final del comando APPEND...


Ahora, si lo que necesitas es pasar los datos de una DBF a una base MySQL, podrías usar el SQLCopy, y te ahorrás el estar codificando ...

Por ejemplo, yo estoy utilizando generador Java con PostgreSQL. Para importar datos desde una DBF, uso el SQLCopy junto a PGAdmin III, y anda perfecto. Y este código, lo uso sólo para importación de datos desde una DBF suelta, desde una opción del menú del sistema...



.

[jak_uy]

Hola, jak_uy, bienvenido... Qué bueno que se haya inscrito alguien que conozca GeneXus...

Las variables que mencionás, en concreto son:

&ArchivoDBF y &Dataview, son ambas Character(80). Contienen los nombres de las DBF original, y del DataView destino de los datos.

&Archivo está utilizado de esa manera, para que la macrosustitución sea soportada. Para esto se debe utilizar: [!(variable)!] junto con instrucción DBase al definirla.

Ejemplo:

&Formula = '1+1' 
&Resultado = 0 
dBase dBaseFormula = [!&Formula!] 
dBase [!&Resultado!] = dBaseFormula

Al final del código, &Resultado contendrá el valor 2...
Esto sirve con los generadores Fox, no sabría decirte si con otros funciona...

Lo que no especifiqué, fueron los parámetros para el call a este prc:

Call(rAppend, &ArchivoDBF, &DataView, 'DBF', &Ok)

El tercer parámetro, con valor en este caso = 'DBF', especifica cuál será el formato de salida. En base a esto, se agrega o no la sentencia SDF al final del comando APPEND...


Ahora, si lo que necesitas es pasar los datos de una DBF a una base MySQL, podrías usar el SQLCopy, y te ahorrás el estar codificando ...

Por ejemplo, yo estoy utilizando generador Java con PostgreSQL. Para importar datos desde una DBF, uso el SQLCopy junto a PGAdmin III, y anda perfecto. Y este código, lo uso sólo para importación de datos desde una DBF suelta, desde una opción del menú del sistema...



.

Muchísimas gracias por la pronta respuesta!! Y la verdad que apoyo mucho a GX, porque también me gano la vida con ello (o al menos trato) jeje.

De todas formas si no te jode, te voy a seguir molestando un poco más

Te cuento lo que necesito hacer, porque capaz que en realidad no necesito hacer esto y se pueda hacer con sqlcopy (que en realidad tampoco lo conozco).
Estoy generando java también para MySQL, y lo que necesito hacer es un proc que se corra en forma batch al final del día para leer unas tablas DBF y tirar unos resultados procesados en MySQL. Por ello es que me gustaría no tener que hacer un prog en fox (por ejemplo) aparte para esta lectura y volcado de datos.
Decís que esto es más sencillo hacerlo por sqlcopy? Me podrías guiar un poco con ello?. O de lo contrario, me podrías ayudar a ajustar tu ejemplo para lo que estoy buscando (lectura DBF, grabación mySQL) ?.

Peerdona la molestia en serio, pero es muy importante.
Mientras tanto vengo probando con la librería javaDBF.

Mil Gracias!!
Saludos.

[Arielo]

Ah, pero si es un proceso diario no sé si te va a ser útil el Sqlcopy. Yo lo uso para convertir bases de un formato a otro, por ejemplo, para migrar de una versión a otra del mismo sistema.
Tengo un sistema programado en Gx 7.5 y generador FoxPro, y lo estoy migrando a Gx 9.0 con generador Java y motor PostgreSQL para las bases. Entonces, para volcar todos los datos de las DBF a Postgre, utilizo el SqlCopy.
Pero esto, para hacerlo unas pocas veces, sino es algo engorroso.
Si tenés que hacer el proceso todos los días, conviene hacer una rutina de importación/exportación...

El tema es que hasta donde yo sé, no tenemos acceso a bases .DBF si usas generador Java.

Tengo un caso parecido al tuyo, en el que tengo que pasar datos desde una DBF a Postgre importándolos desde dentro del sistema.
La rutina de Append con que inicié el tema no va a servir, porque graba en DBF o archivo texto...

Lo que hice, fue:
- En el sistema generado con FoxPro, un PRC que me genere un archivo .XML con los datos que tengo que importar. (O puede ser un .EXE aparte del sistema principal, que sólo realice la exportación al .XML)
- En el sistema generado con Java, un PRC que me importe los datos desde el .XML, y los vaya grabando en la tabla Postgre...

Si te sirve, avisame, y subo el cómo hacerlo. No es ninguna molestia...

Saludos!

[jak_uy]

Por supuesto que me sirve sí. Podría correr ese prc como externo dentro del generado en java.

De todas formas sigo investigando el javaDBF y sí llego a buen puerto te aviso por si también te sirve a tí.

Saludos, y gracias!

[Arielo]

Ok. Supongamos que queremos exportar las ventas realizadas mediante factura tipo ‘A’, entre dos fechas determinadas.
Para esto contamos con una tabla DBF llamada “VENTAS” con la siguiente estructura:
VtaFecha --> D(8) --> Fecha en que se realizó la venta.
VtaCliente --> N(10) --> Código del cliente al que se le vendió.
VtaTipoComp --> C(3) --> Tipo de comprobante emitido.
VtaNroComp --> N(8) --> Número de comprobante emitido.
VtaImporte --> N(12.2) --> Importe total de la factura por la venta.

Dentro de la base de datos de MySQL, tenemos una tabla llamada “Ventas” con la misma estructura que la DBF.

Exportación:
Utilizaremos las siguientes variables:
&Archivo --> C(80) --> Debe contener el path y el nombre del archivo .XML donde se exportarán los datos
&FileXML --> o(XMLWriter) --> Variable de tipo XMLWriter
&DdeFecha --> D(8) --> Contiene la fecha desde la que se exportarán los datos
&HtaFecha --> D(8) --> Contiene la fecha hasta la que se exportarán los datos
&Cliente --> C(10) --> Código del cliente
&Fecha --> C(8) --> Fecha en que se realizó la venta
&Importe --> C(12) --> Importe total de la factura
&Registro --> C(8) --> Identificación única de la venta (= número de comprobante)

Ya estamos listos para tipear el código. Todo esto puede ser hecho en el mismo WorkPanel donde el usuario ingrese el nombre del archivo, y las fechas desde/hasta. Si a este Workpanel lo definimos como Main, al compilarlo obtendremos un .EXE autónomo, que el usuario podrá ejecutar sin necesidad de estar dentro del sistema principal. O, se lo puede agregar como opción, colgándolo de algún menú, claro...

El código para exportar los datos:

&FileXML.Open(&Archivo)                    // Abrimos el archivo .XML
 &FileXML.WriteStartDocument()         // Comenzamos escritura del archivo
 &FileXML.WriteStartElement(‘VENTAS’)  // Se inicia el elemento ‘Ventas’

  For Each
     Where VtaFecha >= &DdeFecha // Fecha menor para exportación
     Where VtaFecha <= &HtaFecha // Fecha mayor para exportación
     Where VtaTipoComp  = ‘FCA’    // Código (ejemplo) para facturas ‘A’
            &Fecha = DToc(VtaFecha)  // Convertimos la fecha a texto
            &Cliente = Str(VtaCliente, 10, 0) // Convertimos el código de cliente a texto
            &Importe = Str(VtaImporte, 12, 2) // Convertimos el importe a texto con dos decimales
            &Registro = 'FCA' + Str(VtaNroComp, 8, 0) // Convertimos el número de comprobante a texto, y le anteponemos 'FCA'
  
            &FileXML.WriteStartElement(&Registro) // Comenzamos a exportar un comprobante
                &FileXML.WriteElement('Fecha', &Fecha) // Escribimos la fecha en el .XML
                &FileXML.WriteElement('Cliente', &Cliente) // Escribimos el código del cliente en el .XML
                &FileXML.WriteElement('Importe', &Importe) // Escribimos el importe de la venta en el .XML
            &FileXML.WriteEndElement() // Terminamos de exportar un comprobante
 EndFor
  
 &FileXML.WriteEndElement()              //  Cerramos elemento ‘Ventas’
 &FileXML.Close ()  // Cerramos el archivo

Y con esto, ya tenemos el archivo .XML generado. El que, al abrirlo, debería verse (con valores de ejemplo) así:

<?xml version="1.0" encoding="ISO-8859-1"?>
  <VENTAS>
        <FCA00014528>
              <Fecha>03/06/08</Fecha>
              <Cliente>01210</Cliente>
              <Importe>185.65</Importe>
        </FCA00014528>
  </VENTAS>

Eso sí, lamentablemente, me tengo que ir hasta mañana... Así que, mañana subo el código para importar estos datos...


.

[Macuy]

No recordaba este post, pero esta muy bueno...
Segun entiendo, tiene la logica de desarrollo muy parecida a ruby on rails que habia comentado anteriormente (por cierto, ya no encuentro ese post)...

La curva de aprendizage que tan grande es Arielo?? cambia mucho la logica versus a la programacion en java o asp.net???

Xaludos