Архив рубрики: Павел

SQL: выборка последних значений по дате из БД

15.10.2021 Павел Грибов Оставить комментарий

Задача: в таблице хранятся тарифы «сплошным навалом», необходимо вытащить последние значения всех тарифов.

Решение:

select 
reg_tarifs.date as dttime,
reg_tarifs.tarif as tarif,
reg_tarifs.zone as zone_num,
enum_zones.name as tarzone
from reg_tarifs
inner join enum_zones on enum_zones.id=reg_tarifs.zone
inner join 
(select 
  max(date) as maxdt,zone 
from reg_tarifs
where ezs=5
group by  zone 
) as max
on max.maxdt=reg_tarifs.date and max.zone=reg_tarifs.zone

select

reg_tarifs.date as dttime,

reg_tarifs.tarif as tarif,

reg_tarifs.zone as zone_num,

enum_zones.name as tarzone

from reg_tarifs

inner join enum_zones on enum_zones.id=reg_tarifs.zone

inner join

(select

max(date) as maxdt,zone

from reg_tarifs

where ezs=5

group by zone

) as max

on max.maxdt=reg_tarifs.date and max.zone=reg_tarifs.zone

PHP

PHP: отправка почты через сервер Microsoft Exchange

15.10.2021 Павел Грибов Оставить комментарий

Минут 20 пришлось подбирать параметры, чтобы письма пошли. Получился примерно такой класс (с использованием PHPMailer).

use PHPMailer\PHPMailer\PHPMailer;
use PHPMailer\PHPMailer\SMTP;
use PHPMailer\PHPMailer\Exception;

class TMail {
   public static function SendMail($to,$title,$body){
    global $db;
    $answer=AnswerStruc(true,"Не удалось отправить почту");
    $mail = new PHPMailer(true);
    $mail->SMTPDebug = SMTP::DEBUG_SERVER;                      
    $mail->isSMTP();                                                
    $mail->Host       = TConfig::GetConfigKeyValue("mail_server");
    $mail->SMTPAuth   = true;                                  
    $mail->Username   = TConfig::GetConfigKeyValue("mail_server_login");
    $mail->Password   = TConfig::GetConfigKeyValue("mail_server_password");
    //$mail->SMTPSecure = PHPMailer::ENCRYPTION_SMTPS;           
    $mail->CharSet = 'UTF-8';
    $mail->Encoding = 'base64';
    $mail->Port       = TConfig::GetConfigKeyValue("smtp_port");                                   
    $mail->SMTPAuth = true;
    
    $mail->SMTPOptions = array(
        'ssl' => array(
            'verify_peer' => false,
            'verify_peer_name' => false,
            'allow_self_signed' => true
        )
    );    
    
    $mail->setFrom(TConfig::GetConfigKeyValue("mail_server_sender"));
    $mail->addAddress($to);

    $mail->isHTML(true);                                
    $mail->Subject = $title;
    $mail->Body    = $body;    
    
    if (!$mail->send()) {
        $answer=AnswerStruc(true,$mail->ErrorInfo);
    } else {
        $answer=AnswerStruc(false,"Ok");
    }
    return $answer;
   }   
}

use PHPMailer\PHPMailer\PHPMailer;

use PHPMailer\PHPMailer\SMTP;

use PHPMailer\PHPMailer\Exception;

