Павел Грибов, Автор в ЖЗГ

1с: Работа с деревом значений

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

Задача: создать инструмент для распределения заявок по дням.

Решение: Наиболее удобным вариант я подумал что будет создание некого «дерева», узлами которого будут даты, а «ветвями» — заявки. Заявки можно будет перетаскивать между датами, тем самым равномерно распределяя нагрузку по дням.

Для того чтобы работать с деревьями, в 1С есть специальный тип: Дерево значений. Основной сущностностью у него являются строки. У каждой строки могут быть реквизиты (колонки). В то-же время каждая строка может иметь «потомков» — другие строки.

Создадим на форме «ДеревоОтключений» с типом «Дерево значений», и добавим у него реквизиты:

И перетащим его на форму. Далее по событию открытия, заполним дерево:

ДО = РеквизитФормыВЗначение("ДеревоОтключений");
	ДО.Строки.Очистить();
	
   	Для Счетчик = 0 По Число(Сред(КонецМесяца(объект.ПериодОтключения), 1, 2)) Цикл
    	УДеньМесяца=ДО.Строки.Добавить();
		если Счетчик=0 тогда
			УДеньМесяца.ДатаОтключения="не распределено";
		иначе	
			УДеньМесяца.ДатаОтключения=Формат(Дата(Год(объект.ПериодОтключения),Месяц(объект.ПериодОтключения),Счетчик),"ДФ=dd.MM.yyyy");						
		конецесли;
		УДеньМесяца.expanded=false;
		кол=0;
		для каждого стр из МассивОтключаемых[Счетчик] цикл
			ссср=УДеньМесяца.Строки.Добавить();
			ссср.Отключаемый=стр;
			ссср.ЛС=Строка(стр.ЛС);
			ссср.Адрес=стр.АдресПотребителя;
			кол=кол+1;
		конеццикла;			
		если кол>0 тогда
			УДеньМесяца.ЛС=Строка(кол);
		конецесли;
		
		
    КонецЦикла;

	ЗначениеВРеквизитФормы(ДО,"ДеревоОтключений");

ДО = РеквизитФормыВЗначение("ДеревоОтключений");

ДО.Строки.Очистить();

Для Счетчик = 0 По Число(Сред(КонецМесяца(объект.ПериодОтключения), 1, 2)) Цикл

УДеньМесяца=ДО.Строки.Добавить();

если Счетчик=0 тогда

УДеньМесяца.ДатаОтключения="не распределено";

иначе

УДеньМесяца.ДатаОтключения=Формат(Дата(Год(объект.ПериодОтключения),Месяц(объект.ПериодОтключения),Счетчик),"ДФ=dd.MM.yyyy");

конецесли;

УДеньМесяца.expanded=false;

кол=0;

для каждого стр из МассивОтключаемых[Счетчик] цикл

ссср=УДеньМесяца.Строки.Добавить();

ссср.Отключаемый=стр;

ссср.ЛС=Строка(стр.ЛС);

ссср.Адрес=стр.АдресПотребителя;

кол=кол+1;

конеццикла;

если кол>0 тогда

УДеньМесяца.ЛС=Строка(кол);

конецесли;

КонецЦикла;

ЗначениеВРеквизитФормы(ДО,"ДеревоОтключений");

Получаем такую чудную картинку:

Теперь осталось только запретить перетаскивание во все колонки кроме «ДатаОтключения», чтобы избежать «не правильных» деревьев. Для этого заполним событие «ПриПеретаскивании»:

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

&НаКлиенте

Процедура ДеревоОтключенийПеретаскивание(Элемент, ПараметрыПеретаскивания, СтандартнаяОбработка, Строка, Поле)

//запретим если имя колонки куда тащим отличается от "ДатаОтключения"

если Поле.Имя<>"ДеревоОтключенийДатаОтключения" тогда

СтандартнаяОбработка=ложь;

конецесли;

//запретим если дата отключения пустая

Куда=ДеревоОтключений.НайтиПоИдентификатору(Строка);

