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: Select all Expand view RUN
- 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: Select all Expand view RUN
- 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.