diff --git a/CommonModules/ЗагрузкаДанныхИзExcel_ЗаписьВРегистры/Ext/Module.bsl b/CommonModules/ЗагрузкаДанныхИзExcel_ЗаписьВРегистры/Ext/Module.bsl index ce88d80..c4db72a 100644 --- a/CommonModules/ЗагрузкаДанныхИзExcel_ЗаписьВРегистры/Ext/Module.bsl +++ b/CommonModules/ЗагрузкаДанныхИзExcel_ЗаписьВРегистры/Ext/Module.bsl @@ -2,7 +2,7 @@ // Серверный модуль для записи движений через документ ПереносДанных &НаСервереБезКонтекста -Функция РазрешитьОрганизацию(Наименование) +Функция РазрешитьОрганизацию(Наименование) Экспорт Если Не ЗначениеЗаполнено(Наименование) Тогда Возврат Неопределено; КонецЕсли; @@ -10,7 +10,7 @@ КонецФункции &НаСервереБезКонтекста -Функция РазрешитьСтатьюФинансирования(Наименование) +Функция РазрешитьСтатьюФинансирования(Наименование) Экспорт Если Не ЗначениеЗаполнено(Наименование) Тогда Возврат Неопределено; КонецЕсли; @@ -18,7 +18,7 @@ КонецФункции &НаСервереБезКонтекста -Функция РазрешитьСтатьюРасходов(Код) +Функция РазрешитьСтатьюРасходов(Код) Экспорт Если Не ЗначениеЗаполнено(Код) Тогда Возврат Неопределено; КонецЕсли; @@ -26,7 +26,7 @@ КонецФункции &НаСервереБезКонтекста -Процедура ПостроитьКэшСотрудников(ТЧСотрудники, КэшСотрудников) +Процедура ПостроитьКэшСотрудников(ТЧСотрудники, КэшСотрудников) Экспорт КэшСотрудников = Новый Соответствие; Для Каждого Эл Из ТЧСотрудники Цикл СотрСсылка = Неопределено; @@ -49,7 +49,7 @@ КонецПроцедуры &НаСервереБезКонтекста -Процедура ЗаполнитьТЧ(МассивДанных, МассивВзносов, МассивНДФЛ, МассивСотрудников, ТЧЗП, ТЧВзносы, ТЧНДФЛ, ТЧСотрудники) +Процедура ЗаполнитьТЧ(МассивДанных, МассивВзносов, МассивНДФЛ, МассивСотрудников, ТЧЗП, ТЧВзносы, ТЧНДФЛ, ТЧСотрудники) Экспорт ТЧЗП.Очистить(); ТЧВзносы.Очистить(); ТЧНДФЛ.Очистить(); @@ -73,7 +73,7 @@ КонецПроцедуры &НаСервере -Процедура ЗаписатьДанные(ГодЗагрузкиПараметр, ОрганизацияНаименование, СтатьяФинансированияНаименование, СтатьяРасходовКод) +Процедура ЗаписатьДанные(ГодЗагрузкиПараметр, ОрганизацияНаименование, СтатьяФинансированияНаименование, СтатьяРасходовКод) Экспорт ГодЧисло = Число(ГодЗагрузкиПараметр); МесяцЧисло = Цел(Объект.МесяцЗагрузки); Если ГодЧисло = 0 Тогда ГодЧисло = Год(ТекущаяДата()); КонецЕсли; @@ -237,7 +237,7 @@ КонецПроцедуры &НаСервере -Процедура ЗаписатьНачисление(ДокПеренос, Строка, ВидРасчета, Сумма, Группа, Период, Организация, СтатьяФинансирования, СтатьяРасходов, ФизЛицо, СотрудникСсылка) +Процедура ЗаписатьНачисление(ДокПеренос, Строка, ВидРасчета, Сумма, Группа, Период, Организация, СтатьяФинансирования, СтатьяРасходов, ФизЛицо, СотрудникСсылка) Экспорт Если Сумма = 0 Тогда Возврат; КонецЕсли; ГруппаНаименование = ""; diff --git a/CommonModules/ЗагрузкаДанныхИзExcel_МаппингДанных/Ext/Module.bsl b/CommonModules/ЗагрузкаДанныхИзExcel_МаппингДанных/Ext/Module.bsl index fde63f8..c534882 100644 --- a/CommonModules/ЗагрузкаДанныхИзExcel_МаппингДанных/Ext/Module.bsl +++ b/CommonModules/ЗагрузкаДанныхИзExcel_МаппингДанных/Ext/Module.bsl @@ -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)); КонецФункции diff --git a/CommonModules/ЗагрузкаДанныхИзExcel_ЧтениеЭксель/Ext/Module.bsl b/CommonModules/ЗагрузкаДанныхИзExcel_ЧтениеЭксель/Ext/Module.bsl index b2f8155..88cf90f 100644 --- a/CommonModules/ЗагрузкаДанныхИзExcel_ЧтениеЭксель/Ext/Module.bsl +++ b/CommonModules/ЗагрузкаДанныхИзExcel_ЧтениеЭксель/Ext/Module.bsl @@ -2,7 +2,7 @@ // Содержит только COM-вызовы &НаКлиенте -Функция ОткрытьФайлExcel(ПутьКФайлу) +Функция ОткрытьФайлExcel(ПутьКФайлу) Экспорт Попытка Excel = Новый COMОбъект("Excel.Application"); Excel.Visible = Ложь; @@ -16,7 +16,7 @@ КонецФункции &НаКлиенте -Процедура ЗакрытьExcel(КонтекстExcel, ВременныйФайл) +Процедура ЗакрытьExcel(КонтекстExcel, ВременныйФайл) Экспорт Если КонтекстExcel = Неопределено Тогда Возврат; КонецЕсли; Попытка КонтекстExcel.Книга.Close(Ложь); @@ -27,7 +27,7 @@ КонецПроцедуры &НаКлиенте -Функция ПрочитатьЯчейкуЧисло(Лист, Строка, Колонка, КонтекстОшибки) +Функция ПрочитатьЯчейкуЧисло(Лист, Строка, Колонка, КонтекстОшибки) Экспорт Попытка Значение = Лист.Cells(Строка, Колонка).Value; Если Значение = Неопределено ИЛИ Значение = "" Тогда Возврат 0; КонецЕсли; @@ -39,7 +39,7 @@ КонецФункции &НаКлиенте -Функция ПрочитатьЯчейкуСтрока(Лист, Строка, Колонка) +Функция ПрочитатьЯчейкуСтрока(Лист, Строка, Колонка) Экспорт Попытка Значение = Лист.Cells(Строка, Колонка).Value; Если Значение = Неопределено Тогда Возврат ""; КонецЕсли; @@ -50,7 +50,7 @@ КонецФункции &НаКлиенте -Функция ИзвлечьИмяЛистаИзФормулы(Формула) +Функция ИзвлечьИмяЛистаИзФормулы(Формула) Экспорт Если Формула = Неопределено Тогда Возврат ""; КонецЕсли; Текст = СокрЛП("" + Формула); Если Не СтрНачинаетсяС(Текст, "='") Тогда Возврат ""; КонецЕсли; @@ -60,7 +60,7 @@ КонецФункции &НаКлиенте -Функция НайтиЛист(Книга, ИмяЛиста) +Функция НайтиЛист(Книга, ИмяЛиста) Экспорт Для Каждого Лист Из Книга.Sheets Цикл Если ВРег(Лист.Name) = ВРег(ИмяЛиста) Тогда Возврат Лист; КонецЕсли; КонецЦикла; diff --git a/Configuration.xml b/Configuration.xml index 1e61e59..40d6a4f 100755 --- a/Configuration.xml +++ b/Configuration.xml @@ -56,7 +56,7 @@ Russian ООО "Профи-Софт", код партнера 42575-13, г.Байконур. - 3.0.0.76 + 3.0.0.77 Language.Русский