Произошла ошибка метод обработчика события

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
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325

Процедура ПриЗаписиСправочникаФизическиеЛицаОбновитьОтветственныхЛиц(Источник, Отказ) Экспорт
    
    Если Источник.ОбменДанными.Загрузка Тогда
        Возврат;
    КонецЕсли;
    
    УстановитьПривилегированныйРежим(Истина);
    
    Запрос = Новый Запрос;
    Запрос.УстановитьПараметр("ФизическоеЛицо", Источник.Ссылка);
    Запрос.Текст =
    "ВЫБРАТЬ ПЕРВЫЕ 1
    |   ОтветственныеЛицаОрганизаций.ФизическоеЛицо
    |ИЗ
    |   РегистрСведений.ОтветственныеЛицаОрганизаций КАК ОтветственныеЛицаОрганизаций
    |ГДЕ
    |   ОтветственныеЛицаОрганизаций.ФизическоеЛицо = &ФизическоеЛицо";
    
    Если НЕ Запрос.Выполнить().Пустой() Тогда
        ОбновитьПовторноИспользуемыеЗначения();
    КонецЕсли;
    
КонецПроцедуры
 
Процедура ПередЗаписьюДокументаДляУдаленияДвиженийПередЗаписью(Источник, Отказ, РежимЗаписи, РежимПроведения) Экспорт
    
    Если Источник.ОбменДанными.Загрузка Тогда
        Возврат;
    КонецЕсли;
    
    Источник.ДополнительныеСвойства.Вставить("ЭтоНовый", Источник.ЭтоНовый());
    
    Если РежимЗаписи = РежимЗаписиДокумента.Проведение 
        И НЕ Источник.ДополнительныеСвойства.ЭтоНовый 
        И Источник.Проведен Тогда
        
        Запрос = Новый Запрос;
        Запрос.Текст =
        "ВЫБРАТЬ
        |   Док.Дата КАК Дата
        |ИЗ
        |   Документ." + Источник.Метаданные().Имя + " КАК Док
        |ГДЕ
        |   Док.Ссылка = &Ссылка";
        Запрос.УстановитьПараметр("Ссылка", Источник.Ссылка);
        Выборка = Запрос.Выполнить().Выбрать();
        Выборка.Следующий();
        Источник.ДополнительныеСвойства.Вставить("ДатаДокументаСдвинутаВперед", Источник.Дата > Выборка.Дата);
    Иначе
        Источник.ДополнительныеСвойства.Вставить("ДатаДокументаСдвинутаВперед", Ложь);
    КонецЕсли;
    
КонецПроцедуры
 
// Процедура очищает реквизит РучнаяКорректировка при копировании отредактированных вручную документов
//
Процедура ПриКопированииДокументаСВозможностьюРучногоРедактированияПриКопировании(Источник, ОбъектКопирования) Экспорт
    
    Источник.РучнаяКорректировка = Ложь;
    
КонецПроцедуры
 
Функция КорректныйПериодВводаДокументов() Экспорт
    
    КорректныйПериод = Новый Структура;
    КорректныйПериод.Вставить("НачалоКорректногоПериода", Дата(2000, 01, 01));
    КорректныйПериод.Вставить("КонецКорректногоПериода",  Дата(2020, 12, 31, 23, 59, 59));
    Возврат КорректныйПериод;
    
КонецФункции
 
// Список реквизитов, которые при наличии их в документе необходимо проверить на вхождение в корректный период.
//
// Параметры:
//  МетаданныеДокумента - ОбъектМетаданных:Документ - для анализа наличия реквизитов.
//
// Возвращаемое значение:
//   Структура   - список реквизитов, заполнение которых будет проверяться.
//
Функция КонтролируемыеРеквизитыТипаДата(МетаданныеДокумента)
    
    КонтролируемыеРеквизиты = Новый Массив;
    КонтролируемыеРеквизиты.Добавить("ПериодРегистрации");
    КонтролируемыеРеквизиты.Добавить("ДатаОперации");
    КонтролируемыеРеквизиты.Добавить("ОтчетныйПериод");
    КонтролируемыеРеквизиты.Добавить("Месяц");
    КонтролируемыеРеквизиты.Добавить("МесяцНачисления");
    КонтролируемыеРеквизиты.Добавить("МесяцРасчетногоПериода");
    КонтролируемыеРеквизиты.Добавить("МесяцПерерасчета");
    
    КоличествоКонтролируемых = КонтролируемыеРеквизиты.Количество();
    Для Инд = 1 По КоличествоКонтролируемых Цикл
        Если Не ОбщегоНазначения.ЕстьРеквизитОбъекта(КонтролируемыеРеквизиты[КоличествоКонтролируемых - Инд], МетаданныеДокумента) Тогда
            КонтролируемыеРеквизиты.Удалить(КоличествоКонтролируемых - Инд);
        КонецЕсли;
    КонецЦикла;
    
    КонтролируемыеРеквизиты.Добавить("Дата");
    
    Возврат КонтролируемыеРеквизиты;
    
