Page 3 of 3

Re: Alguien me puede explicar?

Posted: Sun May 16, 2010 6:59 pm
by 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

Re: Alguien me puede explicar?

Posted: Mon May 17, 2010 5:43 am
by 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

Re: Alguien me puede explicar?

Posted: Mon May 17, 2010 5:28 pm
by 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

Re: Alguien me puede explicar?

Posted: Wed May 19, 2010 1:07 am
by 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