Реклама на этом месте
Форум 1С
Форум 1С
Программистам. Бухгалтерам. Администраторам. Пользователям
Задай вопрос - получи решение проблемы. Без троллинга и флуда.
17 Дек 2017, 13:08
МультиВход
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Не получили письмо с кодом активации?
 
collapse

Автор Тема: УТ 11 внешняя обработка  (Прочитано 1883 раз)

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

Оффлайн asdfr1

  • **
  • Сообщений: 93
  • РЕПУТАЦИЯ: 0
  • Регистрация: 2010-10-28
  • Сайт: 
по задумке в каждую номенклатуру добавляется характеристика из "СписокЗнач"

пытаюсь впихнуть ещё одним циклом - процессор загружается на 99 %,  не пойму что не так
&НаСервере 
Функция ЗаполнитьОбъект(Знач док)
докоб=док.получитьобъект();
докпроведен=док.проведен;
таб=новый ТаблицаЗначений;
таб.Колонки.Добавить("Номен");
таб.Колонки.Добавить("Цена");
таб.Колонки.Добавить("Видцены");

//отдел1=Справочники.ХарактеристикиНоменклатуры.НайтиПоРеквизиту("НаименованиеПолное", Строка(Характе));
 Запрос = Новый Запрос;
 Запрос.Текст =
"ВЫБРАТЬ
| ХарактеристикиНоменклатуры.Ссылка  КАК Хар
|ИЗ
| Справочник.ХарактеристикиНоменклатуры КАК ХарактеристикиНоменклатуры
|ГДЕ
| ХарактеристикиНоменклатуры.Владелец.Ссылка = &Ссылка";
Запрос.УстановитьПараметр("Ссылка", Справочники.ВидыНоменклатуры.НайтиПоНаименованию("Ассортимент"));
//Результат1 = Запрос.Выполнить().Выгрузить();
СписокЗнач = Новый СписокЗначений;
СписокЗнач.ЗагрузитьЗначения(Запрос.Выполнить().Выгрузить().ВыгрузитьКолонку("Хар"));

Для Каждого ТекущаяСтрока Из СписокЗнач Цикл
отдел1=ТекущаяСтрока.Значение;
отдел1=Справочники.ХарактеристикиНоменклатуры.НайтиПоНаименованию(отдел1);
Сообщить(отдел21);
КонецЦикла;

для каждого текстрока из докоб.товары цикл
Для Каждого ТекущаяСтрока Из СписокЗнач Цикл
отдел1=ТекущаяСтрока.Значение;
отдел21=Справочники.ХарактеристикиНоменклатуры.НайтиПоНаименованию(отдел1);

текстрока.характеристика= отдел21;
номен=текстрока.номенклатура;
цена=текстрока.цена; видцены=текстрока.видцены;
    новстрока=таб.добавить();                                                                                                           
    новстрока.номен=номен;
    новстрока.видцены=видцены;
    новстрока.цена=цена;
//Возврат;
  Продолжить;
  Сообщить(Отдел21);

КонецЦикла;
 
для каждого текстрока из таб цикл
новстрока=докоб.товары.добавить();
новстрока.номенклатура=текстрока.номен;
новстрока.видцены=текстрока.видцены;
новстрока.цена=текстрока.цена;
конеццикла;
// вторая


докоб.записать(?(докпроведен,РежимЗаписиДокумента.Проведение,РежимЗаписиДокумента.Запись));

КонецФункции


Оффлайн wise

  • ****
  • Сообщений: 428
  • РЕПУТАЦИЯ: 58
  • КПД: 14%
  • Кто сгорел, того не подожжешь
  • Регистрация: 2013-03-21
  • Сайт: 
  • Профессия: Ученик 1С
Цитировать
для каждого текстрока из докоб.товары цикл
    Для Каждого ТекущаяСтрока Из СписокЗнач Цикл

цикла ДВА, а КонецЦикла ОДИН !!!
Представьте себе, какая была бы тишина, если бы люди говорили только то, что знают


Теги:
 


* Живое общение

Не устроил ответ?

Зарегистрируйся и задай свой вопрос. Живое общение приносит результат намного быстрее.


Зарегистрироваться

* Реклама

* Поиск

* Последние задачи на разработку (фриланс)

* Реклама

* Последние вакансии

* Топ 10 авторов за месяц

Геннадий ОбьГЭС Геннадий ОбьГЭС
145 Сообщений
ilyay ilyay
63 Сообщений
AIFrame
55 Сообщений
alex0402
50 Сообщений
andron81_81
44 Сообщений
oleg-x
42 Сообщений
BuhRust
32 Сообщений
MuI_I_Ika MuI_I_Ika
31 Сообщений
Golickoff Golickoff
28 Сообщений
Dima Dddd Dima Dddd
24 Сообщений

* Кто онлайн

  • Точка Гостей: 279
  • Точка Скрытых: 0
  • Точка Пользователей: 7
  • Точка Сейчас на форуме:

* Облако тэгов

* Форум 1С с мобильного

* Инструменты

* Дополнительно

Поиск

 
SimplePortal 2.3.5 © 2008-2012, SimplePortal