IF CURSORGETPROP("Buffering")= 1 
	RETURN  0 
	WAIT 'Буферизация таблицы не включена' WINDOW NOWAIT TIMEOUT  5  
ENDIF 	
BEGIN TRANSACTION 
IF !TABLEUPDATE(.T.,.F.)
	ROLLBACK
	AERROR(a_errors)
	DO case
	CASE a_errors( 1 , 1 )= 1539  &&ошибка тригера
		DO CASE 
			CASE a_errors( 1 , 5 )= 1  && 1  - Ошибка триггера добавления.
				***
			CASE a_errors( 1 , 5 )= 2  && 2  - Ошибка триггера обновления.
				***
			CASE a_errors( 1 , 5 )= 3  && 3  - Ошибка триггера удаления.
				**
		ENDCASE 		
		MESSAGEBOX('Внимание: '+ICASE(a_errors( 1 , 5 )= 1 ,'Ошибка триггера добавления', ;
		a_errors( 1 , 5 )= 2 ,'ошибка триггера обновления',a_errors( 1 , 5 )= 3 ,'ошибка триггера удаления'))
		TABLEREVERT()
	CASE a_errors( 1 , 1 )= 1581  && ошибка нулевых значений
		MESSAGEBOX('ошибка нулевых значений')
		TABLEREVERT()
	CASE a_errors( 1 , 1 )= 1582  && ошибка правила ввода
		MESSAGEBOX('ошибка правила ввода')
		TABLEREVERT()
	CASE a_errors( 1 , 1 )= 1585  &&запись была изменена другим пользователем 
		BEGIN TRANSACTION 
		l_resalt=this.verifyeachchange()
		IF l_resalt= 1 
			MESSAGEBOX('Обновление прошло удачно')
		ELSE 	
			MESSAGEBOX(this.string(l_resalt))
		ENDIF 
		END TRANSACTION 	
	CASE a_errors( 1 , 1 )= 109  && запись занята другим пользователем
		***
	CASE a_errors( 1 , 1 )= 1583  &&было нарушено правило ввода
		***
	CASE a_errors( 1 , 1 )= 1884  &&нарушение уникальности индекса
		MESSAGEBOX('нарушение уникальности индекса')
		TABLEREVERT()
	OTHERWISE 
		MESSAGEBOX('Непонятная ошибка '+ STR(a_errors( 1 , 1 )))	
				
	ENDCASE
	RETURN  1 
ELSE 
	END TRANSACTION 
	RETURN  1 	
ENDIF