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

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

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

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

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

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

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

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

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С: Генерация документа DOCX на сервере без установки WORD

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

Задача: создать по шаблону файл формата Word на сервере 1С предприятие. Кросплатформенно (т.е. никаких COMОбъект).

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

Решение: используем функционал БСП УправлениеПечатью, а именно функцию ИнициализироватьМакетОфисногоДокумента.

1.Создаем документа в формате OpenXML. Любым редактором. Хоть Word хоть LibreOffice. Без разницы. Разметку в нём делаем в соответствии с разделителями вида:

{v8 Область.<Имя области>}
  {v8 <ИмяПараметра>}
{/v8 Область.<Имя области>}

{v8 Область.<Имя области>}

{v8 <ИмяПараметра>}

{/v8 Область.<Имя области>}

Подробнее о разметке тут

2. Создаем в конфигураторе 1С документ и макет с бинарными данными и загружаем в него этот файл.

3. В Менеджере документа размещаем:

Функция СгенерироватьДокументБСП(Ссылка,ИмяМакета) Экспорт 

		ДанныеМакета = ПолучитьДанныеМакета(ИмяМакета);
		
		ОфисныеДокументы = Новый Соответствие;						
		АдресХранилищаОфисныйДокумент = СоздатьДокументOfficeOpenXML(Ссылка, ДанныеМакета, ИмяМакета);
		докбин= Новый ХранилищеЗначения( ПолучитьИзВременногоХранилища(АдресХранилищаОфисныйДокумент) );
		фф=докбин.Получить();
		возврат фф;
		
КонецФункции

функция СоздатьДокументOfficeOpenXML(Ссылка, ДанныеМакетов, ИмяМакета)
	
	//Тестовые данные, могут быть получены ранее в другой функции или в этой функции
	ДанныеОбъекта = Новый Структура;
	ДанныеОбъекта.Вставить("Кому", "ООО НАША ОРГАНИЗАЦИЯ");

	
	ТипМакета = ДанныеМакетов.ТипыМакетов[ИмяМакета];
	ДвоичныеДанныеМакета = ДанныеМакетов.ДвоичныеДанныеМакетов;
	Области = ДанныеМакетов.ОписаниеОбластей;
	
	Макет = УправлениеПечатью.ИнициализироватьМакетОфисногоДокумента(ДвоичныеДанныеМакета[ИмяМакета],ТипМакета,
	ИмяМакета);
	
	Если Макет = Неопределено Тогда
		Возврат "";
	КонецЕсли;
	
	ЗакрытьОкноПечатнойформы = Ложь;
	
	Попытка
		
		ПечатнаяФорма = УправлениеПечатью.ИнициализироватьПечатнуюФорму(ТипМакета, Макет.НастройкиСтраницыМакета,
		Макет);
		АдресХранилищаПечатнойФормы = "";
		
		Если ПечатнаяФорма = Неопределено Тогда
			УправлениеПечатью.ОчиститьСсылки(Макет);
			Возврат "";
		КонецЕсли;
		
		// Вывод верхней части документа - обычная область с параметрами.
		Область = УправлениеПечатью.ОбластьМакета(Макет, Области[ИмяМакета]["Шапка"]);
			УправлениеПечатью.ПрисоединитьОбластьИЗаполнитьПараметры(ПечатнаяФорма, Область, ДанныеОбъекта);
		
		АдресХранилищаПечатнойФормы = УправлениеПечатью.СформироватьДокумент(ПечатнаяФорма);
		
	Исключение
		ОбщегоНазначения.СообщитьПользователю(КраткоеПредставлениеОшибки(ИнформацияОбОшибке()));
		ЗакрытьОкноПечатнойФормы = Истина;
		Возврат "";
	КонецПопытки;
	
	УправлениеПечатью.ОчиститьСсылки(ПечатнаяФорма, ЗакрытьОкноПечатнойФормы);
	УправлениеПечатью.ОчиститьСсылки(Макет);
	
	Возврат АдресХранилищаПечатнойФормы;
	
Конецфункции

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