если Куда.ДатаОтключения="" тогда

СтандартнаяОбработка=ложь;

конецесли;

//запретим перетаскивание "в корень"

если Куда.ДатаОтключения=ДеревоОтключений.НайтиПоИдентификатору(Элементы.ДеревоОтключений.ТекущаяСтрока).ПолучитьРодителя().ДатаОтключения тогда

СтандартнаяОбработка=ложь;

конецесли;

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

Для того чтобы обновить цифру с количеством «веток» в каждом узле, реализовал нечто подобное, разместив в событии «ОкончаниеПеретаскивания»:

&НаКлиенте
Процедура ДеревоОтключенийОкончаниеПеретаскивания(Элемент, ПараметрыПеретаскивания, СтандартнаяОбработка)
	ОбновляюКоличествоЛС();	
КонецПроцедуры

&НаКлиенте
Функция ОбновляюКоличествоЛС()
	 ЭлементыДерева = ДеревоОтключений.ПолучитьЭлементы();	
	 для каждого стр из ЭлементыДерева цикл
		 клв=стр.ПолучитьЭлементы().Количество();
		 если клв<50 тогда
	 		стр.ЛС=клв;
		 конецесли;
	 конеццикла;	 
КонецФункции

&НаКлиенте

Процедура ДеревоОтключенийОкончаниеПеретаскивания(Элемент, ПараметрыПеретаскивания, СтандартнаяОбработка)

ОбновляюКоличествоЛС();

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

&НаКлиенте

Функция ОбновляюКоличествоЛС()

ЭлементыДерева = ДеревоОтключений.ПолучитьЭлементы();

для каждого стр из ЭлементыДерева цикл

клв=стр.ПолучитьЭлементы().Количество();

если клв<50 тогда

стр.ЛС=клв;

конецесли;

конеццикла;

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

В рекруссию не пошел, т.к. в моём случае заведомо известно, что ветвей не более 1

Оставить комментарий 1с, дерево значений, перетаскивание

1С: использование HTML поля на форме

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

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

В моём случае, я в это поле просто вывожу динамический список напоминаний. При клике на который открывается соответствующий документ.

Итак, создаём на форме реквизит «Прочие напоминания» с типом строка. Длина -0, т.е. не ограниченная. Затем перетаскиваем реквизит на форму и выбираем вид «Поле HTML документа»:

При открытии формы, заполняем HTML:

&НаСервере
Функция СформироватьСписокНапоминанийНаСервере(Исполнитель)
список_напоминаний=СК_ОбщиеФункции.СформироватьУведомленияОНапоминаемыхДатах(ложь,Исполнитель);
	body="<ul>";
	для каждого стр из список_напоминаний цикл
		body=body+"<li><a href='"+стр.ссылка.номер+"'>"+стр.Пояснение+"</a></li>";
	конеццикла;	
	body=body+"</ul>";
	возврат body;
КонецФункции

&НаКлиенте
Процедура ПриОткрытии(Отказ)
	ПрочиеНапоминания="<html><head></head><body>"+СформироватьСписокНапоминанийНаСервере(Исполнитель)+"</body></html>";	
КонецПроцедуры

&НаСервере

Функция СформироватьСписокНапоминанийНаСервере(Исполнитель)

список_напоминаний=СК_ОбщиеФункции.СформироватьУведомленияОНапоминаемыхДатах(ложь,Исполнитель);

body="<ul>";

для каждого стр из список_напоминаний цикл

body=body+"<li><a href='"+стр.ссылка.номер+"'>"+стр.Пояснение+"</a></li>";

конеццикла;

body=body+"</ul>";

возврат body;

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

&НаКлиенте

Процедура ПриОткрытии(Отказ)

ПрочиеНапоминания="<html><head></head><body>"+СформироватьСписокНапоминанийНаСервере(Исполнитель)+"</body></html>";

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

Далее отлавливаем клик по полю HTML, и открываем документ:

