[l2d808]

7,7
Добрый день уважаемое сообщество. Поздравляю Вас с празником. Прошу помочь с ответом на вопрос:
У меня есть две формы. Одна открывается с другой модально.

ТМЦ = СоздатьОбъект("Справочник.ТМЦ");
Если ТМЦ.НайтиЭлемент(ТекущийЭлемент())=1 Тогда
    ОткрытьФормуМодально("Справочник.СоставПродукции");
КонецЕсли;

На Форме с которой я открываю, Есть ТЗ. После того как я вношу изменения во второй форме
(ОткрытьФормуМодально("Справочник.СоставПродукции") и закрываю ее, на первой форме ТЗ должна обновится.
Обработка обновления выглядит так:

Процедура измСостав()  
    Состав.УдалитьСтроки();
    спр = СоздатьОбъект("Справочник.СоставПродукции"); 
    ТМЦ = ТекущийЭлемент(); 
    спр.ИспользоватьВладельца(тмц.ТекущийЭлемент());
    спр.ВыбратьЭлементы();  
    Пока Спр.ПолучитьЭлемент()>0 Цикл 
        Состав.НоваяСтрока();
        Состав.ТМЦ=спр.Затрата;
        Состав.Количество=спр.кво;
        Состав.Измеритель=спр.БазЕдиница;
        
    КонецЦикла; 
КонецПроцедуры

Как это реализовать.

Сообщение отредактировал l2d808 - 02.05.13, 12:18

[takefive]

один из вариантов - использовать механизм подбора

Процедура Сформировать()
    Перем КонтекстФормы;
    ОткрытьПодбор("Справочник.СоставПродукции","ФормаСписка",КонтекстФормы,0);
    КонтекстФормы.ИспользоватьВладельца(ТМЦ);
КонецПроцедуры

Процедура ОбработкаПодбора(Выбор,КонтекстФормы)
    Список.ДобавитьЗначение(Выбор,СокрЛП(Выбор));
КонецПроцедуры

ваш код тоже должен сработать. Строчку добавьте...

ТМЦ = СоздатьОбъект("Справочник.ТМЦ");
Если ТМЦ.НайтиЭлемент(ТекущийЭлемент())=1 Тогда
    ОткрытьФормуМодально("Справочник.СоставПродукции");
    ИзмСостав();//сработает после закрытия модальной формы
КонецЕсли;

[ser_ua_bard]

Если открываеТЕ модально то

ТМЦ = СоздатьОбъект("Справочник.ТМЦ");
Если ТМЦ.НайтиЭлемент(ТекущийЭлемент())=1 Тогда
    ОткрытьФормуМодально("Справочник.СоставПродукции");
    измСостав();
КонецЕсли;

при открытии модально работа процедуры приостанавливаеться до закрытия формы

!

Правила, п. 1, 12

Сообщение отредактировал logist - 15.05.13, 17:12

[Домовик]

еще с переменной ТМЦ путаница. если подставить текст процедуры ИзмСостав() получается:

ТМЦ = СоздатьОбъект("Справочник.ТМЦ");
Если ТМЦ.НайтиЭлемент(ТекущийЭлемент())=1 Тогда
    ОткрытьФормуМодально("Справочник.СоставПродукции");
    Состав.УдалитьСтроки();
    спр = СоздатьОбъект("Справочник.СоставПродукции"); 
    ТМЦ = ТекущийЭлемент(); 
    спр.ИспользоватьВладельца(тмц.ТекущийЭлемент());
    спр.ВыбратьЭлементы();  
    Пока Спр.ПолучитьЭлемент()>0 Цикл 
        Состав.НоваяСтрока();
        Состав.ТМЦ=спр.Затрата;
        Состав.Количество=спр.кво;
        Состав.Измеритель=спр.БазЕдиница;
        
    КонецЦикла; 
КонецЕсли;

[alex040269]

можно возвращать данные через параметр формы.