v3.0.0.77

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 Тогда Возврат; КонецЕсли;
 
     ГруппаНаименование = "";

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));
 КонецФункции

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) = ВРег(ИмяЛиста) Тогда Возврат Лист; КонецЕсли;
     КонецЦикла;

Configuration.xml

@@ -56,7 +56,7 @@
 			<ScriptVariant>Russian</ScriptVariant>
 			<DefaultRoles/>
 			<Vendor>ООО "Профи-Софт", код партнера 42575-13, г.Байконур.</Vendor>
-			<Version>3.0.0.76</Version>
+			<Version>3.0.0.77</Version>
 			<Caption/>
 			<ShortCaption/>
 			<DefaultLanguage>Language.Русский</DefaultLanguage>