|
&НаСервере
Процедура ДобавитьЗаписьВЖурналРегистрации(Знач Событие, Знач Комментарий)
ЗаписьЖурналаРегистрации(Событие,
УровеньЖурналаРегистрации.Предупреждение, , ,
Комментарий);
КонецПроцедуры
Функция ПолучитьКороткоеИмяФайла(Знач ПолноеИмяФайла)//Ark
Пока СтрНайти(ПолноеИмяФайла, "\", НаправлениеПоиска.СКонца)
> 0 Цикл
Возврат Прав(ПолноеИмяФайла,
СтрДлина(ПолноеИмяФайла)
- СтрНайти(ПолноеИмяФайла,
"\", НаправлениеПоиска.СКонца));
КонецЦикла;
КонецФункции
&НаКлиенте
Процедура ЗагрузитьДанные(Команда)
ДобавитьЗаписьВЖурналРегистрации("Загрузка
начислений. Начало - " + ТекущаяДата(),
"Файл: " + ПолучитьКороткоеИмяФайла(ИмяФайлаСНачислениями));
ЗагрузитьДанныеНаСервере();
ДобавитьЗаписьВЖурналРегистрации("Загрузка
начислений. Окончание - " + ТекущаяДата(),
"Файл: " + ПолучитьКороткоеИмяФайла(ИмяФайлаСНачислениями));
КонецПроцедуры
|