User cache %CSP.Page 1 code %Status 1 code %Boolean " Write !,(..HyperEventBody()) Write !,!,"

TECH.Config.ConfigItem

",! Write "" Write !,!,"" Write ! If ((%request.Get("OBJID"))'="") { Set objForm = ##class(TECH.Config.ConfigItem).%OpenId((%request.Get("OBJID"))) } Else { Set objForm = ##class(TECH.Config.ConfigItem).%New() } Write !,!,"" Write " ",! Write "",! Write !,!,"

" Write !,..InsertHiddenFields(""),! Write !,"",! Write "",! Write " ",! Write " ",! Write " ",! Write " ",! Write " ",! Write " ",! Write " ",! Write " ",! Write " ",! Write " ",! Write " ",! Write " ",! Write " ",! Write " ",! Write " ",! Write " ",! Write " ",! Write " ",! Write " ",! Write " ",! Write "

" Write " " Write "*Omgeving:" Write " " Write "	" Set %value = ..EscapeHTML($get(%request.Data("Omgeving",1),$ZSTRIP($select(objForm="":"",1:(objForm.OmgevingLogicalToDisplay(objForm.Omgeving))),">W"))) Write "" Write "
" Write " " Write "*Sleutel:" Write " " Write "	" Set %value = ..EscapeHTML($get(%request.Data("Sleutel",1),$ZSTRIP($select(objForm="":"",1:(objForm.SleutelLogicalToDisplay(objForm.Sleutel))),">W"))) Write "" Write "
" Write " " Write "Waarde:" Write " " Write "	" Set %value = ..EscapeHTML($get(%request.Data("Waarde",1),$ZSTRIP($select(objForm="":"",1:(objForm.WaardeLogicalToDisplay(objForm.Waarde))),">W"))) Write "" Write "
	" Write "" Write !," " Write "" Write !," " Write "" Write "

",! Write "",! Write "" Write "

" Write !,!,!,"" ]]> 1 code %Boolean 1 code %Boolean " Write !,!,"" Write !,""_$c(9)_"Cache Server Page ",! Set nvp("CLASSNAME") = "TECH.Config.ConfigItem" Set nvp("WHERE") = "%Id()" Set nvp("OBJID") = (%request.Get("OBJID")) Set nvp("OPTIONS") = "POPUP,NOPREDICATES" Set nvp("ONSELECT") = "update" Write "",! Kill nvp Do ..formGenJS() Write !,(..HyperEventHead()) Write !,"" ]]> 1 code %Boolean " Write ! Do ..OnPageHEAD() Write !,! Do ..OnPageBODY() Write !,"" ]]> 1 code %Boolean 1 code %Boolean form.]]> 1 code cache ",! Write "",! Write "",! QUIT ]]> form from the specified object instance by sending JavaScript to the client.]]> 1 code objid:%String,obj:%Integer="" cache %Boolean form from the specified object instance by sending JavaScript to the client. Error reporting is left to the caller.]]> 1 code objid:%String,obj:%Integer="",alwaysLoad:%Boolean=0 cache %Boolean form.]]> 1 code cache form.]]> 1 code cache form into the specified object instance. If successful, updates the values on the form.]]> 1 code cache %Boolean form into a call to formSave.]]> 1 code cache %Boolean W") Set v("Sleutel")=$ZSTRIP($get(%request.Data("Sleutel",1)),">W") Set v("Waarde")=$ZSTRIP($get(%request.Data("Waarde",1)),">W") If $get(objid)="" Set objid=$get(%request.Data("OBJID",1)) Quit ..formSave(0,.errmsg,objid,v("Omgeving"),v("Sleutel"),v("Waarde")) ]]> form.]]> 1 code cache c:\cachesys\csp\admin1\vhTechConfig.csp /csp/admin1/vhTechConfig.csp 62082,62054