String ls_mess
String ls_dberr
str_sp_lg sp
Integer li_tv_ind
TreeViewItem l_tv

if ied =  1  then
	sp.ie =  1 
	sp.id = Integer(st_id_lg.text)
	sp.razdel = st_razdel.text
	OpenWithParm(w_sp_lg,sp)
	
	ls_mess = Message.stringparm
	if ls_mess<>'-1' then tv_sp_lg.insertitemfirst( Integer(st_lg_ind.text) , ls_mess,  1 )
end if

if ied =  2  then
	sp.ie =  2 
	sp.id = Integer(st_id_lg.text)
	sp.razdel = st_razdel.text
	OpenWithParm(w_sp_lg,sp)

	ls_mess = Message.stringparm
	li_tv_ind = Integer(st_lg_ind.text)

	if ls_mess<>'-1' then 
		tv_sp_lg.getitem( Integer(st_lg_ind.text), l_tv)
		l_tv.label = ls_mess
		tv_sp_lg.setitem( Integer(st_lg_ind.text), l_tv)
		tv_sp_lg.selectitem (li_tv_ind)
	end if
end if

if ied =  3  then
	if messagebox("Удаление","Вы действительно хотите удалить каталог ?", Exclamation!, OKCancel!)= 1  then
		li_tv_ind = Integer(st_lg_ind.text) 
		tv_sp_lg.getitem(li_tv_ind , l_tv)

		DELETE FROM sp_lg where id_lg=:st_id_lg.text;
		if sqlca.sqlcode<> 0  then
		ls_dberr = КАТАЛОГ: /'+String(l_tv.Label)+ '/ удалить невозможно '+ String(sqlca.sqlerrtext)
			rollback;
			MessageBox('Ошибка удаления', ls_dberr)
			return
		else
			tv_sp_lg.deleteitem(li_tv_ind)
			commit;
		end if
	end if
end if