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