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

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

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

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

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

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

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

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

Программный вызов отчета СКД с параметрами и отборами. Выгрузка в файл

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

Можно сделать примерно так:

таб1=новый ТабличныйДокумент();	   
	СКД=Отчеты.ОценкаВаловойПрибыли.ПолучитьМакет("ОсновнаяСхемаКомпоновкиДанных");
	
	Настройки=СКД.НастройкиПоУмолчанию;	
	ПераметрыСКД=Настройки.ПараметрыДанных.Элементы;	
	прскд=ПераметрыСКД.Найти("Период");	
		пер=Новый СтандартныйПериод;
		пер.ДатаНачала=НачалоМесяца(ТекущаяДата());
		пер.ДатаОкончания=КонецДня(ТекущаяДата());
	прскд=пер;
			ЭлементОтбора=Настройки.Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных"));
				ЭлементОтбора.ВидСравнения=ВидСравненияКомпоновкиДанных.Равно;
				ЭлементОтбора.ЛевоеЗначение=Новый ПолеКомпоновкиДанных("Магазин");//поле отбора
				ЭлементОтбора.ПравоеЗначение=Справочники.Магазины.НайтиПоНаименованию("Вологда Торговля");
				ЭлементОтбора.Использование=Истина;
				ЭлементОтбора.ИдентификаторПользовательскойНастройки=Новый УникальныйИдентификатор();//добавляет отбор  в состав пользовательских настроек
	
	
	 	Расшифровка = Новый ДанныеРасшифровкиКомпоновкиДанных;
		КомпоновщикМакета = Новый КомпоновщикМакетаКомпоновкиДанных;    
		
	    //Передаем в макет компоновки схему, настройки и данные расшифровки
	    МакетКомпоновки = КомпоновщикМакета.Выполнить(СКД, Настройки, Расшифровка);    
	    ВнешниеПараметры = Новый Структура;    		
		
	    //Выполним компоновку с помощью процессора компоновки
	    ПроцессорКомпоновкиДанных = Новый ПроцессорКомпоновкиДанных;
	    ПроцессорКомпоновкиДанных.Инициализировать(МакетКомпоновки, ВнешниеПараметры, Расшифровка);    
		
	    //Выводим результат в табличный документ
	    ПроцессорВывода = Новый ПроцессорВыводаРезультатаКомпоновкиДанныхВТабличныйДокумент;
	    ПроцессорВывода.УстановитьДокумент(таб1);    
	    ПроцессорВывода.Вывести(ПроцессорКомпоновкиДанных, Истина);    	 
		
		таб1.Записать("c:\temp\выловая_прибыль.xls",ТипФайлаТабличногоДокумента.XLS);

таб1=новый ТабличныйДокумент();

СКД=Отчеты.ОценкаВаловойПрибыли.ПолучитьМакет("ОсновнаяСхемаКомпоновкиДанных");

Настройки=СКД.НастройкиПоУмолчанию;

ПераметрыСКД=Настройки.ПараметрыДанных.Элементы;

прскд=ПераметрыСКД.Найти("Период");

пер=Новый СтандартныйПериод;

пер.ДатаНачала=НачалоМесяца(ТекущаяДата());

пер.ДатаОкончания=КонецДня(ТекущаяДата());

прскд=пер;

ЭлементОтбора=Настройки.Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных"));

ЭлементОтбора.ВидСравнения=ВидСравненияКомпоновкиДанных.Равно;

ЭлементОтбора.ЛевоеЗначение=Новый ПолеКомпоновкиДанных("Магазин");//поле отбора

ЭлементОтбора.ПравоеЗначение=Справочники.Магазины.НайтиПоНаименованию("Вологда Торговля");

ЭлементОтбора.Использование=Истина;

ЭлементОтбора.ИдентификаторПользовательскойНастройки=Новый УникальныйИдентификатор();//добавляет отбор в состав пользовательских настроек

Расшифровка = Новый ДанныеРасшифровкиКомпоновкиДанных;

КомпоновщикМакета = Новый КомпоновщикМакетаКомпоновкиДанных;

//Передаем в макет компоновки схему, настройки и данные расшифровки

МакетКомпоновки = КомпоновщикМакета.Выполнить(СКД, Настройки, Расшифровка);

ВнешниеПараметры = Новый Структура;

