Архивы Павел

1С: Сортировка таблицы значений на управляемой форме

15.12.2025 Павел Грибов 1C

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

добавляем команды СортироватьПоКолонкеВозр и СортироватьПоКолонкеУбыв
добавляем их в контекстное меню
Код команды может быть такой:

&НаКлиенте
Процедура СортироватьПоКолонке(Команда)
      ТЭ_имя_объект=ТекущийЭлемент.Имя;
      ТЭ_поле=ТекущийЭлемент.ТекущийЭлемент.имя;
      имяКолонки=СтрЗаменить( ТЭ_поле,ТЭ_имя_объект,"");
      если команда.имя="СортироватьПоКолонкеУбыв" тогда
           СортироватьНасервере(ТЭ_имя_объект,имяКолонки,"Убыв");
	  конецесли;		   
      если команда.имя="СортироватьПоКолонкеВозр" тогда
          СортироватьНасервере(ТЭ_имя_объект,имяКолонки,"Возр");
	конецесли;
КонецПроцедуры

&НаСервере
Процедура сортироватьНасервере(имяОбъекта,имяКолонки,ВидСортировки)
    тз= РеквизитФормыВЗначение("БуферТЗ");
    тз.Сортировать(имяКолонки+" "+ВидСортировки);
    ЗначениеВРеквизитФормы(ТЗ,"БуферТЗ");
конецпроцедуры

&НаКлиенте

Процедура СортироватьПоКолонке(Команда)

ТЭ_имя_объект=ТекущийЭлемент.Имя;

ТЭ_поле=ТекущийЭлемент.ТекущийЭлемент.имя;

имяКолонки=СтрЗаменить( ТЭ_поле,ТЭ_имя_объект,"");

если команда.имя="СортироватьПоКолонкеУбыв" тогда

СортироватьНасервере(ТЭ_имя_объект,имяКолонки,"Убыв");

конецесли;

если команда.имя="СортироватьПоКолонкеВозр" тогда

СортироватьНасервере(ТЭ_имя_объект,имяКолонки,"Возр");

конецесли;

КонецПроцедуры

&НаСервере

Процедура сортироватьНасервере(имяОбъекта,имяКолонки,ВидСортировки)

тз= РеквизитФормыВЗначение("БуферТЗ");

тз.Сортировать(имяКолонки+" "+ВидСортировки);

ЗначениеВРеквизитФормы(ТЗ,"БуферТЗ");

конецпроцедуры

В результате получаем что-то подобное:

Оставить комментарий 1с, сортировка, таблица значений, управляемая форма

Получение ExecutorGUID и orgPPAGUID

09.12.2025 Павел Грибов WEB

При работе с ГИС ЖКХ это первоочередные идентификаторы, которые в самой панели ГИС ЖКХ спрятаны так, что не каждый с первого раза и найдёт. Поэтому есть способ чуть попроще.

Авторизуемся на ГИС ЖКХ https://portal.dom.gosuslugi.ru/
В браузере нажимаем F12 и переходим на вкладку «Сеть»
В правом верхнем углу нажимаем на название своей организации -> посмотреть информацию об организации, и смотрим содержимое запроса из вкладки «Сеть»

guid в «полезной нагрузке» это и есть orgPPAGUID

Для получения ExecutorGUID, точно так-же нажимаем на название своей организации -> Посмотреть информацию о представителе организации. Ничего не меняя нажимаем «Сохранить». В сетевом запросе updateinfo, видим требуемый guid:

Оставить комментарий ExecutorGUID, orgPPAGUID, гис жкх

1С: Открыть форму и получить результат работы

08.12.2025 Павел Грибов 1C

Задача: из формы документа открыть форму подбора чего-либо, и по результату получить результат в исходную форму.

Ну собственно задача штатная и обыденная, никаких изобретений тут нет. Оставляю, т.к. не часто этим пользуюсь и забывается

Решение:

В исходной форме вызываем новую форму:

&НаКлиенте
Процедура ПодборФИАС(Команда)
	Оповещение = Новый ОписаниеОповещения("ПолучитьФИАСДомаИзФормыПодбора", ЭтотОбъект);
	ПараметрыФормы = Новый Структура;
	ПараметрыФормы.Вставить("Ключ", объект.Ссылка);	
	ОткрытьФорму("Справочник.УКАУКАУК.Форма.ФормаПодбораФИАС", ПараметрыФормы,ЭтаФорма,,,,Оповещение,РежимОткрытияОкнаФормы.БлокироватьВесьИнтерфейс);
КонецПроцедуры

&НаКлиенте
Функция ПолучитьФИАСДомаИзФормыПодбора(Результат, ДополнительныеПараметры) экспорт
	нс=объект.Дома.Добавить();
	нс.ИдДома="-";
	нс.КодФиас=Результат.ВыбранныйФиас;
