! 1С ВСД в ГИС Меркурий » 1Cv7 ВСД в ГИС Меркурий

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

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

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

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

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

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

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

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

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