Читая этот ресурс и безудержно юзая Гугл, мне так и не удалось найти информацию о том, как выполнить следующую задачу.
Итак:
Необходимо программно сформировать несколько документов Поступления товаров и показать пользователю формы этих документов. Формироваться эти документы должны на сервере, количество их неизвестно и зависит от текущего состояния информационной базы (к примеру, от остатков на складах).
Конфигурация - типовая УТ 11. Править ее крайне нежелательно.
Работают пользователи в клиент-серверном режиме, используют тонкий и толстый клиенты...
Как создать один новый документ и открыть его форму написано тут или тут.
Однако мне надо было несколько документов.
Вариант решения такой. Для толстого клиента все более/менее ясно:
1. На сервере создаем массив новых объектов типа документ "ПоступлениеТоваровУслуг" с разным заполнением.
2. На клиенте обходим этот массив в цикле, попутно создавая новые формы документов и заполняя их значениями тех объектов, что были созданы ранее.
&НаСервере
Функция ПолучитьМассивНовыхДокументовНаСервере()
// Создадим массив из нескольких документов
// с разным наполнением (для примера - разные организации)
// для того, чтобы при открытии форм было сразу понятно, что
// это два разных документа
МассивНовыхДокументов = Новый Массив;
НовДок = Документы.ПоступлениеТоваровУслуг.СоздатьДокумент();
НовДок.Организация = Справочники.Организации.НайтиПоНаименованию("Компания 1");
МассивНовыхДокументов.Добавить(НовДок);
НовДок = Документы.ПоступлениеТоваровУслуг.СоздатьДокумент();
НовДок.Организация = Справочники.Организации.НайтиПоНаименованию("Компания 2");
МассивНовыхДокументов.Добавить(НовДок);
Возврат МассивНовыхДокументов;
КонецФункции
&НаСервере
Функция ЗаполнитьДанныеФормыНаСервере(ДанныеФормыДокумента, НовыйДокументОбъект)
// Здесь происходит непосредственное заполнение
// Объекта из данных формы документа
// тем документом, который был создан
// в процедуре ПолучитьМассивДокументовНаСервере()
мОбъект = ДанныеФормыВЗначение(ДанныеФормыДокумента, ТипЗнч(НовыйДокументОбъект));
ЗаполнитьЗначенияСвойств(мОбъект, НовыйДокументОбъект);
ЗначениеВДанныеФормы(мОбъект, ДанныеФормыДокумента);
КонецФункции
&НаКлиенте
Процедура кнОткрытьФормыНовыхДокументов(Команда)
// Кнопка на клиенте (на форме обработки)
// из которой необходимо создать
// и заполнить несколько новых документов.
// Количество создаваемых объектов определяется в
// процедуре ПолучитьМассивДокументовНаСервере()
// 1. На сервере создаем массив новых объектов типа документ "ПоступлениеТоваровУслуг" с разным заполнением.
МассивНовыхДокументов = ПолучитьМассивНовыхДокументовНаСервере();
// 2. На клиенте обходим этот массив в цикле, попутно создавая новые формы документов и заполняя их значениями тех объектов, что были созданы ранее.
Для Каждого НовыйДокументОбъект Из МассивНовыхДокументов Цикл
ФормаДокумента = ПолучитьФорму("Документ.ПоступлениеТоваровУслуг.ФормаОбъекта",,,Истина);
ДанныеФормыДокумента = ФормаДокумента.Объект;
ЗаполнитьДанныеФормыНаСервере(ДанныеФормыДокумента, НовыйДокументОбъект);
КопироватьДанныеФормы(ДанныеФормыДокумента, ФормаДокумента.Объект);
ФормаДокумента.Открыть();
КонецЦикла;
КонецПроцедуры
Для тонкого клиента все сложнее. В тонком клиенте 1С начинает ругаться: "Ошибка передачи данных между клиентом и сервером. Значение недопустимого типа". Это в момент передачи массива новых документов с сервера на клиент.
Как пришлось выкручиваться:
1. Точно также создаем массив новых документов.
2. Помещаем этот массив во временное хранилище. На клиент передаем только адрес этого хранилища.
3. На клиенте создаем цикл из такого количества итераций, сколько элементов есть в массиве.
4. В цикле создаем формы новых документов, при этом заполняя их данными из созданного массива документов. А к массиву обращаемся через адрес хранилища.
&НаСервере
Функция ПолучитьМассивНовыхДокументовНаСервере()
// Создадим массив из нескольких документов
// с разным наполнением (для примера - разные организации)
// для того, чтобы при открытии форм было сразу понятно, что
// это два разных документа
МассивНовыхДокументов = Новый Массив;
НовДок = Документы.ПоступлениеТоваровУслуг.СоздатьДокумент();
НовДок.Организация = Справочники.Организации.НайтиПоНаименованию("Компания 1");
МассивНовыхДокументов.Добавить(НовДок);
НовДок = Документы.ПоступлениеТоваровУслуг.СоздатьДокумент();
НовДок.Организация = Справочники.Организации.НайтиПоНаименованию("Компания 2");
МассивНовыхДокументов.Добавить(НовДок);
Возврат МассивНовыхДокументов;
КонецФункции
&НаСервере
Функция ПолучитьАдресМассиваНовыхДокументовНаСервере()
// Поместим массив с документами во временное хранилище
// для того, чтобы иметь возможность обращаться к нему
// со стороны клиента (передавая на сервер адрес хранилища)
МассивНовыхДокументов = ПолучитьМассивНовыхДокументовНаСервере();
// 2. Помещаем этот массив во временное хранилище. На клиент возвращаем только адрес этого хранилища.
АдресМассиваНовыхДокументов = ПоместитьВоВременноеХранилище(МассивНовыхДокументов, Новый УникальныйИдентификатор);
Возврат АдресМассиваНовыхДокументов;
КонецФункции
&НаСервере
Функция ЗаполнитьДанныеФормыТонкийКлиентНаСервере(ДанныеФормыДокумента, НомерОбъекта, АдресМассиваНовыхДокументов)
// Здесь происходит непосредственное заполнение
// Объекта из данных формы документа
// тем документом, который был создан
// в процедуре ПолучитьМассивДокументовНаСервере()
МассивНовыхДокументов = ПолучитьИзВременногоХранилища(АдресМассиваНовыхДокументов);
НовыйДокументОбъект = МассивНовыхДокументов[НомерОбъекта];
ЗаполнитьДанныеФормыНаСервере(ДанныеФормыДокумента, НовыйДокументОбъект);
КонецФункции
&НаСервере
Функция ПолучитьКоличествоНовыхДокументов(АдресМассиваНовыхДокументов)
МассивНовыхДокументов = ПолучитьИзВременногоХранилища(АдресМассиваНовыхДокументов);
Возврат МассивНовыхДокументов.Количество();
КонецФункции
&НаКлиенте
Процедура кнОткрытьФормыНовыхДокументовТонкийКлиент(Команда)
// 1. Точно также создаем массив новых документов.
АдресМассиваНовыхДокументов = ПолучитьАдресМассиваНовыхДокументовНаСервере();
КоличествоНовыхДокументов = ПолучитьКоличествоНовыхДокументов(АдресМассиваНовыхДокументов);
// 3. На клиенте создаем цикл из такого количества итераций, сколько элементов есть в массиве.
Для НомерОбъекта = 0 По КоличествоНовыхДокументов - 1 Цикл
ФормаДокумента = ПолучитьФорму("Документ.ПоступлениеТоваровУслуг.ФормаОбъекта",,,Истина);
ДанныеФормыДокумента = ФормаДокумента.Объект;
// 4. В цикле создаем формы новых документов, при этом заполняя их данными из созданного массива документов. А к массиву обращаемся через адрес хранилища.
ЗаполнитьДанныеФормыТонкийКлиентНаСервере(ДанныеФормыДокумента, НомерОбъекта, АдресМассиваНовыхДокументов);
КопироватьДанныеФормы(ДанныеФормыДокумента, ФормаДокумента.Объект);
ФормаДокумента.Открыть();
КонецЦикла;
КонецПроцедуры
