Hola amigos,
Tengo la siguiente duda: He visto en los ejemplos como TESTPRN2.PRG que se utiliza la clase oPrn:Say()
para generar informes personalizados.
Nunca he hecho esto y antes de empezar, quisiera saber si este es el único metodo o existe algún
otro metodo de diseño más facil, digamos mas visual tipo Recursos. Ya que hacerlo todo por cooredenadas tipo @ SAY
es un poco lento.
Gracias.
Puedes usar FastReport, Crystal report, rpreview entre otros, saludos... 
Javier:
Te serviria algo como esto:
http://www.hymplus.com/imagenes/factura.JPG
Lo hago con EasyReport y viene con FiveWin.
Saludos
MauroArevalo wrote:Javier:
Te serviria algo como esto:
http://www.hymplus.com/imagenes/factura.JPG
Lo hago con EasyReport y viene con FiveWin.
Saludos
Gracias por vuestra respuesta.
Como tenia prisa por empezar, al final he recurrido a un metodo artesanal pero efectivo.
Me he impreso una cuadricula o rejilla con las coordenadas anotadas de fila y columna.
Luego sobre el papel he ido escribiendo los datos del forumario sobre las coordenadas.
Y luego he codificado usando la clase TPrint:Say( fila, col, .....) de siempre.
Probé con CrystalReport 2008 Trial, pero no consigo hacer funcionar el TOLeauto():New()
Gracias por tu ejemplo Mauricio, se vé muy vistoso.
Investigaré el EasyReport a ver como me queda.
Saludos amigos.
aTexto := LeerTxt(cFile)
DEFINE DIALOG oDlgView FROM nDWTop, nDWLeft TO nDWBottom, nDWRight PIXEL TITLE "Vista Preliminar de: "+cFile
oBrw1:= TXBrowse():New( oDlgView )
WITH OBJECT oBrw1
:nMarqueeStyle := MARQSTYLE_HIGHLROW
:lRecordSelector:=.F.
:nFreeze:=1
:nColSel:=2
:nHeaderHeight:=8
:SetArray( aTexto,.T. )
:bClrSelFocus:={ || {CLR_WHITE,CLR_CYAN} }
END
oBrw1:CreateFromCode()
ACTIVATE DIALOG oDlgView ON INIT (oBrw1:Move(31,0,( oDlgView:nRight-oDlgView:nLeft)-26,(oDlgView:nBottom-oDlgView:nTop)-70) )
...
Static Function LeerTxt(cFile)
Local oFile,cLinea:="", aLinea :={}
oFile:= TTxtFile():New( cFile )
Do while !oFile:EOF()
If CargaTabla
cLinea :=oFile:ReadLine()
AADD(aLinea,{ cLinea })
Endif
oFile:Skip()
EndDo
oFile:End()
Return(aLinea)Jose Luis:
Sigue este hilo donde hay ejemplos y la ayuda de Armando Estrada experto en Easy Report. (Saludos Armando ).
Saludos,
&
MauroArevalo wrote:Jose Luis:
Sigue este hilo donde hay ejemplos y la ayuda de Armando Estrada experto en Easy Report. (Saludos Armando ).
viewtopic.php?f=6&t=17089
Saludos,