Error en dialog

[fgondi]

Hola foro,

Hay momentos en la actividad del programa en los que ejecuta el siguiente error.

Code: Select all  Expand view

________________________________________________________________________________

   Error BASE/1.077  Error de argumento: .NOT.

   Argumentos   :
     [   1] = U   
Llamadas al Stack
________________________________________________________________________________

   Called from TDIALOG:END(0)
   Called from (b)ENABLE(550)
   Called from TCONTROL:CLICK(0)
   Called from TWINDOW:KEYCHAR(0)
   Called from TWINDOW:HANDLEEVENT(0)
   Called from TWINDOW:HANDLEEVENT(0)
   Called from _FWH(3126)
   Called from DIALOGBOXINDIRECT(0)
   Called from TDIALOG:ACTIVATE(0)
   Called from MSGRUN(0)
   Called from PS_GETPRECIOSQL(346)
   Called from GETPRECIOS(87)
   Called from PS_SHOW(270)
   Called from (b)ALBCOMPLIN(82)
   Called from TLINDAT:EDIT(511)
   Called from TLINDAT:EJECUTAR(601)
   Called from (b)BUILDCONTROLS(301)
   Called from TLINDAT:KEYDOWN(702)
   Called from (b)NEW(181)
   Called from (b)ACTIVATE(186)
   Called from TWINDOW:KEYDOWN(2392)
   Called from TWINDOW:KEYDOWN(0)
   Called from TWINDOW:KEYDOWN(2400)
   Called from TWINDOW:KEYDOWN(2400)
   Called from TWINDOW:KEYDOWN(0)
   Called from TWINDOW:KEYDOWN(0)
   Called from TWINDOW:HANDLEEVENT(0)
   Called from TWINDOW:HANDLEEVENT(0)
   Called from _FWH(3126)
   Called from WINRUN(0)
   Called from TWINDOW:ACTIVATE(880)
   Called from MAIN(58)

Haber si me pudierais explicar porque que se produce.

Muchas gracias de antemano por vuestro tiempo

[jlcapel]

fgondi,

Called from TDIALOG:END(0)
Called from (b)ENABLE(550)
Called from TCONTROL:CLICK(0)

Revisa el bloque de código que debe haber dentro del ACTION de algún botón del diálogo (el que se haya pulsado).

Saludos,
José Luis Capel

[fgondi]

Jose Luis,

Ante todo gracias por tu respuesta.

fijate que el error se produce al cerrar la ventana que genera msgrun(), eso es lo que no entiendo.

Code: Select all  Expand view

Called from TDIALOG:END(0)
   Called from (b)ENABLE(550)
   Called from TCONTROL:CLICK(0)
   Called from TWINDOW:KEYCHAR(0)
   Called from TWINDOW:HANDLEEVENT(0)
   Called from TWINDOW:HANDLEEVENT(0)
   Called from _FWH(3126)
   Called from DIALOGBOXINDIRECT(0)
   Called from TDIALOG:ACTIVATE(0)
   Called from MSGRUN(0)

Lo que no sé es si el click() pertenece a algún botón de la ventana que hay por detras del mensaje msgrun() y como evitarlo, ya que no debería permitir la pulsación de dichos botones, aunque sea a traves de pulsación rapida (KeyDown, KeyChar, etc.)

[Antonio Linares]

Fernando,

Prueba a deshabilitar la ventana principal, antes de llamar a MsgRun():

Code: Select all  Expand view

   oWnd:Disable()
   MsgRun( ... )
   oWnd:Enable()


[fgondi]

Antonio.

Gracias. En eso no había caido, seguramente se solucione. Lo probaré