Suppression mode debug
This commit is contained in:
Michael RICOIS
parent
e7acd8f1ca
commit
99e1314b30
@ -7,7 +7,7 @@ require_once 'Metier/partenaires/classMLiens2.php';
|
||||
require_once 'Metier/scores/classMSolvabilite.php';
|
||||
require_once 'Metier/scores/classMRatios.php';
|
||||
|
||||
define('INDISCORE_DEBUG', true);
|
||||
define('INDISCORE_DEBUG', false);
|
||||
|
||||
/**
|
||||
* Return the history of previous stored IndiScores on the companies
|
||||
@ -926,7 +926,7 @@ function calculIndiScore($siren, $nic=0, $accesDist=false, $cycleClient=2, $mail
|
||||
|
||||
if (strtoupper(substr($tabIdentite['AutreId'],0,1))=='W') $WALDEC=$tabIdentite['AutreId'];
|
||||
else $WALDEC='';
|
||||
|
||||
|
||||
// AGE en mois
|
||||
if ($tabIdentite['DateCreaEt']>0 && $tabIdentite['DateCreaEt']<$tabIdentite['DateCreaEn'])
|
||||
$dateCrea=$tabIdentite['DateCreaEt'];
|
||||
@ -947,9 +947,9 @@ function calculIndiScore($siren, $nic=0, $accesDist=false, $cycleClient=2, $mail
|
||||
$tabBilans = $mBil->listeBilans($accesDist);
|
||||
$NBBILAN = count($tabBilans);
|
||||
if ($NBBILAN > 0) {
|
||||
|
||||
|
||||
$BILAN = $BILANp = $BILANp2 = $BILANp3 = $BILANp4 = 0;
|
||||
|
||||
|
||||
// --- Postes des bilans
|
||||
$i = 0;
|
||||
foreach ($tabBilans as $millesime => $item) {
|
||||
@ -965,9 +965,9 @@ function calculIndiScore($siren, $nic=0, $accesDist=false, $cycleClient=2, $mail
|
||||
$tabBilan[] = array_merge($tabN, $tabS);
|
||||
$i++;
|
||||
}
|
||||
|
||||
|
||||
$tabRegX[] = $item['millesime'];
|
||||
|
||||
|
||||
}
|
||||
|
||||
// --- Bilan le plus récent disponible
|
||||
@ -988,7 +988,7 @@ function calculIndiScore($siren, $nic=0, $accesDist=false, $cycleClient=2, $mail
|
||||
$nbMoisBilCumul += $nmp;
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
// --- Elements des 5 bilans les plus récent
|
||||
if (isset($tabBilan[2])) {
|
||||
$BILANDATEp2 = $tabBilan[2]['DATE_CLOTURE'];
|
||||
@ -1000,7 +1000,7 @@ function calculIndiScore($siren, $nic=0, $accesDist=false, $cycleClient=2, $mail
|
||||
$nbMoisBilCumul += $nmp2;
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
if (isset($tabBilan[3])) {
|
||||
$BILANDATEp3 = $tabBilan[3]['DATE_CLOTURE'];
|
||||
$BILANANNEEp3 = substr($BILANDATEp3,0,4)*1;
|
||||
@ -1011,7 +1011,7 @@ function calculIndiScore($siren, $nic=0, $accesDist=false, $cycleClient=2, $mail
|
||||
$nbMoisBilCumul += $nmp3;
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
if (isset($tabBilan[4])) {
|
||||
$BILANDATEp4 = $tabBilan[4]['DATE_CLOTURE'];
|
||||
$BILANANNEEp4 = substr($BILANDATEp4,0,4)*1;
|
||||
@ -1022,14 +1022,14 @@ function calculIndiScore($siren, $nic=0, $accesDist=false, $cycleClient=2, $mail
|
||||
//$nbMoisBilCumul+=$nmp4;
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
// Liste des années de bilans ultérieurs
|
||||
$BILANANNEE1 = $BILANANNEE + 1;
|
||||
$BILANANNEE2 = $BILANANNEE + 2;
|
||||
$BILANANNEE3 = $BILANANNEE + 3;
|
||||
$BILANANNEE4 = $BILANANNEE + 4;
|
||||
$BILANANNEE5 = $BILANANNEE + 5;
|
||||
|
||||
|
||||
// --- Calcul des ratios
|
||||
$mRatios = new MRatios();
|
||||
$mRatios->setTrancheEffectif($efftr);
|
||||
@ -1043,11 +1043,11 @@ function calculIndiScore($siren, $nic=0, $accesDist=false, $cycleClient=2, $mail
|
||||
$i2=0;
|
||||
if (count($tabRatios)>0) {
|
||||
foreach ($tabRatios as $i => $Ritem) {
|
||||
|
||||
|
||||
if (substr($tabBilan[$i]['DATE_CLOTURE'],0,4) > 1900){
|
||||
$tabAnnees[$i] = substr($tabBilan[$i]['DATE_CLOTURE'], 0, 4);
|
||||
}
|
||||
|
||||
|
||||
// Utilisation d'un index texte à cause du webservice
|
||||
foreach ($Ritem as $Ridx => $Rmont) {
|
||||
if ( ($tabBilan[$i]['CONSOLIDE']=='S' && isset($tabRatios[$i+1]) && ($tabBilan[$i+1]['CONSOLIDE']=='S'
|
||||
@ -1062,10 +1062,10 @@ function calculIndiScore($siren, $nic=0, $accesDist=false, $cycleClient=2, $mail
|
||||
|| ($tabBilan[$i+2]['CONSOLIDE']=='N'&&$tabBilan[$i+2]['DATE_CLOTURE']!=$tabBilan[$i]['DATE_CLOTURE'])))
|
||||
|| ($tabBilan[$i]['CONSOLIDE']=='N'&&isset($tabRatios[$i+1])&&($tabBilan[$i+2]['CONSOLIDE']=='N'
|
||||
|| ($tabBilan[$i+2]['CONSOLIDE']=='S'&&$tabBilan[$i+2]['DATE_CLOTURE']!=$tabBilan[$i]['DATE_CLOTURE']))) ) {
|
||||
|
||||
|
||||
$Rmont = (($tabRatios[$i][$Ridx]-$tabRatios[$i+2][$Ridx])*100)/abs($tabRatios[$i+2][$Ridx]);
|
||||
$Rdiffmont = $tabRatios[$i][$Ridx]-$tabRatios[$i+1][$Ridx];
|
||||
|
||||
|
||||
} else {
|
||||
$Rmont = 'NS';
|
||||
$Rdiffmont = 'NS';
|
||||
@ -1076,20 +1076,20 @@ function calculIndiScore($siren, $nic=0, $accesDist=false, $cycleClient=2, $mail
|
||||
$tabRatiosNew[$i2] = $tabRatios[$i];
|
||||
if ($tabBilan[$i]['CONSOLIDE']!='C') $i2++;
|
||||
}
|
||||
|
||||
|
||||
$R = $tabRatiosNew[0];
|
||||
$Rp = $tabRatiosNew[1];
|
||||
$Rp2= $tabRatiosNew[2]; // Ratios précédents N-2
|
||||
$Rp3= $tabRatiosNew[3]; // Ratios précédents N-2
|
||||
$Rp4= $tabRatiosNew[4]; // Ratios précédents N-4
|
||||
|
||||
|
||||
$Rdiff = $tabRatiosDiff[0];
|
||||
|
||||
|
||||
$Revol = $tabRatiosEvol[0];
|
||||
$Revolp = $tabRatiosEvol[1];
|
||||
$Revolp2 = $tabRatiosEvol[2];
|
||||
$Revolp3 = $tabRatiosEvol[3];
|
||||
|
||||
|
||||
}
|
||||
$timer['anbilans']=microtime(true);
|
||||
|
||||
@ -1111,15 +1111,15 @@ function calculIndiScore($siren, $nic=0, $accesDist=false, $cycleClient=2, $mail
|
||||
if ( is_array($regR) && array_key_exists($Rtmp['id'], $regR) ) {
|
||||
$regR[$Rtmp['id']] = array_reverse($regR[$Rtmp['id']]);
|
||||
}
|
||||
|
||||
|
||||
if ( is_array($regRs) && array_key_exists($Rtmp['id'], $regRs) ) {
|
||||
$regRs[$Rtmp['id']] = array_reverse($regRs[$Rtmp['id']]);
|
||||
}
|
||||
}
|
||||
// On renverse les tableaux 2008, 2007, 2006... en 2006, 2007, 2008
|
||||
$tabRegX = array_reverse($tabRegX);
|
||||
|
||||
|
||||
|
||||
|
||||
global $Y, $Yaff; // Tableau des années en paramètres + $nbAnnees Projetées
|
||||
global $PROJECTAUX; // Taux de projection de n à n+$nbAnnees
|
||||
global $PROJECCOEF;
|
||||
@ -1224,10 +1224,10 @@ function calculIndiScore($siren, $nic=0, $accesDist=false, $cycleClient=2, $mail
|
||||
$timer['ratiosecteur']=microtime(true);
|
||||
}
|
||||
|
||||
|
||||
|
||||
|
||||
$timer['regression']=microtime(true);
|
||||
|
||||
|
||||
/** Détection fine de l'état de fermeture éventuel à l'INSEE **/
|
||||
$tabTmp = $iDb->select('insee.insee_even', 'insEVE, insDATEVE',
|
||||
"insSIREN=$siren AND insEVE IN ('400','410','420','425','MPF','MNP') ORDER BY insDATEVE DESC",
|
||||
@ -2295,7 +2295,7 @@ function calculIndiScore($siren, $nic=0, $accesDist=false, $cycleClient=2, $mail
|
||||
} else {
|
||||
$PPNONDIFF=false;
|
||||
}
|
||||
|
||||
|
||||
/** Entreprise en Zone Prioritaire ? **/
|
||||
$ZONEPRI=false;
|
||||
$ZONEPRIZUS=$ZONEPRIAFR=$ZONEPRICUCS=$ZONEPRIZFU=$ZONEPRIZRR=$ZONEPRIZRU='';
|
||||
@ -2351,7 +2351,7 @@ function calculIndiScore($siren, $nic=0, $accesDist=false, $cycleClient=2, $mail
|
||||
$DIR2_FONC=$dir['Titre'];
|
||||
$DIR2_TYPE='PP';
|
||||
}
|
||||
|
||||
|
||||
$activeRechercheDir = true;
|
||||
if ($activeRechercheDir){
|
||||
$tabDir = $iInsee->rechercheDir($dir['Nom'], $dir['Prenom'], '', $dir['NaissDate'], '', 0, 200, 200);
|
||||
@ -2377,19 +2377,19 @@ function calculIndiScore($siren, $nic=0, $accesDist=false, $cycleClient=2, $mail
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
// Nombre d'entreprises maximum dirigé par un des dirigeants
|
||||
if ($nbFctDir>$NBDIRLIENS) $NBDIRLIENS=$nbFctDir;
|
||||
|
||||
|
||||
// Nombre de SCI maximum dirigé par un des dirigeants (inclus dans NBDIRLIENS)
|
||||
if ($nbFctDirSci>$NBDIRSCI) $NBDIRSCI=$nbFctDirSci;
|
||||
|
||||
|
||||
// Nombre de SCI maximum dirigé par un des dirigeants à l'adresse (inclus dans les autres NBDIR...)
|
||||
if ($nbFctDirSciAdr>$NBDIRSCIADR) $NBDIRSCIADR=$nbFctDirSciAdr;
|
||||
|
||||
|
||||
//@sendMail('production@scores-decisions.com', 'ylenaour@scores-decisions.com', "Indiscore sur $siren : Dirigeant $DIR_NB", print_r($tabDir, true));
|
||||
}
|
||||
|
||||
|
||||
switch ($dir['Cinf']) {
|
||||
case 11:
|
||||
case 12: // Interdiction de gérer ou FP en cours
|
||||
@ -2401,7 +2401,7 @@ function calculIndiScore($siren, $nic=0, $accesDist=false, $cycleClient=2, $mail
|
||||
if ($SCORECONF>50) $SCORECONF=50;
|
||||
$SCOREDIRI=30;
|
||||
if ($noteSolvabilite>35) $noteSolvabilite=35;
|
||||
|
||||
|
||||
}
|
||||
$ANNONCEINTERDIT++;
|
||||
$ANNONCEINTERDITDATE=$classWdate->dateT('d/m/Y','Y-m-d', $dir['DateFct']);
|
||||
@ -3253,7 +3253,7 @@ function calculIndiScore($siren, $nic=0, $accesDist=false, $cycleClient=2, $mail
|
||||
} else {
|
||||
$EFFECTIF_POPU = null;
|
||||
}
|
||||
|
||||
|
||||
// On filtre les ventes sur les entit<69>s similaires en terme de CA et effectif
|
||||
$filtreCAEff="";
|
||||
if ($tabIdentite['TrancheCA']*1==0) {
|
||||
@ -3261,13 +3261,13 @@ function calculIndiScore($siren, $nic=0, $accesDist=false, $cycleClient=2, $mail
|
||||
} else {
|
||||
$filtreCAEff.=" AND v.tca=".$tabIdentite['TrancheCA'].' ';
|
||||
}
|
||||
|
||||
|
||||
if ($tabIdentite['EffEnTr']*1==0) {
|
||||
$filtreCAEff.=" AND (v.teffEn=0 OR v.teffEn IS NULL) ";
|
||||
} else {
|
||||
$filtreCAEff.=" AND v.teffEn=".$tabIdentite['EffEnTr'].' ';
|
||||
}
|
||||
|
||||
|
||||
/** Ventes par villes, départements et France **/
|
||||
// Attention, arrondissements pour Paris, Lyon & Marseille
|
||||
//if ($codeCommuneInsee>=75000 && $codeCommuneInsee<76000)
|
||||
@ -3927,7 +3927,7 @@ function calculIndiScore($siren, $nic=0, $accesDist=false, $cycleClient=2, $mail
|
||||
'adresseDomPre' => $entrep['adresseDom'],
|
||||
'nbModifs' => $nbModifs,
|
||||
);
|
||||
|
||||
|
||||
//Sauvegarde et Historisation du score
|
||||
if ( $actionHisto == 'insert' )
|
||||
{
|
||||
|
||||
Loading…
Reference in New Issue
Block a user