Ошибка при вызове метода контекста loadaddin

Написал внешнюю компоненту по примеру из Книга знаний: Написание внешних компонент для 1С (Delphi)

На компьютере, где была создана длл, в 1С:Предприятие 8.1 длл загружается, на другом компе — уже нет 🙂 В чем может быть проблема? Может в неправильной сборке самой длл или в чем-то еще?

PS. Загружаю процедурой ЗагрузитьВнешнююКомпоненту, указываю полный путь к длл.

(13) Нормально.

Тогда приводи код, который писал.

З.Ы. Есть маленький вариант, что ты не поменял значение константы

CLSID_AddInObject, а на другом компе уже поставлена ВК-шка на основе Ромиксовского шаблона.

Попробуй вместо

const c_AddinName = ‘FamiCommWrapper’; //Имя внешней компоненты

написать

const c_AddinName = ‘TestVK’; //Имя внешней компоненты

(31) не знаю почему правильно, но попробую 🙂

(to ALL) Загрузка внешней «компоненты-шаблона» из Книга знаний: Написание внешних компонент для 1С (Delphi) идет без проблем

bask

34 — 22.12.09 — 21:48

Довольно часто начинающие 1С разработчики сталкиваются с ошибками, которых достаточно легко избежать. Ниже мы рассмотрим топ 11 ошибок и способы их исправления. Также доступна видеоверсия статьи

Содержание

Поле объекта не обнаружено

Существует множество статей, которые описывают возможные причины возникновения в 1С ошибки “Поле объекта не обнаружено”. Порой это связывают с обновлением платформы, обновлением типового релиза, или с какими-то другими причинами.

Мы же будем оперировать фактами. В конце статьи прилагается внешняя обработка, в которой воспроизведена данная ошибка.

Такое сообщение платформа выдает, когда пытается обратиться к свойству объекта языка, которого у данного объекта нет. Не важно, что это за объект – документ, справочник, таблица значений , или сообщение пользователю.

• Удалили табличную часть, к которой обращаемся в коде?
• Переименовали реквизит, а в коде не исправили?
• Заменили значение со ссылки на неопределено?

Вуаля – платформа выдаст ошибку “Поле объекта не обнаружено”!

Как исправить? Исходя из природы ошибки – переименовать реквизит на нужное имя, отредактировать код, или использовать правильные обращения к стандартным свойствам объекта.

Например, у объекта “СообщениеПользователю” нет свойства “Таблица”, и следующий код приведет к ошибке:

Сообщение = Новый СообщениеПользователю;
Сообщение.Таблица = “Ошибка”;

Индекс находится за границами массива

Что означает такое сообщение системы? Как правило, с данной ошибкой разработчик сталкивается при некорректной работе с коллекциями. Самые частые случаи появления ошибки “Индекс находится за границами массива”.

• Использование при обходе коллекции количества элементов вместо индекса. Индексы начинаются с нуля, а количество элементов – с единицы. Поэтому следующий код гарантированно приведет к ошибке: Массив[Массив.Количество()]
• Последствия удаления элементов из коллекции, очистки коллекции или замены коллекции на пустую
• Ошибочное увеличение счетчика в цикле “Для”

 Как исправить? Для удаления элементов из коллекции по условию – использовать обратный цикл. Добавлять условие на соответствие счетчика цикла и индекса массива. Не увеличивать счетчик внутри кода цикла Для … Цикл … КонецЦикла

Обращение к процедуре как к функции

Суть этой ошибки в том, что процедура не может возвращать значение. И если мы в коде используем вызов процедуры справа от знака присваивания, это приведет к ошибке.

Данная ошибка имеет две вариации – если используется стандартная процедура из методов какого-нибудь объекта, то фраза будет звучать “Обращение к процедуре объекта как к функции”. Если же использовать процедуру, объявленную в коде, то текст ошибки будет “Обращение к процедуре как к функции”.
При этом ошибка использования процедуры объекта является ошибкой времени выполнения – т.е. на этапе сохранения и проверки конфигурации платформа эту ошибку не обнаружит.

А вот неправильное использование процедуры синтаксическая проверка (Ctrl + F7) успешно обнаруживает, и не даст сохранить конфигурацию или внешнюю обработку/отчет, пока ошибка не будет устранена.

Рассмотрим два примера:

1. Воспроизведем ошибку “Обращение к процедуре как к функции”. При этом платформа не даст сохранить изменения, т.к. не проходит синтакс-контроль.

