Ввод на основании в пакетном режиме

29.05.20

Задачи пользователя - Адаптация типовых решений

Была поставлена задача сделать ввод на основании в пакетном режиме. В списке документов пользователь выделяет несколько документов и нажимает кнопочку Ввести на основании. После этого создаются документы на основании выделенных документов.

В модуле менеджера документа в процедуре ДобавитьКомандыСозданияНаОсновании. Комментируем типовую команду и добавляем свою команду. (Если конфигурация типовая без изменений делаем это в расширение). 

В обработчик  команды прописываем не типовой клиентский модуль

А_ВводНаОснованииКлиент.ЗаявкаНаРасходованиеДенежныхСредствСоздатьНаОснованииЗаказаПоставщикуОбщая

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

КонецПроцедуры

 

В модуле А_ВводНаОснованииКлиент создаем процедуру

Вариант 1. Открываются заполненные формы новых документов.

Делаем цикл по массиву ВыделенныеСтроки в котором находятся выделенные документы.

Открываем форму передаем в нее параметр заполнения Новый Структура("Основание", ПараметрыОткрытия).

Вся логика заполнения прописана в модуле создаваемого документа в процедуре ОбработкаЗаполнения.

 

 

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

 

 В результате получаем:

 

 

Вариант 2. Создаем и записываем документы без открытия формы.

Все тоже самое что и в Варианте 1, только вместо открытия формы переходим в не типовой серверный модуль 

А_ВводНаОснованииВызовСервера.СоздатьЗаявкаНаРасходованиеДенежныхСредствСоздатьНаОснованииЗаказаПоставщику(ПараметрыОткрытия);

 

 

Процедура ЗаявкаНаРасходованиеДенежныхСредствСоздатьНаОснованииЗаказаПоставщикуОбщая(МассивСсылок, ПараметрыВыполнения) Экспорт

	Для Каждого Стр Из ПараметрыВыполнения.Источник.ВыделенныеСтроки Цикл
		ПараметрыВыполненияКоманды = Новый Структура("Источник,Уникальность,Окно,НавигационнаяСсылка");
		ЗаполнитьЗначенияСвойств(ПараметрыВыполненияКоманды, ПараметрыВыполнения.ОписаниеКоманды.ДополнительныеПараметры);
		
		ПараметрыОткрытия = Новый Структура;
		ПараметрыОткрытия.Вставить("Основание", Стр);
		
		А_ВводНаОснованииВызовСервера.СоздатьЗаявкаНаРасходованиеДенежныхСредствСоздатьНаОснованииЗаказаПоставщику(ПараметрыОткрытия);	
	КонецЦикла;
	
КонецПроцедуры 

 

В модуле А_ВводНаОснованииВызовСервера создаем документ и вызываем функцию Заполнить(ПараметрыОткрытия)

 

 

Процедура СоздатьЗаявкаНаРасходованиеДенежныхСредствСоздатьНаОснованииЗаказаПоставщику(ПараметрыОткрытия) Экспорт 
	
	ЗаявкаНаРДС = Документы.ЗаявкаНаРасходованиеДенежныхСредств.СоздатьДокумент();
	ЗаявкаНаРДС.Дата = ТекущаяДата();
	ЗаявкаНаРДС.Заполнить(ПараметрыОткрытия);
	Попытка
		ЗаявкаНаРДС.Записать(РежимЗаписиДокумента.Проведение);
		ОбщегоНазначенияКлиентСервер.СообщитьПользователю(НСтр("ru='Создан документ:'") + ЗаявкаНаРДС.Ссылка);
	Исключение
		ОбщегоНазначенияКлиентСервер.СообщитьПользователю(ОписаниеОшибки());
	КонецПопытки;	
 	
КонецПроцедуры

 

 В результате получаем: 

 

 

Тестировал: 

1С:Комплексная автоматизация 2 (2.4.9.98)

Платформа 1С:Предприятие 8.3 (8.3.16.1148)

См. также

Табличная часть в доп. реквизитах и формирование таблиц в шаблоне docx для 1С:ДО 3.0

Адаптация типовых решений Платформа 1С v8.3 1С:Документооборот Россия Платные (руб)

Расширение конфигурации для «1С:Документооборот КОРП», редакция 3.0. позволяет: 1.использовать произвольные табличные части в качестве дополнительных реквизитов к документу; 2 использовать произвольные табличные части в шаблонах в формате docx для автоматического заполнения таблиц.

29400 руб.

29.06.2023    4453    9    4    

18

Расширение для 1С:УНФ. Автоматическое снятие резервов в Заказах покупателей