КонецФункции

&НаКлиенте

Процедура ПодборФИАС(Команда)

Оповещение = Новый ОписаниеОповещения("ПолучитьФИАСДомаИзФормыПодбора", ЭтотОбъект);

ПараметрыФормы = Новый Структура;

ПараметрыФормы.Вставить("Ключ", объект.Ссылка);

ОткрытьФорму("Справочник.УКАУКАУК.Форма.ФормаПодбораФИАС", ПараметрыФормы,ЭтаФорма,,,,Оповещение,РежимОткрытияОкнаФормы.БлокироватьВесьИнтерфейс);

КонецПроцедуры

&НаКлиенте

Функция ПолучитьФИАСДомаИзФормыПодбора(Результат, ДополнительныеПараметры) экспорт

нс=объект.Дома.Добавить();

нс.ИдДома="-";

нс.КодФиас=Результат.ВыбранныйФиас;

КонецФункции

В открываемой форме, пропишем обработку закрытия формы:

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

&НаКлиенте

Процедура ПередЗакрытием(Отказ, ЗавершениеРаботы, ТекстПредупреждения, СтандартнаяОбработка)

Фиас="";

для каждого стр из Элементы.Дом.СписокВыбора цикл

если стр.Представление=Элементы.Дом.ВыделенныйТекст тогда

Фиас=стр.Значение;

конецЕсли;

конеццикла;

ПараметрыЗакрытия = Новый Структура;

ПараметрыЗакрытия.Вставить("ВыбранныйФиас", Фиас);

Закрыть(ПараметрыЗакрытия);

КонецПроцедуры

Оставить комментарий 1с, модальная форма, получение результата, програмное открытие формы

Присоеденяясь к хайпу про Долину

05.12.2025 Павел Грибов Из жизни

По мотивам статьи. Постить фоточку нельзя, могут привлечь. Потому только словами 🙂 Отвратительна ситуация, что в общем то не бедная госпожа Долина, просто так вот отжала обратно проданную квартиру (пусть и проданную под воздействием мошенников), и не хочет возвращать обратно деньги добросовестной покупательнице. Редко пишу в бложике на темы отличные от ИТ, но тут пригорело..

Оставить комментарий долина, мошенники

Вот и пригодилась опять теория вероятности ;)

25.11.2025 Павел Грибов 1C

Задача: есть два исполнителя. Необходимо обеспечить, чтобы исполнителю №1 доставалось 2/3 заявок, и исполнителю №2 — 1/3 задач.

Решение: высчитывать какому исполнителю сколько перепало уже заявок и в каком порядке, мне показалось излишним. Тем более, если думать на перспективу, то скорее всего окажется что потом будет добавлено еще несколько исполнителей со своими долями. Поэтому был реализован следующий алгоритм выбора исполнителя:

Исполнитель 1, с долями 2/3
Исполнитель 2, с долями 1/3

Как вычисляем исполнителя:

Всего долей: 3

— Создаем кость, с гранями 1,2,3
— Грани 1 и 2 = Исполнитель 1
— Грань 3 = Исполнитель 2

Кидаем «кость». Какая грань выпадет, такой исполнитель и назначается. В принципе при достаточном количестве бросков, процентное соотношение выпадений исполнителя выходит:

Исполнитель 1: 67%
Исполнитель 2: 33 %

Ну и кому интересно, вот код реализации:

