Значение текущей ячейки списка УФ

29.01.14

Разработка - Универсальные функции

Получить значение из текущей ячейки списка в УФ - оказывается, не так-то просто. Особенно если хочется сделать универсальное решение. Предлагаю свой, достаточно общий способ. И до кучи - быстрый отбор по значению текущей колонки.

Как это было просто в обычном интерфейсе: ЭлементыФормы..ТекущиеДанные[ЭлементыФормы..ТекущаяКолонка.Имя]. И как это, оказывается, нетривиально для списков в УФ. Особенно в общем случае, который я и рассматривал, работая с ТекущимиДанными как с ДаннымиФормыбезотносительно их происхождения и наполнения. 

Как известно, колонки динамического списка могут являться разыменованиями колонок-полей основной таблицы/запроса, причём они могут быть добавлены как в Конфигураторе, так и пользователем либо программистом в режиме Предприятие. И вот тут 1С немного "поленились": если для "штатно" объявленных полей таблицы/запроса ещё работает ТекущиеДанные[ИмяКолонки] и для них ТекущиеДанные.Свойство(ИмяКолонки) возвращает истину, то вот уже полей, добавленных в Конфигураторе как разыменование, хоть на 1 шаг вперёд, нет возможности получить их значение. Видеть - видим, программно не получаем. Но это ещё терпимо, т.к. для таких полей есть свойство их реквизита ПутьКДанным, по которому можно, исходя из "штатно" объявленных полей, вытащить значение.

Дальше интереснее. Поля, добавленные в режиме "Предприятие" как разыменование имевшихся (и неважно, штатно-объявленных основных полей или разыменованных в конфигураторе), - эти поля вообще никак не ущучить. Для них свойство "ПутьКДанным" вообще не поддерживается, не говоря уж о ТекущиеДанные[ИмяКолонки]. Видеть - видим, общий отбор обычным образом поставить можем, а получить видимое невооружённым глазом значение ячейки программно - нет.

Да, у таких добавленных разыменованных полей есть имена. Говорящие имена. И на этом были основаны пара решений, которые на ИС появились ещё в лохматые времена. НО: у них есть один недостаток. Как известно, работая с путями к данным, которые надо преобразовать в валидные имена 1С, любая СКД в системном представлении заменяет точки на знак подчёркивания. И вот теперь у нас есть развлечение: мы знаем имя поля, но в общем виде мы не гарантированы, что разработчик не употреблял знак подчёркивания в своих целях, а значит, нам придётся отличать, который из знаков подчёркивания в имени поля, например, вида Главное_Событие_Тип_События_Код задан разработчиком, а который подсунут СКД при преобразовании пути. СКД динамического списка тут не исключение.

Заметим также, что СКД ещё и стандартные реквизиты именует латиницей (DeletionMark, а не ПометкаУдаления), притом что локализованная 1С при переборе коллекции метаданных СтандартныеРеквизиты в их свойстве "Имя" возвращает-таки русскоязычное написание.

Ничего не скажу плохого про другие варианты решений, но проблему подчёркиваний там, насколько видел, не решали. Мне пришлось решить. Выкладываю прямо тут. Некоторая странность функции ПолучитьЗначениеТекущейЯчейки объясняется желанием уконтрапупить всё в одну функцию, чтобы удобнее было таскать между модулями. При желании функцию ПолучитьЭлементыИРеквизитыДинамическогоСписка также можно засунуть внутрь, указав соответствующий РежимВызова. Словом, место для извращений есть.

// Получает массив структур, описывающих Имя,Путь,ТипЗначения (как описание типов) для реквизитов,
// входящих в реквизит списка (в первую очередь это надо для колонок, но на всякий случай там все).
// При ошибке возвращает Неопределено.
//
// Параметры:
//    рФорма - сериализованная (т.е. вызванная из &НаСервере) форма, где находится реквизит-список
//    рИмяРеквизитаСписка - имя реквизита формы, который рассматриваем
//

Функция ПолучитьЭлементыИРеквизитыДинамическогоСписка(рФорма,рИмяРеквизитаСписка) Экспорт
Попытка
   
рез=Новый Массив;
   
трек=Новый ТаблицаЗначений;
   
трек.Колонки.Добавить("Имя");
   
трек.Колонки.Добавить("Путь");
   
трек.Колонки.Добавить("ТипЗначения");
   
