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

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

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

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

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

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

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

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

1С: Приведение номера документа к числу

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

Задача: преобразовать номер документа вида ТП1-000234 в число 234. Т.е. убрать префикс и лидирующие нули.

Решение:

&НаСервере
 Функция УбратьЛидирующиеНули(НомерДокумента)    
    Попытка
        НомерДокумента = Формат(Число(НомерДокумента), "ЧГ=");
    Исключение
        НомерДокумента = СтрЗаменить(СокрЛ(СтрЗаменить(СокрП(НомерДокумента), "0", " ")), " ", "0");
        Префикс = "";
        Пока КодСимвола(НомерДокумента) < 48 Или КодСимвола(НомерДокумента) > 57 Цикл
            Префикс = Префикс + Лев(НомерДокумента, 1);
            НомерДокумента = Сред(НомерДокумента, 2);
        КонецЦикла;
        Если Не ПустаяСтрока(Префикс) Тогда
            НомерДокумента = Префикс + УбратьЛидирующиеНули(НомерДокумента);
        КонецЕсли;
    КонецПопытки;
    Возврат НомерДокумента;
    
КонецФункции   
&НаСервере
функция ИзвлечьНомерДоговора(номер)
	 мм=СтрРазделить(номер,"-");	 
	 возврат УбратьЛидирующиеНули(мм[1]); 
конецфункции

&НаСервере

Функция УбратьЛидирующиеНули(НомерДокумента)

Попытка

НомерДокумента = Формат(Число(НомерДокумента), "ЧГ=");

Исключение

НомерДокумента = СтрЗаменить(СокрЛ(СтрЗаменить(СокрП(НомерДокумента), "0", " ")), " ", "0");

Префикс = "";

Пока КодСимвола(НомерДокумента) < 48 Или КодСимвола(НомерДокумента) > 57 Цикл

Префикс = Префикс + Лев(НомерДокумента, 1);

НомерДокумента = Сред(НомерДокумента, 2);

КонецЦикла;

Если Не ПустаяСтрока(Префикс) Тогда

НомерДокумента = Префикс + УбратьЛидирующиеНули(НомерДокумента);

КонецЕсли;

КонецПопытки;

Возврат НомерДокумента;

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

&НаСервере

функция ИзвлечьНомерДоговора(номер)

мм=СтрРазделить(номер,"-");

возврат УбратьЛидирующиеНули(мм[1]);

конецфункции

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

1С: Блокировка документа для изменения другими пользователями.

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

Задача: в одном самописном документе необходимо запретить одновременную работу в нём другим пользователям, если оный уже кем-то открыт.

Решение:

При открытии документа его необходимо блокировать следующим образом:

&НаСервере
Процедура ПриОткрытииНаСервере()
	ЗаблокироватьДанныеДляРедактирования(Объект.Ссылка,,ЭтаФорма.УникальныйИдентификатор);	
КонецПроцедуры

&НаКлиенте
Процедура ПриОткрытии(Отказ)
	
	ПриОткрытииНаСервере();
КонецПроцедуры

&НаСервере

Процедура ПриОткрытииНаСервере()

ЗаблокироватьДанныеДляРедактирования(Объект.Ссылка,,ЭтаФорма.УникальныйИдентификатор);

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

&НаКлиенте

Процедура ПриОткрытии(Отказ)

ПриОткрытииНаСервере();

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

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

Удаляем кукисы, время жизни которых более заданного

03.03.2020 Павел Грибов WEB

Задача: есть сайт, на котором кукисы устанавливаются движком. Где не известно. Настроек нет (или есть, но лень-не кому копаться). Необходимо принудительно сократить время жизни куков до заданного.

Решение:

Из сложных нюансов: браузер не позволяет читать время истечения жизни (и путь) установленных кукисов. От слова никак и вообще. Защита такая..

Ну если с путем всё в принципе не так важно — просто вставлять код трущий кукисы на КАЖДОЙ странице, а не только на «начальной», то кукисы прочитаются, то со временем жизни возможен только «хук». А именно: читаем все куки. Записываем все ключи куков в локасторадж браузера с датой истечения сегодня+(какое-то количество дней). При следующем открытии страницы — проверяем дату истечения в сторадже. Если меньше текущей — трем кукисы.

Код:

dayssavecookies=7;    
function deleteLCookie(name) {
    document.cookie.split(";").forEach(function(el) {
        if(!el.indexOf(name)) {
	    var date = new Date(0);
            document.cookie = el + "=; path=/; expires=" + date.toUTCString();
	   }
	});
}    
function getAllCookies(){
  var pairs = document.cookie.split(";");
  var cookies = {};
  for (var i=0; i<pairs.length; i++){
    var pair = pairs[i].split("=");
    cookies[(pair[0]+'').trim()] = unescape(pair.slice(1).join('='));
  }
  return cookies;
}    
// получаю текущие куки браузера
cooks_values=getAllCookies();
// получаю текущие сохраненные в сторадже куки - даты
  if (localStorage["cooks_dates"]==undefined){
      ls_dates=new Map();
  } else {
    ls_dates=JSON.parse(localStorage["cooks_dates"]) 
  };
