Различия

Здесь показаны различия между двумя версиями данной страницы.

Ссылка на это сравнение

Следующая версия
Предыдущая версия
шлюз_выгрузка:сформировать_документ [2018/07/26 15:11]
misha создано
— (текущий)
Строка 1: Строка 1:
-====== Пример формирования документа для выгрузки в АСП:​Шлюз ====== 
  
-<1c> 
- 
-Функция СформироватьДокумент(Документ,​ ТипДокумента,​ Фабрика) Экспорт 
-  
- ДокументХ = Фабрика.Создать(Фабрика.Тип( ПространствоИмен(),"​Документ"​));​ 
- 
- ДокументХ.Номер = Документ.Номер;​ 
- ДокументХ.Дата = Документ.Дата;​ 
- ДокументХ.ИННОрганизации = Документ.Организация.ИНН;​ //​Указывается,​ если ведется учет по нескольким организациям  
- //​ДокументХ.Подразделение = СформироватьПоднадзорного(???​);​ //​Указывается,​ если ведется учет по нескольким подразделениям или организациям 
- ДокументХ.ТипДокумента ​     = ТипДокумента;​ 
- // заполняем контрагента 
- Если ДокументХ.ТипДокумента = "​Перемещение"​ Тогда //​перемещение в шлюзе = реализация+поступрелие. в качестве источника данных принимается документ реализации.  
- 
- ДокументХ.Подразделение =  СформироватьПоднадзорного(Документ.СкладОтправитель,​Документ.Организация,​фабрика);​ 
- ХозСубъект = СформироватьХозСубъект(Документ.Организация,​фабрика);​  
- Поднадзорный = СформироватьПоднадзорного(Документ.СкладПолучатель,​Документ.Организация,​фабрика);​  
-  
- ИначеЕсли ДокументХ.ТипДокумента = "​Производство"​ Тогда 
- ХозСубъект = СформироватьХозСубъект(Документ.Организация,​фабрика);​  
- Поднадзорный = СформироватьПоднадзорного(Документ.Организация,​Документ.Организация,​фабрика);​ 
- Иначе  
- ХозСубъект = СформироватьХозСубъект(Документ.Контрагент,​фабрика);​  
- Поднадзорный = СформироватьПоднадзорного(Документ.Контрагент,​ Документ.Контрагент,​фабрика);​  
- КонецЕсли;​ 
- //​Поднадзорный = СформироватьПоднадзорного(Документ.АдресДоставки,​ Документ.Контрагент,​фабрика);​ 
- //​Поднадзорный = СформироватьПоднадзорного(Документ.Грузополучатель,​ Документ.Контрагент,​фабрика);​ 
- Если ТипЗнч(ХозСубъект) = Тип("​Строка"​) Тогда 
- Сообщить(ХозСубъект);​ 
- Возврат Неопределено;​ 
- КонецЕсли;​ 
- ДокументХ.ХозСубъект = ХозСубъект;​ 
-  
- Если ТипЗнч(Поднадзорный) = Тип("​Строка"​) Тогда 
- Сообщить(Поднадзорный);​ 
- Возврат Неопределено;​ 
- КонецЕсли;​ 
- ДокументХ.Поднадзорный = Поднадзорный;​ 
-  
- //​ДокументХ.ДатаИнвентаризации = ???; 
- //​ДокументХ.АктНесоответствия = СформироватьАктНесоответствия(???​);​ 
- //​ДокументХ.ТТН = СформироватьТТН(???,???​);​ 
- //​ДокументХ.ТТНВозврат = СформироватьТТН(???,???​);​ 
- 
-  
- // Табличные части 
- //​СписокПродукции 
- 
- //Если ДокументХ.ТипДокумента <> "​Производство" ​ Тогда  
- Для каждого Стр из Документ.Товары Цикл 
- ДокументХ.Товары.Добавить(СформироватьСтрокуНоменклатуры(Стр,​ Документ,​Фабрика));​ 
- КонецЦикла;​ 
-  
- //​Список Материалов 
- Для Каждого Стр Из Документ.Товары Цикл 
- ДокументХ.Материалы.Добавить(СформироватьСтрокуНоменклатуры(Стр,​ Документ,​Фабрика));​ 
- КонецЦикла;​  
-  
-  
- // Списко возвращемых товаров 
- //​ДокументХ.ТоварыВозврат.Добавить(СформироватьСтрокуНоменклатуры(???​);​ 
-  
- // Список входящих сертификатов (при покатегорийной регистрации) 
- //​ДокументХ.ВетДокумент.Добавить(СформироватьВетДокумент(???​));​ 
-  
- // Список пунктов перегрузки 
- //​ДокументХ.ПунктыПерегрузки.Добавить(СформироватьПунктПерегрузки(???​));​ 
-  
- // Список связанных документов 
- //​ДокументХ.СвязанныеДокументы.Добавить(СформироватьСвязанныеДокументы(???​)); ​ 
-  
- Возврат ДокументХ;​ 
-КонецФункции 
- 
-</1c>