Имя: Пароль:
1C
1С v8
Запись в регистр сведений
0 davinchi Resolve
 
26.01.20
14:40
Необходимо из Excel записать в регистр сведений
Excel имею вот такого плана:

Номенклатура | Характеристика | МаксОстаток
-------------|----------------|------------
Модель 1     | Хар-ка 1       | 10
-------------|----------------|------------
Модель 1     | Хар-ка 2       | 20
-------------|----------------|------------
Модель 2     | Хар-ка 1       | 10

Запись произвожу с помощью вот этого кода:

&НаСервере
Процедура ДобавитьЗаписьТабеля(Номенклатура, Характеристика, МаксОстаток, Дата)
    
    
    НоваяЗапись = РегистрыСведений.МаксОстатокПоТоварам.СоздатьМенеджерЗаписи();
    
    НоваяЗапись.Номенклатура = Справочники.Номенклатура.НайтиПоНаименованию(Номенклатура);
    НоваяЗапись.Характеристика = Справочники.ХарактеристикиНоменклатуры.НайтиПоНаименованию(Характеристика);
    НоваяЗапись.МаксОстаток = МаксОстаток;
    НоваяЗапись.Период  = Дата;
    
    НоваяЗапись.Записать(Истина);
        
КонецПроцедуры

&НаКлиенте
Процедура ЗагрузитьДанныеТабеля(Команда)
    
    // Вставить содержимое обработчика.
    //ОчиститьДанные();
    Excel = Новый COMОбъект("Excel.Application");
    Книга = Excel.WorkBooks.Open("C:\1213.xlsx");
    ЛистДанных = Книга.Sheets(1);
    ПоследняяСтрока = ЛистДанных.UsedRange.Row+ЛистДанных.UsedRange.Rows.Count-1;  
    Для Стр = 1 По ПоследняяСтрока Цикл
        
        Дата = '20130720000000';
        
        Дата = Дата + 1;
                
        Номенклатура = ЛистДанных.Cells(Стр,1).Text;
        Характеристика = ЛистДанных.Cells(Стр,2).Text;
        МаксОстаток = ЛистДанных.Cells(Стр,3).Text;
                
        ДобавитьЗаписьТабеля(Номенклатура, Характеристика,  МаксОстаток, Дата);    
        
        
    
    КонецЦикла;
    Excel.Application.Quit();  

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

Записывает только разные значения МаксОстаток но не одинаковые, что я делаю не так
Заранее спасибо
1 ДенисЧ
 
26.01.20
14:43
что такое "различные значения" и что такое "максостаток"?

С тебя 5 000 рублей и я угадаю. Или 1 000 и не стану угадывать и не стану говорить, что я об этом думаю
2 davinchi Resolve
 
26.01.20
14:50
(1) извиняюсь, поторопился,
Вот таблица Excel
Номенклатура | Характеристика | МаксОстаток
-------------|----------------|------------
Модель 1     | Хар-ка 1       | 10
-------------|----------------|------------
Модель 1     | Хар-ка 2       | 20
-------------|----------------|------------
Модель 2     | Хар-ка 1       | 10

Мне нужно что бы записывалось в регистр сведний каждая строка,
Модель 1 | Хар-ка 1 | 10
Модель 1 | Хар-ка 2 | 20
Модель 2 | Хар-ка 1 | 10

А у меня записываються только
Модель 1 | Хар-ка 2 | 20
Модель 2 | Хар-ка 1 | 10

То есть записываются случайные строки из таблицы, в которых разные значения в 3й колонке
3 Фрэнки
 
26.01.20
14:51
(2) это у тебя тестовая задача при приеме на работу или что вообще такое? лабораторная, курсовая?
4 davinchi Resolve
 
26.01.20
14:53
(3) для работы
5 Злопчинский
 
26.01.20
15:10
ну как бы Дата = '20130720000000'; - надо вынести перед циклом.
иначе мне неясен глубюокий смысл этого оператора...
6 Фрэнки
 
26.01.20
15:15
(4) И смотри на настройки этого РС.
Там еще поле Характеристика окажется не измерением, а ресурсом
7 davinchi Resolve
 
26.01.20
15:18
(5) спасибо большое ) все заработала огромная благодарность