РегистрРасчетаСписок.<Имя регистра расчета>.Колонки

Сервер и толстый обычный клиент; только чтение и проверка. Полные flags приведены в подготовке.

Процедура ПроверитьСтенд85() Экспорт
    Если СтрокаСоединенияИнформационнойБазы() <> "File=""C:\1c-labs\OwnCalculationInvoiceViews21_25ecfba2-7f32-40c5-a5b3-bb5e777e4afb\IB"";" Или Метаданные.РежимСовместимости <> Метаданные.СвойстваОбъектов.РежимСовместимости.НеИспользовать Тогда
        ВызватьИсключение "Нужна только своя учебная файловая база 8.5.1.1343";
    КонецЕсли;
    Если Метаданные.Документы.Количество() <> 1 Или Метаданные.Документы.Найти("Регистратор85") = Неопределено
        Или Метаданные.ПланыВидовРасчета.Количество() <> 1 Или Метаданные.ПланыВидовРасчета.Найти("Начисления85") = Неопределено
        Или Метаданные.РегистрыРасчета.Количество() <> 1 Или Метаданные.РегистрыРасчета.Найти("Начисления85") = Неопределено
        Или Метаданные.Справочники.Количество() <> 0 Или Метаданные.РегистрыСведений.Количество() <> 0
        Или Метаданные.РегистрыНакопления.Количество() <> 0 Или Метаданные.РегистрыБухгалтерии.Количество() <> 0
        Или Метаданные.ОбщиеМодули.Количество() <> 1 Или Метаданные.Роли.Количество() <> 1 Тогда
        ВызватьИсключение "В учебной конфигурации нужны только собственные документ, ПВР, регистр и общий модуль";
    КонецЕсли;
    Регистр = Метаданные.РегистрыРасчета.Начисления85;
    План = Метаданные.ПланыВидовРасчета.Начисления85;
    Если Регистр.ПериодДействия Или Регистр.БазовыйПериод
        Или Регистр.ПланВидовРасчета <> План Или Регистр.Перерасчеты.Количество() <> 0
        Или План.ИспользованиеПериодаДействия
        Или План.ЗависимостьОтВидовРасчета <> Метаданные.СвойстваОбъектов.ИспользованиеБазыПланаВидовРасчета.НеИспользовать Тогда
        ВызватьИсключение "В уроке нет периодов действия, базы и перерасчетов";
    КонецЕсли;
    Если Регистр.Измерения.Количество() <> 1 Или Регистр.Измерения.Найти("Сотрудник85") = Неопределено
        Или Регистр.Ресурсы.Количество() <> 1 Или Регистр.Ресурсы.Найти("Сумма85") = Неопределено
        Или Регистр.Реквизиты.Количество() <> 1 Или Регистр.Реквизиты.Найти("Метка85") = Неопределено
        Или Метаданные.Документы.Регистратор85.Движения.Количество() <> 1
        Или Не Метаданные.Документы.Регистратор85.Движения.Содержит(Регистр) Тогда
        ВызватьИсключение "Изменились поля своего регистра или состав движений документа";
    КонецЕсли;
    Пользователи = ПользователиИнформационнойБазы.ПолучитьПользователей();
    Текущий = ПользователиИнформационнойБазы.ТекущийПользователь();
    Если Текущий = Неопределено Или Пользователи.Количество() <> 1 Тогда
        ВызватьИсключение "В стенде должен быть один учебный пользователь";
    КонецЕсли;
    Если Текущий.Имя <> "Начисления85Ученик" Или Текущий.УникальныйИдентификатор <> Пользователи[0].УникальныйИдентификатор Тогда
        ВызватьИсключение "Это другой учебный пользователь";
    КонецЕсли;
КонецПроцедуры

