Получение данных из другой формы в 1с

Форум Программирование Общие вопросы программирования (Dev)
1C:Бухгалтерия 1С:Бухгалтерия 3.0 Бухгалтерский учет
1. Новичок1с 4 30.06.20 22:03 Сейчас в теме
Доброго вечера.
Мне необходимо из основной формы получить форму настроек.
Я делаю по аналогии с работающим отчётом.
В модуле основной формы- (форма настроек открывается)
такой код: 

//**************************************************************************************************************
&НаКлиенте

Процедура ОткрытьНастройки(Команда)
    ПараметрыОткрытия = Новый Структура("СтруктураОтчета",ПолучитьСтруктуруОтчета());

    Форма  = ПолучитьФорму("ВнешняяОбработка.Тест.Форма.ФормаНастроек",ПараметрыОткрытия,ЭтаФорма);
    
     Форма.ОткрытьМодально();
     ЗаполнитьЗначенияСвойств(Объект,Форма);
    

КонецПроцедуры  // ОткрытьНастройки()

//**************************************************************************************************************
&НаКлиенте
Функция ПолучитьСтруктуруОтчета()
    
    СтруктураОтчета = Новый Структура;
    СтруктураОтчета.Вставить("ДатаНач");
    СтруктураОтчета.Вставить("ДатаКон");
    СтруктураОтчета.Вставить("МинСумма");
    СтруктураОтчета.Вставить("МаксСумма");
    СтруктураОтчета.Вставить("ЛицевойСчёт");
    СтруктураОтчета.Вставить("Представитель");
    
    
    ЗаполнитьЗначенияСвойств(СтруктураОтчета,Объект);
    
    Возврат СтруктураОтчета;
    
КонецФункции //ПолучитьСтруктуруОтчета()

//**************************************************************************************************************

&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
        
    УстановитьЗначенияРеквизитов(Параметры);
    
            
КонецПроцедуры  //ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)

//**************************************************************************************************************

&НаСервере
Процедура УстановитьЗначенияРеквизитов(Параметры)
        ////Отчет.ВариантМакета              = Параметры.ВариантМакета;  //Из  рабочего образца
        //Объект.ДатаНач                             = Параметры.ДатаНач;
        //Объект.ДатаКон                             = Параметры.ДатаКон;
        //Объект.ЛицевойСчёт                     = Параметры.ЛицевойСчёт;
        //Объект.Представитель                     = Параметры.Представитель;

    
КонецПроцедуры  //УстановитьЗначенияРеквизитов(Параметры)
//**************************************************************************************************************
Показать



В модуле формы настроек 

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

КонецПроцедуры //ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
//**************************************************************************************************************
Показать




Я прошу помощи в объяснении рабочего кода. Что необходимо писать в процедуре УстановитьЗначенияРеквизитов??

И у меня на данный момент не работает :(
только открывается форма настрое

В отладчике- СтруктураОтчета- нужные, но пустые поля.
+ – Ответить
По теме из базы знаний
Найденные решения
13. Новичок1с 4 04.07.20 14:17 Сейчас в теме
Получилось :)
Благодарю Всех за помощь и за советы

Взяла другой отчёт и по шаблону сделала
На основной форме 

&НаКлиенте
Процедура ОткрытьНастройки(Команда)
    //https://www.about1c.ru/v83/language-reference/other/procedure-fill-property-values

    //Источник = Новый Структура("Наименование,Код", "Стул деревянный", 1);
    //Получатель = Новый Структура("Наименование,Код");
    //ЗаполнитьЗначенияСвойств(Получатель, Источник);

    Парам = ПолучитьСтруктуруРеквизитов();
    ЗаполнитьЗначенияСвойств(Парам, Объект);

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

    Возврат СтруктураРеквизитов;
КонецФункции   //ПолучитьСтруктуруРеквизитов()
//**************************************************************************************************************
Показать


на форме настроек 

&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
    
    ЗаполнитьЗначенияСвойств(Объект,Параметры);
        
КонецПроцедуры //ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
//**************************************************************************************************************

