Page 2 of 2
Re: LA CLASE TIMPRIME,, DE RAFA
Posted: Thu May 06, 2010 2:45 pm
by MarioG
Wlliam;
Intento construi el sample test.prg y sus asociados pero no lo consigo, el compilador me arroja el, anteriormente, comentado error:
Compiling...
Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland
test.c:
Turbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland
Error: Unresolved external '_HB_FUN_NVIEWLIBLOAD' referenced from D:\XHARBOUR121
\3LIB\TIMPRIME.LIB|Utilprn
Error: Unresolved external '_HB_FUN_NVIEWLIB32' referenced from D:\XHARBOUR121\3
LIB\TIMPRIME.LIB|Utilprn
Hay algo en particular q deba tener en cuenta?
muchas gracias, saludos
Re: LA CLASE TIMPRIME,, DE RAFA
Posted: Fri May 07, 2010 1:28 am
by WilliamAdami
Mario , la nviewlib.dll es utilizada en la primera version de la timprime.
Usted debes usar la timprime.prg y utilprn.prg del link , lo qual funciona com freeimage.dll.
Link:
http://www.4shared.com/account/file/1Tv ... T_UTI.htmlSaludos
William Adami
Re: LA CLASE TIMPRIME,, DE RAFA
Posted: Fri May 07, 2010 12:10 pm
by MarioG
Sorry!!!! estaba recomiplando, de nuevo, con los fuentes viejos
muchas gracias, Saludos
Re: LA CLASE TIMPRIME,, DE RAFA
Posted: Mon Aug 14, 2023 8:21 pm
by goosfancito
MarioG wrote:Rafa;
Retomo este hilo porque estoy probando la clase
basándome en el ejemplo testfact.prg cosntruyo mi ejemplo así
Code: Select all | Expand
METHOD PrnInfoCaja() // En la definición de mi clase le digo que herede de TImprime
local oSelf:= Self, ;
oFont,;
oFont1,;
aoR:= Array( iPEN ), ;
nLinea:= 0, ;
nCount:= 1
IMPRIME INIT "Cierre de Caja del "+::cFecha( hP0:dFeIni )
DEFINE PEN aoR[iPEN] WIDTH .8 OF ::oPrn
DEFINE FONT oFont NAME "Tahoma" SIZE 0,-14 BOLD OF ::oPrn
DEFINE FONT oFont1 NAME "Tahoma" SIZE 0,-10 OF ::oPrn
UTILPRN ::oUtil SELECT aoR[iPEN]
UTILPRN ::oUtil SELECT oFont1
nLinea:= 2
PAGE
UTILPRN ::oUtil MSG "Cierre de Caja del "+::cFecha( hP0:dFeIni ) ;
AT 2,7 TEXTFONT oFont ;
EXPANDBOX .5,.5 ROUND 75,75 CENTERED
while nCount < 100
UTILPRN ::oUtil nLinea+=.34,2 SAY StrZero( nCount++,3 )
ISEPARATOR
enddo
ENDPAGE
IMPRIME END .F.
aEval( aoR, {|o| if( Valtype( o ) == "O", o:End(), ) })
Este ejem. al ejecutarlo me arroja el siguiente error en ISEPERATOR (si hay algo incorrecto en mi codificación por favor corregir)
Application
===========
Path and name: D:\Fuen32\SiGeCo\fac32\Release\mgfac32.EXE (32 bits)
Size: 1,807,360 bytes
Time from start: 0 hours 0 mins 4 secs
Error occurred at: 26/01/2009, 12:26:41
Error description: Error BASE/1081 Error de argumento: +
Args:
[ 1] = N 25.50
[ 2] = L .F.
Stack Calls
===========
Called from: timprime.PRG => TCONTROLSTK:COMPLINEA(161)
Called from: timprime.PRG => TCONTROLSTK:SEPARATOR(184)
Al mirar el .ch observo que el comando esta definido asi: ISEPARATOR [ <nSpace> ] [<lBody: BODY>] => ::Separator( <nSpace> , <.lBody.>)
;
pero el método en el fuente tiene definido parámetros numéricos: METHOD Separator( nSpace , nSuma ) CLASS TIMPRIME y de ahí el error cuando procesa nSuma
Esto fue corregido en versiones posteriores?
Por ahora lo soluciono usando el metodo en lugar del comando
muchas gracias,
Saludos
estoy con el mismo problema, lo pudiste solucionar?
Re: LA CLASE TIMPRIME,, DE RAFA
Posted: Mon Aug 14, 2023 10:43 pm
by karinha
Gustavo, todo funciona perfecto. Mira:
Download completo
https://mega.nz/file/Ic8yHAYB#zCqvDKSh3 ... UDDt2GFChM
Regards, saludos.
Re: LA CLASE TIMPRIME,, DE RAFA
Posted: Tue Aug 15, 2023 5:36 am
by goosfancito
Hola.
Estimada no funciona todo ok, sigue teniendo el mismo problema en esa parte del codigo.
Code: Select all | Expand
METHOD Separator( nSpace , nSuma ) CLASS TIMPRIME
Local lRet
if Empty( nSpace ) /* Si no paso espacio, por defecto */
nSpace := ::nSpace_Separator
endif
::nLinea += nSpace
lRet := ::CompLinea( nSuma ) // Retorna si se ha producido salto de pagina
Return lRet
Re: LA CLASE TIMPRIME,, DE RAFA
Posted: Tue Aug 15, 2023 5:43 am
by goosfancito
Code: Select all | Expand
Time from start: 0 hours 0 mins 10 secs
Error occurred at: 15/08/2023, 07:42:14
Error description: Error BASE/1081 Error de argumento: +
Args:
[ 1] = N 28.70
[ 2] = L .F.
Stack Calls
===========
Called from: Source\impresion\timprime.prg => TPDF:COMPLINEA( 165 )
Called from: Source\impresion\timprime.prg => TPDF:SEPARATOR( 189 )
Called from: Source\impresion\TPDF.prg => TPDF:LINEAS( 93 )
Called from: Source\impresion\TPDF.prg => TPDF:IMPRIMIR( 46 )
Re: LA CLASE TIMPRIME,, DE RAFA
Posted: Tue Aug 15, 2023 12:50 pm
by karinha
Harbour ó xHarbour?
Haga un DEMO. Algo no está bién, ahi. use a PRINTER.PRG és mejor.
Regards, saludos.