мрек=рФорма.ПолучитьРеквизиты(рИмяРеквизитаСписка);
    Для каждого
рек Из мрек Цикл
       
ЗаполнитьЗначенияСвойств(трек.Добавить(),рек);
    КонецЦикла;
   
//
   
Для каждого эл Из рФорма.Элементы[рИмяРеквизитаСписка].ПодчиненныеЭлементы Цикл
       
стротрек=трек.Найти(эл.Имя,"Имя");
        Если
стротрек=Неопределено Тогда
           
// ищем через разыменование его пути
           
мстро=ОбщегоНазначения.РазложитьСтрокуВМассивПодстрок(эл.ПутьКДанным,".");
            Если
мстро.Количество()<2 Тогда Продолжить КонецЕсли;
           
// поэтапно разыменовываем
           
рПутьВычисления=СокрЛП(мстро[0]);
            Для
й=1 По мстро.Количество()-2 Цикл
               
рИмяПредка=СокрЛП(мстро.Получить(й));
               
рИмяЗвена=СокрЛП(мстро.Получить(й+1));
               
стротрек=трек.Найти(рИмяПредка,"Имя");
                Если
стротрек=Неопределено Тогда
                   
Сообщить("Предыдущее звено "+рИмяПредка+" не найдено в таблице реквизитов!",СтатусСообщения.Важное);
                Иначе
                   
мТипов=Новый Массив; // массив возможных типов значений звена пути, разыменованного от кого-то исходного
                   
Для каждого рТипПредка Из стротрек.ТипЗначения.Типы() Цикл
                       
метадан=Метаданные.НайтиПоТипу(рТипПредка);
                        Если
метадан=Неопределено Тогда // возможно, это вообще значение атомарного типа
                            //Сообщить("Для типа "+Представления.ПредставлениеТипа(рТипПредка)+" не удалось найти метаданные!",СтатусСообщения.Важное);
                       
Иначе
                           
// ищем реквизит (ничем более, полагаем пока, оно являться не может, хоть при динамсписке, хоть статично)
                           
метарек=метадан.Реквизиты.Найти(рИмяЗвена);
                            Если
метарек=Неопределено Тогда
                               
// ищем среди стандартных
                               
Для каждого стандрек Из метадан.СтандартныеРеквизиты Цикл
                                    Если
стандрек.Имя=рИмяЗвена Тогда метарек=стандрек; Прервать КонецЕсли;
                                КонецЦикла;
                            КонецЕсли;
                            Если
метарек=Неопределено Тогда
                               
Сообщить("Для метаобъекта "+метадан.Представление()+" не найден реквизит "+рИмяЗвена+"!",СтатусСообщения.Важное);
                            Иначе
                               
рПутьВычисления=рПутьВычисления+"."+метарек.Имя;
                                Для каждого
рТип Из метарек.Тип.Типы() Цикл
                                   
мТипов.Добавить(рТип);
                                КонецЦикла;
                            КонецЕсли;
// если у метареквизитов предка есть такой
                       
КонецЕсли; // если в метаданных нашли метапредка по одному из типов
                   
КонецЦикла; // по типам значений предка
                   
Если мТипов.Количество()<>0 Тогда // вносим в таблицу реквизитов текущее звено
                       
рТекущееОписТипов=Новый ОписаниеТипов(мТипов);
                       
рПуть=""; разд="";
                        Для
ы=1 По й+1 Цикл
                           
рПуть=рПуть+разд+СокрЛП(мстро[ы]); разд=".";
                        КонецЦикла;
                        Если
трек.НайтиСтроки(Новый Структура("Имя,Путь",рИмяЗвена,рПуть)).Количество()=0 Тогда
                           
стротрек=трек.Добавить();
                           
стротрек.Имя=рИмяЗвена;
                           
стротрек.Путь=рПуть;
                           
стротрек.ТипЗначения=рТекущееОписТипов;
                        КонецЕсли;
                    КонецЕсли;
                КонецЕсли;
// если запись о предке нашли в таблице реквизитов
           
КонецЦикла; // по массиву кусков пути
            // если всё сделали верно, то теперь такое поле в таблице реквизитов есть, вносим
           
стру=Новый Структура;
           
стру.Вставить("Имя",эл.Имя);
           
стру.Вставить("Путь",рПуть);
           
