Перенести значение с типом СправочникСсылка в строку.

Функция НайтиСоздать_ДокОтгрузкаПокупателю(ТипОбъекта, ТаблРекв)     // РеализацияТоваровУслуг
	
	ДокС = ПолучитьЗначениеИзТаблРекв(ТаблРекв, "Ссылка"); // возвращает ссылку на док-т (если не найден, то тут же создается)
	
	Если ДокС = 0 Тогда
		Возврат 0;
	КонецЕсли;

	_ТолькоЧтоСоздан = ЭтоНовыйОбъектБазы(ДокС);
	
	// Выходим из процедуры, если док не только что создан и если НЕ установлен признак обновления
	Если НЕ _ТолькоЧтоСоздан И НЕ ОбновлятьДокументы Тогда
		Возврат Истина;
	КонецЕсли;
	
	// сюда попали - значит док только что создан или нужно обновлять
	ДокО = ДокС.ПолучитьОбъект();
	
	ДокО.УстановитьПометкуУдаления(Ложь); // на всякий случай снимаем пометку, что в случае обновления будет полезным

	// ТЧ очистим заранее, чтобы у системы не было вопросов с перезаполнением их параметров при обработке выбора договора
	ДокО.Товары.Очистить();
	ДокО.Услуги.Очистить();
	
	МессагаПоОбъекту(ДокО, ?(_ТолькоЧтоСоздан, "Загрузка", "Обновление"));
	
	// заполнение шапки
	ЗаполнениеДокументов.ЗаполнитьШапкуДокумента(ДокО, м_ТекПользователь, м_ВалютаРеглУчета, "Продажа");
	
	ДокО.ВидОперации = Перечисления.ВидыОперацийРеализацияТоваров.ПродажаКомиссия;
	ДокО.ТипЦен      = ТипЦенПродажи;
	
	ДокО.Организация		= ПолучитьЗначениеИзТаблРекв(ТаблРекв, "Фирма");

	ДокО.УстановитьНовыйНомер();


	//ДокО.Контрагент		    	= ПолучитьЗначениеИзТаблРекв(ТаблРекв,"Контрагент");
	ДокО.Контрагент		    	= ПолучитьЗначениеИзТаблРекв(ТаблРекв,"Контрагент", "Покупатель");

	
	
	//Пытаемся подобрать первый попавшийся, если не находим, ищем по коду+конт, при необходимости создаем
	ПС_УстановитьДоговорКонтрагента(ДокО.ДоговорКонтрагента,
									ДокО.Контрагент,
									ДокО.Организация, 
									ПС_ПолучитьСписокВидовДоговоров("СПокупателем"));
									
	Если Не ЗначениеЗаполнено(ДокО.ДоговорКонтрагента) Тогда									
		ДокО.ДоговорКонтрагента = ПолучитьЗначениеИзТаблРекв(ТаблРекв, "Договор");	
	КонецЕсли;

	

	ПС_ЗаполнитьКомментарий(ДокО, ТаблРекв);

	
	// обработка изменения договора (ПриИзмененииДоговора()):
	СпособЗаполненияЦен          = ""; //Перечисления.СпособыЗаполненияЦен.ПоЦенамНоменклатуры;
	СтруктураРеквизитовДокумента = Ценообразование.ПолучитьСтруктуруРеквизитовДокументаДляЦенообразования(ЭтотОбъект);
	

	//ЗаполнениеДокументов.ПриИзмененииЗначенияДоговора(ДокО, "", м_ВалютаРеглУчета, СпособЗаполненияЦен, СтруктураРеквизитовДокумента, "Продажа", "Товары");
	ПриИзмененииЗначенияДоговора(ДокО, "", м_ВалютаРеглУчета, СпособЗаполненияЦен, СтруктураРеквизитовДокумента, "Продажа", "Товары");
	
	
	_ТекущаяВерсияИБ = Константы.НомерВерсииКонфигурации.Получить();
	Если Число(Лев(_ТекущаяВерсияИБ, 1)) < 2 Тогда
		СчетаУчета = УправлениеВзаиморасчетами.ПолучитьСчетаРасчетовСКонтрагентом(ДокО.Организация, ДокО.Контрагент, ДокО.ДоговорКонтрагента);
	Иначе
		СчетаУчета = БухгалтерскийУчетРасчетовСКонтрагентами.ПолучитьСчетаРасчетовСКонтрагентом(ДокО.Организация, ДокО.Контрагент, ДокО.ДоговорКонтрагента);
	КонецЕсли; 

	ДокО.ЗаполнитьСчетаУчетаРасчетов(СчетаУчета);		
	
	
	//ДокО.Склад              = СкладДляДокументов;
	ДокО.Склад              = ПолучитьЗначениеИзТаблРекв(ТаблРекв, "Склад");

	
	ДокО.Ответственный      = м_ТекПользователь;
	
	
	
	//Заполнение Табл частей:
	
	_ТаблТЧ = ТаблРекв.Найти("ТЧ", "ИмяРеквизита").Значение;
	Для Каждого СтрокаТаблТЧ Из _ТаблТЧ Цикл
		
		СпрС_Номен  = ПолучитьЗначениеИзТаблРекв(СтрокаТаблТЧ.Значение, ?(мПараметрыЗагрузки.ЗагружатьВариантыИсполнения, "ВариантИсполнения", "Номенклатура"));;
		
		Если НЕ СпрС_Номен.Услуга Тогда // товары
			СтрокаТЧ                     = ДокО.Товары.Добавить();
			СтрокаТЧ.ЕдиницаИзмерения    = СпрС_Номен.БазоваяЕдиницаИзмерения;
			СтрокаТЧ.Коэффициент	     = 1;
			
			_СтранаПроисхождения         = ПолучитьЗначениеИзТаблРекв(СтрокаТаблТЧ.Значение, "СтранаПроисхождения");
			_НомерГТД                    = ПолучитьЗначениеИзТаблРекв(СтрокаТаблТЧ.Значение, "НомерГТД");
			СтрокаТЧ.СтранаПроисхождения = НайтиСоздатьСтрануПроисхожднния(_СтранаПроисхождения);
			СтрокаТЧ.НомерГТД		     = НайтиСоздатьНомерГТД(_НомерГТД);
			
		
			СтрокаТЧ.СкидкаПроцент	= ПолучитьЗначениеИзТаблРекв(СтрокаТаблТЧ.Значение, "ПроцентСкидки");
			СтрокаТЧ.СкидкаИтог		= ПолучитьЗначениеИзТаблРекв(СтрокаТаблТЧ.Значение, "СуммаСкидки");
			
	
		Иначе // услуга	
			СтрокаТЧ 			= ДокО.Услуги.Добавить();
			СтрокаТЧ.Содержание = СокрЛП(ПолучитьЗначениеИзТаблРекв(СтрокаТаблТЧ.Значение, ?(мПараметрыЗагрузки.ЗагружатьВариантыИсполнения, "ВариантИсполнения", "Номенклатура")));
		КонецЕсли;
		
		СтрокаТЧ.Номенклатура 	= СпрС_Номен;
		
		_ИсхКол    				= ПолучитьЗначениеИзТаблРекв(СтрокаТаблТЧ.Значение, "Кол");
		_ИсхКоэф                = ПолучитьЗначениеИзТаблРекв(СтрокаТаблТЧ.Значение, "Коэффициент");
		_ИсхКол                 = ?(_ИсхКол  = "", 1, Число(_ИсхКол));
		_ИсхКоэф                = ?(_ИсхКоэф = "", 1, Число(_ИсхКоэф));

		СтрокаТЧ.Количество	 	= _ИсхКол * _ИсхКоэф;
		 //ВИ
		Отбор = Новый Структура; 
