Crear archivo INI para CfdLib.dll

[Robert Fox]

Hola Dado o a quien corresponda:

Alguna sugerencia de como generar el archivo INI en Visual Fox.
Lo necesito para tus librerias de CFDLib.dll

Tenia unas rutinas pero no me están funcionando del todo bien.
Perdón sé que puede parecer algo muy sencillo pero por el tiempo que tengo
corto para generar los CFDI me atrevo a preguntar si alguien tiene unas
mejores rutinas para grabar lineas en archivo INI.

Gracias de antemano por cualquier apoyo.

[Dado]

Nop, lo siento pero no programo en VFox

[Jesus Castelo]

tu duda es como generar archivos de texto plano en fox? o mas especificamente, como se genera el ini que se usa en CfdLib.dll?

[Robert Fox]

Hola Jesús Castelo:

Mi duda es como generar el archivo INI para cfdlib.dll
Sé los parámetros que debe llevar, pero como creo linea por linea en un INI
esos parámetros desde el VisualFox.
por decirlo asi como grabo en el archivo ini:
[Comprobante]
Version=3.2
Serie=A
Folio=70
Fecha=2014-01-01T11:34:27
FormaDePago=PAGO EN UNA SOLA EXHIBICION
Etc...

La información ya la tengo en archivos dbf pero necesito crear el archivo.ini
a partir de esas tablas para que el cfdlib.dll genere el cfd.

Gracias por tu ayuda.

[jasistemas]

Con algo como el SET ALTERNATE TO puedes direccionar la salida de lo que ves normalmente en pantalla con "?" hacia un archivo texto plano.

SET ALTERNATE TO texto1.txt
SET ALTERNATE on
SET CONSOLE OFF
CLOSE DATABASES
USE TuTabla
......?? "campos

DO WHILE ! EOF()
...?
...FOR nI = 1 TO FCOUNT()
......cCampo = FIELD( nI)
......?? &cCampo
.......IF nI < FCOUNT()
..........?? ","
.......ENDIF
...NEXT

...SKIP

ENDDO
SET CONSOLE ON

SET ALTERNATE off
SET ALTERNATE TO

[Jesus Castelo]

otra opcion parecida de escribir archivos de texto plano:

SET Device TO File &cNombre_Archivo_ini

***nAvance cuantas lineas me quiero mover apartir de la linea en que estoy
***Escribimos desde la columna 0 pero puede ser otra
@PRow() + nAvance, 0 Say "Inicio del archivo INI"
@PRow() + nAvance, 0 Say "Algo que debe ir en el archivo INI"
@PRow() + nAvance, 0 Say "Final del archivo INI"

SET Device TO SCREEN

[Robert Fox]

Hola Jesús:

Finalmente aplique la ultima sugerencia que me diste:

SET Device TO File &cNombre_Archivo_ini y los @PRow() + nAvance, 0 Say ......
Ejemplo:
@PRow() + _n, 0 Say "[Comprobante]"
@PRow() + _n, 0 Say "Version=3.2"
@PRow() + _n, 0 Say "Serie=F"
@PRow() + _n, 0 Say "Folio="+ALLTRIM(STR(comprobante.id))
.
.
.
El resultado fue bueno y logre ya timbrar con el CFDLIb.dll

Te agradezco mucho tu ayuda y al foro