689 lines
29 KiB
PHP
689 lines
29 KiB
PHP
<?php
|
|
ini_set('soap.wsdl_cache_enabled', 0);
|
|
ini_set('default_socket_timeout', 30);
|
|
|
|
class MAmabis
|
|
{
|
|
private $client;
|
|
|
|
public function __construct()
|
|
{
|
|
$this->client = new SoapClient(null, array(
|
|
'location' => 'http://sw2.amabis.com:5100/',
|
|
'uri' => 'http://www.amabis.com/ns.xsd',
|
|
'connection_timeout' => 2,
|
|
'soap_version' => SOAP_1_1,
|
|
'trace' => 1,
|
|
'style' => SOAP_RPC,
|
|
'use' => SOAP_ENCODED,
|
|
));
|
|
}
|
|
|
|
public function getZonage($adrNum, $adrIndRep, $adrTypeVoie, $adrLibVoie, $cp, $ville='', $codeRivoli='', $rnvp=false, $raisonSociale='TEST', $debug=false)
|
|
{
|
|
$tabRep=array();
|
|
if (!$rnvp) {
|
|
if ($cp<10000) $cp='0'.$cp;
|
|
$dep2=substr($cp,0,2)*1;
|
|
$dep3=substr($cp,0,3)*1;
|
|
switch ($dep2) {
|
|
case 0:
|
|
/*case 5:
|
|
case 9:
|
|
case 15:
|
|
case 19:
|
|
case 23:
|
|
case 32:
|
|
case 46:
|
|
case 48:
|
|
case 82:*/
|
|
case 97: // DOM
|
|
case 98: // TOM
|
|
case 99: // Etranger
|
|
return $tabRep;
|
|
break;
|
|
default:
|
|
//if ($dep3==975) return $tabRep;
|
|
break;
|
|
}
|
|
}
|
|
|
|
$iDb=new WDB();
|
|
$adresse=addslashes(trim(preg_replace('/ +/',' ', "$adrNum $adrIndRep $adrTypeVoie $adrLibVoie")));
|
|
$ville=addslashes($ville);
|
|
$majForcee=false;
|
|
|
|
$ret=$iDb->select( 'zonage', 'zus, zru, zfu, cucs, rnvpStatut, rnvpCorr, rnvpTrt, adr3, adr4, adr5, adr6, adr7, numVoieA, indRepA,
|
|
typeVoieAlong, typeVoieAcourt, corpVoie, motDir, motDirD, libVoieSec, adr4n32, adr4n38, clePostaleVoie,
|
|
secteur, cleRoutage, cpx, cleAd, codPaysIso2, codPaysIso3, libPays, codeInsee',
|
|
"address='$adresse' AND adr_cp='$cp' AND adr_ville='$ville'",false, MYSQL_ASSOC);
|
|
$zones=@$ret[0];
|
|
if (count($ret)>0) {
|
|
|
|
if ($zones['rnvpStatut']===null && $rnvp) $majForcee=true;
|
|
$tabRep['ZUS']=$tabRep['ZFU']=$tabRep['ZRU']=$tabRep['CUCS']='NON';
|
|
//$tabRep['NZUS']=$tabRep['NZFU']=$tabRep['NZRU']=$tabRep['NCUCS']='';
|
|
|
|
if (trim($zones['zus'])<>'') {
|
|
if (trim($zones['zus'])=='NSP') $tabRep['ZUS']='NSP';
|
|
else $tabRep['ZUS']='OUI';
|
|
$tabRep['NZUS']=$zones['zus'];
|
|
}
|
|
if (trim($zones['zru'])<>'') {
|
|
if (trim($zones['zru'])=='NSP') $tabRep['ZRU']='NSP';
|
|
else $tabRep['ZRU']='OUI';
|
|
$tabRep['NZRU']=$zones['zru'];
|
|
}
|
|
if (trim($zones['zfu'])<>'') {
|
|
if (trim($zones['zfu'])=='NSP') $tabRep['ZFU']='NSP';
|
|
else $tabRep['ZFU']='OUI';
|
|
$tabRep['NZFU']=$zones['zfu'];
|
|
}
|
|
if (trim($zones['cucs'])<>'') {
|
|
if (trim($zones['cucs'])=='NSP') $tabRep['CUCS']='NSP';
|
|
else $tabRep['CUCS']='OUI';
|
|
$tabRep['NCUCS']=$zones['cucs'];
|
|
}
|
|
|
|
/** Autres Informations de la RNVP **/
|
|
if ($rnvp) {
|
|
//$tabRep['ADR1']=@trim($tabZones['ADR1']);
|
|
//$tabRep['ADR2']=@trim($tabZones['ADR2']);
|
|
if (strtoupper(@trim($zones['adr7']))=='FRANCE') $zones['adr7']='';
|
|
$tabRep['ADR3']=@trim($zones['adr3']);
|
|
$tabRep['ADR4']=@trim($zones['adr4']);
|
|
$tabRep['ADR5']=@trim($zones['adr5']);
|
|
$tabRep['ADR6']=@trim($zones['adr6']);
|
|
$tabRep['ADR7']=trim($zones['adr7']);
|
|
}
|
|
|
|
}
|
|
|
|
if (count($ret)==0 || $majForcee) {
|
|
|
|
try {
|
|
if (trim($raisonSociale)=='') $raisonSociale='TEST'; // Le RNVP ne fonctionne pas sans la Raison Sociale qui est la 1ère ligne d'adresse
|
|
$rep=$this->client->zonage( new SoapParam(strtr("$raisonSociale:$adresse:$cp:$ville",
|
|
'¿°ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõöøùúûýýþÿ??',
|
|
' aaaaaaaceeeeiiiidnoooooouuuuybsaaaaaaaceeeeiiiidnoooooouuuyybyRr'),'adresse'),
|
|
new SoapParam(':','separateur'),
|
|
new SoapParam('type=M','options')
|
|
);
|
|
/*$rep=$this->client->zonage( "<adresse></adresse>".
|
|
"<separateur>:</separateur>".
|
|
"<options>type=M</options>");*/
|
|
|
|
/** Découpage des ZFU, CUCS etcs...
|
|
**/
|
|
$fp=fopen(LOG_PATH.'/amabis.log', 'a');
|
|
fwrite($fp, date('d-m-Y H:i:s').' - '.implode("\n", $rep)."\n============================================================================\n");
|
|
fclose($fp);
|
|
|
|
$tabZones=explode(',',$rep['zonage']); // ZUS=OUI,NZUS=1127020,ZFU=OUI,NZFU=11270ZF,CUCS=OUI,NCUCS=1127020
|
|
foreach ($tabZones as $zone) {
|
|
$tabTmp=explode('=',$zone);
|
|
if (trim($tabTmp[0])<>'')
|
|
$tabRep[$tabTmp[0]]=$tabTmp[1];
|
|
}
|
|
if (@$tabRep['ZUS']=='NSP') $tabRep['NZUS']='NSP';
|
|
if (@$tabRep['ZRU']=='NSP') $tabRep['NZRU']='NSP';
|
|
if (@$tabRep['ZFU']=='NSP') $tabRep['NZFU']='NSP';
|
|
if (@$tabRep['CUCS']=='NSP') $tabRep['NCUCS']='NSP';
|
|
$adresse=stripslashes(trim(preg_replace('/ +/',' ', "$adrNum $adrIndRep $adrTypeVoie $adrLibVoie")));
|
|
$ville=stripslashes($ville);
|
|
$tabRepTmp=array();
|
|
$tabTmp=explode('=',utf8_decode($rep['objdesc']));
|
|
//print_r($tabTmp);
|
|
//die();
|
|
$tabZones=array();
|
|
foreach ($tabTmp as $iZone=>$zone) {
|
|
$pos=strrpos($zone,',');
|
|
if ($iZone==0) {
|
|
$nomZoneSuiv=$zone;
|
|
continue;
|
|
}
|
|
$tabZones[$nomZoneSuiv]=substr($zone,0,$pos);
|
|
$nomZoneSuiv=substr($zone,$pos+1);
|
|
}
|
|
if (strtoupper(@trim($tabZones['ADR7']))=='FRANCE') $tabZones['ADR7']='';
|
|
$tabTmp=explode('|', $tabZones['VOIEA']);
|
|
$typeVoieAcourt=@trim($tabTmp[1]);
|
|
$tabInsert=array(
|
|
'address'=>$adresse,
|
|
'adr_cp'=>$cp,
|
|
'adr_ville'=>$ville,
|
|
'zus'=>@$tabRep['NZUS'],
|
|
'zru'=>@$tabRep['NZRU'],
|
|
'zfu'=>@$tabRep['NZFU'],
|
|
'cucs'=>@$tabRep['NCUCS'],
|
|
);
|
|
$tabUpdate=array(
|
|
'adrNum'=>$adrNum,
|
|
'adrIndRep'=>$adrIndRep,
|
|
'adrTypeVoie'=>$adrTypeVoie,
|
|
'adrLibVoie'=>$adrLibVoie,
|
|
'rivoli'=>$codeRivoli,
|
|
// Ajouté le 16/12/2013
|
|
'rnvpStatut' => substr($tabZones['STATUTC'],0,2),
|
|
'rnvpCorr' => substr($tabZones['STATUTC'],2,1),
|
|
'rnvpTrt' => trim(substr($tabZones['STATUTC'],3,2)),
|
|
'adr3' => @trim($tabZones['ADR3']),
|
|
'adr4' => @trim($tabZones['ADR4']),
|
|
'adr5' => @trim($tabZones['ADR5']),
|
|
'adr6' => @trim($tabZones['ADR6']),
|
|
'adr7' => trim($tabZones['ADR7']),
|
|
'numVoieA' => @trim($tabZones['NUM1']),
|
|
'indRepA' => @trim($tabZones['BTQC1']),
|
|
'typeVoieAlong' => @trim($tabZones['TYPVOIEL']),
|
|
'typeVoieAcourt' => $typeVoieAcourt,
|
|
'corpVoie' => @trim($tabZones['CORPSVOIE']),
|
|
'motDir' => @trim($tabZones['MOTDIR']),
|
|
'motDirD' => @trim($tabZones['MOTDIRD']),
|
|
'libVoieSec' => @trim($tabZones['VOIREFLIBS']),
|
|
'adr4n32' => @trim($tabZones['VOIREFLIBPOS']),
|
|
'adr4n38' => @trim($tabZones['VOIREFLIBPOS2']),
|
|
'clePostaleVoie' => @trim($tabZones['VOIREFCLEPOST']),
|
|
'secteur' => @trim($tabZones['SECTEUR']),
|
|
'cleRoutage' => @trim($tabZones['CLER']),
|
|
'cpx' => @trim($tabZones['CPX']),
|
|
'cleAd' => @trim($tabZones['CLEAD']),
|
|
'codPaysIso2' => @trim($tabZones['NATREFISO2']),
|
|
'codPaysIso3' => @trim($tabZones['NATREFISO3']),
|
|
'libPays' => @trim($tabZones['NATREFLIB']),
|
|
'codeInsee' => @trim($tabZones['LOCREFCLEO']),
|
|
'source' => 'Amabis',
|
|
);
|
|
$dateInsert=0;
|
|
if ($majForcee) {
|
|
$adresseL=addslashes($adresse);
|
|
$villeL=addslashes($ville);
|
|
|
|
$ret=$iDb->select('zonage', 'dateInsert*1 as dateInsert', "address='$adresseL' AND adr_cp='$cp' AND adr_ville='$villeL'", false);
|
|
$dateInsert=@$ret[0]['dateInsert']*1;
|
|
$iDb->update('zonage', array_merge($tabUpdate,array('dateInsert'=>$dateInsert)), "address='$adresseL' AND adr_cp='$cp' AND adr_ville='$villeL'", false);
|
|
//echo "Mise à jour de l'adresse du $dateInsert pour address='$adresseL' AND adr_cp='$cp' AND adr_ville='$villeL'".EOL;
|
|
}
|
|
|
|
if ($dateInsert==0) {
|
|
$iDb->insert('zonage', array_merge($tabInsert,$tabUpdate), false);
|
|
//echo "Insertion de l'adresse (".$zones['rnvpStatut'].")!".EOL;
|
|
}
|
|
|
|
$tabTmp[0]=explode(',', $tabZones['LOCREFCLEP']);
|
|
$tabTmp[1]=explode(',', $tabZones['LOCREFCP']);
|
|
$tabTmp[2]=explode(',', $tabZones['LOCREFTYPP']);
|
|
$tabTmp[3]=explode(',', $tabZones['LOCREFLIBD']);
|
|
$tabTmp[4]=explode(',', $tabZones['LOCREFLIBD2']);
|
|
foreach($tabTmp[0] as $iCleP=>$cleP) {
|
|
$tabInsert=array(
|
|
'codeInsee' => @trim($tabZones['LOCREFCLEO']),
|
|
'villeLib' => @trim($tabZones['LOCREFLIBP']),
|
|
'villePopu' => @trim($tabZones['LOCREFPOP']),
|
|
'cleAchPost'=> $cleP,
|
|
'codePostal'=> $tabTmp[1][$iCleP],
|
|
'typePostal'=> $tabTmp[2][$iCleP],
|
|
'libAchP32' => @preg_replace('/^\//','',$tabTmp[3][$iCleP]),
|
|
'libAchP38' => @preg_replace('/^\//','',$tabTmp[4][$iCleP]),
|
|
'source' => 'Amabis',
|
|
'dateInsert'=> date('YmdHis'),
|
|
);
|
|
$iDb->insert('villesCP', $tabInsert, false);
|
|
//echo mysql_error().EOL;
|
|
}
|
|
|
|
/** Autres Informations de la RNVP
|
|
**/
|
|
if ($rnvp) {
|
|
//$tabRep['ADR1']=@trim($tabZones['ADR1']);
|
|
//$tabRep['ADR2']=@trim($tabZones['ADR2']);
|
|
$tabRep['ADR3']=@trim($tabZones['ADR3']);
|
|
$tabRep['ADR4']=@trim($tabZones['ADR4']);
|
|
$tabRep['ADR5']=@trim($tabZones['ADR5']);
|
|
$tabRep['ADR6']=@trim($tabZones['ADR6']);
|
|
$tabRep['ADR7']=trim($tabZones['ADR7']);
|
|
}
|
|
} catch (SoapFault $fault) {
|
|
//echo 'ERREUR SOAP :'.EOL;
|
|
//print_r($fault);
|
|
//echo $this->client->__getLastRequest()."\n";
|
|
//echo $this->client->__getLastResponse()."\n";
|
|
$fp=fopen(LOG_PATH.'/amabis.log', 'a');
|
|
fwrite($fp, date('d-m-Y H:i:s').' - ERREUR SOAP : Requete = '.$this->client->__getLastRequest()."\n Reponse = ".$this->client->__getLastResponse()."\n============================================================================\n");
|
|
fclose($fp);
|
|
}
|
|
//return $tabRep;
|
|
}
|
|
|
|
/** Zonages AFR et ZRR
|
|
**/
|
|
$codeInsee=substr($codeRivoli,0,5);
|
|
$ret=$iDb->select( 'zonageInsee', 'typeZone, arreteDate, decretDate, decretNum, decretModifieDate, decretModifieNum, dateDebut, dateFin', "codeInsee='$codeInsee'",false, MYSQL_ASSOC);
|
|
$tabRep['ZRR']=$tabRep['AFR']='NON';
|
|
foreach ($ret as $zones)
|
|
switch ($zones['typeZone']) {
|
|
case 'ZRR': $tabRep['ZRR']='OUI'; $tabRep['NZRR']=$codeInsee; break;
|
|
case 'ZAFR': $tabRep['AFR']='OUI'; $tabRep['NAFR']=$codeInsee; break;
|
|
default: break;
|
|
}
|
|
|
|
return $tabRep;
|
|
}
|
|
|
|
function searchByTelFax($tel) {
|
|
return $this->getTelFax('','','','',$tel);
|
|
}
|
|
|
|
function getTelFax($nom, $cp, $ville='', $prenom='', $tel='') {
|
|
if (trim($tel)<>'')
|
|
$query="<telep>$tel</telep><scoremini>10</scoremini><distinction>30</distinction>";
|
|
elseif (trim($prenom)=='')
|
|
$query="<rs>$nom</rs><cpville>$cp $ville</cpville><scoremini>90</scoremini><distinction>30</distinction>";
|
|
else
|
|
$query="<nom>$nom</nom><prenom>$prenom</prenom><cpville>$cp $ville</cpville><scoremini>90</scoremini><distinction>30</distinction>";
|
|
|
|
$rep=$this->client->rechtel($query);
|
|
|
|
$fp=fopen(LOG_PATH.'/amabis.log', 'a');
|
|
fwrite($fp, date('d-m-Y H:i:s')." - $query - ".implode("\n", $rep)."\n============================================================================\n");
|
|
fwrite($fp, "Requête : ".$this->client->__getLastRequest()."\n");
|
|
fwrite($fp, "Réponse : ".$this->client->__getLastResponse()."\n");
|
|
fclose($fp);
|
|
}
|
|
|
|
/**
|
|
* @todo Corriger les adresses présentes dans CEDEXA (toutes les lignes)
|
|
* @todo Ligne 3, acheter HEXALIGNE3
|
|
*/
|
|
function normaliseAdresse($adrL1, $adrL2, $adrL3, $adrL4, $adrL5, $adrL6, $adrL7='', $norme=38, $debug=false) {
|
|
if ($norme<>32 && $norme<>38) {
|
|
return 'La norme doit être 32 ou 38 caractères (38 par défaut)'.EOL;
|
|
}
|
|
|
|
$iInsee=new MInsee();
|
|
$iDb=new WDB('villes');
|
|
$adrL=array();
|
|
$adrL[1]=$adrL1=trim(preg_replace('/\s+/',' ',preg_replace('/[^a-z\d ]/i', ' ', strtoupper(trimAccent($adrL1)))));
|
|
$adrL[2]=$adrL2=trim(preg_replace('/\s+/',' ',preg_replace('/[^a-z\d ]/i', ' ', strtoupper(trimAccent($adrL2)))));
|
|
$adrL[3]=$adrL3=trim(preg_replace('/\s+/',' ',preg_replace('/[^a-z\d ]/i', ' ', strtoupper(trimAccent($adrL3)))));
|
|
$adrL[4]=$adrL4=trim(preg_replace('/\s+/',' ',preg_replace('/[^a-z\d ]/i', ' ', strtoupper(trimAccent($adrL4)))));
|
|
$adrL[5]=$adrL5=trim(preg_replace('/\s+/',' ',preg_replace('/[^a-z\d ]/i', ' ', strtoupper(trimAccent($adrL5)))));
|
|
$adrL[6]=$adrL6=trim(preg_replace('/\s+/',' ',preg_replace('/[^a-z\d ]/i', ' ', strtoupper(trimAccent($adrL6)))));
|
|
$adrL[7]=$adrL7=trim(preg_replace('/\s+/',' ',preg_replace('/[^a-z\d ]/i', ' ', strtoupper(trimAccent($adrL7)))));
|
|
if ($adrL7<>'' || $adrL7<>'FRANCE' || $adrL7<>'MONACO')
|
|
|
|
$L1=$adrL1;
|
|
$L2=$adrL2;
|
|
|
|
// Ligne 3, acheter HEXALIGNE3
|
|
$L3=$adrL3;
|
|
|
|
// Ligne 5 et 7 par défaut
|
|
$L7=$adrL7;
|
|
$L5=$adrL5;
|
|
|
|
// Ligne 6 : CP + Localité
|
|
$idAdr56=false;
|
|
$tabAdr56k=$tabAdr56L=array();
|
|
$cp=substr(trim($adrL6),0,5);
|
|
$cp2=substr($cp,0,2);
|
|
$ville=trim(strtr(substr($adrL6,5),array(' SAINT '=>' ST ',' SAINTE '=>' STE ')));
|
|
$ret=$iDb->select( 'hexaviaVilles',
|
|
"idAdr56, codeInseeCom, libCom$norme, codeInseeGlobal, indPluridis, libLigne5n$norme, indRoudis, codePostal, libLigne6n$norme, codeInseePre, codeMaj$norme, dateMaj$norme, MATCH (codePostal, libCom38) AGAINST ('$cp $ville' IN NATURAL LANGUAGE MODE) AS score",
|
|
"(MATCH (codePostal, libCom38) AGAINST ('$cp $ville' IN NATURAL LANGUAGE MODE) OR MATCH (codePostal, libCom38) AGAINST ('$cp2 $ville' IN NATURAL LANGUAGE MODE)) ORDER BY score DESC /*OR codePostal='$cp' AND libCom$norme='$ville'*/",false, MYSQL_ASSOC);
|
|
$nbRet=count($ret);
|
|
if ($nbRet==0) return 'Aucune correspondance CP VILLE'.EOL;
|
|
else {
|
|
foreach($ret as $i=>$iRet) {
|
|
if ($debug) echo "je compare '$cp' avec '".$iRet['codePostal']."' et '$ville' avec '".$iRet["libCom$norme"]."' (".$iRet['idAdr56'].")".EOL;
|
|
if (($iRet['codePostal']==$cp || substr($iRet['codePostal'],0,2)==$cp2) && ($iRet["libCom$norme"]==$ville || preg_replace('/ 0/', ' ',$iRet["libCom$norme"])==$ville) || (strpos($iRet["libCom$norme"],$ville)>0 && $nbRet==1)) {
|
|
$idAdr56=$iRet['idAdr56'];
|
|
$dateMajHexavia=$iRet["dateMaj$norme"];
|
|
$hexaViaComCod=$iRet['codeInseeCom'];
|
|
$hexaViaComLib=$iRet["libCom$norme"];
|
|
$hexaViaCP=$iRet['codePostal'];
|
|
$L5=$iRet["libLigne5n$norme"];
|
|
$L6=$iRet['codePostal'].' '.$iRet["libLigne6n$norme"];
|
|
$L7='';
|
|
$tabAdr56k[]=$idAdr56;
|
|
$tabAdr56L['_'.$idAdr56]=array('L5'=>$L5,'L6'=>$L6,'L7'=>$L7,);
|
|
//break;
|
|
}
|
|
}
|
|
if (!$idAdr56) {
|
|
$iRet=$ret[0];
|
|
if ($debug) echo "On prend le score le + élevé s'il est > à 15 : je compare '$cp' avec '".$iRet['codePostal']."' et '$ville' avec '".$iRet["libCom$norme"]."' (".$iRet['idAdr56'].")".EOL;
|
|
if ($debug) echo '['.trim(preg_replace('/ (1ER|2EME|3EME|\d+)/', ' ',$iRet["libCom$norme"])) .'-v/s-'.trim(preg_replace('/ (1ER|2EME|3EME|\d+)/', ' ',$ville)).']'.EOL;
|
|
if (($iRet['codePostal']==$cp || substr($iRet['codePostal'],0,2)==$cp2) && ($iRet["libCom$norme"]==$ville || (substr(trim(preg_replace('/ (1ER|2EME|3EME|\d+)/', ' ',$iRet["libCom$norme"])),0,26)==trim(preg_replace('/ (1ER|2EME|3EME|\d+)/', ' ',$ville)) && $iRet['score']>17) || (strpos($iRet["libCom$norme"],$ville)>0 && $nbRet==1))) {
|
|
$idAdr56=$iRet['idAdr56'];
|
|
$dateMajHexavia=$iRet["dateMaj$norme"];
|
|
$hexaViaComCod=$iRet['codeInseeCom'];
|
|
$hexaViaComLib=$iRet["libCom$norme"];
|
|
$hexaViaCP=$iRet['codePostal'];
|
|
$L5=$iRet["libLigne5n$norme"];
|
|
$L6=$iRet['codePostal'].' '.$iRet["libLigne6n$norme"];
|
|
$L7='';
|
|
$tabAdr56k[]=$idAdr56;
|
|
$tabAdr56L['_'.$idAdr56]=array('L5'=>$L5,'L6'=>$L6,'L7'=>$L7,);
|
|
} else {
|
|
//print_r($ret);
|
|
//die('Plusieurs correspondances CP VILLE'.EOL);
|
|
return 'Plusieurs correspondances CP VILLE'.EOL;
|
|
}
|
|
}
|
|
}
|
|
|
|
/*if (count($ret)>1) {
|
|
print_r($ret);
|
|
die('Plusieurs correspondances CP VILLE'.EOL);
|
|
return 'Plusieurs correspondances CP VILLE'.EOL;
|
|
}
|
|
elseif (count($ret)==1) {
|
|
$ret=$ret[0];
|
|
$idAdr56=$ret['idAdr56'];
|
|
$L5=$ret["libLigne5n$norme"];
|
|
$L6=$ret['codePostal'].' '.$ret["libLigne6n$norme"];
|
|
$L7='';
|
|
}*/
|
|
|
|
// Ligne 4 :
|
|
$matriculeHexavia=false;
|
|
if(preg_match('/(^(\d{0,4})\s?([a-z]{0,1}))\s(.*)$/i', $adrL4, $matches)) {
|
|
$numVoieRep=$matches[1];
|
|
$numVoie=$matches[2];
|
|
$indRep=$matches[3];
|
|
$libVoie=$matches[4];
|
|
$libVoie5=substr($libVoie,0,5);
|
|
$tabAdr=$iInsee->structureVoie($libVoie);
|
|
$typeVoie=@$tabAdr['typeVoie'];
|
|
preg_match('/([a-z\d]{1,20})$/i', $libVoie, $matches2);
|
|
$derMot=$matches2[1];
|
|
$derMot5=substr($derMot,0,5);
|
|
//print_r($matches);
|
|
//die($derMot);
|
|
//foreach($tabAdr56 as $k=>$tabAdr56) //=array('idAdr56'=>$idAdr56,'L5'=>$L5,'L6'=>$L6,'L7'=>$L7,);
|
|
$strAdr56=implode("','", $tabAdr56k);
|
|
$ret=$iDb->select( 'hexaviaVoies',
|
|
"idAdr56, codeVoie, derElemVoie, libVoie$norme, typeVoie, descLibVoie, indStand$norme, indScind, indHomo, codePostal, codeRoudis, codeMaj$norme, dateMaj$norme
|
|
numImpMin, numImpMinExt, numImpMax, numImpMaxExt, numPairMin, numPairMinExt, numPairMax, numPairMaxExt, MATCH (libVoie38) AGAINST ('$libVoie' IN NATURAL LANGUAGE MODE) AS score",
|
|
// "idAdr56='$idAdr56' AND (MATCH (libVoie38) AGAINST ('$libVoie' IN NATURAL LANGUAGE MODE) OR libVoie38 LIKE '$libVoie5%' OR derElemVoie LIKE '$libVoie5%')/*AND typeVoie='$typeVoie' AND derElemVoie='$derMot'*/",false, MYSQL_ASSOC);
|
|
"idAdr56 IN ('$strAdr56') AND (MATCH (libVoie38) AGAINST ('$libVoie' IN NATURAL LANGUAGE MODE) OR libVoie38 LIKE '$libVoie5%' OR derElemVoie LIKE '$libVoie5%')/*AND typeVoie='$typeVoie' AND derElemVoie='$derMot'*/",false, MYSQL_ASSOC);
|
|
$nbRet=count($ret);
|
|
if ($nbRet==0) {
|
|
// Vérifier si la commune à des voies normées 98816
|
|
$ret=$iDb->select( 'hexaviaVoies', "codeVoie", "idAdr56 IN('$strAdr56')",false, MYSQL_ASSOC);
|
|
$nbVoiesCom=count($ret);
|
|
if (count($ret)==0) {
|
|
return "Aucune Voie recensée dans cette commune ('$strAdr56') !".EOL;
|
|
}
|
|
return "Aucune correspondance Voie pour '$adrL4', '$libVoie' ($nbVoiesCom voies dans la commune #$idAdr56)".EOL;
|
|
}
|
|
else {
|
|
foreach($ret as $i=>$iRet) {
|
|
//echo "je compare '$libVoie' avec '".$iRet["libVoie$norme"]."'".EOL;
|
|
if ($iRet["libVoie$norme"]==$libVoie || $iRet['derElemVoie']==$derMot || /*substr($iRet["libVoie$norme"],0,5)==$libVoie5 || */substr($iRet['derElemVoie'],0,5)==$derMot5) {
|
|
$tabAdr=$iInsee->structureVoie($libVoie);
|
|
if ($tabAdr['typeVoie']<>$iRet['typeVoie'] && $nbRet>1) continue;
|
|
$idAdr56=$iRet['idAdr56'];
|
|
$L4=preg_replace('/\s+/', ' ', trim($numVoie.' '.$indRep.' '.$iRet["libVoie$norme"]));
|
|
$L4=preg_replace('/^0+/','',$L4);
|
|
$hexaViaVoie=$iRet["libVoie$norme"];
|
|
if (strlen($L4)>$norme) return "Taille de la ligne 4 générée en sortie plus longue que $norme !".EOL;
|
|
$matriculeHexavia=$iRet['codeVoie'];
|
|
$codeRoudis=$iRet['codeRoudis'];
|
|
$L5=$tabAdr56L['_'.$idAdr56]['L5'];
|
|
$L6=$tabAdr56L['_'.$idAdr56]['L6'];
|
|
$L7=$tabAdr56L['_'.$idAdr56]['L7'];
|
|
break;
|
|
}
|
|
}
|
|
if (!$matriculeHexavia) {
|
|
//print_r($ret);
|
|
// die("Plusieurs correspondances Voies pour $adrL4 $adrL6 dans cette commune ('$strAdr56') !".EOL);
|
|
return 'Plusieurs correspondances Voies'.EOL;
|
|
}
|
|
}
|
|
}
|
|
/*
|
|
if (count($ret)==0) {
|
|
// Vérifier si la commune à des voies normées 98816
|
|
$ret=$iDb->select( 'hexaviaVoies', "codeVoie", "idAdr56='$idAdr56'",false, MYSQL_ASSOC);
|
|
if (count($ret)==0) {
|
|
return 'Aucune Voie recensée dans cette commune !'.EOL;
|
|
}
|
|
return 'Aucune correspondance Voie'.EOL;
|
|
}
|
|
elseif (count($ret)>1) {
|
|
print_r($ret);
|
|
$tabAdr=$iInsee->structureVoie($libVoie);
|
|
print_r($tabAdr);
|
|
return 'Plusieurs correspondances Voies'.EOL;
|
|
}
|
|
elseif (count($ret)==1) {
|
|
$ret=$ret[0];
|
|
$L4=preg_replace('/\s+/', ' ', trim($numVoie.' '.$indRep.' '.$ret["libVoie$norme"]));
|
|
if (strlen($L4)>$norme) return "Taille de la ligne 4 générée en sortie plus longue que $norme !".EOL;
|
|
$matriculeHexavia=$ret['codeVoie'];
|
|
$codeRoudis=$ret['codeRoudis'];
|
|
}
|
|
}
|
|
*/
|
|
|
|
if (!$matriculeHexavia && @strlen($L4)==0) $L4=$adrL4;
|
|
|
|
|
|
$tabLen=$tabMaxLen=array();
|
|
$tabLen[1]=strlen($L1);
|
|
if ($tabLen[1]>$norme) {
|
|
$L1=$this->normaliseRS($L1, $norme);
|
|
$tabLen[1]=strlen($L1); if ($tabLen[1]>$norme) $tabMaxLen[]=1;
|
|
}
|
|
$tabLen[2]=strlen($L2);
|
|
if ($tabLen[2]>$norme) {
|
|
$L2=$this->normaliseRS($L2, $norme);
|
|
$tabLen[2]=strlen($L2); if ($tabLen[2]>$norme) $tabMaxLen[]=2;
|
|
}
|
|
$tabLen[3]=strlen($L3);
|
|
if ($tabLen[3]>$norme) {
|
|
$L3=$this->normaliseRS($L3, $norme);
|
|
$tabLen[3]=strlen($L3); if ($tabLen[3]>$norme) $tabMaxLen[]=3;
|
|
}
|
|
$tabLen[4]=strlen($L4); if ($tabLen[4]>$norme) $tabMaxLen[]=4;
|
|
$tabLen[5]=strlen($L5); if ($tabLen[5]>$norme) $tabMaxLen[]=5;
|
|
$tabLen[6]=strlen($L6); if ($tabLen[6]>$norme) $tabMaxLen[]=6;
|
|
$tabLen[7]=strlen($L7); if ($tabLen[7]>$norme) $tabMaxLen[]=7;
|
|
if (count($tabMaxLen)>0) {
|
|
foreach($tabMaxLen as $j) {
|
|
//echo "La ligne n°$j fait ".$tabLen[$j]." caractères : '".$adrL[$j]."'".EOL;
|
|
}
|
|
//if ($j>1) die("Une des lignes fait plus de $norme caractères !".EOL);
|
|
return "Une des lignes fait plus de $norme caractères !".EOL;
|
|
}
|
|
|
|
$tabAdr=array( 'L1'=>$L1,
|
|
'L2'=>$L2,
|
|
'L3'=>$L3,
|
|
'L4'=>$L4,
|
|
'L5'=>$L5,
|
|
'L6'=>$L6,
|
|
'L7'=>$L7,
|
|
'HexaviaDateRef'=>$dateMajHexavia,
|
|
'HexaviaComCod'=>$hexaViaComCod,
|
|
'HexaviaComLib'=>$hexaViaComLib,
|
|
'HexaviaCP'=>$hexaViaCP,
|
|
'HexaVia56'=>$idAdr56,
|
|
'HexaViaVoie'=>$hexaViaVoie,
|
|
'HexaViaMat'=>$matriculeHexavia,
|
|
'RoudisId'=>$codeRoudis
|
|
);
|
|
|
|
return $tabAdr;
|
|
/*
|
|
if ($adresseNum=='' && $adresseBtq=='' && $adresseVoie=='' && $adresseRue=='' && $cp=='' && $ville=='')
|
|
return false;
|
|
|
|
$tabAdr=$this->structureVoie($adresseNum.' '.$adresseBtq.' '.$adresseVoie.' '.$adresseRue);
|
|
$num=$tabAdr['num']*1;
|
|
if ($num==0) return false;
|
|
$indRep=trim($tabAdr['indRep']);
|
|
$typeVoie=trim($tabAdr['typeVoie']);
|
|
$libVoie=trim(substr($tabAdr['libVoie'],-5));
|
|
|
|
$strAdrActive='';
|
|
if ($active) {
|
|
$strAdrActive.=" AND (enActif=1 OR etActif=1) AND nbEntrep>30 AND pasEntrepDom=0 AND siren>1000 ";
|
|
}
|
|
$tabTmp=$this->iDb->select('tabAdrDom',
|
|
'id, siren, nic, enActif, etActif, procol, nom, nom2, sigle, enseigne, adrNum, adrBtq, adrTypVoie, adrLibVoie, ville, cp, adrComp, adrDistSp, cj, apen, apet, nbEntrep, dateInsert, dateUpdate',
|
|
"adrNum=$num AND adrBtq='$indRep' AND adrTypVoie LIKE '%$typeVoie%' AND adrLibVoie LIKE '%$libVoie%' AND cp=$cp $strAdrActive GROUP BY siren ORDER BY enActif DESC, nbEntrep DESC", false, MYSQL_ASSOC);
|
|
if (count($tabTmp)>0) {
|
|
return $tabTmp;
|
|
}
|
|
*/
|
|
//return false;
|
|
}
|
|
|
|
/** Retourne le tableau des abbréviations existantes par type d'abréviation
|
|
*/
|
|
function getAbreviations($typeAbrev) {
|
|
$iDb=new WDB('villes');
|
|
$tabRet=array();
|
|
if ($typeAbrev=='P') {
|
|
$ret=$iDb->select( 'tabPrenoms',
|
|
"prenom",
|
|
"LENGTH(prenom)>3 AND nbTot>0 ORDER BY LENGTH(prenom) DESC",false, MYSQL_ASSOC);
|
|
foreach($ret as $iRet) {
|
|
$tabTmp=explode('-',$iRet['prenom']);
|
|
$tabTmp2=array();
|
|
foreach($tabTmp as $subPrenom)
|
|
$tabTmp2[]=substr($subPrenom,0,1);
|
|
$tabRet[$iRet['prenom']]=implode('-', $tabTmp2);
|
|
}
|
|
} else {
|
|
$ret=$iDb->select( 'tabAbreviations',
|
|
"abrCode, abrLib",
|
|
"abrType='$typeAbrev' AND dateSuppr=0 AND idSuppr=0 ORDER BY LENGTH(abrLib) DESC, LENGTH(abrCode) ASC",false, MYSQL_ASSOC);
|
|
foreach($ret as $iRet) {
|
|
$tabTmp=explode('/', $iRet['abrLib']);
|
|
foreach($tabTmp as $abrLib) {
|
|
if ($typeAbrev=='A')
|
|
$tabRet[$abrLib]='';
|
|
else
|
|
$tabRet[$abrLib]=$iRet['abrCode'];
|
|
}
|
|
}
|
|
}
|
|
//print_r($tabRet);die();
|
|
return $tabRet;
|
|
}
|
|
|
|
/** Normalise une raison sociale ou un nom
|
|
**/
|
|
function normaliseRS($nomLong, $taille=38) {
|
|
$nomCourt=preg_replace('/[^A-Z0-9%\'\"\-&\*\/\s]/','',trim(strtoupper($nomLong)));
|
|
$tabMots=split("[^[:alpha:]]+", $nomCourt);
|
|
$passage=0;
|
|
echo $nomCourt.EOL;
|
|
while (strlen($nomCourt)>$taille) {
|
|
// 1. Remplacement des Libellés de Voies par leurs code Voie
|
|
$tabTmp=$this->getAbreviations('V');
|
|
foreach ($tabTmp as $lib=>$abr) {
|
|
$nomCourt=trim(str_replace(" $lib".'ES ', ' '.$abr.' ', " $nomCourt "));
|
|
$nomCourt=trim(str_replace(" $lib".'E ', ' '.$abr.' ', " $nomCourt "));
|
|
$nomCourt=trim(str_replace(" $lib".'S ', ' '.$abr.' ', " $nomCourt "));
|
|
$nomCourt=trim(str_replace(" $lib ", ' '.$abr.' ', " $nomCourt "));
|
|
if (strlen($nomCourt)<=$taille) break;
|
|
}
|
|
echo "1-Voies=$nomCourt".EOL;
|
|
if (strlen($nomCourt)<=$taille) break;
|
|
|
|
//print_r($tabMots);
|
|
// 2. Remplacement des Titres par leurs abréviation
|
|
$tabTmp=$this->getAbreviations('T');
|
|
foreach ($tabTmp as $lib=>$abr) {
|
|
$nomCourt=trim(str_replace(" $lib".'ES ', ' '.$abr.' ', " $nomCourt "));
|
|
$nomCourt=trim(str_replace(" $lib".'E ', ' '.$abr.' ', " $nomCourt "));
|
|
$nomCourt=trim(str_replace(" $lib".'S ', ' '.$abr.' ', " $nomCourt "));
|
|
$nomCourt=trim(str_replace(" $lib ", ' '.$abr.' ', " $nomCourt "));
|
|
if (strlen($nomCourt)<=$taille) break;
|
|
}
|
|
echo "2a-Titres=$nomCourt".EOL;
|
|
if (strlen($nomCourt)<=$taille) break;
|
|
|
|
// 2. Remplacement des Formes Juridiques
|
|
$tabTmp=$this->getAbreviations('J');
|
|
foreach ($tabTmp as $lib=>$abr)
|
|
$nomCourt=trim(str_replace(" $lib ", ' '.$abr.' ', " $nomCourt "));
|
|
echo "2b-FJ=$nomCourt".EOL;
|
|
if (strlen($nomCourt)<=$taille) break;
|
|
|
|
// 4. Suppression des articles
|
|
$tabTmp=$this->getAbreviations('A');
|
|
foreach ($tabTmp as $lib=>$abr) {
|
|
if (strpos($lib,"'")>0)
|
|
$nomCourt=trim(str_replace(' '.$lib, ' ', " $nomCourt "));
|
|
else
|
|
$nomCourt=trim(str_replace(" $lib ", ' ', " $nomCourt "));
|
|
if (strlen($nomCourt)<=$taille) break;
|
|
}
|
|
echo "4-Articles=$nomCourt".EOL;
|
|
if (strlen($nomCourt)<=$taille) break;
|
|
|
|
// 3. Remplacement des Prénoms par leurs initiales
|
|
$tabTmp=$this->getAbreviations('P');
|
|
foreach ($tabTmp as $lib=>$abr) {
|
|
$nomCourt=trim(str_replace(" $lib ", ' '.$abr.' ', " $nomCourt "));
|
|
if (strlen($nomCourt)<=$taille) break;
|
|
}
|
|
echo "3-Prenoms=$nomCourt".EOL;
|
|
if (strlen($nomCourt)<=$taille) break;
|
|
|
|
$tabTmp=$this->getAbreviations('N');
|
|
foreach ($tabTmp as $lib=>$abr) {
|
|
$nomCourt=trim(str_replace(" $lib".'ES ', ' '.$abr.' ', " $nomCourt "));
|
|
$nomCourt=trim(str_replace(" $lib".'E ', ' '.$abr.' ', " $nomCourt "));
|
|
$nomCourt=trim(str_replace(" $lib".'S ', ' '.$abr.' ', " $nomCourt "));
|
|
$nomCourt=trim(str_replace(" $lib ", ' '.$abr.' ', " $nomCourt "));
|
|
if (strlen($nomCourt)<=$taille) break;
|
|
}
|
|
echo "5-Autres Noms=$nomCourt".EOL;
|
|
if (strlen($nomCourt)<=$taille) break;
|
|
|
|
$nomCourt=substr($nomCourt,0,$taille);
|
|
//die($nomCourt);
|
|
/** @todo A finir
|
|
Tronquer ou abréger dans cette ordre
|
|
- type de voie
|
|
- titres
|
|
- initiale du prénom
|
|
- supprimez les articles (mais pas les particules dans un nom propre)
|
|
- tronquer à 4 caractères les types de voie non normalisés
|
|
- tronquer les extensions de voie
|
|
- réduire le nom de la voie en supprimant les mots de la gauche vers la droite
|
|
|
|
Gérer les pluriels pour les voies, nom, titres, et formes juridiques
|
|
**/
|
|
$passage++;
|
|
}
|
|
return $nomCourt;
|
|
}
|
|
|
|
|
|
// Code Insee de la commune libCom32 Libellé de la commune (Ancienne norme 32) libCom38 Libellé
|
|
function getLibCommune($codeInsee, $norme=38) {
|
|
if ($norme<>32 && $norme<>38) {
|
|
return 'La norme doit être 32 ou 38 caractères (38 par défaut)'.EOL;
|
|
}
|
|
|
|
$iDb=new WDB('villes');
|
|
$ret=$iDb->select( 'hexaviaVilles',
|
|
"libCom32 , libCom38",
|
|
"codeInseeCom='$codeInsee' LIMIT 0,1",false, MYSQL_ASSOC);
|
|
$nbRet=count($ret);
|
|
if ($nbRet==0) return 'Aucune correspondance VILLE'.EOL;
|
|
|
|
if ($norme==32) return $ret[0]['libCom32'];
|
|
return $ret[0]['libCom38'];
|
|
}
|
|
}
|
|
|
|
?>
|