FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour Generaci贸n archivos PDF
pedroluis
Posts: 117
Joined: Sun Oct 08, 2017 12:51 PM
Generaci贸n archivos PDF
Posted: Tue Apr 30, 2024 01:35 PM

Hola Gente !

Problemas de nuevo con los PFD.

Tengo que generar 1500 archivos PDF de una facturaci贸n, pero

con equipo r谩pido no me genera el contanido de los mismos.

Me graba el nombre, pero con contanido vac铆o.

do while !eof()

VTA1100PE() // Tiene que generar un archivo PDF. 

             // Pero lo genera vac铆o,

             // porque es muy r谩pido el proceso.

             // y no se como detenerlo para darle tiempo

             // al sistema operativo para que lo termine bi茅n.

             // Si lo corro en una notebook viejita y lenta funciona,

             // pero en un equipo un poco m谩s r谩pido los genera vaci贸s.

skip

enddo

Pedro L. Lavallen

San Luis (Capital), Argentina
karinha
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: Generaci贸n archivos PDF
Posted: Tue Apr 30, 2024 01:46 PM
Code (fw): Select all Collapse
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 ) // tu criterio.
聽 聽 聽 // O use un MsgRun() con MsgWait() desde la FUNCTION inicial..

聽 聽 聽 SKIP

聽 聽ENDDO

聽 聽HB_GCALL( .T. )

RETURN NIL
Regards, saludos.
Jo茫o Santos - S茫o Paulo - Brasil - Phone: +55(11)95150-7341
karinha
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: Generaci贸n archivos PDF
Posted: Tue Apr 30, 2024 01:56 PM
Ejemplo:
Code (fw): Select all Collapse
聽 聽 MsgRun( "GENERANDO UN MILLION DE ARCHIVOS...", ;
聽 聽 聽 聽 聽 聽 "Por Favor, Espere! Voy Generar... 聽", ;
聽 聽 聽 聽 聽 聽 聽 聽 聽{ || WinExec( LLAMA_PDFS() ), 3 } )
Regards, saludos.
Jo茫o Santos - S茫o Paulo - Brasil - Phone: +55(11)95150-7341
pedroluis
Posts: 117
Joined: Sun Oct 08, 2017 12:51 PM
Re: Generaci贸n archivos PDF
Posted: Tue Apr 30, 2024 06:15 PM

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 !!!

Cuando desde el PREVIEW pulso el bot贸n de PDF, lo graba vac铆o,

pero a veces lo graba bi茅n... 驴驴驴 ???

Tal vez ah铆 est茅 todo el problema...

Habr谩 alg煤n problema con el Preview donde genera los PDF ???

Para visualizar los pdf uso el Edge

Pedro L. Lavallen

San Luis (Capital), Argentina
karinha
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: Generaci贸n archivos PDF
Posted: Tue Apr 30, 2024 06:46 PM

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

Regards, saludos.

Jo茫o Santos - S茫o Paulo - Brasil - Phone: +55(11)95150-7341
pedroluis
Posts: 117
Joined: Sun Oct 08, 2017 12:51 PM
Re: Generaci贸n archivos PDF
Posted: Tue Apr 30, 2024 06:55 PM

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 L. Lavallen

San Luis (Capital), Argentina
FiveWiDi
Posts: 1445
Joined: Mon Oct 10, 2005 02:38 PM
Re: Generaci贸n archivos PDF
Posted: Tue Apr 30, 2024 07:22 PM

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 algo.

Un Saludo

Carlos G.



FiveWin 25.12 + Harbour 3.2.0dev (r2502110321), BCC 7.7 Windows 11 Home

karinha
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: Generaci贸n archivos PDF
Posted: Tue Apr 30, 2024 07:28 PM
Code (fw): Select all Collapse
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()

聽 聽 聽 PRINTER oPrn FILE cPdfFile
聽 聽 聽 .
聽 聽 聽 .
聽 聽 聽 .

聽 聽 聽 SELE 99

聽 聽 聽 SKIP

聽 聽ENDDO

RETURN NIL
Jo茫o Santos - S茫o Paulo - Brasil - Phone: +55(11)95150-7341
karinha
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: Generaci贸n archivos PDF
Posted: Tue Apr 30, 2024 08:35 PM
Pedro, prueba y comente el que falta, pls.
Code (fw): Select all Collapse
// 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()

聽 聽PRINT oPrn PREVIEW FILE "Pedro.pdf" 聽// ADOBE

聽 聽// PRINT oPrn FILE "Pedro.pdf" 聽// Silencio directo en el archivo.pdf

