Автор: Павел Грибов

1C: Выбор из нескольких вариантов макета отчета СКД

1C

Задача: в зависимости от внешних условий, выводить тот или иной вариант отчёта СКД.

Решение:

Добавим в отчёт два макета СКД:

Далее, в зависимости от нажатой кнопки, формируем разные данные:

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

	// задаем сами
     НастройкиСхемыОСКД = СхемаСКД.НастройкиПоУмолчанию;
	 ПараметрыДанныхОСКД = НастройкиСхемыОСКД.ПараметрыДанных.Элементы;
	 
	 ЭлементНачалоПериода = ПараметрыДанныхОСКД.Найти("Период");
	 ЭлементНачалоПериода.Использование = Истина;	 
	 
	 ДатаНачала = ФильтрПериод.ДатаНачала;
	 ДатаОкончания = ФильтрПериод.ДатаОкончания;
	 
     ЭлементНачалоПериода.Значение.ДатаНачала        = НачалоМесяца(ДатаНачала);
     ЭлементНачалоПериода.Значение.ДатаОкончания    = КонецМесяца(ДатаОкончания);	 
	 
	 ЭлементНачалоПериода = ПараметрыДанныхОСКД.Найти("СетеваяОрганизация");
	 ЭлементНачалоПериода.Использование = Истина;	 
	 ЭлементНачалоПериода.Значение=отчет.Сетевая;

	 ЭлементНачалоПериода = ПараметрыДанныхОСКД.Найти("Фильтр");
	 ЭлементНачалоПериода.Использование = Истина;	 
	 ЭлементНачалоПериода.Значение=отчет.Фильтр;
	 	 
	 
	 КомпоновщикМакетаОСКД = Новый КомпоновщикМакетаКомпоновкиДанных;
	 Макет = КомпоновщикМакетаОСКД.Выполнить(СхемаСКД, НастройкиСхемыОСКД);
	 Фильтр=отчет.Фильтр;
	 

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

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

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

Grafana: правильное выставление времени на графике

Linux

К сожалению так и не смог докопаться до истины, почему при отображении графика на панели, время сбивается в непонятные значения +3 часа. Хотя и в настройках панели и в настройках отображения везде установлено руками UTC+3. Пришлось решать проблему кардинально, изменив время в запросе:

SELECT CONVERT_TZ(m_data.dt,'+00:00','-03:00') as dt ,CAST(m_data.value as int) as 'Mikrotik'  FROM m_data.m_data 
WHERE m_data.place=10 and m_data.source=12 and m_data.value_type=1 order by dt limit 500
Оставить комментарий , ,

Microtik: включение API и вывод уровня сигнала wifi соеднинений

Linux

Вывести уровни сигнала соединений:

/interface wireless registration-table> print

Включить сервис API:

/ip service> enable 5
Оставить комментарий , ,

1С: Программная установка пользовательских настроек при открытии отчёта СКД

1C 

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

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

&НаКлиенте
Процедура ЗаполнитьЕМК(Команда)	
	ЗаполнитьЕМКНаСервере();
КонецПроцедуры
Оставить комментарий ,
1 … 55 56 57 58 59 … 308