Программист 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.
Процедура ПриОткрытии()
Дата1 = НачалоПериодаБИ();
Дата2 = КонецПериодаБИ();
КонецПроцедуры
Процедура ИсправлениеСерий()
ТЗ = СоздатьОбъект("ТаблицаЗначений");
ТЗ.НоваяКолонка("Наименование");
ТЗ.НоваяКолонка("Цена");
ТЗ.НоваяКолонка("Ссылка");
Сер = СоздатьОбъект("Справочник.Серии");
Сер.ВыбратьЭлементы(0);
Пока Сер.ПолучитьЭлемент() = 1 Цикл
ТЗ.НоваяСтрока();
ТЗ.Наименование = Сер.Владелец;
ТЗ.Цена = Сер.ЦенаРозничная.Получить(ТекущаяДата());
ТЗ.Ссылка = Сер.ТекущийЭлемент();
КонецЦикла;
ТЗ.Сортировать("Наименование");
Докум = СоздатьОбъект( "Документ" );
Докум.ВыбратьДокументы( Дата1, Дата2 );
Пока Докум.ПолучитьДокумент() = 1 Цикл
Если (Докум.Вид() = "ВыпискаВРозницу") Тогда
Докум.СделатьНеПроведенным();
Докум.ВыбратьСтроки();
Пока Докум.ПолучитьСтроку()=1 Цикл
ТекЗначение = Докум.Серия;
Товар = Докум.Товар;
Если ТекЗначение.Владелец <> Товар Тогда
Поз = 1;
ТЗ.НайтиЗначение(Товар,Поз,"Наименование");
Для ПозТЗ = Поз По (ТЗ.КоличествоСтрок()) Цикл
ТЗ.ПолучитьСтрокуПоНомеру(ПозТЗ);
Если ТЗ.Наименование<>Товар Тогда
Продолжить;
Иначе
Тмп= СоздатьОбъект("Справочник.Серии");
Тмп.НайтиЭлемент(ТЗ.ССылка);
Докум.Серия = Тмп.ТекущийЭлемент();
Прервать;
КонецЕсли;
КонецЦикла;
КонецЕсли;
КонецЦикла;
Докум.Провести();
КонецЕсли;
КонецЦикла;
КонецПроцедуры