Функция ПрочитатьСтенд85(Этап) Экспорт
    ПроверитьСтенд85();
    Если Этап <> 0 И Этап <> 1 Тогда
        ВызватьИсключение "Неизвестный этап проверки базы";
    КонецЕсли;
    Запрос = Новый Запрос;
    Запрос.Текст = "ВЫБРАТЬ Ссылка, Номер, Дата, Проведен, ПометкаУдаления, Метка85 ИЗ Документ.Регистратор85";
    Документы = Запрос.Выполнить().Выгрузить();
    Если Документы.Количество() <> 2 Тогда
        ВызватьИсключение "Нужны ровно два собственных подготовленных документа";
    КонецЕсли;
    А = Неопределено;
    Б = Неопределено;
    Для Каждого Документ Из Документы Цикл
        Если ТипЗнч(Документ.Ссылка) <> Тип("ДокументСсылка.Регистратор85")
            Или ТипЗнч(Документ.Номер) <> Тип("Строка") Или ТипЗнч(Документ.Дата) <> Тип("Дата")
            Или ТипЗнч(Документ.Проведен) <> Тип("Булево") Или Документ.Проведен
            Или ТипЗнч(Документ.ПометкаУдаления) <> Тип("Булево") Или Документ.ПометкаУдаления
            Или Документ.Дата <> Дата(2026, 10, 10) Тогда
            ВызватьИсключение "Изменился документ собственного стенда";
        КонецЕсли;
        Если Документ.Номер = "A85" И Документ.Метка85 = "25ecfba2-7f32-40c5-a5b3-bb5e777e4afb/A" И А = Неопределено Тогда
            А = Документ.Ссылка;
        ИначеЕсли Документ.Номер = "B85" И Документ.Метка85 = "25ecfba2-7f32-40c5-a5b3-bb5e777e4afb/B" И Б = Неопределено Тогда
            Б = Документ.Ссылка;
        Иначе
            ВызватьИсключение "Документ не принадлежит этому учебному сценарию";
        КонецЕсли;
    КонецЦикла;
    Если А = Неопределено Или Б = Неопределено Или А = Б Тогда
        ВызватьИсключение "Не найдена собственная пара документов";
    КонецЕсли;
    Запрос.Текст = "ВЫБРАТЬ Ссылка, Код, Наименование, ПометкаУдаления ИЗ ПланВидовРасчета.Начисления85";
    Виды = Запрос.Выполнить().Выгрузить();
    Если Виды.Количество() <> 2 Тогда
        ВызватьИсключение "Подготовьте ровно два собственных вида расчета";
    КонецЕсли;
    Работа = Неопределено;
    Премия = Неопределено;
    Для Каждого Вид Из Виды Цикл
        Если ТипЗнч(Вид.Ссылка) <> Тип("ПланВидовРасчетаСсылка.Начисления85") Или Вид.ПометкаУдаления Тогда
            ВызватьИсключение "Изменился собственный вид расчета";
        КонецЕсли;
        Если Вид.Код = "WORK85" И Вид.Наименование = "Работа85" И Работа = Неопределено Тогда
            Работа = Вид.Ссылка;
        ИначеЕсли Вид.Код = "BONUS85" И Вид.Наименование = "Премия85" И Премия = Неопределено Тогда
            Премия = Вид.Ссылка;
        Иначе
            ВызватьИсключение "Это другой вид расчета";
        КонецЕсли;
    КонецЦикла;
    Если Работа = Неопределено Или Премия = Неопределено Или Работа = Премия Тогда
        ВызватьИсключение "Не найдена собственная пара видов расчета";
    КонецЕсли;
    Запрос.Текст = "ВЫБРАТЬ Регистратор, НомерСтроки, Активность, ПериодРегистрации, ВидРасчета, Сторно, Сотрудник85, Сумма85, Метка85 ИЗ РегистрРасчета.Начисления85";
    Строки = Запрос.Выполнить().Выгрузить();
    Если Строки.Количество() <> 3 Тогда
        ВызватьИсключение "В регистре должны находиться ровно три свои строки";
    КонецЕсли;
    Снимок = Новый Массив;
    Для Каждого Строка Из Строки Цикл
        Снимок.Добавить(СнятьСтроку85(Строка));
    КонецЦикла;
    Состояние = Новый ФиксированнаяСтруктура("А,Б,Работа,Премия,Строки", А, Б, Работа, Премия, Новый ФиксированныйМассив(Снимок));
    ПроверитьСтроки85(Состояние.Строки, Состояние, Этап, Ложь);
    Возврат Состояние;
КонецФункции

Функция СнятьСтроку85(Строка) Экспорт
    Если ТипЗнч(Строка.Регистратор) <> Тип("ДокументСсылка.Регистратор85")
        Или ТипЗнч(Строка.НомерСтроки) <> Тип("Число") Или ТипЗнч(Строка.Активность) <> Тип("Булево")
        Или ТипЗнч(Строка.ПериодРегистрации) <> Тип("Дата")
        Или ТипЗнч(Строка.ВидРасчета) <> Тип("ПланВидовРасчетаСсылка.Начисления85")
        Или ТипЗнч(Строка.Сторно) <> Тип("Булево") Или ТипЗнч(Строка.Сотрудник85) <> Тип("Строка")
        Или ТипЗнч(Строка.Сумма85) <> Тип("Число") Или ТипЗнч(Строка.Метка85) <> Тип("Строка") Тогда
        ВызватьИсключение "Нарушены типы полей своей строки";
    КонецЕсли;
    Возврат Новый ФиксированнаяСтруктура("Регистратор,НомерСтроки,Активность,ПериодРегистрации,ВидРасчета,Сторно,Сотрудник85,Сумма85,Метка85", Строка.Регистратор, Строка.НомерСтроки, Строка.Активность, Строка.ПериодРегистрации, Строка.ВидРасчета, Строка.Сторно, Строка.Сотрудник85, Строка.Сумма85, Строка.Метка85);
