ERROR EXTRAÑO

[edufloriv]

Saludos amigos,

De nuevo aqui con algo que me parece de otra dimensión, me lanza este error:

ERROR-3.jpg (123.31 KiB) Viewed 1347 times

Revisando mi código intuyo que el error viene desde aqui:

ERROR-1.jpg (229.78 KiB) Viewed 1347 times

Y aquí es donde se genera:

ERROR-2.jpg (215.13 KiB) Viewed 1347 times

¿ Como es posible que NO exista la ventana Win_ListaVentas si el botón que dispara la proc VentaListaElige() está sobre esta ventana ? - No logro entender como hizo el usuario para generar este error.

Atento a sus comentarios les agradezco anticipadamente.


Mil gracias y saludos.

[dragancesu]

Maybe help

Code: Select all

   if IsWindowActive( FormPrev )
       DoMethod( 'FormPrev', "RELEASE" )
   endif
   
   DEFINE WINDOW FormPrev ;
      AT 20, desk_pozx ;
      WIDTH 1000 ; 
      HEIGHT 800 ;
      TITLE 'Preview Form' ;
      CHILD
      

[SALINETAS24]

Hola Edu, estaría bien ver todo el código, no obstante y por si te sirve este es mi consejo.

Yo pondría el RELEASE en la misma linea de la ACTION de BUTTON

Code: Select all

@ 300,200 BUTTON botaceptar() ;
    CAPTION "ACEPTAR" ;
    ACTION (Ventaelige(),WinListaventas.Release)

De esta forma te aseguras que el RELEASE se hace dentro de la misma ventana y por otra no tienes RELEASES "perdidos".

y por otra, si las FUNCIONES o PROCEDIMIENTOS los usas solo en este PRG utiliza la clausula

STATIC FUNCTION o STATIC PROCEDURE

con lo cual evitas duplicación o llamadas a funciones no deseadas.

Espero que te sirvan y que des con "la rata"..., una cervecita fresquita!!