Как обратиться из модуля объекта к процедуре, которая находится в форме документа?

(0) дописать Экспорт, получить форму, обратиться

Попытки реализации такого взаимодействия - конфликт/противоречие с концепцией фирмы 1С.

Выход? Ну, например, перенести "общую" часть алгоритма процедуры в модуль менеджера объекта.

(0) А нафейхоа?

(2) Смысл такой, нужно при групповом проведении выводить сообщения, это можно осуществить только в модуле объекта,
но в модуле объекта заполнение таблиц запросом не срабатывает, т.к не заходит в цикл. На форме документа все работает отлично. вот и хотела вызывать из  модуля объекта процедуру которая на форме документа

(4) надо исправить вот это: "но в модуле объекта заполнение таблиц запросом не срабатывает, т.к не заходит в цикл"

Создаю таблу :

КвалификаторыЧисла = Новый КвалификаторыЧисла(8, 2, ДопустимыйЗнак.Любой);    
         ТЗВирт = Новый ТаблицаЗначений;
         ТЗВирт.Колонки.Добавить("ОрганизацияОтправитель", Новый ОписаниеТипов("СправочникСсылка.Организации"));
         ТЗВирт.Колонки.Добавить("Период" , Новый ОписаниеТипов("Дата"));
         ТЗВирт.Колонки.Добавить("Количество", Новый ОписаниеТипов("Число",КвалификаторыЧисла));
        

ТУТ запрос ..................

//потом :

РезультатЗапроса = Запрос.Выполнить();
Результат = Запрос.Выполнить().Выгрузить();

// Далее это и в цикл не заходит

Для каждого Стр из Результат Цикл
  ЗаполнитьЗначенияСвойств(ТЗВирт.Добавить(),Стр);
  ТЗВирт.Свернуть("ОрганизацияОтправитель","Количество");
КонецЦикла;

(6) Результат пустой?

(7)  Выполняя это же на форме документа заполняется, все работает отлично. В модуле объекта не работает!

(8) Результат пустой?

(0) Этот вопрос задавался на форуме 100500 раз.

(9) http://img.ipev.ru/2017/06/30/TUTU.png

(4) В этой фразе прекрасно все.

(6) Не нужно отдельно создавать таблицуи заполнять её в цикле. Достаточно сделать запрос так, чтобы он возвращал данные с нужными тебе наименованиями колонок. И далее просто:
ТЗВирт = Запрос.Выполнить().Выгрузить();
ТЗВирт.Свернуть("ОрганизацияОтправитель","Количество");

PS: в цикле таблицу не сворачивают. Это "разовая" операция и имеет смысл после заполнения таблицы (после цикла заполнения)

(13) Это для солидности. Ну нехорошо, когда программа выдает результат мгновенно. Надо помигать лампочками, подумать.

(8) Тема для телепатов (намекаю: текст запроса не озвучен) и потому погадаю: какой-то из параметров запроса имеет значение (и смысл) в форме и не заполнен в модуле.

(13) Согласна сворачивать можно и не в цикле, но мне все равно нужно, выгружать временную таблицу и перебирать её значения на определенные условия

(15) Типично женская постановка задачи - вот результат 10, а должно быть 12, программа не работает!

(11) "Результат.Количество()"

(11) на вопрос не ответила