КонецФункции

Процедура ПроверитьСтроки85(Строки, Состояние, Этап, ТолькоА) Экспорт
    Если ТипЗнч(Строки) <> Тип("ФиксированныйМассив") Или Строки.Количество() <> ?(ТолькоА, 2, 3) Тогда
        ВызватьИсключение "Изменилось полное число своих строк";
    КонецЕсли;
    ВиденыА1 = Ложь;
    ВиденыА2 = Ложь;
    ВиденыБ1 = Ложь;
    Для Каждого Строка Из Строки Цикл
        Если ТипЗнч(Строка) <> Тип("ФиксированнаяСтруктура") Или Строка.Количество() <> 9
            Или Не Строка.Активность Или Строка.Сторно
            Или Строка.ПериодРегистрации <> Дата(2026, 10, 1) Или Строка.Сотрудник85 <> "Иван85" Тогда
            ВызватьИсключение "Изменились общие поля своей строки";
        КонецЕсли;
        Строка = СнятьСтроку85(Строка);
        Если Строка.Регистратор = Состояние.А И Строка.НомерСтроки = 1 И Не ВиденыА1
            И Строка.ВидРасчета = Состояние.Работа И Строка.Сумма85 = ?(Этап = 0, 500, 600)
            И Строка.Метка85 = "25ecfba2-7f32-40c5-a5b3-bb5e777e4afb/A1" Тогда
            ВиденыА1 = Истина;
        ИначеЕсли Строка.Регистратор = Состояние.А И Строка.НомерСтроки = 2 И Не ВиденыА2
            И Строка.ВидРасчета = Состояние.Премия И Строка.Сумма85 = 250
            И Строка.Метка85 = "25ecfba2-7f32-40c5-a5b3-bb5e777e4afb/A2" Тогда
            ВиденыА2 = Истина;
        ИначеЕсли Не ТолькоА И Строка.Регистратор = Состояние.Б И Строка.НомерСтроки = 1 И Не ВиденыБ1
            И Строка.ВидРасчета = Состояние.Работа И Строка.Сумма85 = 500
            И Строка.Метка85 = "25ecfba2-7f32-40c5-a5b3-bb5e777e4afb/B1" Тогда
            ВиденыБ1 = Истина;
        Иначе
            ВызватьИсключение "Не совпали ключ, вид расчета, сумма или собственная метка";
        КонецЕсли;
    КонецЦикла;
    Если Не ВиденыА1 Или Не ВиденыА2 Или (Не ТолькоА И Не ВиденыБ1) Тогда
        ВызватьИсключение "Не прочитаны все собственные строки";
    КонецЕсли;
КонецПроцедуры

Процедура ПроверитьНабор85(Набор, Состояние, Этап) Экспорт
    Если ТипЗнч(Набор) <> Тип("РегистрРасчетаНаборЗаписей.Начисления85") Или Набор.Количество() <> 2
        Или Не Набор.Отбор.Регистратор.Использование Или Набор.Отбор.Регистратор.Значение <> Состояние.А Тогда
        ВызватьИсключение "Набор должен принадлежать только собственному документу A";
    КонецЕсли;
    Строки = Новый Массив;
    Для Каждого Строка Из Набор Цикл
        Строки.Добавить(СнятьСтроку85(Строка));
    КонецЦикла;
    ПроверитьСтроки85(Новый ФиксированныйМассив(Строки), Состояние, Этап, Истина);
КонецПроцедуры

Функция Итоги85(Состояние, Регистратор = Неопределено, Вид = Неопределено) Экспорт
    Сумма = 0;
    Для Каждого Строка Из Состояние.Строки Цикл
        Если (Регистратор = Неопределено Или Строка.Регистратор = Регистратор)
            И (Вид = Неопределено Или Строка.ВидРасчета = Вид) Тогда
            Сумма = Сумма + Строка.Сумма85;
        КонецЕсли;
    КонецЦикла;
    Возврат Сумма;
КонецФункции