&НаКлиенте
Процедура ПрочиеНапоминанияПриНажатии(Элемент, ДанныеСобытия, СтандартнаяОбработка)
	если ДанныеСобытия.Свойство("href") тогда
		РазделёныйМассивСсылки=СтрРазделить(ДанныеСобытия.href,"/");		
		НомерДокумента=РазделёныйМассивСсылки[РазделёныйМассивСсылки.Количество()-1];
		ОткрытьЗначение(ПолучитьСсылкуНаДокумент(НомерДокумента));
	конецесли;
	СтандартнаяОбработка=ложь;
КонецПроцедуры

&НаКлиенте

Процедура ПрочиеНапоминанияПриНажатии(Элемент, ДанныеСобытия, СтандартнаяОбработка)

если ДанныеСобытия.Свойство("href") тогда

РазделёныйМассивСсылки=СтрРазделить(ДанныеСобытия.href,"/");

НомерДокумента=РазделёныйМассивСсылки[РазделёныйМассивСсылки.Количество()-1];

ОткрытьЗначение(ПолучитьСсылкуНаДокумент(НомерДокумента));

конецесли;

СтандартнаяОбработка=ложь;

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

Оставить комментарий 1с, html

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

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

Для того чтобы на форме автоматически появилась кнопка печати, достаточно:

1.Создать команду, с именем надписи которая будет в выпадающей кнопке печати

2. В модуле команды разместить код вывода печатной формы. Примерно что-то в этом духе:

Функция КомпонентаФормированияQRКода()
	
	QRCodeGenerator = Неопределено;
	
	Попытка
		Если ПодключитьВнешнююКомпоненту("ОбщийМакет.КомпонентаПечатиQRКода24", "QR") Тогда
			QRCodeGenerator = Новый("AddIn.QR.QRCodeExtension");
		Иначе
			Возврат Неопределено;
		КонецЕсли;
	Исключение
		сообщить(ОписаниеОшибки());
		Возврат Неопределено;
	КонецПопытки;
	
	Возврат QRCodeGenerator;
	
КонецФункции


&НаКлиенте
Процедура ОбработкаКоманды(ПараметрКоманды, ПараметрыВыполненияКоманды)

	СК_ЖурналДействийПользователей.ЗарегистрироватьДействие(
		"ВызовКоманды",
		ПараметрыВыполненияКоманды.НавигационнаяСсылка,
		ПараметрКоманды
	);
	

	ТабДок = ПолучитьТабДок(ПараметрКоманды);
	ТабДок.Показать();
	
КонецПроцедуры

