Глобальный контекст.ПолучитьРегиональныеНастройкиИнформационнойБазы

Тонкий управляемый клиент

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

Только тонкий клиент Windows; настоящее событие запуска0 и перехода2.

&НаКлиенте
Перем Остановка85, Запущено85, ОжидающийСнимок85, СнимокЗапуска85, ПринятоКоличество85, ПринятыйСнимок85, ТекущаяФорма85, ИсходнаяФорма85, ИсходныйСнимок85;

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

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

&НаКлиенте
Функция ПроверитьПереход85(ДанныеПерехода)
    Если ТипЗнч(ДанныеПерехода) <> Тип("ДанныеПереходаПоНавигационнойСсылке") Тогда
        ВызватьИсключение "Нужны реальные данные нативного перехода, не структура или самодельный объект";
    КонецЕсли;
    База = ДанныеПерехода.БазоваяНавигационнаяСсылка;
    Относительная = ДанныеПерехода.ОтносительнаяНавигационнаяСсылка;
    Запуск = ДанныеПерехода.Запуск;
    ПараметрыСсылки = ДанныеПерехода.ПараметрыНавигационнойСсылки;
    СвоиПути = УчебнаяСсылкаСчетаСервер85.СобственныеПути85();
    Если ТипЗнч(База) <> Тип("Строка") Или База <> СвоиПути.База
        Или ТипЗнч(Относительная) <> Тип("Строка") Или Относительная <> СвоиПути.Относительная
        Или ТипЗнч(Запуск) <> Тип("Булево") Или ТипЗнч(ПараметрыСсылки) <> Тип("Соответствие")
        Или ПараметрыСсылки.Количество() <> 2 Тогда
        ВызватьИсключение "Переход разрешен только по полной собственной ссылке с двумя параметрами";
    КонецЕсли;
    Для Каждого ПараметрСсылки Из ПараметрыСсылки Цикл
        Если ТипЗнч(ПараметрСсылки.Ключ) <> Тип("Строка") Или ТипЗнч(ПараметрСсылки.Значение) <> Тип("Строка")
            Или (ПараметрСсылки.Ключ <> "qty" И ПараметрСсылки.Ключ <> "stamp") Тогда
            ВызватьИсключение "Неизвестный параметр, массив повторных значений или неверный тип";
        КонецЕсли;
    КонецЦикла;
    КоличествоТекст = ПараметрыСсылки.Получить("qty");
    Метка = ПараметрыСсылки.Получить("stamp");
    Если Метка <> СвоиПути.Метка Или (КоличествоТекст <> "2" И КоличествоТекст <> "3") Тогда
        ВызватьИсключение "Метка своей CF или разрешенное количество не совпали";
    КонецЕсли;
    Возврат Новый ФиксированнаяСтруктура("База,Относительная,Запуск,Метка,Количество", База, Относительная, Запуск, Метка, Число(КоличествоТекст));
КонецФункции