Процедура ПроверитьРазрешение85(Набор, Этап) Экспорт
    ПроверитьСтенд85();
    Разрешение = Неопределено;
    Если Не Набор.ДополнительныеСвойства.Свойство("СвояЗапись85", Разрешение)
        Или ТипЗнч(Разрешение) <> Тип("Структура") Или Разрешение.Количество() <> 3 Тогда
        ВызватьИсключение "Нет отдельного согласия на собственную учебную запись";
    КонецЕсли;
    Если Разрешение.Метка <> "25ecfba2-7f32-40c5-a5b3-bb5e777e4afb" Или Разрешение.Этап <> Этап
        Или ТипЗнч(Разрешение.Состояние) <> Тип("ФиксированнаяСтруктура") Тогда
        ВызватьИсключение "Разрешение уже использовано либо принадлежит другой операции";
    КонецЕсли;
    Свежий = ПрочитатьСтенд85(?(Этап = "готово", 0, 1));
    Если Разрешение.Состояние.Количество() <> 5 Или Разрешение.Состояние.А <> Свежий.А
        Или Разрешение.Состояние.Б <> Свежий.Б Или Разрешение.Состояние.Работа <> Свежий.Работа
        Или Разрешение.Состояние.Премия <> Свежий.Премия Тогда
        ВызватьИсключение "Разрешение не совпадает с фактическими собственными ссылками базы";
    КонецЕсли;
    ПроверитьСтроки85(Разрешение.Состояние.Строки, Свежий, 0, Ложь);
    ПроверитьНабор85(Набор, Свежий, 1);
КонецПроцедуры

Native сервер/толстый клиент; тело только с compiled символом ТолстыйКлиентОбычноеПриложение собственной файловой CF. Иные контексты отказывают до клиентского процесса.

Процедура ПередЗаписью(Отказ, Замещение, ТолькоЗапись, ЗаписьФактическогоПериодаДействия, ЗаписьПерерасчетов)
    Отказ = Истина;
#Если ТолстыйКлиентОбычноеПриложение Тогда
    Если Не Замещение Тогда
        ВызватьИсключение "Дописывание строк в этом учебном процессе запрещено";
    КонецЕсли;
    УчебныеНачисления85.ПроверитьРазрешение85(ЭтотОбъект, "готово");
    Разрешение = ЭтотОбъект.ДополнительныеСвойства.СвояЗапись85;
    Разрешение.Этап = "начато";
    Отказ = Ложь;
#Иначе
    Отказ = Истина;
#КонецЕсли
КонецПроцедуры

Процедура ПриЗаписи(Отказ, Замещение, ТолькоЗапись, ЗаписьФактическогоПериодаДействия, ЗаписьПерерасчетов)
    Отказ = Истина;
#Если ТолстыйКлиентОбычноеПриложение Тогда
    УчебныеНачисления85.ПроверитьРазрешение85(ЭтотОбъект, "начато");
    Разрешение = ЭтотОбъект.ДополнительныеСвойства.СвояЗапись85;
    Разрешение.Этап = "записано";
    Отказ = Ложь;
#Иначе
    Отказ = Истина;
#КонецЕсли
КонецПроцедуры

Только толстый обычный клиент этой учебной файловой CF.

Процедура ПриНачалеРаботыСистемы()
#Если ТолстыйКлиентОбычноеПриложение Тогда
    УчебныеНачисления85.ПроверитьСтенд85();
    Форма = ПолучитьОбщуюФорму("ПанельНачислений85");
    Если Форма.ВладелецФормы <> Неопределено Тогда
        ВызватьИсключение "Откройте самостоятельную учебную панель";
    КонецЕсли;
    Форма.Открыть();
#Иначе
    ВызватьИсключение "Нужен толстый обычный клиент собственной файловой базы";
#КонецЕсли
КонецПроцедуры

Только толстый обычный клиент; этот модуль полностью дополняет текущий MAIN.

Перем Остановка85, Этап85, СвойСнимок85, ФормаВидов85, ФормаСписка85;

Процедура ПриОткрытии()
    Если Остановка85 <> Неопределено Или Этап85 <> Неопределено Тогда
        Остановка85 = Истина;
        ВызватьИсключение "Повторное открытие не снимает остановку";
    КонецЕсли;
    Остановка85 = Ложь;
    Попытка
