загрузка данных из файла в ТЗ.

&НаКлиенте
Процедура ПрочитатьФайлы(Команда)
    
    тзБонусы.Очистить();
    
    Если ФорматФайла="XLSX" Тогда
        
        ПрочитатьФайл_XLS();
        
    КонецЕсли;
    
КонецПроцедуры

&НаСервере
Процедура ПрочитатьФайл_XLS_НаСервере(АдресДанных)    
    
    ТабДок= Новый ТабличныйДокумент;
    
    Данные= ПолучитьИзВременногоХранилища(АдресДанных);
    
    ПутьКФайлуНаСервере=ПолучитьИмяВременногоФайла("xlsx");
    
    Данные.Записать(ПутьКФайлуНаСервере);
    
    Попытка
        
        ТабДок.Прочитать(ПутьКФайлуНаСервере, СпособЧтенияЗначенийТабличногоДокумента.Значение);
                
    Исключение
    
        Сообщение= Новый СообщениеПользователю;
        
        Сообщение.Текст="Файл не найден" + ОписаниеОшибки();
        
        Сообщение.Сообщить();
        
        Возврат;
            
    КонецПопытки;
    
    КоличествоСтрок= ТабДок.ВысотаТаблицы;
    
    Для НомерСтроки=1 По КоличествоСтрок Цикл
        
        СтрокаДанных=тзБонусы.Добавить();
                     
        СтрокаДанных.Категория=ТабДок.ПолучитьОбласть("R" + Формат(НомерСтроки,"ЧГ=0") + "C"+1).ТекущаяОбласть.Текст;
        
        СтрокаДанных.Plan1=ТабДок.ПолучитьОбласть("R" + Формат(НомерСтроки,"ЧГ=0") + "C"+2).ТекущаяОбласть.Текст;

        СтрокаДанных.Plan2=ТабДок.ПолучитьОбласть("R" + Формат(НомерСтроки,"ЧГ=0") + "C"+3).ТекущаяОбласть.Текст;
        
        СтрокаДанных.BonusSumma=ТабДок.ПолучитьОбласть("R" + Формат(НомерСтроки,"ЧГ=0") + "C"+4).ТекущаяОбласть.Текст;
    
    КонецЦикла;    
            
КонецПроцедуры


&НаКлиенте
Процедура ПрочитатьФайл_XLS()
    
    ДанныеФайла= Новый ДвоичныеДанные(ПутьКФайлам);
    
    АдресДанных=ПоместитьВоВременноеХранилище(ДанныеФайла,УникальныйИдентификатор);
    
    ПрочитатьФайл_XLS_НаСервере(АдресДанных);    
    
КонецПроцедуры

Запрос.УстановитьПараметр("Нач", Нач);
    Запрос.УстановитьПараметр("Кон", КонецДня(Кон));
    Запрос.УстановитьПараметр("Отдел",Отдел);
    Запрос.УстановитьПараметр("Филиал",Филиал);
    Запрос.УстановитьПараметр("ТЧ", ПутьКФайлам.Выгрузить);
    Запрос.УстановитьПараметр("Товар", Товар);
    ////////////////////////////////////////////////////////////­///////////
    
    ПолученноеЗначение = ЗначениеИзФайла(ПутьКФайлам);
    
    Если ТипЗнч(ПолученноеЗначение) = Тип("ТаблицаЗначений") Тогда
        
        //не знаю что дальше
    КонецЕсли;    
    
    ////////////////////////////////////////////////////////////­///////////
    
    РезультатЗапроса = Запрос.Выполнить();
    
    Выборка= РезультатЗапроса.Выбрать();
    
    тзБонусы.Очистить();
    
    Пока Выборка.Следующий() Цикл
        
        ТабЗнач=тзБонусы.Добавить();
        
        ТабЗнач.BonusSumma=Выборка.BonuSumma;

        ТабЗнач.Plan1=Выборка.Plan1;
      
        ТабЗнач.Plan2=Выборка.Plan2;
      
        ТабЗнач.Категория=Выборка.Категория;