2. Воспроизведем ошибку “Обращение к процедуре объекта как к функции”. Здесь мы неверно используем метод объекта массива “Добавить”, который является процедурой.

Как исправить? Ошибка тривиальная, и исправление тоже. Чаще всего, достаточно внимательно прочитать описание методов объекта во встроенной справке или синтакс-помощнике. Если метод является процедурой, то значений он возвращать не может. Следовательно, нужно модифицировать код так, чтобы такого ошибочного вызова не было.
Если же используется процедура, объявленная в коде, возможно, есть необходимость изменить ее на функцию, либо также скорректировать код, который эту процедуру использует.

Процедура не может возвращать значение

Родственная предыдущей ошибка. Для того, чтобы код возвращал какое-то значение, следует этот код размещать в функции, а не в процедуре.

В процедуре можно написать ключевое слово “Возврат” без параметров. Это будет означать выход из процедуры.

Следующий код является ошибочным, т.к. в теле процедуры Возврат используется с параметром:

Процедура ПроцедураНеМожетВозвращатьЗначение(Команда)
Возврат "Ошибка";
КонецПроцедуры

Как исправить? Платформа сама подсказывает, в каком месте кода ошибка. Нужно изменить текст модуля – либо удалить параметр у ключевого слова Возврат, либо убрать его вовсе, либо изменить процедуру на функцию – зависит от того, какая логика у вашей процедуры, и как вы предполагаете ее использовать.

Переменная не определена

Такой текст ошибки платформа 1С выдает на этапе синтаксического контроля, при сохранении конфигурации, внешнего отчета или обработки.
Причин у этой ошибки может быть несколько.

• Опечатка в имени переменной
• Обращение к переменной, которая нигде в области видимости не объявлена (неявной инициализацией с присвоением значения, явным образом с использованием ключевого слова “Перем”, или передана в качестве параметра)
• Написание на клиенте серверного кода. Например, обращение к менеджеру справочников “Справочники”, и т.п. Клиентская часть приложения “не видит ” серверные объекты языка
• Также ошибка может появиться, если ранее код использовался в режиме толстого клиента, но после был запущен в тонком клиенте.

Как исправить?

Внимательно следить за правильностью набранного кода, своевременно объявлять переменные или передавать их в качестве параметров. Писать серверный код только в серверных модулях, а также использовать соответствующие инструкции препроцессора, например “&НаСервере”.

Значение не является значением объектного типа

Ошибка “Значение не является значением объектного типа” может возникнуть при неверном обращении к объекту языка. Объектный тип – это такие объекты языка, которые содержат в себе другие объекты – свойства, реквизиты и т.п. Эти свойства доступны через точку, например “Объект.СвойствоЭтогоОбъекта”

Но если через точку попытаться использовать какое-то значение, которое внутри себя свойств не имеет – например, любое значение примитивного типа – это и приведет к ошибке.

Разберем более сложный пример:

&НаСервере
Процедура ЗначениеНеЯвляетсяЗначениемОбъектногоТипаНаСервере(Справочники = Ложь)
Сообщить(Справочники.Сотрудники.ПустаяСсылка());
КонецПроцедуры

Ошибка может быть “плавающей”. Если вместо параметра по умолчанию “Справочники = Ложь” будет передан менеджер справочников, то ошибки возникать не будет. А если вызвать процедуру без параметров, то будет использоваться параметр по умолчанию с типом Булево, что и приведет к ошибке.

Чаще всего чтобы исправить ошибку, нужно в отладчике посмотреть, какой тип значения используется. Можно внести изменения в код, чтобы обеспечить корректное поведение (например, в запросе вместо наименования товара выбрать ссылку, и в коде через точку уже обращаться к свойствам ссылки, а не текстового наименования). А можно добавить проверку на нужный тип значения. Т.е. – если значение того типа, который мы ожидаем – выполняем код. Иначе – не выполняем.

Ошибка при вызове метода контекста

В языке 1С у разных объектов (запросов, справочников, табличных документов и др.) есть предопределенные методы, предусмотренные платформой. Обращение к этим методам требует соблюдения порядка и параметров, правильного синтаксиса и соблюдения условий использования. Например, при чтении табличного документа из файла он не должен быть открыт в другой программе, при подключении к http-соединению оно должно быть доступно, и т.п.