#Если ТолстыйКлиентОбычноеПриложение Тогда
        СвойСнимок85 = УчебныеНачисления85.ПрочитатьСтенд85(0);
        Если ВладелецФормы <> Неопределено Тогда
            ВызватьИсключение "Откройте самостоятельную собственную общую форму";
        КонецЕсли;
        Типы = ПланыВидовРасчета.ТипВсеСсылки();
        Если Типы.Типы().Количество() <> 1 Или Не Типы.СодержитТип(Тип("ПланВидовРасчетаСсылка.Начисления85")) Тогда
            ВызватьИсключение "Типы ссылок должны принадлежать только своему ПВР";
        КонецЕсли;
        Вид85 = СвойСнимок85.Работа;
        Поле = ЭлементыФормы.Вид85;
        Если ТипЗнч(Поле) <> Тип("ПолеВвода") Или Поле.Данные <> "Вид85" Тогда
            ВызватьИсключение "Поле ввода должно быть связано со своей ссылкой на вид расчета";
        КонецЕсли;
        Поле.БыстрыйВыбор = Истина;
        Если Не Поле.БыстрыйВыбор Или Поле.Значение <> СвойСнимок85.Работа Тогда
            ВызватьИсключение "Не прочитан собственный вид расчета в быстром выборе";
        КонецЕсли;
        Этап85 = 0;
        Состояние85 = "База1250; документA750; Работа1000. Записи пока не изменялись.";
#Иначе
        ВызватьИсключение "Нужен толстый обычный клиент";
#КонецЕсли
    Исключение
        Остановка85 = Истина;
        ВызватьИсключение;
    КонецПопытки;
КонецПроцедуры

Процедура ОткрытьСписок85(Элемент)
    Попытка
        Если Остановка85 Или Элемент <> ЭлементыФормы.ОткрытьСписок85 Тогда
            ВызватьИсключение "Нужна своя команда неостановленной формы";
        КонецЕсли;
        УчебныеНачисления85.ПрочитатьСтенд85(Этап85);
        ФормаСписка85 = РегистрыРасчета.Начисления85.ПолучитьФормуСписка("ФормаСписка85", ЭтаФорма, Новый УникальныйИдентификатор);
        Если ФормаСписка85 = Неопределено Или ФормаСписка85.ВладелецФормы <> ЭтаФорма Тогда
            ВызватьИсключение "Не получена своя форма списка с настоящим владельцем";
        КонецЕсли;
        ФормаСписка85.ПараметрОтборПоРегистратору = СвойСнимок85.А;
        ФормаСписка85.Подготовить85(СвойСнимок85, Этап85, Вид85);
        ФормаСписка85.Открыть();
    Исключение
        Остановка85 = Истина;
        ВызватьИсключение;
    КонецПопытки;
КонецПроцедуры

Процедура ВыбратьВид85(Элемент)
    Попытка
        Если Остановка85 Или Элемент <> ЭлементыФормы.ВыбратьВид85 Тогда
            ВызватьИсключение "Нужна своя команда выбора";
        КонецЕсли;
        УчебныеНачисления85.ПрочитатьСтенд85(Этап85);
        ФормаВидов85 = ПланыВидовРасчета.Начисления85.ПолучитьФормуСписка("ФормаСписка85", ЭтаФорма, Новый УникальныйИдентификатор);
        Если ФормаВидов85 = Неопределено Или ФормаВидов85.ВладелецФормы <> ЭтаФорма Тогда
            ВызватьИсключение "Не получена собственная форма видов расчета";
        КонецЕсли;
        ФормаВидов85.ПараметрТекущаяСтрока = Вид85;
        ФормаВидов85.Подготовить85(СвойСнимок85, Этап85);
        ФормаВидов85.Открыть();
    Исключение
        Остановка85 = Истина;
        ВызватьИсключение;
    КонецПопытки;
КонецПроцедуры

Процедура ВидПриИзменении85(Элемент)
    Попытка
        Если Остановка85 Или Элемент <> ЭлементыФормы.Вид85
            Или (Вид85 <> СвойСнимок85.Работа И Вид85 <> СвойСнимок85.Премия) Тогда
            ВызватьИсключение "Изменение должно прийти от своего ввода с подготовленной ссылкой";
        КонецЕсли;
        Состояние = УчебныеНачисления85.ПрочитатьСтенд85(Этап85);
        Состояние85 = "Всего=" + Строка(УчебныеНачисления85.Итоги85(Состояние)) + "; выбранный вид=" + Строка(УчебныеНачисления85.Итоги85(Состояние, , Вид85));
    Исключение
        Остановка85 = Истина;
        ВызватьИсключение;
    КонецПопытки;
КонецПроцедуры

