Ayuda!!! nesecito poner fotos en un reporte tReport :(

[AIDA]

Ya pude poner un logo.bmp en la parte superior de un reporte pero tambien tengo que poner la foto de cada persona que operara el programa.

Cada foto tiene que aparecer en cada registro que se imprime

no encuentro como hacerlo

se puede hacer?

Como ejemplo esta misma pagina del foro se parece a mi reporte a la isquierda datos personales y la foto y a la derecha datos del registro.

Buen fin de semana para todos


Muchas Gracias

Aida

[alfonso]

Hola Aida,

Este es un ejemplo de poner fotos o imagenes en Treport.

ACTIVATE REPORT oReport ;
WHILE !(SERVOLUN->(EOF()));
ON STARTGROUP Bitmaps(oReport,.5,7.2,.7,.9,(cDirfoto+VOLUNTAR->FOTO))) ;
ON STARTPAGE (Bitmaps(oReport,.5,7.2,.7,.9,(cDirfoto+VOLUNTAR->FOTO)), ;
LinBox(oReport,1.5,.5,.6,.5), ;
Bitmaps(oReport,.1,.1,.7,.9,cDirprog+"logopc.BMP"))

************* Funcion Bitmaps ******************

Function Bitmaps(oReport,XI,YI,XF,YF,FBMP)
oReport:SayBitmap(XI,YI,fbmp,XF,YF)

RETURN NIL

*********************************************************

Espero te sea util.

Saludos,

Alfonso

[AIDA]

Hola Alfonso

ya probé tu ejemplo ya me pone las fotos pero en algunos registros sale la foto sobre los datos que se suponen deben quedar arriba y la foto abajo de ellos

le di coordenadas para que quedara a la izquierda y abajo de los datos del usuario pero en unas sale bien y en otras sale la foto enzima de todo , que faltara para que se quede fija la foto

Te agradezco mucho, esto de los reportes me ponen de puntita los nervios me confundo mucho es algo complicado

Muchas Gracias

Hoy sabadito no saldré esta lloviendo a si que me pondré a trabajar para distraerme

Saluditos

[cuatecatl82]

Saludos Aida:

Te tengo malas noticias, siento desilucionarte pero hasta hoy he llegado a la conclusión de que es una mala idea hacer reportes con TReport con imagenes, te lo digo porque yo tambien estoy en las mismas circunctancias que tu y no doy con la solución:

Existe un grave problema con las diferentes resoluciones de las impresoras para la impresión de reortes.. si tu haces y pruebas tus reportes con "X" impresora te saldran bien, pero si tu cliente tiene un modelo o marca diferente de impresora te llevarás una desagradable sorpresa, haz la prueba en tu pc instalando varias impresoras y cambiando la predeterminada antes de iniciar tu aplicación, realiza un reporte y veraz de lo que te estoy contando..

Revisa estos este enlace y verifica la fechas, veraz que todavia no hay una solución definitiva a este detalle..

http://67.222.39.232/forums/viewtopic.p ... =saybitmap

http://67.222.39.232/forums/viewtopic.p ... =saybitmap

http://67.222.39.232/forums/viewtopic.p ... =saybitmap

http://67.222.39.232/forums/viewtopic.p ... =saybitmap


Ojalá y si alguien haya solucionado este problema para su uso con TReport nos lo comente para poder corregir este problemita lo antes posible..

Saludos..

[AIDA]

Hola Víctor

Fíjate que me pidieron que el reporte saliera en un archivo PDF y que ese archivito se mandara por correo automático a esa parte del correo a un no llego pero me comprare mis aspirinitas para esa parte del programa

yo me imagino que el PDF lo imprimirán después por separado.

El problema que me dices también afecta en el PDF o no

Ya me dio preocupación

aquí pongo abajito todo en el reporte

Function REPORTE_A()
local oWnd,cDirprog


cDirprog:="ima\"

dbselectarea("BITACORA")

BITACORA->(dbGoTop())


REPORT oReport ;
TITLE "*** LISTADO DE BITACORA ***","","BITACORA SOS A.C. ","" ;
HEADER "Fecha: "+dtoc(date())+space(44)+"Hora: "+time() ;
FOOTER "Página: "+str(oReport:nPage,3)CENTER PREVIEW


GROUP ON BITACORA->FECHA ;
HEADER "" ;
FOOTER ""



