Impresion Mysql
Posted:
Wed Nov 15, 2017 4:40 pm
by kpidata
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.
Re: Impresion Mysql
Posted:
Wed Nov 15, 2017 7:59 pm
by cmsoft
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
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()