&НаСервере
Функция ПолучитьТабДок(ДокСсылка)
	
	ТабДок = Новый ТабличныйДокумент;
	ТабДок.АвтоМасштаб			= Истина;
	ТабДок.ОриентацияСтраницы	= ОриентацияСтраницы.Ландшафт;
	ТабДок.КлючПараметровПечати	= "ПАРАМЕТРЫ_ПЕЧАТИ_СК_ГР_РеестрУведомленныхПотребителей";
	
	QRCodeGenerator = КомпонентаФормированияQRКода();
	
	Макет = Документы.СК_ГР_РеестрУведомленныхПотребителей.ПолучитьМакет("Квитанция");
	КоличествоКвитанций=0;
	для каждого стр из  ДокСсылка цикл
		КоличествоКвитанций =КоличествоКвитанций + 1; 
		ОбластьШапка  = Макет.ПолучитьОбласть("Шапка");	
		
		ОбластьШапка.Параметры.Адрес 			= стр.АдресПотребителя;
		если ТипЗнч(стр.лс)=Тип("Строка") тогда
			лицсч=стр.лс;			
		иначе	
			лицсч=стр.лс.код;
		конецесли;	
		ОбластьШапка.Параметры.ЛС= "9" + Строка(лицсч);
		ОбластьШапка.Параметры.ФИО 	= стр.ФИО_потребителя;
		ОбластьШапка.Параметры.СуммаРуб 	=Цел(стр.ПолнаяОплатаЗадолженостиСумма);
		ОбластьШапка.Параметры.СуммаКоп 	= Прав(Формат(стр.ПолнаяОплатаЗадолженостиСумма,"ЧДЦ=2"),2);
	
		ИмяQRКода = "ШтрихКод";
		
		Попытка
			УровеньКоррекции = 0;
			Размер = 120;
			ДанныеВШК = "ST00012|Name=ООО Сукацукая|PersonalAcc=234к234к34к|BankName=ПАО СБЕРБАНК|BIC=044525225|CorrespAcc=епукепк|Category=екпукеп|PayeeINN=4543е345е|Purpose=ОТКЛЮЧЕНИЕ/ПОДКЛЮЧЕНИЕ|PersAcc="+"9" + Строка(лицсч)+"|PayerAddress="+стр.АдресПотребителя+"|Sum="+формат(Цел(стр.ПолнаяОплатаЗадолженостиСумма*100),"ЧГ=")+"";
			ДанныеQRКода = QRCodeGenerator.GenerateQRCode(ДанныеВШК, УровеньКоррекции, Размер);
		Исключение  
		сообщить(описаниеОшибки());	
		КонецПопытки;
		
		Если ДанныеQRКода <> Неопределено Тогда 
			ОбластьШапка.Рисунки[ИмяQRКода].Картинка = Новый Картинка(ДанныеQRКода);
		КонецЕсли;
		Если КоличествоКвитанций = 2 Тогда
			ТабДок.ВывестиГоризонтальныйРазделительСтраниц();
			КоличествоКвитанций = 0;
		КонецЕСли;
	
	
	ТабДок.Вывести(ОбластьШапка);
	конеццикла;
	
	ТабДок.ТолькоПросмотр = истина;
	ТабДок.АвтоМасштаб = истина;
	
	
	Возврат ТабДок;
	
КонецФункции

Функция КомпонентаФормированияQRКода()

QRCodeGenerator = Неопределено;

Попытка

Если ПодключитьВнешнююКомпоненту("ОбщийМакет.КомпонентаПечатиQRКода24", "QR") Тогда

QRCodeGenerator = Новый("AddIn.QR.QRCodeExtension");

Иначе

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

КонецЕсли;

Исключение

сообщить(ОписаниеОшибки());

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

КонецПопытки;

Возврат QRCodeGenerator;

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

&НаКлиенте

Процедура ОбработкаКоманды(ПараметрКоманды, ПараметрыВыполненияКоманды)

СК_ЖурналДействийПользователей.ЗарегистрироватьДействие(

"ВызовКоманды",

ПараметрыВыполненияКоманды.НавигационнаяСсылка,

ПараметрКоманды

);

ТабДок = ПолучитьТабДок(ПараметрКоманды);

ТабДок.Показать();

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

&НаСервере

Функция ПолучитьТабДок(ДокСсылка)

ТабДок = Новый ТабличныйДокумент;

ТабДок.АвтоМасштаб = Истина;

ТабДок.ОриентацияСтраницы = ОриентацияСтраницы.Ландшафт;

ТабДок.КлючПараметровПечати = "ПАРАМЕТРЫ_ПЕЧАТИ_СК_ГР_РеестрУведомленныхПотребителей";

QRCodeGenerator = КомпонентаФормированияQRКода();

Макет = Документы.СК_ГР_РеестрУведомленныхПотребителей.ПолучитьМакет("Квитанция");

КоличествоКвитанций=0;

для каждого стр из ДокСсылка цикл

КоличествоКвитанций =КоличествоКвитанций + 1;

ОбластьШапка = Макет.ПолучитьОбласть("Шапка");

ОбластьШапка.Параметры.Адрес = стр.АдресПотребителя;

если ТипЗнч(стр.лс)=Тип("Строка") тогда

лицсч=стр.лс;

иначе

лицсч=стр.лс.код;

конецесли;

ОбластьШапка.Параметры.ЛС= "9" + Строка(лицсч);

ОбластьШапка.Параметры.ФИО = стр.ФИО_потребителя;