&НаКлиенте
Процедура ПринятьКоличество85(Количество)
    Если Запущено85 <> Истина Или Остановка85 <> Ложь Тогда
        ВызватьИсключение "Открытие своей формы разрешено только после настоящего ПриНачалеРаботы";
    КонецЕсли;
    Если ПринятоКоличество85 = Количество Тогда
        ТекущаяФорма85.ПроверитьГотовность85(Количество);
        Сравнить85(ПринятыйСнимок85, ТекущаяФорма85.СнятьСнимок85());
        Если ИсходнаяФорма85 <> Неопределено Тогда
            Сравнить85(ИсходныйСнимок85, ИсходнаяФорма85.СнятьСнимок85());
        КонецЕсли;
        Возврат;
    КонецЕсли;
    Если ПринятоКоличество85 = 3 Тогда
        ВызватьИсключение "В этом опыте после принятого 750 обратный переход к 500 не выполняется";
    КонецЕсли;
    Если ТекущаяФорма85 <> Неопределено Тогда
        Если Не ТекущаяФорма85.Открыта() Тогда
            ВызватьИсключение "Для внутреннего опыта оставьте свою исходную форму открытой";
        КонецЕсли;
        Сравнить85(ПринятыйСнимок85, ТекущаяФорма85.СнятьСнимок85());
        ИсходнаяФорма85 = ТекущаяФорма85;
        ИсходныйСнимок85 = ИсходнаяФорма85.СнятьСнимок85();
        Если ИсходныйСнимок85.Количество <> 2 Или ИсходныйСнимок85.Итог <> 500 Тогда
            ВызватьИсключение "Исходная форма внутреннего опыта должна показывать 500";
        КонецЕсли;
    КонецЕсли;
    ПараметрыФормы = Новый Структура("КоличествоЦель85", Количество);
    Кандидат = ПолучитьФорму("Обработка.КалькуляторСсылки85.Форма.Форма", ПараметрыФормы, , Истина);
    Если Кандидат = Неопределено Или ТипЗнч(Кандидат) <> Тип("ФормаКлиентскогоПриложения") Тогда
        ВызватьИсключение "Нативная фабрика не создала новую собственную форму";
    КонецЕсли;
    Если Кандидат.ВладелецФормы <> Неопределено Тогда
        ВызватьИсключение "У свежей формы этого опыта не должно быть владельца";
    КонецЕсли;
    Кандидат.ПроверитьГотовность85(Количество);
    СнимокКандидата = Кандидат.СнятьСнимок85();
    Если СнимокКандидата.Итог <> Количество * 250 Тогда
        ВызватьИсключение "Новая форма не подтвердила собственный расчет";
    КонецЕсли;
    Кандидат.Открыть();
    Сравнить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(2);
        Иначе
            ТекущаяФорма85.ПроверитьГотовность85(ПринятоКоличество85);
            Сравнить85(ПринятыйСнимок85, ТекущаяФорма85.СнятьСнимок85());
        КонецЕсли;
    Исключение
        Остановка85 = Истина;
        ВызватьИсключение;
    КонецПопытки;
КонецПроцедуры

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

Серверное создание2, серверный readback связей, клиентские команды из штатного шаблона и только примитивные поля через RPC.