class TMail {

public static function SendMail($to,$title,$body){

global $db;

$answer=AnswerStruc(true,"Не удалось отправить почту");

$mail = new PHPMailer(true);

$mail->SMTPDebug = SMTP::DEBUG_SERVER;

$mail->isSMTP();

$mail->Host = TConfig::GetConfigKeyValue("mail_server");

$mail->SMTPAuth = true;

$mail->Username = TConfig::GetConfigKeyValue("mail_server_login");

$mail->Password = TConfig::GetConfigKeyValue("mail_server_password");

//$mail->SMTPSecure = PHPMailer::ENCRYPTION_SMTPS;

$mail->CharSet = 'UTF-8';

$mail->Encoding = 'base64';

$mail->Port = TConfig::GetConfigKeyValue("smtp_port");

$mail->SMTPAuth = true;

$mail->SMTPOptions = array(

'ssl' => array(

'verify_peer' => false,

'verify_peer_name' => false,

'allow_self_signed' => true

)

);

$mail->setFrom(TConfig::GetConfigKeyValue("mail_server_sender"));

$mail->addAddress($to);

$mail->isHTML(true);

$mail->Subject = $title;

$mail->Body = $body;

if (!$mail->send()) {

$answer=AnswerStruc(true,$mail->ErrorInfo);

} else {

$answer=AnswerStruc(false,"Ok");

}

return $answer;

}

WEB

PostgreSQL: расстояние между двумя координатами в метрах

04.10.2021 Павел Грибов Оставить комментарий

Можно добавить функцию вида:

CREATE OR REPLACE FUNCTION public.distance(
	lat1 double precision,
	lon1 double precision,
	lat2 double precision,
	lon2 double precision)
    RETURNS double precision
    LANGUAGE 'plpgsql'
    COST 100
    VOLATILE PARALLEL UNSAFE
AS $BODY$
DECLARE
    R integer = 6371e3; -- Метры
    rad double precision = 0.01745329252;

    f1 double precision = lat1 * rad;
    f2 double precision = lat2 * rad;
    df double precision = (lat2-lat1) * rad;
    dl double precision = (lon2-lon1) * rad;

    a double precision = sin(df/2) * sin(df/2) + cos(f1) * cos(f2) * sin(dl/2) * sin(dl/2);
    c double precision = 2 * atan2(sqrt(a), sqrt(1-a));    
BEGIN                                                     
    RETURN R * c;        
END
$BODY$;

CREATE OR REPLACE FUNCTION public.distance(

lat1 double precision,

lon1 double precision,

lat2 double precision,

lon2 double precision)

RETURNS double precision

LANGUAGE 'plpgsql'

COST 100

VOLATILE PARALLEL UNSAFE

AS $BODY$

DECLARE

R integer = 6371e3; -- Метры

rad double precision = 0.01745329252;

f1 double precision = lat1 * rad;

f2 double precision = lat2 * rad;

df double precision = (lat2-lat1) * rad;

dl double precision = (lon2-lon1) * rad;

a double precision = sin(df/2) * sin(df/2) + cos(f1) * cos(f2) * sin(dl/2) * sin(dl/2);

c double precision = 2 * atan2(sqrt(a), sqrt(1-a));

BEGIN

RETURN R * c;

END

$BODY$;

PHP

PHP: Особенности работы с PostrgeeSQL через PDO

30.09.2021 Павел Грибов Оставить комментарий

Работа с типом boolean. А именно типы bollean нужно явно переводить в 1 или 0 при вставке в таблицу. Например:

$sql="INSERT INTO t1(p1) VALUES (:p1)";
$query2 = $db->connection->prepare($sql);  
$param=[
  "p1"=> $bool_perem?1:0
];
$res=$query2->execute($param);

$sql="INSERT INTO t1(p1) VALUES (:p1)";

$query2 = $db->connection->prepare($sql);

$param=[

"p1"=> $bool_perem?1:0

];

$res=$query2->execute($param);

Работа с null в запросе. Если вдруг какаято переменная может быть null, то запрос нужно преобразовывать:

    $sql="select tarif from tarifs where chpe=:chpe";      
      if ($charge_type==null){
          $sql= str_replace("chpe=:chpe", "chpe is null", $sql);          
      } else {
          $param["chpe"]=$charge_type;
      };
      $query2 = $db->connection->prepare($sql);

$sql="select tarif from tarifs where chpe=:chpe";

if ($charge_type==null){

$sql= str_replace("chpe=:chpe", "chpe is null", $sql);

} else {

$param["chpe"]=$charge_type;

};

$query2 = $db->connection->prepare($sql);

1С: Получение данных временных таблиц при отладке

29.09.2021 Павел Грибов Оставить комментарий

Самый простой способ, перед вызовом Запрос.Выполнить(), поставить точку останова и по Shift-F9 вычислить чтото-вроде:

Запрос.МенеджерВременныхТаблиц.Таблицы[0].ПолучитьДанные().Выгрузить()

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

ЖЗГ