COLUMN TITLE "Unidad","Fecha","Turno","Tipo","Radio operador" ;
DATA BITACORA->UNIDAD,BITACORA->FECHA,BITACORA->TURNO,BITACORA->TIPO,;
BITACORA->NOMBRE,BITACORA->PATERNO,BITACORA->MATERNO SIZE 13 LEFT GRID



COLUMN TITLE "MOVIMIENTOS";
DATA BITACORA->DATOS1,BITACORA->DATOS2,BITACORA->DATOS3,BITACORA->DATOS4,BITACORA->DATOS5,BITACORA->DATOS6,BITACORA->DATOS7,BITACORA->DATOS8,BITACORA->DATOS9,;
BITACORA->DATOS10,BITACORA->DATOS11,BITACORA->DATOS12,BITACORA->DATOS13,;
BITACORA->DATOS14,BITACORA->DATOS15,BITACORA->DATOS16,BITACORA->DATOS17,BITACORA->DATOS18 LEFT GRID



oReport:CellView()
oReport:oDevice:lPrvModal:=.T.

END REPORT



ACTIVATE REPORT oReport ON STARTGROUP BitmapsS(oReport,3.5,.3,.7,.9,(cDirfoto+BITACORA->FOTO)) ON STARTPAGE (BitmapsS(oReport,3.5,.3,.7,.9,(cDirfoto+BITACORA->FOTO)))









return nil



//---------------------------------------------------------//
Function BitmapsS(oReport,XI,YI,XF,YF,FBMP)

oReport:SayBitmap(XI,YI,fbmp,XF,YF)

RETURN NIL


Gracias por todo

Saluditos

Aida

[alfonso]

Hola Aida,

Te envio un ejemplo real de uso de Treport con fotos.


REPORT oReport ;
FONT oFont2;
HEADER " "+cEmpresa+SPACE(18)+"FECHA : "+dtoc(date()) ,;
" "," ", ;
SPACE(10)+"RELACION DE SERVICIOS DE VOLUNTARIO (Del "+DTOC(feci)+" Al "+DTOC(fecf)+")", ;
" ",;
SPACE(10)+wdescri+SPACE(20)+"Numero de Voluntario: "+STRZERO(VOLUNTAR->CVOLUN),;
" "," ",;
" Nombre y Apellidos: " + RTRIM(VOLUNTAR->NOMBRE)+" "+RTRIM(VOLUNTAR->APELLIDOS)+;
space(40-Len(Rtrim(voluntar->nombre))-len(Rtrim(voluntar->apellidos)))+"Fecha Ingreso: "+DTOC(voluntar->FECHAING),;
" D.N.I.: "+VOLUNTAR->DNI+SPACE(40)+"Fecha Nacimiento: "+DTOC(VOLUNTAR->FECHANACI),;
" Direccion: "+VOLUNTAR->DOMICILIO,;
" Localidad: "+VOLUNTAR->LOCALIDAD+" Provincia: "+substr(VOLUNTAR->PROVINCIA,1,15)+" C.P.: "+VOLUNTAR->CPOSTAL,;
" Medios de Contacto: " ,;
" Telefono: "+substr(voluntar->TELEFONO,1,15)+SPACE(3)+"Movil: "+substr(voluntar->MOVIL,1,15)+space(3)+"Otro Telefono: "+voluntar->TELEFADIC ,;
" e_mail: "+voluntar->email,;
" "+Replicate("_",80),;
" " LEFT ;
FOOTER OemToAnsi(cEmpresa) ;
CENTER ;
CAPTION "Ficha de Servicios de Voluntario" ;
PREVIEW

COLUMN DATA ""
IF cRad = 1
COLUMN TITLE "NºServ." DATA "" SIZE 7
COLUMN TITLE "Fecha" DATA "" SIZE 7
COLUMN TITLE "Servicio" DATA "" SIZE 35
COLUMN TITLE "Tiempo" DATA "" SIZE 6
ENDIF
IF cRad = 2
COLUMN TITLE "Cod.Activ" DATA "" SIZE 7
COLUMN TITLE "Actividad" DATA "" SIZE 35
COLUMN TITLE "Nº Serv." DATA "" SIZE 6
COLUMN TITLE "Tiempo" DATA "" SIZE 6
ENDIF

GROUP ON SERVOLUN->CVOLUN ;
HEADER "" ;
FOOTER SPACE(90)+"Tiempo Total________ "+str(thora,6)+":"+strzero(tminu,2) ;
EJECT

oReport:nTitleUpLine := RPT_NOLINE
// oReport:nTitleDnLine := RPT_NOLINE
oReport:nGroupLine := RPT_NOLINE // no imprime linea separadora
// oReport:oHeader:aFont[3] := { || 2 }
END REPORT

