FiveTech Support Forums

Alguien podría ayudarme con esto, quiero trabajar con reportes parametrizables como por ejemplo:

Inicialice( "oPrn","")
Inicialice( "oFont1","")
Inicialice( "oFont2","")
Inicialice( "oFont3","")
Inicialice( "oCheque","")
Inicialice( "oPoliza","")
Inicialice( "l",0)
Inicialice( "nEsp",0)
Inicialice( "oPara","")

oCheque := banCheque()
oPoliza := banPoliza()

oPara := _DaPara()
PrnSetSize( 2160, 1880 )

oPrn := ActivaImpresora( "Impresión de Cheque", .f. )
oFont1:= ActivaFont( "MS Sans Serif", 0, -08, oPrn )
oFont3:= ActivaFont( "MS Sans Serif", 0, -10, oPrn )
oFont2:= ActivaFont( "MS Sans Serif", 0, -10, oPrn, .t. )
nEsp := EspacioFont( oPrn, oFont1 ) + 0.05

IniciaPagina()

Imprimir( oPrn,0.2,8.7," NO NEGOCIABLE ",oFont2 )
Imprimir( oPrn,2.1.0,17.1,FormatoNum(oCheque:FieldGet(9),",,**9.99"),oFont1 )
//,oFont2 )
Imprimir( oPrn,1.3,12,FormatoFec(oCheque:FieldGet(3),5),oFont1 )
Imprimir( oPrn,2.15,4.1,oCheque:FieldGet(4),oFont1 )
//Imprimir( oPrn,3,4.3,Num2Letras( oCheque:FieldGet(9)),oFont3 )
Imprimir( oPrn,3,4.3,Num2Letras( oCheque:FieldGet(9)),oFont1 )
//Imprimir( oPrn,6.5,1.5,"Obs: "+oCheque:FieldGet(6),oFont1 )

l := 8.2
IniciaLoop( "!oPoliza:Eof()" )
Imprimir( oPrn,l,1.5,oPoliza:FieldGet(1),oFont1 )
Imprimir( oPrn,l,4,cIzquierda(oPoliza:FieldGet(5)+"/"+oPoliza:FieldGet(2),55),oFont1 )
Imprimir( oPrn,l,15.5,FormatoNum(oPoliza:FieldGet(3),"999,999,999.99"),oFont1 )
Imprimir( oPrn,l,18,FormatoNum(oPoliza:FieldGet(4),"999,999,999.99"),oFont1 )

l := l+nEsp
oPoliza:Fetch()
TerminaLoop()

l := l+nEsp
// Imprimir( oPrn,l,4,oCheque:FieldGet(5),oFont1 )
l := TextoJustificado( oPrn, l, 4, 10.5, oCheque:FieldGet(5), oFont1, nEsp )

Imprimir( oPrn,15.6,4.1,"RECIBIO:",oFont1 )
Imprimir( oPrn,15.95,4.1," Nombre: _____ No. Cédula: ____",oFont1 )
Imprimir( oPrn,17.2,1,oPara:cUser,oFont1 )

TerminaPagina()

DesActivaImpresora()

PrnSetSize( 2160, 2790 )
CancelaFont( oFont1 )
CancelaFont( oFont2 )
CancelaFont( oFont3 )

Lo que quiero es algo parecido a la macrosustitucion de FOXPRO
se puede ?

Asi este archivo lo pongo en una carpeta de reportes y no tengo que estar compilando mi aplicación.

Atentamente,
Julio Ponce

Julio,

A mi me parece que puedes hacerlo de igual forma con Harbour/xHarbour y FWH

Solo necesitas implementar esas funciones que parecen bastante sencillas de hacer: Imprimir(), etc.

Hola:

También puedes usar generadores de informes, como:

http://www.canalfive.com/modules.php?name=prod_report

http://www.paritetsoft.ru/frh.htm

Y sylvio de Italia está también desarrollando uno nuevo.

Un saludo,

Antonio

Las funciones Imprimir si las tengo, lo que quiero es que este segmento de programacion este fuera, por ejemplo en un archivo .txt o .rpo para que el usuario pueda modificar sus formatos de impresion, y no tener que compilar la aplicación cada vez que se cambie un formato de impresion.

Gracias

Atentamente
Julio Ponce

Julio,

Solo tienes que ir leyendo línea a línea del fichero de texto en donde tengas las instrucciones guardadas y hacer un macro de la línea.

Por ejemplo:

Gracias Antonio

Funciono bien

Atentamente
Julio Rodrigo Ponce Hinestroza