Процедура ОбработкаВыбора(ЗначениеВыбора, Источник)
    Попытка
        Если Остановка85 Или Источник <> ФормаВидов85
            Или ТипЗнч(ЗначениеВыбора) <> Тип("ПланВидовРасчетаСсылка.Начисления85")
            Или (ЗначениеВыбора <> СвойСнимок85.Работа И ЗначениеВыбора <> СвойСнимок85.Премия) Тогда
            ВызватьИсключение "Выбор должен прийти из собственной формы с одним своим видом расчета";
        КонецЕсли;
        Состояние = УчебныеНачисления85.ПрочитатьСтенд85(Этап85);
        Вид85 = ЗначениеВыбора;
        Состояние85 = "Принята настоящая ссылка; сумма выбранного вида=" + Строка(УчебныеНачисления85.Итоги85(Состояние, , Вид85));
    Исключение
        Остановка85 = Истина;
        ВызватьИсключение;
    КонецПопытки;
КонецПроцедуры

Процедура ОткрытьНабор85(Элемент)
    Попытка
        Если Остановка85 Или Этап85 <> 0 Или Элемент <> ЭлементыФормы.ОткрытьНабор85 Тогда
            ВызватьИсключение "Изменение своегоA разрешено только один раз в исходном состоянии";
        КонецЕсли;
        Состояние = УчебныеНачисления85.ПрочитатьСтенд85(0);
        Набор = РегистрыРасчета.Начисления85.СоздатьНаборЗаписей();
        Если Набор.Количество() <> 0 Тогда
            ВызватьИсключение "Фабрика должна вернуть новый пустой набор";
        КонецЕсли;
        Набор.Отбор.Регистратор.Установить(Состояние.А, Истина);
        Набор.Прочитать();
        УчебныеНачисления85.ПроверитьНабор85(Набор, Состояние, 0);
        ФормаНабора = Набор.ПолучитьФорму("ФормаНабора85", ЭтаФорма, Новый УникальныйИдентификатор);
        Если ФормаНабора = Неопределено Или ФормаНабора.ВладелецФормы <> ЭтаФорма Тогда
            ВызватьИсключение "Не получена форма этого собственного набора";
        КонецЕсли;
        ФормаНабора.Подготовить85(Состояние);
        ФормаНабора.ОткрытьМодально();
        Итог = УчебныеНачисления85.ПрочитатьСтенд85(ФормаНабора.Результат85);
        Этап85 = ФормаНабора.Результат85;
        Состояние85 = "Всего=" + Строка(УчебныеНачисления85.Итоги85(Итог)) + "; A=" + Строка(УчебныеНачисления85.Итоги85(Итог, Итог.А)) + "; Б=" + Строка(УчебныеНачисления85.Итоги85(Итог, Итог.Б));
    Исключение
        Остановка85 = Истина;
        Состояние85 = "СТОП: исход записи неизвестен; повторная запись автоматически не выполняется.";
        ВызватьИсключение;
    КонецПопытки;
КонецПроцедуры

Только толстый обычный клиент; этот модуль полностью дополняет текущий MAIN.

Перем Остановка85, Этап85, Снимок85;

Процедура Подготовить85(Состояние) Экспорт
    Если Остановка85 <> Неопределено Или Этап85 <> Неопределено Тогда
        Остановка85 = Истина;
        ВызватьИсключение "Повторная подготовка не снимает остановку";
    КонецЕсли;
    Остановка85 = Ложь;
    Попытка
        Снимок85 = УчебныеНачисления85.ПрочитатьСтенд85(0);
        Если Состояние.А <> Снимок85.А Или Состояние.Б <> Снимок85.Б Тогда
            ВызватьИсключение "Это другие собственные документы";
        КонецЕсли;
        УчебныеНачисления85.ПроверитьНабор85(Набор85, Снимок85, 0);
        Согласие85 = Ложь;
        Результат85 = 0;
        Этап85 = 0;
    Исключение
        Остановка85 = Истина;
        ВызватьИсключение;
    КонецПопытки;
КонецПроцедуры

Процедура ПередОткрытием(Отказ, СтандартнаяОбработка)
    Отказ = Истина;
    Если Остановка85 Или Этап85 <> 0 Или ВладелецФормы = Неопределено Тогда
        ВызватьИсключение "Нужна новая подготовленная собственная форма набора";
    КонецЕсли;
    УчебныеНачисления85.ПроверитьНабор85(Набор85, Снимок85, 0);
    Отказ = Ложь;
КонецПроцедуры

