FiveTech Software tech support forums

pedroluis wrote:Hola Kahirina !
Te agradezco mucho, pero está funcionando !
Usé el syswat(3), y al esperar un poquito los genera bien.
Gracias a todos !

Great!

Regards, saludos.

Hola Kahirina !
Te agradezco mucho, pero está funcionando !
Usé el syswat(3), y al esperar un poquito los genera bien.
Gracias a todos !

Buenos días Pedro. ¿Puedes hacer una DEMOSTRACIÓN con el archivo .DBF y ponerlo a disposición para su descarga, de modo que pueda intentar ver si puedo dominar la lógica?

https://mega.nz/

tks.

Regards, saludos.

Si FiveWidi tiene razón,
muchas veces genera el pdf sin contenido.
¿ Que será ?

con FastReport se genera mas practico el pdf

FiveWiDi wrote:Sysrefresh() = Syswait()

No, it is not. SysWait() is a loop of SysRefresh() for a given amount of time.

Hola Karinha,

Da igual que lo haga así:

PRINT oPrn PREVIEW FILE "Pedro.pdf"

que así:

PRINT oPrn FILE "Pedro.pdf"

A veces genera archivos sin contenido.

Muchas gracias,

FUNCTION Main()   WHILE( .NOT. EOF() )      SYSREFRESH()      HB_GCALL( .F. ) // Pruebe con .T. tambien.      IF EOF()         EXIT      ENDIF      VTA1100PE() // Tiene que generar un archivo PDF.      // DELAY      SYSWAIT( 3.5 ) // t...

Tiene 6 dígitos.
Nro. clkiente = 123456.pdf

En una máquina viejita, por ser lenta funciona bien.
En una más nueva no alcanza a grabar los archivos.

Pedro, prueba y comente el que falta, pls. // C:\FWH\SAMPLES\TESTEPDF.PRG para Pedro Luis#Include "FiveWin.ch"FUNCTION Main()   FIELD STREET   LOCAL oPrn, oFont, cAlias, nLinea := 0.25   USE Customer NEW   GO TOP   cAlias := ALIAS&#...

FUNCTION Main()   LOCAL oPrn   // Pedro, ¿Cuántos dígitos devuelve este código?    LOCAL cPdfFile := m->xpath + "\PDF\" + StrZero( 99->cliente, 6 ) + ".pdf"   DO WHILE !Eof()      SYSREFRESH()    &nbs...

Hola Pedro, Yo tengo exactamente el mismo problema, estoy intentando solucionarlo con SysWait( 3 ), que hace SysRefresh() durante 3 segundos, pero aun así obtengo ficheros son contenido. Lo subiré a 5 pero no me gusta nada esta solución, en el supuesto que funcione. A ver si a alguien se le ocurre a...

FiveWin for xHarbour 23.07
---------------------------

//
Do while !eof()

cPdfFile := m->xpath+"\PDF\"+strzero(99->cliente,6)+".pdf"
PRINTER oprn FILE cPdfFile
.
.
.

sele 99
skip
enddo

Pedro, debes mostrar cómo estás generando estos .PDF. Y la versión de FIVEWIN que estás usando.

Regards, saludos.

Gracias karhina por responder, pero no me funcionan nunguna de la 2 opciones. No creo que sea problema de memoria. Creo que el problema es que no alcanza a grabar el pdf. --------------------------------------------------------------------------- Pero ahora recuerdo otro problema con los PDF !!! Cua...