&НаСервере
Функция ВыбратьИсполнителяНаСервере()
	Наименование=объект.Район;
	нама=СтрРазделить(Наименование," ");
	Район=ВРег(нама[0]);
	Исполнители=Новый Массив();
	Запрос = Новый Запрос;
	Запрос.Текст = 
		"ВЫБРАТЬ
		|	ДоступВЛКДляКонтрагентаРайоныОбслуживания.Ссылка.Ссылка КАК Ссылка,
		|	ДоступВЛКДляКонтрагентаРайоныОбслуживания.Доля КАК Доля
		|ИЗ
		|	Справочник.ДоступВЛКДляКонтрагента.РайоныОбслуживания КАК ДоступВЛКДляКонтрагентаРайоныОбслуживания
		|ГДЕ
		|	ВРЕГ(ДоступВЛКДляКонтрагентаРайоныОбслуживания.Район.Наименование) ПОДОБНО &Наименование";	
	Запрос.УстановитьПараметр("Наименование", "%"+Район+"%");	
	РезультатЗапроса = Запрос.Выполнить();	
	ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();		
	ВсегоДолей=0;
	Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
		Исполнители.Добавить(Новый Структура("исполнитель,доля",ВыборкаДетальныеЗаписи.Ссылка,ВыборкаДетальныеЗаписи.Доля));	
		ВсегоДолей=ВсегоДолей+ВыборкаДетальныеЗаписи.Доля;
	КонецЦикла;
	
	Если Исполнители.Количество()=0 тогда
		возврат неопределено;
	конецесли;	
	// если исполнитель один, то с долями не морочимся
	Если Исполнители.Количество()=1 тогда
		Возврат   Исполнители[0].исполнитель;
	конецесли;	
	
	// если всего долей 0, а исполнителей более чем 1, то тогда исполнитель - первый попавшийся
	если ВсегоДолей=0 тогда
		Возврат   Исполнители[0].исполнитель;
	конецесли;	
	
	
	// А вот тут уже мудрим с долями
	ЗаполненныеДоли=Новый Массив();
	для каждого исполнитель из Исполнители цикл
		для поз=1 по исполнитель.доля цикл
			ЗаполненныеДоли.Добавить(исполнитель.исполнитель);
		конеццикла	
	конеццикла;	
	
	// Здесь уже имеем массив с заполненными развернутыми исполнителями. Например: Вася,Вася,Вася,Петя,Петя
	// Осталось сгенерировать случайное число 1-5, и назначить в соответствии с выпавшим числом исполнителя
	Генератор = Новый ГенераторСлучайныхЧисел(ТекущаяУниверсальнаяДатаВМиллисекундах());
	СлучайноеЧисло = Генератор.СлучайноеЧисло(0,ЗаполненныеДоли.Количество()-1);
	Возврат ЗаполненныеДоли[СлучайноеЧисло];
		
КонецФункции

&НаСервере

Функция ВыбратьИсполнителяНаСервере()

Наименование=объект.Район;

нама=СтрРазделить(Наименование," ");

Район=ВРег(нама[0]);

Исполнители=Новый Массив();

Запрос = Новый Запрос;

Запрос.Текст =

"ВЫБРАТЬ

| ДоступВЛКДляКонтрагентаРайоныОбслуживания.Ссылка.Ссылка КАК Ссылка,

| ДоступВЛКДляКонтрагентаРайоныОбслуживания.Доля КАК Доля

|ИЗ

| Справочник.ДоступВЛКДляКонтрагента.РайоныОбслуживания КАК ДоступВЛКДляКонтрагентаРайоныОбслуживания

|ГДЕ

| ВРЕГ(ДоступВЛКДляКонтрагентаРайоныОбслуживания.Район.Наименование) ПОДОБНО &Наименование";

Запрос.УстановитьПараметр("Наименование", "%"+Район+"%");

РезультатЗапроса = Запрос.Выполнить();

ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();

ВсегоДолей=0;

Пока ВыборкаДетальныеЗаписи.Следующий() Цикл

Исполнители.Добавить(Новый Структура("исполнитель,доля",ВыборкаДетальныеЗаписи.Ссылка,ВыборкаДетальныеЗаписи.Доля));

ВсегоДолей=ВсегоДолей+ВыборкаДетальныеЗаписи.Доля;

КонецЦикла;

Если Исполнители.Количество()=0 тогда

возврат неопределено;

конецесли;

// если исполнитель один, то с долями не морочимся

Если Исполнители.Количество()=1 тогда

Возврат Исполнители[0].исполнитель;

конецесли;

// если всего долей 0, а исполнителей более чем 1, то тогда исполнитель - первый попавшийся

если ВсегоДолей=0 тогда

Возврат Исполнители[0].исполнитель;

конецесли;

// А вот тут уже мудрим с долями

ЗаполненныеДоли=Новый Массив();

для каждого исполнитель из Исполнители цикл

для поз=1 по исполнитель.доля цикл

ЗаполненныеДоли.Добавить(исполнитель.исполнитель);

конеццикла

конеццикла;

// Здесь уже имеем массив с заполненными развернутыми исполнителями. Например: Вася,Вася,Вася,Петя,Петя

// Осталось сгенерировать случайное число 1-5, и назначить в соответствии с выпавшим числом исполнителя

Генератор = Новый ГенераторСлучайныхЧисел(ТекущаяУниверсальнаяДатаВМиллисекундах());

СлучайноеЧисло = Генератор.СлучайноеЧисло(0,ЗаполненныеДоли.Количество()-1);

Возврат ЗаполненныеДоли[СлучайноеЧисло];

КонецФункции

Оставить комментарий 1с, случайное число, теория вероятности

1 2 3 … 299 »

Пн	Вт	Ср	Чт	Пт	Сб	Вс
1	2	3	4	5	6	7
8	9	10	11	12	13	14
15	16	17	18	19	20	21
22	23	24	25	26	27	28
29	30	31