Impresion Mysql

Impresion Mysql

Postby kpidata » Wed Nov 15, 2017 4:40 pm

Estimados, necesito su ayuda, estoy imprimiendo.. un listado con Mysql, en la siguiente forma, y solo me imprime los primeros 20 registros,
en una sola pagina, y debo crear rutinas para las tras paginas, como si fueran hojas individuales y no todas de una ves.

me explico si largo a imprimir... me imprime solo la pagina 1 de 7 con datos y las paginas siguientes en blanco.

debo ir diciendo que pagina si y que pagina no quiero imprimir

en pocas palabras, solo me imprime 20 registros, cuando deben ser 100.
kpidata
 
Posts: 80
Joined: Tue Jul 26, 2016 9:52 pm

Re: Impresion Mysql

Postby cmsoft » Wed Nov 15, 2017 7:59 pm

Muestra tu codigo para mayor claridad de lo que expones.
Tambien que utilizas, si Dolphin o FWMysql/FWMariaDB
Te pongo un codigo de como lo hago con dolphin
Code: Select all  Expand view  RUN

oQry := oApp:oServer:Query("SELECT c.numero AS numero, cl.nombre AS nombre, "+;
                         " c.factura AS factura, "+;
                         " c.fecha AS fecha, c.importe AS importe, c.comision AS comision,"+;
                         " c.comipesos AS comipesos, " +;
                         " ve.nombre AS vendedor "+;
                         " FROM comision c LEFT JOIN clientes cl ON c.codcli = cl.codigo "+;
                         " LEFT JOIN vendedor ve ON c.vendedor = ve.codigo "+;                        
                         " WHERE c.fecha >= " + ClipValue2Sql(mdesde) + " AND "+;
                         " c.fecha <= "+ ClipValue2Sql(mhasta) + " AND "+;
                         IF(mvendedor = 0,"TRUE"," c.vendedor = " + ClipValue2Sql(mvendedor)) +;
                         " ORDER BY ve.nombre, cl.nombre " )
REPORT oRep TITLE "Comisiones. Vendedor:" + ALLTRIM(mnomven)  + ;
                  " del " + DTOC(mdesde) + " al " + DTOC(mhasta) ;
       FONT  oFont1,oFont2,oFont3 ;
       HEADER OemToAnsi(oApp:nomb_emp) , ;
       "Comisiones" CENTER ;
       FOOTER "Hoja:" + STR(oRep:npage,3) ,"Fecha:"+DTOC(DATE()) CENTER;
       PREVIEW CAPTION  "Comisiones"
IF mvendedor = 0      
   GROUP ON oQry:vendedor HEADER "Vendedor:"+ oQry:Vendedor FOOTER "Total Vendedor" FONT 3
ENDIF  

COLUMN TITLE "Nro"       DATA oQry:numero    PICTURE "999999" SIZE 06 FONT 1
COLUMN TITLE "Cliente"   DATA oQry:nombre    SIZE 25 FONT 1
COLUMN TITLE "Factura"   DATA oQry:factura                  SIZE 15 FONT 1
COLUMN TITLE "Fecha"     DATA oQry:fecha     PICTURE "@D"     SIZE 08 FONT 1
COLUMN TITLE "Importe"   DATA oQry:importe   PICTURE "9999999999.99" SIZE 10 FONT 2 TOTAL
COLUMN TITLE "%"         DATA oQry:comision  PICTURE "999.99" SIZE 05 FONT 1
COLUMN TITLE "$ Comi."   DATA oQry:comipesos PICTURE "9999999999.99" SIZE 10 FONT 2 TOTAL

// Digo que el titulo lo escriba con al letra 2
oRep:oTitle:aFont[1] := {|| 2 }
oRep:bInit := {|| oQry:GoTop() }
oRep:bSkip := {|| oQry:Skip() }

END REPORT
ACTIVATE REPORT oRep WHILE !oQry:EOF() ON INIT CursorArrow() ;
         ON STARTPAGE oRep:SayBitmap(.1,.1,"LOGO.BMP",.5,.5)
oQry:End()
 
User avatar
cmsoft
 
Posts: 1293
Joined: Wed Nov 16, 2005 9:14 pm
Location: Mercedes - Bs As. Argentina


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot] and 28 guests