IF cRad = 1
ACTIVATE REPORT oReport ;
WHILE !(SERVOLUN->(EOF()));
ON CHANGE (escriser(@oReport,SERVOLUN->CVOLUN,@thora,@tminu)) ;
ON STARTGROUP (Bitmaps(oReport,.5,7.2,.7,.9,(cDirfoto+VOLUNTAR->FOTO))) ;
ON STARTPAGE (Bitmaps(oReport,.5,7.2,.7,.9,(cDirfoto+VOLUNTAR->FOTO)), ;
LinBox(oReport,1.5,.5,.6,.5), ;
Bitmaps(oReport,.1,.1,.7,.9,cDirprog+"logopc.BMP"))
ELSE
ACTIVATE REPORT oReport ;
WHILE !(SERVOLUN->(EOF()));
ON CHANGE (escritot(@oReport,walias,xalias,@thora,@tminu,servolun->cvolun)) ;
ON STARTGROUP (Bitmaps(oReport,.5,7.2,.7,.9,(cDirfoto+VOLUNTAR->FOTO))) ;
ON STARTPAGE (Bitmaps(oReport,.5,7.2,.7,.9,(cDirfoto+VOLUNTAR->FOTO)), ;
LinBox(oReport,1.5,.5,.6,.5), ;
Bitmaps(oReport,.1,.1,.7,.9,cDirprog+"logopc.BMP"))
ENDIF


Yo no he tenido problemas en ninguna impresora (por ahora), no me descuadra nada. Puede que tengas problemas con los Fonts y causen algun desajuste.

Por otro lado en determinadas circunstancias, he usado las classes Timprime y Tutilprn de Rafa Carmon (The Full), que por supuesto son muy buenas y facilmente adaptables a tus necesidades.

Si deseas que te envie alguna imagen resultado, seria mejor que te lo envie a tu e_mail.

Suerte y adelante,

Alfonso

[/img]

[AIDA]

Hola Alfonso

Muchas gracias

Si claro si puedes manda a mi correo hoy dominguito saldre un rato pero trabajare en la tarde

Saluditos

Aida

[cuatecatl82]

Hola y buen inicio de Semana Aida:

te comento que si es posible exportar a PDF los reportes generados con TReport, Tprinter y creo que tambien com TTxtPrev siempre y cuando realiazes la vista preliminar, hay una libreria en dll que es un demo y trabaja 100% con minimos cambios en tus fuentes, solo que es algo cara y aun no tengo recuros para comprarla, ya que tambien me interesa mucho, pero puedes bajar los archivos y probarlos, este es el enlace:

http://67.222.39.232/forums/viewtopic.p ... =image2pdf

Para mandarlo por E-mail hay una clase propia de Fivewin, checa dentro de la carpeta FWH\SAMPLES\Testmail.prg y encontraras como realizarlo, pero no se si te funcione, yo lo intente haciendo pruebas con hotmail y latinmail, pero no funciona, ojala y te funcione.

Tambien existe una clase TPDF, la cual estoy buscando y tratando de implementarla en mi aplicación, espero y no sea tan complicado esto, ya que la opcion anterior es mucho mas facil de hacer pero tiene costo...

En cuento a las reportes con imagenes voy a probar la opcion que nos dio nuestro colega Alfonso y te comento, pero revisando su codigo me estoy percatando de que fantan funciones (Espero no adelantarme antes de hacer pruebas)

escriser() // Se puede omitir
escritot() // Se puede omitir
Bitmaps() Esta es importante
LinBox() Creo que tambien..


Si pudieran complementarlo que mejor..

Saludos y te comento despues..

[cuatecatl82]

Buenas a foro:

Porfa, por ahi alguien que sepa como exportar reportes a PDF usando programación, sin programas de terceros y como corregir esta situación de imagenes distorcionadas en los reportes con TReport..


De nuevo gracias Anticipadas..

[AIDA]

HOLA Víctor

Estoy imprimiendo PDF con ayuda del programita Primo PDF que es gratis
al menos con eso ya puedo imprimir PDF

http://www.primopdf.com/

pero lo otro a un no me queda

y ahora toy atorada con otra cosita tengo que poner un txbrowse en un folder y seran 4 folders, con los get, say, botones y campos memo no tengo problema pero con el txbrowse no me queda ni nada

Creo que esta no es mi semana

Saludos

Aida