Напишите, пожалуйста,
Пример загрузки (Номенклатуры или Контрагентов)
через COM соединение в Конфигурацию 8.1 Управление торговлей.

Забыл добавить "Быстро нах!".

А вообще, юзай поиск, примеров полно.

Так написал бы раз полно.

Краткосрочный прогноз:
Автор будет послан в индивидуальный пеший поход с эротическим подтекстом в цензурной форме, и начнет грубить. Подтянется народ и будет попытка забития пернатых. Но ничего не получится, пока не придет Пит.

"пожалуйста" ж не забыл...)

(0)А загрузки откуда? Через ком к чему только не подцепишься. :)

Функция КонтрольСквознойНумерации(ДокументОбъект)  Экспорт
Если ДокументОбъект.ЭтоНовый() тогда
   //immortal
Хранилище = Константы.ПараметрыПодключенияСквознойНумерации.Получить();
Структура = Хранилище.Получить();
Если Структура <> Неопределено тогда
   v8 = New ComObject("V81.ComConnector");
   Connection = v8.Connect("File="""+Структура.ПутьКБазе+""";Usr="""+Структура.Пользователь+""";Pwd="""+Структура.Пароль+""";");
   
   Query = Connection.NewObject("Query");
   Query.Text = "ВЫБРАТЬ ПЕРВЫЕ 1
                |    РегистрНомеров.Номер КАК Номер
                |ИЗ
                |    РегистрСведений." + ДокументОбъект.Метаданные().Имя + " КАК РегистрНомеров
                |
                |ДЛЯ ИЗМЕНЕНИЯ  //залочим таблицу
                |
                |УПОРЯДОЧИТЬ ПО
                |    Номер УБЫВ";
   Selected = Query.Execute().Choose();
   Selected.Next();
   //мы за безопасный секс=)
Try
Если Найти(ТипЗнч(ДокументОбъект),"Документ") > 0 тогда
   ДокументОбъект.Номер = Формат(Число(Selected.Номер)+1,"ЧЦ="+Строка(ДокументОбъект.Метаданные().ДлинаНомера)+ "; ЧВН=; ЧГ=");
ИначеЕсли Найти(ТипЗнч(ДокументОбъект),"Справочник") > 0 тогда
   ДокументОбъект.Код = Формат(Число(Selected.Номер)+1,"ЧЦ="+Строка(ДокументОбъект.Метаданные().ДлинаКода)+ "; ЧВН=; ЧГ=");
КонецЕсли;
НаборЗаписей = Connection.РегистрыСведений[ДокументОбъект.Метаданные().Имя].СоздатьНаборЗаписей();
НаборЗаписей.Отбор.Номер.Использование = Истина;
НаборЗаписей.Отбор.Номер.ВидСравнения  = Connection.ВидСравнения.Равно;
НаборЗаписей.Отбор.Номер.Значение      = Формат(Число(Selected.Номер)+1,"ЧЦ=11; ЧВН=; ЧГ=");
НаборЗаписей.Прочитать();
Запись = НаборЗаписей.Добавить();
Запись.Номер = Формат(Число(Selected.Номер)+1,"ЧЦ=11; ЧВН=; ЧГ=");
Запись.Период= НачалоГода(ТекущаяДата());
НаборЗаписей.Записать();


Except
   Message(ErrorDescription());    
Возврат    Истина;
EndTry;    
Возврат Ложь;
//immortal
Иначе //не заполнены параметры сквозной нумерации объектов    
   Сообщить("Не заполнены параметры сквозной нумерации объектов!",СтатусСообщения.Важное);
   Возврат Истина;    
КонецЕсли;            
КонецЕсли;
Возврат Ложь;
КонецФункции

подсказка номенклатура будет так : v8.Справочники.Номенклатура=)

Спасибо БОЛЬШОЕ.

(3) хреновый из тебя прогнозист... ;))

Нда, не повезло..