Отбор.Вставить("ИмяРеквизита","ВариантИсполнения"); 

Строки = СтрокаТаблТЧ.Значение.НайтиСтроки(Отбор); 
Если Строки.Количество() > 0 Тогда 
ВариантИсполнения = Строки[0].Значение; 

СтрокаТЧ.ВариантИсполнения = ВариантИсполнения[0].Значение; 
Конецесли;
		 //ВИ
		СтрокаТЧ.СуммаНДС		= ПолучитьЗначениеИзТаблРекв(СтрокаТаблТЧ.Значение,"НДС");

		Если ДокО.СуммаВключаетНДС Тогда // сумма включает НДС - в зависимости от флажка
			СтрокаТЧ.Сумма	    = ПолучитьЗначениеИзТаблРекв(СтрокаТаблТЧ.Значение, "Сумма");
		Иначе
			СтрокаТЧ.Сумма	    = ПолучитьЗначениеИзТаблРекв(СтрокаТаблТЧ.Значение, "Сумма") - СтрокаТЧ.СуммаНДС;
		КонецЕсли;
		
		//СтрокаТЧ.Цена           = СтрокаТЧ.Сумма / СтрокаТЧ.Количество;
		СтрокаТЧ.Цена           = ПолучитьЗначениеИзТаблРекв(СтрокаТаблТЧ.Значение, "Цена");
	
		
		_ИсхСтавкаНДС 		    = ПолучитьЗначениеИзТаблРекв(СтрокаТаблТЧ.Значение, "СтавкаНДС");
		СтрокаТЧ.СтавкаНДС	    = ПолучитьЛокСтавкуНДС(_ИсхСтавкаНДС);
				
	КонецЦикла;
	

	//Сворачиваем по номенклатуре
	_ТЧ_ТоварыСвернуто = ПС_СвернутьТЧ(ДокО.Товары, "ЕдиницаИзмерения, Коэффициент, СтранаПроисхождения, НомерГТД, Номенклатура, СтавкаНДС, Цена", "Количество, СуммаНДС, Сумма, СкидкаИтог", "СкидкаПроцент");
	ДокО.Товары.Загрузить(_ТЧ_ТоварыСвернуто);
	
	_ТЧ_УслугиСвернуто = ПС_СвернутьТЧ(ДокО.Услуги, "Номенклатура, СтавкаНДС, Цена", "Количество, СуммаНДС, Сумма");
	ДокО.Услуги.Загрузить(_ТЧ_УслугиСвернуто);
	
	
	ДокО.ЗаполнитьСчетаУчетаВТабЧасти(ДокО.Товары, "Товары", Истина);
	ДокО.ЗаполнитьСчетаУчетаВТабЧастиУслуги(Истина);

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

		
	Возврат 1;
	
КонецФункции