ТЗВирт = Новый ТаблицаЗначений;
         ТЗВирт.Колонки.Добавить("ОрганизацияОтправитель", Новый ОписаниеТипов("СправочникСсылка.Организации"));
         ТЗВирт.Колонки.Добавить("Период" , Новый ОписаниеТипов("Дата"));
         ТЗВирт.Колонки.Добавить("Количество", Новый ОписаниеТипов("Число",КвалификаторыЧисла));
                
         //ТЗВирт = Таблица.Выгрузить();
         Для Каждого СтрОбъект из ЭтотОбъект.Затраты Цикл
             Запрос = Новый    Запрос;
             Запрос.Текст = "ВЫБРАТЬ
             |    УслугиПодразделениям.ОрганизацияОтправитель,
             |    УслугиПодразделениям.Период,
             |    УслугиПодразделениям.Количество
             |ИЗ
             |    РегистрНакопления.УслугиПодразделениям КАК v_УслугиСобственнымПодразделениям
             |ГДЕ
             |    УслугиПодразделениям.Период МЕЖДУ &НачалоПериода И &КонецПериода
             |    И УслугиПодразделениям.ОрганизацияОтправитель = &ОрганизацияОтправитель
             |    И УслугиПодразделениям.ОбъектОС = &ОбъектОС";
            
             Запрос.УстановитьПараметр("КонецПериода", КонецМесяца(Дата));
             Запрос.УстановитьПараметр("НачалоПериода", НачалоМесяца(Дата));
             Запрос.УстановитьПараметр("ОрганизацияОтправитель",Организация);
             РезультатЗапроса = Запрос.Выполнить();
             Результат = Запрос.Выполнить().Выгрузить();
            
             Для каждого Стр из Результат Цикл
                 ЗаполнитьЗначенияСвойств(ТЗВирт.Добавить(),Стр);
                 ТЗВирт.Свернуть("ОрганизацияОтправитель","Количество");
                
             КонецЦикла;
            
             Для Каждого СтрТЧ из ТЗВирт Цикл
                 Если СтрТЧ.Количество > 1 Тогда
                    
                     Сообщение  = Новый СообщениеПользователю;
                    Сообщение.Текст = "текст";
                     Сообщение.Сообщить();
                        
                 КонецЕсли;
             КонецЦикла;
             ТЗВирт.Очистить();
         КонецЦикла;

(17) Ахтунг, сексизм :( Такая постановка задачи свойственна  неопытным программистам обоего пола.

(21) Ахтунг, навешивание ярлыков. Ну или иди поработай воспитателем в детсад. Ведь у женщин и мужчин одинаковые способности ко всему, правда же?

(19) А как посмотреть то ?)

(20) А я не понял, для чего поле период выбирать, если оно нигде больше не участвует и в итоге ещё после свертки таблицы удаляется?

(23) Смотрите не в табло. Нажмите Shift+F9, введите выражение Результат, и справа от ввода результата нажмите кнопочку просмотра ТЗ.

(25) Ну отбирает за месяц потом сворачивает, и получаем количество. Все логично

(26) необязательно для этого период включать в поля выборки запроса, достаточно использовать в условии.

(26) период для этого в конструкции ВЫБРАТЬ писать не обязательно

(28) + да и свернуть можно было еще в запросе

(26) Уберите его из запроса (не из условия) и получите итого количество по организации за период.

(20) Не вижу где присвоение параметра запроса "ОбъектОС"?

(31) Его не надо, убрать забыла

Где проверка что объект не модифицирован и проведён?

(33) Вот ты сейчас окончательно мозг девушки взломаешь. Слишком много базовых вещей за один раз.

Упс :) Вопрос снимается :))

(35) :)

(25) где? я что то не вижу http://img.ipev.ru/2017/06/30/TUTUfb8b6.png

Так этот код вообще не имеет никакого отношения к документу. Правильный ответ, похоже, в (31)

(37) Поставьте курсор на результат в нижней части списка (глде слово результат и справа - таблица значений)

Нажмите F2 или появится кнопка для просмотра ТЗ справа, среди кнопок.

Зачем нужен цикл по ЭтотОбъект.Затраты? Зачем там запрос внутри, если при обходе этой тч никакие параметры оттуда не берутся?

(38) А если документ делает движения в этот регистр - надо ли читает его собственные движения?

(37 Хотя странно, что у вас этой кнопки нет, сейчас выложу, как это выглядит у меня

(38) тьфу...пятница...уже в глазах двоится от этих касс %)

(40) См. (14) Пятница же :)

А понял. Красивый и логичный код. Написано видимо под утренний мейкап :)

(37) Вот так должно выглядеть в окне выражений

http://img.ipev.ru/2017/06/30/BEZYMYNNYI.png

(46) у меня такой нет

(46) Про платформу спросил бы, свою озвучил бы... "Ну мне, так, для себя, чисто поржать"(с)

(48) Да уже понял, что у Олеси платформа довольно старая. У меня 8.3.10.2252, но кнопка просмотра ТЗ была уже в 8.3.6, если ничего не путаю, а то и раньше.

У кого-нибудь есть мысли почему в цикл не заходит ?)

