Это старая версия документа.


Пример формирования документа для выгрузки в АСП:Шлюз

Функция СформироватьДокумент(Документ, ТипДокумента, Фабрика) Экспорт
	
	ДокументХ = Фабрика.Создать(Фабрика.Тип( ПространствоИмен(),"Документ"));

	ДокументХ.Номер 			= Документ.Номер;
	ДокументХ.Дата 				= Документ.Дата;
	ДокументХ.ИННОрганизации	= Документ.Организация.ИНН; //Указывается, если ведется учет по нескольким организациям	
	//ДокументХ.Подразделение 	= СформироватьПоднадзорного(???); //Указывается, если ведется учет по нескольким подразделениям или организациям
	ДокументХ.ТипДокумента      = ТипДокумента;
	// заполняем контрагента
	Если ДокументХ.ТипДокумента = "Перемещение" Тогда //перемещение в шлюзе = реализация+поступрелие. в качестве источника данных принимается документ реализации.		

		ДокументХ.Подразделение =  СформироватьПоднадзорного(Документ.СкладОтправитель,Документ.Организация,фабрика);
		ХозСубъект 				= СформироватьХозСубъект(Документ.Организация,фабрика);	
		Поднадзорный 			= СформироватьПоднадзорного(Документ.СкладПолучатель,Документ.Организация,фабрика);		
		
	ИначеЕсли ДокументХ.ТипДокумента = "Производство" Тогда
		ХозСубъект 				= СформироватьХозСубъект(Документ.Организация,фабрика);		
		Поднадзорный 			= СформироватьПоднадзорного(Документ.Организация,Документ.Организация,фабрика);
	Иначе	
		ХозСубъект 				= СформироватьХозСубъект(Документ.Контрагент,фабрика);		
		Поднадзорный 			= СформироватьПоднадзорного(Документ.Контрагент, Документ.Контрагент,фабрика);		
	КонецЕсли;
		//Поднадзорный 			= СформироватьПоднадзорного(Документ.АдресДоставки, Документ.Контрагент,фабрика);
		//Поднадзорный 			= СформироватьПоднадзорного(Документ.Грузополучатель, Документ.Контрагент,фабрика);
	Если ТипЗнч(ХозСубъект) = Тип("Строка") Тогда
		Сообщить(ХозСубъект);
		Возврат Неопределено;
	КонецЕсли;
	ДокументХ.ХозСубъект 	= ХозСубъект;
	
	Если ТипЗнч(Поднадзорный) = Тип("Строка") Тогда
		Сообщить(Поднадзорный);
		Возврат Неопределено;
	КонецЕсли;
	ДокументХ.Поднадзорный 	= Поднадзорный;
		
	//ДокументХ.ДатаИнвентаризации = ???;
	//ДокументХ.АктНесоответствия = СформироватьАктНесоответствия(???);
	//ДокументХ.ТТН = СформироватьТТН(???,???);
	//ДокументХ.ТТНВозврат = СформироватьТТН(???,???);

	
	// Табличные части
	//СписокПродукции

	//Если ДокументХ.ТипДокумента <> "Производство"  Тогда		
	Для каждого Стр из Документ.Товары Цикл
		ДокументХ.Товары.Добавить(СформироватьСтрокуНоменклатуры(Стр, Документ,Фабрика));
	КонецЦикла;
	
	//Список Материалов
	Для Каждого Стр Из Документ.Товары Цикл
		ДокументХ.Материалы.Добавить(СформироватьСтрокуНоменклатуры(Стр, Документ,Фабрика));
	КонецЦикла;	
	
	
	// Списко возвращемых товаров
	//ДокументХ.ТоварыВозврат.Добавить(СформироватьСтрокуНоменклатуры(???);
	
	// Список входящих сертификатов (при покатегорийной регистрации)
	//ДокументХ.ВетДокумент.Добавить(СформироватьВетДокумент(???));
	
	// Список пунктов перегрузки
	//ДокументХ.ПунктыПерегрузки.Добавить(СформироватьПунктПерегрузки(???));
	
	// Список связанных документов
	//ДокументХ.СвязанныеДокументы.Добавить(СформироватьСвязанныеДокументы(???)); 
	
	Возврат ДокументХ;
КонецФункции