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)
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?