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

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

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

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

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

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

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

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

Именованный массив в 1С

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

Ну собственно его нет в 1с. Есть некий «аналог», понятие «Структура».

Инициализируется например вот так:

ОтчетСтруктура=Новый Структура;
ОтчетСтруктура.Вставить("НаТранспорте",0);

1 2	ОтчетСтруктура=Новый Структура; ОтчетСтруктура.Вставить("НаТранспорте",0);

Причем ключ не должен содержать пробелов и цифр в начале.

К проинициализированной структуре можно обращаться по ключу например так:

ОтчетСтруктура["НаТранспорте"]=ОтчетСтруктура["НаТранспорте"]+1;

1	ОтчетСтруктура["НаТранспорте"]=ОтчетСтруктура["НаТранспорте"]+1;

Проверка наличия ключа осуществляется так:

если ОтчетСтруктура.Свойство("ключ") тогда
конецесли

1 2	если ОтчетСтруктура.Свойство("ключ") тогда конецесли

Но я в своей практике, немножко по другому поступил, когда мне была не известна заведомо структура:

&НаСервере
Функция ЗаменитьПробелы(_стр)
	стр=СтрЗаменить(_стр, " ", "_");
Возврат стр;
КонецФункции

// цикл 1, заполняем структуру

		ВыборкаДетальныеЗаписи = Результат.Выбрать();
		Пока ВыборкаДетальныеЗаписи.Следующий() Цикл				
			если ВыборкаДетальныеЗаписи.Другое<>"" тогда				
				ОтчетСтруктура.Вставить(ЗаменитьПробелы(ВыборкаДетальныеЗаписи.Другое),0);
			конецесли;	
конеццикла;		


// цикл 2, приращиваем счетчики
		ВыборкаДетальныеЗаписи = Результат.Выбрать();			
		Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
если ВыборкаДетальныеЗаписи.Другое<>"" тогда							
					ОтчетСтруктура[ЗаменитьПробелы(ВыборкаДетальныеЗаписи.Другое)]=ОтчетСтруктура[ЗаменитьПробелы(ВыборкаДетальныеЗаписи.Другое)]+1;
			конецесли;								
			
		конеццикла;

&НаСервере

Функция ЗаменитьПробелы(_стр)

стр=СтрЗаменить(_стр, " ", "_");

Возврат стр;

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

// цикл 1, заполняем структуру

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

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

если ВыборкаДетальныеЗаписи.Другое<>"" тогда

ОтчетСтруктура.Вставить(ЗаменитьПробелы(ВыборкаДетальныеЗаписи.Другое),0);

конецесли;

конеццикла;

// цикл 2, приращиваем счетчики

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

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

если ВыборкаДетальныеЗаписи.Другое<>"" тогда

ОтчетСтруктура[ЗаменитьПробелы(ВыборкаДетальныеЗаписи.Другое)]=ОтчетСтруктура[ЗаменитьПробелы(ВыборкаДетальныеЗаписи.Другое)]+1;

конецесли;

конеццикла;

Оставить комментарий 1c, 1с, именованый массив, структура

WordPress: перебор записей с сортировкой по дате

04.02.2019 Павел Грибов PHP, Павел

Ну например это можно реализовать вот так:

 $paged = (get_query_var('paged')) ? get_query_var('paged') : 1;

			$params = array(
				'post_type'         => array('all', 'news'),				
                                'orderby'             => 'date',
				'order'             => 'ACS',
				'paged'             => $paged
			);
		
		$news_var = query_posts($params);

		$new_block = '';
		foreach ($news_var as $new) { setup_postdata($new);

$paged = (get_query_var('paged')) ? get_query_var('paged') : 1;

$params = array(

'post_type' => array('all', 'news'),

'orderby' => 'date',

'order' => 'ACS',

'paged' => $paged

);

$news_var = query_posts($params);

$new_block = '';

foreach ($news_var as $new) { setup_postdata($new);

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

Изменяем функционал документа 1С без изменения конфигурации (Расширением)

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

В очередной раз понадобилась доработка одного из документов 1С, а именно, чтобы при проведении документа, выводилось некое модальное окно, с вопросами менеджеру который этот документ проводит. А так как я противник какого либо изменения стандартной конфигурации (кушано достаточно с обновлениями) не по делу, то решил попробовать вариант с «расширениями».

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

Далее создадим расширение, через меню Конфигруация — Расширения конфигурации:

Переносим форму документа «Реализация товаров» в раширения:

В появившемся редакторе расширений, видим форму, с не заполненными действиями в командах формы. Если мы попробуем создать действие, выведется вопрос:

, когда вызывать данное действие, ДО, ПОСЛЕ ил ВМЕСТО. В моем случае, я выбрал ДО, и вписал в обработчик следующий код:

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

&НаКлиенте

Процедура Расш1_ПровестиИзФормыПеред(Команда)

Структура = Новый Структура("Документ", Объект.Ссылка);

Массив = Новый Массив;

Массив.Добавить(Структура);

Ключ = Новый("РегистрСведенийКлючЗаписи.ДопИнформациОПродажеГрибов", Массив);

ПараметрыФормы = Новый Структура("Ключ", Ключ);

попытка

ОткрытьФорму("РегистрСведений.ДопИнформациОПродажеГрибов.ФормаЗаписи", ПараметрыФормы);

исключение

Форма = ПолучитьФорму("РегистрСведений.ДопИнформациОПродажеГрибов.ФормаЗаписи");

Форма.Запись.Документ = Объект.Ссылка;

Форма.Открыть();

конецпопытки

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

При нажатии кнопки «Провести» теперь выскакивает окно:

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

Оставить комментарий 1c, 1с, не трогаем конфигурацию, пишем расширение

1С: «Ограничение прав доступа» при удаление объекта справочника

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

Долго сегодня пришлось искать, почему пользователь с обычными правами не может удалить запись из справочника, который никак и ни с чем не связан. Наконец догадался глянуть в журнал регистрации:

После того как дал права на этот регистр, всё заработало…

Оставить комментарий 1c, 1с, справочник, удаление оббъекта

Автоматический выход не активного пользователя из сеанса Windows

16.01.2019 Павел Грибов Из жизни

Иногда бывает полезно автоматически завершать сеансы пользователя удаленных рабочих столов, для того чтобы освободить ресурсы ПК. Типичаня ситуация: пользователь поработал в 1С, отключился, а 1С продолжает фоново работать и потреблять ресурсы.

Что делать: открыть из консоли GPEDIT.MSC и найти ветку:

<code class="bash hljs">Административные шаблоны -&gt; Компоненты Windows -&gt; Службы удаленных рабочих столов -&gt; Узел сеансов удаленных рабочих столов -&gt; Ограничение сеансов по времени</code>

1	<code class="bash hljs">Административные шаблоны -> Компоненты Windows -> Службы удаленных рабочих столов -> Узел сеансов удаленных рабочих столов -> Ограничение сеансов по времени</code>

Далее можно задать параметры:

Оставить комментарий windows server, автоотключение, удаленное подключение, удаленный стол

« 1 … 126 127 128 129 130 … 300 »

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