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

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

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

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

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

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

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

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

1С: Удаление записи из регистра накопления по регистратору и измерению (отбор)

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

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

Решение:

Сделаем отбор по регистратору
Переберем выборку, отберем те записи, которые необходимо удалить
Удалим их

Код примерно такой:

 НаборЗаписей = РегистрыНакопления.vscРасчетыСАбонентами.СоздатьНаборЗаписей();
		НаборЗаписей.Отбор.Регистратор.Установить(Регистратор);		
        НаборЗаписей.Прочитать();
		УдаляемыеЗаписи = Новый Массив;
		Для Каждого Запись Из НаборЗаписей Цикл
			если Запись.ЛицевойСчет=объект.ЛицевойСчет тогда
				УдаляемыеЗаписи.Добавить(Запись);
			конецесли;				
		конеццикла;	
	 	Для Каждого УдаляемаяЗапись Из УдаляемыеЗаписи Цикл
     		НаборЗаписей.Удалить(УдаляемаяЗапись);
		КонецЦикла;	
		НаборЗаписей.Записать();

НаборЗаписей = РегистрыНакопления.vscРасчетыСАбонентами.СоздатьНаборЗаписей();

НаборЗаписей.Отбор.Регистратор.Установить(Регистратор);

НаборЗаписей.Прочитать();

УдаляемыеЗаписи = Новый Массив;

Для Каждого Запись Из НаборЗаписей Цикл

если Запись.ЛицевойСчет=объект.ЛицевойСчет тогда

УдаляемыеЗаписи.Добавить(Запись);

конецесли;

конеццикла;

Для Каждого УдаляемаяЗапись Из УдаляемыеЗаписи Цикл

НаборЗаписей.Удалить(УдаляемаяЗапись);

КонецЦикла;

НаборЗаписей.Записать();

UPDATE:

А можно и еще проще и быстрее:

НаборЗаписей = РегистрыСведений.vscРасчетыСАбонентами.СоздатьНаборЗаписей(); 
НаборЗаписей.Отбор.Регистратор.Установить(Регистратор);
НаборЗаписей.Прочитать();

ТЗНабора=НаборЗаписей.Выгрузить();
ТЗНабора = ТЗНабора.Скопировать(Новый Структура("ЛицевойСчет", ЛицевойСчет));
НаборЗаписей.Загрузить(ТЗНабора);

НаборЗаписей = РегистрыСведений.vscРасчетыСАбонентами.СоздатьНаборЗаписей();

НаборЗаписей.Отбор.Регистратор.Установить(Регистратор);

НаборЗаписей.Прочитать();

ТЗНабора=НаборЗаписей.Выгрузить();

ТЗНабора = ТЗНабора.Скопировать(Новый Структура("ЛицевойСчет", ЛицевойСчет));

НаборЗаписей.Загрузить(ТЗНабора);

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

Что делать если на ноутбуке сломалась кнопка?

14.09.2020 Павел Грибов Linux

Отнести ноутбук в ремонт? Это не наш метод (с) Поступим проще — переназначим нужную кнопку на не нужную В моем случае я переставил кнопку контрол на меню

Создадим в домашней папке файл .Xmodmap
Добавим в него строчки:

clear Control
keycode 135=Control_L
add Control = Control_L Control_R

clear Control

keycode 135=Control_L

add Control = Control_L Control_R

Выполним:

xmodmap .Xmodmap

И о чудо — кнопка заработала!

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

1С: Не удалось зафиксировать таблицу для чтения «Users»

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

Данная ошибка возникает при работе с хранилищем. Чистка кэша, перезагрузка всего и вся — не помогает.

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

Решение 2 : перезапустить сервер 1с Предприятие, перезагрузить серер вообще..

Оставить комментарий users, хранилище

Скины для Майнкрафт

13.09.2020 Павел Грибов Артемий

Представляю вашему вниманию две версии скинов для Майнкрафт.Отличительной особенностьтю этих скинов является надпись TNT!

Версия 1:

Скачать сейчас!

Версия 2:

Скачать сейчас!

Бонус: скин Телепузика

Скачать сейчас!

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

1C: Правильное удаление элементов из таблицы значений

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

Некоторые пытаются сделать так:

			 для каждого стр из док.Начисления цикл
			     если стр.ВидНачисления=справочники.vscВидыНачислений.НайтиПоКоду("000000048") и стр.ТипРасчета<>перечисления.vscТипРасчетаКомУслуг.ПерерасчетПредыдущихПериодов тогда
			    	  док.Начисления.удалить(стр);
			    	  продолжить;
			     конецесли;	 
			     если стр.ВидНачисления=справочники.vscВидыНачислений.НайтиПоКоду("000000058") и стр.ТипРасчета<>перечисления.vscТипРасчетаКомУслуг.ПерерасчетПредыдущихПериодов тогда
			    	 	док.Начисления.удалить(стр);
			    		продолжить;
			     конецесли;	 
			     если стр.ВидНачисления=справочники.vscВидыНачислений.НайтиПоКоду("000010010") и стр.ТипРасчета<>перечисления.vscТипРасчетаКомУслуг.ПерерасчетПредыдущихПериодов тогда
			    	 	док.Начисления.удалить(стр);
			    		продолжить;
			     конецесли;	 				 
			 конеццикла;

