LA CLASE TIMPRIME,, DE RAFA

[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

[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.html

Saludos

William Adami

[MarioG]

Sorry!!!! estaba recomiplando, de nuevo, con los fuentes viejos

muchas gracias, Saludos

[goosfancito]

Rafa;
Retomo este hilo porque estoy probando la clase
basándome en el ejemplo testfact.prg cosntruyo mi ejemplo así

Code: Select all  Expand view  RUN

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?

[karinha]

Gustavo, todo funciona perfecto. Mira:

Download completo

https://mega.nz/file/Ic8yHAYB#zCqvDKSh3mqKwEsJ1r0rmimlTLmGnNIMLUDDt2GFChM

Regards, saludos.

[goosfancito]

Hola.
Estimada no funciona todo ok, sigue teniendo el mismo problema en esa parte del codigo.

Code: Select all  Expand view  RUN

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
 

[goosfancito]

Code: Select all  Expand view  RUN

  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 )

[karinha]

Harbour ó xHarbour?

Haga un DEMO. Algo no está bién, ahi. use a PRINTER.PRG és mejor.

Regards, saludos.