topic-44198

Posts: 851

Joined: Sun Nov 09, 2014 05:01 PM

Crear Catalago Digital
Posted: Tue Feb 06, 2024 07:11 PM

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?

"Los errores en programación, siempre están entre la silla y el teclado..."

Fwh 19.06 32 bits + Harbour 3.2 + Borland 7.4 + MariaDB + TDolphin

Carora, Estado Lara, Venezuela.

paquitohm

Posts: 318

Joined: Fri Jan 14, 2022 08:37 AM

Re: Crear Catalago Digital
Posted: Tue Feb 06, 2024 07:29 PM

Hola,

He hecho alguna cosa así.

El truco: Utilizar excel como diseñador y grabarlo en formato pdf

Salu2

albeiroval

Posts: 400

Joined: Tue Oct 16, 2007 05:51 PM

Re: Crear Catalago Digital
Posted: Wed Feb 07, 2024 03:33 PM

Hola jose, escribeme al privado.

albeiroval at gmail

Saludos,
Regards,

Albeiro Valencia
www.avcsistemas.com

cmsoft

Posts: 1344

Joined: Wed Nov 16, 2005 09:14 PM

Re: Crear Catalago Digital
Posted: Wed Feb 07, 2024 04:02 PM

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 (fw): Select all Collapse

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

Salu2
Cesar Gomez
https://www.bcnsoft.com.ar
https://www.pedidosbcn.com

joseluisysturiz

Posts: 2064

Joined: Fri Jan 06, 2006 09:28 PM

Re: Crear Catalago Digital
Posted: Wed Feb 14, 2024 03:09 PM

JoseAlvarez wrote: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... :shock:

Dios no está muerto...

Gracias a mi Dios ante todo!

JoseAlvarez

Posts: 851

Joined: Sun Nov 09, 2014 05:01 PM

Re: Crear Catalago Digital
Posted: Thu Feb 15, 2024 01:53 PM

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.

"Los errores en programación, siempre están entre la silla y el teclado..."

Fwh 19.06 32 bits + Harbour 3.2 + Borland 7.4 + MariaDB + TDolphin

Carora, Estado Lara, Venezuela.

FiveTech Support Forums

Continue the discussion