Error con GUI y CUI

[TOTOVIOTTI]

Amigos:
estoy usando GUI y CUI para un viejo sistema que estoy convirtiendo, para no sacarlo de línea, hice
un menú FW y le fui colgando mis prgs de Clipper, de a pocos lo voy convirtiendo, mientras, no dejo
sin sistema a mis clientes.
La consulta es, cuando se produce un error, me aparece el Error.log que crea FW pero luego, en vez
de cerrarse, aparece una ventana de Windows donde se quiere recuperar del error y pide Informar el error, etc.
y me queda la ventana que hay que cerrarla con CTRL+ALT+SUPR y la verdad que es bastante incómodo.
Habrá alguna forma de solucionar este error?
Muchas Gracias!
Roberto

[cnavarro]

No aparece en esa ventana un boton "Quit"?
Estas usando alguna rutina de Error propia?
Has sustituido el ErrorSys.Prg de Fwh o alguna funcion incluida en dicho Prg?

[TOTOVIOTTI]

Si,
aparece el error.log nativo, pero después que cierro ese mensaje de error, aparece uno de Windows.
Gracias!
Roberto

[cnavarro]

Te da un error de sistema?
No te crea un fichero hb_out.log?

[TOTOVIOTTI]

Si
la primer parte del archivo dice:

Application Internal Error - D:\EMPRESAS\univac.exe
Terminated at: 2015-07-08 17:22:14
Error irrecuperable 6005: Exception error:

Exception Code:C0000005 ACCESS_VIOLATION
Exception Address:0044D1A1
EAX:00000000 EBX:00A4B048 ECX:00000067 EDX:00B70001
ESI:00000000 EDI:0098B851 EBP:0012FC54
CS:EIP:001B:0044D1A1 SS:ESP:0023:0012FC50
DS:0023 ES:0023 FS:003B GS:0000
Flags:00010283
Exception Parameters: 00000000 00000008
CS:EIP: 8B 50 08 0F B7 45 08 8B 1A 8B D0 C1 E2 03 8D 14
SS:ESP: 00A4B048 0012FD68 004469C1 00B70001 00000001 00000000 00983338

etc etc etc

Muchas gracias!
Roberto

[cnavarro]

Roberto
Un poco mas abajo te ha de decir donde "casca"

[TOTOVIOTTI]

Es muy largo para pegarlo, me puedes indicar aproximadamente donde es?
Muchas gracias!
Roberto

[cnavarro]

Son lineas iguales que las del error.log, intenta irte al final del fichero y vas subiendo

[TOTOVIOTTI]

Cristobal,
gracias por tu ayuda antes que todo.... el error que me muestra es:

Called from _FWH(3353) in .\source\classes\WINDOW.PRG

y en la window.prg en esa línea está escrito:

function _FWH( hWnd, nMsg, nWParam, nLParam, nAt )

local oWnd

static aRet := { 0, 0 }

if nAt != 0
oWnd = aWindows[ nAt ] // esto está en la 3353
if ValType( oWnd ) == "O"
aRet[ 1 ] = oWnd:HandleEvent( nMsg, nWParam, nLParam )
aRet[ 2 ] = oWnd:nOldProc
endif
return aRet
endif

return nil

porque puede ser que dé este error?
Gracias!

[cnavarro]

Cristobal,
gracias por tu ayuda antes que todo.... el error que me muestra es:

Called from _FWH(3353) in .\source\classes\WINDOW.PRG

y en la window.prg en esa línea está escrito:

function _FWH( hWnd, nMsg, nWParam, nLParam, nAt )

local oWnd

static aRet := { 0, 0 }

if nAt != 0
oWnd = aWindows[ nAt ] // esto está en la 3353
if ValType( oWnd ) == "O"
aRet[ 1 ] = oWnd:HandleEvent( nMsg, nWParam, nLParam )
aRet[ 2 ] = oWnd:nOldProc
endif
return aRet
endif

return nil

porque puede ser que dé este error?
Gracias!

Roberto
Tiene toda la pinta de que hay un problema en la creacion de las ventanas (quizas debido a la "mezcla" que estas haciendo)
Para ir buscando el posible error yo uso FWLOG en distintos puntos de la aplicacion, por ejemplo
(Has de modificar la clase WINDOW y añadirla a tu proyecto)

Code: Select all  Expand view

   if nAt != 0
   FWLOG nAt     // Valtype( aWindows[ nAt ]
oWnd = aWindows[ nAt ]       // esto está en la 3353
...

 

[TOTOVIOTTI]

Gracias Cristóbal, probaré el fin de semana y te cuento...
Muchas gracias!
Roberto