Problem with MODAL window

[dragancesu]

Code: Select all

FUNCTION lov_kal_cen()

PRIVATE _RetVal

   if IsWindowActive( Lov_Form_kc )
       DoMethod( 'Lov_Form_kc', "RELEASE" )
   endif

   DEFINE WINDOW Lov_Form_kc ; 
      AT 0,0 ; 
      WIDTH 500 ; 
      HEIGHT 300 ; 
      TITLE "Kalkulacije i cene " ; 
      MODAL

   @ 20, 20 BROWSE Lov_grid_kc ;
      WIDTH 450 ;
      HEIGHT 250 ;
      FONT "Arial" ; 
      SIZE 10 ;
      HEADERS { "Kalkulacija","Kolicina","Prod.cena","Nab.cena" } ;
      WIDTHS { 100,100,100,100 } ;
      WORKAREA KAL_CEN ;
      FIELDS { "KALK","KOL","CENA1","CENA2" } ;
      ON DBLCLICK sel_row_kc() ; 
      JUSTIFY { 1, 1, 1, 1 }  
		 
   END WINDOW 

   Lov_Form_kc.Lov_Grid_kc.SetFocus 

   CENTER WINDOW Lov_Form_kc

   ACTIVATE WINDOW Lov_Form_kc

RETURN _Retval 
*----------------------------------------------------------
FUNCTION sel_row_kc()

   _Retval := Lov_Form_kc.Lov_Grid_kc.Value
   Lov_Form_kc.Release

RETURN val(_RetVal) 

This should be a simple function that starts up when you need to choose something from the offered value (BROWSE and GRID) or not

message is

HMG 3.4.1 / HMG 3.4.3 Stable (32 bits)

Not debug mode
Window: Lov_Form_kc already defined. Program Terminated

in debug mode
Non top modal windows can't be released. Program Terminated

Question: how open and close modal window, and used later again?

[KDJ]

dragancesu

Try this code:

Code: Select all

FUNCTION lov_kal_cen()

LOCAL lMainWndFirst := HMG_ActivateMainWindowFirst(.F.)
PRIVATE _RetVal

   if IsWindowActive( Lov_Form_kc )
       DoMethod( 'Lov_Form_kc', "RELEASE" )
   endif

   DEFINE WINDOW Lov_Form_kc ;
      AT 0,0 ;
      WIDTH 500 ;
      HEIGHT 300 ;
      TITLE "Kalkulacije i cene " ;
      MODAL

//   @ 20, 20 BROWSE Lov_grid_kc ;
//      WIDTH 450 ;
//      HEIGHT 250 ;
//      FONT "Arial" ;
//      SIZE 10 ;
//      HEADERS { "Kalkulacija","Kolicina","Prod.cena","Nab.cena" } ;
//      WIDTHS { 100,100,100,100 } ;
//      WORKAREA KAL_CEN ;
//      FIELDS { "KALK","KOL","CENA1","CENA2" } ;
//      ON DBLCLICK sel_row_kc() ;
//      JUSTIFY { 1, 1, 1, 1 } 
      
   END WINDOW

//   Lov_Form_kc.Lov_Grid_kc.SetFocus

   CENTER WINDOW Lov_Form_kc

   ACTIVATE WINDOW Lov_Form_kc

   HMG_ActivateMainWindowFirst(lMainWndFirst)

RETURN _Retval
*----------------------------------------------------------
FUNCTION sel_row_kc()

   _Retval := Lov_Form_kc.Lov_Grid_kc.Value
   Lov_Form_kc.Release

RETURN val(_RetVal)

[dragancesu]

Thank you but it's not solution, program crash

[andyglezl]

Hola dragancesu

Según lo veo, no puedes dar un RELEASE a la ventana porque estas todavía dentro de la
función que ejecuta el Grid "ON DBLCLICK sel_row_kc()"
------------------------------------------------------------------------------------------------------------
Hello dragancesu

As I see it, you can not give one release to the window because these still within the
function that runs the Grid "ON DBLCLICK sel_row_kc ()"


FUNCTION sel_row_kc()

_Retval := Lov_Form_kc.Lov_Grid_kc.Value
Lov_Form_kc.Release <==================

RETURN val(_RetVal)


Maybe...
@ 20, 20 BROWSE Lov_grid_kc ;
.......
ON DBLCLICK ( sel_row_kc(), Lov_Form_kc.Release ) ; <=====================