topic-30074

Posts: 458

Joined: Tue Mar 14, 2006 07:26 PM

Error TtxtFile.prg
Posted: Fri Jan 30, 2015 09:21 AM

Buenos días,

Me ha ocurrido un error inexplicable en mi aplicación y no encuentro que está erróneo en la clase TtxtFile. Este es parte del error.log

Code (fw): Select all Collapse

Application
===========
   Path and name: M:\dominus\xDomi14.exe (32 bits)
   Size: 7,536,640 bytes
   Compiler version: Harbour 3.2.0dev (r1406271520)
   FiveWin  Version: FWH 14.08
   Windows version: 6.1, Build 7600 

   Time from start: 3 hours 13 mins 47 secs 
   Error occurred at: 28/01/15, 12:47:53
   Error description: Error BASE/1086  Error de argumento: ++
   Args:
     [   1] = U   

Stack Calls
===========
   Called from: .\source\classes\TTXTFILE.PRG => TTXTFILE:ADD( 182 )
   Called from: lremesa.prg => TRECIBO:CAB1( 1197 )
   Called from: lremesa.prg => IMPREMESA( 599 )
   Called from: elget.prg => (b)TELGET_GRABMODI( 1766 )
   Called from: elget.prg => TELGET:GRABMODI( 1766 )
   Called from: elget.prg => (b)TELGET_MODIFICA( 1562 )

Y este es el método donde falla:

Code (fw): Select all Collapse

METHOD Add( cLine ) CLASS TTxtFile

     ::Super:GoBottom()

     cLine := iif(empty(::nLen), cLine , CRLF + cLine)

     ::PutStr( cLine )
     ::nLen    += len( cLine )
     ::nTLines ++
     ::nLine   := ::nTLines

RETURN NIL

El error es en la línea 182 que es: ::nTLines ++, dice que la data es tipo U (indefinida o nula).

Antonio, ¿Le encuentras alguna explicación lógica?

Luego, no hemos podido volver a reproducir el error, pero quiero averiguar cual ha sido la causa, para evitar que le pueda pasar a un usuario final.

Un Saludo,

Joaquín Martínez

FiveTech Support Forums

Continue the discussion