12 Out 2007 04:05
*******************
FUNC GERA_PDF(cARQ)
*******************
Private AMSG, CIMG
PRIVATE oDlgHabla:=NIL
AMSG := {}
set(105,1)
set(106,1)
IF cARQ=Nil
cARQ="TEMP.PRN"
Endif
MsgRun("Aguarde Gerando Documento PDF...")
cFILE3 := "TESTE.PDF"
vARQ:={}
aadd( vARQ, {"LINHA","C",200,0} )
DBcreate("TEMP", vARQ,"DBFCDX")
SELE 40
USE TEMP new shar VIA "DBFCDX"
append from (cARQ) sdf
PdfNew(cFile3,8,842,595,1,1,,,)
PdfStartPage( {""} , .T. )
dbgotop()
cCONT=0
Do while !eof()
cLinha := Linha // Busca linha de impressao
cCONT=cCONT+1
Aadd(AMSG,cLinha)
IF cCONT=60 // nova pagina
PdfDrawPage( AMSG )
PdfEndPage()
PdfStartPage( {""} , .T. )
cCONT=0
ENDIF
dbskip()
enddo
PdfDrawPage( AMSG )
PdfEndPage()
PdfEnd()
IF oDlgHabla#NIL
oDlgHabla:CLOSE()
ENDIF
Abre_aqrquivo( cFile3 )
return nil
********************************************************************************
***************INCIO DA FUNCAO DE ABRIR ARQUIVOS********************************
********************************************************************************
// Open help file with associated viewer application
FUNCTION Abre_aqrquivo( cHelpFile )
LOCAL nRet, cPath, cFileName, cFileExt
HB_FNameSplit( cHelpFile, @cPath, @cFileName, @cFileExt )
nRet := _OpenHelpFile( cPath, cHelpFile )
RETURN nRet
#pragma BEGINDUMP
#pragma comment( lib, "shell32.lib" )
#include "hbapi.h"
#include <windows.h>
HB_FUNC( _OPENHELPFILE )
{
HINSTANCE hInst;
LPCTSTR lpPath = (LPTSTR) hb_parc( 1 );
LPCTSTR lpHelpFile = (LPTSTR) hb_parc( 2 );
hInst = ShellExecute( 0, "open", lpHelpFile, 0, lpPath, SW_SHOW );
hb_retnl( (LONG) hInst );
return;
}
#pragma ENDDUMP
********************************************************************************
***************FIM DA FUNCAO DE ABRIR ARQUIVOS**********************************
********************************************************************************
03 Nov 2007 11:21
03 Nov 2007 12:41
03 Nov 2007 16:23
03 Nov 2007 16:27
03 Nov 2007 16:28
03 Nov 2007 16:32
03 Nov 2007 16:44
03 Nov 2007 17:01
03 Nov 2007 17:15
17 Jan 2010 00:52
17 Jan 2010 01:03
17 Mai 2013 15:15
Turbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland
Error: Unresolved external '_HB_FUN___DBGENTRY' referenced from D:\MAX\XVSIGT\PDFLIB.LIB|pdf1
12 Mar 2020 16:36
27 Fev 2022 11:49
CINI =
C_OUTPUTFOLDER =
DEFFILE =
INCLUDEFOLDERS = I:\xharbour\include;
LAUTORUN =
LDEBUG = .F.
LGUI = .F.
LIBFOLDERS = I:\xharbour\lib;
LMT = .F.
LNOAUTOFWH = .F.
LPRG_CLASSICDEBUG = .F.
LPRG_DEBUG = .F.
LUSEDLL = .F.
MAPFILE =
MYC_FLAGS =
MYDEFINES =
MYLINK_FLAGS =
MYPRG_FLAGS =
MYRC_FLAGS =
MYSLY_FLAGS =
OUTPUTFOLDER =
PRG_OUTPUTFOLDER =
RC_OUTPUTFOLDER =
RUNARGUMENTS =
SLY_OUTPUTFOLDER =
STARTIN =
TARGETFOLDER =
[abrepdf.prg]
MYC_FLAGS =
MYDEFINES =
MYPRG_FLAGS =
[I:\xharbour\lib\hbhpdf.lib]
[I:\xharbour\lib\pdflib.lib]
xHarbour Compiler build 1.2.1 (SimpLex) (Rev. 6733)
Copyright 1999-2010, http://www.xharbour.org http://www.harbour-project.org/
Compiling 'ABREPDF.PRG'...
Lines 68, Functions/Procedures 2
Generating C source output to 'obj\ABREPDF.c'...
Done.
Building object module for 'obj\ABREPDF.c'
using C compiler 'BCC32' as defined in 'I:\XHARBOUR\BIN\harbour.cfg'...
Exec: BCC32 -c -D__EXPORT__ -II:\XHARBOUR\include -d -LI:\XHARBOUR\lib -oobj\ABREPDF.obj obj\ABREPDF.c
Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland
obj\abrepdf.c:
Error E2046 ABREPDF.PRG 71: Bad file name format in include directive
Error E2451 ABREPDF.PRG 74: Undefined symbol 'HINSTANCE' in function HB_FUN__OPENHELPFILE
Error E2379 ABREPDF.PRG 74: Statement missing ; in function HB_FUN__OPENHELPFILE
Error E2451 ABREPDF.PRG 75: Undefined symbol 'LPCTSTR' in function HB_FUN__OPENHELPFILE
Error E2379 ABREPDF.PRG 75: Statement missing ; in function HB_FUN__OPENHELPFILE
Error E2379 ABREPDF.PRG 76: Statement missing ; in function HB_FUN__OPENHELPFILE
Error E2451 ABREPDF.PRG 77: Undefined symbol 'hInst' in function HB_FUN__OPENHELPFILE
Error E2451 ABREPDF.PRG 77: Undefined symbol 'lpHelpFile' in function HB_FUN__OPENHELPFILE
Error E2451 ABREPDF.PRG 77: Undefined symbol 'lpPath' in function HB_FUN__OPENHELPFILE
Error E2451 ABREPDF.PRG 77: Undefined symbol 'SW_SHOW' in function HB_FUN__OPENHELPFILE
Warning W8065 ABREPDF.PRG 77: Call to function 'ShellExecute' with no prototype in function HB_FUN__OPENHELPFILE
*** 10 errors in Compile ***
Done.
Deleting: "obj\ABREPDF.c"
Done.