Если эти условия не соблюдать, платформа в зависимости от версии может выдавать сообщения вида “Ошибка при вызове метода контекста”, и далее будут следовать более подробные сведения об ошибке – стек вызовов, приведших к ошибке, номер строки и позиции в строке, где произошла ошибка.

Чаще всего ошибка при вызове метода контекста встречается в следующих методах:

1. Записать
2. Прочитать
3. Выполнить
4. Создать
5. ПроверитьВывод

Разберем эту ошибку на примере метода Выполнить объекта Запрос:

Запрос = Новый Запрос("ВЫБРАТЬ ПЕРВЫЕ 1 1 ГДЕ ИСТИНА И");
Запрос.Выполнить();

В тексте запроса допущена ошибка –  после первого условия “ГДЕ ИСТИНА” указан оператор И, но после него нет еще одного условия. В результате при попытке выполнения запроса, платформа вернет ошибку.

Для исправления ошибки зачастую достаточно внимательно использовать методы, при необходимости уточнять порядок, количество и тип параметров – это можно сделать в справке или синтакс-помощнике (встать курсором на имя метода в коде, и нажать сочетание клавиш Ctrl+F1). В случае запроса – нужно передавать синтаксически корректный текст запроса; в случае проверки вывода на печать – в системе должен быть установлен принтер; в случае подключения к почте – должны быть корректно указаны логин и пароль, и т.п.

Тип не может быть выбран в запросе в 1С 8.3 (8.2)

С такой ошибкой начинающие разработчики (да и не только начинающие 😉 ) сталкиваются чаще всего, при чтении запросом данных из таблиц значений, либо из регистров сведений. Все дело в том, что запросы поддерживают далеко не все типы значений. Так, например, нельзя запросом выбрать тип Картинка, ХранилищеЗначений, Шрифт, и многие другие типы, которые не относятся к примитивным или ссылочным типам значений.

Так, если ресурс регистра сведений имеет тип ХранилищеЗначений, выбрать его запросом будет нельзя. Также, если в таблицу значений поместить значения не подходящих типов, а после передать эту таблицу в качестве параметра-источника данных, выполнение запроса также приведет к ошибке “Тип не может быть выбран в запросе”.

Еще одна ситуация, когда запрос будет выдавать ошибку – если таблица значений, которая передается в качестве параметра, имеет не типизированные колонки.

Неверно:

//ТЗОшибочныйТип.Колонки.Добавить("Контрагент");

Верно:

//ТЗОшибочныйТип.Колонки.Добавить("Контрагент", Новый ОписаниеТипов("СправочникСсылка.Контрагенты"));

Для исправления ошибки нужно правильным образом инициализировать колонки таблицы значений, а также не обращаться в запросе к полям, типы которых запросами не поддерживаются.

Использование в 1С модальных окон в данном режиме запрещено

Платформа будет выдавать такое сообщение, если в коде используются методы, приводящие к открытию модальных окон. Модальные окна – это окна, которые при открытии блокируют весь остальной интерфейс. В 1С есть несколько модальных методов – например – “Вопрос”, “ОткрытьЗначение”, “Предупреждение”. Кроме того, в коде может использоваться модальный синтаксис открытия форм: “ОткрытьМодально()”

Если в свойствах конфигурации выбран режим использования модальности “Не использовать”, то выполнение модальных методов будет приводить к этой ошибке “Использование в 1С модальных окон в данном режиме запрещено”.

Для устранения ошибки можно пойти несколькими путями. Как водится, один – быстрый, другой – правильный 🙂

Быстрый способ – переключить режим использования модальности в положение “Использовать”.

Более правильный способ – использовать в коде немодальные вызовы методов. Например, у метода “Вопрос” есть немодальный аналог  – “ПоказатьВопрос”, у метода “Предупреждение” – “ПоказатьПредупреждение”, и т.п. Чаще всего об этих методах дополнительно указано в синтакс-помощнике и справке.

Кроме того, в последних версиях платформы появились асинхронные методы – “ВопросАсинх”, “ПредупреждениеАсинх” и др. Появление этих методов позволяет писать более простой и понятный асинхронный код, и направлено в первую очередь, на более полноценную поддержку браузерами и работу в веб-клиенте.

1С 8.3 и 8.2: Запись с такими ключевыми полями существует!

Данная ошибка появляется при некорректной записи в регистр сведений. Чаще всего с этой ошибкой сталкиваются начинающие разработчики, не до конца понимающие механизмы работы с ключевыми полями (измерениями).

