Convertir datos de Fox 9 a Archivo PRN

[José Jiménez Zuryta]

Saludos: requiero convertir datos de un Cursor a un archivo PRN. POr
que PRN?
Haciendio pruebas de pasar datos de excel a PRN, es el unico tipo de
archivo que me deja las diferentes columnas o campos que requiero en
una sola Celda, espaciados y alineados. El espacio que quiero entre
los campos o datos es como de 4 carcateres en blanco y los valores
textos sin comillas, algo así.

1 9894 4.00 1.20 89 2.36 1.54 P-897
2 9895 3.50 3.56 70 6.89 8.94 Q-99

Etc, etc., etc.

Agradezco su ayuda

[Carlos Alfaro]

Saludos Jose:

Yo lo hago asi:

set printer to tu_archivo.prn
set print on
set console off
primeralinea = .t.
l_contador = 1
select mi_tabla
do while !eof()
if primeralinea then
?? str(l_contador) + space(4) + campo1 + space(4) + campo2 ....
primeralinea = .f.
else
?? str(l_contador) + space(4) + campo1 + space(4) + campo2 ....
endif
l_contador = l_contador + 1
skip
enddo
set print off
set console on
set printer to

----- Original Message -----
From: "Jos� Jim�nez Zuryta" <jzu...@gmail.com>
To: "Comunidad de Visual Foxpro en Espa�ol"
<publice...@googlegroups.com>
Sent: Friday, October 22, 2010 8:12 AM
Subject: [vfp] Convertir datos de Fox 9 a Archivo PRN

Saludos: requiero convertir datos de un Cursor a un archivo PRN. POr
que PRN?
Haciendio pruebas de pasar datos de excel a PRN, es el unico tipo de
archivo que me deja las diferentes columnas o campos que requiero en
una sola Celda, espaciados y alineados. El espacio que quiero entre
los campos o datos es como de 4 carcateres en blanco y los valores

textos sin comillas, algo as�.

[Jose Zurita]

Agradezco tu ayuda, reviso el codigo y lo aplico

> textos sin comillas, algo así.

[Carlos Alfaro]

Tiene un error.

 

Despues del else solo debe escribirse una ?

 

 if primeralinea then
   ?? str(l_contador) + space(4) + campo1 + space(4) + campo2 ....
   primeralinea = .f.
 else
   ? str(l_contador) + space(4) + campo1 + space(4) + campo2 ....
 endif

Bendiciones.

 

Carlos Alfaro

[Jose Zurita]

OKey, yo reviso mi estimado

---

From: calf...@yahoo.com.ar
To: publice...@googlegroups.com
Subject: Re: [vfp] Convertir datos de Fox 9 a Archivo PRN

Date: Fri, 22 Oct 2010 10:28:17 -0600

[Jose Zurita]

Como puedo hacer para que, le pregunte al usuario donde kiere grabar el archivo que se va a armar?

---

From: calf...@yahoo.com.ar
To: publice...@googlegroups.com
Subject: Re: [vfp] Convertir datos de Fox 9 a Archivo PRN

Date: Fri, 22 Oct 2010 10:28:17 -0600

[Darío Castillejos]

 

Revisa la ayuda de la función  PUTFILE( )

 

Saludos.

 

---

[Jose Zurita]

OKas... revisare

---

From: dcasti...@distribuidoralevic.com
To: publice...@googlegroups.com

Subject: RE: [vfp] Convertir datos de Fox 9 a Archivo PRN

Date: Fri, 22 Oct 2010 12:27:56 -0500

[ibania blanco]

Como puedo hacer para que, le pregunte al usuario donde kiere grabar
el archivo que se va a armar?

con respecto a esto colocale algunos command botom, y ahi colocarle
las opcines posibles que posee, si es un directorio sin saber su
nombre getdir(), si es una usb set printer to f:nombrefile.prn, si
diskeet a:nombrefile.prn

me pidieron un archivo para bancos, para abonarles a sus cuentas y era
prn
y lo hice asi
*----------------------
set devi to print
set prin to c:\tmp\abanco.PRN
use acumu in 0 order ocupa alias acumulado
l=1
sele acumulado
conc05="ABONO A CUENTA AHORRO"
scan whil ! eof()
acodi=codigo
acuen=alltrim(cuentab)
asuel=((sueldo+comisi)-deducc)
@l,0 say asuel+chr(9)+acuen+chr(9)+"0003"+chr(9)+acodi
+chr(9)+conc05+chr(9)
l=l+1
endscan

set print to
set devi to screen

[Jose Zurita]

Agradezco tu valiosa ayuda.

> Date: Mon, 25 Oct 2010 13:25:59 -0700
> Subject: [vfp] Re: Convertir datos de Fox 9 a Archivo PRN
> From: ibania...@hotmail.com
> To: publice...@googlegroups.com