Архивы 1с - Страница 2 из 35

1С: Сохранение логов изменений регистра сведений

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

Задача: вести журнал логов изменения записей регистра сведений

Решение:

Штатного механизма как в Документа или Справочниках нет (ну собственно и правильно, т.к. запись сейчас есть, через минуту её нет). Потому разработаем собственный механизм. Общий алгоритм будет следующий:

при открытии форма регистра — запоминаем структуру и значения данных записи регистра
при записи регистра из формы — сравниваем новые данные с охраненными, и при выявлении изменений, записываем оные в отдельный регистр «изменений».

При открытии формы регистра, получаем его структуру из метаданных, и запоминаем значения:

&НаКлиенте
Перем ДанныеФормыДоИзменения;

&НаКлиенте
Процедура ПослеЗаписи(ПараметрыЗаписи)
	СохранитьИзмененияЕслиТаковыеЕсть(ДанныеФормыДоИзменения)
КонецПроцедуры

&НаСервере
Функция ПолучитьДанныеДоОбновления()
	ДанныеПоРегистру=Метаданные.РегистрыСведений.СГ_ГР_ТранспортныйФайлПриборыУчета;
	ДоступныеПоля=Новый Структура();
	для каждого стр из ДанныеПоРегистру.Измерения цикл
		ДоступныеПоля.Вставить(стр.имя,неопределено);
	конеццикла;	
	для каждого стр из ДанныеПоРегистру.Ресурсы цикл
		ДоступныеПоля.Вставить(стр.имя,неопределено);
	конеццикла;	
	
	Данные=Новый Структура();
	для каждого стр из ДоступныеПоля цикл
		 ключ=стр.Ключ;
		 значение=ЭтотОбъект.Запись[Стр.Ключ];
		 Данные.Вставить(ключ,Строка(значение));
	 конеццикла;		
	 возврат Данные;
КонецФункции

&НаКлиенте

Перем ДанныеФормыДоИзменения;

&НаКлиенте

Процедура ПослеЗаписи(ПараметрыЗаписи)

СохранитьИзмененияЕслиТаковыеЕсть(ДанныеФормыДоИзменения)

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

&НаСервере

Функция ПолучитьДанныеДоОбновления()

ДанныеПоРегистру=Метаданные.РегистрыСведений.СГ_ГР_ТранспортныйФайлПриборыУчета;

ДоступныеПоля=Новый Структура();

для каждого стр из ДанныеПоРегистру.Измерения цикл

ДоступныеПоля.Вставить(стр.имя,неопределено);

конеццикла;

для каждого стр из ДанныеПоРегистру.Ресурсы цикл

ДоступныеПоля.Вставить(стр.имя,неопределено);

конеццикла;

Данные=Новый Структура();

для каждого стр из ДоступныеПоля цикл

ключ=стр.Ключ;

значение=ЭтотОбъект.Запись[Стр.Ключ];

Данные.Вставить(ключ,Строка(значение));

конеццикла;

возврат Данные;

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

При сохранении данных из формы регистра:

НаСервере
Функция СохранитьИзмененияЕслиТаковыеЕсть(ДанныеФормыДоИзменения)
	для каждого стр из ДанныеФормыДоИзменения цикл
		если стр.Значение<>Строка(ЭтотОбъект.Запись[Стр.Ключ]) тогда
			СК_ГР_РаботаСТранспортнымиФайлами.СделатьЗаписьОбИзменении(
				ЭтотОбъект.Запись["dt"],
				перечисления.СК_ГР_РегистрДляОбработки.Приборы,
				Строка(Стр.Ключ),
				Строка(стр.Значение),
				Строка(ЭтотОбъект.Запись[Стр.Ключ])
			);
		конецесли;	
	конеццикла;
КонецФункции	

&НаКлиенте
Процедура ПриОткрытии(Отказ)
	ДанныеФормыДоИзменения=ПолучитьДанныеДоОбновления();
КонецПроцедуры

НаСервере

Функция СохранитьИзмененияЕслиТаковыеЕсть(ДанныеФормыДоИзменения)

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

если стр.Значение<>Строка(ЭтотОбъект.Запись[Стр.Ключ]) тогда

СК_ГР_РаботаСТранспортнымиФайлами.СделатьЗаписьОбИзменении(

ЭтотОбъект.Запись["dt"],

перечисления.СК_ГР_РегистрДляОбработки.Приборы,

Строка(Стр.Ключ),

Строка(стр.Значение),

Строка(ЭтотОбъект.Запись[Стр.Ключ])

);

конецесли;

конеццикла;

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

&НаКлиенте

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

ДанныеФормыДоИзменения=ПолучитьДанныеДоОбновления();

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

В сам регистр «изменений», пишем так:

// Запись в регистр данных об изменении какого то поля в регистрах
// Вход:
//		Период - Дата загрузки из регистра
//		Изменяемый регистр - перечисления.СК_ГР_РегистрДляОбработки
//		Поле - изменяемое поле (строка)
//		Было - значение которое было (строка)
//		Стало - значение которое стало (строка)
Функция СделатьЗаписьОбИзменении(Период,Регистр,Поле,Было,Стало) экспорт
		
	МенеджерЗаписи = РегистрыСведений.СК_ГР_ИсторияИзменений.СоздатьМенеджерЗаписи(); 
		МенеджерЗаписи.Период=ТекущаяДата();
		МенеджерЗаписи.ПериодЗагрузки = Период; 
		МенеджерЗаписи.ИзменяемыйРегистр = Регистр; 
		МенеджерЗаписи.ИзменяемоеПоле = Поле; 
		МенеджерЗаписи.Было = Было; 
		МенеджерЗаписи.Стало = Стало; 
		МенеджерЗаписи.Исполнитель = Пользователи.ТекущийПользователь(); 
	МенеджерЗаписи.Записать();    			
КонецФункции

// Запись в регистр данных об изменении какого то поля в регистрах

// Вход:

// Период - Дата загрузки из регистра

// Изменяемый регистр - перечисления.СК_ГР_РегистрДляОбработки

// Поле - изменяемое поле (строка)

// Было - значение которое было (строка)

// Стало - значение которое стало (строка)

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

МенеджерЗаписи = РегистрыСведений.СК_ГР_ИсторияИзменений.СоздатьМенеджерЗаписи();

МенеджерЗаписи.Период=ТекущаяДата();

МенеджерЗаписи.ПериодЗагрузки = Период;

МенеджерЗаписи.ИзменяемыйРегистр = Регистр;

МенеджерЗаписи.ИзменяемоеПоле = Поле;

МенеджерЗаписи.Было = Было;

МенеджерЗаписи.Стало = Стало;

МенеджерЗаписи.Исполнитель = Пользователи.ТекущийПользователь();

МенеджерЗаписи.Записать();

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

Оставить комментарий 1с, журнал изменений, регистр сведений

1С: Получение текущего пользователя

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

Постараюсь описать все способы определения текущего пользователя информационной базы. К сожалению от версии к версии БСП способы могут меняться.

Способ № 1

ПользователиИнформационнойБазы.ТекущийПользователь()

1	ПользователиИнформационнойБазы.ТекущийПользователь()

Способ №2

ОбщийМодульСистема.ОпределитьТекущегоПользователя();

1	ОбщийМодульСистема.ОпределитьТекущегоПользователя();

Способ №3

ПользователиКлиентСервер.ТекущийПользователь()

1	ПользователиКлиентСервер.ТекущийПользователь()

Способ №4

Клиент - ПользователиКлиент.ТекущийПользователь()
Сервер - Пользователи.ТекущийПользователь()

1 2	Клиент - ПользователиКлиент.ТекущийПользователь() Сервер - Пользователи.ТекущийПользователь()

Способ №5

ЗначениеТекущегоПользователя = ПараметрыСеанса.ТекущийПользователь;

1	ЗначениеТекущегоПользователя = ПараметрыСеанса.ТекущийПользователь;

Наиболее актуальный на текущий момент способ №4.

Оставить комментарий 1с, текущий пользователь, текущийпользователь

Подключение к фоновым заданиям 1С

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

Случаются ситуации, что фоновое задание запущенное пользователем, продолжает работать и после выхода самого пользователя из 1С. Как же исключить повторный запуск фонового задания пользователем? Ну и заодно показать текущий прогресс выполнения задания. На самом деле всё оказалось просто. В 1С есть функционал получения полного списка выполняемых в текущий момент фоновых заданий:

ФоновыеЗадания.ПолучитьФоновыеЗадания();

1	ФоновыеЗадания.ПолучитьФоновыеЗадания();

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

&НаКлиенте
Процедура ВыгрузкаКвитанцийНаБумаге(Команда)
	этаформа.ИндикаторВыгрузкаКвитанций=0;
	ЗапуститьФЗВыгрузкиКвитанций();					
	ПодключитьОбработчикОжидания("ИндикаторВыполненияВыгрузкиКвитанцийИсточник1",1,ложь);
	ПодключитьОбработчикОжидания("ИндикаторВыполненияВыгрузкиКвитанцийИсточник2",1,ложь);
КонецПроцедуры       

