Alguien me puede explicar?

HMG en Español

Moderator: Rathinagiri

jparada
Posts: 430
Joined: Fri Jan 23, 2009 5:18 pm

Re: Alguien me puede explicar?

Post 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
byrpa
Posts: 42
Joined: Wed Apr 14, 2010 5:09 am
Location: Guatemala

Re: Alguien me puede explicar?

Post 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
martingz
Posts: 394
Joined: Wed Nov 18, 2009 11:14 pm
Location: Mexico

Re: Alguien me puede explicar?

Post 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
User avatar
danielmaximiliano
Posts: 2607
Joined: Fri Apr 09, 2010 4:53 pm
Location: Argentina
Contact:

Re: Alguien me puede explicar?

Post 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
*´¨)
¸.·´¸.·*´¨) ¸.·*¨)
(¸.·´. (¸.·` *
.·`. Harbour/HMG : It's magic !
(¸.·``··*

Saludos / Regards
DaNiElMaXiMiLiAnO

Whatsapp. := +54901169026142
Telegram Name := DaNiElMaXiMiLiAnO
Post Reply