Alguien me puede explicar?

[jparada]

Hola,

Aqui no necesitas la macrosustitución, por favor mira el siguiente ejemplo:

Code: Select all

FUNCTION MAIN
	LOCAL cArchivo := "temp"
	
	If .NOT. File( cArchivo + ".txt" )
		? "Archivo no existe..."
	Else
		Use tempdbf 
		Append From ( cArchivo + ".txt" ) Delimited With ,
	Endif
RETURN NIL

Espero te sea de ayuda.

Saludos
Javier

[byrpa]

Muchas gracias, Javier, excelente tu respuesta. Ese comando era el que exactamente estuve buscando. Espero que el type y el Set print to, tambien sea de esa forma porque generalmente cuando imprimo hago lo siguiente,

- Armo un archivo de texto, (no he llegado por alli pero estoy proximo)
Set Print To &parchivo

- Visualizo el archivo con Memoedit(), ahora no se, como se visualiza en una ventana, tendre que investigar mas.

- Lo mando a imprimir con:
type &parchivo to print (si tienen impresora LPT1)

Bueno, a ver como me va.

Gracias nuevamente a todos, son grandiosos. Y espero que todo esto le sirva a muchos como yo, que estamos empezando con HMG.

Saludos

[martingz]

Byrpa, puedes armar el reporte o listado con un preview y asi despues imprimirlo o no

En el ejemplo esta la manera de hacerlo espero que sea lo que quieres

Y ya sabes con todo gusto te ayudamos

saludos

[danielmaximiliano]

Hola Byrpa : yo use el metodo de enviar a un archivo de texto todo lo que queria imprimir
Set Printer TO &impresion
Set Printer ON
Set Console OFF
set device to printer
envio lo que quiero imprimir
Set Printer TO
Set Printer OFF
Set Console ON
EXECUTE file impresion <-- se ejecuta el Notepad
set device to screen
Lo cambie por esto:
SELECT PRINTER DEFAULT ;
ORIENTATION PRINTER_ORIENT_PORTRAIT ;
PAPERSIZE PRINTER_PAPER_LETTER ;
QUALITY PRINTER_RES_MEDIUM
START PRINTDOC
START PRINTPAGE
@ cconl, 30 PRINT "Emitido : " + DToC(Date()) FONT "Arial" SIZE 8
@ cconl, 5 PRINT cti1 FONT "Arial" SIZE 8
@ 20, 300 PRINT "Pàgina Nº : " + Str(ccpag, 3) FONT "Arial" SIZE 8
END PRINTPAGE
END PRINTDOC
Printdoc para comenzar
Printpage por si son varias paginas, si usas la opcion Preview en el select printer tendras un vista previa del documento.
al utilizar este metodo pude mejorar la impresion del documento desde mi aplicacion de consola (D.O.S)
Saludos DaNiElMaXiMiLiAnO