Помогите разобраться с Установкой цен номенклатуры

Помогите разобраться, как мне при создании нового документа установка цен номенклатуры в момент открытия установить СписокТиповЦен.ТипЦен такой как в оприходовании товаров???? Ниже привожу код заполнения самого документа.
ИначеЕсли ТипЗнч(Основание) = Тип("ДокументСсылка.ОприходованиеТоваров") Тогда
        // Заполнение шапки
           ЗаполнениеДокументов.ЗаполнитьШапкуДокументаПоОснованию(ЭтотОбъект, Основание);

        ИндексСтрокиТаблицыЦен = 0;
        Комментарий = Основание.Комментарий;
        Ответственный = Основание.Ответственный;
        Для Каждого ТекСтрокаТовары Из Основание.Товары Цикл
            НоваяСтрока = Товары.Добавить();
            НоваяСтрока.ИндексСтрокиТаблицыЦен = ИндексСтрокиТаблицыЦен;
            НоваяСтрока.ТипЦен = Справочники.ТипыЦенНоменклатуры.НайтиПоКоду("000000001");
            НоваяСтрока.Валюта = Справочники.Валюты.НайтиПоКоду("111");

            НоваяСтрока.ЕдиницаИзмерения = ТекСтрокаТовары.ЕдиницаИзмерения;
            НоваяСтрока.Номенклатура = ТекСтрокаТовары.Номенклатура;
            НоваяСтрока.ХарактеристикаНоменклатуры = ТекСтрокаТовары.ХарактеристикаНоменклатуры;
            НоваяСтрока.Цена = ТекСтрокаТовары.Цена;
            ИндексСтрокиТаблицыЦен = ИндексСтрокиТаблицыЦен + 1;
        КонецЦикла;

    КонецЕсли;