Процедура ПриОткрытии()
    Попытка
        Если Остановка85 Или Этап85 <> 0 Тогда
            ВызватьИсключение "Форма уже остановлена или подготовлена повторно";
        КонецЕсли;
        Поле = ЭлементыФормы.Записи85;
        Если ТипЗнч(Поле) <> Тип("ТабличноеПоле") Или Поле.Данные <> "Набор85" Или Не Поле.ТолькоПросмотр Тогда
            ВызватьИсключение "Табличное поле должно показывать только собственный подготовленный набор";
        КонецЕсли;
        Колонка = Поле.Колонки.ВидРасчета;
        Колонка.ОтображатьСтандартнуюКартинку = Истина;
        Если Не Поле.Колонки.ВидРасчета.ОтображатьСтандартнуюКартинку Тогда
            ВызватьИсключение "Не перечитана штатная политика колонки набора";
        КонецЕсли;
        УчебныеНачисления85.ПроверитьНабор85(Набор85, Снимок85, 0);
        Для Каждого Запись Из Набор85 Цикл
            Если Запись.НомерСтроки = 1 И Запись.ВидРасчета = Снимок85.Работа Тогда
                Запись.Сумма85 = 600;
            КонецЕсли;
        КонецЦикла;
        УчебныеНачисления85.ПроверитьНабор85(Набор85, Снимок85, 1);
        УчебныеНачисления85.ПрочитатьСтенд85(0);
        Этап85 = 1;
        Состояние85 = "В памятиA850, в базеA750 и всего1250. Для единственной записи отметьте согласие и нажмите Записать; Отмена не записывает.";
    Исключение
        Остановка85 = Истина;
        ВызватьИсключение;
    КонецПопытки;
КонецПроцедуры

Процедура Записать85(Элемент)
    Попытка
        Если Остановка85 Или Этап85 <> 1 Или Элемент <> ЭлементыФормы.Записать85
            Или ТипЗнч(Согласие85) <> Тип("Булево") Или Не Согласие85 Тогда
            ВызватьИсключение "Нужно отдельное явное согласие на запись только своегоA";
        КонецЕсли;
        УчебныеНачисления85.ПрочитатьСтенд85(0);
        УчебныеНачисления85.ПроверитьНабор85(Набор85, Снимок85, 1);
        Разрешение = Новый Структура("Метка,Этап,Состояние", "25ecfba2-7f32-40c5-a5b3-bb5e777e4afb", "готово", Снимок85);
        Набор85.ДополнительныеСвойства.Вставить("СвояЗапись85", Разрешение);
        Записано = ЭтаФорма.ЗаписатьВФорме();
        Если ТипЗнч(Записано) <> Тип("Булево") Или Не Записано Или Этап85 <> 2 Или Результат85 <> 1 Тогда
            ВызватьИсключение "Запись отказана либо ее окончательный результат не подтвержден";
        КонецЕсли;
        Итоги = УчебныеНачисления85.ПрочитатьСтенд85(1);
        Если УчебныеНачисления85.Итоги85(Итоги) <> 1350 Или УчебныеНачисления85.Итоги85(Итоги, Итоги.Б) <> 500 Тогда
            ВызватьИсключение "Не подтверждены полный итог1350 и неизменный документБ500";
        КонецЕсли;
        Состояние85 = "Подтверждено: A850, Б500, всего1350. Повторная запись запрещена.";
    Исключение
        Остановка85 = Истина;
        Результат85 = -1;
        Состояние85 = "СТОП: неизвестный исход; запись или обработчики могли завершиться частично. Автоматического повтора нет.";
        ВызватьИсключение;
    КонецПопытки;
КонецПроцедуры

Процедура ПередЗаписью(Отказ)
    Отказ = Истина;
    Попытка
        Если Остановка85 Или Этап85 <> 1 Или Не Согласие85 Тогда
            ВызватьИсключение "Стандартная запись без своего согласия и разрешения запрещена";
        КонецЕсли;
        УчебныеНачисления85.ПроверитьРазрешение85(Набор85, "готово");
        Отказ = Ложь;
    Исключение
        Остановка85 = Истина;
        Результат85 = -1;
        ВызватьИсключение;
    КонецПопытки;
КонецПроцедуры

Процедура ПослеЗаписи()
    Попытка
        Если Остановка85 Или Этап85 <> 1 Тогда
            ВызватьИсключение "Форма не ожидает завершения своей записи";
        КонецЕсли;
        УчебныеНачисления85.ПроверитьРазрешение85(Набор85, "записано");
        УчебныеНачисления85.ПрочитатьСтенд85(1);
        Набор85.ДополнительныеСвойства.Удалить("СвояЗапись85");
        Этап85 = 2;
        Результат85 = 1;
    Исключение
        Остановка85 = Истина;
        Результат85 = -1;
        ВызватьИсключение;
    КонецПопытки;
КонецПроцедуры