КонецФункции
 
// Обработчик для подписки на событие ПроверитьКорректностьДаты
Процедура ПроверитьКорректностьДатыПередЗаписью(Источник, Отказ, РежимЗаписи, РежимПроведения) Экспорт
    
    Если Источник.ОбменДанными.Загрузка
     Или ПроведениеСервер.ГрупповоеПерепроведение(Источник) Тогда
        Возврат;
    КонецЕсли;
    
    МетаданныеДокумента = Источник.Метаданные();
    КорректныйПериод = КорректныйПериодВводаДокументов();
    ЕстьОшибкиВКонтролируемыхРеквизитах = Ложь;
    
    // Проверим корректность даты, задающей период движений документа.
    КонтролируемыеРеквизиты = КонтролируемыеРеквизитыТипаДата(МетаданныеДокумента);
    Для каждого КонтролируемыйРеквизит Из КонтролируемыеРеквизиты Цикл
    
        Если Источник[КонтролируемыйРеквизит] < КорректныйПериод.НачалоКорректногоПериода Тогда
            ГраницаКорректности = Формат(КорректныйПериод.НачалоКорректногоПериода, "ДФ=гггг");
            ШаблонОшибки = НСтр("ru = '%1 документа должна быть не ранее %2 года'");
            ЕстьОшибкиВКонтролируемыхРеквизитах = Истина;
        ИначеЕсли Источник[КонтролируемыйРеквизит] > КорректныйПериод.КонецКорректногоПериода Тогда
            ГраницаКорректности = Формат(КорректныйПериод.КонецКорректногоПериода, "ДФ=гггг");
            ШаблонОшибки = НСтр("ru = '%1 документа должна быть не позже %2 года'");
            ЕстьОшибкиВКонтролируемыхРеквизитах = Истина;
        КонецЕсли;
        
        Если ЕстьОшибкиВКонтролируемыхРеквизитах Тогда
            Прервать;
        КонецЕсли;
    
    КонецЦикла;
    
    Если Не ЕстьОшибкиВКонтролируемыхРеквизитах Тогда
        // Некорректных дат не найдено.
        Возврат;
    КонецЕсли;
    
    // Сообщаем о некорректном документе.
    Если КонтролируемыйРеквизит = "Дата" Тогда // пытаемся вывести сообщение в форме рядом с датой
        ОписаниеОшибки = СтрШаблон(ШаблонОшибки, НСтр("ru = 'Дата'"), ГраницаКорректности);
        ОбщегоНазначенияКлиентСервер.СообщитьПользователю(ОписаниеОшибки, Источник, "Дата", , Отказ);
    Иначе // выводит сообщение только в панели сообщений формы объекта
        ОписаниеОшибки = СтрШаблон(ШаблонОшибки, НСтр("ru = 'Дата движений'"), ГраницаКорректности);
        ОбщегоНазначенияКлиентСервер.СообщитьПользователю(ОписаниеОшибки, Источник, , , Отказ);
    КонецЕсли;
    
    ЗаписьЖурналаРегистрации(
        НСтр("ru = 'Даты запрета изменения.Некорректный год'", ОбщегоНазначенияКлиентСервер.КодОсновногоЯзыка()),
        УровеньЖурналаРегистрации.Ошибка,
        Источник.Метаданные(),
        Источник.Ссылка,
        ОписаниеОшибки,
        РежимТранзакцииЗаписиЖурналаРегистрации.Транзакционная);
    
КонецПроцедуры
 
// РЕГИСТРАЦИЯ РЕКВИЗИТОВ ДОКУМЕНТОВ ПОСТУПЛЕНИЯ И ОПЛАТЫ
 
