Crear Catalago Digital

[JoseAlvarez]

Estimados compañeros del foro,

Saludos.

Un cliente me esta solicitando que el sistema elabore un catálogo de productos en formato PDF como el de esta imagen:



Toda la información de los artículos la tengo en tablas MySql y las fotos están en carpetas del servidor.

Como quien dice, está todo lo necesario. Solo que no tengo idea de como hacerlo.

Me imagino que habra que usar algún generador de reportes, o habrá que hacerlo en un browse y luego exportarlo, no se.

Solo he usado FastReport para algunas cosas muy simples, como emitir listas.

Alguna luz de como proceder?

[paquitohm]

Hola,

He hecho alguna cosa así.
El truco: Utilizar excel como diseñador y grabarlo en formato pdf

Salu2

[albeiroval]

Hola jose, escribeme al privado.
albeiroval at gmail

[cmsoft]

Con la clase Print puedes hacerlo tranquilamente y exportarlo a pdf


Puedes adaptar esto a tus necesidades. El secreto es un buen diseño de fondo del catalogo

Code: Select all  Expand view

STATIC FUNCTION Credenciales(oQry)
LOCAL oPrn, i, j,  x1, oFont1, oFont2
DEFINE FONT oFont1 NAME "TAHOMA"       SIZE  90, 120 BOLD
DEFINE FONT oFont2 NAME "ARIAL"        SIZE  50, 80  BOLD
PRINT oPrn NAME "Catalago" PREVIEW
  oPrn:SetPortrait()
  oPrn:SetPage(9)
  i  := 1
  j  := 1
  PAGE                    
  DO WHILE !oQry:Eof()      
      IF i = 1 .AND. j = 1
         @ 00, 00 PRINT TO oPrn IMAGE 'fondocatalago.png'  SIZE oPrn:nHorzRes(), oPrn:nVertRes() PIXEL
      ENDIF                                  
     
      @ i , j PRINT TO oPrn TEXT ALLTRIM(oQry:nombre_producto)   SIZE 9,2 CM FONT oFont1 ALIGN "C" LASTROW x1
      @ x1, j PRINT TO oPrn TEXT ALLTRIM(oQry:descripcion)       SIZE 9,2 CM FONT oFont1 ALIGN "C" LASTROW x1
      @ x1, j PRINT TO oPrn TEXT ALLTRIM(STR(oQry:precio,10,2))  SIZE 9,2 CM FONT oFont2 ALIGN "C" LASTROW x1      
      @ x1, j PRINT TO oPrn TEXT ALLTRIM(oQry:presentacion)      SIZE 9,2 CM FONT oFont2 ALIGN "C" LASTROW x1
      @ x1, j+3 PRINT TO oPrn IMAGE ALLTRIM(oQry:fichero)        SIZE 3.0, 3.0 CM
      IF i > 1 .AND. j > 1
         j := 1
         i := 1
         ENDPAGE
         PAGE
         ELSE
         IF i > 1 .AND. j = 1
            j := j + 10.5
            ELSE
            IF i = 1 .AND. j = 1
               j :=  j + 10.5
               ELSE
               IF i = 1 .and. j > 1
                  j := 1
                  i := 15
               ENDIF
            ENDIF
         ENDIF
      ENDIF                      
      oQry:Skip()
  ENDDO    
  ENDPAGE
ENDPRINT
RELEASE oFont1
RELEASE oFont2
RETURN nil
 

[joseluisysturiz]

Estimados compañeros del foro,

Saludos.

Un cliente me esta solicitando que el sistema elabore un catálogo de productos en formato PDF como el de esta imagen:



Toda la información de los artículos la tengo en tablas MySql y las fotos están en carpetas del servidor.

Como quien dice, está todo lo necesario. Solo que no tengo idea de como hacerlo.

Me imagino que habra que usar algún generador de reportes, o habrá que hacerlo en un browse y luego exportarlo, no se.

Solo he usado FastReport para algunas cosas muy simples, como emitir listas.

Alguna luz de como proceder?

Saludos, en FR hay una opcion de etiquetas, creo te podria servir, revisa los samples de FR, saludos...

[JoseAlvarez]

Saludos amigos,

Un abrazo a todos.

Estuve varios días alejado del PC.

Gracias por todas las sugerencias y ayudas, muy agradecido.

Probaré todas y les estaré comentando.