Суть ошибки следующая – регистр сведений позволяет записать запись (строку таблицы) с уникальным набором ключевых полей – а для периодических регистров также и поля Период. Если следующая запись полностью повторяет значение ключевых полей, но осуществляется методом Записать с параметром Замещать = Истина, то запись в таблице регистра просто заменится на идентичную.

Однако если поместить две абсолютно одинаковые записи в набор записей, и попытаться его записать – платформа выдаст ошибку. Еще один распространенный случай, когда 1С сообщает “Запись с такими ключевыми полями существует” – это запись в периодический регистр сведений с периодичностью от “День” и выше, подчиненный регистратору.

В типовых конфигурациях часто эту ошибку можно воспроизвести, если в пользовательском режиме создать два документа “Установка цен номенклатуры” с одной и той же номенклатурой и за один и тот же день. Попытка провести второй документ приведет к ошибке.

В случае, когда ошибка возникает не в результате действий пользователя, а при выполнении кода, чтобы устранить ее, чаще всего необходимо проанализировать алгоритм записи в регистр. Если запись осуществляется одним набором данных, его предварительно нужно свернуть до уникальных записей. Например, выгрузить в таблицу значений, свернуть, и загрузить в набор записей.

Поле объекта недоступно для записи в 1С

Чаще всего начинающие программисты 1С сталкиваются с этой ошибкой в двух ситуациях.

Первый случай – это попытка редактирования системных полей, недоступных для записи. Например, в модуле формы сама форма будет содержаться в объекте ЭтаФорма. И попытка присвоить этому реквизиту любое значение приведет к ошибке “Поле объекта недоступно для записи”.

Второй случай – и с ним новички как раз допускают больше всего ошибок – это попытка редактирования полей ссылки, а не самого объекта. Чаще всего код выглядит примерно так:

Элемент = Справочники.Сотрудники.НайтиПоКоду("12345");
Элемент.Наименование = "Новое наименование";

Исполнение данного кода приведет к ошибке, т.к. поля ссылки доступны только для чтения, а метод НайтиПоКоду вернет именно ссылку. Чтобы можно было внести изменения, следует из ссылки получить сам объект – используя соответствующий метод ПолучитьОбъект().

Для исправления ошибки зачастую достаточно получить объект из ссылки. В случае же попытки редактирования свойств, доступных только на чтение самый правильный подход – анализировать имеющуюся документацию по этим свойствам, и не пытаться присваивать им значения, если платформа этого не предусматривает.

Ссылка на обработку

По ссылке вы можете скачать внешнюю обработку, в которой воспроизводится большая часть ошибок, описанных в статье. Для воспроизведения части ошибок нужно будет убрать комментарии в коде.

Заключение

Как видите, зачастую ошибки тривиальны, и достаточно просто исправляются. Общие рекомендации – внимательно читать документацию и справку, корректно использовать методы, активно пользоваться отладчиком. Если вы новичок, и хотите освоить программирование в 1С с нуля – могу предложить приобрести мой базовый курс для начинающих. Более подробная информация – по ссылке.

0 / 0 / 0

Регистрация: 21.12.2017

Сообщений: 15

Здравствуйте. Необходимо было изобразить игру Сапёр в 1С, по заданию из задачника Чистова. Код ниже.

По итогу столкнулся с проблемой: {Обработка.сапер.Форма.Форма.Форма(35)}: Ошибка при вызове метода контекста (Добавить)
Группа = ЭтаФорма.Элементы.Добавить(«Ряд «+Х,Тип(«ГруппаФормы»),Элементы.ИгровоеПоле);
по причине:
Недопустимое значение параметра (параметр номер ‘1’)
Недопустимое значение параметра (параметр номер ‘1’)

как решить?

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187

&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
    МиныВсего = 10;
    КолВоСтрок = 10;
    КолВоСтолбцов = 10;
    МиныОстаток = 10;
    Флаги = 0;
КонецПроцедуры
 
&НаКлиенте
Процедура НачатьИгру(Команда)
       НачатьИгруНаСервере();
       ЭтаФорма.ОбновитьОтображениеДанных(Элементы["ИгровоеПоле"]);
