Page 1 of 1
Crear Catalago Digital
Posted: Tue Feb 06, 2024 7:11 pm
by 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?
Re: Crear Catalago Digital
Posted: Tue Feb 06, 2024 7:29 pm
by paquitohm
Hola,
He hecho alguna cosa así.
El truco: Utilizar excel como diseñador y grabarlo en formato pdf
Salu2
Re: Crear Catalago Digital
Posted: Wed Feb 07, 2024 3:33 pm
by albeiroval
Hola jose, escribeme al privado.
albeiroval at gmail
Re: Crear Catalago Digital
Posted: Wed Feb 07, 2024 4:02 pm
by 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
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
Re: Crear Catalago Digital
Posted: Wed Feb 14, 2024 3:09 pm
by joseluisysturiz
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...
Re: Crear Catalago Digital
Posted: Thu Feb 15, 2024 1:53 pm
by 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.