при записи документа

[Олька1992]

в справочник ФизЛица добавила реквизит булево пенсионер, теперь нужно в документе увольнение чтобы при записи появлялось сообщение "это физ лицо является пенсионером", как это воплотить, подскажите плиз)
в справочнике ФизЛица, если вытаскивать сотрудника запросом, является ссылка, а сам сотрудник является типом строка!

[cska-fanat-kz]

чтобы кадровик всплакнул когда увольнял пенсионера?

[Тамерлан Тарханов]

В модуль Формы добавь:
&НаКлиенте
Процедура ПередЗаписью(Отказ, ПараметрыЗаписи)
   ТекСтрока = Элементы.Сотрудник.ТекущиеДанные;
   Сотрудник = ТекСтрока.Сотрудник;
   Если ПередЗаписьюНаСервере(Сотрудник) = 1 тогда
   Результат = Вопрос("Это физ лицо является пенсионером, уволить?",РежимДиалогаВопрос.ДаНет);
   Если Результат = КодВозвратаДиалога.Нет тогда
   Отказ = Истина;
   КонецЕсли;
   КонецЕсли;
КонецПроцедуры


&НаСервереБезКонтекста
Функция ПередЗаписьюНаСервере(Сотрудник)
   Спр = Справочники.ФизическиеЛица.НайтиПоНаименованию(Сотрудник);
   Если Спр.Персионер = Истина тогда
   Сообщение = 1;
Иначе Сообщение = 0;
   КонецЕсли;
   Возврат Сообщение;
КонецФункции

Подходит для случая, когда один сотрудник в одном документе, если нет то цикл используй

[vitasw]

В модуль Формы добавь:
&НаКлиенте
Процедура ПередЗаписью(Отказ, ПараметрыЗаписи)
   ТекСтрока = Элементы.Сотрудник.ТекущиеДанные;
   Сотрудник = ТекСтрока.Сотрудник;
   Если ПередЗаписьюНаСервере(Сотрудник) = 1 тогда
   Результат = Вопрос("Это физ лицо является пенсионером, уволить?",РежимДиалогаВопрос.ДаНет);
   Если Результат = КодВозвратаДиалога.Нет тогда
   Отказ = Истина;
   КонецЕсли;
   КонецЕсли;
КонецПроцедуры


&НаСервереБезКонтекста
Функция ПередЗаписьюНаСервере(Сотрудник)
   Спр = Справочники.ФизическиеЛица.НайтиПоНаименованию(Сотрудник);
   Если Спр.Персионер = Истина тогда
   Сообщение = 1;
Иначе Сообщение = 0;
   КонецЕсли;
   Возврат Сообщение;
КонецФункции

Подходит для случая, когда один сотрудник в одном документе, если нет то цикл используй

Н-даааааа, носеветовали тут. От таких советчиков потом всплакнуть хочется.... Тут столько криворукости, что даже комментировать не хочется.

[Rasty]

а не проще приизминении строки тч делать? да и писать меньше
Если Строка.Сотрудник.ФизическоеЛицо.Пенсионер Тогда
    Сообщить("Выбранные сотрудник:" + Строка.Сотрудник. +" - Пенсионер!");
     

[Тамерлан Тарханов]

Точно, при изменении проще