v3.0.0.77

This commit is contained in:
Профи-Софт
2026-07-16 10:36:35 +00:00
parent 44b7d5e26d
commit 12665eb8e7
4 changed files with 24 additions and 24 deletions
@@ -3,7 +3,7 @@
// Зависит от: ЗагрузкаДанныхИзExcel_ЧтениеЭксель
&НаКлиенте
Функция НомерМесяцаВТекст(НомерМесяца)
Функция НомерМесяцаВТекст(НомерМесяца) Экспорт
Массив = Новый Массив;
Массив.Добавить("Январь"); Массив.Добавить("Февраль");
Массив.Добавить("Март"); Массив.Добавить("Апрель");
@@ -18,14 +18,14 @@
КонецФункции
&НаКлиенте
Функция СтрокаМесяцаНаЛистеСотрудника()
Функция СтрокаМесяцаНаЛистеСотрудника() Экспорт
Смещение = Объект.МесяцЗагрузки;
Если Не ЗначениеЗаполнено(Смещение) Тогда Смещение = 1; КонецЕсли;
Возврат 35 + Смещение;
КонецФункции
&НаКлиенте
Функция НайтиЛистСотрудника(Книга, ЛистРасчет, НомерСтроки)
Функция НайтиЛистСотрудника(Книга, ЛистРасчет, НомерСтроки) Экспорт
Формула = ЛистРасчет.Cells(НомерСтроки, 1).Formula;
Если ЗначениеЗаполнено(Формула) Тогда
ИмяЛиста = ЗагрузкаДанныхИзExcel_ЧтениеЭксель.ИзвлечьИмяЛистаИзФормулы(Формула);
@@ -41,7 +41,7 @@
КонецФункции
&НаКлиенте
Функция ПрочитатьКарточкуСотрудника(ЛистСотрудника)
Функция ПрочитатьКарточкуСотрудника(ЛистСотрудника) Экспорт
Данные = Новый Структура;
Данные.Вставить("ФИО", ЗагрузкаДанныхИзExcel_ЧтениеЭксель.ПрочитатьЯчейкуСтрока(ЛистСотрудника, 2, 3));
Данные.Вставить("ИНН", "");
@@ -53,7 +53,7 @@
КонецФункции
&НаКлиенте
Функция ПрочитатьРасчетныеДанные(ЛистРасчет, Ном, ФИО)
Функция ПрочитатьРасчетныеДанные(ЛистРасчет, Ном, ФИО) Экспорт
Ч = ЗагрузкаДанныхИзExcel_ЧтениеЭксель;
С = Новый Структура;
С.Вставить("ФИО", ФИО);
@@ -122,7 +122,7 @@
КонецФункции
&НаКлиенте
Функция ПрочитатьНДФЛСоЛиста(ЛистСотрудника, ФИО)
Функция ПрочитатьНДФЛСоЛиста(ЛистСотрудника, ФИО) Экспорт
Ч = ЗагрузкаДанныхИзExcel_ЧтениеЭксель;
СД = СтрокаМесяцаНаЛистеСотрудника();
Если СД = 0 Тогда Возврат Неопределено; КонецЕсли;
@@ -148,7 +148,7 @@
КонецФункции
&НаКлиенте
Функция ПрочитатьВзносыИзРасчета(ЛистРасчет, Ном, ФИО)
Функция ПрочитатьВзносыИзРасчета(ЛистРасчет, Ном, ФИО) Экспорт
Ч = ЗагрузкаДанныхИзExcel_ЧтениеЭксель;
С = Новый Структура;
С.Вставить("ФИО", ФИО);
@@ -164,7 +164,7 @@
КонецФункции
&НаКлиенте
Функция ОределитьГодЗагрузки(ЛистРасчет)
Функция ОределитьГодЗагрузки(ЛистРасчет) Экспорт
ГодЗначение = ЗагрузкаДанныхИзExcel_ЧтениеЭксель.ПрочитатьЯчейкуЧисло(ЛистРасчет, 3, 1, "");
Если ГодЗначение > 0 Тогда
Возврат Цел(ГодЗначение);
@@ -177,11 +177,11 @@
КонецФункции
&НаКлиенте
Функция ОпределитьОрганизацию(ЛистРасчет)
Функция ОпределитьОрганизацию(ЛистРасчет) Экспорт
Возврат СокрЛП(Строка(ЛистРасчет.Cells(4, 20).Value));
КонецФункции
&НаКлиенте
Функция ОпределитьСтатьюФинансирования(ЛистРасчет)
Функция ОпределитьСтатьюФинансирования(ЛистРасчет) Экспорт
Возврат СокрЛП(Строка(ЛистРасчет.Cells(8, 20).Value));
КонецФункции