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

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

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

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

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

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

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

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

Чтиво за последнее время

26.08.2020 Павел Грибов Чтиво

Взрослое:

Роберт Хайнлайн. «Двери иных миров». Почему то не пшло от слова совсем (-)

Владимир Батаев. Меч за 500 золотых. По сюжету ничего необычного. Люди по разным причинам попадают в игру РПГ. Ну и «качаются». В целом (-). Хотя прочитал до конца.

Роман Канушкин. Серия книг «Канал имени Москвы». Сюжет: «Мир пожрал туман, вся жизнь вдоль берегов каналов». Не впечатлило. Это не научно и высосано из пальца (с) (-)

Владимир Решшен. Наложницы отчаяния. Сюжет: бредовый с элементами порно. (-)

Василий Головачев. Коготок Большого взрыва. Опять не пошло. Вроде и научно всё обосновано.. но как-то скучно..без души. (-)

Сергей Вишневский. Серия книг «Маго-ядерный ядрёнбатон», «Бегающий сейф». Сюжет: люди по разным причинам попали в игру РПГ и «качаются». Выделяется хорошим (по моему) юмором (+).

Детское:

Гарри Поттер и филосовский камень. Читаем второй раз. первый года два назад, всё сынуля забыл 😉

Святогор и Илья Муромец. Народные былины. Какаято страшная сказка 😉

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

Ошибка преобразования данных XDTO, управляемые формы

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

При передаче данных какого-то документа или справочника из клиента на сервер, иногда возникает ошибка вида:

Ошибка передачи данных между клиентом и сервером. Значение недопустимого типа.
по причине:
Ошибка преобразования данных XDTO:

Ошибка передачи данных между клиентом и сервером. Значение недопустимого типа.

по причине:

Ошибка преобразования данных XDTO:

Фактически это означает, что сериализатор 1С не смог преобразовать данные в доступный для передачи вид. Скорее всего в справочнике есть таблица значений. Что делать?

А всё просто — передадим на сервер уникальный идентификатор, а уж на сервер «восстановим» по нему объект:

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

&НаСервере

Функция ДобавитьТУВетвьНаСервере(ИмяВетви,ВидНачисленияВетви,РодительОТУ);

...

данные=Справочники.ВидыНачислений.ПолучитьСсылку(Новый УникальныйИдентификатор(ВидНачисленияВетви));

...

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

&НаКлиенте

Процедура СоздатьТочкиУчетаВеткиНачислений(СтрокиДерева,родительОТУ)

...

ТУВетвь=ДобавитьТУВетвьНаСервере(элемента.Наименование,элемента.ВидНачисления.УникальныйИдентификатор(),родительОТУ);

...

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

Оставить комментарий 1с, server, клиент, ошибка xdto, передача данных

1С: добавление в дерево на форме элемента перетаскиванием с другой таблице на форме

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

Собственно обрабатывать нужно событие «перетаскивание» на форме:

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

&НаКлиенте

Процедура ДеревоРасчетаФормаПеретаскивание(Элемент, ПараметрыПеретаскивания, СтандартнаяОбработка, Строка, Поле)

для каждого тз из ПараметрыПеретаскивания.Значение цикл

ПараметрыПеретаскивания.Действие=ДействиеПеретаскивания.Отмена;

сообщить("Тащу узел учета: "+тз.Наименование+", в "+строка);

ДобавитьВДеревоНаКлиентеУзел(ДеревоРасчетаФорма.ПолучитьЭлементы(),строка,тз);

конеццикла;

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

,где в

ПараметрыПеретаскивания.Значение — собственно что именно перетащилось
ПараметрыПеретаскивания.Действие=ДействиеПеретаскивания.Отмена; — что мы сами обработаем результат перетаскивания
Строка — в какую именно строчку тащим в дереве
Поле — в какое поле тащим в дереве

И как добавляем:

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

&НаКлиенте

Процедура ДобавитьВДеревоНаКлиентеУзел(СтрокиДерева,строка,тз);

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

//Сообщить(элемента.Наименование+"/"+элемента.ПолучитьИдентификатор());

если строка=элемента.ПолучитьИдентификатор() тогда

тс = ДеревоРасчетаФорма.НайтиПоИдентификатору(элемента.ПолучитьИдентификатор());

НоваяСтрокаДерева = тс.ПолучитьЭлементы().Добавить();

НоваяСтрокаДерева.Наименование=тз.Наименование;

НоваяСтрокаДерева.ВидНачисления=тз.ВидНачисления;

конецесли;

ВложенныеСтроки = элемента.ПолучитьЭлементы();

Если ВложенныеСтроки.Количество() > 0 Тогда

ДобавитьВДеревоНаКлиентеУзел(ВложенныеСтроки,строка,тз);

КонецЕсли;

КонецЦикла;

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

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

1С: проверка на пустую ссылку справочника (документа и.п.) на клиенте

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

Как известно, на «клиенте» в управляемых формах нельзя на прямую обратиться к документам-справочникам и т.п. Но! если нужно просто проверить есть элемент или нет, то можно воспользоваться стандартной функцией «ПредопределенноеЗначение». Например:

	Для каждого элемента  Из СтрокиДерева Цикл                             
		если элемента.Счетчик<>ПредопределенноеЗначение("Справочник.Счетчики.ПустаяСсылка") тогда
			 сообщить("--добавляю ТУ: "+элемента.Счетчик);
		конецесли;
		ВложенныеСтроки = элемента.ПолучитьЭлементы();  
        Если ВложенныеСтроки.Количество() > 0 Тогда                   	
			СоздатьТочкиУчетаСчетчики(ВложенныеСтроки);           	
        КонецЕсли;
		 
  	КонецЦикла;

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

если элемента.Счетчик<>ПредопределенноеЗначение("Справочник.Счетчики.ПустаяСсылка") тогда

сообщить("--добавляю ТУ: "+элемента.Счетчик);

конецесли;

ВложенныеСтроки = элемента.ПолучитьЭлементы();

Если ВложенныеСтроки.Количество() > 0 Тогда

СоздатьТочкиУчетаСчетчики(ВложенныеСтроки);

КонецЕсли;

КонецЦикла;

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

Overloading of string functions using mbstring.func_overload is not supported by phpseclib

20.08.2020 Павел Грибов Linux, PHP, WEB

Чаще всего эта ошибка появляется, когда на сервере установлен битрикс, а в php.ini выставлено mbstring.func_overload=2 (иначе Битрикс в UTF работать не захочет).

Решение:

В .htpaccess добавляем

php_value mbstring.func_overload 0
php_value mbstring.internal_encoding UTF-8

1 2	php_value mbstring.func_overload 0 php_value mbstring.internal_encoding UTF-8

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

« 1 … 87 88 89 90 91 … 293 »

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