From 7e16c0144c08dd99b217d43a11ae20af6a59a1db Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?=D0=9F=D1=80=D0=BE=D1=84=D0=B8-=D0=A1=D0=BE=D1=84=D1=82?= Date: Thu, 23 Jul 2026 15:16:53 +0000 Subject: [PATCH] v3.0.0.116 --- Configuration.xml | 2 +- .../Forms/Форма/Ext/Form/Module.bsl | 15 +++++++++++++-- 2 files changed, 14 insertions(+), 3 deletions(-) diff --git a/Configuration.xml b/Configuration.xml index 578d1b5..de14f16 100755 --- a/Configuration.xml +++ b/Configuration.xml @@ -56,7 +56,7 @@ Russian ООО "Профи-Софт", код партнера 42575-13, г.Байконур. - 3.0.0.115 + 3.0.0.116 Language.Русский diff --git a/DataProcessors/ЗагрузкаДанныхИзExcel/Forms/Форма/Ext/Form/Module.bsl b/DataProcessors/ЗагрузкаДанныхИзExcel/Forms/Форма/Ext/Form/Module.bsl index de07ff0..75fa3bd 100644 --- a/DataProcessors/ЗагрузкаДанныхИзExcel/Forms/Форма/Ext/Form/Module.bsl +++ b/DataProcessors/ЗагрузкаДанныхИзExcel/Forms/Форма/Ext/Form/Module.bsl @@ -106,6 +106,17 @@ Сообщить("Лист 'Расчет' не найден!"); Возврат Неопределено; КонецЕсли; + Сообщить("Лист 'Расчет' найден: " + ЛистРасчет); + + // Диагностика: проверяем ячейки листа "Расчет" + Для Ном = 1 По 20 Цикл + Для Кол = 1 По 5 Цикл + Текст = ПрочитатьСтрокуИзТД(ТаблДок, ЛистРасчет, Ном, Кол); + Если ЗначениеЗаполнено(Текст) Тогда + Сообщить(" [" + Ном + "," + Кол + "] = " + Текст); + КонецЕсли; + КонецЦикла; + КонецЦикла; // Читаем шапку листа "Расчет" ГодЗагрузки = "" + ПрочитатьЧислоИзТД(ТаблДок, ЛистРасчет, 4, 1); @@ -238,7 +249,7 @@ &НаСервере Функция ПрочитатьЧислоИзТД(ТаблДок, ИмяОбласти, Строка, Колонка) Попытка - Значение = ТаблДок.Область(ИмяОбласти + "|R" + Строка + "C" + Колонка).Текст; + Значение = ТаблДок.Область(Строка, Колонка, Строка, Колонка).Текст; Если Не ЗначениеЗаполнено(Значение) Тогда Возврат 0; КонецЕсли; Возврат Число(СокрЛП(Значение)); Исключение @@ -249,7 +260,7 @@ &НаСервере Функция ПрочитатьСтрокуИзТД(ТаблДок, ИмяОбласти, Строка, Колонка) Попытка - Возврат СокрЛП("" + ТаблДок.Область(ИмяОбласти + "|R" + Строка + "C" + Колонка).Текст); + Возврат СокрЛП("" + ТаблДок.Область(Строка, Колонка, Строка, Колонка).Текст); Исключение Возврат ""; КонецПопытки;