445 lines
20 KiB
PHP
445 lines
20 KiB
PHP
|
<?php
|
||
|
|
/*
|
||
|
|
0 22 * * * /home/scores/batch/rapportsTextes.php -d >> /home/data/sources/log/rapportsTextesWeb.log
|
||
|
|
0 23 * * * /home/scores/batch/rapportsTextes.php -f >> /home/data/sources/log/rapportsTextesFtp.log
|
||
|
|
*/
|
||
|
|
require_once realpath(dirname(__FILE__)).'/includes/config.php';
|
||
|
|
|
||
|
|
include_once(FWK_PATH.'common/chiffres.php');
|
||
|
|
include_once(FWK_PATH.'common/dates.php');
|
||
|
|
include_once(INCLUDE_PATH.'conversion/bilAltares.php');
|
||
|
|
include_once(FWK_PATH.'mail/sendMail.php');
|
||
|
|
include_once(INCLUDE_PATH.'partenaires/classMLiens.php');
|
||
|
|
include_once(INCLUDE_PATH.'partenaires/classMBanques.php');
|
||
|
|
|
||
|
|
define ('FB_FTP_LOCALDIR', '/home/data/ftp/fransbonhomme/');
|
||
|
|
|
||
|
|
$tabCreation=array(
|
||
|
|
'a'=>'N/D',
|
||
|
|
'a1'=>'Création',
|
||
|
|
'a3'=>'Achat',
|
||
|
|
'a4'=>'Apport',
|
||
|
|
'a6'=>'Prise en location gérance',
|
||
|
|
'a7'=>'Partage',
|
||
|
|
'a8'=>'Reprise',
|
||
|
|
'aA'=>'Reprise globale de l\'exploitation agricole',
|
||
|
|
'aB'=>'Poursuite de l\'exploitation agricole par le conjoint',
|
||
|
|
'aC'=>'Transfert de propriété de l\'exploitation agricole',
|
||
|
|
'aD'=>'Apport d\'exploitation(s) agricole(s) individuelle(s)',
|
||
|
|
'aE'=>'Reprise d\'exploitation agricole individuelle',
|
||
|
|
);
|
||
|
|
|
||
|
|
$tabTypeExploitation = array(
|
||
|
|
0 => 'N/D',
|
||
|
|
1 => "Locataire du fond de commerce",
|
||
|
|
2 => "Loueur du fond de commerce",
|
||
|
|
3 => "Prestation de personnel",
|
||
|
|
10 => "Exploitation directe"
|
||
|
|
);
|
||
|
|
|
||
|
|
$strInfoScript='Usage : '.basename($argv[0]). " [OPTION]
|
||
|
|
Spécifique FransBonhomme : rapports textes suite à demande fichier
|
||
|
|
|
||
|
|
Options :
|
||
|
|
-d(:SSAAMMJJ) Envoi les rapports relatifs aux indiscore 2 et 3 de la journée courante ou depuis le SSAAMMJJ inclus
|
||
|
|
-f Traite l'ensemble des fichiers demandés par FTP non encore traités
|
||
|
|
-v Mode bavard
|
||
|
|
|
||
|
|
";
|
||
|
|
|
||
|
|
$tabFichLigneCmd=$tabDemandeFtp=array();
|
||
|
|
$numeroAbonneBil=$optionsIdBil='';
|
||
|
|
$modeDebug=false;
|
||
|
|
$demandeSite=false; // Demandes faites quotidiennement par le Site Extranet
|
||
|
|
$demandeFtp=false; // Demandes faites quotidiennement par le Ftp
|
||
|
|
$iInsee=new MInsee();
|
||
|
|
$iDb=new WDB();
|
||
|
|
$iDb2=new WDB('sdv1');
|
||
|
|
|
||
|
|
$argv=$_SERVER['argv'];
|
||
|
|
for ($i=1; isset($argv[$i]); $i++) {
|
||
|
|
if (substr($argv[$i],0,1)=='-') {
|
||
|
|
switch (substr($argv[$i],1,1)) {
|
||
|
|
case 'd': $demandeSite=true;
|
||
|
|
$dateDemandes=substr($argv[$i],3)*1; break;
|
||
|
|
case 'f': $demandeFtp=true; break;
|
||
|
|
case 'v': $modeDebug=true; break;
|
||
|
|
case '-':
|
||
|
|
case '?': die($strInfoScript); break;
|
||
|
|
default: die('Option '. $argv[$i] . " inconnue !\n"); break;
|
||
|
|
}
|
||
|
|
} else $tabFichLigneCmd[]=$argv[$i];
|
||
|
|
}
|
||
|
|
/*
|
||
|
|
if ($numeroAbonneBil*1==0) {
|
||
|
|
echo date ('Y/m/d - H:i:s') . " - Numéro d'abonnée BIL manquant !".EOL;
|
||
|
|
if (!$forceContinue) die();
|
||
|
|
}
|
||
|
|
if ($optionsIdBil=='') {
|
||
|
|
echo date ('Y/m/d - H:i:s') . " - Type de fiche identité BIL absente, fiche Identifiant utilisée par défaut !".EOL;
|
||
|
|
$optionsIdBil='I';
|
||
|
|
}
|
||
|
|
|
||
|
|
if (count($tabFichLigneCmd)==0) die(date ('Y/m/d - H:i:s') . " - Aucun fichier S&D à convertir en BIL/SO2000 !".EOL);
|
||
|
|
*/
|
||
|
|
$message='';
|
||
|
|
|
||
|
|
if ($demandeSite) {
|
||
|
|
if ($dateDemandes<20110101)
|
||
|
|
$dateDemandes=date('Ymd');
|
||
|
|
|
||
|
|
$fichierJour=FB_FTP_LOCALDIR.'recv/extranet'.$dateDemandes;
|
||
|
|
$strDates='AND dateHeure>='.$dateDemandes.'000000';
|
||
|
|
|
||
|
|
$tabTmp=$iDb->select( 'sdv1.`logs` l, sdv1.utilisateurs u',
|
||
|
|
'siren, dateHeure',
|
||
|
|
"l.login=u.login AND u.login<>'fransbonrapports' AND u.idClient=93 AND l.page IN ('indiscore2','indiscore3') $strDates", false, MYSQL_ASSOC);
|
||
|
|
echo date ('Y/m/d - H:i:s') . " - Nombre de rapports 1 et 2 sur l'extranet : ".count($tabTmp).EOL;
|
||
|
|
print_r($tabTmp);
|
||
|
|
$strDemandes='';
|
||
|
|
foreach ($tabTmp as $i=>$demande)
|
||
|
|
$strDemandes.=$demande['siren'].' '.EOL;
|
||
|
|
|
||
|
|
file_put_contents($fichierJour, $strDemandes);
|
||
|
|
$tabFichLigneCmd[]=$fichierJour;
|
||
|
|
}
|
||
|
|
|
||
|
|
if ($demandeFtp) {
|
||
|
|
$dh = opendir(FB_FTP_LOCALDIR.'send/');
|
||
|
|
while (false !== ($filename = readdir($dh))) {
|
||
|
|
if ($filename<>'.' && $filename<>'..') {
|
||
|
|
if (strtolower(substr($filename,-4))=='.txt') {
|
||
|
|
$tailleOctets=filesize(FB_FTP_LOCALDIR.'send/'.$filename);
|
||
|
|
if ($tailleOctets>9) {
|
||
|
|
$tabFichLigneCmd[]=FB_FTP_LOCALDIR.'send/'.$filename;
|
||
|
|
$tabDemandeFtp[FB_FTP_LOCALDIR.'send/'.$filename]=FB_FTP_LOCALDIR.'recv/'.$filename.'.out';
|
||
|
|
} else
|
||
|
|
echo date ('Y/m/d - H:i:s') . " - Attention, la taille du fichier '$filename' est incohérente ($tailleOctets octets)!".EOL;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
for ($iFic=0; isset($tabFichLigneCmd[$iFic]); $iFic++)
|
||
|
|
{
|
||
|
|
$fichierIn=$tabFichLigneCmd[$iFic];
|
||
|
|
|
||
|
|
if (!file_exists($fichierIn)) die("Erreur fichier '$fichierIn' inexistant !".EOL);
|
||
|
|
$dateIn=date("dmy", filemtime($fichierIn));
|
||
|
|
|
||
|
|
$tabLignesIn=file($fichierIn);
|
||
|
|
echo date ('Y/m/d - H:i:s') . " - Nombre de lignes du fichier '$fichierIn' : ".count($tabLignesIn).EOL;
|
||
|
|
foreach ($tabLignesIn as $iLigne=>$ligne) {
|
||
|
|
$siren=substr($ligne, 0, 9);
|
||
|
|
if (!$iInsee->valideSiren($siren)) continue;
|
||
|
|
$ref =substr($ligne, 9, 10);
|
||
|
|
echo "$fichierIn\t$siren\t$ref".EOL;
|
||
|
|
|
||
|
|
if (!$iDb->insert('scores_surveillance', array('siren'=>$siren))) {
|
||
|
|
if (mysql_errno()==1062) continue;
|
||
|
|
die('Erreur SQL #'.mysql_errno().':'.mysql_error().EOL);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
$fichierOut=$fichierIn.'.out';
|
||
|
|
echo date ('Y/m/d - H:i:s') . " - Génération du fichier '$fichierOut'...".EOL;
|
||
|
|
$dateOut=date("dmy");
|
||
|
|
|
||
|
|
foreach ($tabLignesIn as $iLigne=>$ligne) {
|
||
|
|
$siren=substr($ligne, 0, 9);
|
||
|
|
$ref =substr($ligne, 9, 10);
|
||
|
|
if ($iInsee->valideSiren($siren)) {
|
||
|
|
$tabId=@$iInsee->getIdentiteEntreprise($siren,0,0,false,false);
|
||
|
|
$tabIndiscore=@calculIndiScore($siren, 0, false, 3, false);
|
||
|
|
// calculIndiScore($siren, $nic=0, $accesDist=false, $cycleClient=2, $mailDebug=true) {
|
||
|
|
$siretOut=$tabId['SiretSiege'];
|
||
|
|
$tabTmp=$iDb->select('scores_surveillance',
|
||
|
|
'siren, actif, procol, indiScore, indiScore20, encours, indiScoreDate, dateBilan, indiScorePre, indiScore20Pre, encoursPre, indiScoreDatePre, sourceModif, nbModifs, dateUpdate',
|
||
|
|
"siren=$siren AND indiScoreDate>0 AND indiScore>0", false, MYSQL_ASSOC); // AND indiscore>0 ajouté car bug sur procol en histo
|
||
|
|
if (@$tabTmp[0]['siren']*1==$siren) {
|
||
|
|
echo "$siren, demande le $dateIn, calcul le ".@$tabTmp[0]['dateUpdate'].EOL;
|
||
|
|
$tabScore=$tabTmp[0];
|
||
|
|
$note=$tabScore['indiScore20'];
|
||
|
|
$encours=round($tabScore['encours']/1000)*1000;
|
||
|
|
} else {
|
||
|
|
echo "$siren, demande le $dateIn, pas de calcul !".EOL;
|
||
|
|
//$tabIndiscore=@calculIndiScore($siren, 0, false, 0, false);
|
||
|
|
$note=$tabIndiscore['Indiscore20'];
|
||
|
|
$encours=round($tabIndiscore['encours']/1000)*1000;
|
||
|
|
}
|
||
|
|
} else {
|
||
|
|
// Siren Faux
|
||
|
|
$siretOut=$note=$encours=0;
|
||
|
|
}
|
||
|
|
$siretIn=$siren.'00000';
|
||
|
|
|
||
|
|
$entete ='02';
|
||
|
|
$entete.=initstr($siretIn, 14, '0', ALIGN_RIGHT); // SIRET demandé
|
||
|
|
$entete.=initstr($siretOut, 14, '0', ALIGN_RIGHT); // SIRET réponse
|
||
|
|
$entete.=initstr($ref, 10); // Référence FransBonhomme
|
||
|
|
$entete.=initstr($dateIn, 6, '0', ALIGN_RIGHT); // Date demande
|
||
|
|
$entete.=initstr($dateOut, 6, '0', ALIGN_RIGHT); // Date réponse
|
||
|
|
$entete.=initstr($note, 2, '0', ALIGN_RIGHT); // Note
|
||
|
|
$entete.=initstr('', 2); // Filler 1
|
||
|
|
$entete.=initstr($encours, 6, '0', ALIGN_RIGHT); // Encours en euros sans décimale
|
||
|
|
$entete.=initstr('00000004S et D', 63); // 7x0 + 4 (code Sté) + Nom Sté RC
|
||
|
|
|
||
|
|
echo $entete.EOL;
|
||
|
|
$rapport =initstr('', 80).EOL;
|
||
|
|
$rapport.=initstr(' '.$tabId['Nom'], 80).EOL;
|
||
|
|
$rapport.=initstr(' '.$tabId['Nom2'].' '.$tabId['Sigle'].' '.$tabId['Enseigne'],80).EOL;
|
||
|
|
$rapport.=initstr(' '.preg_replace('/^0+/','',$tabId['Adresse']), 50).
|
||
|
|
initstr(' TEL : '.preg_replace('/[^0-9]/','',$tabId['Tel']), 30).EOL;
|
||
|
|
if (trim($tabId['Adresse2'])<>'')
|
||
|
|
$rapport.=initstr(' '.$tabId['Adresse2'], 80).EOL;
|
||
|
|
$rapport.=initstr(' '.$tabId['CP'].' '.$tabId['Ville'], 50).
|
||
|
|
initstr(' FAX : '.preg_replace('/[^0-9]/','',$tabId['Fax']), 30).EOL;
|
||
|
|
if ($tabId['PaysIso2']<>'FR')
|
||
|
|
$rapport.=initstr(' '.$tabId['Pays'], 80).EOL;
|
||
|
|
if (trim($tabId['Web'])<>'')
|
||
|
|
$rapport.=initstr(' WEB : '.$tabId['Web'], 80).EOL;
|
||
|
|
if (trim($tabId['Mail'])<>'')
|
||
|
|
$rapport.=initstr(' MEL : '.$tabId['Mail'], 80).EOL;
|
||
|
|
$rapport.=initstr('', 80).EOL;
|
||
|
|
$rapport.=initstr('SIRET : '. substr($tabId['SiretSiege'],0,3).' '.
|
||
|
|
substr($tabId['SiretSiege'],3,3).' '.
|
||
|
|
substr($tabId['SiretSiege'],6,3).' '.
|
||
|
|
substr($tabId['SiretSiege'],9,5).' '.
|
||
|
|
' RCS : '.$tabId['numRC'].' '.
|
||
|
|
preg_replace('/^(TC |TI |TGI |TGIcc )/i','',$tabId['TribunalLib']), 80).EOL;
|
||
|
|
|
||
|
|
/** Situation Juridique **/
|
||
|
|
$dateRadiation=$tabId['dateRad'];
|
||
|
|
$situationjuridique=$tabId['SituationJuridique'];
|
||
|
|
$libSituation='';
|
||
|
|
if (in_array(substr($situationjuridique,0,1), array('P', 'R')) )
|
||
|
|
{
|
||
|
|
if(isset($dateRadiation) && $dateRadiation!='' && $dateRadiation!='0000-00-00'){
|
||
|
|
$dateRad = WDate::dateT('Ymd', 'd/m/Y', str_replace('-','',$dateRadiation));
|
||
|
|
}
|
||
|
|
if ($situationjuridique=='P')
|
||
|
|
{
|
||
|
|
$libSituation.= 'En procédure collective';
|
||
|
|
if($dateRad!=''){ $libSituation.= 'Radié du RCS le '.$dateRad; }
|
||
|
|
}
|
||
|
|
//Radiation
|
||
|
|
if($situationjuridique=='RR')
|
||
|
|
{
|
||
|
|
$libSituation.= 'Radié du RCS';
|
||
|
|
if($dateRad!=''){ $libSituation.= ' le '.$dateRad; }
|
||
|
|
}elseif($situationjuridique=='RP'){
|
||
|
|
$libSituation.= 'Radiation publiée';
|
||
|
|
if($dateRad!=''){ $libSituation.= ' le '.$dateRad; }
|
||
|
|
}
|
||
|
|
|
||
|
|
}
|
||
|
|
elseif($tabId['EntActiveRCS']==1)
|
||
|
|
$libSituation.= 'Actif au RCS';
|
||
|
|
$rapport.=initstr('', 80).EOL;
|
||
|
|
$rapport.=initstr('SITUA. JUR.: '.$libSituation, 80).EOL;//@todo multiligne
|
||
|
|
|
||
|
|
$rapport.=initstr('', 80).EOL;
|
||
|
|
$rapport.=initstr('FORME JUR. : '.$tabId['FJ'].' '.$tabId['FJ_lib'], 80).EOL;//@todo multiligne
|
||
|
|
|
||
|
|
if ($tabId['Capital']>0) {
|
||
|
|
$rapport.=initstr('', 80).EOL;
|
||
|
|
$rapport.=initstr('CAPITAL : '.number_format($tabId['Capital'],0,'.',' ').' '.$tabId['CapitalDev'], 80).EOL;
|
||
|
|
}
|
||
|
|
$rapport.=initstr('', 80).EOL;
|
||
|
|
$dateImm=str_replace('-','',$tabId['dateImmat']);
|
||
|
|
if (substr($dateImm,0,4)*1==0) $dateImm=$tabId['DateCreaEn'];
|
||
|
|
if (substr($dateImm,0,4)*1==0) $dateImm=$tabId['DateCreaEt'];
|
||
|
|
$rapport.=initstr('CREATION : '.WDate::dateT('Ymd','M Y',$dateImm), 80).EOL;
|
||
|
|
$rapport.=initstr('', 80).EOL;
|
||
|
|
$rapport.=initstr('CODE NAF : '.$tabId['NafEnt'].' '.$tabId['NafEntLib'], 80).EOL;//@todo multiligne
|
||
|
|
$rapport.=initstr('', 80).EOL;
|
||
|
|
$rapport.=initstr('ACTIVITE : ',80).EOL;
|
||
|
|
$rapport.=wordwrap($tabId['Activite'], 80, EOL).EOL;//@todo multiligne
|
||
|
|
$rapport.=initstr('', 80).EOL;
|
||
|
|
$rapport.=initstr('ORIGINE DU FOND : '.$tabCreation['a'.$tabId['OrigineCreation']], 80).EOL;//@todo multiligne
|
||
|
|
$rapport.=initstr('', 80).EOL;
|
||
|
|
$rapport.=initstr('TYPE D\'EXPLOITATION : '.$tabTypeExploitation[$tabId['TypeExploitation']*1], 80).EOL;//@todo multiligne
|
||
|
|
$rapport.=initstr('', 80).EOL;
|
||
|
|
|
||
|
|
$nbEts=($tabId['NbEtab']*1)-1;
|
||
|
|
if ($nbEts<0) $nbEts=0;
|
||
|
|
$rapport.=initstr('NOMBRE D\'ETABLISSEMENTS SECONDAIRES : '.$nbEts, 80).EOL;
|
||
|
|
$rapport.=initstr('', 80).EOL;
|
||
|
|
$rapport.=initstr('DIRIGEANT 1: '.strtoupper($tabId['dir1Titre']), 80).EOL;
|
||
|
|
if (substr($tabId['dir1DateNaiss'],0,4)*1==0) $strNaiss='';
|
||
|
|
else $strNaiss=' né(e) le '.WDate::dateT('Y-m-d','d/m/Y',$tabId['dir1DateNaiss']);
|
||
|
|
$rapport.=initstr(' '.$tabId['dir1NomPrenom'].$strNaiss,80).EOL;
|
||
|
|
$rapport.=initstr('DIRIGEANT 2: '.strtoupper($tabId['dir2Titre']), 80).EOL;
|
||
|
|
if (substr($tabId['dir2DateNaiss'],0,4)*1==0) $strNaiss='';
|
||
|
|
else $strNaiss=' né(e) le '.WDate::dateT('Y-m-d','d/m/Y',$tabId['dir2DateNaiss']);
|
||
|
|
$rapport.=initstr(' '.$tabId['dir2NomPrenom'].$strNaiss,80).EOL;
|
||
|
|
$rapport.=initstr('', 80).EOL;
|
||
|
|
|
||
|
|
$rapport.=initstr('GARANTIES',80).EOL; /**@todo MORE*/
|
||
|
|
$tabBilans=$tabIndiscore['tabBilan'];
|
||
|
|
$devise=$tabBilans[0]['MONNAIE'];
|
||
|
|
//print_r($tabIndiscore);die();
|
||
|
|
if (($tabIndiscore['NbBilansScore']*1)==0) {
|
||
|
|
$rapport.=initstr(' Néant',80).EOL;
|
||
|
|
$rapport.=initstr('', 80).EOL;
|
||
|
|
$rapport.=initstr('ELEMENTS FINANCIERS', 80).EOL;
|
||
|
|
$rapport.=initstr(' Néant',80).EOL;
|
||
|
|
} else {
|
||
|
|
$rapport.=initstr(' Elles sont représentées par la valeur brute au bilan',80).EOL;
|
||
|
|
$rapport.=initstr(' du fonds de commerce pour un montant de : '.sprintf("%27s", number_format($tabBilans[0]['AH'], 0, ',', ' '))." $devise",80).EOL;
|
||
|
|
$rapport.=initstr(' des constructions pour un montant de : '.sprintf("%27s", number_format($tabBilans[0]['AP'], 0, ',', ' '))." $devise",80).EOL;
|
||
|
|
$rapport.=initstr('', 80).EOL;
|
||
|
|
|
||
|
|
$rapport.=initstr("ELEMENTS FINANCIERS (SOMMES EN $devise)", 80).EOL;
|
||
|
|
$rapport.=initstr(' '. WDate::dateT('Ymd','d/m/Y',$tabBilans[0]['DATE_CLOTURE'])
|
||
|
|
.' '. WDate::dateT('Ymd','d/m/Y',$tabBilans[1]['DATE_CLOTURE'])
|
||
|
|
.' '. WDate::dateT('Ymd','d/m/Y',$tabBilans[2]['DATE_CLOTURE']), 80).EOL;
|
||
|
|
$rapport.=initstr(' '. $tabBilans[0]['DUREE_MOIS'].' mois'
|
||
|
|
.' '. $tabBilans[1]['DUREE_MOIS'].' mois'
|
||
|
|
.' '. $tabBilans[2]['DUREE_MOIS'].' mois', 80).EOL;
|
||
|
|
$rapport.=initstr('CA : '. sprintf("%14s", number_format($tabBilans[0]['FL'], 0, ',', ' '))
|
||
|
|
.' '. sprintf("%14s", number_format($tabBilans[1]['FL'], 0, ',', ' '))
|
||
|
|
.' '. sprintf("%14s", number_format($tabBilans[2]['FL'], 0, ',', ' ')), 80).EOL;
|
||
|
|
$rapport.=initstr('CA EXPORT : '. sprintf("%14s", number_format($tabBilans[0]['FK'], 0, ',', ' '))
|
||
|
|
.' '. sprintf("%14s", number_format($tabBilans[1]['FK'], 0, ',', ' '))
|
||
|
|
.' '. sprintf("%14s", number_format($tabBilans[2]['FK'], 0, ',', ' ')), 80).EOL;
|
||
|
|
$rapport.=initstr('RESULTAT COURANT : '. sprintf("%14s", number_format($tabBilans[0]['GW'], 0, ',', ' '))
|
||
|
|
.' '. sprintf("%14s", number_format($tabBilans[1]['GW'], 0, ',', ' '))
|
||
|
|
.' '. sprintf("%14s", number_format($tabBilans[2]['GW'], 0, ',', ' ')), 80).EOL;
|
||
|
|
$rapport.=initstr('RESULTAT NET : '. sprintf("%14s", number_format($tabBilans[0]['HN'], 0, ',', ' '))
|
||
|
|
.' '. sprintf("%14s", number_format($tabBilans[1]['HN'], 0, ',', ' '))
|
||
|
|
.' '. sprintf("%14s", number_format($tabBilans[2]['HN'], 0, ',', ' ')), 80).EOL;
|
||
|
|
$rapport.=initstr('FONDS PROPRES : '. sprintf("%14s", number_format($tabBilans[0]['DL'], 0, ',', ' '))
|
||
|
|
.' '. sprintf("%14s", number_format($tabBilans[1]['DL'], 0, ',', ' '))
|
||
|
|
.' '. sprintf("%14s", number_format($tabBilans[2]['DL'], 0, ',', ' ')), 80).EOL;
|
||
|
|
$rapport.=initstr('FRAIS FINANCIERS : '. sprintf("%14s", number_format($tabBilans[0]['GU'], 0, ',', ' '))
|
||
|
|
.' '. sprintf("%14s", number_format($tabBilans[1]['GU'], 0, ',', ' '))
|
||
|
|
.' '. sprintf("%14s", number_format($tabBilans[2]['GU'], 0, ',', ' ')), 80).EOL;
|
||
|
|
$rapport.=initstr('TOTAL DETTES : '. sprintf("%14s", number_format($tabBilans[0]['EC'], 0, ',', ' '))
|
||
|
|
.' '. sprintf("%14s", number_format($tabBilans[1]['EC'], 0, ',', ' '))
|
||
|
|
.' '. sprintf("%14s", number_format($tabBilans[2]['EC'], 0, ',', ' ')), 80).EOL;
|
||
|
|
$rapport.=initstr('EFFECTIFS : '. sprintf("%14s", number_format($tabBilans[0]['YP'], 0, ',', ' '))
|
||
|
|
.' '. sprintf("%14s", number_format($tabBilans[1]['YP'], 0, ',', ' '))
|
||
|
|
.' '. sprintf("%14s", number_format($tabBilans[2]['YP'], 0, ',', ' ')), 80).EOL;
|
||
|
|
}
|
||
|
|
|
||
|
|
$rapport.=initstr('', 80).EOL;
|
||
|
|
$rapport.=initstr('PARTENAIRES FINANCIERS', 80).EOL;
|
||
|
|
$mBanque=new MBanques();
|
||
|
|
$tabBanque=@$mBanque->getListeBanques($siren);
|
||
|
|
if (count($tabBanque)==0)
|
||
|
|
$rapport.=initstr(' Aucun partenaire n\'est référencé dans notre base.',80).EOL;
|
||
|
|
else {
|
||
|
|
foreach ($tabBanque as $i=>$lien) {
|
||
|
|
$rapport.=initstr(' '.$lien['libBanque'], 80).EOL;
|
||
|
|
if ($i>=3) break;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
/** § ANNONCES **/
|
||
|
|
$bodc=false;
|
||
|
|
$nbAnn=0;
|
||
|
|
$tabAnn=$iInsee->getAnnoncesLegales($siren);
|
||
|
|
$rapport.=initstr('', 80).EOL;
|
||
|
|
$rapport.=initstr('ANNONCES LEGALES', 80).EOL;
|
||
|
|
if (count($tabAnn)>0) {
|
||
|
|
foreach ($tabAnn as $i=>$depot) {
|
||
|
|
$annDate=WDate::dateT('Y-m-d','d/m/Y',$depot['DateParution']);
|
||
|
|
foreach ($depot['evenements'] as $even) {
|
||
|
|
$annEve=$even['CodeEven'];
|
||
|
|
if ($annEve>=3000 && $annEve<4000) {
|
||
|
|
if ($bodc) continue;
|
||
|
|
$bodc=true;
|
||
|
|
}
|
||
|
|
$annLib=$even['LibEven'];
|
||
|
|
$rapport.=initstr(" $annDate $annLib",80).EOL;
|
||
|
|
$annDate=' ';
|
||
|
|
}
|
||
|
|
$nbAnn++;
|
||
|
|
if ($nbAnn>=6) break;
|
||
|
|
}
|
||
|
|
} else
|
||
|
|
$rapport.=initstr(' Aucune annonce pour cette entreprise.',80).EOL;
|
||
|
|
|
||
|
|
/** § dirigeance **/
|
||
|
|
$rapport.=initstr('', 80).EOL;
|
||
|
|
$rapport.=initstr('DIRIGEANCE', 80).EOL;
|
||
|
|
$mLiens=new MLiens($siren);
|
||
|
|
$tabAct=$mLiens->getActionnaires($siren);
|
||
|
|
$tabPart=$mLiens->getParticipations($siren);
|
||
|
|
if (count($tabAct)==0 && count($tabPart)==0)
|
||
|
|
$rapport.=initstr(' A notre connaissance, l\'entreprise est indépendante.',80).EOL;
|
||
|
|
else {
|
||
|
|
foreach ($tabAct as $i=>$lien) {
|
||
|
|
$rapport.=initstr(' ACTIONNAIRE à '.$lien['Pmin'].' % : '.$lien['RaisonSociale'].' ('.$lien['Siren'].')', 80).EOL;
|
||
|
|
if ($i>=3) break;
|
||
|
|
}
|
||
|
|
foreach ($tabPart as $i=>$lien) {
|
||
|
|
$rapport.=initstr(' FILIALE à '.$lien['Pmin'].' % : '.$lien['RaisonSociale'].' ('.$lien['Siren'].')', 80).EOL;
|
||
|
|
if ($i>=3) break;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
$rapport.=initstr('', 80).EOL;
|
||
|
|
|
||
|
|
/** § commentaires **/
|
||
|
|
$nbLiP=$nbLiM=0;
|
||
|
|
foreach ($tabIndiscore['tabCommentaires'] as $i=>$txt) {
|
||
|
|
if ($i==5000) continue;
|
||
|
|
if ($i==10000700 || $i==10000800 || $i==10001000)
|
||
|
|
$rapport.=initstr('', 80).EOL;
|
||
|
|
$ligneLiP=$ligneLiM=false;
|
||
|
|
if (preg_match('/LI\+/i', $txt)) { $ligneLiP=true; $nbLiP++; }
|
||
|
|
elseif (preg_match('/LI\-/i', $txt)) { $ligneLiM=true; $nbLiM++; }
|
||
|
|
if (($nbLiP>5 && $ligneLiP) || ($nbLiM>5 && $ligneLiM))
|
||
|
|
continue;
|
||
|
|
$rapport.=wordwrap(strip_tags(strtr(html_entity_decode($txt, ENT_QUOTES),
|
||
|
|
array('<LI+>'=>'+','<LI->'=>'-',' '=>' ','€'=>'E'))),80,EOL).EOL;
|
||
|
|
}
|
||
|
|
//unsetGlobals();
|
||
|
|
//print_r($tabIndiscore['tabCommentaires']);
|
||
|
|
//die();
|
||
|
|
|
||
|
|
/** § scoring **/
|
||
|
|
if ($tabIndiscore['Indiscore20']==0) $strTendance='';
|
||
|
|
else $strTendance=' (Tendance '.$tabIndiscore['TendanceIndiscore'].')';
|
||
|
|
$rapport.=initstr('', 80).EOL;
|
||
|
|
$rapport.=initstr('COTATION INDISCORE : '.$tabIndiscore['Indiscore20'].'/20 '.$strTendance, 80).EOL;
|
||
|
|
$rapport.=initstr('', 80).EOL;
|
||
|
|
$rapport.=initstr('LIMITE DE CREDIT : '.(round($tabIndiscore['encours']/1000)*1000).' EUR', 80).EOL;
|
||
|
|
|
||
|
|
$rapport.=initstr('', 80).EOL;
|
||
|
|
$rapport.=initstr('', 80).EOL;
|
||
|
|
$rapport.=initstr('', 80).EOL;
|
||
|
|
|
||
|
|
echo $rapport;
|
||
|
|
//die(print_r($tabIndiscore));
|
||
|
|
file_put_contents($fichierOut, $entete.EOL.$rapport, FILE_APPEND);
|
||
|
|
|
||
|
|
if ($demandeFtp) {
|
||
|
|
$iDb2->insert('logs', array('login' =>'fransbonrapports',
|
||
|
|
'page' =>'indiscore3',
|
||
|
|
'siren' =>$siren,
|
||
|
|
'nic' =>substr($siretOut,9,5),
|
||
|
|
'params'=>'',
|
||
|
|
'dateHeure'=>date('YmdHis')));
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
if (isset($tabDemandeFtp[$fichierIn])) {
|
||
|
|
if (move($fichierOut,$tabDemandeFtp[$fichierIn]))
|
||
|
|
unlink($fichierIn);
|
||
|
|
else {
|
||
|
|
echo date ('Y/m/d - H:i:s')." - Erreur lors du déplacement du fichier $fichierOut vers ".$tabDemandeFtp[$fichierIn].EOL;
|
||
|
|
die();
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
if ($fichierJour<>'') unlink($fichierJour);
|
||
|
|
|
||
|
|
//sendMail('infoslegales@scores-decisions.com', 'ylenaour@scores-decisions.com', "Surveillance Annonces Legales SOFID", "Conversion terminée. Penser à déposer le fichier !!!");
|
||
|
|
|
||
|
|
echo date ('Y/m/d - H:i:s')." - Fin du traitement !" . EOL;
|
||
|
|
die();
|
||
|
|
//define ('FB_FTP_LOCALDIR', '/home/data/ftp/fransbonhomme/');
|
||
|
|
?>
|