v3.0.0.77
This commit is contained in:
@@ -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));
|
||||
КонецФункции
|
||||
|
||||
Reference in New Issue
Block a user