стру.Вставить("ТипЗначения",рТекущееОписТипов);
           
рез.Добавить(стру);
        Иначе
           
стру=Новый Структура;
           
стру.Вставить("Имя",эл.Имя);
           
стру.Вставить("Путь",СтрЗаменить(эл.ПутьКДанным,"Список.",""));
           
стру.Вставить("ТипЗначения",стротрек.ТипЗначения);
           
рез.Добавить(стру);
        КонецЕсли;
    КонецЦикла;
   
//
   
Возврат рез;
Исключение
   
Сообщить("ПолучитьЭлементыИРеквизитыДинамическогоСписка, ошибка: "+ОписаниеОшибки(),СтатусСообщения.ОченьВажное);
    Возврат Неопределено;
КонецПопытки;
КонецФункции

 

&НаСервере
// Получение из динам.списка на форме того значения, что находится на пересечении текущей строки и текущей колонки.
// При ошибке возвращает Неопределено.
//
// Входные параметры:
//     рПараметры - структура, обязательно содержащая поля ТекущиеДанные (из списка) и ИмяПоля (строковое имя тек.колонки)
//          также можно передать массив структур "ЭлементыИРеквизиты", получаемый ПолучитьЭлементыИРеквизитыДинамическогоСписка();
//          поле "РежимВызова" можно не указывать, или указывать пустой строкой, или равным "Получение". Прочие варианты - служебные!
//
// Функция содержит внутри себя, по сути, 1 функцию и 1 процедуру, для удобства копипаста объединены, различаются Режимом.
// ВАЖНО: Функция работает, исходя из условия, что элемент динам.списка и реквизит динам.списка имеют одинаковые имена!!!
//

Функция ПолучитьЗначениеТекущейЯчейки(рПараметры)
   
рРежим=?(рПараметры.Свойство("РежимВызова"),СокрЛП(рПараметры.РежимВызова),"");
    Если
ПустаяСтрока(рРежим) Тогда рРежим="Получение" КонецЕсли;

    Если
рРежим="Получение" Тогда
       
текдан=рПараметры.ТекущиеДанные;
       
рИмяПоля=рПараметры.ИмяПоля; // имя текущей колонки
       
ЭиР=?(рПараметры.Свойство("ЭлементыИРеквизиты"),рПараметры.ЭлементыИРеквизиты,Неопределено);
       
//
       
Если ЭиР=Неопределено Тогда
           
ЭиР=ПолучитьЭлементыИРеквизитыДинамическогоСписка(ЭтаФорма,рПараметры.ИмяЭлементаИРеквизитаСписка);
           
рПараметры.Вставить("ЭлементыИРеквизиты",ЭиР);
        КонецЕсли;
       
//
        // здесь же, если надо, преобразование англоязычных служебных полей в русскую нотацию (вместо _Code делаем _Код)
       
Если текдан.Свойство(рИмяПоля) Тогда // штатно объявленное поле 1-го уровня
           
рЗначение=текдан[рИмяПоля];
           
рПараметры.Вставить("ПутьКДанным",рИмяПоля);
        Иначе
// разыменованное как-либо поле
            // ищем среди сведений об элементах и реквизитах
           
рНужное=Неопределено;
            Для каждого
эл Из ЭиР Цикл
                Если
Лев(рИмяПоля,СтрДлина(СокрЛП(эл.Имя)))=СокрЛП(эл.Имя) Тогда
                   
рНужное=эл; Прервать;
                КонецЕсли;
            КонецЦикла;
            Если
рНужное<>Неопределено Тогда // скорее всего, разыменованное как-либо
               
Если СокрЛП(рНужное.Имя)=рИмяПоля Тогда // точное совпадение - значит, разыменование было в конфигураторе
                   
Выполнить("рЗначение=текдан."+СокрЛП(рНужное.Путь));
                   
рПараметры.Вставить("ПутьКДанным",рНужное.Путь);
                Иначе
// скорее всего, разыменованное от разыменованного, в т.ч. добавленное динамически
                    // первый шаг надо делать от имеющихся полей текдан, и они возможны любые, поэтому привлекаем ЭиР,
                    // а далее возможны лишь их реквизиты, т.е. простые разыменования, и там вся задача лишь в преобразовании
                    // имеющегося сейчас пути (только знаки подчёркивания) в путь правильного формата, через точку (где надо).
                    //
                   