для каждого стр из док.Начисления цикл

если стр.ВидНачисления=справочники.vscВидыНачислений.НайтиПоКоду("000000048") и стр.ТипРасчета<>перечисления.vscТипРасчетаКомУслуг.ПерерасчетПредыдущихПериодов тогда

док.Начисления.удалить(стр);

продолжить;

конецесли;

если стр.ВидНачисления=справочники.vscВидыНачислений.НайтиПоКоду("000000058") и стр.ТипРасчета<>перечисления.vscТипРасчетаКомУслуг.ПерерасчетПредыдущихПериодов тогда

док.Начисления.удалить(стр);

продолжить;

конецесли;

если стр.ВидНачисления=справочники.vscВидыНачислений.НайтиПоКоду("000010010") и стр.ТипРасчета<>перечисления.vscТипРасчетаКомУслуг.ПерерасчетПредыдущихПериодов тогда

док.Начисления.удалить(стр);

продолжить;

конецесли;

конеццикла;

Т.е. перебирают всю таблицу и по условию удаляют это строчку. И это совершенноне верно! При таком удалении, если строчки которые нужно удалить идут «вподряд», идет «перескок» и строка не удаляется. Правильно удалять с отборами:

			    СтруктураОтбора = Новый Структура();
				СтруктураОтбора.Вставить("ВидНачисления", справочники.vscВидыНачислений.НайтиПоКоду("000000048"));
				СтруктураОтбора.Вставить("ТипРасчета", перечисления.vscТипРасчетаКомУслуг.НачислениеЗаРасчетныйПериод);
			 	МассивСтрок = док.Начисления.НайтиСтроки(СтруктураОтбора);
				Для Каждого ЭлементМассив Из МассивСтрок Цикл
					док.Начисления.Удалить(ЭлементМассив); //удаляем строки
				КонецЦикла; 
			    СтруктураОтбора = Новый Структура();
				СтруктураОтбора.Вставить("ВидНачисления", справочники.vscВидыНачислений.НайтиПоКоду("000000058"));
				СтруктураОтбора.Вставить("ТипРасчета", перечисления.vscТипРасчетаКомУслуг.НачислениеЗаРасчетныйПериод);
			 	МассивСтрок = док.Начисления.НайтиСтроки(СтруктураОтбора);
				Для Каждого ЭлементМассив Из МассивСтрок Цикл
					док.Начисления.Удалить(ЭлементМассив); //удаляем строки
				КонецЦикла; 
			    СтруктураОтбора = Новый Структура();
				СтруктураОтбора.Вставить("ВидНачисления", справочники.vscВидыНачислений.НайтиПоКоду("000010010"));
				СтруктураОтбора.Вставить("ТипРасчета", перечисления.vscТипРасчетаКомУслуг.НачислениеЗаРасчетныйПериод);
			 	МассивСтрок = док.Начисления.НайтиСтроки(СтруктураОтбора);
				Для Каждого ЭлементМассив Из МассивСтрок Цикл
					док.Начисления.Удалить(ЭлементМассив); //удаляем строки
				КонецЦикла;

СтруктураОтбора = Новый Структура();

СтруктураОтбора.Вставить("ВидНачисления", справочники.vscВидыНачислений.НайтиПоКоду("000000048"));

СтруктураОтбора.Вставить("ТипРасчета", перечисления.vscТипРасчетаКомУслуг.НачислениеЗаРасчетныйПериод);

МассивСтрок = док.Начисления.НайтиСтроки(СтруктураОтбора);

Для Каждого ЭлементМассив Из МассивСтрок Цикл

док.Начисления.Удалить(ЭлементМассив); //удаляем строки

КонецЦикла;

СтруктураОтбора = Новый Структура();

СтруктураОтбора.Вставить("ВидНачисления", справочники.vscВидыНачислений.НайтиПоКоду("000000058"));

СтруктураОтбора.Вставить("ТипРасчета", перечисления.vscТипРасчетаКомУслуг.НачислениеЗаРасчетныйПериод);

МассивСтрок = док.Начисления.НайтиСтроки(СтруктураОтбора);

Для Каждого ЭлементМассив Из МассивСтрок Цикл

док.Начисления.Удалить(ЭлементМассив); //удаляем строки

КонецЦикла;

СтруктураОтбора = Новый Структура();

СтруктураОтбора.Вставить("ВидНачисления", справочники.vscВидыНачислений.НайтиПоКоду("000010010"));

СтруктураОтбора.Вставить("ТипРасчета", перечисления.vscТипРасчетаКомУслуг.НачислениеЗаРасчетныйПериод);

МассивСтрок = док.Начисления.НайтиСтроки(СтруктураОтбора);

Для Каждого ЭлементМассив Из МассивСтрок Цикл

док.Начисления.Удалить(ЭлементМассив); //удаляем строки

КонецЦикла;

Пусть более громоздко, но зато работает верно. Можно еще покопать в строну использования «И и ИЛИ» в отборах. Будет короче. Не стал

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

« 1 … 88 89 90 91 92 … 295 »

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