// если кука в сторадже нет, то добавляю, если истек - ту удаляю и из стораджа и из куков
for (key in cooks_values) {
    console.log(key);
    console.log(cooks_values[key]);
    // если новый кук - добавляем
    if (ls_dates[key]==undefined){
        console.log("--add to localstorage");
        datec = new Date(Date.now() + 86400e3*dayssavecookies);        
        ls_dates[key]=datec;
    };
   // если кук истек в локальном хранилище - трём его в куках и в локальном хранилище 
   if (new Date(ls_dates[key])<Date.now()){
      delete(ls_dates[key]); 
      deleteLCookie(key);
   };    
}    
localStorage.setItem("cooks_dates", JSON.stringify(ls_dates));

dayssavecookies=7;

function deleteLCookie(name) {

document.cookie.split(";").forEach(function(el) {

if(!el.indexOf(name)) {

var date = new Date(0);

document.cookie = el + "=; path=/; expires=" + date.toUTCString();

}

});

}

function getAllCookies(){

var pairs = document.cookie.split(";");

var cookies = {};

for (var i=0; i<pairs.length; i++){

var pair = pairs[i].split("=");

cookies[(pair[0]+'').trim()] = unescape(pair.slice(1).join('='));

}

return cookies;

}

// получаю текущие куки браузера

cooks_values=getAllCookies();

// получаю текущие сохраненные в сторадже куки - даты

if (localStorage["cooks_dates"]==undefined){

ls_dates=new Map();

} else {

ls_dates=JSON.parse(localStorage["cooks_dates"])

};

// если кука в сторадже нет, то добавляю, если истек - ту удаляю и из стораджа и из куков

for (key in cooks_values) {

console.log(key);

console.log(cooks_values[key]);

// если новый кук - добавляем

if (ls_dates[key]==undefined){

console.log("--add to localstorage");

datec = new Date(Date.now() + 86400e3*dayssavecookies);

ls_dates[key]=datec;

};

// если кук истек в локальном хранилище - трём его в куках и в локальном хранилище

if (new Date(ls_dates[key])<Date.now()){

delete(ls_dates[key]);

deleteLCookie(key);

};

}

localStorage.setItem("cooks_dates", JSON.stringify(ls_dates));

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

proxmox: cluster not quorate — extending auth key lifetime

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

Одним ~~прекрасным солнечным~~ утром, после перезагрузки одного кластера Proxmox получил ошибку в syslog : cluster not quorate — extending auth key lifetime и отказывающиеся запускаться виртуалки.

Экстренное решение (до первого ребута):

pvecm e 1

pvecm e 1

Не спешное правильное решение (подсказанное на канале ru_proxmox в телеграмме) :

1) Остановить сервис corosync

2) Поправить файл /etc/pve/corosync.conf

в секцию totem -> intreface добавить тег transport : udpu
тег secauth поменять на off
увеличить на 1 тег config_version

С чем связано? С «ломающим» обновлением..

Оставить комментарий extending auth key lifetime, proxmox

1C ошибка синхронизации между ЗУП и Бухгалтерия 3.0

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

Собственно сиё случилось как всегда неожиданно. После штатного (ну почти) обновления конфигурации 1С Бухгалтерия. А именно отвалилась синхронизация между оной и ЗУП. Обновление до «наипоследнейших» версий конфигурации ничего не дало. При синхронизации продолжала вываливаться ошибка:

