Метка: 1с

1С: Отслеживание обновления конфигурации

1C

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

Решение: прочитаем журнал регистрации, и если находим в нём событие обновления, отправляем на почту уведомления. Код специально сделал «одной процедурой», не требующий каких-то регистров для хранения и прочего. Дату последнего уведомления пользователей, пишу в тот-же журнал. Т.е. получается «вещь в себе», что удобно для внедрения в любую конфигурацию. Ну и собственно остаётся только дергать эту функцию регламентным заданием с периодичностью например раз в час.

&НаСервере
Процедура ПроверкаОбновленияКонфигурации() экспорт	
   // получаем таблицу когда меняли конфигурацию	
   ЖурналОбновленияКонфигурации = Новый ТаблицаЗначений;   
   СтатусыТранзакций = Новый Массив;
   СтатусыТранзакций.Добавить(СтатусТранзакцииЗаписиЖурналаРегистрации.Зафиксирована);
   СтатусыТранзакций.Добавить(СтатусТранзакцииЗаписиЖурналаРегистрации.НетТранзакции);       
   МетаданныеМассив = Новый Массив;  
   МассивСобытий = Новый Массив;
   МассивСобытий.Добавить("_$InfoBase$_.DBConfigUpdate");      
   ФильтрЗаполнения = Новый Структура;
   ФильтрЗаполнения.Вставить("ДатаНачала", НачалоДня(ТекущаяДата()));
   ФильтрЗаполнения.Вставить("ДатаОкончания", КонецДня(ТекущаяДата()));
   ФильтрЗаполнения.Вставить("Метаданные", МетаданныеМассив);
   ФильтрЗаполнения.Вставить("Событие", МассивСобытий);
   ФильтрЗаполнения.Вставить("Комментарий", "Регистрация конфигурации изменена");   
   ВыгрузитьЖурналРегистрации(ЖурналОбновленияКонфигурации, ФильтрЗаполнения,"Дата, Событие, Метаданные, Данные, ПредставлениеДанных,Комментарий,Пользователь");
   
   ДатаПоследнегоОбновления=неопределено;
   Обновлятор=неопределено;
   если ЖурналОбновленияКонфигурации.Количество()>0 тогда
	   Зап=ЖурналОбновленияКонфигурации[ЖурналОбновленияКонфигурации.Количество()-1];
	   ДатаПоследнегоОбновления=Зап[0];
       УИНПользователя = Новый УникальныйИдентификатор(Зап[2]);
	   ПользовательИБ = ПользователиИнформационнойБазы.НайтиПоУникальномуИдентификатору(УИНПользователя);
   конецесли;	   
   если ДатаПоследнегоОбновления<>неопределено тогда	   
	   //Получаем таблицу когда уведомляли об изменнии конфигурации
	   ЖурналУведомленийОбОбновленииКонфигурации = Новый ТаблицаЗначений;   
	   СтатусыТранзакций = Новый Массив;
	   СтатусыТранзакций.Добавить(СтатусТранзакцииЗаписиЖурналаРегистрации.Зафиксирована);
	   СтатусыТранзакций.Добавить(СтатусТранзакцииЗаписиЖурналаРегистрации.НетТранзакции);       
	   МетаданныеМассив = Новый Массив;  
	   МассивСобытий = Новый Массив;
	   МассивСобытий.Добавить("UpdateConfigAlert");      
	   ФильтрЗаполнения = Новый Структура;
	   ФильтрЗаполнения.Вставить("ДатаНачала", НачалоДня(ТекущаяДата()));
	   ФильтрЗаполнения.Вставить("ДатаОкончания", КонецДня(ТекущаяДата()));
	   ФильтрЗаполнения.Вставить("Метаданные", МетаданныеМассив);
	   ФильтрЗаполнения.Вставить("Событие", МассивСобытий);
	   ВыгрузитьЖурналРегистрации(ЖурналУведомленийОбОбновленииКонфигурации, ФильтрЗаполнения,"Дата, Событие, Метаданные, Данные, ПредставлениеДанных,Комментарий,Пользователь");
	   ДатаПоследнегоУведомления=неопределено;
	   если ЖурналУведомленийОбОбновленииКонфигурации.Количество()>0 тогда
		   Зап=ЖурналУведомленийОбОбновленииКонфигурации[ЖурналУведомленийОбОбновленииКонфигурации.Количество()-1];
		   ДатаПоследнегоУведомления=Зап[5];
	   конецесли;	   	   	   
	   // Писнем в журнал данные, когда последний раз уведомляли об изменениях заинтересованных лиц
	   если ДатаПоследнегоУведомления=неопределено или ДатаПоследнегоУведомления<>ДатаПоследнегоОбновления тогда
	    ЗаписьЖурналаРегистрации("UpdateConfigAlert", УровеньЖурналаРегистрации.Информация, ,ДатаПоследнегоОбновления, "Чуток обновили конфу", РежимТранзакцииЗаписиЖурналаРегистрации.Транзакционная);
		МассивЗаинтересованыхЛиц=Новый Массив();
		МассивЗаинтересованыхЛиц.Добавить("ауцук@укацук.ru");		
		ИмяБазы = СоединенияИБКлиентСервер.ПутьКИнформационнойБазе();
		ТелоПисьма="<b>Внимание!</b><br/>Наш коллега "+Строка(ПользовательИБ)+" успешно выполнил обновление конфигурации.<br/>База: "+ИмяБазы+"<br/>Дата: "+Строка(ДатаПоследнегоОбновления)+"<br/><br/>Ура товарищи!";
		
		для каждого email из МассивЗаинтересованыхЛиц цикл
		  	попытка		
				УчетнаяЗаписьПочты = РаботаСПочтовымиСообщениями.ПолучитьСистемнуюУчетнуюЗапись();
				ПараметрыПисьма = Новый Структура("Кому, Тема, Тело,ТипТекста", email, "Было обновление конфигурации 1С", ТелоПисьма,"HTML");
				РаботаСПочтовымиСообщениями.ОтправитьСообщение(УчетнаяЗаписьПочты, ПараметрыПисьма);				
			исключение   
				ЗаписьЖурналаРегистрации("СК_ГР.МониторингИзмененияКонфигурации", УровеньЖурналаРегистрации.Ошибка,,ОписаниеОшибки(),);		
			конецпопытки;
		конеццикла;
	   конецесли;
		
	конецесли;
	   
