Создаю документ ,не заполняется реквизит ,хотя другое значение заполняется

&НаСервере
Процедура СформироватьВыпискиСервер()
	
	Для Каждого Строка Из Объект.тчИмпорт Цикл
		
		Если Строка.Флаг Тогда
			
			// надо импортировать эту строку 
			// статус "СуществующийПлатеж" не трогаем, остальные пытаемся записать и при 
			// установленных настройках провести
			Если Строка.Статус = СтатусыСтрокИмпорта.СуществующийПлатеж Тогда
				Продолжить;
			КонецЕсли;
			
			Если Строка.Статус = СтатусыСтрокИмпорта.СуществующийПлатежНеобходимоОплатить Тогда
				// для документа проставим флаг оплаты и дату оплаты, остальное - не трогаем
				докОб = Строка.Документ.ПолучитьОбъект();
				
				докОбМетаданные = докОб.Метаданные();
				
				докОб.Дата 			= Объект.ДатаВыписки;	
				
				// пытаемся записать
				Попытка
					докОб.Записать();
					// записали - поменяем сразу статус на существующий платеж
					//Строка.Статус = СтатусыСтрокИмпорта.СуществующийПлатеж;
				Исключение
					// 	
				КонецПопытки;
				
				// если установлена соответствующая настройка - пытаемся и провести
				Если Объект.НастройкаПытатьсяПроводитьСозданныеДокументы Тогда
					
					//^Попытка
					//^	докОб.Записать(РежимЗаписиДокумента.Проведение);
					//^Исключение
					//^ // 
					//^КонецПопытки;
					Если Строка.Статус = СтатусыСтрокИмпорта.НеобходимоЗаполнитьРеквизиты Тогда
					Сообщить(СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(НСтр("ru='Документ ""%1"" не будет проведен! Не заполнены все необходимые реквизиты!';uk='Документ ""%1"" не буде проведений! Не заповнені всі необхідні реквізити!'"), докОб));
					Иначе
						Попытка
							докОб.Записать(РежимЗаписиДокумента.Проведение);
						Исключение
						// 
					КонецПопытки;
					КонецЕсли;
					//^>> 
				КонецЕсли;
				
				Продолжить;
			КонецЕсли;
			
			НовыйДокумент = Истина;
			Если НЕ ЗначениеЗаполнено(Строка.Документ) Или НЕ ЗначениеЗаполнено(Строка.Документ.Номер) Тогда //вторая проверка в случае, если документ удалён физически
				// создаем новый документ
				
				ТипДокумента = Строка.ВидДокумента;
				Если ПустаяСтрока(ТипДокумента) Тогда
					Сообщить(СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(НСтр("ru='Для строки ""%1"" не выбран вид документа!';uk='Для рядка ""%1"" не вибраний вид документу!'"), Строка.НомерСтроки));
					Продолжить;
				КонецЕсли;	
				Док = Документы[ТипДокумента];
				
				докОб = Док.СоздатьДокумент();
			Иначе  
				// перезаписываем измененный старый документ
				докОб = Строка.Документ.ПолучитьОбъект();
				НовыйДокумент = Ложь;
			КонецЕсли;	
			
			
			// заполняем реквизиты документа
			
			докОбМетаданные = докОб.Метаданные();

			докОб.Контрагент 			= Строка.Контрагент;
			докОб.СуммаДокумента 		= ?(Строка.Приход > 0, Строка.Приход, Строка.Расход);
			
			
			//^докОб.БанковскийСчет		= Объект.БанковскийСчет;
			Если клЕстьРеквизит("БанковскийСчет",докОбМетаданные) Тогда
				докОб.БанковскийСчет  = Объект.БанковскийСчет;
			ИначеЕсли клЕстьРеквизит("СчетОрганизации",докОбМетаданные) Тогда	
				докОб.СчетОрганизации = Объект.БанковскийСчет;
			КонецЕсли;	
			//^>> 
			
			докОб.Организация			= Объект.Организация;
			
			
			//^докОб.БанковскийСчетКонтрагента		= Строка.СчетКонтрагента;
			Если клЕстьРеквизит("БанковскийСчетКонтрагента",докОбМетаданные) Тогда
				докОб.БанковскийСчетКонтрагента	= Строка.СчетКонтрагента;
			КонецЕсли;	

			Если клЕстьРеквизит("СчетКонтрагента",докОбМетаданные) Тогда
				докОб.СчетКонтрагента		= Строка.СчетКонтрагента;
			КонецЕсли;	
			//^>>
			
			
			Если клЕстьРеквизит("СчетБанк",докОбМетаданные) Тогда
				докОб.СчетБанк	= ПланыСчетов.Хозрасчетный.НайтиПоКоду(Объект.НастройкаСчетУчетаДС);
			КонецЕсли;
			//^>> 
			
			Если клЕстьРеквизит("НомерПоручения", докОбМетаданные) Тогда
				докОб.НомерПоручения 			= Строка.НомерПП;
			КонецЕсли;	
			
			Если клЕстьРеквизит("НомерВходящегоДокумента", докОбМетаданные) Тогда
				докОб.НомерВходящегоДокумента 	= Строка.НомерПП;
			КонецЕсли;      
			
			Если НовыйДокумент Тогда
				// дата для нового
				докОб.Дата = Строка.ДатаПП1;
				// номер для нового 
				докОб.УстановитьНовыйНомер();
			КонецЕсли; 
			
			Если клЕстьРеквизит("ДатаВходящегоДокумента", докОбМетаданные) Тогда
				докОб.ДатаВходящегоДокумента 	= Строка.ДатаПП1;	
			КонецЕсли;	
			
			// валюта - из счета 
			
			Если клЕстьРеквизит("Валюта", докОбМетаданные) Тогда
			//^>> 
				докОб.Валюта = Объект.БанковскийСчет.ВалютаДенежныхСредств;
			//^<< szewczuk 03.11.2016
			ИначеЕсли клЕстьРеквизит("ВалютаДокумента", докОбМетаданные) Тогда
				докОб.ВалютаДокумента = Объект.БанковскийСчет.ВалютаДенежныхСредств;
			КонецЕсли;
			//^>> 
			
			//в таб части РасшифровкаПлатежа
			докОб.РасшифровкаПлатежа.Очистить();
			
			РасшифровкаПлатежа = докОб.РасшифровкаПлатежа.Добавить();
			ЗаполнитьРасшифровкуПлатежа(РасшифровкаПлатежа, докОб.СуммаДокумента, Строка, докОб, докОбМетаданные);

			Если клЕстьРеквизит("НазначениеПлатежа",докОбМетаданные) Тогда
				докОб.НазначениеПлатежа		= Строка.Содержание;
			Иначе	
				докОб.Комментарий 			= Строка.Содержание;
			КонецЕсли;	
			
			// вид операции
			
			
			Если Объект.Конфигурация = "УТ" Тогда
			//^>> 	
				докОб.ТипПлатежногоДокумента = Строка.ТипДокумента;
				докОб.ХозяйственнаяОперация = Строка.ВидОперации;
			КонецЕсли; 
			//^>> 
			
			// СтатьяДвиженияДенежныхСредств
			докОб.СтатьяДвиженияДенежныхСредств = Строка.СтатьяДДС;
			
			// пытаемся записать
			Попытка
				докОб.ОбменДанными.Загрузка = Истина; // в противном случае номер ПП перезаписывается
				докОб.Записать();
				докОб.ОбменДанными.Загрузка = Ложь; 
				// записали - поменяем сразу статус на существующий платеж
				//Строка.Статус = СтатусыСтрокИмпорта.СуществующийПлатеж;
				Строка.Статус = СтатусыСтрокИмпорта.СуществующийПлатежНеобходимоОплатить;
			Исключение
				Сообщить(ОписаниеОшибки());
			КонецПопытки;
			
			// если установлена соответствующая настройка - пытаемся и провести
			// но только если строка не со статусом - "НеобходимоЗаполнитьРеквизиты" 
			// так как они все равно не смогут провестися
			Если Объект.НастройкаПытатьсяПроводитьСозданныеДокументы Тогда
				Если Строка.Статус = СтатусыСтрокИмпорта.НеобходимоЗаполнитьРеквизиты Тогда
					Сообщить(СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(НСтр("ru='Документ ""%1"" не будет проведен! Не заполнены все необходимые реквизиты!';uk='Документ ""%1"" не буде проведений! Не заповнені всі необхідні реквізити!'"), докОб));
				Иначе
					Попытка
						
						//^докОб.Записать(РежимЗаписиДокумента.Проведение);
						Если докОб.ПроверитьЗаполнение() Тогда
							докОб.Записать(РежимЗаписиДокумента.Проведение);
						КонецЕсли;
						//^>> 
					Исключение
						// 
					КонецПопытки;
				КонецЕсли;
			КонецЕсли;
			
			// запишем в строку ссылку на созданный документ
			Строка.Документ = докОб.Ссылка;
			
		КонецЕсли;
	КонецЦикла;	
	
	// применим сортировку по настройкам
	СортировкаТчИмпорт();
	
КонецПроцедуры