ЖЗГ - Жизнь замечательных грибов

Новый проект. DHCP сервер с выборкой из БД на Python

Задачей было написать аналог проекта DHCP2DB , но только на Python вместо C. В принципе […]

Читать далее »
Arduino Uno краткий обзор..

Ну на самом деле таких обзоров в «интернетиках» пруд пруди.. Ну чтож, внесу и я […]

Читать далее »
Получение данных из Active Directory посредством PHP

Сам за себя лучше всего расскажет мой кусок кода. Все сдобрено максимально большим количеством комментариев. […]

Читать далее »

1С: таблица значений на форме

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

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

Решение: напишем две процедуры, одна из которых скрывает текущую выбранную мышкой колонку, а другая показывает все колонки в выбранной таблице.

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

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

&НаКлиенте

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

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

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

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

элементы[ТЭ_поле].Видимость=Ложь;

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

&НаКлиенте

Процедура ПоказатьВсеКолонки(Команда)

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

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

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

для каждого стр из элементы[ТЭ_имя_объект].ПодчиненныеЭлементы цикл

стр.Видимость=Истина;

конеццикла;

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

Функционал можно например навесить на контекстное меню

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

1С: Сжимаем прикрепленные файлы

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

Задача: есть некий справочник, к которому прикрепляются файлы. Физически они конечно хранятся в томах, но всё равно занимают места очень порядочно. Необходимо собственно каждый файлик положить в архив, заново «перекрепить» его к элементам справочника. Оригинал соответственно удалить.

Решение:

	Запрос = Новый Запрос;
	Запрос.Текст = 
		"ВЫБРАТЬ ПЕРВЫЕ 1000
		|	Файлы.ВладелецФайла КАК ВладелецФайла,
		|	Файлы.Ссылка КАК Ссылка,
		|	Файлы.ПолноеНаименование КАК ПолноеНаименование,
		|	Файлы.ТекущаяВерсияПутьКФайлу КАК ПутьКФайлу,
		|	Файлы.ТекущаяВерсияТом.ПолныйПутьWindows КАК ПолныйПуть,
		|	Файлы.ДатаСоздания КАК ДатаСоздания
		|ИЗ
		|	Справочник.Файлы КАК Файлы
		|ГДЕ
		|	Файлы.ВладелецФайла ССЫЛКА Справочник.СК_ГосуслугиЛК_ВходящиеСообщения
		|	И Файлы.ПометкаУдаления = ЛОЖЬ
		|	И НЕ Файлы.ТекущаяВерсияПутьКФайлу ПОДОБНО ""%zip%""
		|	И Файлы.ДатаСоздания МЕЖДУ &ДатаС И &ДатаПо
		|
		|УПОРЯДОЧИТЬ ПО
		|	ДатаСоздания";	
	Запрос.УстановитьПараметр("ДатаС", объект.ДатаС);	
	Запрос.УстановитьПараметр("ДатаПо", объект.ДатаПо);	
	РезультатЗапроса = Запрос.Выполнить();	
	ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();	
	Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
		если СтрНайти(ВыборкаДетальныеЗаписи.ПутьКФайлу,".zip")=0 тогда
			НовыйАрхив = Новый ЗаписьZipФайла(
			        ВыборкаДетальныеЗаписи.ПолныйПуть+"tmp.zip",
			        "","",МетодСжатияZIP.Сжатие,УровеньСжатияZIP.Максимальный,МетодШифрованияZIP.Zip20					
			);			
			НовыйАрхив.Добавить(ВыборкаДетальныеЗаписи.ПолныйПуть+ВыборкаДетальныеЗаписи.ПутьКФайлу);
			НовыйАрхив.Записать();            
			//возврат 0;
			ДвоичныеДанные = Новый ДвоичныеДанные(ВыборкаДетальныеЗаписи.ПолныйПуть+"tmp.zip"); 
			АдресФайлаВХранилище = ПоместитьВоВременноеХранилище(ДвоичныеДанные);
			РаботаСФайламиВызовСервера.СоздатьФайлСВерсией(
				ВыборкаДетальныеЗаписи.ВладелецФайла,
				ВыборкаДетальныеЗаписи.ПолноеНаименование+".zip",
				"zip",
				ТекущаяДата(),
				ТекущаяДата(),
				,
				АдресФайлаВХранилище,АдресФайлаВХранилище,
				Ложь,
				,
				,
				Истина
			);						
			об=ВыборкаДетальныеЗаписи.Ссылка.ПолучитьОбъект();
			об.ПометкаУдаления=Истина;
			об.Записать();
			об.Удалить();					
			УдалитьФайлы(ВыборкаДетальныеЗаписи.ПолныйПуть+ВыборкаДетальныеЗаписи.ПутьКФайлу);						
		конецесли;		
	КонецЦикла;

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

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

