Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
22 ноя 2024, 04:12

Выгрузка данных

Автор djvjv, 05 апр 2012, 08:40

0 Пользователей и 1 гость просматривают эту тему.

djvjv

Я до этого выгружал обычным методом из справочника без учета иерархии справочника. Но для меня не правильно это. Так как мне надо выгрузить с учетом иерархии. Помогите мне это сделать! Прикладываю код который выгружает без учета иерархии.

&НаСервере
Процедура Запись()
Текст = Новый ТекстовыйДокумент;

Выборка = Справочники.Номенклатура.Выбрать();

Пока Выборка.Следующий() Цикл
   СтрокаТекста = "";
   СтрокаТекста = СтрокаТекста + СокрЛП(Выборка.Наименование) + "|";
   Если Выборка.ЭтоГруппа Тогда
      СтрокаТекста = СтрокаТекста + "Группа" + "|";
   Иначе
      СтрокаТекста = СтрокаТекста + "Элемент" + "|";
   КонецЕсли;
   СтрокаТекста = СтрокаТекста + СокрЛП(Выборка.Код) + "|";
   СтрокаТекста = СтрокаТекста + СокрЛП(Выборка.Артикул) + "|";
   СтрокаТекста = СтрокаТекста + СокрЛП(Выборка.ВидНоменклатуры) + "|";
   СтрокаТекста = СтрокаТекста + СокрЛП(Выборка.ЕдиницаИзмерения) + "|";
   СтрокаТекста = СтрокаТекста + СокрЛП(Выборка.НаименованиеПолное) + "|";
   СтрокаТекста = СтрокаТекста + СокрЛП(Выборка.Описание) + "|";
   СтрокаТекста = СтрокаТекста + СокрЛП(Выборка.СтавкаНДС) + "|";
   СтрокаТекста = СтрокаТекста + СокрЛП(Выборка.ЦеноваяГруппа) + "|";
   СтрокаТекста = СтрокаТекста + СокрЛП(Выборка.Услуга) + "|";
   СтрокаТекста = СтрокаТекста + СокрЛП(Выборка.Номинал) + "|";
   СтрокаТекста = СтрокаТекста + СокрЛП(Выборка.ИспользоватьСерийныеНомера) + "|";
   СтрокаТекста = СтрокаТекста + СокрЛП(Выборка.ТипСерийногоНомера) + "|";
   СтрокаТекста = СтрокаТекста + СокрЛП(Выборка.ДатаОкончанияДействия) + "|";
   СтрокаТекста = СтрокаТекста + СокрЛП(Выборка.ТипСрокаДействия) + "|";
   СтрокаТекста = СтрокаТекста + СокрЛП(Выборка.Периодичность) + "|";
   СтрокаТекста = СтрокаТекста + СокрЛП(Выборка.КоличествоПериодовДействия) + "|";
   СтрокаТекста = СтрокаТекста + СокрЛП(Выборка.ПодарочныйСертификат) + "|";
   СтрокаТекста = СтрокаТекста + СокрЛП(Выборка.Весовой) + "|";
   СтрокаТекста = СтрокаТекста + СокрЛП(Выборка.Вес) + "|";
   СтрокаТекста = СтрокаТекста + СокрЛП(Выборка.НаборУпаковок) + "|";
   СтрокаТекста = СтрокаТекста + СокрЛП(Выборка.ТипНоменклатуры) + "|";
   СтрокаТекста = СтрокаТекста + СокрЛП(Выборка.ФайлКартинки) + "|";
   СтрокаТекста = СтрокаТекста + СокрЛП(Выборка.НоменклатурнаяГруппа) + "|";
   СтрокаТекста = СтрокаТекста + СокрЛП(Выборка.СтранаПроисхождения) + "|";
   СтрокаТекста = СтрокаТекста + СокрЛП(Выборка.Родитель) + "|" ;
   Текст.ДобавитьСтроку(СтрокаТекста);
   
КонецЦикла;

Текст.Записать("c:\text2.txt");
КонецПроцедуры

chuevsf

Выборка = Справочники.Номенклатура.ВыбратьВИерархии();

djvjv

Проблема решена. Спасибо.

Теги:

Похожие темы (5)

Рейтинг@Mail.ru

Поиск