Есть функция которая возвращает Дата, результат которой передается в переменную, переменную определяю в процедуре которая выполняется после процедуры "ПриСозданииНаСервере", в итоге выдает ошибку, что переменная не определена? Подскажи те в чем ошибка, почему он не определяет параметр?
&НаСервере
Функция Расш_ДатаПоследнегоСобытияПриСозданииНаСервереФункция(Дата)
Запрос = Новый Запрос;
// 4. Последнее событие
Запрос.Текст = "
|ВЫБРАТЬ РАЗРЕШЕННЫЕ ПЕРВЫЕ 1
| СобытиеУчастники.Ссылка КАК Событие,
| СобытиеУчастники.Ссылка.НачалоСобытия КАК Дата
|ИЗ
| Документ.Событие.Участники КАК СобытиеУчастники
|ГДЕ
| СобытиеУчастники.Контакт = &Контрагент
| И СобытиеУчастники.Ссылка.ПометкаУдаления = ЛОЖЬ
|
|УПОРЯДОЧИТЬ ПО
| СобытиеУчастники.Ссылка.НачалоСобытия УБЫВ";
Выборка = Запрос.Выполнить().Выбрать();
Если Выборка.Следующий() Тогда
Дата = Выборка.Дата;
Возврат Дата;
Иначе
Возврат "Ошибка";
КонецЕсли;
КонецФункции
&НаСервере
&После("ПриСозданииНаСервере")
Процедура Расш_ДатаПоследнегоСобытияПриСозданииНаСервере()
ДатаПоследнегоСобытия = Расш_ДатаПоследнегоСобытияОбщийМодуль1.Расш_ДатаПоследнегоСобытияПриСозданииНаСервереФункция(Дата)
КонецПроцедуры
&НаСервере
Функция Расш_ДатаПоследнегоСобытияПриСозданииНаСервереФункция(Дата)
Запрос = Новый Запрос;
// 4. Последнее событие
Запрос.Текст = "
|ВЫБРАТЬ РАЗРЕШЕННЫЕ ПЕРВЫЕ 1
| СобытиеУчастники.Ссылка КАК Событие,
| СобытиеУчастники.Ссылка.НачалоСобытия КАК Дата
|ИЗ
| Документ.Событие.Участники КАК СобытиеУчастники
|ГДЕ
| СобытиеУчастники.Контакт = &Контрагент
| И СобытиеУчастники.Ссылка.ПометкаУдаления = ЛОЖЬ
|
|УПОРЯДОЧИТЬ ПО
| СобытиеУчастники.Ссылка.НачалоСобытия УБЫВ";
Выборка = Запрос.Выполнить().Выбрать();
Если Выборка.Следующий() Тогда
Дата = Выборка.Дата;
Возврат Дата;
Иначе
Возврат "Ошибка";
КонецЕсли;
КонецФункции
&НаСервере
&После("ПриСозданииНаСервере")
Процедура Расш_ДатаПоследнегоСобытияПриСозданииНаСервере()
ДатаПоследнегоСобытия = Расш_ДатаПоследнегоСобытияОбщийМодуль1.Расш_ДатаПоследнегоСобытияПриСозданииНаСервереФункция(Дата)
КонецПроцедуры
Прикрепленные файлы:
По теме из базы знаний
- Универсальные функции ЗУП 3.1 / ЗКГУ 3.1, которые помогут в разработке
- SynchroWB - Интеграция 1С и Wildberries по API с УТ, КА, ERP, УНФ, Розница 3: расширение для синхронизации и обмена
- Признаки и причины неуспешных внедрений 1С: ERP
- Инвентаризация кодов маркировки системы "Честный знак", запрос, сравнение с остатками 1С, списание, ОСУ
- Применение ChatGPT в 1С и не только
Найденные решения
(1)
&НаСервере
Функция Расш_ДатаПоследнегоСобытияПриСозданииНаСервереФункция(Контрагент)
Запрос = Новый Запрос;
Запрос.УстановитьПараметр("Контрагент", Контрагент);
// 4. Последнее событие
Запрос.Текст = "
|ВЫБРАТЬ РАЗРЕШЕННЫЕ ПЕРВЫЕ 1
| СобытиеУчастники.Ссылка КАК Событие,
| СобытиеУчастники.Ссылка.НачалоСобытия КАК Дата
|ИЗ
| Документ.Событие.Участники КАК СобытиеУчастники
|ГДЕ
| СобытиеУчастники.Контакт = &Контрагент
| И СобытиеУчастники.Ссылка.ПометкаУдаления = ЛОЖЬ
|
|УПОРЯДОЧИТЬ ПО
| СобытиеУчастники.Ссылка.НачалоСобытия УБЫВ";
Выборка = Запрос.Выполнить().Выбрать();
Если Выборка.Следующий() Тогда
Дата = Выборка.Дата;
Возврат Дата;
Иначе
Возврат "Ошибка";
КонецЕсли;
КонецФункции
&НаСервере
&После("ПриСозданииНаСервере")
Процедура Расш_ДатаПоследнегоСобытияПриСозданииНаСервере()
КакойтоКонтрагент = "Его надо задать... либо переменная, либо реквизит";
ДатаПоследнегоСобытия = Расш_ДатаПоследнегоСобытияОбщийМодуль1.Расш_ДатаПоследнегоСобытияПриСозданииНаСервереФункция(КакойтоКонтрагент)
КонецПроцедуры
&НаСервере
Функция Расш_ДатаПоследнегоСобытияПриСозданииНаСервереФункция(Контрагент)
Запрос = Новый Запрос;
Запрос.УстановитьПараметр("Контрагент", Контрагент);
// 4. Последнее событие
Запрос.Текст = "
|ВЫБРАТЬ РАЗРЕШЕННЫЕ ПЕРВЫЕ 1
| СобытиеУчастники.Ссылка КАК Событие,
| СобытиеУчастники.Ссылка.НачалоСобытия КАК Дата
|ИЗ
| Документ.Событие.Участники КАК СобытиеУчастники
|ГДЕ
| СобытиеУчастники.Контакт = &Контрагент
| И СобытиеУчастники.Ссылка.ПометкаУдаления = ЛОЖЬ
|
|УПОРЯДОЧИТЬ ПО
| СобытиеУчастники.Ссылка.НачалоСобытия УБЫВ";
Выборка = Запрос.Выполнить().Выбрать();
Если Выборка.Следующий() Тогда
Дата = Выборка.Дата;
Возврат Дата;
Иначе
Возврат "Ошибка";
КонецЕсли;
КонецФункции
&НаСервере
&После("ПриСозданииНаСервере")
Процедура Расш_ДатаПоследнегоСобытияПриСозданииНаСервере()
КакойтоКонтрагент = "Его надо задать... либо переменная, либо реквизит";
ДатаПоследнегоСобытия = Расш_ДатаПоследнегоСобытияОбщийМодуль1.Расш_ДатаПоследнегоСобытияПриСозданииНаСервереФункция(КакойтоКонтрагент)
КонецПроцедуры
Остальные ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
(1)
&НаСервере
Функция Расш_ДатаПоследнегоСобытияПриСозданииНаСервереФункция(Контрагент)
Запрос = Новый Запрос;
Запрос.УстановитьПараметр("Контрагент", Контрагент);
// 4. Последнее событие
Запрос.Текст = "
|ВЫБРАТЬ РАЗРЕШЕННЫЕ ПЕРВЫЕ 1
| СобытиеУчастники.Ссылка КАК Событие,
| СобытиеУчастники.Ссылка.НачалоСобытия КАК Дата
|ИЗ
| Документ.Событие.Участники КАК СобытиеУчастники
|ГДЕ
| СобытиеУчастники.Контакт = &Контрагент
| И СобытиеУчастники.Ссылка.ПометкаУдаления = ЛОЖЬ
|
|УПОРЯДОЧИТЬ ПО
| СобытиеУчастники.Ссылка.НачалоСобытия УБЫВ";
Выборка = Запрос.Выполнить().Выбрать();
Если Выборка.Следующий() Тогда
Дата = Выборка.Дата;
Возврат Дата;
Иначе
Возврат "Ошибка";
КонецЕсли;
КонецФункции
&НаСервере
&После("ПриСозданииНаСервере")
Процедура Расш_ДатаПоследнегоСобытияПриСозданииНаСервере()
КакойтоКонтрагент = "Его надо задать... либо переменная, либо реквизит";
ДатаПоследнегоСобытия = Расш_ДатаПоследнегоСобытияОбщийМодуль1.Расш_ДатаПоследнегоСобытияПриСозданииНаСервереФункция(КакойтоКонтрагент)
КонецПроцедуры
&НаСервере
Функция Расш_ДатаПоследнегоСобытияПриСозданииНаСервереФункция(Контрагент)
Запрос = Новый Запрос;
Запрос.УстановитьПараметр("Контрагент", Контрагент);
// 4. Последнее событие
Запрос.Текст = "
|ВЫБРАТЬ РАЗРЕШЕННЫЕ ПЕРВЫЕ 1
| СобытиеУчастники.Ссылка КАК Событие,
| СобытиеУчастники.Ссылка.НачалоСобытия КАК Дата
|ИЗ
| Документ.Событие.Участники КАК СобытиеУчастники
|ГДЕ
| СобытиеУчастники.Контакт = &Контрагент
| И СобытиеУчастники.Ссылка.ПометкаУдаления = ЛОЖЬ
|
|УПОРЯДОЧИТЬ ПО
| СобытиеУчастники.Ссылка.НачалоСобытия УБЫВ";
Выборка = Запрос.Выполнить().Выбрать();
Если Выборка.Следующий() Тогда
Дата = Выборка.Дата;
Возврат Дата;
Иначе
Возврат "Ошибка";
КонецЕсли;
КонецФункции
&НаСервере
&После("ПриСозданииНаСервере")
Процедура Расш_ДатаПоследнегоСобытияПриСозданииНаСервере()
КакойтоКонтрагент = "Его надо задать... либо переменная, либо реквизит";
ДатаПоследнегоСобытия = Расш_ДатаПоследнегоСобытияОбщийМодуль1.Расш_ДатаПоследнегоСобытияПриСозданииНаСервереФункция(КакойтоКонтрагент)
КонецПроцедуры
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот