Saludos,
Trato de Ejecutar en reporte con la clase TPDF, y me genera este error
Antes funcionaba bien,
Este es el Codigo
Trato de Ejecutar en reporte con la clase TPDF, y me genera este error
Antes funcionaba bien,
Application
===========
聽 聽Path and name: K:\v_xharb_v3\Pruebas Varias\tpdf\ejemplo4.exe (32 bits)
聽 聽Size: 4,556,288 bytes
聽 聽Compiler version: Harbour 3.2.0dev (r2403071241)
聽 聽FiveWin 聽version: FWH 20.12
聽 聽C compiler version: Borland/Embarcadero C++ 7.7 (32-bit)
聽 聽Windows version: 6.2, Build 9200 (Windows 11)
聽 聽Time from start: 0 hours 0 mins 2 secs
聽 聽Error occurred at: 06/09/24, 18:23:29
聽 聽Error description: Error BASE/1004 聽Message not found: TPDF:PDFNEWPAGE
聽 聽Args:
聽 聽 聽[ 聽 1] = O 聽 TPDF
Stack Calls
===========
聽 聽Called from: ../../../tobject.prg => __ERRRT_SBASE( 0 )
聽 聽Called from: ../../../tobject.prg => TPDF:ERROR( 0 )
聽 聽Called from: ../../../tobject.prg => (b)HBOBJECT( 0 )
聽 聽Called from: ../../../tobject.prg => TPDF:MSGNOTFOUND( 0 )
聽 聽Called from: ../../../tobject.prg => TPDF:PDFNEWPAGE( 0 )
聽 聽Called from: ejemplo4.prg => CREAPDFCC( 36 )
聽 聽Called from: ejemplo4.prg => (b)MAIN( 11 )
聽 聽Called from: .\source\classes\MENU.PRG => TMENU:COMMAND( 1560 )
聽 聽Called from: .\source\classes\WINDOW.PRG => TWINDOW:COMMAND( 1141 )
聽 聽Called from: .\source\classes\WINDOW.PRG => TWINDOW:HANDLEEVENT( 0 )
聽 聽Called from: .\source\classes\WINDOW.PRG => _FWH( 3559 )
聽 聽Called from: .\source\classes\WINDOW.PRG => WINRUN( 0 )
聽 聽Called from: .\source\classes\WINDOW.PRG => TWINDOW:ACTIVATE( 1097 )
聽 聽Called from: ejemplo4.prg => MAIN( 16 )#include "FiveWin.ch"
#include "PdfHbDoc.ch"
Static oWnd, n
Function Main()
聽 聽Local oMenu
聽 聽MENU oMenu
聽 聽 聽 MENUITEM "My First Pdf" ACTION creapdfcc()
聽 聽 聽 MENUITEM "Exit" ACTION oWnd:End
聽 聽ENDMENU
聽 聽DEFINE WINDOW oWnd MENU oMenu
聽 聽ACTIVATE WINDOW oWnd MAXIMIZED
Return Nil
function creapdfcc()
聽 聽local dresult // := 聽DEHASTA()
聽 聽local cImpdos
聽 聽local oprn
聽 聽local nsaldo := 0
聽 聽local nvalor := 0
聽 聽local z := 0
聽 聽local cPath := "C:\PDF\MEUPDF.pdf"
聽 聽local oPdf
聽 聽local ntotal := 0
聽 聽n 聽:= 2.9
聽 聽opdf := tpdf():new(cPath)
聽 聽opdf:Pdfnewpage("A4","P")
聽 聽opdf:Pdfimage(".\QRCODE.jpg", cm2dpi(2.5), 0,85,66)
聽 聽opdf:Pdfatsay("QU脥MICA MEGA SA",cm2dpi( .7 ),100,.T.)
聽 聽oPdf:Pdfatsay("Matanza 1456/58",cm2dpi( 1.2 ),100,.T.)
聽 聽oPdf:Pdfatsay("Avellaneda-Pcia Bs As",cm2dpi( 1.6 ),100,.T.)
聽 聽oPdf:Pdfatsay("T.E.: 4289-2700(Rotativas)",cm2dpi( 2.0 ),100,.T.)
聽 聽oPdf:Pdfatsay(replicate("_",115),cm2dpi( 2.5 ),10,.T.)
聽 聽opdf:Pdfclosepage()
聽 聽opdf:pdfclose()
聽 聽msginfo("Archivo creado con 茅xito","Aviso del sistema")
聽 聽/*
聽 聽if !empty(cmail)
聽 聽 聽 correo(cMail,,("Enviamos resumen de cuenta desde " + transform(dresult[1],"@d") + " hasta " + 聽transform(dresult[1],"@d") ),"Resumen de cuenta", alltrim(cPath ) )
聽 聽endif
聽 聽*/
聽 聽ShellExecute( oWnd:hWnd, "open", "c:\pdf\meupdf.pdf" )
return .t.
/*******************************************************************************/
function cm2dpi( nCM, page, lHeight )
聽 聽Local nHeight,nDpi := 72
聽 聽Local nRes
聽 聽if empty( lHeight )
聽 聽 聽 lHeight := .T.
聽 聽endif
聽 聽if lHeight
聽 聽 聽 nHeight := 842.0
聽 聽 聽 nRes := nHeight - ( nCM * nDpi / 2.54 )
聽 聽else
聽 聽 聽 nRes := ( nCM * nDpi / 2.54 )
聽 聽endif
return nRes
聽
#pragma BEGINDUMP
int _streams;
#pragma ENDDUMP