КонецПроцедуры
 
 
&НаСервере
Процедура НачатьИгруНаСервере()
    
        ИгровоеПоле = Элементы.Найти("ИгровоеПоле");
        Если ИгровоеПоле <> Неопределено Тогда
            ЭтаФорма.Элементы.Удалить(ИгровоеПоле);
            КонецЕсли;
    
          ИгровоеПоле = ЭтаФорма.Элементы.Добавить("ИгровоеПоле",Тип("ГруппаФормы"),ЭтаФорма);
          ИгровоеПоле.Вид = ВидГруппыФормы.ОбычнаяГруппа;
          ИгровоеПоле.Отображение = ОтображениеОбычнойГруппы.Нет;
          ИгровоеПоле.ОтображатьЗаголовок = Ложь;
          ИгровоеПоле.Группировка = ГруппировкаПодчиненныхЭлементовФормы.ГоризонтальнаяВсегда;
          ИгровоеПоле.РазрешитьИзменениеСостава = Истина;
          ИгровоеПоле.Видимость = Истина;
        
          Для Х = 1 По КолВоСтолбцов Цикл
              Группа = ЭтаФорма.Элементы.Добавить("Ряд "+Х,Тип("ГруппаФормы"),Элементы.ИгровоеПоле);
              Группа.Вид = ВидГруппыФормы.ОбычнаяГруппа;
              Группа.ВертикальноеПоложениеВГруппе = ВертикальноеПоложениеПодчиненных;
              Группа.Видимость = Истина;
                  Для У = 1  по КолВоСтрок Цикл
                  НоваяКнопка = ЭтаФорма.Элементы.Добавить("Клетка_У "+У+"_Х "+Х,Тип("ДекорацияФормы"),Группа);
                  НоваяКнопка.Вид = ВидДекорацииФормы.Картинка;
                  НоваяКнопка.Высота = 1;
                  НоваяКнопка.Ширина = 2;
                  НоваяКнопка.Видимость = Истина;
                  НоваяКнопка.КонтекстноеМеню.Видимость = Истина;
                  НоваяКнопка.Рамка = Новый Рамка(ТипРамкиЭлементаУправления.Выпуклая,3);
                  НоваяКнопка.Гиперссылка = Истина;
                  НоваяКнопка.УстановитьДействие("Нажатие","КнопкаНажатие");
                  
                  КомандаВопрос = ЭтаФорма.Элементы.Добавить("Клетка_У "+У+"_Х "+Х+"КонтекстноеМенюВопрос",
                  Тип("КнопкаФормы"),НоваяКнопка.КонтекстноеМеню);
                  КомандаВопрос.ИмяКоманды = "Вопрос1";
                  КомандаВопрос.Картинка = БиблиотекаКартинок.Справка;
                  
                  
                  КомандаМина = ЭтаФорма.Элементы.Добавить("Клетка_У "+У+"_Х "+Х+"КонтекстноеМенюМина",
                  Тип("КнопкаФормы"),НоваяКнопка.КонтекстноеМеню);
                  КомандаМина.ИмяКоманды = "ЭтоМина";
                  КомандаМина.Картинка = БиблиотекаКартинок.ОформлениеФлагКрасный;
                  
                  НастройкаПоля = НастройкиПоля.Добавить();
                  НастройкаПоля.ИмяПоля = "Клетка_У"+У+"_Х "+Х;
                  НастройкаПоля.Строка = У;
                  НастройкаПоля.Столбец = Х;
                  НастройкаПоля.МинаВЯчейке = Ложь;
                  
              КонецЦикла;
          КонецЦикла;
          
          ГенСлучЧис = Новый ГенераторСлучайныхЧисел();
          Для СлучЧис = 1 По МиныВсего Цикл
              МинаЕсть = Ложь;
              Пока Не МинаЕсть Цикл
                  ГдеМина = ГенСлучЧис.СлучайноеЧисло(0,НастройкиПоля.Количество()-1);
                  Строка = НастройкиПоля[ГдеМина];
                  Если Строка.Мина = Истина Тогда
                      Продолжить
                  КонецЕсли;
                   Строка.Мина = истина;
                   Элементы[Строка.ИмяПоля].Заголовок = "Х";
                   МинаЕсть = Истина;
               КонецЦикла;
           КонецЦикла;
           
           Для Х = 1 по КолВоСтолбцов Цикл
               Для У = 1 По КолВоСтрок Цикл
                   ИмяТекущегоЭлемента = "Клетка_У "+У+"_Х "+Х;
                   Если Элементы[ИмяТекущегоЭлемента].Заголовок = "Х" Тогда
                       Продолжить;
                   КонецЕсли;
                   МиныРядом =0;
                   
                   ИмяЭлемента = "Клетка_У"+(У-1)+"_Х "+(Х-1);
                   Если (У-1>0 и Х-1>0) и Элементы[ИмяЭлемента].Заголовок = "Х" тогда
                       МиныРядом = МиныРядом+1;
                   КонецЕсли;
                   
                    ИмяЭлемента = "Клетка_У"+(У-1)+"_Х "+(Х);
                   Если (У-1>0) и Элементы[ИмяЭлемента].Заголовок = "Х" тогда
                       МиныРядом = МиныРядом+1;
                   КонецЕсли;
                   
                   ИмяЭлемента = "Клетка_У"+(У-1)+"_Х "+(Х+1);
                   Если (У-1>0 и Х+1<=КолВоСтолбцов) И Элементы[ИмяЭлемента].Заголовок = "Х" тогда
                       МиныРядом = МиныРядом+1;
                   КонецЕсли;
                   
                   
                   ИмяЭлемента = "Клетка_У"+(У)+"_Х "+(Х-1);
                   Если (Х-1>0) и Элементы[ИмяЭлемента].Заголовок = "Х" тогда
                       МиныРядом = МиныРядом+1;
                   КонецЕсли;
                   
                   
                   ИмяЭлемента = "Клетка_У"+(У)+"_Х "+(Х+1);
                   Если (Х+1<=КолВоСтолбцов) и Элементы[ИмяЭлемента].Заголовок = "Х" тогда
                       МиныРядом = МиныРядом+1;
                   КонецЕсли;
                   
                   
                   ИмяЭлемента = "Клетка_У"+(У+1)+"_Х "+(Х-1);
                   Если (У+1<=КолВоСтрок и Х-1>0) и Элементы[ИмяЭлемента].Заголовок = "Х" тогда
                       МиныРядом = МиныРядом+1;
                   КонецЕсли;
                   
                   
                   ИмяЭлемента = "Клетка_У"+(У+1)+"_Х "+(Х);
                   Если (У+1<=КолВоСтрок) и Элементы[ИмяЭлемента].Заголовок = "Х" тогда
                       МиныРядом = МиныРядом+1;
                   КонецЕсли;
                   
                   
                   ИмяЭлемента = "Клетка_У"+(У+1)+"_Х "+(Х+1);
                   Если (У+1<=КолВоСтрок и Х+1<=КолВоСтолбцов) и Элементы[ИмяЭлемента].Заголовок = "Х" тогда
                       МиныРядом = МиныРядом+1;
                   КонецЕсли;
                   
                   Если МиныРядом > 0 Тогда
                       Элементы[ИмяТекущегоЭлемента].Заголовок = МиныРядом;
                       
                   КонецЕсли;
               КонецЦикла;
               КОнецЦикла;
 
                   
                   
          
            
    КонецПроцедуры
 
 
