Помощь - Поиск - Пользователи - Календарь
Полная версия этой страницы: перенос из табличной части справочника в табличную часть документа
Украинский 1С форум: всё про 1С 8.3, 1С 8.2, 1С 8.1, 1С 8.0, 1С 7.7 > Программисту > Программирование в 1С Предприятие 8.2 > Программирование управляемых форм 1С 8.2
Илья
хотелось бы заполнять автоматически два реквизита Количество и Наименования...но код не работает)

&НаКлиенте
Процедура Подбор(Команда)
    ПодборСправочника();
КонецПроцедуры
&НаСервере
Процедура ПодборСправочника()

    Запрос = Новый Запрос;
    Запрос.Текст =
        "ВЫБРАТЬ
        |    СпецификацииПолуфабрикатов.Наименование,
        |    СпецификацииПолуфабрикатов.Материалы.(
        |        Наименование,
        |        Количество
        |    )
        |ИЗ
        |    Справочник.СпецификацииПолуфабрикатов КАК СпецификацииПолуфабрикатов";

    Запрос.УстановитьПараметр("Наименование", Объект.Спецификация);

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

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

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

        Стр = Элементы.Материалы.ДобавитьСтроку();
        Стр.Наименование = ВыборкаДетальныеЗаписи.Материалы.Наименование;
        Стр.Количество = ВыборкаДетальныеЗаписи.Материалы.Количество;
        
    КонецЦикла;
КонецПроцедуры
Vofka
Запрос.Текст = 
"ВЫБРАТЬ
|    Материалы.Наименование,
|    Материалы.Количество
|ИЗ
|    Справочник.СпецификацииПолуфабрикатов.Материалы КАК Материалы";


И потом:

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


Хотелось бы что бы табличная часть документа заполнялась согласно наименованию определеного справочника в данном случае справочника "Спецификация на рабочее колесо"
Vofka
А зачем вы это делаете?
Илья


в табличной части этого документа будет содержатся примерно пятьдесят наименований из которых собирается единица готовой продукции в справочнике содержатся наименование материалов и их количество необходимое на каждую единицу продукции. документ нужен чтобы сфомировать движение по регистру накопления, а справочник что бы хранить информацию на количество необходимых материалов и заполнять в ручную это очень долго и затруднительно)
Vofka
Вы сделали, так как я писал выше? Если да и всеравно не работает, то строку

Стр = Элементы.Материалы.ДобавитьСтроку();


замените на

Стр = Материалы.ДобавитьСтроку();
Fabri
Цитата
в табличной части этого документа будет содержатся примерно пятьдесят наименований из которых собирается единица готовой продукции в справочнике содержатся наименование материалов и их количество необходимое на каждую единицу продукции. документ нужен чтобы сфомировать движение по регистру накопления, а справочник что бы хранить информацию на количество необходимых материалов и заполнять в ручную это очень долго и затруднительно)


А что за конфигурация, самописная? В УТ к примеру это реализовано.
Илья
господа это же будет не по-спортивному
а надо вот так:



в модуле формы прописаны





Vofka
Стр = Объект.Материалы.Добавить();
Илья
Ура! Работает это волшебство)

спасибо

Процедура Подбор(Команда)
    ПодборСправочника()
КонецПроцедуры

&НаСервере
Процедура ПодборСправочника()
    
Запрос = Новый Запрос;    
Запрос.Текст =

"ВЫБРАТЬ
|    Материалы.Наименование,
|    Материалы.Количество
|ИЗ
|    Справочник.СпецификацииПолуфабрикатов.Материалы КАК Материалы
|ГДЕ
|    Материалы.Ссылка = &Ссылка";    

Запрос.УстановитьПараметр("Ссылка", Объект.Спецификация);
Результат = Запрос.Выполнить();

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

Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
    
Стр = Объект.Материалы.Добавить();    
Стр.Наименование = ВыборкаДетальныеЗаписи.Наименование;
Стр.Количество = ВыборкаДетальныеЗаписи.Количество;
    
КонецЦикла;

КонецПроцедуры
Для просмотра полной версии этой страницы, пожалуйста, пройдите по ссылке.