КонецПроцедуры

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

1С: Фильтры с выбором значения в шапке отчета СКД

1C

Заметил в одном из отчетов на СКД замечательную функцию: щелкаешь по столбику шапки, и выходит окошко в котором можно пофильтровать по результату. Однако..подумал я. Штатно такого в СКД нет. Чуть порывшись в коде модуля, нашел что за это отвечает следующая конструкция:


Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка)
	
	КомпоновщикМакета = Новый КомпоновщикМакетаКомпоновкиДанных();    	
	
	МакетКомпоновкиДанных = КомпоновщикМакета.Выполнить(СхемаКомпоновкиДанных, 
	КомпоновщикНастроек.ПолучитьНастройки(),ДанныеРасшифровки,,Тип("ГенераторМакетаКомпоновкиДанных"),Истина);
	
	ПроцессорКомпоновкиДанных = Новый ПроцессорКомпоновкиДанных;
	ПроцессорКомпоновкиДанных.Инициализировать(МакетКомпоновкиДанных,,ДанныеРасшифровки,Истина);
	
	ТабличныйДокументРезультата = Новый ТабличныйДокумент;
	
	ПроцессорВыводаРезультатаКомпоновкиДанных = Новый ПроцессорВыводаРезультатаКомпоновкиДанныхВТабличныйДокумент;
	
	ПроцессорВыводаРезультатаКомпоновкиДанных.УстановитьДокумент(ТабличныйДокументРезультата);
	ПроцессорВыводаРезультатаКомпоновкиДанных.Вывести(ПроцессорКомпоновкиДанных);
        
КонецПроцедуры

В результате и получается:

Что вышеприведенный код делает, в душе не понимаю (недолюбливаю СКД, потому редко его касаюсь). Как и то, почему это всё нельзя было сделать чтоб сразу «было» из «коробки».

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

1С: Поиск в списке выбора

1C

Вообще поиск в списке выбора уже в 1С реализован штатно. Но! как всегда со своими нюансами (видимо в угоду универсальности). А именно: поиск ведется только по началу строки. Если же хочется чтоб поиск был более «умный». то можно навесить на событие «АвтоПодбор» свою реализацию. Например такую:

&НаКлиенте
Процедура ШаблонДокументаАвтоПодбор(Элемент, Текст, ДанныеВыбора, ПараметрыПолученияДанных, Ожидание, СтандартнаяОбработка)
	
	Результат=Новый СписокЗначений();
	для каждого стр из Элементы.ШаблонДокумента.СписокВыбора цикл
		если СтрНайти(ВРег(Строка(стр.Представление)),ВРег(Текст))<>0 тогда
			Результат.Добавить(стр.Значение,стр.Представление,стр.Пометка,стр.Картинка);
		конецесли;
	конеццикла;	
	ДанныеВыбора=Результат;
	СтандартнаяОбработка = Ложь;
	
КонецПроцедуры
Оставить комментарий , , ,

1С: Вычисляемые поля в СКД

1C

Избегаю делать отчеты через СКД, потому что спустя какое-то время, сложный отчет превращается в жуткую абракадабру, в которой потом разобраться очень трудно. Слишком всё запутано, слишком много галочек, настроек и прочего. Да, можно сделать почти всё, но для этого нужно СКД знать досконально, и пользоваться им каждый день, чтобы не забыть все нюансы. Когда же сам пишешь отчет, а не через СКД, то тут и комментарии доложишь, и логику попроще сделаешь (пусть и в ущерб производительности). Вот и сейчас, пришлось покопаться в СКД, чтобы вспомнить, как например сделать трюк, с размещением периода дат в одной ячейке. Типа вот так:

Ну а реализация на самом деле простая вышла:

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

1C:невозможно применить фиксированные настройки пересекаются элементы отбора

1C

Эта ошибка может появляться, если при открытии формы списка задаётся «жесткий» отбор, который конфликтует с пользовательским отбором (выбран тот-же отбор, что и «принудительный»). Я решил эту проблему следующим образом: при открытии формы читаю пользовательские отборы, и если вижу что его отбор тот же что и назначаемый, назначаемый отключаю и вывожу сообщение о конфликте:

&НаСервере
Функция ПОлучитьОтборы()
	возврат Элементы.Список.ПолучитьИсполняемыеНастройкиКомпоновкиДанных();		
КонецФункции

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

	//ПодключитьОбработчикИзмененияДанных("ДокументСписок.Отбор", "ПосчитатьИтогиНаСервере", Истина);	
	ПодключитьОбработчикОжидания("ПосчитатьИтогиНаКлиенте",3,ложь);
	
КонецПроцедуры
Оставить комментарий ,
1 2 3 … 39