&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
    Отказ = Истина;
    СтандартнаяОбработка = Ложь;
    Если Готово85 Или Остановка85 Тогда
        ВызватьИсключение "Повторная подготовка не сбрасывает состояние собственной формы";
    КонецЕсли;
    Остановка85 = Истина;
    Попытка
        УчебнаяСсылкаСчетаСервер85.ПроверитьСтенд85();
        Если ТипЗнч(ЭтаФорма.Параметры) <> Тип("ДанныеФормыСтруктура")
            Или Не ЭтаФорма.Параметры.Свойство("КоличествоЦель85", Цель)
            Или ТипЗнч(Цель) <> Тип("Число") Или (Цель <> 2 И Цель <> 3) Тогда
            ВызватьИсключение "Нужен собственный числовой параметр формы 2 или 3";
        КонецЕсли;
        Объект.Количество85 = 2;
        Объект.Цена85 = 250;
        Объект.Итог85 = Объект.Количество85 * Объект.Цена85;
        Объект.ДатаСчета85 = Дата(2026, 10, 10, 12, 30, 0);
        ИсходноеКоличество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) + "×250=" + Строка(Объект.Итог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");
    Для Каждого Связь Из Связи Цикл
        Поле = ЭтаФорма.Элементы.Найти(Связь.Ключ);
        Если ТипЗнч(Поле) <> Тип("ПолеФормы") Или Поле.ПутьКДанным <> Связь.Значение Или Поле.ТолькоПросмотр <> Истина Тогда
            ВызватьИсключение "Не совпадает собственное readonly поле: " + Связь.Ключ;
        КонецЕсли;
    КонецЦикла;
    КомандаСсылки = ЭтаФорма.Команды.Найти("СсылкаНаТри85");
    КомандаПерехода = ЭтаФорма.Команды.Найти("ПерейтиКТрем85");
    Если ТипЗнч(КомандаСсылки) <> Тип("КомандаФормы") Или ТипЗнч(КомандаПерехода) <> Тип("КомандаФормы") Тогда
        ВызватьИсключение "Нативный поиск не дал две собственные команды";
    КонецЕсли;
    Если КомандаСсылки.Действие <> "СсылкаНаТри85" Или КомандаПерехода.Действие <> "ПерейтиКТрем85" Тогда
        ВызватьИсключение "Не совпали обработчики двух собственных команд";
    КонецЕсли;
КонецПроцедуры

&НаКлиентеНаСервереБезКонтекста
Процедура ПроверитьЗначения85(Количество, Цена, Итог, ДатаСчета, ИсходноеКоличество, ИсходнаяЦена, ИсходныйИтог, ИсходнаяДата)
    Если ТипЗнч(Количество) <> Тип("Число") Или (Количество <> 2 И Количество <> 3)
        Или ТипЗнч(Цена) <> Тип("Число") Или Цена <> 250 Или ТипЗнч(Итог) <> Тип("Число") Или Итог <> Количество * Цена
        Или ТипЗнч(ДатаСчета) <> Тип("Дата") Или ДатаСчета <> Дата(2026, 10, 10, 12, 30, 0)
        Или ТипЗнч(ИсходноеКоличество) <> Тип("Число") Или ИсходноеКоличество <> 2
        Или ТипЗнч(ИсходнаяЦена) <> Тип("Число") Или ИсходнаяЦена <> 250
        Или ТипЗнч(ИсходныйИтог) <> Тип("Число") Или ИсходныйИтог <> 500
        Или ТипЗнч(ИсходнаяДата) <> Тип("Дата") Или ИсходнаяДата <> Дата(2026, 10, 10, 12, 30, 0) Тогда
        ВызватьИсключение "Не совпали все восемь числовых/датовых полей своего счета и свежего исходного буфера";
    КонецЕсли;
КонецПроцедуры

&НаКлиентеНаСервереБезКонтекста
Процедура ПроверитьЧисла85(Количество, Цена, Итог, ДатаСчета, ИсходноеКоличество, ИсходнаяЦена, ИсходныйИтог, ИсходнаяДата, СуммаТекст, ДатаТекст, ВремяТекст, Регион, ПервыйДень, СвояСсылка, Статус)
    ПроверитьЗначения85(Количество, Цена, Итог, ДатаСчета, ИсходноеКоличество, ИсходнаяЦена, ИсходныйИтог, ИсходнаяДата);
    Тексты = Новый Структура("Сумма,Дата,Время,Регион,Ссылка,Статус", СуммаТекст, ДатаТекст, ВремяТекст, Регион, СвояСсылка, Статус);
    Для Каждого ПолеТекста Из Тексты Цикл
        Если ТипЗнч(ПолеТекста.Значение) <> Тип("Строка") Или ПустаяСтрока(ПолеТекста.Значение) Тогда
            ВызватьИсключение "Не готово связанное строковое поле: " + ПолеТекста.Ключ;
        КонецЕсли;
    КонецЦикла;
    Если ТипЗнч(ПервыйДень) <> Тип("Число") Или ПервыйДень <> Цел(ПервыйДень) Или ПервыйДень < 0 Или ПервыйДень > 7 Тогда
        ВызватьИсключение "Первый день должен быть целым нативным числом от 0 до 7";
    КонецЕсли;
КонецПроцедуры

&НаСервере
Функция СнятьСнимокНаСервере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();
    Если Снимок.Количество <> Количество Или Снимок.Итог <> Количество * 250 Тогда
        Остановка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 = Истина;
        ВызватьИсключение;
    КонецПопытки;
КонецПроцедуры