Auxilio.. urgente

Hola Programador:

Checate el siguiente comando

REPORT FORM 'MiReporte' TO PRINTER PROMPT PREVIEW

Ing. José Moyano Huergo
Todo es don de Dios

"Progamador T-101" escribió en el mensaje
news:

Amigos necesito saber como envio mi reporte a un archivo.txt
y luego abrirlo en worpad. o Block de notas pero que me abra en cualquier
sistema
98, Me, 2000, Xp porque baje un de portal pero funciona bien solo en Xp y
tengo problemas con los sistemas bajos

Ayuda esto me puede costar mi puesto...

Astutos Como El Zorro Solo; Somos Pocos. No Dejemos Que El Zorro Muera.

.Net

Es Exelente Pero El Zorro Es El Zorro.

Hola León

Este ejemplo es muy sencillo, usando el comando RUN para ejecutar el
Notepad, pero puedes emplear otros métodos como WSH o API, que puedes
conseguir en www.portalfox.com

REPORT FORM Clientes.FRX TO FILE C:\Ruta\Clientes.TXT ASCII
*
! /N NOTEPAD.EXE C:\Ruta\Clientes.TXT

Saludos cordiales,

T.S.U. Edhin Jiménez
Coordinador Estatal Zulia
PortalFox Venezuela
Maracaibo, Venezuela

"Progamador T-101" escribió en el mensaje
news:

Amigos necesito saber como envio mi reporte a un archivo.txt
y luego abrirlo en worpad. o Block de notas pero que me abra en cualquier
sistema
98, Me, 2000, Xp porque baje un de portal pero funciona bien solo en Xp y
tengo problemas con los sistemas bajos

Ayuda esto me puede costar mi puesto...

Astutos Como El Zorro Solo; Somos Pocos. No Dejemos Que El Zorro Muera.
.Net
Es Exelente Pero El Zorro Es El Zorro.

Mira estas dos formas de hacerlo (ambas están en PortalFox):

*-- Con API:
lcApp = AplicAsoc("TXT")
lcFile = GETFILE("TXT")
RUN /N &lcApp &lcFile

*
* FUNCTION AplicAsoc(tcExt)
*
* Retorna la ruta y nombre completo de la
* aplicación asociada a al extensión del
* archivo pasado como parámetro
*
FUNCTION AplicAsoc(tcExt)
LOCAL lcArc, lcApp, ln, ll, lc
DECLARE LONG FindExecutable ;
IN SHELL32.DLL ;
STRING lpfile, ;
STRING lpdirectory, ;
STRING lpresult
lcArc = FORCEEXT(SYS(5)+CURDIR()+SYS(2015),tcExt)
ln = FCREATE(lcArc)
ll = FCLOSE(ln)
lc = SPACE(255)
lcApp = ""
IF FindExecutable(lcArc,"",@lc) >= 32
lcApp = SUBSTR(lc,1,AT(CHR(0),lc)-1)
ENDIF
IF FILE(lcArc)
DELETE FILE (lcArc)
ENDIF
RETURN lcApp
ENDFUNC
*



*-- Con WSH
LOCAL lcFile, loShell
lcFile = GETFILE("TXT")
loShell = CREATEOBJECT("Shell.Application")
loShell.ShellExecute(lcFile)
RELEASE loShell


Luis María Guayán
Tucumán, Argentina
________________________________
SysOp de www.PortalFox.com
Microsoft Visual FoxPro MVP
________________________________
La palabra imposible solo figura
en el diccionario de los tontos


"Progamador T-101" escribió en el mensaje
news:

Amigos necesito saber como envio mi reporte a un archivo.txt
y luego abrirlo en worpad. o Block de notas pero que me abra en cualquier
sistema
98, Me, 2000, Xp porque baje un de portal pero funciona bien solo en Xp y
tengo problemas con los sistemas bajos

Ayuda esto me puede costar mi puesto...

Astutos Como El Zorro Solo; Somos Pocos. No Dejemos Que El Zorro Muera. .Net
Es Exelente Pero El Zorro Es El Zorro.