Логистика, склад и ТМЦ Адаптация типовых решений Платформа 1С v8.3 1С:Управление нашей фирмой 1.6 1С:Управление нашей фирмой 3.0 Россия Управленческий учет Платные (руб)

Чтобы не допустить путаницы с обещаниями клиентам и для четкого контроля исполнения заказов мы используем резервирование товаров. Мы доработали УНФ, чтобы она автоматически отменяла старые резервы и не мешала эффективно продавать.

7200 руб.

02.08.2023    2956    4    0    

19

Создать на основании - своя кнопка (БСП). Проблема двух подменю Создать на основании

БСП (Библиотека стандартных подсистем) Адаптация типовых решений Платформа 1С v8.3 1С:ERP Управление предприятием 2 Бесплатно (free)

Понадобилось в подменю "Создать на основании" добавить свою команду, которая открывает обработку. В процессе доработок появилась проблема двух подменю "Создать на основании". В статье о том, как решились проблемы.

01.03.2024    1282    dimanich70    6    

13

Доработка отчета "Связанные документы" (структура подчиненности) для вывода объектов из любого расширения

Адаптация типовых решений Платформа 1С v8.3 1С:Управление торговлей 11 Россия Абонемент ($m)

Доработка типового отчета "Связанные документы" позволяет просто и быстро расширять состав объектов для построения структуры подчиненности документов, используя объекты основной конфигурации и любых расширений.

1 стартмани

27.10.2023    1995    13    avmartynov    10    

43

Печать непроведенных документов для УТ, КА, ERP. Настройка печати по пользователям, документам и печатным формам

Пакетная печать Печатные формы Адаптация типовых решений Универсальные функции Платформа 1С v8.3 1С:ERP Управление предприятием 2 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х Россия Абонемент ($m)

Расширение для программ 1С:Управление торговлей, 1С:Комплексная автоматизация, 1С:ERP, которое позволяет распечатывать печатные формы для непроведенных документов. Можно настроить, каким пользователям, какие конкретные формы документов разрешено печатать без проведения документа.

2 стартмани

22.08.2023    2071    21    progmaster    7    

3
Комментарии
В избранное Подписаться на ответы Сортировка: Древо развёрнутое
Свернуть все
1. PLAstic 295 16.03.20 14:12 Сейчас в теме
А почему нельзя сделать это типовыми средствами? Просто вытащить ввод на основании в форму списка и всё. Ну, не штатную, а свою, но с той же иконкой даже. Если у вас правильно расположен код заполнения документа (ОбработкаЗаполнения), то понадобится только написать Для каждого-Из-Цикл. Разве нет?
Пока что я или не понимаю сути алгоритма, или ваша реализация не является оптимальной.
2. John_d 5277 16.03.20 14:14 Сейчас в теме
(1) Так не выходит. Попробуйте в типовой конфигурации так сделать.
3. PLAstic 295 16.03.20 14:28 Сейчас в теме
(2) Проверьте ещё раз, плз. Пара минут и у меня воспроизвелось несколько примеров.
&НаКлиенте
Процедура КомандаЗаполнитьПачкой(Команда)

	ВвестиПачкой(Элементы.Список.ВыделенныеСтроки);

КонецПроцедуры

&НаСервереБезКонтекста
Процедура ВвестиПачкой(ЗНАЧ МассивДокументов)

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

КонецПроцедуры
Показать

Нюансы:
* Серверному обработчику не нужен контекст формы.
* Операнд обработчика исходно только для чтения, поэтому надо добавлять "ЗНАЧ", чтобы платформа не пыталась изменить его после вызова серверной процедуры.
* Заполнение даты можно также убрать в обработчик заполнения. Просто для красоты.
user811769; +1 Ответить
4. John_d 5277 16.03.20 14:35 Сейчас в теме
(3) так будет работать. Это как у меня в Варианте 2.
Только тут это дополнительная кнопка. А у меня типовая кнопка "ввод на основании"
5. PLAstic 295 16.03.20 14:37 Сейчас в теме
(4) Открытие форм новых документов тоже можно несложно реализовать. Даже без записи их в базу, формы новых.
Вся соль, я так понял, в использовании типовой кнопки?
6. John_d 5277 16.03.20 14:37 Сейчас в теме
7. triviumfan 92 16.03.20 15:35 Сейчас в теме
8. kirill_sh 1 17.03.20 11:47 Сейчас в теме
9. selez-a 17 18.03.20 19:27 Сейчас в теме
Не пробовали использовать внешнюю обработку с типом "СозданиеСвязанныхОбъектов".
Оставьте свое сообщение