Процедура Отмена85(Элемент)
    Попытка
        Если Остановка85 Или Этап85 <> 1 Или Элемент <> ЭлементыФормы.Отмена85 Тогда
            ВызватьИсключение "Отмена разрешена только до собственной записи";
        КонецЕсли;
        УчебныеНачисления85.ПрочитатьСтенд85(0);
        Результат85 = 0;
        ЭтаФорма.Закрыть();
    Исключение
        Остановка85 = Истина;
        Результат85 = -1;
        ВызватьИсключение;
    КонецПопытки;
КонецПроцедуры

Только толстый обычный клиент; этот модуль полностью дополняет текущий MAIN.

Перем Остановка85, Готово85, Снимок85, Этап85;

Процедура Подготовить85(Состояние, Этап) Экспорт
    Если Остановка85 <> Неопределено Или Готово85 <> Неопределено Тогда
        Остановка85 = Истина;
        ВызватьИсключение "Повторная подготовка формы видов расчета запрещена";
    КонецЕсли;
    Остановка85 = Ложь;
    Попытка
        Снимок85 = УчебныеНачисления85.ПрочитатьСтенд85(Этап);
        Если Состояние.Работа <> Снимок85.Работа Или Состояние.Премия <> Снимок85.Премия
            Или (ЭтаФорма.ПараметрТекущаяСтрока <> Снимок85.Работа И ЭтаФорма.ПараметрТекущаяСтрока <> Снимок85.Премия) Тогда
            ВызватьИсключение "Начальная строка должна быть своим настоящим видом расчета";
        КонецЕсли;
        Этап85 = Этап;
        Готово85 = Истина;
    Исключение
        Остановка85 = Истина;
        ВызватьИсключение;
    КонецПопытки;
КонецПроцедуры

Процедура ПередОткрытием(Отказ, СтандартнаяОбработка)
    Отказ = Истина;
    Если Остановка85 Или Готово85 <> Истина Или ВладелецФормы = Неопределено Тогда
        ВызватьИсключение "Нужна подготовленная форма со своим владельцем";
    КонецЕсли;
    УчебныеНачисления85.ПрочитатьСтенд85(Этап85);
    Отказ = Ложь;
КонецПроцедуры

Процедура ПриОткрытии()
    Попытка
        Если Остановка85 Или Готово85 <> Истина
            Или ТипЗнч(Список85) <> Тип("ПланВидовРасчетаСписок.Начисления85") Тогда
            ВызватьИсключение "Основным реквизитом должен быть настоящий список своегоПВР";
        КонецЕсли;
        Поле = ЭлементыФормы.Виды85;
        Если ТипЗнч(Поле) <> Тип("ТабличноеПоле") Или Поле.Данные <> "Список85" Или Не Поле.ТолькоПросмотр Тогда
            ВызватьИсключение "Список видов расчета должен показываться только в своем поле";
        КонецЕсли;
        Колонка = Поле.Колонки.Наименование;
        Колонка.ОтображатьСтандартнуюКартинку = Истина;
        Если Не Поле.Колонки.Наименование.ОтображатьСтандартнуюКартинку Тогда
            ВызватьИсключение "Не прочитана политика штатной картинки вида расчета";
        КонецЕсли;
        РежимВыбора = Истина;
        ЗакрыватьПриВыборе = Истина;
        УчебныеНачисления85.ПрочитатьСтенд85(Этап85);
    Исключение
        Остановка85 = Истина;
        ВызватьИсключение;
    КонецПопытки;
КонецПроцедуры

Процедура ВыборВида85(Элемент, ВыбраннаяСтрока, Колонка, СтандартнаяОбработка)
    СтандартнаяОбработка = Ложь;
    Попытка
        Если Остановка85 Или Готово85 <> Истина Или Элемент <> ЭлементыФормы.Виды85
            Или Колонка <> Элемент.Колонки.Наименование
            Или ТипЗнч(ВыбраннаяСтрока) <> Тип("ПланВидовРасчетаСсылка.Начисления85")
            Или ВыбраннаяСтрока <> Элемент.ТекущаяСтрока
            Или (ВыбраннаяСтрока <> Снимок85.Работа И ВыбраннаяСтрока <> Снимок85.Премия) Тогда
            ВызватьИсключение "Выбирайте один собственный вид расчета в его настоящей колонке";
        КонецЕсли;
        УчебныеНачисления85.ПрочитатьСтенд85(Этап85);
        ЭтаФорма.ОповеститьОВыборе(ВыбраннаяСтрока);
    Исключение
        Остановка85 = Истина;
        ВызватьИсключение;
    КонецПопытки;
КонецПроцедуры