функция ОписаниеОбластейМакетаОфисногоДокумента()
	
	ОписаниеОбластей = Новый Структура;
	
	УправлениеПечатью.ДобавитьОписаниеОбласти(ОписаниеОбластей, "Шапка", "Общая");
	
	Возврат ОписаниеОбластей;
	
Конецфункции

Функция СгенерироватьДокументБСП(Ссылка,ИмяМакета) Экспорт

ДанныеМакета = ПолучитьДанныеМакета(ИмяМакета);

ОфисныеДокументы = Новый Соответствие;

АдресХранилищаОфисныйДокумент = СоздатьДокументOfficeOpenXML(Ссылка, ДанныеМакета, ИмяМакета);

докбин= Новый ХранилищеЗначения( ПолучитьИзВременногоХранилища(АдресХранилищаОфисныйДокумент) );

фф=докбин.Получить();

возврат фф;

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

функция СоздатьДокументOfficeOpenXML(Ссылка, ДанныеМакетов, ИмяМакета)

//Тестовые данные, могут быть получены ранее в другой функции или в этой функции

ДанныеОбъекта = Новый Структура;

ДанныеОбъекта.Вставить("Кому", "ООО НАША ОРГАНИЗАЦИЯ");

ТипМакета = ДанныеМакетов.ТипыМакетов[ИмяМакета];

ДвоичныеДанныеМакета = ДанныеМакетов.ДвоичныеДанныеМакетов;

Области = ДанныеМакетов.ОписаниеОбластей;

Макет = УправлениеПечатью.ИнициализироватьМакетОфисногоДокумента(ДвоичныеДанныеМакета[ИмяМакета],ТипМакета,

ИмяМакета);

Если Макет = Неопределено Тогда

Возврат "";

КонецЕсли;

ЗакрытьОкноПечатнойформы = Ложь;

Попытка

ПечатнаяФорма = УправлениеПечатью.ИнициализироватьПечатнуюФорму(ТипМакета, Макет.НастройкиСтраницыМакета,

Макет);

АдресХранилищаПечатнойФормы = "";

Если ПечатнаяФорма = Неопределено Тогда

УправлениеПечатью.ОчиститьСсылки(Макет);

Возврат "";

КонецЕсли;

// Вывод верхней части документа - обычная область с параметрами.

Область = УправлениеПечатью.ОбластьМакета(Макет, Области[ИмяМакета]["Шапка"]);

УправлениеПечатью.ПрисоединитьОбластьИЗаполнитьПараметры(ПечатнаяФорма, Область, ДанныеОбъекта);

АдресХранилищаПечатнойФормы = УправлениеПечатью.СформироватьДокумент(ПечатнаяФорма);

Исключение

ОбщегоНазначения.СообщитьПользователю(КраткоеПредставлениеОшибки(ИнформацияОбОшибке()));

ЗакрытьОкноПечатнойФормы = Истина;

Возврат "";

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

УправлениеПечатью.ОчиститьСсылки(ПечатнаяФорма, ЗакрытьОкноПечатнойФормы);

УправлениеПечатью.ОчиститьСсылки(Макет);

Возврат АдресХранилищаПечатнойФормы;

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

функция ПолучитьДанныеМакета(Знач ИмяМакета)

ОписаниеОбластей = Новый Соответствие;

ДвоичныеДанныеМакетов = Новый Соответствие;

ТипыМакетов = Новый Соответствие;

ДвоичныеДанныеМакетов.Вставить(ИмяМакета, ПолучитьМакет(ИмяМакета));

ОписаниеОбластей.Вставить(ИмяМакета, ОписаниеОбластейМакетаОфисногоДокумента());

Макет = Новый Структура;

Макет.Вставить("ОписаниеОбластей", ОписаниеОбластей);

Макет.Вставить("ДвоичныеДанныеМакетов", ДвоичныеДанныеМакетов);

Макет.Вставить("ТипыМакетов", ТипыМакетов);

Макет.Вставить("ЛокальныйКаталогФайловПечати", Неопределено);

