coc = Новый XBase;
coc.ОткрытьФайл(ПутьБДБэст4+"\oc\coc.dbf",,Истина); //только для чтения
Если coc.открыта() Тогда
coc.Первая();
// перебираем файл с основными средствами
Пока НЕ coc.ВКонце() Цикл
НовОС = справочники.ОсновныеСредства.СоздатьЭлемент();
Новос.Код= coc.nom_kart;
Новос.Наименование = coc.naim_ob;
новос.Записать();
НовПозОс = НовДокОс.ОС.Добавить();
НовПозОс.ОсновноеСредство=новос.Ссылка;
новпозос.ВводВЭксплуатациюПриПринятииРегл=Истина;
...
если coc.alg_i="32 " или coc.alg_i="33 " тогда
НовПозОс.НачислятьАмортизациюБУ =Истина;
...
новпозос.СпособОтраженияРасходовПоАмортизацииБУ=справочники.СпособыОтраженияРасходовПоАмортизации.НайтиПоКоду("000000001");
конецесли;
если coc.alg_i="333" или coc.alg_i="39 " тогда
НовПозОс.НачислятьАмортизациюБУ =Ложь;
иначеесли coc.alg_i="38 " тогда
НовПозОс.НачислятьАмортизациюБУ =истина;
...
конецесли;
НовПозОс.МОЛРегл =справочники.ФизическиеЛица.НайтиПоКоду("...");
НовПозОс.ИнвентарныйНомерРегл =coc.inv_nom;
coc.Следующая();
КонецЦикла;
НовДокОс.Записать(РежимЗаписиДокумента.Проведение);
иначе
Сообщить("Не удалось открыть файл БД",СтатусСообщения.Внимание) ;
КонецЕсли;
coc.ЗакрытьФайл();