Разъясните пожалуйста, почему не работает вот так:

Элемент.КорСубконто3 = ДокументСсылка;

После попытки присваивания, субконто остается пустып, тип непоределен.

подозреваю что дело в том что субконто имеет тип ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.ДокументыРасчетовСКонтрагентами
Но как быть с этим не знаю. Спасибо

у КорСубконто3 есть в типах твой ДокументСсылка?

(1) Есть

КорСубконто3 = ДокументСсылка;
?

(3) что не ясно в вопросе?

у тебя тип"вид субконто", а ты пихаешь туда значение - ссылку

(5) оо, спасибо! подскажите тогда пожалуйста, а как правильно сделать?

(6)Смотря что тебе нужно.

(7) ээ... ну мне нужно указать в субконто ссылку на документ "реализация отгруженных товаров"

(8)Элемент - это что за зверь?

(6) Тип должен быть не ПланВидовХарактеристикСсылка, а Характеристика.ВидыСубконтоХозрасчетные

Это часом не проводка у тебя?:-)

хотя врядли конечно:-)

(11) это проводка )

(13)А можно полный код с определением 'Элемент'?

больше похоже на выборку из запроса

и боюсь помогать тебе уже будут другие:-) Мне надо уже домой бежать

(15)+1
очень похоже. только там КорСубконто3 м.б.

посмотри Бухгалтерскийучет.УстановитьСубконто в типовых

Привожу полный код.
Это стандартная функция в БП 3.0
В нее вносились изменения еще до меня
Мой кусочек кода находится между "//Доработка начало" и "//Доработка конец"

Функция ПодготовитьПараметрыПроведения(ДокументСсылка, Отказ) Экспорт

    ПараметрыПроведения = Новый Структура;
    
    Запрос = Новый Запрос;
    
    Запрос.УстановитьПараметр("Ссылка", ДокументСсылка);
    Запрос.Текст = ТекстЗапросаРеквизитыДокумента();
    Результат = Запрос.Выполнить();
    Реквизиты = ОбщегоНазначенияБПВызовСервера.ПолучитьСтруктуруИзРезультатаЗапроса(Результат);
    
    Если НЕ УчетнаяПолитика.Существует(Реквизиты.Организация, Реквизиты.Период, Истина, ДокументСсылка) Тогда
        Отказ = Истина;
        Возврат ПараметрыПроведения;
    КонецЕсли;
    
    СтруктураРеквизиты = Новый Структура("Ссылка,Организация,ВалютаРеглУчета,ВалютаДокумента,ВалютаВзаиморасчетов,
        |ДоговорКонтрагента,ВидДоговора,РасчетыВУсловныхЕдиницах,СуммаВключаетНДС,ОрганизацияПрименяетУСН,
        |КурсВзаиморасчетов,КратностьВзаиморасчетов,КурсДокумента,КратностьДокумента,
        |НачислятьНДСПоОтгрузке,КурсДокументаОтгрузки,КратностьДокументаОтгрузки,
        |ДеятельностьНаТорговомСборе,ДеятельностьНаПатенте,Патент,СпособЗачетаАвансов,ДокументОтгрузки");
    
    ЗаполнитьЗначенияСвойств(СтруктураРеквизиты, Реквизиты);

    СтруктураРеквизиты.ОрганизацияПрименяетУСН =
        УчетнаяПолитика.СистемаНалогообложения(Реквизиты.Организация, Реквизиты.Период) = Перечисления.СистемыНалогообложения.Упрощенная;
    
    Если ТипЗнч(СтруктураРеквизиты.ДокументОтгрузки) = Тип("ДокументСсылка.РеализацияТоваровУслуг") Тогда
        НачислятьНДСПоОтгрузке =
            УчетнаяПолитика.НачислятьНДСПоОтгрузке(Реквизиты.Организация, Реквизиты.Период);
    Иначе
        НачислятьНДСПоОтгрузке =
            УчетнаяПолитика.НачислятьНДСПриПередачеНедвижимости(Реквизиты.Организация, Реквизиты.Период);
    КонецЕсли;
    СтруктураРеквизиты.НачислятьНДСПоОтгрузке = НачислятьНДСПоОтгрузке;

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

    Запрос.УстановитьПараметр("СинонимТара",                  НСтр("ru = 'Возвратная тара'"));
    
    Запрос.УстановитьПараметр("ОрганизацияПрименяетУСН",  СтруктураРеквизиты.ОрганизацияПрименяетУСН);
    Запрос.УстановитьПараметр("ОрганизацияПрименяетУСНПатент",   УчетнаяПолитика.ПрименяетсяУСНПатент(Реквизиты.Организация, Реквизиты.Период));
    Запрос.УстановитьПараметр("НачислятьНДСПоОтгрузке",   СтруктураРеквизиты.НачислятьНДСПоОтгрузке);
    Запрос.УстановитьПараметр("ДокументОтгрузки",         Реквизиты.ДокументОтгрузки);
    Запрос.УстановитьПараметр("ДатаРеализации",                Реквизиты.Период);
    Запрос.УстановитьПараметр("ПодразделениеОрганизации", Реквизиты.ПодразделениеОрганизации);
    Запрос.УстановитьПараметр("СчетРасчетов",               Реквизиты.СчетУчетаРасчетовСКонтрагентом);
    Запрос.УстановитьПараметр("СчетАвансов",               Реквизиты.СчетУчетаРасчетовПоАвансам);
    Запрос.УстановитьПараметр("С2013Года",                   Реквизиты.ДокументОтгрузки.Дата >= Дата('20130101'));
    Запрос.УстановитьПараметр("СчетВыручка",              ПланыСчетов.Хозрасчетный.Выручка);
    
    ПодготовитьТаблицыДокументаДляЦелейПриобретенияРеализации(Запрос, СтруктураРеквизиты);
    
    НомераТаблиц = Новый Структура;
    
    Запрос.Текст = ТекстЗапросаТаблицыДокумента(НомераТаблиц)    
        + ТекстЗапросаСписаниеТоваров(НомераТаблиц)                
        + ТекстЗапросаЗачетАвансов(НомераТаблиц)                
        + ТекстЗапросаРеализация(НомераТаблиц)                    
        + ТекстЗапросаЗачетАвансовКомитентов(НомераТаблиц)        
        + ТекстЗапросаПереоценкаТоваровВРознице(НомераТаблиц)    
        + ТекстЗапросаСписаниеОстаточнойСтоимостиОС(НомераТаблиц)
        // ДОРАБОТКА
        + ТекстЗапросаРеализацияУслугРОТ(НомераТаблиц)
        // ДОРАБОТКА
        + ТекстЗапросаТоварыНДС(НомераТаблиц)                    
        + ТекстЗапросаПереоценкаВалютныхОстатков(НомераТаблиц);
        
    Результат = Запрос.ВыполнитьПакет();
    
    Для Каждого КлючИЗначение Из НомераТаблиц Цикл
    
        ПараметрыПроведения.Вставить(КлючИЗначение.Ключ, Результат[КлючИЗначение.Значение].Выгрузить());
    
    КонецЦикла;
    
    //Доработка начало
    Для Каждого ЭлементПар Из ПараметрыПроведения.РеализацияТовары Цикл
        Если ЭлементПар.ИмяСписка = "Товары" Тогда
            ЭлементПар.КорСубконто3 = ДокументСсылка;
        КонецЕсли;
    КонецЦикла;
    //Дработка конец
    
    Возврат ПараметрыПроведения;
    
КонецФункции

(16) в любом случае, большое спасибо )

(18) Подозреваю, что это то что нужно ) сейчас попробую ) спасибо ))