// Обработчик подписки на событие ПриЗаписиДокументаРегистрацияДанныхПервичныхДокументовИП
Процедура ПриЗаписиДокументаРегистрацияДанныхПервичныхДокументов(Источник, Отказ) Экспорт
    Перем НомерДокумента, ДатаДокумента;
    
    Если Источник.ОбменДанными.Загрузка = Истина
        И Источник.ДополнительныеСвойства.Свойство("РегистрироватьДанныеПервичныхДокументов")
        И Источник.ДополнительныеСвойства.РегистрироватьДанныеПервичныхДокументов = Ложь Тогда
        Возврат;
    КонецЕсли;
    
    // При групповом перепроведении реквизиты документов не меняются,
    // поэтому обновление связанных данных выполнять не требуется.
    Если ПроведениеСервер.ГрупповоеПерепроведение(Источник) Тогда
        Возврат;
    КонецЕсли;
    
    Ссылка = Источник.Ссылка;
    ТипДокумента = ТипЗнч(Ссылка);
    
    ИменаРеквизитов = "Организация, Номер, Дата";
    
    МетаданныеДокумента = Источник.Метаданные();
 
    Если НЕ МетаданныеДокумента.Реквизиты.Найти("НомерВходящегоДокумента") = Неопределено Тогда
        ИменаРеквизитов = ИменаРеквизитов + ", НомерВходящегоДокумента";
        Если НЕ МетаданныеДокумента.Реквизиты.Найти("ДатаВходящегоДокумента") = Неопределено Тогда
            ИменаРеквизитов = ИменаРеквизитов + ", ДатаВходящегоДокумента";
        КонецЕсли;
    КонецЕсли;
    
    Если ТипДокумента = Тип("ДокументСсылка.ОприходованиеТоваров") Тогда
        ИменаРеквизитов = ИменаРеквизитов + ", ИнвентаризацияТоваровНаСкладе";
    ИначеЕсли ТипДокумента = Тип("ДокументСсылка.РасходныйКассовыйОрдер") Тогда
        ИменаРеквизитов = ИменаРеквизитов + ", ВидОперации";
    КонецЕсли;
    
    Реквизиты = Новый Структура(ИменаРеквизитов);
    ЗаполнитьЗначенияСвойств(Реквизиты, Источник);
    
    Если НЕ ЗначениеЗаполнено(Реквизиты.Организация) Тогда
        Возврат;
    КонецЕсли;
    
    //Установка управляемой блокировки
    ПараметрыБлокировки = Новый Структура("ТипТаблицы, ИмяТаблицы", "РегистрСведений", "ДанныеПервичныхДокументов");
    ЗначенияБлокировки  = Новый Структура("Документ", Ссылка);
    ОбщегоНазначенияБПВызовСервера.УстановитьУправляемуюБлокировку(ПараметрыБлокировки, ЗначенияБлокировки);
    
    НомерДокумента = "";
    ДатаДокумента  = '00010101';
    
    Если ТипДокумента = Тип("ДокументСсылка.ОприходованиеТоваров")
        И ЗначениеЗаполнено(Реквизиты.ИнвентаризацияТоваровНаСкладе) Тогда
        
        РеквизитыИнвентаризации = ОбщегоНазначения.ЗначенияРеквизитовОбъекта(Реквизиты.ИнвентаризацияТоваровНаСкладе, "Номер, Дата");
        
        НомерДокумента = ПрефиксацияОбъектовКлиентСервер.ПолучитьНомерНаПечать(РеквизитыИнвентаризации.Номер, Истина, Ложь);
        ДатаДокумента  = РеквизитыИнвентаризации.Дата;
        
    ИначеЕсли ТипДокумента = Тип("ДокументСсылка.РасходныйКассовыйОрдер") Тогда
        
        Если Реквизиты.ВидОперации = Перечисления.ВидыОперацийРКО.УплатаНалога Тогда
            НомерДокумента = СокрЛП(Реквизиты.НомерВходящегоДокумента);
        Иначе
            НомерДокумента = ПрефиксацияОбъектовКлиентСервер.ПолучитьНомерНаПечать(Реквизиты.Номер, Истина, Ложь);
        КонецЕсли;
        
        ДатаДокумента  = Реквизиты.Дата;
        
    ИначеЕсли Реквизиты.Свойство("НомерВходящегоДокумента") Тогда
        
        НомерДокумента = СокрЛП(Реквизиты.НомерВходящегоДокумента);
        
        Если Реквизиты.Свойство("ДатаВходящегоДокумента") Тогда
            ДатаДокумента = Реквизиты.ДатаВходящегоДокумента;
        Иначе
            ДатаДокумента = Реквизиты.Дата;
        КонецЕсли;
        
    Иначе
        
        НомерДокумента = ПрефиксацияОбъектовКлиентСервер.ПолучитьНомерНаПечать(Реквизиты.Номер, Истина, Ложь);
        ДатаДокумента  = Реквизиты.Дата;
        
    КонецЕсли;
    
    НаборЗаписейРегистра = РегистрыСведений.ДанныеПервичныхДокументов.СоздатьНаборЗаписей();
    НаборЗаписейРегистра.Отбор.Документ.Установить(Ссылка);
    
    МенеджерЗаписиРегистра = НаборЗаписейРегистра.Добавить();
    МенеджерЗаписиРегистра.Организация       = Реквизиты.Организация;
    МенеджерЗаписиРегистра.Документ          = Ссылка;
    МенеджерЗаписиРегистра.Номер             = НомерДокумента;
    МенеджерЗаписиРегистра.Дата              = ДатаДокумента;
    МенеджерЗаписиРегистра.НомерРегистратора = Реквизиты.Номер;
    МенеджерЗаписиРегистра.ДатаРегистратора  = Реквизиты.Дата;
    
    НаборЗаписейРегистра.Записать(Истина);
    
КонецПроцедуры
 
Процедура ПриИзмененииФункциональнойОпцииВалютныйУчет(Источник, Отказ) Экспорт
    
    Если Источник.ОбменДанными.Загрузка Тогда
        Возврат;
    КонецЕсли;
    
    Справочники.ПрочиеДоходыИРасходы.СоздатьУстановитьПредопределенныеЭлементыВалютныйУчет();
 
КонецПроцедуры 
 
Процедура ПриИзмененииФункциональнойОпцииИспользуетсяУСН(Источник, Отказ) Экспорт
    
    Если Источник.ОбменДанными.Загрузка Тогда
        Возврат;
    КонецЕсли;
 
    Справочники.ПрочиеДоходыИРасходы.СоздатьУстановитьПредопределенныеЭлементыУСН();
 
КонецПроцедуры 
 
Процедура ПриИзмененииФункциональнойОпцииИспользуетсяСинхронизацияДанных(Источник, Отказ) Экспорт
    
    Если Источник.ОбменДанными.Загрузка Тогда
        Возврат;
    КонецЕсли;
    
    Если НЕ ОбщегоНазначенияПовтИсп.ДоступноИспользованиеРазделенныхДанных() Тогда
        Возврат;
    КонецЕсли;
    
    Обработки.ФункциональностьПрограммы.УстановитьКонстантыЗависимыеОтОбменов();
    
КонецПроцедуры
 
Процедура ПриИзмененииФункциональнойОпцииВедетсяРозничнаяТорговля(Источник, Отказ) Экспорт
    
    Если Источник.ОбменДанными.Загрузка Тогда
        Возврат;
    КонецЕсли;
    
    Справочники.СтатьиДвиженияДенежныхСредств.СоздатьУстановитьПредопределенныеЭлементыРозничнаяТорговля();
 
КонецПроцедуры
 
Процедура ПриИзмененииФункциональнойОпцииВестиУчетИндивидуальногоПредпринимателя(Источник, Отказ) Экспорт
    
    Если Источник.ОбменДанными.Загрузка Тогда
        Возврат;
    КонецЕсли;
    
    Справочники.СтатьиДвиженияДенежныхСредств.СоздатьУстановитьПредопределенныеЭлементыИП();
 
КонецПроцедуры
 
Процедура ПриИзмененииФункциональнойОпцииИспользоватьСтатьиДДС(Источник, Отказ) Экспорт
    
    Если Источник.ОбменДанными.Загрузка Тогда
        Возврат;
    КонецЕсли;
    
    Справочники.СтатьиДвиженияДенежныхСредств.СоздатьУстановитьПредопределенныеЭлементыИСпользоватьСтатьиДДС();
    
КонецПроцедуры