Причина возникновения: Возникает при попытке изменения смены головной организации.
Где расположена: Общий модуль - ЗарплатаКадрыБазовый - Процедура - ПроверитьВозможностьСменыГоловнойОрганизации
Что делать: В РегистрСведений- КадроваяИсторияСотрудников произвести отбор по данной организации - вы получите список документов которые препятствуют смены головной организации.
Обратится за помощью к программисту 1С.
Для программиста: Данная Процедура производит запрос к регистру Сведений КадроваяИсторияСотрудников с отбором по Организации, в случае нахождения хотя бы одной записи - выводит данную ошибку.
Текст процедуры:
Причина возникновения: Возникает при попытке изменения смены головной организации.
Где расположена: Общий модуль - ЗарплатаКадрыБазовый - Процедура - ПроверитьВозможностьСменыГоловнойОрганизации
Что делать: В РегистрСведений- КадроваяИсторияСотрудников произвести отбор по данной организации - вы получите список документов которые препятствуют смены головной организации.
Обратится за помощью к программисту 1С.
Для программиста: Данная Процедура производит запрос к регистру Сведений КадроваяИсторияСотрудников с отбором по Организации, в случае нахождения хотя бы одной записи - выводит данную ошибку.
Текст процедуры:
Процедура ПроверитьВозможностьСменыГоловнойОрганизации(Организация, Отказ) Экспорт
Запрос = Новый Запрос;
Запрос.УстановитьПараметр("Организация", Организация);
Запрос.Текст =
"ВЫБРАТЬ ПЕРВЫЕ 1
| НачисленияУдержанияПоСотрудникам.Организация
|ИЗ
| РегистрНакопления.НачисленияУдержанияПоСотрудникам КАК НачисленияУдержанияПоСотрудникам
|ГДЕ
| НачисленияУдержанияПоСотрудникам.Организация = &Организация";
РезультатЗапроса = Запрос.Выполнить();
Если НЕ РезультатЗапроса.Пустой() Тогда
ТекстСообщения = СтрШаблон(
НСтр("ru='По %1 производилось начисление/удержание зарплаты.
|Чтобы изменить головную организацию, необходимо отменить проведение этих документов.'"),
Организация);
ОбщегоНазначения.СообщитьПользователю(
ТекстСообщения,
Организация,
"ГоловнаяОрганизация",
"Объект",
Отказ);
КонецЕсли;
Если ПолучитьФункциональнуюОпцию("ИспользоватьКадровыйУчет") Тогда
Запрос.Текст =
"ВЫБРАТЬ ПЕРВЫЕ 1
| КадроваяИсторияСотрудников.ГоловнаяОрганизация
|ИЗ
| РегистрСведений.КадроваяИсторияСотрудников КАК КадроваяИсторияСотрудников
|ГДЕ
| КадроваяИсторияСотрудников.Организация = &Организация
|
|ОБЪЕДИНИТЬ ВСЕ
|
|ВЫБРАТЬ ПЕРВЫЕ 1
| КадроваяИсторияСотрудников.ГоловнаяОрганизация
|ИЗ
| РегистрСведений.КадроваяИсторияСотрудников КАК КадроваяИсторияСотрудников
|ГДЕ
| КадроваяИсторияСотрудников.ГоловнаяОрганизация = &Организация";
РезультатЗапроса = Запрос.Выполнить();
Если НЕ РезультатЗапроса.Пустой() Тогда
ТекстСообщения = СтрШаблон(
НСтр("ru='В %1 произведен прием на работу сотрудников.
|Чтобы изменить головную организацию, необходимо отменить проведение этих документов.'"),
Организация);
ОбщегоНазначения.СообщитьПользователю(
ТекстСообщения,
Организация,
"ГоловнаяОрганизация",
"Объект",
Отказ);
КонецЕсли;
КонецЕсли;
КонецПроцедуры