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

  • Ловкость рук и обработка результата запроса

    Как то я пообещал заказчику, что обработаю определенный список документов, но забыл, что эти документы были в базе с управляемыми формами. Как быть?…

  • 1С и искусственные серверные барьеры

    Заметил, что в управляемых формах 1С принуждает программистов к плохой архитектуре решений. Вкратце упомяну, что теперь большинство внешних…

  • Особенности белорусского Налогоплательщика

    Взял подработку у одного знакомого чувака из Беларуси. Платил мало (я то беру 1500 в час, а там по 800), но знакомый хороший, грех было отказывать,…

  • 1С отрицает очевидное

    Работаю с флагманом 1С, конфигурацией ERP. Вижу, что 1С прошило всю конфигурацию обращениями к модулям, где разработчик, внедряющий 1С может…

  • Как обмануть макет 1с?

    В 1С можно менять макеты в режиме 1с Предприятия. Но 1с-овцы не подумали, что пользователи не захотят видеть некоторые поля. Если просто удалить…

  • Корректировка регистра на 80 документов

    Мне прислали список из 80 документов, суммы которых нужно было внести в УПП в документ корректировки записей регистров для того, чтобы закрыть…

  • Ручной способ получить список реквизитов справочников

    Была поставлена задача расписать реквизиты справочника договоров и контрагентов в двух базах, написать соответствия между ними. Для начала нужно…

  • Открытие файла с нужным именем

    Небольшой гуру-тест. При сохранении файла в базу 1С сохраняется его первоначальное имя, например «Договор ННН.PDF». Задача – при открытии файла из…

  • Перемещение по строкам документа

    Перемещение на предыдущую-следующую строку в 1С УФ. Казалось бы, реализация таких простых кнопок, как переход к предыщей/следующей строке в списке…

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

    Error

    default userpic

    Your reply will be screened

    Your IP address will be recorded 

    When you submit the form an invisible reCAPTCHA check will be performed.
    You must follow the Privacy Policy and Google Terms of use.
  • 55 comments