Добрый день. Помогите решить проблему, не знаю как заполнить счет учета в ТЧ (внешняя обработка), заполняется все, кроме этого, а процедура "СчетаУчетаВДокументах.ЗаполнитьСчетаУчетаВСтрокеТабличнойЧасти" - устарела и не хочет работать.

```1c
    &НаСервере
    Процедура СформироватьНаСервере()

    Запрос = Новый Запрос;
    Запрос.Текст =
    "ВЫБРАТЬ
    | СчетНаОплатуПокупателю.Ссылка КАК Ссылка,
    | СчетНаОплатуПокупателю.Дата КАК Дата,
    | СчетНаОплатуПокупателю.Контрагент КАК Контрагент
    |ПОМЕСТИТЬ ВТ
    |ИЗ
    | Документ.СчетНаОплатуПокупателю КАК СчетНаОплатуПокупателю
    |ГДЕ
    | СчетНаОплатуПокупателю.ПометкаУдаления = ЛОЖЬ
    | И СчетНаОплатуПокупателю.Контрагент = &Контрагент
    | И СчетНаОплатуПокупателю.Дата МЕЖДУ &ДатаНачало И &ДатаОкончание
    |;
    |
    |////////////////////////////////////////////////////////////­////////////////////
    |ВЫБРАТЬ ПЕРВЫЕ 1
    | ВТ.Ссылка КАК Ссылка,
    | ВТ.Дата КАК Дата,
    | ВТ.Контрагент КАК Контрагент,
    | РеализацияТоваровУслуг.Ссылка КАК Реализация
    |ИЗ
    | ВТ КАК ВТ
    | ЛЕВОЕ СОЕДИНЕНИЕ Документ.РеализацияТоваровУслуг КАК РеализацияТоваровУслуг
    | ПО ВТ.Ссылка = РеализацияТоваровУслуг.СчетНаОплатуПокупателю
    |ГДЕ
    | РеализацияТоваровУслуг.ПометкаУдаления = ЛОЖЬ";

    Запрос.УстановитьПараметр("ДатаНачало", НачалоМесяца(ИсходныйМесяц));
    Запрос.УстановитьПараметр("ДатаОкончание", КонецМесяца(ИсходныйМесяц));
    Запрос.УстановитьПараметр("Контрагент", Контрагент);

    РезультатЗапроса = Запрос.Выполнить();

    Если РезультатЗапроса.Пустой() Тогда
    Сообщить("Пустой");
    Иначе
    ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();

    Пока ВыборкаДетальныеЗаписи.Следующий() Цикл

    НовыйДокумент = ВыборкаДетальныеЗаписи.Ссылка.Скопировать();
    НовыйДокумент.Дата = НовыйМесяц;

    Для Каждого стр из НовыйДокумент.Товары Цикл
    стр.Содержание = СтрЗаменить(стр.Содержание,СтрокаПоиска,СтрокаЗамены);
    КонецЦикла;

    Сообщить(НовыйДокумент);
    НовыйДокумент.Записать(РежимЗаписиДокумента.Проведение);

    Если не ВыборкаДетальныеЗаписи.Реализация = null Тогда

    ДокОбъект = Документы.РеализацияТоваровУслуг.СоздатьДокумент();

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

    Сообщить(ДокОбъект);
    ДокОбъект.Записать();

    Иначе
    Сообщить("Нет реализации");

    КонецЕсли;
    КонецЦикла;
    КонецЕсли;
    КонецПроцедуры
```
---
Нашел решение проблемы:

```1c
    //заполнить ТЧ
    Для Каждого СтрокаТЧ Из НовыйДокумент.Товары Цикл
    НоваяСтрока = ДокОбъект.Товары.Добавить();
    ЗаполнитьЗначенияСвойств(НоваяСтрока, СтрокаТЧ);
    СчетаУчетаВДокументах.ЗаполнитьСтроки(ДокОбъект.Товары,"Товары",ДокОбъект.Ссылка,Документы.РеализацияТоваровУслуг,Истина);
    КонецЦикла;
```
---
```1c
    ДокОбъект.ДополнительныеСвойства.Вставить("ЗаполнитьСчетаУчетаПередЗаписью", Истина);
```
---
не по теме но, в кд2 После Загрузки если объекту прописать, заполнит?
---
Нет.
---
Спасибо! Жаль... но в у многих доков в модуле менеджера есть ЗаполнитьСчетаУчетаВТабличнойЧасти(Объект, ИмяТабличнойЧасти);
будем спасаться ей ;)
---
смотрите СчетаУчетаВДокументах.ЗаполнитьРеквизитыПриИзменении (на нее можно выйти отладчиком, в событии ПриИзменении у Номенклатуры)
Правила заполнения счета описаны в УстановитьПравилаЗаполненияСчетовУчета модуля менеджера РТУ
---
Нашел решение проблемы:

```1c
    //заполнить ТЧ
    Для Каждого СтрокаТЧ Из НовыйДокумент.Товары Цикл
    НоваяСтрока = ДокОбъект.Товары.Добавить();
    ЗаполнитьЗначенияСвойств(НоваяСтрока, СтрокаТЧ);
    СчетаУчетаВДокументах.ЗаполнитьСтроки(ДокОбъект.Товары,"Товары",ДокОбъект.Ссылка,Документы.РеализацияТоваровУслуг,Истина);
    КонецЦикла;
```
---
Есть способ лучше! (с) :-)
Заполняет все возможные счета учёта в любых документах (если они там есть):

```1c
    Объект.ДополнительныеСвойства.Вставить("ЗаполнитьСчетаУчетаПередЗаписью", Истина);
    СчетаУчетаВДокументах.ЗаполнитьПередЗаписью(Объект, РежимЗаписиДокумента.Проведение);
```
---
Еще один способ нашел:
```1c
    ЗаполнениеДокументов.Заполнить(ДокОбъект,НовыйДокумент,Истина);
```