v3.0.0.42-fix-tryexcept

This commit is contained in:
Профи-Софт
2026-07-12 15:45:40 +00:00
parent bf802837fc
commit 6aa29cd4f8
@@ -306,22 +306,28 @@
КонецЕсли;
// Месяц и год
МесяЦЗначение = ЛистРасчет.Cells(4, 1).Value;
Если ЗначениеЗаполнено(МесяЦЗначение) Тогда
Попытка Объект.МесяЦЗагрузки = Число(МесяЦЗначение);
МесяцЗначение = ЛистРасчет.Cells(4, 1).Value;
Если ЗначениеЗаполнено(МесяцЗначение) Тогда
Попытка
Объект.МесяцЗагрузки = Число(МесяцЗначение);
Исключение
КонецПопытки;
КонецПопытки;
Объект.МесяцЗагрузки = 0;
КонецПопытки;
КонецЕсли;
ГодЗначение = ЛистРасчет.Cells(3, 1).Value;
Если ЗначениеЗаполнено(ГодЗначение) Тогда
Попытка ГодЗагрузки = Число(ГодЗначение);
Попытка
ГодЗагрузки = Число(ГодЗначение);
Исключение
КонецПопытки;
КонецПопытки;
МесяЦТекст = НомерМесцаВТекст(Объект.МесяЦЗагрузки) + " " + ГодЗагрузки;
ГодЗагрузки = 0;
КонецПопытки;
Иначе
ГодЗагрузки = 0;
КонецЕсли;
МесяцТекст = НомерМесцаВТекст(Объект.МесяцЗагрузки) + " " + ГодЗагрузки;
Организация = СокрЛП(Строка(ЛистРасчет.Cells(4, 20).Value));
СтатьФинансирование = СокрЛП(Строка(ЛистРасчет.Cells(8, 20).Value));
СтатьЯРасходов = "211";
СтатьяФинансирования = СокрЛП(Строка(ЛистРасчет.Cells(8, 20).Value));
СтатьяРасходов = "211";
// Строка начала данных
НачальнаяСтрока = 0;
Для Ном = 17 По 30 Цикл