(50) Есть, результат запроса дает пустую ТЗ.

(50) ты напиши зачем тебе этот цикл. Ты ничего из него не заполняешь, т.е. обходишь просто по строчно это тз и каждый раз дергаешь независимый от этого_всего запрос. Это бессмысленно, ты явно что-то не так делаешь. Ответь на этот вопрос и тебе подскажут. А сейчас - это красивый код и не более того :)

(50) См. (18)

Для Каждого СтрТЧ из ТЗВирт Цикл
                 Если СтрТЧ.Количество > 1 Тогда
                    
                     Сообщение  = Новый СообщениеПользователю;
                    Сообщение.Текст = "текст";
                     Сообщение.Сообщить();
                        
                 КонецЕсли;
             КонецЦикла;

Если количество больше 1 нужно выводить сообщение

Поделись секретом: как ты в запросе выбираешь значения из "УслугиПодразделениям", если запрос составлен на таблицу "v_УслугиСобственнымПодразделениям"? Или опять "Его не надо, убрать забыла"(цы)?

А зачем в цикле запрос? Почему его без цикла нельзя сделать, оставить только тело и вывести строку. Зачем ты один и тот же запрос крутишь там и строчки выводишь?

(56) До оптимизации не дошли, автор застряла на уровне болванки, шаблона, алгоритма лишённого смысла. Ок?

Понял. И теперь надо понять почему оно в модуле формы работает, а в модуле объекта - нет?

(55) УслугиПодразделениям я это уже поправила (56) да я уже убрала этот цикл

(58) именно)

Запрос кст. выполняется проверила на консоле

(61) значит показывай переписанный код

(62)

Квалификаторы = Новый КвалификаторыЧисла(10, 2, ДопустимыйЗнак.Любой);
ТЗВирт = Новый ТаблицаЗначений;
ТЗВирт.Колонки.Добавить("ОрганизацияОтправитель", Новый ОписаниеТипов("СправочникСсылка.Организации"));
ТЗВирт.Колонки.Добавить("Период" , Новый ОписаниеТипов("Дата"));
ТЗВирт.Колонки.Добавить("Количество", Новый ОписаниеТипов("Число",Квалификаторы));

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

Запрос.УстановитьПараметр("КонецПериода", КонецМесяца(Дата));
Запрос.УстановитьПараметр("НачалоПериода", НачалоМесяца(Дата));
Запрос.УстановитьПараметр("ОрганизацияОтправитель",Организация);

РезультатЗапроса = Запрос.Выполнить();
Результат = Запрос.Выполнить().Выгрузить();

Для каждого Стр из Результат Цикл
    ЗаполнитьЗначенияСвойств(ТЗВирт.Добавить(),Стр);
КонецЦикла;

    ТЗВирт.Свернуть("ОрганизацияОтправитель","Количество");
    
Для Каждого СтрТЧ из ТЗВирт Цикл
    Если СтрТЧ.Количество > 1 Тогда
        Сообщение  = Новый СообщениеПользователю;
        Сообщение.Текст = "Просто текст";
        Сообщение.Сообщить();
    КонецЕсли;
КонецЦикла;
ТЗВирт.Очистить();

(63) да убери ты уже эту ересь

ТЗВирт = Новый ТаблицаЗначений;
ТЗВирт.Колонки.Добавить("ОрганизацияОтправитель", Новый ОписаниеТипов("СправочникСсылка.Организации"));
ТЗВирт.Колонки.Добавить("Период" , Новый ОписаниеТипов("Дата"));
ТЗВирт.Колонки.Добавить("Количество", Новый ОписаниеТипов("Число",Квалификаторы));

Для каждого Стр из Результат Цикл
    ЗаполнитьЗначенияСвойств(ТЗВирт.Добавить(),Стр);
КонецЦикла;


просто делай вместо
Результат = Запрос.Выполнить().Выгрузить();
вот это
ТЗВирт = Запрос.Выполнить().Выгрузить();

после ТЗВирт.Свернуть("ОрганизацияОтправитель","Количество");
напиши
Сообщить(ТЗВирт.Количество());
и покажи что получилось.

(57) Ну, наконец ты понял, что женщина программистом быть не может?