Архив за месяц: Апрель 2018

1C

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

Комментариев нет

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

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

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

Комментариев нет

Собрал в кучку полезные функции для работы с 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;
};

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

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)

 

Linux

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

Комментариев нет

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

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

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

Комментариев нет

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

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

Решение:

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

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