Related Posts
Восстановление последовательности документов при закрытии месяца в Бухгалтерия 3.0 не завершается
Заполнение табличных частей
Формирование сводных актов выполненных работ
Ввод поступления в переработку на основании передачи сырья (между организациями)- Конспект по установке сервера 1С на linux
Получение имени компьютера и его IP локально и в терминале
Переносит непроведенными ?
Улыбнуло …
Родитель1=ВыбЭлемент.Родитель.Родитель.Родитель.Родитель.Родитель.Родитель.Родитель.Родитель;
Родитель2=ВыбЭлемент.Родитель.Родитель.Родитель.Родитель.Родитель.Родитель.Родитель;
Родитель3=ВыбЭлемент.Родитель.Родитель.Родитель.Родитель.Родитель.Родитель;
Родитель4=ВыбЭлемент.Родитель.Родитель.Родитель.Родитель.Родитель;
Родитель5=ВыбЭлемент.Родитель.Родитель.Родитель.Родитель;
Родитель6=ВыбЭлемент.Родитель.Родитель.Родитель;
Родитель7=ВыбЭлемент.Родитель.Родитель;
Родитель8=ВыбЭлемент.Родитель
(2) Жестоко…
(2)Причем два раза подряд ;))
-кто у Вас семье самый старший ?
— пра …пра…пра…пра…пра…дедушка !
— Но этого не может быть !!!
— мо..мо..мо..мо..мо…жет 🙂
….
Родитель4=ВыбЭлемент.Родитель.Родитель.Родитель.Родитель.Родитель;
Родитель5=ВыбЭлемент.Родитель.Родитель.Родитель.Родитель;
Родитель6=ВыбЭлемент.Родитель.Родитель.Родитель;
Родитель7=ВыбЭлемент.Родитель.Родитель;
Родитель8=ВыбЭлемент.Родите …….
Почитайте «простые примеры». там тоже так предлагается получать полный код справочника.
(7)
> Почитайте «простые примеры». там тоже так предлагается получать полный код справочника.
А где почитать?
А так не судьба?
Родитель8=ВыбЭлемент.Родитель;
Родитель7=Родитель8.Родитель;
Родитель6=Родитель7.Родитель;
Родитель5=Родитель6.Родитель;
Родитель4=Родитель5.Родитель;
Родитель3=Родитель4.Родитель;
Родитель2=Родитель3.Родитель;
Родитель1=Родитель2.Родитель;
(7) А при чем тут полный код?
см. СП
Синтаксис:
ПолныйКод()
Назначение:
Возвращает строку, содержащую полный код выбранного элемента справочника со всеми вышестоящими уровнями, разделенными символом /.
(8) так лучше
(9) через такую «лесенку» рекомендуется получать полный код запросом.
(10)
> (8) так лучше
Чем лучше?
> (9) через такую «лесенку» рекомендуется получать полный код запросом.
А запрос здесь при чем? И «Лесенка» 🙂
(11) Лучше тем, что точек меньше. А чем больше точек, тем больше итераций. 8-ка умеет кешировать объекты и то будет дольше выкручивать владельцев с одного и того же элемента. в 7-ке было бы хуже.
Ух вы тут жжете с лесенками, аж страшно, брр, убегаю лучше опять в Life:-)
(12)
В (2)
Родитель1 — 8 точек
Родитель2 — 7 точек
Родитель3 — 6 точек
Родитель4 — 5 точек
Родитель5 — 4 точки
Родитель6 — 3 точки
Родитель7 — 2 точки
Родитель8 — 1 точка
Итого: 36 точек
В (8) 8 точек
П.С. Мне просто показалось, что Вы сказали что в (2) лучше 🙂
(14) А че цикл или рекурсию не судьба?
(15) Если задача стоит в том, что бы найти самого первого предка, то можно и функцию написать — ОсновательДинастии() 🙂 с циклом
В ссылке сидят две обработки для универсального переноса документов и справочников между двумя одинаковыми конфигурациями. Обработкам «сто лет в обед» т.к когда то они шли на дисках 1С ИТС все работает через текстовый файл единственное что модернезировали в свое время добавили использование компоненты v7plus чтоб шустрее работало когда большие файлы получаются. Пользуйся народ. Удачи !!!
Типа так:
сп=СоздатьОбъект(«СписокЗначений»);
сп.ДобавитьЗначение(спр.ТекущийЭлемент().Родитель);
Для сч=1 По 7 Цикл
ТекЗнач=сп.ПолучитьЗначение(сч).Родитель;
Если ПустоеЗначение(ТекЗнач)=1 Тогда
Если ПустоеЗначение(сп.ПолучитьЗначение(1))=1 Тогда
сп.УдалитьВсе();
КонецЕсли;
Прервать;
КонецЕсли;
сп.ДобавитьЗначение(ТекЗнач);
КонецЦикла;
(18) Это так, самый примитивный, родителей то не всегда 8-м у каждого элемента справочника или что там… Это для семерки:-)
(19) А так?
Функция Родители(Элем)
Перем сп, Род;
сп=СоздатьОбъект(«СписокЗначений»);
Род=Элем.Родитель;
Пока ПустоеЗначение(Род)=0 Цикл
сп.ДобавитьЗначение(Род);
Род=Элем.Родитель;
КонецЦикла;
Возврат сп;
КонецФункции
+(20) ой.. описка
Функция Родители(Элем)
Перем сп, Род;
сп=СоздатьОбъект(«СписокЗначений»);
Род=Элем.Родитель;
Пока ПустоеЗначение(Род)=0 Цикл
сп.ДобавитьЗначение(Род)
(21) :-)))
Процедура УсеРодители(элем, сп)
Если ПустоеЗначение(элем.Родитель)=1 Тогда
Возврат;
Иначе
сп.ДобавитьЗначение(элем.Родитель);
УсеРодители(элем.Родитель,сп);
КонецЕсли;
КонецПроцедуры
Рекурсия ресурсы кушает… стеки вызовов там всякие…. ?-)
(23) Счас замерю:-) Но в любом случае, обожаю краткость кода:-) Хотя, это ж 1С, а не программирование:-)
(24) И график, пожалуйста… типа как про пиратов 🙂
(25) Точно, чем меньше строк кода, тем больше ресурсов он жрет:-))) Вывод — пишите как можно больше кода:-)))
+(25) го на форум 🙂
(27) Родилась шутка:-) Рекурсия, она как женщина, — затратна, но как красива, чертовка:-)))