=SQLEXEC(m.Obj_vr.HandelSQL,"begin")
	SELECT &my_alias_update.
	IF TABLEUPDATE(.T.)
		=SQLEXEC(m.Obj_vr.HandelSQL,"commit")
		m.my_ret = .T.
	ELSE
		=TABLEREVERT(.T.)
		=SQLEXEC(m.Obj_vr.HandelSQL,"rollback")
		m.my_ret = .F.
	ENDIF

m.my_update_list = poluch_list(m.my_alias, m.my_update_fields+',')
PROCEDURE poluch_list
	PARAMETERS al_dobav, obrob_polya
	STORE '' TO m.ret_list
	m.my_all_kol = LEN(m.obrob_polya) - LEN(STRTRAN(m.obrob_polya,',',''))
	FOR m.n_list =  1  TO m.my_all_kol
		m.my_nach  = IIF(m.n_list= 1 , 1 ,AT(",",m.obrob_polya,m.n_list- 1 )+ 1 )
		m.my_sikoko= IIF(m.n_list= 1 ,AT(",",m.obrob_polya)- 1 ,AT(",",m.obrob_polya,m.n_list)-m.my_nach)
		m.pole_update = SUBSTR(m.obrob_polya,m.my_nach,m.my_sikoko)
		m.ret_list = m.ret_list+IIF(!EMPTY(m.ret_list),',','')+m.pole_update+' '+m.al_dobav+'.'+m.pole_update
	ENDFOR
RETURN m.ret_list