Программное создание "Поступления товаров и услуг"

Здравствуйте!

У нас используется 1С 8.1 с немножко изменённой УТ 10.3.11.4. Передо мной стоит задача импортировать в 1С номенклатуру и остатки из DBF-файла. Для этого читаю из файла строчки, выуживаю наименования и артикулы, заношу их в справочник номенклатуры. После этого добавляется соответствующая строчка в документ "Поступление товаров и услуг": артикул, количество, закупочная цена и прочие реквизиты. Всё вроде проходит гладко, справочник номенклатуры заполняется, документ "Поступление товаров и услуг" проводится, потом также программно создаю и провожу "Установку цен номенклатуры"... Вроде всё хорошо. НО! На складе - пусто! Ни один товар из "Поступления..." на склад не попадает и в аедомости остатков по складам тоже не фигурирует. А между тем всё проведено. Если делать всё вручную - товар на склад попадает, но всё вручную вбивать - нереально, там тысячи товаров от сотни поставщиков.

Работает всё так:


 
Попытка Б =  Новый XBase;
 
Исключение
 
  Сообщить(ОписаниеОшибки());
 
Возврат;
 
КонецПопытки;
 

 
Б.ОткрытьФайл(Файл,,1);
 
Б.Кодировка=КодировкаXBase.OEM;    
 

 
Если Б.Открыта()=0 Тогда
 
Сообщить("Не удалось открыть файл DBF","!");
 
Возврат;
 
КонецЕсли;
 

 
СПр=Справочники.Контрагенты;
 
СПД = Справочники.ДоговорыКонтрагентов;
 

 
СППр=Справочники.Производители;
 
СПМ = Справочники.Марки;
 
СР=Справочники.Размеры;
 
СД=Справочники.РазмерыДисков;
 
СпНом=Справочники.Номенклатура;
 
РС=Справочники.Радиусы;
 

 
ТекущийКонтрагент="";
 

 
//Считываем контрагента
 
ТекущийКонтрагент=СокрЛП(Б.POST);
 
Контрагент=Справочники.Контрагенты.НайтиПоНаименованию(ТекущийКонтрагент, Истина);
 
    
 
//Создаём документ "Поступление товаров и услуг" и заполняем шапку
 
ПТУ=Документы.ПоступлениеТоваровУслуг.СоздатьДокумент();
 
ПТУ.ВалютаДокумента=Справочники.Валюты.НайтиПоНаименованию("руб");
 
ПТУ.Контрагент=Контрагент;
 
ПТУ.Организация = Справочники.Организации.НайтиПоКоду("000000001");
 
ПТУ.ДоговорКонтрагента=Справочники.ДоговорыКонтрагентов.НайтиПоНаименованию("Основной договор", истина,, Контрагент);
 
ПТУ.Дата = ТекущаяДата();
 
ПТУ.Грузоотправитель = Контрагент;
 
ПТУ.Грузополучатель = Справочники.Организации.НайтиПоКоду("000000001");
 
ПТУ.ВидПоступления = Перечисления.ВидыПоступленияТоваров.НаСклад;
 
ПТУ.ОтражатьВБухгалтерскомУчете=Истина;
 
ПТУ.ОтражатьВНалоговомУчете = Истина;
 
ПТУ.ОтражатьВУправленческомУчете = Истина;
 
ПТУ.СкладОрдер = Справочники.Склады.НайтиПоНаименованию("Главный склад");
 
ПТУ.ТипЦен=Справочники.ТипыЦенНоменклатурыКонтрагентов.НайтиПоНаименованию("Закупочная", истина,,Контрагент);
 
ПТУ.КратностьВзаиморасчетов = 1;
 
ПТУ.КурсВзаиморасчетов=1;
 
ПТУ.Записать();
 
    
 
Пока СокрЛП(Б.POST)=ТекущийКонтрагент Цикл
 

 
//... Тут анализируем строчку номенклатуры,
 
// формируем наименование, артикул, марку, модель...
 

 
Произв=СокрЛП(Б.FIRM);
 