Недопустимое значение параметра (параметр номер '1')
{Обработка.КонвертацияОбъектовИнформационныхБаз.МодульОбъекта(8160)}:		СсылкаНаОбъект = СтруктураСвойств.Менеджер.ПолучитьСсылку(Новый УникальныйИдентификатор(СвойствоУникальныйИдентификатор));
{Обработка.КонвертацияОбъектовИнформационныхБаз.МодульОбъекта(7381)}:			Значение = НайтиОбъектПоСсылке(Тип,
{Обработка.КонвертацияОбъектовИнформационныхБаз.МодульОбъекта(9529)}:			Значение = ПрочитатьСвойство(ТипСвойства, ЭтоПустойНабор, СвойствоНеНайденоПоСсылке, ИмяПКО);
{Обработка.КонвертацияОбъектовИнформационныхБаз.МодульОбъекта(16391)}:			ПоследнийОбъектЗагрузки = ПрочитатьНаборЗаписейРегистра();
{Обработка.КонвертацияОбъектовИнформационныхБаз.МодульОбъекта(2697)}:		ПроизвестиЧтениеДанныхВРежимеВнешнегоСоединения(ЧтениеСообщения);
{ОбщийМодуль.ОбменДаннымиСервер.Модуль(6700)}:		ОбработкаОбменаДаннымиВнешнееСоединение.ВыполнитьВыгрузкуДанных(ОбработкаДляЗагрузкиДанных);
{ОбщийМодуль.ОбменДаннымиСервер.Модуль(3856)}:			ВыполнитьДействиеОбменаДляУзлаИнформационнойБазыПоВнешнемуСоединению(Отказ,
{Обработка.ВыполнениеОбменаДанными.МодульМенеджера(34)}:	ОбменДаннымиСервер.ВыполнитьОбменДаннымиДляУзлаИнформационнойБазы(
{(1)}:Обработки.ВыполнениеОбменаДанными.ВыполнитьЗапускОбменаДанными(Параметры[0],Параметры[1])
{ОбщийМодуль.ОбщегоНазначения.Модуль(4879)}:	Выполнить ИмяМетода + "(" + ПараметрыСтрока + ")";
{ОбщийМодуль.ДлительныеОперации.Модуль(969)}:		ОбщегоНазначения.ВыполнитьМетодКонфигурации(ИмяПроцедуры, ПараметрыВызова);
{ОбщийМодуль.ДлительныеОперации.Модуль(959)}:		ВызватьПроцедуру(ВсеПараметры.ИмяПроцедуры, ВсеПараметры.ПараметрыПроцедуры);

по причине:
Недопустимое значение параметра (параметр номер '1')

Недопустимое значение параметра (параметр номер '1')

{Обработка.КонвертацияОбъектовИнформационныхБаз.МодульОбъекта(8160)}: СсылкаНаОбъект = СтруктураСвойств.Менеджер.ПолучитьСсылку(Новый УникальныйИдентификатор(СвойствоУникальныйИдентификатор));

{Обработка.КонвертацияОбъектовИнформационныхБаз.МодульОбъекта(7381)}: Значение = НайтиОбъектПоСсылке(Тип,

{Обработка.КонвертацияОбъектовИнформационныхБаз.МодульОбъекта(9529)}: Значение = ПрочитатьСвойство(ТипСвойства, ЭтоПустойНабор, СвойствоНеНайденоПоСсылке, ИмяПКО);

{Обработка.КонвертацияОбъектовИнформационныхБаз.МодульОбъекта(16391)}: ПоследнийОбъектЗагрузки = ПрочитатьНаборЗаписейРегистра();

{Обработка.КонвертацияОбъектовИнформационныхБаз.МодульОбъекта(2697)}: ПроизвестиЧтениеДанныхВРежимеВнешнегоСоединения(ЧтениеСообщения);

{ОбщийМодуль.ОбменДаннымиСервер.Модуль(6700)}: ОбработкаОбменаДаннымиВнешнееСоединение.ВыполнитьВыгрузкуДанных(ОбработкаДляЗагрузкиДанных);

{ОбщийМодуль.ОбменДаннымиСервер.Модуль(3856)}: ВыполнитьДействиеОбменаДляУзлаИнформационнойБазыПоВнешнемуСоединению(Отказ,

{Обработка.ВыполнениеОбменаДанными.МодульМенеджера(34)}: ОбменДаннымиСервер.ВыполнитьОбменДаннымиДляУзлаИнформационнойБазы(

{(1)}:Обработки.ВыполнениеОбменаДанными.ВыполнитьЗапускОбменаДанными(Параметры[0],Параметры[1])

{ОбщийМодуль.ОбщегоНазначения.Модуль(4879)}: Выполнить ИмяМетода + "(" + ПараметрыСтрока + ")";

{ОбщийМодуль.ДлительныеОперации.Модуль(969)}: ОбщегоНазначения.ВыполнитьМетодКонфигурации(ИмяПроцедуры, ПараметрыВызова);

{ОбщийМодуль.ДлительныеОперации.Модуль(959)}: ВызватьПроцедуру(ВсеПараметры.ИмяПроцедуры, ВсеПараметры.ПараметрыПроцедуры);

по причине:

Недопустимое значение параметра (параметр номер '1')

Расследование и гугленье дало следующее: ошибка происходит из-за нарушении в регистре сведений «СоответствияОбъектовИнформационныхБаз». А именно у части данных в этом регистре соответствие стало NULL.

Решение: просто стереть всё содержимое этого регистра (Все функции -> Регистры сведений -> СоответствияОбъектовИнформационныхБаз -> CTRL-A -> DEL)

Далее в настройках синхронизации достаточно выгрузить-загрузить «данные для сопоставления». И собственно после этого у меня всё штатно заработало.

2 комментария 1с, бухгалтерия, ЗУП, синхронизация

« 1 … 86 87 88 89 90 … 283 »

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