&НаСервере

Процедура ДобавитьЗаписьВЖурналРегистрации(Знач Событие, Знач Комментарий)

            ЗаписьЖурналаРегистрации(Событие, УровеньЖурналаРегистрации.Предупреждение, , , Комментарий);

КонецПроцедуры

Функция ПолучитьКороткоеИмяФайла(Знач ПолноеИмяФайла)//Ark

            Пока СтрНайти(ПолноеИмяФайла, "\", НаправлениеПоиска.СКонца) > 0 Цикл

                        Возврат Прав(ПолноеИмяФайла, СтрДлина(ПолноеИмяФайла) - СтрНайти(ПолноеИмяФайла, "\", НаправлениеПоиска.СКонца));

            КонецЦикла;

КонецФункции

&НаКлиенте

Процедура ЗагрузитьДанные(Команда)

            ДобавитьЗаписьВЖурналРегистрации("Загрузка начислений. Начало - " + ТекущаяДата(), "Файл: " + ПолучитьКороткоеИмяФайла(ИмяФайлаСНачислениями));

            ЗагрузитьДанныеНаСервере();

            ДобавитьЗаписьВЖурналРегистрации("Загрузка начислений. Окончание - " + ТекущаяДата(), "Файл: " + ПолучитьКороткоеИмяФайла(ИмяФайлаСНачислениями));

КонецПроцедуры