рПараметрыДалее=Новый Структура;
                   
рПараметрыДалее.Вставить("РежимВызова","Разыменование");
                   
рПараметрыДалее.Вставить("ИмяЭлементаИРеквизитаСписка",рПараметры.ИмяЭлементаИРеквизитаСписка);
                   
рПараметрыДалее.Вставить("ИмяПуть",рИмяПоля);
                   
рПараметрыДалее.Вставить("ОсталосьРазобрать",рИмяПоля);
                   
рПараметрыДалее.Вставить("ИмяИсходногоПоля",СокрЛП(рНужное.Имя));
                   
рПараметрыДалее.Вставить("ОписТиповИсходногоПоля",рНужное.ТипЗначения);
                   
ПолучитьЗначениеТекущейЯчейки(рПараметрыДалее);
                   
рИмяПуть=рПараметрыДалее.ИмяПуть;
                   
//
                   
рПараметрыДалее=Новый Структура("ТекущиеДанные,ИмяПоля,ЭлементыИРеквизиты",текдан,СокрЛП(рНужное.Имя),ЭиР);
                   
рЗначениеИсхПоля=ПолучитьЗначениеТекущейЯчейки(рПараметрыДалее);
                   
рПутьБезИсходного=СтрЗаменить(рИмяПуть,СокрЛП(рНужное.Имя)+".","");
                    Выполнить(
"рЗначение=рЗначениеИсхПоля."+СокрЛП(рПутьБезИсходного));
                   
рПараметры.Вставить("ПутьКДанным",рИмяПуть);
                КонецЕсли;
            Иначе
               
рЗначение=Неопределено; // такого имени не нашли по началу строки ни одного из имён элементов (некая неучтённая ситуация)
               
рПараметры.Вставить("ПутьКДанным","");
            КонецЕсли;
        КонецЕсли;
       
//
       
Возврат рЗначение;

    ИначеЕсли
рРежим="Разыменование" Тогда
       
рИмяПуть=рПараметры.ИмяПуть;
       
рОсталосьРазобрать=рПараметры.ОсталосьРазобрать;
       
рИмяИсходногоПоля=рПараметры.ИмяИсходногоПоля;
       
рОписТиповИсходногоПоля=рПараметры.ОписТиповИсходногоПоля;
       
//
       
рИмяПуть=СтрЗаменить(рИмяПуть,рИмяИсходногоПоля+"_",рИмяИсходногоПоля+".");
       
рПараметры.Вставить("ИмяПуть",рИмяПуть); // это должно меняться внутри процедуры
        //
       
Если Найти(рОсталосьРазобрать,рИмяИсходногоПоля+"_")<>0 Тогда
           
рОсталосьРазобрать=СтрЗаменить(рОсталосьРазобрать,рИмяИсходногоПоля+"_","");
        Иначе
            Если
рОсталосьРазобрать=рИмяИсходногоПоля Тогда Возврат Неопределено КонецЕсли; // уже всё
       
КонецЕсли;
        Если
ПустаяСтрока(рОсталосьРазобрать) Тогда Возврат Неопределено КонецЕсли; // уже всё
        //
        // и теперь от этого исходного ищем уже просто в реквизитах, перебирая все возможные типы исходного поля
       
рИмяНужногоРеквизита="";
       
мТиповИтого=Новый Массив;
        Для каждого
рТип Из рОписТиповИсходногоПоля.Типы() Цикл
           
#Если Клиент Тогда
               
ОбработкаПрерыванияПользователя();
           
#КонецЕсли
           
рНужныйРеквизит=Неопределено;
           
метадан=Метаданные.НайтиПоТипу(рТип);
            Если
метадан=Неопределено Тогда Продолжить КонецЕсли;
            Для каждого
метарек Из метадан.Реквизиты Цикл
                Если
Лев(рОсталосьРазобрать,СтрДлина(метарек.Имя))=метарек.Имя Тогда рНужныйРеквизит=метарек; Прервать КонецЕсли;
            КонецЦикла;
            Если
рНужныйРеквизит=Неопределено Тогда // ищем среди стандартных
               
Для каждого метарек Из метадан.СтандартныеРеквизиты Цикл
                    Если
Лев(рОсталосьРазобрать,СтрДлина(метарек.Имя))=метарек.Имя Тогда рНужныйРеквизит=метарек; Прервать КонецЕсли;
                КонецЦикла;
            КонецЕсли;
           
