Загрузка данных из таблицы значений в регистр сведений

 ТЗ = Новый ТаблицаЗначений; 
      

     ТЗ = СписокИнвентарныхГрупп.Выгрузить(); 
      

     СчетчикКолонок = 2; 
      

     СчетчикСтрок = 0; 
      

     Пока СчетчикСтрок < СписокИнвентарныхГрупп.Количество()Цикл 
      

     Пока СчетчикКолонок<=13 Цикл 
      

     НаборДанных = РегистрыСведений.ЛимитыИнвентаря.СоздатьНаборЗаписей(); 
      

     НаборДанных.Отбор.ИнвентарнаяГруппа.Установить(ТЗ[СчетчикСтрок][1]); 
      

     НаборДанных.Отбор.Подразделение.Установить(ПОдразделение); 
      

     НаборДанных.Отбор.Дата.Установить(ДобавитьМесяц(НачалоГода(Период),СчетчикКолонок-2)); 
      

     НаборДанных.Прочитать(); 
      

     Если НаборДанных.Количество() = 0 Тогда 
      

     Запись = НаборДанных.Добавить(); 
      

     Иначе 
      

     Запись = НаборДанных[0]; 
      

     КонецЕсли; 
      

     Запись.Подразделение = Подразделение; 
      

     Запись.ИнвентарнаяГруппа = ТЗ[СчетчикСтрок][1]; 
      

     Запись.Дата = ДобавитьМесяц(НачалоГода(Период),СчетчикКолонок-2); 
      

     Запись.Количество = ТЗ[СчетчикСтрок][СчетчикКолонок+1]; 
      

     Запись.Период = Период; 
      

     НаборДанных.Записать(); 
      

     СчетчикКолонок = СчетчикКолонок+1; 
      

     КонецЦикла; 
      

     СчетчикСтрок = СчетчикСтрок+1; 
      

     СчетчикКолонок = 2; 
      

     КонецЦикла;