Проект

Общее

Профиль

Ошибка #3094

закрыто

Выбор ТтнНомер в списке

Ошибка #3094: Выбор ТтнНомер в списке

Добавил(а) Pentyukhov Sergey почти 6 года назад. Обновлено больше 5 лет назад.

Статус:
Завершена
Приоритет:
Нормальный
Назначена:
Версия:
Дата начала:
17.10.2019
Срок завершения:
Готовность:

0%

Оценка временных затрат:

Описание

Обработка "Меркурий_Гашение_ВСД2.ert".
Реквизит на форме НомерТТН, увеличьте Длину с 10 до 12 символов. Приходят длинные номера ТТН.

(по желанию)
Так-же можно добавить заполнение этого реквизита, номерами из выпадающего списка

//******************************************************************************
// ПриИзмененииНомерТТН()
//
// Параметры: 
//  
//
// Возвращаемое значение:
//  Нет
//
// Описание:
//  Получаем список номеров ТТН из загружаемых ВСД
//
// [+]serpent, 17.10.2019
Процедура ПриИзмененииНомерТТН()

    Если (ПустоеЗначение(СокрЛП(НомерТТН))=1) Тогда
        Если тзВСД.КоличествоСтрок()>0 Тогда
            СписокТекущихЭлементов = СоздатьОбъект("СписокЗначений");
            ВремТЗНомеров          = СоздатьОбъект("ТаблицаЗначений");

            тзВСД.Выгрузить(ВремТЗНомеров,,,"ТтнНомер");
            ВремТЗНомеров.Свернуть("ТтнНомер","");
            ВремТЗНомеров.Выгрузить(СписокТекущихЭлементов,,,"ТтнНомер");

            локСервис = СоздатьОбъект("Сервис");
            ПараметрыРаскраски = СоздатьОбъект("СписокЗначений");
            ПараметрыРаскраски.Установить("ЦветФонаВыделения",10092441); 
            ПараметрыРаскраски.Установить("ЦветШрифтаВыделения",6710886);
            ПараметрыРаскраски.Установить("ЦветРамкиВыделения",255);
            ПараметрыРаскраски.Установить("ЦветФона",10092543);
            ПараметрыРаскраски.Установить("ЦветШрифта",0);

            Зн = "";
            Если локСервис.ВыбратьЗначение(СписокТекущихЭлементов,Зн,"Найденные значения",0,0,,ПараметрыРаскраски) = 1 Тогда
                НомерТТН = Зн;

            Иначе
                НомерТТН = "";
                //Возврат;
            КонецЕсли;
            Фильтровать();
        Иначе
            НомерТТН = "";
        КонецЕсли;
    КонецЕсли;

КонецПроцедуры // ПриИзмененииНомерТТН()

Файлы

Screenshot_7.png (33,4 КБ) Screenshot_7.png Pentyukhov Sergey, 17.10.2019 14:55
Screenshot_9.png (57,7 КБ) Screenshot_9.png Pentyukhov Sergey, 17.10.2019 14:55
screenshot_1_1575468648_2019-12-04_18-09-55.png (17,8 КБ) screenshot_1_1575468648_2019-12-04_18-09-55.png кб99 Филипп, 04.12.2019 18:10
Screenshot_7.png
Screenshot_9.png
screenshot_1_1575468648_2019-12-04_18-09-55.png

Обновлено кб99 Филипп больше 5 лет назад Действия #1

screenshot_1_1575468648_2019-12-04_18-09-55.png

Очень здорово! Спасибо!

Обновлено кб99 Филипп больше 5 лет назад Действия #2

на будущее изменения просьба присылать через github

Обновлено кб99 Филипп больше 5 лет назад Действия #3

  • Параметр Тема изменился с Увеличить длину реквизита ТтнНомер на Выбор ТтнНомер в списке

Обновлено кб99 Филипп больше 5 лет назад Действия #4

  • Параметр Статус изменился с Тестирование на Завершена
  • Параметр Версия изменился на v7.1.15

Экспортировать в PDF Atom