// у объектов с разными типами и метатипами могут быть одноимённые реквизиты с разными типами значений.
            // поэтому имя-то общее, а вот типы надо накопить, чтобы разыменовать все возможные варианты значений
           
Если рНужныйРеквизит<>Неопределено Тогда
               
рИмяНужногоРеквизита=рНужныйРеквизит.Имя;
                Для каждого
рТипРеквизита Из рНужныйРеквизит.Тип.Типы() Цикл
                   
мТиповИтого.Добавить(рТипРеквизита);
                КонецЦикла;
            КонецЕсли;
        КонецЦикла;
       
// если есть какие-то типы и имя для реквизита, можем рассмотреть следующий шаг
       
Если мТиповИтого.Количество()<>0 и не ПустаяСтрока(рИмяНужногоРеквизита) Тогда
           
рПараметрыДалее=Новый Структура;
           
рПараметрыДалее.Вставить("РежимВызова","Разыменование");
           
рПараметрыДалее.Вставить("ИмяПуть",рИмяПуть);
           
рПараметрыДалее.Вставить("ОсталосьРазобрать",рОсталосьРазобрать);
           
рПараметрыДалее.Вставить("ИмяИсходногоПоля",рИмяНужногоРеквизита);
           
рПараметрыДалее.Вставить("ОписТиповИсходногоПоля",Новый ОписаниеТипов(мТиповИтого));
           
ПолучитьЗначениеТекущейЯчейки(рПараметрыДалее);
           
рПараметры.Вставить("ИмяПуть",рПараметрыДалее.ИмяПуть); // это должно меняться внутри процедуры
       
КонецЕсли;

    КонецЕсли;
КонецФункции


 

 

Что ещё из интересного успел пронаблюдать:

1. В настройке формы поля с подчёркиванием и без штатных представлений ооочень забавно выглядят... Посмотрите сами ))
2. При изменении данных объявленные в конфигураторе обновляются, а добавленные динамически в 1С - нет. Приходится переоткрывать форму. Или это у меня релиз такой (19.83), или лыжи не совсем едут.
3. Несмотря на то, что стандартные реквизиты в служебных именах СКД списка даёт латиницей, в диалоге настройки списка установленные исходя из англоязычных термов отборы представлены по-русски.
4. Если разыменованное поле имеет тип Булево, но путь разыменования прерван пустым значением (т.е. до конечного значения просто нельзя дойти), показ псевдозначения поля в этой колонке всё равно будет, равный "нет", но при отборе по "Нет" он эту строку в удовлетворяющие отбору не включит. Спецэффект, вызывающий недоумение пользователей. 

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


&НаКлиенте
// Установка отбора по значению текущей колонки в текущей строке
// Параметры:
//    рИмяСписка - имя элемента формы списка, оно же имя реквизита списка
//
// ВАЖНО: Функция работает, исходя из условия, что элемент динам.списка и реквизит динам.списка имеют одинаковые имена!!!
//

Процедура УстановитьОтборПоЗначениюТекущейКолонки(рИмяСписка)
Попытка
   
текдан=Элементы[СокрЛП(рИмяСписка)].ТекущиеДанные;
    Если
текдан=Неопределено Тогда Возврат КонецЕсли; // вообще ничего не ставим и не сообщаем
   
теккол=Элементы[СокрЛП(рИмяСписка)].ТекущийЭлемент;

   
рПараметры=Новый Структура("ТекущиеДанные,ИмяПоля",текдан,теккол.Имя);
   
рПараметры.Вставить("ИмяЭлементаИРеквизитаСписка",СокрЛП(рИмяСписка));
   
рЗначение=ПолучитьЗначениеТекущейЯчейки(рПараметры);
    Если
рЗначение=Неопределено Тогда
       
Предупреждение("Отбор по текущей колонке невозможен, нельзя получить значение отбора!"); Возврат
    КонецЕсли;

   
мстро=ОбщегоНазначения.РазложитьСтрокуВМассивПодстрок(рПараметры.ПутьКДанным,".");
   
рИсходноеПоле=СокрЛП(мстро.Получить(0));
   
ЭиР=рПараметры.ЭлементыИРеквизиты;
   
рНачалоПути="";
    Для каждого