Процедура НастройкиОтчета(Настройки) Экспорт
    
    // Пустой модуль что бы не ругалась система
    НовыеНастройки = Настройки;
    Настройки      = НовыеНастройки;
    
КонецПроцедуры
//**************************************************************************************************************

&НаСервере
Процедура ПриЗагрузкеДанныхИзНастроекНаСервере(Настройки)
        
    ЭтаФорма.Параметры.Свойство("ДатаНач",Объект.ДатаНач);
    ЭтаФорма.Параметры.Свойство("ДатаКон",Объект.ДатаКон);
    ЭтаФорма.Параметры.Свойство("ЛицевойСчёт",Объект.ЛицевойСчёт);
    ЭтаФорма.Параметры.Свойство("Представитель",Объект.Представитель);
    ЭтаФорма.Параметры.Свойство("МинСумма",Объект.МинСумма);
    ЭтаФорма.Параметры.Свойство("МаксСумма",Объект.МаксСумма);
    
КонецПроцедуры  //ПриЗагрузкеДанныхИзНастроекНаСервере(Настройки)

//**************************************************************************************************************
&НаКлиенте
Процедура ПринятьНастройки(Команда)
    Отказ = Ложь;
    Парам = ПолучитьСтруктуруРеквизитов();
    ЗаполнитьЗначенияСвойств(Парам, Объект);    
    Оповестить("Передать настройки", Парам, ЭтаФорма);
    
    Если Не Отказ Тогда
        Закрыть();
    КонецЕсли;
КонецПроцедуры  //КомандаОК(Команда)

//**************************************************************************************************************
&НаСервере
Функция ПолучитьСтруктуруРеквизитов()
    СтруктураРеквизитов = Новый Структура;
    ОтчетОбъект = РеквизитФормыВЗначение("Объект");
    МетаданныеОтчета = ОтчетОбъект.Метаданные();    
    Для каждого ТекущийРеквизит Из МетаданныеОтчета.Реквизиты Цикл
        
        СтруктураРеквизитов.Вставить(ТекущийРеквизит.Имя,    Неопределено);
    КонецЦикла;
    Возврат СтруктураРеквизитов;
КонецФункции  //ПолучитьСтруктуруРеквизитов()
Показать
+ – Ответить
Остальные ответы
Подписаться на ответы Инфостарт бот Сортировка: Древо развёрнутое
Свернуть все
4. vadim.semyonov.rzn 01.07.20 11:07 Сейчас в теме
(1)
Форма.ОткрытьМодально()
возвращает значение, которое Вам нужно обработать. Вы вызываете функцию как процедуру. В приведенном коде "ЗаполнитьЗначенияСвойств(Объект,Форма)" вызывается сразу за открытием формы, не дожидаясь заполнения полей в ней. А вообще, уходите от модальности, воспользуйтесь описанием оповещения о закрытии формы настроек (в которой при закрытии возвращайте заполненные значения как структуру).
+ – Ответить 1
5. SlavaKron 01.07.20 12:20 Сейчас в теме
(4) ОткрытьМодально() - это синхронный вызов, то есть выполнение кода после этой строчки останавливается пока форма не будет закрыта, поэтому ЗаполнитьЗначенияСвойств(Объект,Форма) отработает корректно. В остальном согласен, лучше использовать оповещение о закрытии.
+ – Ответить
10. independ 1556 01.07.20 17:34 Сейчас в теме
(1) Можно проще используя ВладелецФормы
В основной форме открываем форму настроек 
    ОткрытьФорму("ВнешняяОбработка.Тест.Форма.ФормаНастроек",,ЭтаФорма);

В форме настроек обращаемся к реквизитам основной формы через ВладелецФормы 
 ВладелецФормы.Отчет.ВариантМакета              = Параметры.ВариантМакета;  //Из  рабочего образца
  ВладелецФормы.ДатаНач                             = Параметры.ДатаНач;
   ВладелецФормы.ДатаКон                             = Параметры.ДатаКон;
 



     ВладелецФормы.Объект.Задолженность.Очистить();
    НоваяСтрока             =  ВладелецФормы.Объект.Задолженность.Добавить();
    НоваяСтрока.ЛС             =  ВладелецФормы.Объект.ЛицевойСчёт;
    НоваяСтрока.Помещение     =  ВладелецФормы.Объект.ЛицевойСчёт.Помещение;
