1С 8.3 Открываем форму только что созданного, но ещё не записанного элемента справочника
Данные > Примеры кода 1С > 1С 8.3 Справочники
Перейти в раздел примеры кода 1С 8.3:
Открываем форму только что созданного, но ещё не записанного элемента справочника в 1С 8.3:
&НаКлиенте
Процедура ОткрываемФормуНовогоНеЗаписанногоСправочника(Команда)
// Получаем форму нового справочника
ФормаНовогоСправочника = ПолучитьФорму("Справочник.Города.ФормаОбъекта",,Истина);
// Делаем копию её данных (так как напрямую их менять нельзя)
КопияДанныхФормы = ФормаНовогоСправочника.Объект;
// Заполняем эти данные на сервере
ЗаполнитьДанныеФормыНаСервере(КопияДанныхФормы);
// Копируем заполненные данные в исходную форму
КопироватьДанныеФормы(КопияДанныхФормы, ФормаНовогоСправочника.Объект);
// Показываем форму нового заполненного элемента справочника пользователю
ФормаНовогоСправочника.Открыть();
КонецПроцедуры
&НаСервере
Процедура ЗаполнитьДанныеФормыНаСервере(ДанныеФормы)
// Преобразуем данные формы в документ
Города = ДанныеФормыВЗначение(ДанныеФормы,Тип("СправочникОбъект.Города"));
Города.Наименование = "Минск";
Города.Население = 2000000;
// Преобразуем документа обратно в данные формы
ЗначениеВДанныеФормы(Города, ДанныеФормы);
КонецПроцедуры
Процедура ОткрываемФормуНовогоНеЗаписанногоСправочника(Команда)
// Получаем форму нового справочника
ФормаНовогоСправочника = ПолучитьФорму("Справочник.Города.ФормаОбъекта",,Истина);
// Делаем копию её данных (так как напрямую их менять нельзя)
КопияДанныхФормы = ФормаНовогоСправочника.Объект;
// Заполняем эти данные на сервере
ЗаполнитьДанныеФормыНаСервере(КопияДанныхФормы);
// Копируем заполненные данные в исходную форму
КопироватьДанныеФормы(КопияДанныхФормы, ФормаНовогоСправочника.Объект);
// Показываем форму нового заполненного элемента справочника пользователю
ФормаНовогоСправочника.Открыть();
КонецПроцедуры
&НаСервере
Процедура ЗаполнитьДанныеФормыНаСервере(ДанныеФормы)
// Преобразуем данные формы в документ
Города = ДанныеФормыВЗначение(ДанныеФормы,Тип("СправочникОбъект.Города"));
Города.Наименование = "Минск";
Города.Население = 2000000;
// Преобразуем документа обратно в данные формы
ЗначениеВДанныеФормы(Города, ДанныеФормы);
КонецПроцедуры
0
комментарии
____________________
Перепечатка текста и фотографий разрешена при наличии прямой ссылки на источник