эл Из ЭиР Цикл
        Если
СокрЛП(эл.Имя)=рИсходноеПоле Тогда
           
рНачалоПути=СокрЛП(эл.Путь); Прервать;
        КонецЕсли;
    КонецЦикла;
    Если
ПустаяСтрока(рНачалоПути) Тогда
       
Предупреждение("Отбор по текущей колонке невозможен, нельзя определить путь отбора!"); Возврат
    КонецЕсли;
   
рИтоговыйПуть=СтрЗаменить(рПараметры.ПутьКДанным,рИсходноеПоле+".",рНачалоПути+".");

   
рПоле=Новый ПолеКомпоновкиДанных(рИтоговыйПуть);
   
//
    // У отбора динам.списка есть интересный глюк: он не может фигурировать в процедурах/функциях как
    // аргумент, если есть шансы, что он там изменится (т.е. не объявлен в параметрах через Знач), поэтому
    // в ПолучитьОтборСКД он определяется именно так; в результате элотб как элемент отбора хранит все
    // нужные данные, но НЕ наследуется от Список.Отбор и поэтому не реагирует на изменение свойств;
    // в частности, ему бесполезно ставить Используется=Истина; поэтому удаляем и заново создаём его.
    // поскольку это, как правило, отбор первого уровня (т.е. группы не используются), то чуть схалявим
     // и обойдёмся без рекурсии. При прямом поиске перебором элемент "наследуется".
   
элотб=Неопределено;
    Для каждого
эл Из ЭтаФорма[СокрЛП(рИмяСписка)].Отбор.Элементы Цикл
        Если
эл.ЛевоеЗначение=рПоле Тогда элотб=эл; Прервать КонецЕсли;
    КонецЦикла;
    Если
элотб<>Неопределено Тогда
       
ЭтаФорма[СокрЛП(рИмяСписка)].Отбор.Элементы.Удалить(элотб);
    КонецЕсли;
   
элотб=ЭтаФорма[СокрЛП(рИмяСписка)].Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных"));
   
элотб.ЛевоеЗначение=рПоле;
   
элотб.ВидСравнения=ВидСравненияКомпоновкиДанных.Равно;
   
элотб.ПравоеЗначение=рЗначение;
   
элотб.Использование=Истина;
Исключение
   
Сообщить("УстановитьОтборПоЗначениюТекущейКолонки, ошибка: "+ОписаниеОшибки(),СтатусСообщения.ОченьВажное);
КонецПопытки;
КонецПроцедуры


&НаКлиенте
// Собственно отработка команды
Процедура ОтборПоТекущейКолонке(Команда)
   
УстановитьОтборПоЗначениюТекущейКолонки("Список");
КонецПроцедуры

Значение текущей ячейки управляемый список динамический список отбор в списке отбор в УФ

См. также

Универсальные функции Программист Платформа 1С v8.3 Конфигурации 1cv8 Бесплатно (free)

Благодаря этим пяти строчкам можно больше не заморачиваться с загрузкой из внешних файлов. Пользуюсь везде, всегда и постоянно.

21.05.2024    17212    dimanich70    81    

135

Универсальные функции Программист Платформа 1С v8.3 Конфигурации 1cv8 Абонемент ($m)

Задача: вставить картинку из буфера обмена на форму средствами платформы 1С.

1 стартмани

18.03.2024    3835    3    John_d    11    

57

Универсальные функции Программист Стажер Платформа 1С v8.3 Конфигурации 1cv8 Бесплатно (free)

Пришлось помучиться с GUID-ами немного, решил поделиться опытом, мало ли кому пригодится.

12.02.2024    14327    atdonya    23    

56

Универсальные функции Программист Платформа 1С v8.3 Бесплатно (free)

На заключительных этапах, когда идет отладка или доработка интерфейса, необходимо много раз переоткрыть внешний объект. Вот один из способов автоматизации этого.

30.11.2023    5238    ke.92@mail.ru    16    

65

WEB-интеграция Универсальные функции Механизмы платформы 1С Программист Платформа 1С v8.3 Конфигурации 1cv8 Бесплатно (free)

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

28.08.2023    13612    YA_418728146    7    

165

Пакетная печать Печатные формы Адаптация типовых решений Универсальные функции Платформа 1С v8.3 1С:ERP Управление предприятием 2 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х Россия Абонемент ($m)

