Buenos dias señores !
Otro problemita que se que ustedes trendrán la solución.
Tengo FWH 22.12
El tema es que quiero generar en PDF todas las facturas de un cliente (1600 facturas) y
las empieza a generar bien, pero cuando alcanza el núumero de factura 300 ó 400 las
siguientes las genera con pdf's vacíos.
Se me ocurrió pensar que es un problema de memoria o un uso excesivo de archivos temporales.
Es como si la memoria se quedara sin lugar y no quisiera generar más archivos.
Como si se ahogara...
Ya que estamos otra pregunta:
¿ Hay forma de regular el tamaño en bites de los pdf's generados ?,
porque a veces me los genera de distinto tamaño.
Las paso el código.
sele 99 // Archivo con todas las facturas a imprimir.
go top
xsay:="Socio: "+strzero(99->cliente,4)+" - Fac.: "+xlet+"-"+str(xemi,1)+"-"+strzero(99->numero,6)
DEFINE DIALOG oIndex TITLE "Generado Facturas en PDF" FROM 1,1 TO 3,40
@0,2 SAY oText PROMPT xsay OF oIndex COLOR CLR_HBLUE Font m->oFontFis
ACTIVATE DIALOG oIndex NOWAIT CENTER
do while !eof()
xnum:=99->numero
VTA1100PE() // Genera los pdf
sele 99
skip
xsay:="Socio: "+strzero(99->cliente,4)+" - Fac.: "+xlet+"-"+str(xemi,1)+"-"+strzero(99->numero,6)
oText:refresh()
sysrefresh()
enddo
sele 1
oIndex:End()
oDlg:End()
sysrefresh()
xtim2:=time()
msgwait(ELAPTIME(xtim1,xtim2),"Tiempo Transcurrido",4)
*-------------------
FUNCTION VTA1100PE()
*-------------------
xnum:=99->numero
cPdfFile := m->xpath+"\PDF\"+strzero(99->cliente,4)+".pdf"
PRINTER oprn FILE cPdfFile
// Acá imprime la factura.
return nil
Como siempre gracias por su atención y deferencia !
Pedro Lavallén - Argentina - San Luis
San Luis (Capital), Argentina
