&НаКлиенте
Процедура ЗаполнитьИзФайла(Команда)
ОповещениеОЗавершение = Новый ОписаниеОповещения("ПолучениеФайлаЗавершение", ЭтотОбъект);
ПараметрыЗагрузки = ФайловаяСистемаКлиент.ПараметрыЗагрузкиФайла();
ПараметрыЗагрузки.ИдентификаторФормы = УникальныйИдентификатор;
ПараметрыЗагрузки.Диалог.Фильтр = "Текст" + "|*.txt";
ФайловаяСистемаКлиент.ЗагрузитьФайл(ОповещениеОЗавершение, ПараметрыЗагрузки);
КонецПроцедуры
&НаКлиенте
Процедура ПолучениеФайлаЗавершение(Результат, ДополнительныеПараметры) Экспорт
Если Результат = Неопределено Тогда
Возврат;
КонецЕсли;
ЗаполнитьИзФайлаНаСервере(Результат.Хранение);
Модифицированность = Истина;
КонецПроцедуры
&НаСервере
Процедура ЗаполнитьИзФайлаНаСервере(Хранение)
ДвоичныеДанные = ПолучитьИзВременногоХранилища(Хранение);
Текст = ПолучитьСтрокуИзДвоичныхДанных(ДвоичныеДанные);
МассивСтрок = СтрРазделить(Текст, Символы.ПС, Ложь);
Объект.Звонки.Очистить();
Для Каждого Строка Из МассивСтрок Цикл
МассивСлов = СтрРазделить(Строка, ";", Ложь);
СтрокаТЧ = Объект.Звонки.Добавить();
СтрокаТЧ.НачалоЗвонка = СтроковыеФункцииКлиентСервер.СтрокаВДату(МассивСлов[0], ЧастиДаты.ДатаВремя);
СтрокаТЧ.ОкончаниеЗвонка = СтроковыеФункцииКлиентСервер.СтрокаВДату(МассивСлов[1], ЧастиДаты.ДатаВремя);
СтрокаТЧ.КодОператора = МассивСлов[2];
СтрокаТЧ.ОценкаКлиента = Число(МассивСлов[3]);
КонецЦикла;
КонецПроцедуры
&НаКлиенте
Процедура ПериодРегистрацииПриИзменении(Элемент)
Объект.ПериодРегистрации = НачалоМесяца(Объект.ПериодРегистрации);
КонецПроцедуры
|
