Рубрика: Павел

Архив статей и записей написанных Грибовым Павлом

Обзор рынка мотоциклов с бюджетом 140тыс, в Вологде

Из жизни

Сделал небольшую сводную таблицу новых мотоциклов, при бюджете до 140тыс рублей.

ГдеСколько (примерно)МодельСтрана производительНаличие запчастейСсылкаОбъем*Лошадей*Макс скорость*ПлюсыМинусы
https://avangard35.ru/141BAJAJ Boxer 150 UGИндияДа, есть официально присутствуют в РФhttps://avangard35.ru/motosalon/motocikly/bajaj-2/motocikl-bajaj-boxer-150-ug/15512135— хорошия оптика
— хороший металл, нормальные проваренные швы		— После покупки нужно перебирать заднюю ступицу, иначе дергается
— Мотор любит высокие обороты 3т+,
— заливать только 95 (а не как рекомендовано 92)
— нужно ставить брызговики, штатно окатывает грязью ноги
https://avangard35.ru/134BAJAJ Boxer BM 125 XИндияДа, есть официально присутствуют в РФhttps://avangard35.ru/motosalon/motocikly/bajaj-2/motocikl-bajaj-boxer-bm-125-x/12410110— хорошия оптика
— хороший металл, нормальные проваренные швы		— После покупки нужно перебирать заднюю ступицу, иначе дергается
— Мотор любит высокие обороты 3т+,
— заливать только 95 (а не как рекомендовано 92)
— нужно ставить брызговики, штатно окатывает грязью ноги
улица Преображенского, 45Б, Вологда121Motoland VOYAGE 200КитайВ продаже есть, но не все. Иногда под заказhttps://vk.com/market/product/motoland-voyage-200-221482818-111460612001380— вибрация на высокой скорости
— узкие шины
— болты говно, срываются нараз
— ломаются ручки сцепления
— хлипкая рама
улица Преображенского, 45Б, Вологда130MOTOLAND FORESTER 200КитайВ продаже есть, но не все. Иногда под заказhttps://vk.com/market/product/motoland-forester-200-221482818-1106006620013100
улица Преображенского, 45Б, Вологда128MOTOLAND SPRINT 200КитайВ продаже есть, но не все. Иногда под заказhttps://vk.com/market/product/motoland-sprint-200-221482818-1281353420013110
улица Преображенского, 45Б, Вологда130Regulmoto BWS с ПТСКитайЕсть, про проблемы не увиделhttps://vk.com/market/product/regulmoto-bws-s-pts-221482818-1306883712513120— мало отзывов
улица Преображенского, 45Б, Вологда135Regulmoto VikingКитайЕсть, про проблемы не увиделhttps://vk.com/market/product/regulmoto-viking-221482818-1116237015012,280— можно ездить вдвоём
— два способа запуска
— большой топливный бак		— мало отзывов
140Regulmoto SK200-22КитайЕсть, про проблемы не увиделhttps://vk.com/market/product/regulmoto-sk200-22-221482818-1159430520011100— можно ездить вдвоём
— два способа запуска
— большой топливный бак		— мало отзывов
Loft Motor, Череповец115Roliz BanditosКитайЕсть, но специализированных магазинов нет, многое вероятно будет под заказhttps://www.avito.ru/cherepovets/mototsikly_i_mototehnika/mototsikl_roliz_banditos_pts_7571301295?25019120— вообще нет отзывов
Loft Motor, Череповец130Rockot Spectrum 150КитайЕсть, про проблемы не увиделhttps://www.avito.ru/vologda/mototsikly_i_mototehnika/rockot_spectrum_150_2026_77252395051501192— вибрации
Оставить комментарий ,

1С: Получить список пользователей роли

1C

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

  • выводит на экран список ролей
  • перебирает всех пользователей и если у пользователя назначена выбранная роль, то выводит её в консоль

Код:


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

&НаСервере
Функция ПроверитьИНаказать()
	УстановитьПривилегированныйРежим(истина);
	Запрос = Новый Запрос;
	Запрос.Текст = 
		"ВЫБРАТЬ
		|	Пользователи.Ссылка КАК Ссылка,
		|	Пользователи.ИдентификаторПользователяИБ КАК ИдентификаторПользователяИБ
		|ИЗ
		|	Справочник.Пользователи КАК Пользователи
		|ГДЕ
		|	Пользователи.ПометкаУдаления = ЛОЖЬ";	
	РезультатЗапроса = Запрос.Выполнить();	
	ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();	
	Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
		
			ИскомыйПользователь = ПользователиИнформационнойБазы.НайтиПоУникальномуИдентификатору(ВыборкаДетальныеЗаписи.ИдентификаторПользователяИБ);
			Если ИскомыйПользователь<>Неопределено Тогда
				РолиПользователя = ИскомыйПользователь.Роли;
				Для Каждого Роль Из РолиПользователя Цикл
				    Если Роль.Имя = ВсеРоли Тогда
				        Сообщить(ВыборкаДетальныеЗаписи.Ссылка);
				    КонецЕсли;
				КонецЦикла;		
		    конецесли;
		
	КонецЦикла;	
    УстановитьПривилегированныйРежим(ложь);
КонецФункции


&НаКлиенте
Процедура ПолучитьСпискоПользователей(Команда)
	ПроверитьИНаказать();	
КонецПроцедуры

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

Обработку, можно скачать тут:

СписокПользователейРолиСкачать

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

PHP: перебор диапазона дат

PHP

Нашел еще один способ перебора каждого дня в диапазоне дат. Вот такой:

$start = new DateTime('2026-01-01');
$interval = new DateInterval('P1D'); // Интервал в 1 день
$period = new DatePeriod($start, $interval, new DateTime('2026-05-21'));

foreach ($period as $date) {
echo $date->format('Ymd')."\n";
}

Ну соответственно в DateInterval можно вставлять не только интервал день (или несколько), но и неделя, месяц, год:

  • y— Количество лет
  • m— Количество месяцев
  • d — Количество дней.
  • h — Количество часов.
  • i — Количество минут.
  • s — Количество секунд.
  • f — Количество микросекунд в виде долей секунды.

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

1С: Группировка в макете

1C

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

ТабДок=Новый ТабличныйДокумент;	
ТабДок.НачатьАвтогруппировкуСтрок();		
....
// Заполняем табличный документ
....
ТабДок.ЗакончитьАвтогруппировкуСтрок();
ТабДок.ОтображатьГруппировки = Истина;
ТабДок.ПоказатьУровеньГруппировокСтрок(3);

В конце указывается уровень группировки по умолчанию. А как дать понять к какому уровню группировки относится конкретный вывод в табличную часть? Всё решается параметрами вида:

ТабДок.Вывести(ОбластьТушка,<уровнь группировки>,<название группы>,<Истина/Ложь - раскрыто/свернуто по умолчанию>);

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

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

1C

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

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

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

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