Образец переноса данных из УПП в УНФ3

ВЫБРАТЬ //РАЗЛИЧНЫЕ ПЕРВЫЕ 100
ВЫБОР
КОГДА Т.Ссылка.Артикул = «»
ТОГДА Т.Ссылка.Код
КОГДА ПОДСТРОКА(Т.Ссылка.Код, 1, 1) = «0»
ТОГДА Т.Ссылка.Артикул
ИНАЧЕ Т.Ссылка.Код
КОНЕЦ КАК НовыйКод,
Т.Ссылка.Код КАК Код,
Т.Ссылка.Артикул КАК Артикул,
Т.Ссылка.Наименование КАК Наименование,
ВЫБОР
КОГДА ЕСТЬNULL(Т.Ссылка.Родитель.Родитель.Родитель.Родитель.Родитель, ЗНАЧЕНИЕ(Справочник.Номенклатура.ПустаяСсылка)) = ЗНАЧЕНИЕ(Справочник.Номенклатура.ПустаяСсылка)
ТОГДА «»
ИНАЧЕ Т.Ссылка.Родитель.Родитель.Родитель.Родитель.Родитель.Наименование + «\»
КОНЕЦ + ВЫБОР
КОГДА ЕСТЬNULL(Т.Ссылка.Родитель.Родитель.Родитель.Родитель, ЗНАЧЕНИЕ(Справочник.Номенклатура.ПустаяСсылка)) = ЗНАЧЕНИЕ(Справочник.Номенклатура.ПустаяСсылка)
ТОГДА «»
ИНАЧЕ Т.Ссылка.Родитель.Родитель.Родитель.Родитель.Наименование + «\»
КОНЕЦ + ВЫБОР
КОГДА ЕСТЬNULL(Т.Ссылка.Родитель.Родитель.Родитель, ЗНАЧЕНИЕ(Справочник.Номенклатура.ПустаяСсылка)) = ЗНАЧЕНИЕ(Справочник.Номенклатура.ПустаяСсылка)
ТОГДА «»
ИНАЧЕ Т.Ссылка.Родитель.Родитель.Родитель.Наименование + «\»
КОНЕЦ + ВЫБОР
КОГДА ЕСТЬNULL(Т.Ссылка.Родитель.Родитель, ЗНАЧЕНИЕ(Справочник.Номенклатура.ПустаяСсылка)) = ЗНАЧЕНИЕ(Справочник.Номенклатура.ПустаяСсылка)
ТОГДА «»
ИНАЧЕ Т.Ссылка.Родитель.Родитель.Наименование + «\»
КОНЕЦ + ВЫБОР
КОГДА ЕСТЬNULL(Т.Ссылка.Родитель, ЗНАЧЕНИЕ(Справочник.Номенклатура.ПустаяСсылка)) = ЗНАЧЕНИЕ(Справочник.Номенклатура.ПустаяСсылка)
ТОГДА «»
ИНАЧЕ Т.Ссылка.Родитель.Наименование
КОНЕЦ КАК ПолныйПуть,
Т.Ссылка КАК Номенклатура,
Т.ПометкаУдаления,
ПОДСТРОКА(Т.НаименованиеПолное, 1, 1024) КАК НаименованиеПолное,
Т.ВидНоменклатуры,
Т.ЕдиницаДляОтчетов,
Т.ЕдиницаХраненияОстатков,
Т.БазоваяЕдиницаИзмерения,
Т.НазначениеИспользования,
Т.Услуга,
Т.СтавкаНДС,
ПОДСТРОКА(Т.Комментарий, 1, 1024) КАК Комментарий,
Т.Производитель,
Т.Импортер
ПОМЕСТИТЬ ТНоменклатура
ИЗ
Справочник.Номенклатура КАК Т
ГДЕ
НЕ Т.Ссылка В ИЕРАРХИИ (&ИсключаемаяГруппа) И НЕ Т.ЭтоГруппа //И НЕ Т.ПометкаУдаления
;

////////////////////////////////////////////////////////////////////////////////
ВЫБРАТЬ
ТоварыВРозницеОстатки.Склад КАК Склад,
ТоварыВРозницеОстатки.Номенклатура КАК Номенклатура,
ТоварыВРозницеОстатки.КоличествоОстаток КАК Остаток
ПОМЕСТИТЬ ТОстатки
ИЗ
РегистрНакопления.ТоварыВРознице.Остатки КАК ТоварыВРозницеОстатки

ОБЪЕДИНИТЬ ВСЕ

ВЫБРАТЬ
ТоварыНаСкладахОстатки.Склад,
ТоварыНаСкладахОстатки.Номенклатура,
ТоварыНаСкладахОстатки.КоличествоОстаток
ИЗ
РегистрНакопления.ТоварыНаСкладах.Остатки КАК ТоварыНаСкладахОстатки
;