ОбластьШапка.Параметры.СуммаРуб =Цел(стр.ПолнаяОплатаЗадолженостиСумма);

ОбластьШапка.Параметры.СуммаКоп = Прав(Формат(стр.ПолнаяОплатаЗадолженостиСумма,"ЧДЦ=2"),2);

ИмяQRКода = "ШтрихКод";

Попытка

УровеньКоррекции = 0;

Размер = 120;

ДанныеQRКода = QRCodeGenerator.GenerateQRCode(ДанныеВШК, УровеньКоррекции, Размер);

Исключение

сообщить(описаниеОшибки());

КонецПопытки;

Если ДанныеQRКода <> Неопределено Тогда

ОбластьШапка.Рисунки[ИмяQRКода].Картинка = Новый Картинка(ДанныеQRКода);

КонецЕсли;

Если КоличествоКвитанций = 2 Тогда

ТабДок.ВывестиГоризонтальныйРазделительСтраниц();

КоличествоКвитанций = 0;

КонецЕСли;

ТабДок.Вывести(ОбластьШапка);

конеццикла;

ТабДок.ТолькоПросмотр = истина;

ТабДок.АвтоМасштаб = истина;

Возврат ТабДок;

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

3. В модуле менеджера документа разместить функцию:

Процедура Печать(МассивОбъектов, ПараметрыПечати, КоллекцияПечатныхФорм, ОбъектыПечати, ПараметрыВывода) Экспорт
	ПараметрыВывода.ДоступнаПечатьПоКомплектно = Истина;		
КонецПроцедуры

Процедура Печать(МассивОбъектов, ПараметрыПечати, КоллекцияПечатныхФорм, ОбъектыПечати, ПараметрыВывода) Экспорт

ПараметрыВывода.ДоступнаПечатьПоКомплектно = Истина;

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

И всё. Теперь на форме документа и форме списка появится кнопка «Печать» с выпадающим списком.

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

Чтиво за последнее время

10.03.2025 Павел Грибов Чтиво

Перешел с FBReader на AlreaderPro, по причине того, что разработчики напрочь сломали работу с OPDS. Пока еще привыкаю, тоже есть нюансы но в целом хорошо.

Взрослое:

Алекс и Алекс 1…5 Афанасьев Семен. Сюжет: Будущее. В мозг одного подростка в результате не понятных событий попадает разум из параллельной вселенной. Ну и он там начинает прокачиваться за счёт этого. Еще первые две части читабельно, далее всё хуже и хуже. Читабельность 3/5

Смотритель Университета. Малютин Антон. Сюжет: настоящее. Рядом с нами параллельно существую люди обладающие знаниями об иных мирах. Мало того, Иномиряне всех видов и форм вполне себе живут вместе с нами. Дочитать не смог: 3 из 5

Детское:

Домовладелец среди зомби. Денис Симонов. Сюжет: Обстановка на земле всё хуже и хуже, и скоро грядет ядерная война. Для тогого чтобы попытаться её предотвратить, люди из паралельной вселенной присылают систему и зомби. Главный герой: аутист, которому претит общение с другими людьми. Но хочешь выжить — начнешь сотрудничать с кем захочешь. В общем выживание. Оценка 4 из 5.

Оставить комментарий чтиво

SolidWorks 2023: Задание единиц измерения по умолчанию

16.02.2025 Павел Грибов Windows

Для меня лично большим неудобством является то, что при создании новой детали, необходимо каждый раз выставлять руками единицы измерения ММГС (миллиметры). Недолго, но с десяток секунд каждый раз теряется.

Для того чтобы единицы измерения всегда были такими по умолчанию, достаточно открыть шаблон детали из например C:\ProgramData\SolidWorks\SolidWorks 2012\templates\ , установить там единицы измерения и сохранить затем шаблон.

И собственно всё. В следующий раз при создании детали, единицы измерения будут ММГТ

Оставить комментарий 2023, solidworks, единицы измерения, ммгс

1 2 3 … 296 »

Пн	Вт	Ср	Чт	Пт	Сб	Вс
					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