FiveTech Software tech support forums

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
 

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?