1С Разработки - авторские разработки для 1С [applix.ru]

Пользователь

Сообщений: 3 Регистрация: 16.03.2015

13.07.2017 17:11:34

Помогите пожалуйста написать скрипт вывода ответственных лиц за подписание документов, на основании заказа покупателя или счета на оплату необходимо выводить в форму документа лицо ответственное за подписание, а так же реквизиты документа дающие ему на это полномочия как это технически должно выглядеть:
- конфигурация комплексная автоматизация 1.1
- пользователь выбирает заказ покупателя либо счет на оплату - нажимает сформировать документ - обработка смотрит кто ответственный по данному документу - если в регистре сведений "список уполномоченных лиц организации" данное лицо присутствует, то берет оттуда номер и дату приказа, доверенности или любого другого документа на основании которого оно действует и выводит в печатную форму эти данные, а так же его ФИО и должность
- то есть по сути из регистра сведений "список уполномоченных лиц организации" нужно вывести ФИО должность и номер документа на основании которого действует лицо

Помогите пожалуйста написать данный скрипт !

Администратор

Сообщений: 853 Регистрация: 28.08.2013

20.07.2017 14:37:29

Скрипт ниже:
-------------------------------------------------------------------

Результат = "";

Если ЗначениеЗаполнено(Параметры.Документ_Ответственный) Тогда
Запрос = Новый Запрос(
"ВЫБРАТЬ ПЕРВЫЕ 1
| УполномоченныеЛицаОрганизаций.НомерДатаПриказа
|ИЗ
| РегистрСведений.УполномоченныеЛицаОрганизаций КАК УполномоченныеЛицаОрганизаций
| ЛЕВОЕ СОЕДИНЕНИЕ Справочник.СотрудникиОрганизаций КАК СотрудникиОрганизаций
| ПО УполномоченныеЛицаОрганизаций.Организация = СотрудникиОрганизаций.Организация
| И УполномоченныеЛицаОрганизаций.УполномоченноеЛицо = СотрудникиОрганизаций.Физлицо
|ГДЕ
| УполномоченныеЛицаОрганизаций.Организация = &Организация
| И УполномоченныеЛицаОрганизаций.Пользователь = &Пользователь
| И УполномоченныеЛицаОрганизаций.ЗаКогоПодписывает = &ЗаКогоПодписывает");
Запрос.УстановитьПараметр("ПустаяДата", Дата(1, 1, 1));
Запрос.УстановитьПараметр("Организация", Параметры.Документ_Организация);
Запрос.УстановитьПараметр("Пользователь", Параметры.Документ_Ответственный);
Запрос.УстановитьПараметр("ЗаКогоПодписывает", Перечисления.ОтветственныеЛицаОрганизаций.Руководитель);

НомерДатаПриказа = "";

Выборка = Запрос.Выполнить().Выбрать();
Если Выборка.Следующий() Тогда
НомерДатаПриказа = Выборка.НомерДатаПриказа;
КонецЕсли;

Если ЗначениеЗаполнено(НомерДатаПриказа) Тогда
Результат = "менеджера по продажам " + Параметры.Документ_Ответственный_РП + ", действующего на основании доверенности " + НомерДатаПриказа;
КонецЕсли;

КонецЕсли;

Если Не ЗначениеЗаполнено(Результат) Тогда
ДолжностьРуководителя = ?(ЗначениеЗаполнено(Параметры.ОрганизацияРуководительДолжность_РП), Параметры.ОрганизацияРуководительДолжность_РП, "______________________________");
ФИОРуководителя = ?(ЗначениеЗаполнено(Параметры.ОрганизацияРуководитель_РП), Параметры.ОрганизацияРуководитель_РП, "______________________________");
Результат = "" + ДолжностьРуководителя + " " + ФИОРуководителя;
КонецЕсли;

--------------------------------------------------------------------------

Администратор Администратор Сообщений: 853 Регистрация: 28.08.2013	#3 0 20.07.2017 15:10:40 Видео инструкци по скрипту

Евгений Доманов Пользователь Сообщений: 3 Регистрация: 16.03.2015	#4 0 21.07.2017 15:57:14 Огромное спасибо, за столь оперативную реакцию ! Пока еще не пробовал все это осуществить, но в выходные обязательно займусь. Изменено: Евгений Доманов - 21.07.2017 23:49:38

Скрипт вывода лиц ответственных за подписание договора