聽 聽 聽 DEFINE FONT oFont NAME "Courier New" SIZE 0, - 10 BOLD OF oPrn

聽 聽 聽 oPrn:SetPortrait()

聽 聽 聽 PAGE

聽 聽 聽 聽 聽WHILE( .NOT. EOF() )

聽 聽 聽 聽 聽 聽 SYSREFRESH()

聽 聽 聽 聽 聽 聽 IF EOF()
聽 聽 聽 聽 聽 聽 聽 聽EXIT
聽 聽 聽 聽 聽 聽 ENDIF

聽 聽 聽 聽 聽 聽 @ nLinea, 1 PRINT TO oPrn TEXT ( cAlias )->STREET SIZE 6, 9 ;
聽 聽 聽 聽 聽 聽 聽 聽INCHES FONT oFont

聽 聽 聽 聽 聽 聽 nLinea := nLinea + .35

聽 聽 聽 聽 聽 聽 IF nLinea >= 18 聽// +- Salto de pagina

聽 聽 聽 聽 聽 聽 聽 聽nLinea := .25

聽 聽 聽 聽 聽 聽 聽 聽ENDPAGE // Nueva pagina

聽 聽 聽 聽 聽 聽 聽 聽PAGE

聽 聽 聽 聽 聽 聽 ENDIF

聽 聽 聽 聽 聽 聽 SKIP

聽 聽 聽 聽 聽ENDDO

聽 聽 聽 ENDPAGE

聽 聽ENDPRINT

聽 聽RELEASE FONT oFont

RETURN NIL

// FIN / END
Regards, saludos.
Jo茫o Santos - S茫o Paulo - Brasil - Phone: +55(11)95150-7341
pedroluis
Posts: 117
Joined: Sun Oct 08, 2017 12:51 PM
Re: Generaci贸n archivos PDF
Posted: Tue Apr 30, 2024 08:45 PM

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 L. Lavallen

San Luis (Capital), Argentina
FiveWiDi
Posts: 1445
Joined: Mon Oct 10, 2005 02:38 PM
Re: Generaci贸n archivos PDF
Posted: Tue Apr 30, 2024 09:14 PM
karinha wrote:
Code (fw): Select all Collapse
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 ) // tu criterio.
聽 聽 聽 // O use un MsgRun() con MsgWait() desde la FUNCTION inicial..

聽 聽 聽 SKIP

聽 聽ENDDO

聽 聽HB_GCALL( .T. )

RETURN NIL
Regards, saludos.
Hola Karinha,

Sysrefresh() = Syswait()

Un Saludo

Carlos G.



FiveWin 25.12 + Harbour 3.2.0dev (r2502110321), BCC 7.7 Windows 11 Home

FiveWiDi
Posts: 1445
Joined: Mon Oct 10, 2005 02:38 PM
Re: Generaci贸n archivos PDF
Posted: Tue Apr 30, 2024 09:16 PM

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,

Un Saludo

Carlos G.



FiveWin 25.12 + Harbour 3.2.0dev (r2502110321), BCC 7.7 Windows 11 Home

Enrico Maria Giordano
Posts: 9020
Joined: Thu Oct 06, 2005 08:17 PM
Re: Generaci贸n archivos PDF
Posted: Tue Apr 30, 2024 09:17 PM
FiveWiDi wrote:Sysrefresh() = Syswait()
No, it is not. SysWait() is a loop of SysRefresh() for a given amount of time.
Enrico Maria Giordano

e.m.giordano@emagsoftware.it
http://www.emagsoftware.it
http://www.emagsoftware.it/emgmusic
http://www.emagsoftware.it/spectrum
http://www.emagsoftware.it/tbosg
CARLOS ATUNCAR
Posts: 230
Joined: Thu Sep 17, 2015 11:40 PM
Re: Generaci贸n archivos PDF
Posted: Tue Apr 30, 2024 09:47 PM

con FastReport se genera mas practico el pdf

Carlos Atuncar - CaSoftSystem
Chincha - Per煤
+51983478218
carlosalbatun@gmail.com
pedroluis
Posts: 117
Joined: Sun Oct 08, 2017 12:51 PM
Re: Generaci贸n archivos PDF
Posted: Wed May 01, 2024 03:16 AM

Si FiveWidi tiene raz贸n,

muchas veces genera el pdf sin contenido.

驴 Que ser谩 ?

Pedro L. Lavallen

San Luis (Capital), Argentina
Static archive 路 New replies & topics via GitHub Discussions