//Выполним компоновку с помощью процессора компоновки

ПроцессорКомпоновкиДанных = Новый ПроцессорКомпоновкиДанных;

ПроцессорКомпоновкиДанных.Инициализировать(МакетКомпоновки, ВнешниеПараметры, Расшифровка);

//Выводим результат в табличный документ

ПроцессорВывода = Новый ПроцессорВыводаРезультатаКомпоновкиДанныхВТабличныйДокумент;

ПроцессорВывода.УстановитьДокумент(таб1);

ПроцессорВывода.Вывести(ПроцессорКомпоновкиДанных, Истина);

таб1.Записать("c:\temp\выловая_прибыль.xls",ТипФайлаТабличногоДокумента.XLS);

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

file_get_contents и timeout

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

Штатно величину таймаута можно указать следующим образом:

    $ctx = stream_context_create(array(
	'http' => array(
	    'timeout' => 1
	    )
	)
    );	 
 $lst= file_get_contents($external_adap,0,$ctx);

$ctx = stream_context_create(array(

'http' => array(

'timeout' => 1

)

);

$lst= file_get_contents($external_adap,0,$ctx);

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

Полезные функции для работы с IP адресами

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

Собрал в кучку полезные функции для работы с IP адресами, которые наиболее часто использую.

/**
 * Конвертируем ip/mask в диапазон IP
 * 127.0.0.1/24 -> массив [0] 127.0.0.1 [1] 127.0.255.255
 * @param type $net
 * @return type
 */
function cidrconv($net) {
    $start = strtok($net,"/");
    $n = 3 - substr_count($net, ".");
    if ($n > 0)
    {
        for ($i = $n;$i > 0; $i--)
            $start .= ".0";
    }
    $bits1 = str_pad(decbin(ip2long($start)), 32, "0", STR_PAD_LEFT);
    $net = (1 << (32 - substr(strstr($net, "/"), 1))) - 1;
    $bits2 = str_pad(decbin($net), 32, "0", STR_PAD_LEFT);
    $final = "";
    for ($i = 0; $i < 32; $i++)
    {
        if ($bits1[$i] == $bits2[$i]) $final .= $bits1[$i];
        if ($bits1[$i] == 1 and $bits2[$i] == 0) $final .= $bits1[$i];
        if ($bits1[$i] == 0 and $bits2[$i] == 1) $final .= $bits2[$i];
    }
    return array($start, long2ip(bindec($final)));
}
/**
 * Возвращает маску из IP вида 255.255.255.0 -> 24
 * @param type $ip
 * @return type
 */
function ip2mask($ip){
    $res=false;
    $intip=ip2long($ip);    
    if ($intip>0){
	$binstr=decbin($intip);	
	$res=  strpos($binstr,"0");		
    };
    return $res;
};

/**
 * Попадает ли ip в заданный диапазон 
 * true - да, false - нет
 * Например: (10.0.1.3,10.0.0.0/8) -> true
 * @param type $ip
 * @param type $mask
 */
function ip_in_range($ip,$mask){
  $res=false;
  $ipd=cidrconv($mask);     
  $ip=ip2long($ip);  
  $start=ip2long($ipd[0]);  
  $end=ip2long($ipd[1]);  
  if (($ip>=$start) and ($ip<=$end)){$res=true;};
  return $res;
};

/**
 * Возвращает true если IP  белый, false если серый
 * @param type $ip
 */
function WhiteIP($ip){
    $res=true;
    if (ip_in_range($ip,"10.0.0.0/8")==true){$res=false;};
    if (ip_in_range($ip,"172.16.0.0/12")==true){$res=false;};
    if (ip_in_range($ip,"192.168.0.0/16")==true){$res=false;};
    return $res;
};

/**

* Конвертируем ip/mask в диапазон IP

* 127.0.0.1/24 -> массив [0] 127.0.0.1 [1] 127.0.255.255

* @param type $net

* @return type

function cidrconv($net) {

$start = strtok($net,"/");

$n = 3 - substr_count($net, ".");

if ($n > 0)

{

for ($i = $n;$i > 0; $i--)

$start .= ".0";

}

$bits1 = str_pad(decbin(ip2long($start)), 32, "0", STR_PAD_LEFT);

$net = (1 << (32 - substr(strstr($net, "/"), 1))) - 1;

$bits2 = str_pad(decbin($net), 32, "0", STR_PAD_LEFT);

$final = "";

for ($i = 0; $i < 32; $i++)

{

if ($bits1[$i] == $bits2[$i]) $final .= $bits1[$i];

if ($bits1[$i] == 1 and $bits2[$i] == 0) $final .= $bits1[$i];

if ($bits1[$i] == 0 and $bits2[$i] == 1) $final .= $bits2[$i];

}

return array($start, long2ip(bindec($final)));

}

/**

* Возвращает маску из IP вида 255.255.255.0 -> 24

* @param type $ip

* @return type

function ip2mask($ip){

$res=false;

$intip=ip2long($ip);

if ($intip>0){

$binstr=decbin($intip);

$res= strpos($binstr,"0");

};

return $res;

};

/**

* Попадает ли ip в заданный диапазон

* true - да, false - нет

* Например: (10.0.1.3,10.0.0.0/8) -> true

* @param type $ip

* @param type $mask

function ip_in_range($ip,$mask){

$res=false;

$ipd=cidrconv($mask);

$ip=ip2long($ip);

$start=ip2long($ipd[0]);

$end=ip2long($ipd[1]);

if (($ip>=$start) and ($ip<=$end)){$res=true;};

return $res;

};

/**

* Возвращает true если IP белый, false если серый

* @param type $ip

function WhiteIP($ip){

$res=true;

if (ip_in_range($ip,"10.0.0.0/8")==true){$res=false;};

if (ip_in_range($ip,"172.16.0.0/12")==true){$res=false;};

if (ip_in_range($ip,"192.168.0.0/16")==true){$res=false;};

return $res;

};

Пример использования:

var_dump(cidrconv("10.0.0.0/8"));
var_dump(ip2mask("255.255.255.0"));
var_dump(ip_in_range("10.20.30.40","10.0.0.0/8"));
var_dump(WhiteIP("172.16.40.11"));
var_dump(WhiteIP("176.192.40.11"));

var_dump(cidrconv("10.0.0.0/8"));

var_dump(ip2mask("255.255.255.0"));

var_dump(ip_in_range("10.20.30.40","10.0.0.0/8"));

var_dump(WhiteIP("172.16.40.11"));

var_dump(WhiteIP("176.192.40.11"));

Результат:

array(2) {
  [0]=>
  string(8) "10.0.0.0"
  [1]=>
  string(14) "10.255.255.255"
}
int(24)
bool(true)
bool(false)
bool(true)

array(2) {

[0]=>

string(8) "10.0.0.0"

[1]=>

string(14) "10.255.255.255"

}

int(24)

bool(true)

bool(false)

bool(true)

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

Автоматическое определение пути интерпретатора в скриптах Linux

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

Если не известно под какой версией дистрибутива запускается тот или иной скрипт, то можно воспользоваться утилитой env для поиска пути. В этом случае заголовок скрипта будет примерно такой:

#!/usr/bin/env php
<?php
 echo "Hello!";
?>

#!/usr/bin/env php

<?php

echo "Hello!";

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

Не заполняется продавец в табличной части реализации 1С Розница

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

Ситуация: при подборе товаров в документе реализации не заполняется автоматически текущим продавцом соответствующий столбец в таблице с товаром.

Это не баг и не ошибка, по гуглу, «так и должно». Но руками выставлять нужного продавца — велика вероятность ошибки. А не заполнять — часть отчетов строится без «продавца». Например «Валовая прибыль».

Решение:

Добавляем подписку на событие для документа «Реализация», с событием «Перед записью». В принципе достаточно добавить что-то вроде:

Функция ПроверкаЗаполненияПродавца(Источник, Отказ) Экспорт
	//проверяем заполнена ли табличная часть реализации продаванами или нет
	для каждого стр из источник.Товары  цикл
		стр.продавец=источник.продавец;
	конеццикла;	
	///
КонецФункции

Функция ПроверкаЗаполненияПродавца(Источник, Отказ) Экспорт

//проверяем заполнена ли табличная часть реализации продаванами или нет

для каждого стр из источник.Товары цикл

стр.продавец=источник.продавец;

конеццикла;

///

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

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

« 1 … 137 138 139 140 141 … 293 »

Ноябрь 2024
Пн	Вт	Ср	Чт	Пт	Сб	Вс
				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