CREAR UN ARCHIVO TXT DELIMITADO CON |

[Rafael Flores Quezada]

BUENAS TARDES FORO, TENGO LA NECESIDAD DE CREAR EN ARCHIVO TXT CON EL ENCABEZADO DE UNA FACTURA Y SU DETALLE, PERO NO TENGO LA MINIMA IDEA DE COMO HACERLO A VER QUIEN ME PUEDE AYUDAR POR FAVOR

[Irwin Rodriguez]

Aqui un ejemplo sencillo:

local lnhandle, lcLinea, lnPos
lnhandle = FCREATE('nombre_archivo.txt')
IF (lnhandle > 0)

   FOR lnPos = 1 TO 10 STEP 1

      lcLinea = 'Linea de prueba ' + ALLTRIM(STR(lnPos))

      IF lnPos = 1

         FPUTS(lnhandle, lcLinea)

      ELSE
         lcLinea = CHR(124) + lcLinea
         FPUTS(lnhandle, lcLinea)

      ENDIF

   ENDFOR

ELSE

ENDIF

*************************

El Char 124 es el caracter PipeLine para separar.

Solo adapta el FOR por un SCAN sobre tu cursor de Facturas y listo.

Saludos!!

El 14 de agosto de 2014, 11:56, Rafael Flores Quezada <rafa...@gmail.com> escribió:

BUENAS TARDES FORO, TENGO LA NECESIDAD DE CREAR EN ARCHIVO TXT CON EL ENCABEZADO DE UNA FACTURA Y SU DETALLE, PERO NO TENGO LA MINIMA IDEA DE COMO HACERLO A VER QUIEN ME PUEDE AYUDAR POR FAVOR

--
_______________________________________________________________
Has recibido este mensaje porque estás suscrito al Grupo "Mundo Visual
FoxPro" de Grupos de Google.
 
Para anular la suscripción a este grupo, envía un mensaje a:
mundovisualfox...@googlegroups.com
---
Has recibido este mensaje porque estás suscrito al grupo "Mundo Visual FoxPro" de Grupos de Google.
Para anular la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a mundovisualfox...@googlegroups.com.
Para acceder a más opciones, visita https://groups.google.com/d/optout.

--

Ing. Irwin Rodríguez

 

Consultor Informático

+584125210679

 

"Las ideas son fuerzas intangibles, pero tienen más poder que el cerebro físico de donde nacen. Tienen el poder de seguir viviendo, aún después de que el cerebro que las ha creado haya regresado al polvo"

NOTA: La información mostrada en este mensaje es de caracter Confidencial y está dirigida unicamente a los contactos señalados en el encabezado; si el lector de este correo no es el destinatario del mismo, se le notifica que cualquier copia o distribución queda totalmente prohibida. Si usted ha recibido este mensaje por error, por favor notifique inmediatamente al remitente por este mismo medio y bórrelo de su sistema.

[Irwin Rodriguez]

Ah, lo olvidaba!

FCLOSE(lnhandle)

despues del ENFFOR :-)

Saludos!

[Rafael Flores Quezada]

Gracias Irvin por tu ayuda

y aprovechar la oportudiad para hacerte otro consulta

quisiera saber como le hago para extraer de un numero la parte entera y la decimal

 y luego unirla sin el punto de los decimales

[Aaron varon]

Estimado Rafael, si lo que deseas es exportar un cursor o datos de una tabla a archivo TXT plano, ejecuta esta sentencia despues del curso o después de abrir una tabla

COPY TO mytxt.txt DELIMITED WITH _ WITH CHARACTER ';'

Saludos cordiales;

DELGADO JAIMES, Roberto Aarón
Fijo: 4192132 /  RPM: #950974050

[Irwin]

Intenta con este ejemplo a ver si te sirve:

LOCAL _canent, _candec, _cancar, _at, _canfin
_canent = PADL(ALLTRIM(STR(INT(micursor.precio))),2,SPACE(1))
IF (VAL(_canent) == 0)
    _canent = SPACE(1)+SPACE(1)
ELSE &&(VAL(_canent) == 0)
ENDIF &&(VAL(_canent) == 0)
_cancar = ALLTRIM(STR(micursor.precio,5,3))
_at = AT('.',_cancar)
_candec = PADL(SUBSTR(_cancar,_at+1,LEN(_cancar)-_at),3,'0')
_canfin = _canent + _candec

en la variable _canfin obtendrías el resultado final.

Saludos!