Новичок1с; +1 – Ответить
11. user5300 1077 02.07.20 08:35 Сейчас в теме
(1)
Вот здесь вручную пропиши параметры 
&НаКлиенте
Функция ПолучитьСтруктуруОтчета()
    
    СтруктураОтчета = Новый Структура;
    СтруктураОтчета.Вставить("ДатаНач"   ДатаНач);
    СтруктураОтчета.Вставить("ДатаКон"   ДатаКон);
    СтруктураОтчета.Вставить("МинСумма"   МинСумма);
    СтруктураОтчета.Вставить("МаксСумма"  МаксСумма );
    СтруктураОтчета.Вставить("ЛицевойСчёт"   ЛицевойСчёт);
    СтруктураОтчета.Вставить("Представитель"   Представитель);
    
    
    ///ЗаполнитьЗначенияСвойств(СтруктураОтчета,Объект);
    
    Возврат СтруктураОтчета;
    
КонецФункции //ПолучитьСтруктуруОтчета()
Показать
Новичок1с; +1 – Ответить 1
12. Новичок1с 4 04.07.20 09:12 Сейчас в теме
(11)
ПолучитьСтруктуруОтчета


///ЗаполнитьЗначенияСвойств(СтруктураОтчета,Объект);
Закоментировала эту строчку, не получается ничего.. :(

сейчас продолжу отладчиком смотреть и буду сравнивать с рабочим отчётом
+ – Ответить
2. alex-l19041 8 01.07.20 10:03 Сейчас в теме
в ПолучитьСтруктуруОтчета() СтруктураОтчета заполняется данными ?
+ – Ответить 3
3. Новичок1с 4 01.07.20 10:58 Сейчас в теме
(2)
Нет, все поля пустые :(
Я добавила ещё этот код в основную форму, а то до него ругался при открытии. 

Процедура УстановитьЗначенияРеквизитов(Параметры)
        Если Параметры.Свойство("ДатаНач") Тогда
        Объект.ДатаНач          = Параметры.ДатаНач;
    КонецЕсли; //Параметры.Свойство("ДатаНач") Тогда
+ – Ответить
6. user5300 1077 01.07.20 13:12 Сейчас в теме
(3) а если сначала заполнить форму а потом открыть ? 

Процедура ОткрытьНастройки(Команда)
    ПараметрыОткрытия = Новый Структура("СтруктураОтчета",ПолучитьСтруктуруОтчета());

    Форма  = ПолучитьФорму("ВнешняяОбработка.Тест.Форма.ФормаНастроек",ПараметрыОткрытия,ЭтаФорма);
    ЗаполнитьЗначенияСвойств(Объект,Форма); ///ВОт так
     Форма.ОткрытьМодально();
     
    

КонецПроцедуры  // ОткрытьНастройки()
Показать
+ – Ответить
9. Новичок1с 4 01.07.20 16:33 Сейчас в теме
(6)
Попробовала 2 Ваших предложенных варианта, к сожалению не получается
+ – Ответить
7. user5300 1077 01.07.20 13:15 Сейчас в теме
Или так ; 
ЭлементыОтбора = Новый Структура("СтруктураОтчета",ПолучитьСтруктуруОтчета());
ПараметрыОткрытия = Новый Структура("ЗначенияЗаполнения", ЭлементыОтбора);
ОткрытьФорму("ВнешняяОбработка.Тест.Форма.ФормаНастроек", ПараметрыФормы);
+ – Ответить 1
8. Новичок1с 4 01.07.20 15:58 Сейчас в теме
(7)
Пробую различные варианты, что-то не получается.
Я не могу понять, в какую форму необходимо вписать эту процедуру
Я на форме настроек хочу поменять ЛС и затем на основной форме очистить ТЧ и добавить строчку с нужным ЛС 

&НаСервере
Процедура ЛСПриИзмененииНаСервере()
    Объект.Задолженность.Очистить();
    НоваяСтрока             = Объект.Задолженность.Добавить();
    НоваяСтрока.ЛС             = Объект.ЛицевойСчёт;
    НоваяСтрока.Помещение     = Объект.ЛицевойСчёт.Помещение;
    
КонецПроцедуры  //ЛСПриИзмененииНаСервере()
Показать
+ – Ответить
13. Новичок1с 4 04.07.20 14:17 Сейчас в теме
Получилось :)
Благодарю Всех за помощь и за советы

Взяла другой отчёт и по шаблону сделала
На основной форме 

&НаКлиенте
Процедура ОткрытьНастройки(Команда)
    //https://www.about1c.ru/v83/language-reference/other/procedure-fill-property-values

    //Источник = Новый Структура("Наименование,Код", "Стул деревянный", 1);
    //Получатель = Новый Структура("Наименование,Код");
    //ЗаполнитьЗначенияСвойств(Получатель, Источник);

    Парам = ПолучитьСтруктуруРеквизитов();
    ЗаполнитьЗначенияСвойств(Парам, Объект);

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

    Возврат СтруктураРеквизитов;
КонецФункции   //ПолучитьСтруктуруРеквизитов()
//**************************************************************************************************************
Показать


на форме настроек 

&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
    
    ЗаполнитьЗначенияСвойств(Объект,Параметры);
        
КонецПроцедуры //ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
//**************************************************************************************************************

Процедура НастройкиОтчета(Настройки) Экспорт
    
    // Пустой модуль что бы не ругалась система
    НовыеНастройки = Настройки;
    Настройки      = НовыеНастройки;
    
КонецПроцедуры
//**************************************************************************************************************

&НаСервере
Процедура ПриЗагрузкеДанныхИзНастроекНаСервере(Настройки)
        
    ЭтаФорма.Параметры.Свойство("ДатаНач",Объект.ДатаНач);
    ЭтаФорма.Параметры.Свойство("ДатаКон",Объект.ДатаКон);
    ЭтаФорма.Параметры.Свойство("ЛицевойСчёт",Объект.ЛицевойСчёт);
    ЭтаФорма.Параметры.Свойство("Представитель",Объект.Представитель);
    ЭтаФорма.Параметры.Свойство("МинСумма",Объект.МинСумма);
    ЭтаФорма.Параметры.Свойство("МаксСумма",Объект.МаксСумма);
    
КонецПроцедуры  //ПриЗагрузкеДанныхИзНастроекНаСервере(Настройки)

//**************************************************************************************************************
&НаКлиенте
Процедура ПринятьНастройки(Команда)
    Отказ = Ложь;
    Парам = ПолучитьСтруктуруРеквизитов();
    ЗаполнитьЗначенияСвойств(Парам, Объект);    
    Оповестить("Передать настройки", Парам, ЭтаФорма);
    
    Если Не Отказ Тогда
        Закрыть();
    КонецЕсли;
КонецПроцедуры  //КомандаОК(Команда)

//**************************************************************************************************************
&НаСервере
Функция ПолучитьСтруктуруРеквизитов()
    СтруктураРеквизитов = Новый Структура;
    ОтчетОбъект = РеквизитФормыВЗначение("Объект");
    МетаданныеОтчета = ОтчетОбъект.Метаданные();    
    Для каждого ТекущийРеквизит Из МетаданныеОтчета.Реквизиты Цикл
        
        СтруктураРеквизитов.Вставить(ТекущийРеквизит.Имя,    Неопределено);
    КонецЦикла;
    Возврат СтруктураРеквизитов;
КонецФункции  //ПолучитьСтруктуруРеквизитов()
Показать
+ – Ответить 1
14. Новичок1с 4 06.07.20 08:32 Сейчас в теме
Единственный минус

При открытии обработки вначале необходимо открыть форму настроек (хотя настройки сохраняются при закрытии). Без этого открытия формы настроек не получается заполнять данные
+ – Ответить
Оставьте свое сообщение

Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот