Как автоматичсеки считать данные из справочника в табличную часть счета?

[ALeonova]

Добрый день!

Ситуация такая:

В справ-ке"Контрагенты" я сделала вкладку Базы клиента, на ней разместила табличную часть "БазыКлиента", где указывается наименование базы, рег.номер и признак Сопровождается (Булево).

Теперь необходимо, чтобы при формирование док-та Счет на оплату, выбрав контрагента, пользователь нажал кнопку Заполнить. В результате табличная часть  стандартного счета должна заполниться базами контрагента (из табл.части спр-ка Контрагенты) с признаком Сопровождается (Истина). Т.е в счет должны попасть сопровождаемые базы именно этого контрагента и именно автоматически.

Подскажите, пожалуйста, новичок в программировании:)

[Kivals]

Простым циклом с условием:

Код:

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

[ALeonova]

Вот ещё способо:

Код:

Процедура КоманднаяПанель1ЗаполнитьПоБазамКлиента(Кнопка)
      Если НЕ Контрагент.Пустая() Тогда

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

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

[Kivals]

Способ тот же - просто у тебя точный код под твою задачу, включая проверки и вопросы
А вот другим способом было бы использование методов Выгрузить()/Загрузить() табличной части.

[vi100k]

Подскажите пожалкуйста, почему при открытии ранее созданного документа все данные обнуленны, которые были внесены при создании документа? Что нужно, чтоб данные не обнулялись? Дополнительный модуль прописать или нужен какой то объект, хранящий эти данные?