NIEUW OBJECT Quit:('..objSAVEandCLOSE()) Quit:('..objNEW()) ... Quit OBJECT OPENEN New ID Set ID=... Quit:('..objSAVEandCLOSE()) Quit:('..objOPEN(ID)) ... Quit OBJECT OPSLAAN Do ..objSAVE() Quit OBJECT SLUITEN Do ..objSAVEandCLOSE() Quit OBJECT VERWIJDEREN Do ..objDELETE() Quit FORM SLUITEN (OnCloseQuery) Set CanClose=$$BoolToStr^vhLib(..objSAVEandCLOSE()) Quit serial Default %Library.TMFormClass 0 %Library.String "Template" %Library.String %Library.TMForm %Library.TMSpeedButton initvalue:%String cache 0 %Status document literal cache 0 document literal cache 0 document literal initvalue:%String cache 0 MApplication document literal initvalue:%String cache 0 %Status document literal lbStatus:%List cache 0 %Library.Boolean document literal cache 0 %Library.Boolean document literal Prop1,Prop2:%String cache 0 %String document literal cache 0 %Library.Boolean document literal ID:%String cache 0 %Library.List document literal cache 0 %Library.String document literal cache 0 %Library.String document literal cache 0 %Library.Boolean document literal cache 0 %Library.Boolean document literal cache 0 %Library.Boolean document literal ID:%String cache 0 %Library.Boolean document literal cache 0 %Library.Boolean document literal cache 0 %Library.Boolean document literal ObjectAction:%Integer cache 0 document literal cache 0 %Library.List document literal -1 1 2 4 3 1 2 %Library.CacheSerialState "%Library.TMFormClass" Address Form CurrentObject AppTitle btnOpen