Расширение для программ 1С:Управление торговлей, 1С:Комплексная автоматизация, 1С:ERP, которое позволяет распечатывать печатные формы для непроведенных документов. Можно настроить, каким пользователям, какие конкретные формы документов разрешено печатать без проведения документа.

2 стартмани

22.08.2023    3308    52    progmaster    8    

4

Инструментарий разработчика Универсальные функции Платформа 1С v8.3 Конфигурации 1cv8 1С:Розница 2 1С:ERP Управление предприятием 2 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х 1С:Зарплата и Управление Персоналом 3.x Абонемент ($m)

Копирует в буфер значения из списков, из ячеек отчетов, таблиц, настроек списков, других отборов и вставляет в выбранную настройку отбора. Работает с Объект не найден. Работает как в одной так и между разными базами 1С. Использует комбинации [Alt+C] Копировать список, [Alt+V] Вставить список. Также для копирования данных используется стандартная [Ctrl+C] (например из открытого xls, mxl, doc и т.п. файла скопировать список наименований)

1 стартмани

13.10.2022    18093    160    sapervodichka    112    

134
Комментарии
Подписаться на ответы Инфостарт бот Сортировка: Древо развёрнутое
Свернуть все
1. Yashazz 4780 29.01.14 13:09 Сейчас в теме
Да, и ещё примечание для эстетов - во встроенной коллекции картинок 1С теперь отсутствуют иконки для быстрого отбора и для снятия отборов, придётся откуда-то брать; я из 8.1 вытаскивал.
3. AlX0id 29.01.14 14:54 Сейчас в теме
(1)
Полагаю, из новых конфигураций 1сников :)

А по поводу статьи в целом, склоняюсь к выводу, что проще не добавлять колонки программно в принципе %)
2. Gendalf_beliy 29.01.14 13:33 Сейчас в теме
во встроенной коллекции картинок 1С теперь отсутствуют иконки для быстрого отбора и для снятия отборов, придётся откуда-то брать; я из 8.1 вытаскивал.

где-то тут, по-моему, видел подборку картинок для использования в 1с, но уже точно не помню. А вообще было бы неплохо создать ресурс, где можно было бы найти не кучу картинок, а пару-тройку и под необходимую тематику. Что на какую-либо функцию было с десяток картинок и можно было выбрать подходящую.
4. Al-X 05.02.14 10:39 Сейчас в теме
Интересно. Надеюсь пригодится...
5. nixel 1430 10.02.14 16:44 Сейчас в теме
Отбор по значению в текущей колонке добавят в одном из новых релизов 8.3 (возможно даже уже в 8.3.5).
А вот за методику текущей ячейки - спасибо :)
7. Yashazz 4780 10.02.14 23:20 Сейчас в теме
(5) Кстати, насколько понимаю, в 8.3 эта штука может и не взлететь, там ДанныеФормыЭлементКоллекции, который текущие данные, по-другому сериализуется, если вообще да. У меня под 8.2.19 бегает, а за 8.3 не поручусь, честно.

Вообще, красавцы 1С-овцы, не доделали кучу нужнейших вещей, а мы теперь изгаляйся и жди у моря погоды. (((
8. EvgeniuXP 23.07.14 21:53 Сейчас в теме
(7) в 8.3.5.1088 есть уже отбор по текущей ячейке в дин. списке :)
9. Yashazz 4780 24.07.14 00:36 Сейчас в теме
(8) Я в курсе. Но как оно там работает - бабушка надвое сказала, а моему способу хоть верить можно. Хотя радует, что всего-то через год после бодрого анонса "продвинутой" системы в неё вернули то, что умела ещё 7.7
6. Bukaska 140 10.02.14 17:06 Сейчас в теме
Интересно... Хоть я ещё и плохо соображаю в динамических списках, но буду вникать))) Спасибо за информацию)))
10. monkbest 114 07.08.14 15:36 Сейчас в теме
Если столько кода надо написать для отбора по текущему значеню, то в топку такой отбор)))
Еще не очень понял, почему нельзя штатно нажать Ctrl+F и сразу Enter. Это же и есть отбор по текущей ячейке? Зачем его программировать?
Или я не понял суть статьи, прокомментируйте пожалуйста на пальцах, какое действие (желание) пользователя тут автоматизируется.
Оставьте свое сообщение