Если НЕ Макет.Свойство("ТипыМакетов") Тогда

Макет.Макеты.Вставить("ТипыМакетов", Новый Соответствие);

КонецЕсли;

Возврат Макет;

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

функция ОписаниеОбластейМакетаОфисногоДокумента()

ОписаниеОбластей = Новый Структура;

УправлениеПечатью.ДобавитьОписаниеОбласти(ОписаниеОбластей, "Шапка", "Общая");

Возврат ОписаниеОбластей;

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

4. В Форме документа размещаем:

&НаСервере
Функция СформироватьДокументНаСервереБСП();
	бинарныеданные=Документы.ascsdc.СгенерироватьДокументБСП(объект,"Шаблон_2");
	возврат бинарныеданные;
КонецФункции

&НаКлиенте
Процедура ГенерацияБСП(Команда)
	БинарныеДанные=СформироватьДокументНаСервереБСП();	
	врмф=ПолучитьИмяВременногоФайла(".docx");
	БинарныеДанные.Записать(врмф);
    Попытка
	     ОбъектВорд = Новый COMОбъект("Word.Application"); 
	Исключение
	     Сообщить("Ошибка при запуске Microsoft Word (3): " + ОписаниеОшибки(), СтатусСообщения.Внимание);		        
	КонецПопытки;
		     
	//Путь к шаблону
	ОбъектВорд.Documents.Add(врмф);
	ШаблонВорд = ОбъектВорд.ActiveDocument;	
	ОбъектВорд.Application.Visible = Истина;
    ОбъектВорд.Activate();     		
КонецПроцедуры

&НаСервере

Функция СформироватьДокументНаСервереБСП();

бинарныеданные=Документы.ascsdc.СгенерироватьДокументБСП(объект,"Шаблон_2");

возврат бинарныеданные;

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

&НаКлиенте

Процедура ГенерацияБСП(Команда)

БинарныеДанные=СформироватьДокументНаСервереБСП();

врмф=ПолучитьИмяВременногоФайла(".docx");

БинарныеДанные.Записать(врмф);

Попытка

ОбъектВорд = Новый COMОбъект("Word.Application");

Исключение

Сообщить("Ошибка при запуске Microsoft Word (3): " + ОписаниеОшибки(), СтатусСообщения.Внимание);

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

//Путь к шаблону

ОбъектВорд.Documents.Add(врмф);

ШаблонВорд = ОбъектВорд.ActiveDocument;

ОбъектВорд.Application.Visible = Истина;

ОбъектВорд.Activate();

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

В приведенном примере, файл формируется на сервере и открывается для наглядности в Word уже «готовым» на клиенте. В принципе ничего не мешает эту фазу исключить и сразу сохранять полученный с сервера файл куда угодно.

Оставить комментарий 1с, linux, без word, кроссплатформенно, на сервере, создание файла из шаблона

Вывод в лог файл любых входящих данных скрипта на PHP

07.08.2020 Павел Грибов PHP

Бывает полезно перехватить, что же сыплется на входе в PHP скрипт, если у тебя нет информации об этом. Сделать это можно например так:

<?php
$data="POST:".serialize($_POST)."\n";
file_put_contents('uved.log', $data, FILE_APPEND);

$data="GET:".serialize($_GET)."\n";
file_put_contents('uved.log', $data, FILE_APPEND);


$body = file_get_contents('php://input');

$data="Input:".serialize($body)."\n";
file_put_contents('uved.log', $data, FILE_APPEND);

?>
Увидим что на GET, POST и Input

<?php

$data="POST:".serialize($_POST)."\n";

file_put_contents('uved.log', $data, FILE_APPEND);

$data="GET:".serialize($_GET)."\n";

file_put_contents('uved.log', $data, FILE_APPEND);

$body = file_get_contents('php://input');

$data="Input:".serialize($body)."\n";

file_put_contents('uved.log', $data, FILE_APPEND);

Увидим что на GET, POST и Input

Оставить комментарий get, input, php, post

« 1 … 77 78 79 80 81 … 282 »

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