Доброго времени суток,
клиент захотел выгрузить Товары из 7ки в Номенклатуру 8ки.
Выгружаю товары текст, потом на стороне 8ки разбираю через разделители и заполняю.
Возник вопрос, как перенести иерархию элемента?
скажем у позиции Товар1, несколько папок:
Товары/Белье/Постельное белье/Товар1
Как перенести всю эту иерархию в виде строки?
Код запроса из 7ки:
тут |
|---|
Текст1="";
Запрос = СоздатьОбъект("Запрос");
ТекстЗапроса =
"
|Обрабатывать НеПомеченныеНаУдаление;
|ТекущийЭлемент = Справочник.Товары.ТекущийЭлемент;
|Наименование = Справочник.Товары.Наименование;
|Код = Справочник.Товары.Код;
|СлужебныйНомер = Справочник.Товары.СлужебныйНомер;
|СлужебнаяДата = Справочник.Товары.СлужебнаяДата;
|ВидТовара = Справочник.Товары.ВидТовара;
|ТипТовара = Справочник.Товары.ТипТовара;
|Единица = Справочник.Товары.Единица;
//|СрокРеализации = Справочник.Товары.СрокРеализации;
//|ТипСрока = Справочник.Товары.ТипСрока;
//|Поставщики = Справочник.Товары.Поставщики;
//|НамКнопка = Справочник.Товары.НамКнопка;
|ШтрихКод = Справочник.Товары.ШтрихКод;
|ШтрихКодПроизводителя = Справочник.Товары.ШтрихКодПроизводителя;
|Артикул = Справочник.Товары.Артикул;
|КодЭККА = Справочник.Товары.КодЭККА;
//|КодВесовогоТовара = Справочник.Товары.КодВесовогоТовара;
//|ТипВесовойЦены = Справочник.Товары.ТипВесовойЦены;
//|ТипСписанияТоваровНабора = Справочник.Товары.ТипСписанияТоваровНабора;
|ЦенаЗак = Справочник.Товары.ЦенаЗак;
|Проц = Справочник.Товары.Проц;
|ЦенаРозн = Справочник.Товары.ЦенаРозн;
//|МРЦ = Справочник.Товары.МРЦ;
|КолвоОпт = Справочник.Товары.КолвоОпт;
|ПроцОпт = Справочник.Товары.ПроцОпт;
|НеПрименятьСкидку = Справочник.Товары.НеПрименятьСкидку;
//|НеУчитыватьДляЗарплаты = Справочник.Товары.НеУчитыватьДляЗарплаты;
//|Фирма = Справочник.Товары.Фирма;
//|ФискальнаяГруппа = Справочник.Товары.ФискальнаяГруппа;
//|ОтделРРО = Справочник.Товары.ОтделРРО;
|ЦенаРозничнаяРасчетная = Справочник.Товары.ЦенаРозничнаяРасчетная;
//|ТипИнфо = Справочник.Товары.ТипИнфо;
//|ИспользоватьМРЦ = Справочник.Товары.ИспользоватьМРЦ;
|ГРУППИРОВКА ТекущийЭлемент;
|"
;
// Если ошибка в запросе, то выход из процедуры
Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда
Возврат;
КонецЕсли;
Счетчик = 0;
Пока Запрос.Группировка(1) = 1 Цикл
Счетчик = Счетчик + 1;
Текст1 = Текст1+"|"+Запрос.Код
+"|"+Запрос.Наименование
+"|"+Запрос.Артикул
+"|"+Запрос.СлужебныйНомер
+"|"+Запрос.СлужебнаяДата
+"|"+Запрос.ВидТовара
+"|"+Запрос.ТипТовара
+"|"+Запрос.Единица
//+"|"+Запрос.СрокРеализации
//+"|"+Запрос.ТипСрока
//+"|"+Запрос.Поставщики
//+"|"+Запрос.НамКнопка
+"|"+Запрос.ШтрихКод
+"|"+Запрос.ШтрихКодПроизводителя
+"|"+Запрос.Артикул
+"|"+Запрос.КодЭККА
//+"|"+Запрос.КодВесовогоТовара
//+"|"+Запрос.ТипВесовойЦены
//+"|"+Запрос.ТипСписанияТоваровНабора
+"|"+Запрос.ЦенаЗак
+"|"+Запрос.Проц
+"|"+Запрос.ЦенаРозн
//+"|"+Запрос.МРЦ
+"|"+Запрос.КолвоОпт
+"|"+Запрос.ПроцОпт
+"|"+Запрос.НеПрименятьСкидку
//+"|"+Запрос.НеУчитыватьДляЗарплаты
//+"|"+Запрос.Фирма
//+"|"+Запрос.ФискальнаяГруппа
//+"|"+Запрос.ОтделРРО
+"|"+Запрос.ЦенаРозничнаяРасчетная
//+"|"+Запрос.ТипИнфо
//+"|"+Запрос.ИспользоватьМРЦ
+ "@" + РазделительСтрок;
КонецЦикла;
Сообщить("Выгружены Товары. Количество: " + Счетчик); Показать |