Процедура СоздатьВорд2017()
	//Если (ВидДопСогл = 5) или (ВидДопСогл = 6) Тогда
	//    Возврат;
	//КонецЕсли;
	Предупреждения();
	ПередЗаписью();
	
	Фамилия="";Имя="";Отчество="";
	глФамилияИмяОтчество(Сотрудник,Фамилия,Имя,Отчество);
	
	Каталог = "\\nv-sql1\ok\ДопСоглашения";
	//Каталог = "c:\temp\ДопСоглашения";

	Если ФС.СуществуетФайл(Каталог) = 0 Тогда
		ФС.СоздатьКаталог(Каталог);
	КонецЕсли;
	Если ФС.СуществуетФайл(Каталог+"\допы на северную") = 0 Тогда
		ФС.СоздатьКаталог(Каталог+"\допы на северную");
	КонецЕсли;
	Если ФС.СуществуетФайл(Каталог+"\допы  на продление") = 0 Тогда
		ФС.СоздатьКаталог(Каталог+"\допы  на продление");
	КонецЕсли;
	Если ФС.СуществуетФайл(Каталог+"\допы на переводы") = 0 Тогда
		ФС.СоздатьКаталог(Каталог+"\допы на переводы");
	КонецЕсли;                                      
	Если ФС.СуществуетФайл(Каталог+"\допы на смену ФИО") = 0 Тогда
		ФС.СоздатьКаталог(Каталог+"\допы на смену ФИО");
	КонецЕсли;                                      
	Если ФС.СуществуетФайл(Каталог+"\допы на авто") = 0 Тогда
		ФС.СоздатьКаталог(Каталог+"\допы на авто");
	КонецЕсли;                                      
	Если ФС.СуществуетФайл(Каталог+"\допы на сиз") = 0 Тогда
		ФС.СоздатьКаталог(Каталог+"\допы на сиз");
	КонецЕсли;                                      
	Если ФС.СуществуетФайл(Каталог+"\допы на обучение") = 0 Тогда
		ФС.СоздатьКаталог(Каталог+"\допы на обучение");
	КонецЕсли;                                      
	Если ФС.СуществуетФайл(Каталог+"\допы на вахту") = 0 Тогда
		ФС.СоздатьКаталог(Каталог+"\допы на вахту");
	КонецЕсли;                                      
	Если ФС.СуществуетФайл(Каталог+"\допы на оплату") = 0 Тогда
		ФС.СоздатьКаталог(Каталог+"\допы на оплату");
	КонецЕсли;                                      

	Word = СоздатьОбъект("Word.Application");
	Word.Caption="1С";
	Word.Visible=1;
	Док=Word.documents;
	
	ДатаДокП =   СокрЛП(Формат(ДатаДок,"ДДДММММГГГГ"));     
	Если ПустоеЗначение(ДокПеремещение) =  0 Тогда
		ДатаДокПНач =   СокрЛП(Формат(ДокПеремещение.Начало,"ДДДММММГГГГ"));
		ДатаДокПКон =   ?(ПустоеЗначение(ДокПеремещение.Окончание) = 0, СокрЛП(Формат(ДокПеремещение.Окончание,"ДДДММММГГГГ")),"");
	Иначе 	   
		ДатаДокПНач =   ДатаДокП;
	КонецЕсли;         
	
	//Если (ВидДопСогл <> 5) и (ВидДопСогл <> 6) Тогда
		РазряП = "";
		Если Разряд = Перечисление.Разряд.Разряд1 Тогда
			РазрядП = "первого разряда"  ;
		ИначеЕсли Разряд = Перечисление.Разряд.Разряд2 Тогда
			РазрядП = "второго разряда" ;
		ИначеЕсли Разряд = Перечисление.Разряд.Разряд3 Тогда
			РазрядП = "третьего разряда" ;   
		ИначеЕсли Разряд = Перечисление.Разряд.Разряд4 Тогда
			РазрядП = "четвертого разряда" ;  
		ИначеЕсли Разряд = Перечисление.Разряд.Разряд5 Тогда
			РазрядП = "пятого разряда" ;     
		ИначеЕсли Разряд = Перечисление.Разряд.Разряд6 Тогда
			РазрядП = "шестого разряда" ;    
		ИначеЕсли Разряд = Перечисление.Разряд.Группа1 Тогда
			РазрядП = "первого класса" ; 
		ИначеЕсли Разряд = Перечисление.Разряд.Группа2 Тогда
			РазрядП = "второго класса" ;       
		ИначеЕсли Разряд = Перечисление.Разряд.Группа3 Тогда
			РазрядП = "третьего класса" ;      
		Иначе 
			РазрядП = "";
		КонецЕсли;
		
		Если ВидДопСогл = 9 Тогда
			//ТекДок=Док.Open(КаталогИБ() + "\ExtForms\Продление вахты.dot"); //путь к шаблону      
			ТекДок=Док.Add(КаталогИБ() + "\ExtForms\Продление вахты.dot",0,1); //путь к шаблону      
		ИначеЕсли ВидДопСогл = 10 Тогда
			//ТекДок=Док.Open(КаталогИБ() + "\ExtForms\Продление вахты.dot"); //путь к шаблону      
			ТекДок=Док.Add(КаталогИБ() + "\ExtForms\ДС на изменение оплаты труда Шаблон.dot",0,1); //путь к шаблону      
		ИначеЕсли ВидДопСогл = 11 Тогда
			ТекДок=Док.Add(КаталогИБ() + "\ExtForms\Доп соглашение на вахту 60 дней.dot",0,1); //путь к шаблону      
		Иначе    
			//ТекДок=Док.Open(КаталогИБ() + "\ExtForms\ДОПОЛНИТЕЛЬНОЕ СОГЛАШЕНИЕ 2017.dot"); //путь к шаблону      
			ТекДок=Док.Add(КаталогИБ() + "\ExtForms\ДОПОЛНИТЕЛЬНОЕ СОГЛАШЕНИЕ 2017.dot",0,1); //путь к шаблону      
		КонецЕсли;
		
		//Содержание=ТекДок.Content;                 
		
		
		Если (ПустоеЗначение(ДокПеремещение)= 1) и (ВидДопСогл = 1) Тогда
			ТекДок.SaveAs(Каталог+"\допы на северную\" + Сотрудник.Наименование + " " + Сотрудник.Код +" НомерДок " + СокрЛП(НомерДок) +".doc"); 
			ИмяФайла = Каталог+"\допы на северную\" + Сотрудник.Наименование + " " + Сотрудник.Код+" НомерДок " + СокрЛП(НомерДок) + ".doc";	
		ИначеЕсли (ПустоеЗначение(ДокПеремещение)= 0) и (ВидДопСогл = 1) Тогда
			ТекДок.SaveAs(Каталог+"\допы на переводы\" + Сотрудник.Наименование + " " + Сотрудник.Код+" НомерДок " + СокрЛП(НомерДок) + ".doc"); 
			ИмяФайла = Каталог+"\допы на переводы\" + Сотрудник.Наименование + " " + Сотрудник.Код+" НомерДок " + СокрЛП(НомерДок) + ".doc";	
		ИначеЕсли ВидДопСогл = 2 Тогда 
			ТекДок.SaveAs(Каталог+"\допы на продление\" + Сотрудник.Наименование + " " + Сотрудник.Код+" НомерДок " + СокрЛП(НомерДок) + ".doc"); 
			ИмяФайла = Каталог+"\допы на продление\" + Сотрудник.Наименование + " " + Сотрудник.Код+" НомерДок " + СокрЛП(НомерДок) + ".doc";	
		ИначеЕсли ВидДопСогл = 3 Тогда 
			ТекДок.SaveAs(Каталог+"\допы на смену ФИО\" + Сотрудник.Наименование + " " + Сотрудник.Код+" НомерДок " + СокрЛП(НомерДок) + ".doc"); 
			ИмяФайла = Каталог+"\допы на смену ФИО\" + Сотрудник.Наименование + " " + Сотрудник.Код+" НомерДок " + СокрЛП(НомерДок) + ".doc";	
		ИначеЕсли ВидДопСогл = 4 Тогда 
			ТекДок.SaveAs(Каталог+"\допы на авто\" + Сотрудник.Наименование + " " + Сотрудник.Код+" НомерДок " + СокрЛП(НомерДок) + ".doc"); 
			ИмяФайла = Каталог+"\допы на авто\" + Сотрудник.Наименование + " " + Сотрудник.Код+" НомерДок " + СокрЛП(НомерДок) + ".doc";
		ИначеЕсли (ВидДопСогл = 9) или (ВидДопСогл = 11) Тогда 
			ТекДок.SaveAs(Каталог+"\допы на вахту\" + Сотрудник.Наименование + " " + Сотрудник.Код+" НомерДок " + СокрЛП(НомерДок) + ".doc"); 
			ИмяФайла = Каталог+"\допы на вахту\" + Сотрудник.Наименование + " " + Сотрудник.Код+" НомерДок " + СокрЛП(НомерДок) + ".doc";
		ИначеЕсли ВидДопСогл = 10 Тогда 
			ТекДок.SaveAs(Каталог+"\допы на оплату\" + Сотрудник.Наименование + " " + Сотрудник.Код+" НомерДок " + СокрЛП(НомерДок) + ".doc"); 
			ИмяФайла = Каталог+"\допы на оплату\" + Сотрудник.Наименование + " " + Сотрудник.Код+" НомерДок " + СокрЛП(НомерДок) + ".doc";
		Иначе
			ТекДок.SaveAs(Каталог+"\" + Сотрудник.Наименование + " " + Сотрудник.Код+" НомерДок " + СокрЛП(НомерДок) + ".doc"); 
			ИмяФайла = Каталог+"\" + Сотрудник.Наименование + " " + Сотрудник.Код+" НомерДок " + СокрЛП(НомерДок) + ".doc";
		КонецЕсли;
		//ТекДок.SaveAs("C:\" + Сотрудник.Наименование + " " + Сотрудник.Код + ".doc"); 
		//ИмяФайла =  "C:\" + Сотрудник.Наименование + " " + Сотрудник.Код + ".doc";	     
		
		Word.Selection.Find.ClearFormatting();
			
		ПодразделениеСтар = ЗначениеПериодическогоРеквизитаНаНачало("Подразделение");
		ДолжностьСтар = ЗначениеПериодическогоРеквизитаНаНачало("Должность");       
		РазрядСтар =  ЗначениеПериодическогоРеквизитаНаНачало("Разряд"); 
		//ОкладСтар = глПолучитьСуммуИзРеквизита(ЗначениеПериодическогоРеквизитаНаНачало("Оклад"),?(ПустоеЗначение(ДатаДок)=1,РабочаяДата(),ДатаДок));//30.10.2017
		ОкладСтар = глПолучитьСуммуИзРеквизита(ЗначениеПериодическогоРеквизитаНаНачало("Оклад"),?(ПустоеЗначение(ДатаДок)=1,РабочаяДата()-1,ДатаДок-1));
		ФормаОплатыСтар = ЗначениеПериодическогоРеквизитаНаНачало("ФормаТруда");
		ПодразделениеСтар = ЗначениеПериодическогоРеквизитаНаНачало("Подразделение");
		Нумерация = 0;
		Если (ВидДопСогл<>9) и (ВидДопСогл<>10) и (ВидДопСогл<>11) Тогда
			Word.Selection.GoTo(-1, , , "закл1");//wdGoToBookmark
			Таб = Word.ActiveDocument.Tables.Add(Word.Selection.Range, 1, 2, 0, 2);
	    	Таб.Columns(1).PreferredWidthType = 3;
	   		Таб.Columns(1).PreferredWidth = Word.CentimetersToPoints(5);
		КонецЕсли;
		Если ВидДопСогл = 1 Тогда
			Пункт411 = 0;
			Если (Подразделение <> ПодразделениеСтар) или (ДолжностьСтар <> Должность) или (РазрядСтар <> Разряд) или (НеУчитывать = 1) или (Основание <> Договор.Основание) Тогда
				//Если (СокрЛП(Таб.Rows(Таб.Rows.Count).Cells(1).Range.Text) <> "") или (СокрЛП(Таб.Rows(Таб.Rows.Count).Cells(2).Range.Text) <> "") Тогда
				Если ((СокрЛП(Таб.Rows(Таб.Rows.Count).Cells(1).Range.Text) <> "") и (КодСимв(СокрЛП(Таб.Rows(Таб.Rows.Count).Cells(1).Range.Text)) <> 7)) или ((СокрЛП(Таб.Rows(Таб.Rows.Count).Cells(2).Range.Text) <> "") и (КодСимв(СокрЛП(Таб.Rows(Таб.Rows.Count).Cells(2).Range.Text)) <> 7)) Тогда
					Таб.Rows(Таб.Rows.Count).Select();
					Word.Selection.InsertRowsBelow();
				КонецЕсли;
				Таб.Rows(Таб.Rows.Count).Cells(1).Range.Text = Таб.Rows.Count;
				Текст = "Пункт 1.2. Трудового договора изложить в следующей редакции:" ;           
				Таб.Rows(Таб.Rows.Count).Cells(2).Range.Text = Текст;
				_Подразделение = "  "+СокрЛП(Подразделение.Наименование)+"  ";
				_Должность = "  "+СокрЛП(СокрЛП(Должность.Наименование) + " " + РазрядП)+"  ";
				Текст = "1.2 Работник переводиться";
				Если (Подразделение <> ПодразделениеСтар) или (НеУчитывать = 1) или (Основание <> Договор.Основание) Тогда
				    Текст = Текст + " в подразделение {_Подразделение}";
				КонецЕсли;
				Если (ДолжностьСтар <> Должность) или (РазрядСтар <> Разряд) или (НеУчитывать = 1) или (Основание <> Договор.Основание) Тогда
				    Текст = Текст + " на должность {_Должность}";
				КонецЕсли;
				Таб.Rows(Таб.Rows.Count).Cells(2).Range.Text = Таб.Rows(Таб.Rows.Count).Cells(2).Range.Text + Текст;
				Word.Selection.Find.Execute("{_Подразделение}",0,0,0,0,0,1,1,0,Текст,0,,,,0);   
				Word.Selection.Font.Bold = 9999998;     //Жирный
				Word.Selection.Font.Underline = 1;          //Подчеркнутый    
				Word.Selection.Find.Execute("{_Подразделение}",0,0,0,0,0,1,1,0,_Подразделение,2,,,,0);  
			    
				Word.Selection.Find.Execute("{_Должность}",0,0,0,0,0,1,1,0,Текст,0,,,,0);   
				Word.Selection.Font.Bold = 9999998;     //Жирный
				Word.Selection.Font.Underline = 1;          //Подчеркнутый    
				Word.Selection.Find.Execute("{_Должность}",0,0,0,0,0,1,1,0,_Должность,2,,,,0);  
			КонецЕсли;
			Если (Основание <> Договор.Основание) и (ПустоеЗначение(Договор.ДатаОкончанияРаботы) = 0) Тогда
				//Если (СокрЛП(Таб.Rows(Таб.Rows.Count).Cells(1).Range.Text) <> "") или (СокрЛП(Таб.Rows(Таб.Rows.Count).Cells(2).Range.Text) <> "") Тогда
				Если ((СокрЛП(Таб.Rows(Таб.Rows.Count).Cells(1).Range.Text) <> "") и (КодСимв(СокрЛП(Таб.Rows(Таб.Rows.Count).Cells(1).Range.Text)) <> 7)) или ((СокрЛП(Таб.Rows(Таб.Rows.Count).Cells(2).Range.Text) <> "") и (КодСимв(СокрЛП(Таб.Rows(Таб.Rows.Count).Cells(2).Range.Text)) <> 7)) Тогда
					Таб.Rows(Таб.Rows.Count).Select();
					Word.Selection.InsertRowsBelow();
				КонецЕсли;
				Таб.Rows(Таб.Rows.Count).Cells(1).Range.Text = Таб.Rows.Count;
				
				Текст = "Пункт 1.5 Трудового договора изложить в следующей редакции:";
				Таб.Rows(Таб.Rows.Count).Cells(2).Range.Text = Текст;
				Текст = "1.5 Настоящий трудовой договор носит срочный характер. Основанием для заключения срочного договора является:";
				Таб.Rows(Таб.Rows.Count).Cells(2).Range.Text = Таб.Rows(Таб.Rows.Count).Cells(2).Range.Text + Текст;
				//Word.Selection.Find.Execute("{25}",0,0,0,0,0,1,1,0,Текст,2,,,,0);        
				Если Основание = 1 Тогда
					ТекстОснование = "- исполнение обязанностей отсутствующего работника, за которым в соответствии с трудовым законодательством, иными нормативными правовыми актами, содержащими нормы трудового права,";
					ТекстОснование = ТекстОснование + " коллективным договором, соглашениями, локальными нормативными актами, трудовым договором сохраняется место работы;";
				ИначеЕсли Основание = 2 Тогда
					ТекстОснование = "- выполнение временных (до 2 месяцев) работ";
				ИначеЕсли Основание = 3 Тогда
					ТекстОснование = "- выполнение сезонных работ";
				ИначеЕсли Основание = 4 Тогда
					ТекстОснование = "- проведение работ, выходящих за рамки обычной деятельности Работодателя, а также работ, связанных с заведомо временным (до 1 года) расширением производства или объема оказываемых услуг;";
				ИначеЕсли Основание = 5 Тогда
					ТекстОснование = "- выполнение заведомо определенной работы в случаях, когда ее завершение не может быть определено конкретной датой (п.п. 7 п. 1 ст 59 ТК РФ);";
				ИначеЕсли Основание = 6 Тогда
					ТекстОснование = "- поступление на работу пенсионера по возрасту";
				ИначеЕсли Основание = 7 Тогда
					ТекстОснование = "- поступление на работу по совместительству";
				КонецЕсли;							
				Таб.Rows(Таб.Rows.Count).Cells(2).Range.Text = Таб.Rows(Таб.Rows.Count).Cells(2).Range.Text+ТекстОснование;
			КонецЕсли;
			Если (КлассУсловийТруда <> Договор.КлассУсловийТруда) Тогда
			 	Если КлассУсловийТруда = 1 Тогда
			 		ТекстКласс = "оптимальными (1 класс)";
			 	ИначеЕсли КлассУсловийТруда = 2 Тогда
			 		ТекстКласс = "допустимыми (2 класс)";
			 	ИначеЕсли КлассУсловийТруда = 3 Тогда
			 		ТекстКласс = "вредными (3 класс, подкласс 3.1)";
			 	ИначеЕсли КлассУсловийТруда = 4 Тогда
			 		ТекстКласс = "вредными (3 класс, подкласс 3.2)";
			 	ИначеЕсли КлассУсловийТруда = 5 Тогда
			 		ТекстКласс = "вредными (3 класс, подкласс 3.3)";
			 	ИначеЕсли КлассУсловийТруда = 6 Тогда
			 		ТекстКласс = "вредными (3 класс, подкласс 3.4)";
			 	ИначеЕсли КлассУсловийТруда = 7 Тогда
			 		ТекстКласс = "опасными (4 класс)";
			 	КонецЕсли;
				//Если (СокрЛП(Таб.Rows(Таб.Rows.Count).Cells(1).Range.Text) <> "") или (СокрЛП(Таб.Rows(Таб.Rows.Count).Cells(2).Range.Text) <> "") Тогда
				Если ((СокрЛП(Таб.Rows(Таб.Rows.Count).Cells(1).Range.Text) <> "") и (КодСимв(СокрЛП(Таб.Rows(Таб.Rows.Count).Cells(1).Range.Text)) <> 7)) или ((СокрЛП(Таб.Rows(Таб.Rows.Count).Cells(2).Range.Text) <> "") и (КодСимв(СокрЛП(Таб.Rows(Таб.Rows.Count).Cells(2).Range.Text)) <> 7)) Тогда
					Таб.Rows(Таб.Rows.Count).Select();
					Word.Selection.InsertRowsBelow();
				КонецЕсли;
				Таб.Rows(Таб.Rows.Count).Cells(1).Range.Text = Таб.Rows.Count;
				Текст = "Пункт 1.7 Трудового договора изложить в следующей редакции:";
				Таб.Rows(Таб.Rows.Count).Cells(2).Range.Text = Текст;
				Текст = "Условия труда на рабочем месте по результатам специальной оценки условий труда по степени вредности и (или) опасности являются: {_ТекстКласс}";
				Таб.Rows(Таб.Rows.Count).Cells(2).Range.Text = Таб.Rows(Таб.Rows.Count).Cells(2).Range.Text + Текст;
				Word.Selection.Find.Execute("{_ТекстКласс}",0,0,0,0,0,1,1,0,Текст,0,,,,0);   
				Word.Selection.Font.Bold = 9999998;     //Жирный
				Word.Selection.Font.Underline = 1;          //Подчеркнутый    
				Word.Selection.Find.Execute("{_ТекстКласс}",0,0,0,0,0,1,1,0,ТекстКласс,2,,,,0);
			    Если (КлассУсловийТруда < 3) и (Договор.КлассУсловийТруда >= 3) Тогда
					Таб.Rows(Таб.Rows.Count).Select();
					Word.Selection.InsertRowsBelow();
					Таб.Rows(Таб.Rows.Count).Cells(1).Range.Text = Таб.Rows.Count;
					Таб.Rows(Таб.Rows.Count).Cells(2).Range.Text = "Пункт 1.8 Трудового договора отменить.";
					Пункт411 = 1;
			    ИначеЕсли (КлассУсловийТруда >= 3) и (Договор.КлассУсловийТруда < 3) Тогда
					Таб.Rows(Таб.Rows.Count).Select();
					Word.Selection.InsertRowsBelow();
					Таб.Rows(Таб.Rows.Count).Cells(1).Range.Text = Таб.Rows.Count;
					Таб.Rows(Таб.Rows.Count).Cells(2).Range.Text = "Включить в договор пункт 1.8 и изложить в следующей редакции:";
					Таб.Rows(Таб.Rows.Count).Cells(2).Range.Text = Таб.Rows(Таб.Rows.Count).Cells(2).Range.Text + "1.8 Характеристика условий труда приведена в Приложении к настоящему договору в строке 030 специальной оценки.";
					Пункт411 = 2;
			    КонецЕсли;
			КонецЕсли;
			Если РежимРаботы <> Договор.РежимРаботы Тогда
				//Если (СокрЛП(Таб.Rows(Таб.Rows.Count).Cells(1).Range.Text) <> "") или (СокрЛП(Таб.Rows(Таб.Rows.Count).Cells(2).Range.Text) <> "") Тогда
				Если ((СокрЛП(Таб.Rows(Таб.Rows.Count).Cells(1).Range.Text) <> "") и (КодСимв(СокрЛП(Таб.Rows(Таб.Rows.Count).Cells(1).Range.Text)) <> 7)) или ((СокрЛП(Таб.Rows(Таб.Rows.Count).Cells(2).Range.Text) <> "") и (КодСимв(СокрЛП(Таб.Rows(Таб.Rows.Count).Cells(2).Range.Text)) <> 7)) Тогда
					Таб.Rows(Таб.Rows.Count).Select();
					Word.Selection.InsertRowsBelow();
				КонецЕсли;
				Таб.Rows(Таб.Rows.Count).Cells(1).Range.Text = Таб.Rows.Count;
				Текст = "Пункт 3.1 Трудового договора изложить в следующей редакции:";
				Таб.Rows(Таб.Rows.Count).Cells(2).Range.Text = Текст;
				Текст = "3.1 Работнику устанавливается следующий режим рабочего времени:";
				Таб.Rows(Таб.Rows.Count).Cells(2).Range.Text = Таб.Rows(Таб.Rows.Count).Cells(2).Range.Text + Текст;
				Таб.Rows(Таб.Rows.Count).Cells(2).Range.Text = Таб.Rows(Таб.Rows.Count).Cells(2).Range.Text + "- {_РежимРаботы}";
			 	ТекстВремя = " Время начала работы " + ?((ВремяНачалаРаботы <> "  :  ") и (ВремяНачалаРаботы <> "     "),ВремяНачалаРаботы," ________") + 
			 				", время окончания работы " + ?((ВремяОкончанияРаботы <> "  :  ") и (ВремяОкончанияРаботы <> "     "),ВремяОкончанияРаботы," ________") + 
			 				". Перерыв для отдыха и питания с " + ?((НачалоОбеда <> "  :  ") и (НачалоОбеда <> "     "),НачалоОбеда," ________") + 
			 				" по " + ?((ОкончаниеОбеда <> "  :  ") и (ОкончаниеОбеда <> "     "),ОкончаниеОбеда," _______") + " ."; 
			 	Если РежимРаботы = 1 Тогда
			 		ТекстРежим = "36-часовая пятидневная рабочая неделя с двумя выходными днями - суббота и воскресенье." + ТекстВремя;
			 	ИначеЕсли РежимРаботы = 2 Тогда
			 		ТекстРежим = "40-часовая пятидневная рабочая неделя с двумя выходными днями - суббота и воскресенье." + ТекстВремя; 
			 	ИначеЕсли РежимРаботы = 3 Тогда
			 		ТекстРежим = "сокращенная продолжительность рабочего времени, "+СокрЛП(ПродолжительностьНедели)+"-часовая пятидневная рабочая неделя с двумя выходными днями - суббота и воскресенье." + ТекстВремя; 
			 	ИначеЕсли РежимРаботы = 4 Тогда
			 		ТекстРежим = "неполный рабочий день, "+СокрЛП(ПродолжительностьНедели)+"-часовая пятидневная рабочая неделя с двумя выходными днями - суббота и воскресенье." + ТекстВремя; 
			 	ИначеЕсли РежимРаботы = 5 Тогда
			 		ТекстРежим = "неполная рабочая неделя, "+СокрЛП(ПродолжительностьНедели)+"-часовая "+СокрЛП(НеполнаяНеделяДней)+"-дневная рабочая неделя с "+СокрЛП(НеполнаяНеделяВыходные) + " выходными днями." + ТекстВремя; 
			 	ИначеЕсли РежимРаботы = 6 Тогда
			 		ТекстРежим = "ненормированный рабочий день. " +  СокрЛП(ПродолжительностьНедели) + "-часовая пятидневная рабочая неделя с двумя выходными днями - суббота и воскресенье." + ТекстВремя; 
			 	ИначеЕсли РежимРаботы = 7 Тогда
			 		ТекстРежим = "режим гибкого рабочего времени. Время начала, окончания работы, перерывов для отдыха и питания определяются соглашением сторон.";
			 	ИначеЕсли РежимРаботы = 8 Тогда
			 		ТекстРежим = "сменный режим рабочего времени. Время начала, окончания работы, перерывов для отдыха и питания устанавливаются графиками сменности.";	
			 	ИначеЕсли РежимРаботы = 9 Тогда
			 		ТекстРежим = "сменный режим рабочего времени с суммированным учетом рабочего времени с учетным периодом один год.";	            
			 	ИначеЕсли РежимРаботы = 10 Тогда
			 		ТекстРежим = "вахтовый метод. Рабочее время и время отдыха устанавливаются графиком вахты. Продолжительность вахты не может превышать 45 дней.";	            
			 	КонецЕсли;	
				Word.Selection.Find.Execute("{_РежимРаботы}",0,0,0,0,0,1,1,0,ТекстРежим,0,,,,0);   
				Word.Selection.Font.Bold = 9999998;     //Жирный
				Word.Selection.Font.Underline = 1;          //Подчеркнутый    
				Word.Selection.Find.Execute("{_РежимРаботы}",0,0,0,0,0,1,1,0,ТекстРежим,2,,,,0);  
			КонецЕсли;
			СтарыеСев =   ?(Сотрудник.Вахтовик=1, глПолучитьПроцентОтСтажа(Сотрудник.ПроцентыСевернойНадбавки, НачМесяца(ДатаДок) - Сотрудник.ДниСев.Получить(НачМесяца(ДатаДок)), НачМесяца(ДатаДок)),глПолучитьПроцентОтСтажа(Сотрудник.ПроцентыСевернойНадбавки, Сотрудник.СтажСеверный, ДатаДок-1));
			Если  (ОкладСтар <> формаОклад ) или (СтарыеСев <> НовСев)  или (НеУчитывать = 1) или (Основание <> Договор.Основание) или (ФормаОплатыСтар <> ФормаОплаты)  Тогда
				//Если (СокрЛП(Таб.Rows(Таб.Rows.Count).Cells(1).Range.Text) <> "") или (СокрЛП(Таб.Rows(Таб.Rows.Count).Cells(2).Range.Text) <> "") Тогда
				Если ((СокрЛП(Таб.Rows(Таб.Rows.Count).Cells(1).Range.Text) <> "") и (КодСимв(СокрЛП(Таб.Rows(Таб.Rows.Count).Cells(1).Range.Text)) <> 7)) или ((СокрЛП(Таб.Rows(Таб.Rows.Count).Cells(2).Range.Text) <> "") и (КодСимв(СокрЛП(Таб.Rows(Таб.Rows.Count).Cells(2).Range.Text)) <> 7)) Тогда
					Таб.Rows(Таб.Rows.Count).Select();
					Word.Selection.InsertRowsBelow();
				КонецЕсли;
				Таб.Rows(Таб.Rows.Count).Cells(1).Range.Text = Таб.Rows.Count;
				Текст = "Пункт 4.1. Трудового договора изложить в следующей редакции:" ;    
				Таб.Rows(Таб.Rows.Count).Cells(2).Range.Text = Текст;
				Текст = "4.1 Работнику устанавливается повременная форма оплаты труда:";   
				Таб.Rows(Таб.Rows.Count).Cells(2).Range.Text = Таб.Rows(Таб.Rows.Count).Cells(2).Range.Text + Текст;
				Текст = "-	{_ФормаОплаты} {_Тариф} рублей {_Период}, включая НДФЛ, {ОплатаТруда}";   
				Таб.Rows(Таб.Rows.Count).Cells(2).Range.Text = Таб.Rows(Таб.Rows.Count).Cells(2).Range.Text + Текст;
				Текст = "-	районный коэффициент в размере {_РК};";   
				Таб.Rows(Таб.Rows.Count).Cells(2).Range.Text = Таб.Rows(Таб.Rows.Count).Cells(2).Range.Text + Текст;
				Текст = "-	процентная надбавка за стаж работы в районах Крайнего Севера и местности, приравненной к ним в размере {_СК}.";   
				Таб.Rows(Таб.Rows.Count).Cells(2).Range.Text = Таб.Rows(Таб.Rows.Count).Cells(2).Range.Text + Текст;
				Если глФормаТрудаПоТарифуОкладу(ФормаОплаты)="Тариф" Тогда
					Word.Selection.Find.Execute("{_ФормаОплаты}",0,0,0,0,0,1,1,1,"тарифная ставка",2,,,,0);  
					Word.Selection.Find.Execute("{_Тариф}",0,0,0,0,0,1,1,0,"",0,,,,0);   
					Word.Selection.Font.Bold = 9999998;     //Жирный
					Word.Selection.Font.Underline = 1;          //Подчеркнутый    
					Word.Selection.Find.Execute("{_Тариф}",0,0,0,0,0,1,1,1,"__"+ФормаОклад+"__",2,,,,0);  
					Word.Selection.Find.Execute("{_Период}",0,0,0,0,0,1,1,1,"час",2,,,,0);  
				ИначеЕсли глФормаТрудаПоТарифуОкладу(ФормаОплаты)="Оклад" Тогда     
					Word.Selection.Find.Execute("{_ФормаОплаты}",0,0,0,0,0,1,1,1,"должностной оклад",2,,,,0);  
					Word.Selection.Find.Execute("{_Тариф}",0,0,0,0,0,1,1,0,"",0,,,,0);   
					Word.Selection.Font.Bold = 9999998;     //Жирный
					Word.Selection.Font.Underline = 1;          //Подчеркнутый    
					Word.Selection.Find.Execute("{_Тариф}",0,0,0,0,0,1,1,1,"__"+ФормаОклад+"__",2,,,,0);  
					Word.Selection.Find.Execute("{_Период}",0,0,0,0,0,1,1,1,"месяц",2,,,,0);  
				КонецЕсли;                 
				Если (глФормаТрудаПоТарифуОкладу(ФормаОплаты)="Оклад") и ((спРежимРаботы.ТекущаяСтрока() = 8) или (спРежимРаботы.ТекущаяСтрока() = 9) или (спРежимРаботы.ТекущаяСтрока() = 10)) Тогда
			 		Word.Selection.Find.Execute("{ОплатаТруда}",0,0,0,0,0,1,1,1,"оплата труда производится с учетом фактически отработанного времени и размера доли должностного оклада за один час работы.{ОплатаТруда}",2,,,,0);
			 		Word.Selection.Find.Execute("{ОплатаТруда}",0,0,0,0,0,1,1,1,Симв(13)+"    Доля должностного оклада за один час работы определяется путем деления должностного оклада на среднемесячную норму рабочего времени текущего календарного года. {ОплатаТруда}",2,,,,0);
			 		Word.Selection.Find.Execute("{ОплатаТруда}",0,0,0,0,0,1,1,1,"Среднемесячная норма рабочего времени текущего календарного года определяется путем деления нормы рабочего времени на текущий календарный год на 12 календарных месяцев.{ОплатаТруда}",2,,,,0);
			 		Word.Selection.Find.Execute("{ОплатаТруда}",0,0,0,0,0,1,1,1,Симв(13)+"    Размер оплаты труда рассчитывается путем умножения доли должностного оклада за один час работы на фактически отработанное время в расчетном календарном месяце. {ОплатаТруда}",2,,,,0);
			 		Word.Selection.Find.Execute("{ОплатаТруда}",0,0,0,0,0,1,1,1,"С учетом установленного настоящим договором порядка оплаты труда, размер оплаты труда изменяется ежемесячно, что не требует от Работодателя произведения каких-либо дополнительных выплат;",2,,,,0);
				Иначе    
			 		Word.Selection.Find.Execute("{ОплатаТруда}",0,0,0,0,0,1,1,1,"оплата производится пропорционально отработанному времени;",2,,,,0);  
				КонецЕсли;
				Word.Selection.Find.Execute("{_РК}",0,0,0,0,0,1,1,0,"",0,,,,0);   
				Word.Selection.Font.Bold = 9999998;     //Жирный
				Word.Selection.Font.Underline = 1;          //Подчеркнутый    
				Word.Selection.Find.Execute("{_РК}",0,0,0,0,0,1,1,1,"__1,7__",2,,,,0);  
				Word.Selection.Find.Execute("{_СК}",0,0,0,0,0,1,1,0,"",0,,,,0);   
				Word.Selection.Font.Bold = 9999998;     //Жирный
				Word.Selection.Font.Underline = 1;          //Подчеркнутый    
				Текст =   "  " + НовСев + "%  ";
				Word.Selection.Find.Execute("{_СК}",0,0,0,0,0,1,1,1,"__"+Текст+"__",2,,,,0);  
			КонецЕсли;
			Если Пункт411 = 1 Тогда
				Если ((СокрЛП(Таб.Rows(Таб.Rows.Count).Cells(1).Range.Text) <> "") и (КодСимв(СокрЛП(Таб.Rows(Таб.Rows.Count).Cells(1).Range.Text)) <> 7)) или ((СокрЛП(Таб.Rows(Таб.Rows.Count).Cells(2).Range.Text) <> "") и (КодСимв(СокрЛП(Таб.Rows(Таб.Rows.Count).Cells(2).Range.Text)) <> 7)) Тогда
					Таб.Rows(Таб.Rows.Count).Select();
					Word.Selection.InsertRowsBelow();
				КонецЕсли;
				Таб.Rows(Таб.Rows.Count).Cells(1).Range.Text = Таб.Rows.Count;
				Текст = "Пункт 4.1.1 Трудового договора отменить." ;    
			ИначеЕсли Пункт411 = 2 Тогда
				Если ((СокрЛП(Таб.Rows(Таб.Rows.Count).Cells(1).Range.Text) <> "") и (КодСимв(СокрЛП(Таб.Rows(Таб.Rows.Count).Cells(1).Range.Text)) <> 7)) или ((СокрЛП(Таб.Rows(Таб.Rows.Count).Cells(2).Range.Text) <> "") и (КодСимв(СокрЛП(Таб.Rows(Таб.Rows.Count).Cells(2).Range.Text)) <> 7)) Тогда
					Таб.Rows(Таб.Rows.Count).Select();
					Word.Selection.InsertRowsBelow();
				КонецЕсли;
				Таб.Rows(Таб.Rows.Count).Cells(1).Range.Text = Таб.Rows.Count;
				Таб.Rows(Таб.Rows.Count).Cells(2).Range.Text = "Включить в договор пункт 4.1.1 и изложить в следующей редакции:";
				Таб.Rows(Таб.Rows.Count).Cells(2).Range.Text = Таб.Rows(Таб.Rows.Count).Cells(2).Range.Text + "4.1.1 За работу с вредными и (или) опасными условиями труда устанавливается доплата в размере {_НадбавкаЗаВредность} оклада (тарифной ставки).";
				Word.Selection.Find.Execute("{_НадбавкаЗаВредность}",0,0,0,0,0,1,1,0,"",0,,,,0);   
				Word.Selection.Font.Bold = 9999998;     //Жирный
				Word.Selection.Font.Underline = 1;          //Подчеркнутый    
				Word.Selection.Find.Execute("{_НадбавкаЗаВредность}",0,0,0,0,0,1,1,1,"__"+НадбавкаЗаВредность+"%"+"__",2,,,,0);  
			КонецЕсли;
			Если Автомобиль = 1 Тогда
				//Если (СокрЛП(Таб.Rows(Таб.Rows.Count).Cells(1).Range.Text) <> "") или (СокрЛП(Таб.Rows(Таб.Rows.Count).Cells(2).Range.Text) <> "") Тогда
				Если ((СокрЛП(Таб.Rows(Таб.Rows.Count).Cells(1).Range.Text) <> "") и (КодСимв(СокрЛП(Таб.Rows(Таб.Rows.Count).Cells(1).Range.Text)) <> 7)) или ((СокрЛП(Таб.Rows(Таб.Rows.Count).Cells(2).Range.Text) <> "") и (КодСимв(СокрЛП(Таб.Rows(Таб.Rows.Count).Cells(2).Range.Text)) <> 7)) Тогда
					Таб.Rows(Таб.Rows.Count).Select();
					Word.Selection.InsertRowsBelow();
				КонецЕсли;
				Таб.Rows(Таб.Rows.Count).Cells(1).Range.Text = Таб.Rows.Count;
			    Текст = "Дополнить пункт 6.2. пунктом 6.2.1. и изложить в следующей редакции:";
				Таб.Rows(Таб.Rows.Count).Cells(2).Range.Text = Текст;
				Таб.Rows(Таб.Rows.Count).Cells(2).Range.Text = Таб.Rows(Таб.Rows.Count).Cells(2).Range.Text + "{п621}";
				
				Текст = "В целях выполнения Работником основной трудовой функции Работодатель предоставляет {п621}";
				Word.Selection.Find.Execute("{п621}",0,0,0,0,0,1,1,0,текст,2,,,,0); 
				Текст = "Работнику для самостоятельного управления служебный легковой автомобиль, при соблюдении следующих условий: Работник обязуется предоставить старшему инспектору по БДД медицинскую справку {п621}";
				Word.Selection.Find.Execute("{п621}",0,0,0,0,0,1,1,0,текст,2,,,,0); 
				Текст = "и в ОК водительское удостоверение категории "+"""В"""+", сдать экзамен по ПДД, {п621}";
				Word.Selection.Find.Execute("{п621}",0,0,0,0,0,1,1,0,текст,2,,,,0); 
				Текст = "ежедневно проходить предрейсовый и послерейсовый медицинские осмотры.{п621}";
				Word.Selection.Find.Execute("{п621}",0,0,0,0,0,1,1,0,текст,2,,,,0);
				Если ПустоеЗначение(Машина) = 0 Тогда
					Текст = " Работник закрепляется за автомобилем марки "+СокрЛП(Машина.Наименование)+" гос.№ "+?(СокрЛП(ГосНомер)="","__________",СокрЛП(ГосНомер));
					Word.Selection.Find.Execute("{п621}",0,0,0,0,0,1,1,0,текст,2,,,,0); 
				Иначе
					Word.Selection.Find.Execute("{п621}",0,0,0,0,0,1,1,0,"",2,,,,0);
				КонецЕсли;
			КонецЕсли;
		ИначеЕсли ВидДопСогл = 2 Тогда   
			//Если (СокрЛП(Таб.Rows(Таб.Rows.Count).Cells(1).Range.Text) <> "") или (СокрЛП(Таб.Rows(Таб.Rows.Count).Cells(2).Range.Text) <> "") Тогда
			Если ((СокрЛП(Таб.Rows(Таб.Rows.Count).Cells(1).Range.Text) <> "") и (КодСимв(СокрЛП(Таб.Rows(Таб.Rows.Count).Cells(1).Range.Text)) <> 7)) или ((СокрЛП(Таб.Rows(Таб.Rows.Count).Cells(2).Range.Text) <> "") и (КодСимв(СокрЛП(Таб.Rows(Таб.Rows.Count).Cells(2).Range.Text)) <> 7)) Тогда
				Таб.Rows(Таб.Rows.Count).Select();
				Word.Selection.InsertRowsBelow();
			КонецЕсли;
			Таб.Rows(Таб.Rows.Count).Cells(1).Range.Text = Таб.Rows.Count;
			Текст = "Пункт 1.6.1. Трудового договора изложить в следующей редакции:"     ;
			Таб.Rows(Таб.Rows.Count).Cells(2).Range.Text = Текст;
			Текст = "1.6.1 Срок действия договора: {_СрокДействия}" ;
			Таб.Rows(Таб.Rows.Count).Cells(2).Range.Text = Таб.Rows(Таб.Rows.Count).Cells(2).Range.Text + Текст;
			Word.Selection.Find.Execute("{_СрокДействия}",0,0,0,0,0,1,1,0,Текст,0,,,,0);   
			Word.Selection.Font.Bold = 9999998;     //Жирный
			Word.Selection.Font.Underline = 1;          //Подчеркнутый    
			Word.Selection.Find.Execute("{_СрокДействия}",0,0,0,0,0,1,1,0,Формат(СрокДействия,"ДДДММММГГГГ"),2,,,,0);  
		ИначеЕсли ВидДопСогл = 3 Тогда
			//Если (СокрЛП(Таб.Rows(Таб.Rows.Count).Cells(1).Range.Text) <> "") или (СокрЛП(Таб.Rows(Таб.Rows.Count).Cells(2).Range.Text) <> "") Тогда
			Если ((СокрЛП(Таб.Rows(Таб.Rows.Count).Cells(1).Range.Text) <> "") и (КодСимв(СокрЛП(Таб.Rows(Таб.Rows.Count).Cells(1).Range.Text)) <> 7)) или ((СокрЛП(Таб.Rows(Таб.Rows.Count).Cells(2).Range.Text) <> "") и (КодСимв(СокрЛП(Таб.Rows(Таб.Rows.Count).Cells(2).Range.Text)) <> 7)) Тогда
				Таб.Rows(Таб.Rows.Count).Select();
				Word.Selection.InsertRowsBelow();
			КонецЕсли;
			Таб.Rows(Таб.Rows.Count).Cells(1).Range.Text = Таб.Rows.Count;
		    Текст = "Изменить ФИО работника на {_НовФИО}.";
			Таб.Rows(Таб.Rows.Count).Cells(2).Range.Text = Текст;
			Word.Selection.Find.Execute("{_НовФИО}",0,0,0,0,0,1,1,0,"",0,,,,0); 
			Word.Selection.Font.Bold = 9999998;     //Жирный
			Word.Selection.Font.Underline = 1;          //Подчеркнутый  
			Word.Selection.Find.Execute("{_НовФИО}",0,0,0,0,0,1,1,0,СокрЛП(Сотрудник.Наименование),2,,,,0); 
		ИначеЕсли ВидДопСогл = 4 Тогда
			//Если (СокрЛП(Таб.Rows(Таб.Rows.Count).Cells(1).Range.Text) <> "") или (СокрЛП(Таб.Rows(Таб.Rows.Count).Cells(2).Range.Text) <> "") Тогда
			Если ((СокрЛП(Таб.Rows(Таб.Rows.Count).Cells(1).Range.Text) <> "") и (КодСимв(СокрЛП(Таб.Rows(Таб.Rows.Count).Cells(1).Range.Text)) <> 7)) или ((СокрЛП(Таб.Rows(Таб.Rows.Count).Cells(2).Range.Text) <> "") и (КодСимв(СокрЛП(Таб.Rows(Таб.Rows.Count).Cells(2).Range.Text)) <> 7)) Тогда
				Таб.Rows(Таб.Rows.Count).Select();
				Word.Selection.InsertRowsBelow();
			КонецЕсли;
			Таб.Rows(Таб.Rows.Count).Cells(1).Range.Text = Таб.Rows.Count;
		    Текст = "Дополнить пункт 6.2. пунктом 6.2.1. и изложить в следующей редакции:";
			Таб.Rows(Таб.Rows.Count).Cells(2).Range.Text = Текст;
			Таб.Rows(Таб.Rows.Count).Cells(2).Range.Text = Таб.Rows(Таб.Rows.Count).Cells(2).Range.Text + "{п621}";
			
			Текст = "В целях выполнения Работником основной трудовой функции Работодатель предоставляет {п621}";
			Word.Selection.Find.Execute("{п621}",0,0,0,0,0,1,1,0,текст,2,,,,0); 
			Текст = "Работнику для самостоятельного управления служебный легковой автомобиль, при соблюдении следующих условий: Работник обязуется предоставить старшему инспектору по БДД медицинскую справку {п621}";
			Word.Selection.Find.Execute("{п621}",0,0,0,0,0,1,1,0,текст,2,,,,0); 
			Текст = "и в ОК водительское удостоверение категории "+"""В"""+", сдать экзамен по ПДД, {п621}";
			Word.Selection.Find.Execute("{п621}",0,0,0,0,0,1,1,0,текст,2,,,,0); 
			Текст = "ежедневно проходить предрейсовый и послерейсовый медицинские осмотры.{п621}";
			Word.Selection.Find.Execute("{п621}",0,0,0,0,0,1,1,0,текст,2,,,,0);
			Если ПустоеЗначение(Машина) = 0 Тогда
				Текст = " Работник закрепляется за автомобилем марки "+СокрЛП(Машина.Наименование)+" гос.№ "+?(СокрЛП(ГосНомер)="","__________",СокрЛП(ГосНомер));
				Word.Selection.Find.Execute("{п621}",0,0,0,0,0,1,1,0,текст,2,,,,0); 
			Иначе
				Word.Selection.Find.Execute("{п621}",0,0,0,0,0,1,1,0,"",2,,,,0);
			КонецЕсли;
		ИначеЕсли ВидДопСогл = 8 Тогда
			Если ((СокрЛП(Таб.Rows(Таб.Rows.Count).Cells(1).Range.Text) <> "") и (КодСимв(СокрЛП(Таб.Rows(Таб.Rows.Count).Cells(1).Range.Text)) <> 7)) или ((СокрЛП(Таб.Rows(Таб.Rows.Count).Cells(2).Range.Text) <> "") и (КодСимв(СокрЛП(Таб.Rows(Таб.Rows.Count).Cells(2).Range.Text)) <> 7)) Тогда
				Таб.Rows(Таб.Rows.Count).Select();
				Word.Selection.InsertRowsBelow();
			КонецЕсли;
			Таб.Rows(Таб.Rows.Count).Cells(1).Range.Text = Таб.Rows.Count;
		    Текст = "Работник обязуется исполнять обязанности {_ДолжСовм}.";
			Таб.Rows(Таб.Rows.Count).Cells(2).Range.Text = Текст;
			Word.Selection.Find.Execute("{_ДолжСовм}",0,0,0,0,0,1,1,0,"",0,,,,0); 
			Word.Selection.Font.Bold = 9999998;     //Жирный
			Word.Selection.Font.Underline = 1;          //Подчеркнутый  
			Word.Selection.Find.Execute("{_ДолжСовм}",0,0,0,0,0,1,1,0,ВРег(Лев(СокрЛП(Должность),1))+Сред(СокрЛП(Должность),2),2,,,,0); 
		КонецЕсли;
		Если (ВидДопСогл <> 9) и (ВидДопСогл <> 10) и (ВидДопСогл <> 11) Тогда
			//Если (СокрЛП(Таб.Rows(Таб.Rows.Count).Cells(1).Range.Text) <> "") или (СокрЛП(Таб.Rows(Таб.Rows.Count).Cells(2).Range.Text) <> "") Тогда
			Если ((СокрЛП(Таб.Rows(Таб.Rows.Count).Cells(1).Range.Text) <> "") и (КодСимв(СокрЛП(Таб.Rows(Таб.Rows.Count).Cells(1).Range.Text)) <> 7)) или ((СокрЛП(Таб.Rows(Таб.Rows.Count).Cells(2).Range.Text) <> "") и (КодСимв(СокрЛП(Таб.Rows(Таб.Rows.Count).Cells(2).Range.Text)) <> 7)) Тогда
				Таб.Rows(Таб.Rows.Count).Select();
				Word.Selection.InsertRowsBelow();
			КонецЕсли;
			Таб.Rows(Таб.Rows.Count).Cells(1).Range.Text = Таб.Rows.Count;
		    Текст = "Настоящее дополнительное соглашение вступает в силу с {_ДействуетС}";
			Таб.Rows(Таб.Rows.Count).Cells(2).Range.Text = Текст;
			Таб.Rows(Таб.Rows.Count).Select();
			Word.Selection.InsertRowsBelow();
			Если ВидДопСогл = 8 Тогда
				Таб.Rows(Таб.Rows.Count).Cells(1).Range.Text = Таб.Rows.Count;
			    Текст = "На период исполнения обязанностей работнику устанавливается доплата в размере {_Доплата} к его {_ТипОплаты}.";
				Таб.Rows(Таб.Rows.Count).Cells(2).Range.Text = Текст;
				Таб.Rows(Таб.Rows.Count).Select();
				Word.Selection.InsertRowsBelow();
			КонецЕсли;
			Таб.Rows(Таб.Rows.Count).Cells(1).Range.Text = Таб.Rows.Count;
		    Текст = "Иные положения указанного трудового договора, незатронутые настоящим дополнительным соглашением, остаются неизменными и стороны подтверждают свои обязательства по ним.";
			Таб.Rows(Таб.Rows.Count).Cells(2).Range.Text = Текст;
			Таб.Rows(Таб.Rows.Count).Select();
			Word.Selection.InsertRowsBelow();
			Таб.Rows(Таб.Rows.Count).Cells(1).Range.Text = Таб.Rows.Count;
		    Текст = "Настоящее дополнительное соглашение составлено в двух экземплярах, имеющих равную юридическую силу, по одному экземпляру для каждой из сторон и является неотъемлемой частью договора № {_НомерДог} от {_ДатаДог}.";
			Таб.Rows(Таб.Rows.Count).Cells(2).Range.Text = Текст;
			           
			Word.Selection.Find.Execute("{23}",0,0,0,0,0,1,1,1,Формат(Сотрудник.ДатаРождения,"ДДДММММГГГГ"),2,,,,0);  
		КонецЕсли;
		Если ТипЗначения(Сотрудник.ДокументУдЛичность)=2 Тогда
			Попытка
				Документ = глРазложитьДокУдостоверяющийЛичность(Сотрудник.ДокументУдЛичность);
				СпрДокумент = СоздатьОбъект("Справочник.ДокументыУдостоверяющиеЛичность");
				Если СпрДокумент.НайтиПоНаименованию(Документ.ПолучитьЗначение(1))=1 Тогда
					Вид = СпрДокумент.ТекущийЭлемент()
				КонецЕсли;
				Серия		= Документ.ПолучитьЗначение(2);
				Номер		= Документ.ПолучитьЗначение(3);
				ДатаВыдачи	= Документ.ПолучитьЗначение(4);
				КемВыдан	= Документ.ПолучитьЗначение(5);
			Исключение
			КонецПопытки;
		КонецЕсли;   
		Word.Selection.Find.Execute("{_Серия}",0,0,0,0,0,1,1,1,Серия,2,,,,0);
		Word.Selection.Find.Execute("{_Номер}",0,0,0,0,0,1,1,1,Номер,2,,,,0);  
		Word.Selection.Find.Execute("{_Выдан}",0,0,0,0,0,1,1,1,ДатаВыдачи + " " + КемВыдан,2,,,,0);  
		Word.Selection.Find.Execute("{_АдресПрописки}",0,0,0,0,0,1,1,1,СокрЛП(глПредставлениеАдреса(Сотрудник.АдресПрописка)),2,,,,0);   
		Word.Selection.Find.Execute("{_ИНН}",0,0,0,0,0,1,1,1,СокрЛП(Сотрудник.ИНН),2,,,,0);      
		Word.Selection.Find.Execute("{_Телефон}",0,0,0,0,0,1,1,1,СокрЛП(Сотрудник.Телефон),2,,,,0);  
	//Иначе
	//	
	//КонецЕсли;
	
	Word.Selection.Find.Execute("{_НомерДог}",0,0,0,0,0,1,1,0,СокрЛП(Договор.РегНомер),2,,,,0); 
	Word.Selection.Find.Execute("{_ДатаДог}",0,0,0,0,0,1,1,0,Договор.ДатаДок,2,,,,0);
	Word.Selection.Find.Execute("{_ДатаДоп}",0,0,0,0,0,1,1,0,ДатаДокП ,2,,,,0);      
	Если ВидДопСогл = 3 Тогда
		Word.Selection.Find.Execute("{_ФИО1}",0,0,0,0,0,1,1,0,СокрЛП(СтараяФИО),2,,,,0); 
	Иначе
		Word.Selection.Find.Execute("{_ФИО1}",0,0,0,0,0,1,1,0,Сотрудник.Наименование,2,,,,0); 
	КонецЕсли;
	Word.Selection.Find.Execute("{_ФИО2}",0,0,0,0,0,1,1,0,Сотрудник.Наименование,2,,,,0); 
	Если Лев(ВРег(Сотрудник.Пол.Наименование),1) = "Ж"  Тогда
		Word.Selection.Find.Execute("{_Окончание}",0,0,0,0,0,1,1,0,"ая",2,,,,0);
	Иначе
		Word.Selection.Find.Execute("{_Окончание}",0,0,0,0,0,1,1,0,"ый",2,,,,0);
	КонецЕсли;
		
	Если ВидДопСогл = 1 Тогда	
		Word.Selection.Find.Execute("{_ДействуетС}",0,0,0,0,0,1,1,0,ДатаДокПНач + ?(ПустоеЗначение(ДатаДокПКон) = 0, " и действует по " +  ДатаДокПКон, "") ,2,,,,0);   
	ИначеЕсли ВидДопСогл = 2 Тогда  
		Word.Selection.Find.Execute("{_ДействуетС}",0,0,0,0,0,1,1,0, СрокДействияС ,2,,,,0);   
	ИначеЕсли ВидДопСогл = 3 Тогда  
		Word.Selection.Find.Execute("{_ДействуетС}",0,0,0,0,0,1,1,0, ДатаДокП ,2,,,,0);   
	ИначеЕсли ВидДопСогл = 4 Тогда	
		Если ПустоеЗначение(СрокДействияС) = 1 Тогда
			Если ПустоеЗначение(СрокДействия) = 0 Тогда
				Word.Selection.Find.Execute("{_ДействуетС}",0,0,0,0,0,1,1,0, СокрЛП(ДатаДокП)+" {_ДействуетС}" ,2,,,,0);   
				Word.Selection.Find.Execute("{_ДействуетС}",0,0,0,0,0,1,1,0, " и действует по " +  СрокДействия ,2,,,,0);
			Иначе
				Word.Selection.Find.Execute("{_ДействуетС}",0,0,0,0,0,1,1,0, ДатаДокП ,2,,,,0);   
			КонецЕсли;
		Иначе
			Если ПустоеЗначение(СрокДействия) = 0 Тогда
				Word.Selection.Find.Execute("{_ДействуетС}",0,0,0,0,0,1,1,0, СокрЛП(СрокДействияС)+" {_ДействуетС}" ,2,,,,0);   
				Word.Selection.Find.Execute("{_ДействуетС}",0,0,0,0,0,1,1,0, " и действует по " +  СрокДействия ,2,,,,0);
			Иначе
				Word.Selection.Find.Execute("{_ДействуетС}",0,0,0,0,0,1,1,0, СрокДействияС ,2,,,,0);   
			КонецЕсли;
		КонецЕсли;
	ИначеЕсли ВидДопСогл = 8 Тогда
		Word.Selection.Find.Execute("{_ДействуетС}",0,0,0,0,0,1,1,0,"",0,,,,0); 
		Word.Selection.Font.Bold = 9999998;     //Жирный
		Word.Selection.Font.Underline = 1;          //Подчеркнутый  
		стр = Формат(СрокДействияС,"ДДДММММГГГГ") + ?(ПустоеЗначение(СрокДействия) = 0, " и действует по " +  Формат(СрокДействия,"ДДДММММГГГГ"), "");
		Word.Selection.Find.Execute("{_ДействуетС}",0,0,0,0,0,1,1,0, стр ,2,,,,0);   
		Word.Selection.Find.Execute("{_Доплата}",0,0,0,0,0,1,1,0,"",0,,,,0); 
		Word.Selection.Font.Bold = 9999998;     //Жирный
		Word.Selection.Font.Underline = 1;          //Подчеркнутый  
		Word.Selection.Find.Execute("{_Доплата}",0,0,0,0,0,1,1,0, СокрЛП(Доплата)+"%" ,2,,,,0);
		ТипОплаты = "";
		Если Найти(СокрЛП(Сотрудник.ФормаТруда.Получить(СрокДействияС)), "оклад") > 0 Тогда
			ТипОплаты = "должностному окладу";
		Иначе    
			ТипОплаты = "тарифному разряду";
		КонецЕсли;
		Word.Selection.Find.Execute("{_ТипОплаты}",0,0,0,0,0,1,1,0, СокрЛП(ТипОплаты) ,2,,,,0);   
	ИначеЕсли (ВидДопСогл = 9) или (ВидДопСогл = 11) Тогда
		Word.Selection.Find.Execute("{_ДатаРождения}",0,0,0,0,0,1,1,1,Формат(Сотрудник.ДатаРождения,"Д(0)ДДММММГГГГ"),2,,,,0);  
		Word.Selection.Find.Execute("{_ВахтаНач}",0,0,0,0,0,1,1,0, СокрЛП(Формат(ВахтаНач,"Д(0)ДДММММГГГГ")) ,2,,,,0);   
		Word.Selection.Find.Execute("{_ВахтаКон}",0,0,0,0,0,1,1,0, СокрЛП(Формат(ВахтаКон,"Д(0)ДДММММГГГГ")) ,2,,,,0);   
		Word.Selection.Find.Execute("{_ОтдыхНач}",0,0,0,0,0,1,1,0, СокрЛП(Формат(ОтдыхНач,"Д(0)ДДММММГГГГ")) ,2,,,,0);   
		Word.Selection.Find.Execute("{_ОтдыхКон}",0,0,0,0,0,1,1,0, СокрЛП(Формат(ОтдыхКон,"Д(0)ДДММММГГГГ")) ,2,,,,0);   
	ИначеЕсли ВидДопСогл = 10 Тогда
		Word.Selection.Find.Execute("{_ДатаРождения}",0,0,0,0,0,1,1,1,Формат(Сотрудник.ДатаРождения,"Д(0)ДДММММГГГГ"),2,,,,0);  
		Word.Selection.Find.Execute("{_Оклад}",0,0,0,0,0,1,1,1,Сотрудник.Оклад.Получить(ДатаДок),2,,,,0);  
		Word.Selection.Find.Execute("{_СН}",0,0,0,0,0,1,1,0, ?(Сотрудник.Вахтовик=1, СокрЛП(глПолучитьПроцентОтСтажа(Сотрудник.ПроцентыСевернойНадбавки,Сотрудник. СтажСеверный, ДатаДок))+"%",СокрЛП(глПолучитьПроцентОтСтажа(Сотрудник.ПроцентыСевернойНадбавки, Сотрудник.СтажСеверный, ДатаДок))+"%") ,2,,,,0);   
	КонецЕсли;
	
	Если ДатаДок < Дата("12.11.2016") Тогда
	    ГенДир = "С.А. Табунщиков"; 
		ГенДирРод = "Табунщикова Сергея Алексеевича";
	Иначе
	    ГенДир = "И.Ю. Вагин"; 
		ГенДирРод = "Вагина Игоря Юрьевича";
	КонецЕсли;
	Word.Selection.Find.Execute("{ГенДир}",0,0,0,0,0,1,1,1,ГенДир,2,,,,0);
	Word.Selection.Find.Execute("{ГенДирРод}",0,0,0,0,0,1,1,1,ГенДирРод,2,,,,0);
	Word.ActiveDocument.Sections(1).Footers(1).Range.Find.Execute("{ГенДир}",0,0,0,0,0,1,1,1,ГенДир,2,,,,0);
	Если (ВидДопСогл <> 9) и (ВидДопСогл <> 10) и (ВидДопСогл <> 11) Тогда
	    
		Word.ActiveDocument.Bookmarks("закл1").Delete();
		Таб.Columns(1).PreferredWidthType = 3;
	   	Таб.Columns(1).PreferredWidth = Word.CentimetersToPoints(0.5);
		Таб.Columns(1).Select();
		Word.Selection.ParagraphFormat.FirstLineIndent = Word.CentimetersToPoints(0);
		Таб.Columns(2).Select();
	    Word.Selection.ParagraphFormat.SpaceBeforeAuto = 0;
	    Word.Selection.ParagraphFormat.SpaceAfterAuto = 0;
	    Word.Selection.ParagraphFormat.FirstLineIndent = Word.CentimetersToPoints(0.5);
	КонецЕсли;
	Word.ActiveDocument.ActiveWindow.View.Type = 3;
	Word.ActiveDocument.Save();	      
КонецПроцедуры