v7: Выгрузка регистра

18.04.2013 17:58

Прочитано: 2095

Здравия желаю!
Задача: выгрузка данных регистра остатков в TXT.
Суть проблемы: не получается выгрузить значение одного из измерений регистра... тип значения - справочник(подчинённый), данные в выгрузку попадают как раз из него, а необходимо чтобы выгружалось из справочника-родителя, который напрямую с регистром не завязан...
Как получить такое значение через "цепь" связанных справочников?

Yandex

Возможно, вас также заинтересует

gorakh

19.04.2013 10:18

Ответ № 1

Сначала формируешь таблицу занчений с нужными тебе полями. Потом ее и выгружаеш. А зачем в TXT?

ad82117

19.04.2013 11:18

Ответ № 2

я так понял, что нужно получить родителя?
что за регистр и что за справочник?

rt55377

19.04.2013 11:25

Ответ № 3

Не совсем понял что именно мне нужно выгрузить в ТЗ...
Вот моя обработка на данный момент:

Код 1C v 7.x

 

Процедура Выгрузить()



	Файл = "suppliers.txt";

	Путь = "C:\folder\";

	

	Если ФС.ВыбратьФайл(1,Файл,Путь,"Выгрузить взаиморасчёты с поставщиками","Текстовый файл (*.txt)|*.txt")=0 Тогда 

		СтатусВозврата(0);

		Возврат;

	КонецЕсли;

	

	Текст = СоздатьОбъект("Текст");

	РегПоставщики = СоздатьОбъект("Регистр.Поставщики");

	СпрДог = СоздатьОбъект("Справочник.Договоры");

	СпрКон = СоздатьОбъект("Справочник.Контрагенты");

	

	РегПоставщики.ВыбратьИтоги();

	Пока РегПоставщики.ПолучитьИтог()=1 Цикл

		

		Фирма = Строка(РегПоставщики.Фирма);

		Контрагент = Строка(РегПоставщики.Договор.ПолучитьАтрибут("Наименование"));

		ВидДолга = Строка(РегПоставщики.ВидДолга);

		Документ = Строка(РегПоставщики.КредДокумент);

		Долг1 = Строка(РегПоставщики.СуммаВал);

		Долг2 = Строка(РегПоставщики.СуммаУпр);

		Долг3 = Строка(РегПоставщики.СуммаРуб);

		Долг4 = Строка(РегПоставщики.ОценкаРуб);

		Стр = Строка(Фирма+" - "+Контрагент+" - "+ВидДолга+" - "+Документ+" - "+Долг1+" - "+Долг2+" - "+Долг3+" - "+Долг4);

		Текст.ДобавитьСтроку(Стр);



	КонецЦикла;

	

	Текст.Записать(Путь+Файл);

	Предупреждение("Выгрузка успешно завершена!");

		

КонецПроцедуры

// атрибут(измерение) регистра "Поставщики" имеет тип значения "справочник"("Договоры"), который в свою очередь подчинён "Контрагентам", откуда и надо взять значение(в данном случае "Наименование")...
А выгрузку в текст попросили для переноса данных в 8-ку. Всё надо сделать руками *01

Gonzik2

19.04.2013 12:18

Ответ № 4

Контрагент = СокрЛП(РегПоставщики.Договор.Владелец.Наименование);

rt55377

10.06.2013 17:02

Ответ № 5

Вопрос закрыт!

Подсказка: Вы можете приложить к ответу файл или изображение щелкнув по значку или в редакторе.