Помогите срочно. Программист уехал в отпуск, срочно нужна обработка для работы со справочником номенклатуры. Есть экселевская таблица, в ней:

1. Строковое поле наименование - его ищем в справочнике.
DVD-плейер PHILIPS DVP 3800/51

2. Строковое поле наименование - на него меняем наименование и полное наименование.
DVD-плейер PHILIPS DVP 3800=(USB)

возможно будет трудность в том, что это БП 1.5 движок 8.1

вознаграждение вебманями.

1500

1499

1498, тока мне архив с содержимым C:\Program Files\1cv81\ надо, так как платформы 8.1 нет, или подключусь удаленно.

Док = ПолучитьCOMОбъект(Путь + "Номенклатура.xls");
   Сч = 1;
   Пока Док.Sheets(1).Cells(Сч,1).Value <> "" Цикл
     Спр = Справочники.Номенклатура.НайтиПоНаименованию(Док.Sheets(1).Cells(Сч,1).Value);
     Если Спр <> Неопределено Тогда
       СпрОб = Спр.ПолучитьОбъект();
       СпрОб.Наименование = Док.Sheets(1).Cells(Сч,2).Value;
       СпрОб.ПолноеНаименование = Док.Sheets(1).Cells(Сч,2).Value;
       СпрОб.Записать();
     КонецЕсли;    
   КонецЦикла;    
   Док.Application.Quit();

(4) не модно

750 рублей. Адрес в профиле

Спасибо конечно, еле разобрался, т.к. "не настоящий сварщик". 4 часа разбирался почему код не работает.


Док = ПолучитьCOMОбъект("c:\11\" + "Ном.xls");
Сч = 1;
Пока Док.Sheets(1).Cells(Сч,2).Value <> Неопределено Цикл
  Спр = Справочники.Номенклатура.НайтиПоНаименованию(Док.Sheets(1).Cells(Сч,2).Value);
    Если Спр <> Неопределено Тогда
     СпрОб = Спр.ПолучитьОбъект();
     СпрОб.Наименование = Док.Sheets(1).Cells(Сч,1).Value;
     СпрОб.ПолноеНаименование = Док.Sheets(1).Cells(Сч,1).Value;
     СпрОб.Записать();
    КонецЕсли;      
   Сч = Сч + 1
КонецЦикла;    
 Док.Application.Quit();

(5) А зачем гламурничать? :-)

(7) Ну забыл про +1 на скорую руку набросал :-)

(9)еще раз спасибо за наводку, там еще кое что было с определением "Неопределено" и пришлось окружать Попыткой, когда такого наименования не оказывалось в справочнике, то выбрать объект было нельзя и цикл заканчивался с ошибкой. отблагодарил как смог :) надеюсь не в обиде.