Window is not active

[edufloriv]

Saludos amigos,

Esperando que todos y sus familias estén bien de salud.

Tengo el siguiente error:

Date:12/05/22 Time: 16:44:05
Error: HMG 3.4.4 Stable (32 bits)
Window: Win_Venta_Arti is not active. Program terminated
Called from _RELEASEWINDOW(3859)
Called from DOMETHOD(9097)
Called from VENTARTICIERRA(176)
Called from (b)AYUDA_VENTARTI(60)
Called from _DOCONTROLEVENTPROCEDURE(6033)
Called from EVENTS(821)
Called from DOEVENTS(0)
Called from _SHOWWINDOW(3982)
Called from _ACTIVATEWINDOW(5665)
Called from AYUDA_VENTARTI(138)
Called from VENTASADDITEM(959)
Called from VENTASADDITEM(969)
Called from VENTASADDITEM(969)
Called from (b)REGISTRODEVENTAS(89)
Called from _DOCONTROLEVENTPROCEDURE(6033)
Called from EVENTS(821)
Called from DOMESSAGELOOP(0)
Called from _ACTIVATEWINDOW(5694)
Called from REGISTRODEVENTAS(377)
Called from ABREMODULO(389)
Called from EJECUTAOPCION(343)
Called from (b)MAIN(139)
Called from _DOCONTROLEVENTPROCEDURE(6033)
Called from EVENTS(1809)
Called from DOMESSAGELOOP(0)
Called from _ACTIVATEWINDOW(5694)
Called from MAIN(213)

Aquí la porción de código que lo genera con la línea 176 de la procedure VENTARTICIERRA:

NOACTIVE.png (27.74 KiB) Viewed 1205 times

Como ven en el código verifico primero que la ventana EXISTA, pero parece que el problema no es la existencia de la ventana sino más bien que este ACTIVA, ¿ como puedo verificar que este ACTIVA para poder así evitar el error ?

Esta es la definición de la venta Win_Venta_Arti :

Code: Select all

DEFINE WINDOW Win_Venta_Arti ;
   AT 0,0 ;
   WIDTH 960 HEIGHT 580 ;
   TITLE 'Seleccionar Artículo'  ;
   MODAL ;
   FONT 'Arial' SIZE SCR_FNTSZ ;
   ON INIT VentArtiIniciar()

Un abrazo a todos y gracias anticipadas por su tiempo.

[hansmarc]

Hi Eduardo,

it should be IsWindowdefined("Win_Venta_Arti").
Window name to test must be defined as a string not as a variable.

Regards
Hans

[serge_girard]

Thanks Hans!

[edufloriv]

Hola Hans,

Muchas gracias, lo probare. Saludos.

--------------------------------------------------

Hello Hans,

Thanks a lot, I would try it.

[Claudio Ricardo]

Hola Eduardo... Ten en cuenta que la ventana puede estar definida pero aún no activada...
Release cierra una ventana una vez ella está activada, antes NO...
Si quieres cerrar una ventana que suponés ya está en pantalla y quieres asegurarte de ello
puedes usar IsWindowActive () en vez de IsWindowDefined ()

[serge_girard]

Worst of all is that it doesn't generate a runtime error!

Code: Select all

If IsWIndowDefined (Form_1) // don't generate a runtime error !
   RELEASE WINDOW Form_1
ENDIF

If IsWIndowDefined ('Form_1') 
   RELEASE WINDOW Form_1
ENDIF
 

Serge