HECTOR FABIO
31 de Enero del 2009

Tengo un Sistema de Inventarios. En mis formularios yo puedo visualizar las fotos de cada producto. NEcesito generar un reporte que contenga las especificaciones de cada producto con su respectiva foto. En mi Base de Datos tengo almacenado el Path de ubicación de cada Foto.
De antemano mil gracias por la ayuda.
Héctor Fabio.

xmegax
31 de Enero del 2009

Espero que te sea de ayuda ...

En el reporte en la seccion detalles ( para este ejemplo). Si tu imagen a presentar esta en otra seccion debes de poer el codigo ahi.

Private Sub DetailSection1_Format(ByVal pFormattingInfo As Object)

If ExisteArchivo("Path de la imagen") Then
Set CRRepDatosPersonales.Foto.FormattedPicture = LoadPicture("Path de la imagen")
End If

End Sub


La funcion de verificacion de existencia de archivo escribela en un modulo .


Public Function ExisteArchivo(sNombreArchivo As String) As Boolean
Dim AttrDev%
On Error Resume Next
AttrDev = GetAttr(sNombreArchivo)
If Err.Number Then
Err.Clear
ExisteArchivo = False
Else
ExisteArchivo = True
End If
End Function


Tiene un problema , debido a que estas "sobreponiendo la imagen" en el reporte se puede imprimir, pero no exportar.

Claudio
31 de Enero del 2009

De que version de Crystal Report estan hablando?
Yo tengo el mismo problema, uso la version 6.0 pero no encuentro donde se escribe el codigo :(