База 7.7 ТиС.
Задача добавить 3000 карт в базу. групповой обработкой.
с семеркой никогда не сталкивался, пишу на Восьмерке.

Написал код на 8.2 :

   Для ном = НачальноеЗначениеШтрихкода По КонечноеЗначениеШтрихкода Цикл
       Штрихкод=стрзаменить(ном,символы.нпп,"");
       
       Если ДобавлятьКонтрольныйСимвол тогда
           Штрихкод = Штрихкод + РаботаСТорговымОборудованием.КонтрольныйСимволEAN(ШтрихКод, 13);
       КонецЕсли;
       
       НайденнаяКарта=Справочники.ИнформационныеКарты.НайтиПоРеквизиту("КодКарты", Штрихкод);
       Если не НайденнаяКарта.пустая() Тогда
           НайденнаяКарта=НайденнаяКарта.ПолучитьОбъект()
       иначе
           НайденнаяКарта=Справочники.ИнформационныеКарты.СоздатьЭлемент();
       КонецЕсли;
       
       Если ЗначениеЗаполнено(Штрихкод) Тогда
       НайденнаяКарта.КодКарты= Штрихкод;
   КонецЕсли;
............//заполняем все реквизиты

Попытка
   НайденнаяКарта.Записать();
    Сообщить("Записана Карта "+НайденнаяКарта.Наименование+" / "+НайденнаяКарта.КодКарты+"");

Исключение
   Сообщить("не удалось записать карту"+НайденнаяКарта.КодКарты+"");
   
КонецПопытки;


Теперь задача тоже самое на 7.7.. подскажите как правильно?

(0) Наверное, стоило бы перед тем как писать код - изучить встроенный язык системы 1С:Предприятие 7.7?
(Честно говоря, код на 8.2 - тоже не впечатляет).

да это разовое, больше никогда и не понадобится..

"Пригласите специалиста" - не? Жаба?

а я? чем не специалист?

500 рублей?

ctrl+С в 8-ке, ctrl+V в 7.7, делов то. Главное что бы конвертер кода был подключен.

(1) не, похоже на типовую. Он хитрый, жучара, скопипастил кусок из типовой, а говорит, что сам написал.

(6) ОМ РаботаСТорговымОборудованием ещё перенести

(8) общие модули в глобальник надо вставлять, если жкк не читал, не лезь в тему!

(7) сам писал. чесн. слово

(10) Ну так - сколько?

нисколько

я все для всех делаю абсолютно бескорыстно..

(12) Тогда задавайте конкретные вопросы, а не просите выполнить за Вас Вашу работу бесплатно.

(0) примерно так:

СпрКарты = СоздатьОбъект("Справочник.ИнформационныеКарты");
Для ном = НачальноеЗначениеШтрихкода По КонечноеЗначениеШтрихкода Цикл
       //Штрихкод=стрзаменить(ном,символы.нпп,""); на 7.7 неразрывного пробела нет
       
       Если ДобавлятьКонтрольныйСимвол = 1 тогда //ДобавлятьКонтрольныйСимвол - это флажок на форме
         //Здесь надо разобраться, где хранится в 7.7  КонтрольныйСимволEAN и подставить
         Штрихкод = Штрихкод + РаботаСТорговымОборудованием.КонтрольныйСимволEAN(ШтрихКод, 13);
       КонецЕсли;        
       
       Если СпрКарты.НайтиПоРеквизиту("КодКарты", Штрихкод) = 0 Тогда
           СпрКарты.Новый();
           СпрКарты.Записать();
       КонецЕсли;
       НайденнаяКарта=СпрКарты.ТекущийЭлемент();
       
        Если ПустоеЗначение(Штрихкод) = 0 Тогда
       НайденнаяКарта.КодКарты= Штрихкод;
   КонецЕсли;
............//заполняем все реквизиты


Попытка
   НайденнаяКарта.Записать();
    Сообщить("Записана Карта "+НайденнаяКарта.Наименование+" / "+НайденнаяКарта.КодКарты+"");

Исключение
   Сообщить("не удалось записать карту"+НайденнаяКарта.КодКарты+"");
   
КонецПопытки;

забыл вместо
Штрихкод=стрзаменить(ном,символы.нпп,"");
написать
Штрихкод=Строка(ном);

Все один в один только вместо
НайденнаяКарта=НайденнаяКарта.ПолучитьОбъект()
       иначе
           НайденнаяКарта=Справочники.ИнформационныеКарты.СоздатьЭлемент();

немного по другому:

НайденнаяКарта=НайденнаяКарта.ТекущийЭлемент()

и
ИнформационныеКарты.Новый();
НайденнаяКарта=ИнформационныеКарты.ТекущийЭлемент();

(17) спс. ща буду пробывать..

(16) может заменить

Если СпрКарты.НайтиПоРеквизиту("КодКарты", Штрихкод) = 0 Тогда
           СпрКарты.Новый();
           СпрКарты.Записать();
КонецЕсли;
       НайденнаяКарта=СпрКарты.ТекущийЭлемент();
       
   Если ПустоеЗначение(Штрихкод) = 0 Тогда
       НайденнаяКарта.КодКарты= Штрихкод;
   КонецЕсли;

на
Если ПустоеЗначение(Штрихкод) = 0 Тогда
      Если СпрКарты.НайтиПоРеквизиту("КодКарты", Штрихкод) = 0 Тогда
           СпрКарты.Новый();
           СпрКарты.КодКарты= Штрихкод;
           СпрКарты.Записать();
       КонецЕсли;
       НайденнаяКарта=СпрКарты.ТекущийЭлемент();      
КонецЕсли;