&НаСервере
Процедура ЗапуститьФЗВыгрузкиКвитанций()		
	Фоновые = ФоновыеЗадания.ПолучитьФоновыеЗадания();		
	Для Каждого Фоновое из Фоновые Цикл
		если Фоновое.ИмяМетода="СК_ГР_ГеоаналитикаЗагрузки.ВыгрузитьКвитанцииВГеоаналитикуИсточник1" тогда
			если Фоновое.Состояние<>СостояниеФоновогоЗадания.ЗавершеноАварийно и Фоновое.Состояние<>СостояниеФоновогоЗадания.Завершено тогда
				сообщить("-предыдущее задание еще не завершено!");
				объект.ФЗ_ВыгрузкаКвитанций = Фоновое.УникальныйИдентификатор;									
				возврат;
			конецесли;
		конецесли;				
		если Фоновое.ИмяМетода="СК_ГР_ГеоаналитикаЗагрузки.ВыгрузитьКвитанцииВГеоаналитикуИсточник2" тогда
			сообщить("-предыдущее задание еще не завершено!");
			если Фоновое.Состояние<>СостояниеФоновогоЗадания.ЗавершеноАварийно и Фоновое.Состояние<>СостояниеФоновогоЗадания.Завершено тогда
				сообщить("-предыдущее задание еще не завершено!");
				объект.ФЗ_ВыгрузкаКвитанций2 = Фоновое.УникальныйИдентификатор;									
				возврат;
			конецесли;
			возврат;
		 конецесли;							
	конеццикла;	
	
	Парм=Новый Структура("Период,ПроверятьНаличиевБД",объект.Период,объект.ПроверятьНаличиевБД);
	МассивПараметров = Новый Массив;
	МассивПараметров.Добавить(Парм);
	ФЗ = ФоновыеЗадания.Выполнить("СК_ГР_ГеоаналитикаЗагрузки.ВыгрузитьКвитанцииВГеоаналитикуИсточник1",МассивПараметров);	
	объект.ФЗ_ВыгрузкаКвитанций = ФЗ.УникальныйИдентификатор;						
	ФЗ2 = ФоновыеЗадания.Выполнить("СК_ГР_ГеоаналитикаЗагрузки.ВыгрузитьКвитанцииВГеоаналитикуИсточник2",МассивПараметров);	
	объект.ФЗ_ВыгрузкаКвитанций2 = ФЗ2.УникальныйИдентификатор;							
КонецПроцедуры

&НаКлиенте

Процедура ВыгрузкаКвитанцийНаБумаге(Команда)

этаформа.ИндикаторВыгрузкаКвитанций=0;

ЗапуститьФЗВыгрузкиКвитанций();

ПодключитьОбработчикОжидания("ИндикаторВыполненияВыгрузкиКвитанцийИсточник1",1,ложь);

ПодключитьОбработчикОжидания("ИндикаторВыполненияВыгрузкиКвитанцийИсточник2",1,ложь);

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

&НаСервере

Процедура ЗапуститьФЗВыгрузкиКвитанций()

Фоновые = ФоновыеЗадания.ПолучитьФоновыеЗадания();

Для Каждого Фоновое из Фоновые Цикл

если Фоновое.ИмяМетода="СК_ГР_ГеоаналитикаЗагрузки.ВыгрузитьКвитанцииВГеоаналитикуИсточник1" тогда

если Фоновое.Состояние<>СостояниеФоновогоЗадания.ЗавершеноАварийно и Фоновое.Состояние<>СостояниеФоновогоЗадания.Завершено тогда

сообщить("-предыдущее задание еще не завершено!");

объект.ФЗ_ВыгрузкаКвитанций = Фоновое.УникальныйИдентификатор;

возврат;

конецесли;

если Фоновое.ИмяМетода="СК_ГР_ГеоаналитикаЗагрузки.ВыгрузитьКвитанцииВГеоаналитикуИсточник2" тогда

сообщить("-предыдущее задание еще не завершено!");

объект.ФЗ_ВыгрузкаКвитанций2 = Фоновое.УникальныйИдентификатор;

возврат;

конецесли;

возврат;

конецесли;

конеццикла;

Парм=Новый Структура("Период,ПроверятьНаличиевБД",объект.Период,объект.ПроверятьНаличиевБД);

МассивПараметров = Новый Массив;

МассивПараметров.Добавить(Парм);

ФЗ = ФоновыеЗадания.Выполнить("СК_ГР_ГеоаналитикаЗагрузки.ВыгрузитьКвитанцииВГеоаналитикуИсточник1",МассивПараметров);

объект.ФЗ_ВыгрузкаКвитанций = ФЗ.УникальныйИдентификатор;

ФЗ2 = ФоновыеЗадания.Выполнить("СК_ГР_ГеоаналитикаЗагрузки.ВыгрузитьКвитанцииВГеоаналитикуИсточник2",МассивПараметров);

объект.ФЗ_ВыгрузкаКвитанций2 = ФЗ2.УникальныйИдентификатор;

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

Т.е. если фоновое уже запущено — то просто получаем его идентификатор и отображаем прогресс бар. Если нет — запускаем

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

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 2 3 4 … 35 »

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