Проведение регистрам документ "Корректировка Серий и Характеристик"

Добрый день,
Помогите, пожалуйста, разобраться - почему когда я создаю документ вручную у меня идет движение по двум регистрам - "ТоварыНаСкладах" и "ПартииТоваров", а когда делаю программно такой документ, то движение идет только по регистру "ТоварыНаСкладах" и даже не отображается в отчете "ВедомостьПоТоварамНаСкладах", видимо пятница 13 не дает додуматься до этого =\

вот код создания документа:
доко = ЭтаФорма.ЭлементыФормы.ДеревоДокументов.ТекущаяСтрока.Ссылка.ПолучитьОбъект();
    доко.Состояние = Перечисления.СостоянияЗаказов.Отказ;
    док = доко.сделка.ПолучитьОбъект();
    док.Состояние = Перечисления.СостоянияЗаказов.Отказ;
    кор = Документы.КорректировкаСерийИХарактеристикТоваров.СоздатьДокумент();
    Кор.Организация = Доко.Организация;
    Кор.Склад        = Доко.Склад;
    Кор.Дата        = ТекущаяДата();
    Кор.ОтражатьВУправленческомУчете = Истина;
    Для каждого стр из Доко.Товары цикл
        кстр = Кор.товары.Добавить();
        кстр.Номенклатура = стр.номенклатура;
        кстр.Количество   = стр.количество;
        кстр.ЕдиницаИзмерения = кстр.Номенклатура.ЕдиницаХраненияОстатков;
        кстр.СерияНоменклатуры = стр.серияноменклатуры;
        кстр.СерияНоменклатурыНовая = Справочники.СерииНоменклатуры.НайтиПоКоду("9999999999");
        кстр.Качество = Справочники.Качество.НайтиПоКоду("000000001");
    КонецЦикла;
    кор.Записать(РежимЗаписиДокумента.Проведение);
    док.Записать(РежимЗаписиДокумента.Проведение);
    доко.Записать(РежимЗаписиДокумента.Проведение);