Как из модуля одного документа в модуль другого документа перенести параметр. На сам макет параметр перенес, а как в коде не знаю.
Из 1 (СчетФактураВыданный) документа в 2 (РеализацияТоваровИУслуг).
Вот код 1 документа:
Вот код 2 документа:
Из 1 (СчетФактураВыданный) документа в 2 (РеализацияТоваровИУслуг).
Вот код 1 документа:
Если ЗначениеЗаполнено(Ссылка._ОснованиеПодписиМенеджера) Тогда
ЭкземплярДанныхДляПечати.ФИОРуководителя = Ссылка._МенеждерПодписи;
ЭкземплярДанныхДляПечати.ФИОГлавногоБухгалтера = Ссылка._МенеждерПодписи;
ЭкземплярДанныхДляПечати.Вставить("НомерПриказа", Ссылка._ОснованиеПодписиМенеджера);
Иначе
Если ЗначениеЗаполнено(Ссылка.ПриказОснование) Тогда
НомерПриказа = "(по приказу " + Ссылка.ПриказОснование.Наименование + " )";
ЭкземплярДанныхДляПечати.Вставить("НомерПриказа", НомерПриказа);
ЭкземплярДанныхДляПечати.ФИОРуководителя = "";
ЭкземплярДанныхДляПечати.ФИОГлавногоБухгалтера = "";
КонецЕсли;
КонецЕсли;
ПоказатьВот код 2 документа:
Если ЗначениеЗаполнено(Ссылка._ОснованиеПодписиМенеджера) Тогда
ОбластьМакета.Параметры.ЗаместительПоПриказу = Строка(Ссылка._МенеждерПодписи)+Символы.ПС+ Строка(Ссылка._ОснованиеПодписиМенеджера);
ОбластьМакета.Параметры.ДолжностьИНазваниеОрганизации = "";
Иначе
ОбластьМакета.Параметры.ДолжностьИНазваниеОрганизации = ДолжностьИНазваниеОрганизации;
ОбластьМакета.Параметры.ЗаместительПоПриказу = ЗаместительПоПриказу;
КонецЕсли;
Если ЗначениеЗаполнено(Документы.СчетФактураВыданный.НайтиПоРеквизиту("_ОснованиеПодписиМенеджера", ")) Тогда
ОбластьМакета.Параметры.НомерПриказа = Документы.СчетФактураВыданный.НайтиПоРеквизиту("_ОснованиеПодписиМенеджера", Ссылка);
Иначе
Если ЗначениеЗаполнено(Документы.СчетФактураВыданный.НайтиПоРеквизиту("ПриказОснование", "")) Тогда
НомерПриказа = "(по приказу " + Документы.СчетФактураВыданный.ПриказОснование.Наименование + " )";
ОбластьМакета.Вставить("НомерПриказа", НомерПриказа);
КонецЕсли;
КонецЕсли;
Если Менеджер Тогда
ОбластьМакета.Параметры.ДолжностьИНазваниеОрганизации = "Менеджер";
ОбластьМакета.Параметры.ЗаместительПоПриказу = ЭтотОбъект.Ответственный;
КонецЕсли;
ПоказатьПо теме из базы знаний
Ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот