Ошибка при вызове метода контекста выполнить не установлен менеджер временных таблиц

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

Процедура ОбработкаПроведения(Отказ, Режим)
    //{{__КОНСТРУКТОР_ДВИЖЕНИЙ_РЕГИСТРОВ
    // Данный фрагмент построен конструктором.
    // При повторном использовании конструктора, внесенные вручную изменения будут утеряны!!!
 
    // регистр ОстаткиНоменклатуры Расход
    Движения.ОстаткиНоменклатуры.Записывать = Истина;
    //!!! ОБЕСПЕЧЕНИЕ НЕИЗМЕННОСТИ ДАННЫХ
    // МЕЖДУ РАСЧЕТОМ И ОКОНЧАНИЕМ ПРОВЕДЕНИЯ !!!
    Блокировка = Новый БлокировкаДанных;
    ЭлементБлокировки =
    Блокировка.Добавить("РегистрНакопления.ОстаткиНоменклатуры");
    ЭлементБлокировки.Режим = РежимБлокировкиДанных.Исключительный;
    ЭлементБлокировки.УстановитьЗначение("Склад", Склад);
    ЭлементБлокировки.ИсточникДанных = Товары.Выгрузить( ,"Номенклатура");
    ЭлементБлокировки.ИспользоватьИзИсточникаДанных("Номенклатура","Номенклатура");
    
    
    //!!! УДАЛЕНИЕ СОБСТВЕННЫХ СТАРЫХ ДВИЖЕНИЙ
    // ПО РЕГИСТРУ ОСТАТКИ НОМЕНКЛАТУРЫ !!!
    //Движения.ОстаткиНоменклатуры.Записать; 
    // ПО РЕГИСТРУ ОСТАТКИ НОМЕНКЛАТУРЫ !!!
    
    //!!! ПОЛУЧЕНИЕ ДАННЫХ ТОЛЬКО ПО ТОВАРАМ !!!
    Запрос = Новый Запрос;
    Запрос.Текст = 
        "ВЫБРАТЬ
        |   ПрдажаТоваровТовары.Номенклатура КАК Номенклатура,
        |   СУММА(ПрдажаТоваровТовары.Количество) КАК Количество,
        |   ПрдажаТоваровТовары.Ссылка.Склад КАК Склад,
        |   ПрдажаТоваровТовары.Ссылка.Дата,
        |   СУММА(ПрдажаТоваровТовары.Сумма) КАК Сумма
        |ПОМЕСТИТЬ ТабДок
        |ИЗ
        |   Документ.ПрдажаТоваров.Товары КАК ПрдажаТоваровТовары
        |ГДЕ
        |   ПрдажаТоваровТовары.Ссылка = &Ссылка
        |   И ПрдажаТоваровТовары.Номенклатура.ВидНоменклатуры <> ЗНАЧЕНИЕ(Перечисление.ВидыТоваров.Услуга)
        |
        |СГРУППИРОВАТЬ ПО
        |   ПрдажаТоваровТовары.Номенклатура,
        |   ПрдажаТоваровТовары.Ссылка.Склад,
        |   ПрдажаТоваровТовары.Ссылка.Дата
        |
        |ИНДЕКСИРОВАТЬ ПО
        |   Номенклатура,
        |   Склад
        |;
        |
        |////////////////////////////////////////////////////////////////////////////////
        |ВЫБРАТЬ
        |   ТабДок.Дата,
        |   ТабДок.Номенклатура КАК Номенклатура,
        |   ТабДок.Количество КАК Количество,
        |   ОстаткиНоменклатурыОстатки.Партия,
        |   ТабДок.Склад КАК Склад,
        |   ОстаткиНоменклатурыОстатки.Партия.Дата КАК ПартияДата,
        |   ЕСТЬNULL(ОстаткиНоменклатурыОстатки.КоличествоОстаток, 0) КАК КоличествоОстаток,
        |   ЕСТЬNULL(ОстаткиНоменклатурыОстатки.СуммаОстаток, 0) КАК СуммаОстаток,
        |   ТабДок.Сумма КАК СуммаДок
        |ИЗ
        |   ТабДок КАК ТабДок
        |       ЛЕВОЕ СОЕДИНЕНИЕ РегистрНакопления.ОстаткиНоменклатуры.Остатки(
        |               &Момент,
        |               (Номенклатура, Склад) В
        |                   (ВЫБРАТЬ
        |                       ТабДок.Номенклатура,
        |                       ТабДок.Склад
        |                   ИЗ
        |                       ТабДок КАК ТабДок)) КАК ОстаткиНоменклатурыОстатки
        |       ПО ТабДок.Номенклатура = ОстаткиНоменклатурыОстатки.Номенклатура
        |
        |УПОРЯДОЧИТЬ ПО
        |   Номенклатура,
        |   ПартияДата
        |ИТОГИ
        |   МАКСИМУМ(Количество),
        |   МАКСИМУМ(Склад),
        |   СУММА(КоличествоОстаток),
        |   СУММА(СуммаОстаток),
        |   МАКСИМУМ(СуммаДок)
        |ПО
        |   Номенклатура
        |;
        |
        |////////////////////////////////////////////////////////////////////////////////
        |ВЫБРАТЬ
        |   ТабДок.Номенклатура,
        |   ТабДок.Количество,
        |   БронированиеТовараОстатки.Номенклатура КАК Номенклатура1,
        |   ТабДок.Склад,
        |   БронированиеТовараОстатки.КоличествоОстаток,
        |   БронированиеТовараОстатки.Номенклатура КАК Номенклатура2
        |ИЗ
        |   ТабДок КАК ТабДок
        |       ЛЕВОЕ СОЕДИНЕНИЕ РегистрНакопления.БронированиеТовара.Остатки(
        |               &Момент,
        |               (Номенклатура, Склад) В
        |                   (ВЫБРАТЬ
        |                       ТабДок.Номенклатура,
        |                       ТабДок.Склад
        |                   ИЗ
        |                       ТабДок КАК ТабДок)) КАК БронированиеТовараОстатки
        |       ПО ТабДок.Номенклатура = БронированиеТовараОстатки.Номенклатура";
 
        Если Режим = РежимПроведенияДокумента.Оперативный Тогда 
            Запрос.УстановитьПараметр("Момент", Неопределено);
        Иначе
            Запрос.УстановитьПараметр("Момент", МоментВремени());
        КонецЕсли;
        Запрос.УстановитьПараметр("Ссылка", Ссылка);
        
        
        Результат = Запрос.Выполнить();
        ВыборкаНоменклатура =
        Результат.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам); 
        Пока ВыборкаНоменклатура.Следующий() Цикл
        Если ВыборкаНоменклатура.КоличествоОстаток <
        ВыборкаНоменклатура.Количество Тогда
        //КОНТРОЛЬ ОТРИЦАТЕЛЬНЫХ ОСТАТКОВ
        // СПИСЫВАЕМЫХ ТОВАРОВ !!!
        Отказ = Истина;
        Сообщение = Новый СообщениеПользователю;
        Нехватка = ВыборкаНоменклатура.Количество -
        ВыборкаНоменклатура.КоличествоОстаток;
        Сообщение.Текст = "В документе N" + Номер +" от "+Дата+" не хватает "+Нехватка+" единиц товара "+
        ВыборкаНоменклатура.Номенклатура;
        Сообщение.Сообщить();
    Иначе
        //!!! ВЫЧИСЛЕНИЕ СЕБЕСТОИМОСТИ
        // СПИСЫВАЕМЫХ ПАРТИЙ ТОВАРОВ!!!
        КоличествоНадоСписать = ВыборкаНоменклатура.Количество;
        ВыборкаДетальныеЗаписи = ВыборкаНоменклатура.Выбрать(); 
        Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
            Если ВыборкаДетальныеЗаписи.КоличествоОстаток <=
                КоличествоНадоСписать Тогда
                //списываем всю партию
                КоличествоКСписанию =
                ВыборкаДетальныеЗаписи.КоличествоОстаток;
                СтоимостьКСписанию = ВыборкаДетальныеЗаписи.СуммаОстаток;
                //уменьшаем количество к списанию
                КоличествоНадоСписать = КоличествоНадоСписать - КоличествоКСписанию;
            Иначе
                //списываем часть партии
КоличествоКСписанию = КоличествоНадоСписать;
Если ВыборкаДетальныеЗаписи.КоличествоОстаток <> 0 Тогда
СтоимостьКСписанию = ВыборкаДетальныеЗаписи.СуммаОстаток/
ВыборкаДетальныеЗаписи.КоличествоОстаток*КоличествоКСписанию;
иначе
СтоимостьКСписанию = ВыборкаДетальныеЗаписи.СуммаОстаток;
КонецЕсли;
//обнуляем количество к списанию
КоличествоНадоСписать = 0;
КонецЕсли;  
 //формируем набор записей
Движение = Движения.ОстаткиНоменклатуры.Добавить(); 
Движение.ВидДвижения = ВидДвиженияНакопления.Расход;
Движение.Период = Дата;
Движение.Номенклатура = ВыборкаДетальныеЗаписи.Номенклатура;
Движение.Склад = Склад;
Движение.Партия = ВыборкаДетальныеЗаписи.Партия;
Движение.Количество = КоличествоКСписанию;
Движение.Сумма = СтоимостьКСписанию;
Если ВыборкаНоменклатура.Количество<>0 Тогда
Движение.СуммаПродажи =
КоличествоКСписанию;
КонецЕсли;
//проверяем необходимость дальнейшего перебора партий
Если КоличествоНадоСписать <= 0 Тогда 
Прервать;
КонецЕсли;
КонецЦикла; // по партиям
КонецЕсли;
КонецЦикла; //по товарам
Движения.Задолженности.Записывать = Истина;
// регистр Задолженности Приход
Движение = Движения.Задолженности.Добавить();
Движение.ВидДвижения = ВидДвиженияНакопления.Приход;
Движение.Период = Дата;
Движение.Кнотрагент = Контарагент;
Движение.СуммаДолга = СуммаДокумента;
Движения.БронированиеТовара.Записывать = Истина;
Движения.СвободныеОстатки.БлокироватьДляИзменения = Истина; 
Движения.СвободныеОстатки.Записывать = Истина;
//Запрос для определения только товаров документа
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| ПрдажаТоваровТовары.Номенклатура,
| СУММА(ПрдажаТоваровТовары.Количество) КАК Количество
|ИЗ
| Документ.ПрдажаТоваров.Товары КАК ПрдажаТоваровТовары
|ГДЕ
| ПрдажаТоваровТовары.Ссылка = &Ссылка
| И ПрдажаТоваровТовары.Номенклатура.ВидНоменклатуры <>
| ЗНАЧЕНИЕ(Перечисление.ВидыТоваров.Услуга)
|СГРУППИРОВАТЬ ПО
| ПрдажаТоваровТовары.Номенклатура";
Запрос.УстановитьПараметр("Ссылка", Ссылка);
Результат = Запрос.Выполнить();
ВыборкаДетальныеЗаписи = Результат.Выбрать();
Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
// регистр СвободныеОстатки Расход
Движение = Движения.СвободныеОстатки.Добавить();
Движение.ВидДвижения = ВидДвиженияНакопления.Расход;
Движение.Период = Дата;
Движение.Номенклатура = ВыборкаДетальныеЗаписи.Номенклатура;
Движение.Склад = Склад;
Движение.Количество =
ВыборкаДетальныеЗаписи.Количество;
КонецЦикла;
 
//Подготовим менеджер временных таблиц для заполнения перечня товаров
//изменившихся свободных остатков в модуле набора записей регистра
МенеджерВременныхТаблиц = Новый МенеджерВременныхТаблиц; 
Движения.СвободныеОстатки.ДополнительныеСвойства.Вставить("МенеджерВременныхТаблицПроведенияПродажиТоваров",МенеджерВременныхТаблиц);
//Общая запись всех движений
Движения.Записать(); 
//Контроль отрицательных остатков
Запрос = Новый Запрос;
Запрос.МенеджерВременныхТаблиц = МенеджерВременныхТаблиц; 
Запрос.Текст =
"ВЫБРАТЬ
|   СвободныеОстаткиОстатки.Номенклатура,
|   СвободныеОстаткиОстатки.КоличествоОстаток
|ИЗ
|   ТабИзменившихсяТоваров КАК ТабИзменившихсяТоваров
|       ЛЕВОЕ СОЕДИНЕНИЕ РегистрНакопления.СвободныеОстатки.Остатки(
|               &Момент,
|               (Номенклатура, Склад) В
|                   (ВЫБРАТЬ
|                       ТабИзменившихсяТоваров.Номенклатура,
|                       ТабИзменившихсяТоваров.Склад
|                   ИЗ
|                       ТабИзменившихсяТоваров КАК ТабИзменившихсяТоваров)) КАК СвободныеОстаткиОстатки
|       ПО (СвободныеОстаткиОстатки.КоличествоОстаток > 0)
|ГДЕ СвободныеОстаткиОстатки.КоличествоОстаток > 0";
Если Режим = РежимПроведенияДокумента.Оперативный Тогда 
            Запрос.УстановитьПараметр("Момент", Неопределено);
        Иначе
            Запрос.УстановитьПараметр("Момент", МоментВремени());
            КонецЕсли;
 
Результат = Запрос.Выполнить();
ВыборкаДетальныеЗаписи = Результат.Выбрать();
Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
    Отказ = Истина;
Сообщение = Новый СообщениеПользователю;
Нехватка =
- ВыборкаДетальныеЗаписи.КоличествоОстаток;
Сообщение.Текст = "В документе N" + Номер +" от "+Дата+" не хватает "
+Нехватка+" единиц товара "+ВыборкаДетальныеЗаписи.Номенклатура;
Сообщение.Сообщить();
КонецЦикла;
КонецПроцедуры