Производитель=СППр.НайтиПоНаименованию(Произв, истина);
 
Мар=Сокрлп(Б.MODEL);
 
Марка=СПМ.НайтиПоНаименованию(Мар, истина);
 
Размер=СокрЛП(Б.SIZE);
 
Радиус=СокрЛП(Б.RADIUS);
 
Родитель=СпНом.НайтиПоНаименованию(Радиус, Истина, СпНом.НайтиПоНаименованию("Шины",Истина));
 
Наименование="Шина "+Производитель.Наименование+" "+Марка.Наименование+" "+СокрЛП(Размер)+" "+Радиус;
 

 
    НовШина=СпНом.СоздатьЭлемент();
 
    НовШина.Наименование=Наименование;
 
    НовШина.НаименованиеПолное = Наименование;
 
    НовШина.БазоваяЕдиницаИзмерения=Справочники.КлассификаторЕдиницИзмерения.НайтиПоНаименованию("шт");
 
    НовШина.ВидНоменклатуры=Справочники.ВидыНоменклатуры.НайтиПоНаименованию("Шина");
 
НовШина.Производитель=СПпр.НайтиПоНаименованию(Произв, истина);
 
НовШина.Марка=Марка;
 
НовШина.Радиус=РС.НайтиПоНаименованию(Радиус, истина);
 
НовШина.Размер=Ср.НайтиПоНаименованию(Размер, истина);
 
НовШина.НР=НовШина.Размер.Наименование;
 
    
 
Артикул=СокрЛП(СтрЗаменить(Б.NUM, " ", ""))+"ш";
 
НовШина.Артикул=Артикул;
 
НовШина.Родитель=Родитель;
 
НовШина.Записать();
 
Штуки=Справочники.ЕдиницыИзмерения.СоздатьЭлемент();
 
Штуки.Наименование="шт";
 
Штуки.ЕдиницаПоКлассификатору=Справочники.КлассификаторЕдиницИзмерения.НайтиПоНаименованию("шт");
 
    Штуки.Владелец=НовШина.Ссылка;
 
    Штуки.Коэффициент=1;
 
    Штуки.Записать();
 
    НовШина.ЕдиницаХраненияОстатков=Штуки.Ссылка;
 
    НовШина.ЕдиницаИзмеренияМест=Штуки.Ссылка;
 
    НовШина.ЕдиницаДляОтчетов=Штуки.Ссылка;
 
    НовШина.Записать();
 
    
 
//Теперь добавляем только что созданный товар в документ прихода    
 

 
НоваяСтрока=ПТУ.Товары.Добавить();
 
Ном=СпНом.НайтиПоРеквизиту("Артикул", Артикул, Родитель);
 
НоваяСтрока.Номенклатура=Ном;
 
Кол = Число(Сокрлп(Б.REZ));
 
Цен = Число(Сокрлп(Б.ZP))/Кол;
 
НоваяСтрока.Количество=Кол; НоваяСтрока.Цена=Цен;
 
НоваяСтрока.Сумма=Кол*Цен;
 
НоваяСтрока.СтавкаНДС=Перечисления.СтавкиНДС.БезНДС;
 
НоваяСтрока.СуммаНДС=0;
 
НоваяСтрока.ЕдиницаИзмерения=Справочники.ЕдиницыИзмерения.НайтиПоНаименованию("шт", истина, ,Ном);
 
ПТУ.Записать();
 

 
//Проводим документ
 
Попытка
 
    ПТУ.Проведен=Истина;
 
Исключение
 
Сообщить ("Ошибка при проведении! Строка "+Стр)
 
КонецПопытки;
 

 
//Переходим на следующую строку
 
Если Стр < Б.КоличествоЗаписей() Тогда
 
Стр=Стр+1;
 

 
Б.Перейти(Стр);
 
    Иначе
 
        Прервать;
 

 
//....
 
//Ну и в конце концов:
 

 
Б.ЗакрытьФайл();

Что же я сделал не так? Почему проведённый документ не добавляет товара на склад?