fixin (fixin) wrote,
fixin
fixin

1С: Поле "Орыгинал"

Делюсь кодом, как можно добавить на форму списка колонку флажка из связанного с документом регистра сведений. На примере вывода флажка, что поступил оригинал документа.

Использую новомодную схему запросов. Код, конечно, не идеальный, но рабочий, костыльный.


        ИмяДинамическогоСписка = Эл.ПутьКДанным;
       
ДС = Форма[ИмяДинамическогоСписка];

       
//http://infostart.ru/public/307045/ - по схеме запроса тут...
       
СхемаЗапроса = Новый СхемаЗапроса();
       
СхемаЗапроса.УстановитьТекстЗапроса(ДС.ТекстЗапроса);

       
ЗапросВыбораИзИБ = СхемаЗапроса.ПакетЗапросов[0];
       
ОператорВыбораДанных = ЗапросВыбораИзИБ.Операторы[0];

       
ПсевдонимОсновнойТаблицы = ОператорВыбораДанных.Источники[0].Источник.Псевдоним;

       
ДопИсточник = ОператорВыбораДанных.Источники.Добавить("РегистрСведений._ПолученОригинал","_ПолученОригинал");
       
ДопИсточник.Соединения.Добавить(ПсевдонимОсновнойТаблицы, "_ПолученОригинал.Документ = " + ПсевдонимОсновнойТаблицы + ".Ссылка");
       
ДопИсточник.Соединения[0].ТипСоединения = ТипСоединенияСхемыЗапроса.ПравоеВнешнее;

       
ОператорВыбораДанных.ВыбираемыеПоля.Добавить("_ПолученОригинал.ПолученОригинал");
       
ЗапросВыбораИзИБ.Колонки[ЗапросВыбораИзИБ.Колонки.Количество() - 1].Псевдоним = "_ПолученОригинал";


       
//ВыбираемыеПоля

       
ДС.ТекстЗапроса = СхемаЗапроса.ПолучитьТекстЗапроса();


       
Элемент = Форма.Элементы.Добавить("_ПолученОригинал", Тип("ПолеФормы"), Эл);
       
Элемент.Вид = ВидПоляФормы.ПолеФлажка;
       
Элемент.ПутьКДанным = Эл.ПутьКДанным + "._ПолученОригинал";

Список документов в форме можно найти примерно таким кодом:


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

Да, тупо по наименованию, но в типовых, слава богу, всё однообразно именуется.

Tags:
Subscribe

Posts from This Journal “1С” Tag

  • Дополнительные реквизиты в бухне 3.0

    Консультирую клиента. Нужно разделить продажи по менеджерам. У каждого контрагента есть ответственный менеджер, но такого реквизита в бухне нет.…

  • Добавление вместо изменения

    По возможности при обновлениях типовых конфигураций нужно использовать добавление вместо изменения исходного кода. Вот в этом примере можно было бы…

  • Ну как же ж можно, 1С?

    Иногда в типовом коде встречаются такие ляпы, что ну просто стыдно. Вот отлаживал для 77 обработку обслуживания популярного фискального регистратора…

  • Доступность меню "Операции"

    УФ портят человека. Возник вопрос, как сделать пользователю ЗУП 2.5 сделать доступными меню операции. Поковырялся в правах, нашел право "Меню Все…

  • Хайдинг заголовка в 1С.

    Началось все немного с другого конца. Пользователь пожаловался, что отчет печатается мелко. Начал смотреть - включен автомасштаб, а справа выводится…

  • В заботе о тех, кто придет после нас!

    Чтобы те, кто будут обновлять после нас, заметили важные нюансы, я оставляю общй модуль с КРИЧАЩИМ названием. Почитают, вникнут! Не забудут!

  • Заказчика мучает совесть, но он держится

    Вот один мой заказчик-должник уже больше года должен 13 625 рублей. Я уж и забил на этот долг, так, раз в квартал напоминаю, благо отношения…

  • 1С и котики

    Базовая 1С обновляется так: Заметили котика?

  • Что знает программист 1С

    Ходит расхожее мнение, что программист 1С - это не программист, а так, писатель скриптов. Что любой выпускник технаря будет успешным в 1С, это, мол,…

promo fixin декабрь 28, 2020 16:57 1347
Buy for 30 tokens
Добро пожаловать в журнал Осипова Сергея Александровича, известного также как Fixin и Гений 1С. Рекомендую ознакомиться с Часто Задаваемыми Вопросами обо мне. Что я хочу в подарок - список. Мой проект " Секс за Ваши". Если вы хотите написать пост обо мне или почитать, что пишут…
  • Post a new comment

    Error

    default userpic

    Your reply will be screened

    Your IP address will be recorded 

  • 55 comments