////////////////////////////////////////////////////////////////////////////////
ВЫБРАТЬ
ПартииТоваровНаСкладахОстатки.Номенклатура,
ПартииТоваровНаСкладахОстатки.Склад,
ВЫБОР
КОГДА СУММА(ПартииТоваровНаСкладахОстатки.КоличествоОстаток) = 0
ТОГДА 0
ИНАЧЕ ВЫРАЗИТЬ(СУММА(ПартииТоваровНаСкладахОстатки.СтоимостьОстаток) / СУММА(ПартииТоваровНаСкладахОстатки.КоличествоОстаток) КАК ЧИСЛО(10, 2))
КОНЕЦ КАК ЦенаПоПартиям,
Максимум(ПартииТоваровНаСкладахОстатки.ДокументОприходования.Контрагент) КАК Контрагент,
СУММА(ПартииТоваровНаСкладахОстатки.КоличествоОстаток) КАК КоличествоОстатокПоПартиям,
СУММА(ПартииТоваровНаСкладахОстатки.СтоимостьОстаток) КАК СтоимостьОстатокПоПартиям
ПОМЕСТИТЬ ТПартии
ИЗ
РегистрНакопления.ПартииТоваровНаСкладах.Остатки КАК ПартииТоваровНаСкладахОстатки

СГРУППИРОВАТЬ ПО
ПартииТоваровНаСкладахОстатки.Номенклатура,
ПартииТоваровНаСкладахОстатки.Склад
;

////////////////////////////////////////////////////////////////////////////////
ВЫБРАТЬ
ТНоменклатура.НовыйКод КАК НовыйКод,
ТОстатки.Номенклатура.Код КАК Код,
ТОстатки.Номенклатура КАК Номенклатура,
ТОстатки.Склад КАК Склад,
ЕСТЬNULL(ТПартии.Контрагент, «») КАК Контрагент,
ТОстатки.Остаток КАК Остаток,
ЕСТЬNULL(ТПартии.ЦенаПоПартиям, 0) КАК Цена,
ЕСТЬNULL(ТПартии.ЦенаПоПартиям, 0) * ТОстатки.Остаток КАК Сумма
ПОМЕСТИТЬ ТОстаткиРез
ИЗ
ТОстатки КАК ТОстатки
ЛЕВОЕ СОЕДИНЕНИЕ ТПартии КАК ТПартии
ПО ТОстатки.Номенклатура = ТПартии.Номенклатура
И ТОстатки.Склад = ТПартии.Склад
ВНУТРЕННЕЕ СОЕДИНЕНИЕ ТНоменклатура КАК ТНоменклатура ПО ТОстатки.Номенклатура = ТНоменклатура.Номенклатура
;

ВЫБРАТЬ
ТНоменклатура.НовыйКод КАК НовыйКод,
Т.МестоХранения,
Т.Склад,
Т.Номенклатура,
Т.Приоритет
ПОМЕСТИТЬ ТХранение
ИЗ
РегистрСведений.МестаХраненияНоменклатуры КАК Т
ВНУТРЕННЕЕ СОЕДИНЕНИЕ ТНоменклатура КАК ТНоменклатура ПО Т.Номенклатура = ТНоменклатура.Номенклатура
ГДЕ
ВЫБОР КОГДА &ТолькоОстатки ТОГДА Т.Номенклатура В (ВЫБРАТЬ Номенклатура ИЗ ТОстаткиРез ) ИНАЧЕ Истина КОНЕЦ;

ВЫБРАТЬ
ТНоменклатура.НовыйКод КАК НовыйКод,
Т.Номенклатура,
Т.Цена КАК Цена ПОМЕСТИТЬ ТЦены
ИЗ
РегистрСведений.ЦеныНоменклатуры.СрезПоследних(, ТипЦен = &ТипЦен) КАК Т
ВНУТРЕННЕЕ СОЕДИНЕНИЕ ТНоменклатура КАК ТНоменклатура ПО Т.Номенклатура = ТНоменклатура.Номенклатура
ГДЕ
ВЫБОР КОГДА &ТолькоОстатки ТОГДА Т.Номенклатура В (ВЫБРАТЬ Номенклатура ИЗ ТОстаткиРез ) ИНАЧЕ Истина КОНЕЦ;

// РЕЗУЛЬТИРУЮЩИЕ ЗАПРОСЫ

//ВЫБРАТЬ * ИЗ ТОстаткиРез КАК Т //ТАБЛИЦА ОСТАТКОВ

//ВЫБРАТЬ * ИЗ ТХранение КАК Т //ТАБЛИЦА ХРАНЕНИЯ

ВЫБРАТЬ * ИЗ ТЦены КАК Т //ЦЕНЫ

//ВЫБРАТЬ НовыйКод, COUNT() КАК Количество ИЗ ТНоменклатура КАК Т СГРУППИРОВАТЬ ПО НовыйКод ИМЕЮЩИЕ COUNT() > 1 //ПРОВЕРКА ДУБЛЕЙ

//ВЫБРАТЬ * ИЗ ТНоменклатура КАК Т ГДЕ ВЫБОР КОГДА &ТолькоОстатки ТОГДА Т.Номенклатура В (ВЫБРАТЬ Номенклатура ИЗ ТОстаткиРез ) ИНАЧЕ Истина КОНЕЦ Упорядочить ПО Т.НовыйКод //НОМЕНКЛАТУРА