&НаКлиенте
    Процедура Вопрос1(Команда)
        ТекущийЭлемент.Картинка = БиблиотекаКартинок.Справка;
    КонецПроцедуры
 
&НаКлиенте
    Процедура ЭтоМина(Команда)
        ТекущийЭлемент.Картинка = БиблиотекаКартинок.ОформлениеФлагКрасный;
    КонецПроцедуры
    
    
&НаКлиенте
Процедура КнопкаНажатие(Элемент)
    Элемент.Рамка = Новый Рамка(ТипРамкиЭлементаУправления.Одинарная, 1);
    Если Элемент.Заголовок = "Х" Тогда
        Элемент.Картинка = библиотекаКартинок.Удалить;
        ОткрытьВсеМины();
        Предупреждение("Неудачно");
    Иначе
        Элемент.Картинка = Новый Картинка;
        Элемент.ТекстНеВыбраннойКартинки = Элемент.Заголовок;
    КонецЕсли;
    КонецПРоцедуры
 
    
&НаСервере
Процедура ОткрытьВсеМины()
    Для Х = 1 По КолВоСтолбцов Цикл
        Для У = 1 по КолВоСтрок Цикл
            ИмяТекущегоЭлемента = "Клетка_У"+У+"_ Х"+Х;
            Если Элементы[ИмяТекущегоЭлемента].Заголовок = "Х" Тогда
                Элементы[ИмяТекущегоЭлемента].Рамка = Новый Рамка(ТипРамкиЭлементаУправления.Одинарная, 1);
                Элементы[ИмяТекущегоЭлемента].Картинка = БиблиотекаКартинок.Удалить;
            КонецЕсли;
        КОнецЦикла;
    КонецЦикла;
    КонецПроцедуры