"ВЫБРАТЬ ПЕРВЫЕ 1000

| Файлы.ВладелецФайла КАК ВладелецФайла,

| Файлы.Ссылка КАК Ссылка,

| Файлы.ПолноеНаименование КАК ПолноеНаименование,

| Файлы.ТекущаяВерсияПутьКФайлу КАК ПутьКФайлу,

| Файлы.ТекущаяВерсияТом.ПолныйПутьWindows КАК ПолныйПуть,

| Файлы.ДатаСоздания КАК ДатаСоздания

|ИЗ

| Справочник.Файлы КАК Файлы

|ГДЕ

| Файлы.ВладелецФайла ССЫЛКА Справочник.СК_ГосуслугиЛК_ВходящиеСообщения

| И Файлы.ПометкаУдаления = ЛОЖЬ

| И НЕ Файлы.ТекущаяВерсияПутьКФайлу ПОДОБНО ""%zip%""

| И Файлы.ДатаСоздания МЕЖДУ &ДатаС И &ДатаПо

|УПОРЯДОЧИТЬ ПО

| ДатаСоздания";

Запрос.УстановитьПараметр("ДатаС", объект.ДатаС);

Запрос.УстановитьПараметр("ДатаПо", объект.ДатаПо);

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

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

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

если СтрНайти(ВыборкаДетальныеЗаписи.ПутьКФайлу,".zip")=0 тогда

НовыйАрхив = Новый ЗаписьZipФайла(

ВыборкаДетальныеЗаписи.ПолныйПуть+"tmp.zip",

"","",МетодСжатияZIP.Сжатие,УровеньСжатияZIP.Максимальный,МетодШифрованияZIP.Zip20

);

НовыйАрхив.Добавить(ВыборкаДетальныеЗаписи.ПолныйПуть+ВыборкаДетальныеЗаписи.ПутьКФайлу);

НовыйАрхив.Записать();

//возврат 0;

ДвоичныеДанные = Новый ДвоичныеДанные(ВыборкаДетальныеЗаписи.ПолныйПуть+"tmp.zip");

АдресФайлаВХранилище = ПоместитьВоВременноеХранилище(ДвоичныеДанные);

РаботаСФайламиВызовСервера.СоздатьФайлСВерсией(

ВыборкаДетальныеЗаписи.ВладелецФайла,

ВыборкаДетальныеЗаписи.ПолноеНаименование+".zip",

"zip",

ТекущаяДата(),

АдресФайлаВХранилище,АдресФайлаВХранилище,

Ложь,

Истина

);

об=ВыборкаДетальныеЗаписи.Ссылка.ПолучитьОбъект();

об.ПометкаУдаления=Истина;

об.Записать();

об.Удалить();

УдалитьФайлы(ВыборкаДетальныеЗаписи.ПолныйПуть+ВыборкаДетальныеЗаписи.ПутьКФайлу);

конецесли;

КонецЦикла;

Т.е. что тут делаем: выбираем элемент справочника с прикрепленным файлом, сжимаем его в архив zip, прикрепляем его и удаляем оригинал.

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

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с, модальная форма, получение результата, програмное открытие формы

1 2 3 … 309 »

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