Функция ПолучитьНДС(дбфНДС)
   СпрНДС = СоздатьОбъект("Справочник.НДС");
   Если дбфНДС = 18 Тогда
       СпрНДС.НайтиПоКоду(1);    
   ИначеЕсли дбфНДС = 10 Тогда
       СпрНДС.НайтиПоКоду(2);
   Иначе
       СпрНДС.НайтиПоКоду(3);
   КонецЕсли;
       Возврат СпрНДС;
КонецФункции
Процедура Загрузить()
   ДБФ = СоздатьОбъект("XBase");
   СпрТовары = СоздатьОбъект("Справочник.Товары");
   ДБФ.ОткрытьФайл(ВыбФайл);
   ДБФ.Первая();
   Пока ДБФ.ВКонце() = 0 Цикл
       СпрТовары.Новый();
       СпрТовары.Наименование = ДБФ.NAIM;
       СпрТовары.НДС = ПолучитьНДС(ДБФ.NDS);
Здесь ругается СпрТовары.НДС = ПолучитьНДС(ДБФ.NDS);
{D:\ВЫГРУЗКАВОПС\ЗАГРУЗКАТОВАРОВ.ERT(21)}: Неверное присвоение значения. Используйте: .ТекущийЭлемент()
Что можно сделать?
       СпрТовары.Записать();
       ДБФ.Следующая();
   КонецЦикла;
   ДБФ.ЗакрытьФайл();
КонецПроцедуры

Возврат СпрНДС.ТекущийЭлемент();

СпрТовары.НДС = ПолучитьНДС(ДБФ.NDS).ТекущийЭлемент();

Используйте: .ТекущийЭлемент()

не успел...