scores/batch
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

FRANSBONHOMME : Modification du traitement avec nouvel gestion des flux

Browse Source
This commit is contained in:
Michael RICOIS 2014-10-01 08:57:43 +00:00
parent 98a724ebff
commit e4f9323611
1 changed files with 411 additions and 408 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

819
scripts/rapportsTextes.php
View File

@ -50,6 +50,36 @@ $application = new Zend_Application(
$c = new Zend_Config($application->getOptions());
// Stockage Client => SD
$pathClientSend = '/home/data/clients/fransbonhomme/send';
// Stockage SD => Client
$pathClientRecv = '/home/data/clients/fransbonhomme/recv';
$pathFtpRecv = '/home/data/ftp/fransbonhomme/recv';
//Options
try {
$opts = new Zend_Console_Getopt(array(
'help|?' => "Displays usage information.",
'site-s' => "Rapports relatifs aux indiscore 2 et 3 de la journée courante ou depuis le SSAAMMJJ inclus",
'ftp' => "Traitement des demandes par ftp",
'file' => "Spécification du fichier de demande",
'verbose|v' => "Mode bavard ou debug",
));
$opts->parse();
} catch (Zend_Console_Getopt_Exception $e) {
echo $e->getUsageMessage();
exit;
}
//Usage
if( isset($opts->help) || count($opts->getOptions())==0 )
{
echo "\n"."Spécifique FransBonhomme : rapports textes suite à demande fichier."."\n\n";
echo $opts->getUsageMessage();
exit;
}
$db = Zend_Db::factory($c->profil->db->metier);
Zend_Db_Table::setDefaultAdapter($db);
@ -63,13 +93,6 @@ require_once 'Metier/partenaires/classMBanques.php';
require_once 'Metier/insee/classMInsee.php';
require_once 'Metier/scores/classMScores.php';
// Stockage SD => Client
$pathFtpSend = '/home/data/ftp/fransbonhomme/send';
$pathClientSend = '/home/data/clients/fransbonhomme/send';
// Stockage Client => SD
$pathFtpRecv = '/home/data/ftp/fransbonhomme/recv';
$pathClientRecv = '/home/data/clients/fransbonhomme/recv';
$tabCreation = array(
'a'=>'N/D',
'a1' => 'Création',
@ -94,58 +117,25 @@ $tabTypeExploitation = array(
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
-t Mode test (chemin du fichier)
-v Mode bavard
";
$tabFichLigneCmd=$tabDemandeFtp=array();
$numeroAbonneBil=$optionsIdBil='';
$tabFichLigneCmd=array();
$modeDebug=false;
$modeTest=false;
$demandeSite=false; // Demandes faites quotidiennement par le Site Extranet
$demandeFtp=false; // Demandes faites quotidiennement par le Ftp
$iDb=new WDB();
$iInsee=new MInsee($iDb);
$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 't': $modeTest=true; $modeDebug=true; break;
case '-':
case '?': die($strInfoScript); break;
default: die('Option '. $argv[$i] . " inconnue !\n"); break;
}
} else {
$file = $argv[$i];
if ( move($file, $pathClientSend.'/'.basename($file)) ) {
$tabFichLigneCmd[] = basename($file);
} else {
echo date ('Y/m/d - H:i:s') . " - Impossilble de déplacer '$file' dans $pathClientSend !\n";
}
$tabFichLigneCmd[] = basename($file);
}
}
$message='';
$tdate = new WDate();
// Génération du fichier de demande depuis les logs de consultation indiscore2, indiscore3
if ($demandeSite) {
if ($dateDemandes<20110101) {
$dateDemandes=date('Ymd');
if ($opts->site)
{
if (empty($opts->site) || $opts->site<20110101)
{
$dateDemandes = date('Ymd');
}
else
{
$dateDemandes = $opts->site;
}
$fichierJour = 'extranet'.$dateDemandes;
@ -158,9 +148,10 @@ if ($demandeSite) {
echo date ('Y/m/d - H:i:s') . " - Nombre de rapports 1 et 2 sur l'extranet : ".count($tabTmp)."\n";
$strDemandes='';
if ( count($tabTmp)>0 ) {
foreach ($tabTmp as $i=>$demande) {
if ( count($tabTmp)>0 )
{
foreach ($tabTmp as $i=>$demande)
{
echo date ('Y/m/d - H:i:s') . " - " .$demande['siren'] ."\n";
$strDemandes.= $demande['siren'].' '.EOL;
}
@ -171,392 +162,404 @@ if ($demandeSite) {
}
// Fichier de demande par FTP
if ($demandeFtp) {
$dh = opendir($pathFtpSend);
while (false !== ($filename = readdir($dh))) {
if ($filename<>'.' && $filename<>'..') {
if (strtolower(substr($filename,-4))=='.txt') {
$tailleOctets = filesize($pathFtpSend.'/'.$filename);
if ($tailleOctets>9) {
if ( move($pathFtpSend.'/'.$filename, $pathClientSend.'/'.$filename) ) {
$tabFichLigneCmd[] = $filename;
} else {
echo date ('Y/m/d - H:i:s') . " - Impossilble de déplacer '$filename' dans $pathClientSend !\n";
}
} else {
echo date ('Y/m/d - H:i:s') . " - Attention, la taille du fichier '$filename' est incohérente ($tailleOctets octets)!\n";
}
if ($opts->ftp)
{
$dh = opendir($pathClientSend);
while (false !== ($filename = readdir($dh)))
{
if ($filename!='.' && $filename!='..' && strtolower(substr($filename,-4))=='.txt')
{
$tailleOctets = filesize($pathClientSend.'/'.$filename);
if ($tailleOctets>9)
{
$tabFichLigneCmd[] = $filename;
} else {
echo date ('Y/m/d - H:i:s') . " - Attention, la taille du fichier '$filename' est incohérente ($tailleOctets octets)!\n";
}
}
}
}
//Fichier de demande manuel
if ($opts->file)
{
$tabFichLigneCmd[] = $opts->file;
}
// Traitement des fichiers en demande
for ( $iFic=0; isset($tabFichLigneCmd[$iFic]); $iFic++ ) {
if (count($tabFichLigneCmd) > 0)
{
foreach ($tabFichLigneCmd as $fichierIn)
{
if ( !file_exists($pathClientSend.'/'.$fichierIn) ) {
die("Erreur fichier '$fichierIn' inexistant !\n");
}
$dateIn = date("dmy", filemtime($pathClientSend.'/'.$fichierIn));
$fichierIn = $tabFichLigneCmd[$iFic];
if ( !file_exists($pathClientSend.'/'.$fichierIn) ) {
die("Erreur fichier '$fichierIn' inexistant !".EOL);
}
$dateIn = date("dmy", filemtime($pathClientSend.'/'.$fichierIn));
// Lecture des lignes pour insertion en surveillance score
$tabLignesIn = file($pathClientSend.'/'.$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);
}
}
// Génération du fichier de sortie
$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);
$rapport = '';
//Siren valide
if ( $iInsee->valideSiren($siren) ) {
$tabId = $iInsee->getIdentiteEntreprise($siren,0,0,false,false);
$tabIndiscore = calculIndiScore($siren, 0, false, 2, false);
$note = $tabIndiscore['Indiscore20'];
$encours = round($tabIndiscore['encours']/1000)*1000;
$siretOut = $tabId['SiretSiege'];
}
// Siren Faux
else {
$siretOut = $note = $encours = 0;
}
$siretIn=$siren.'00000';
//Entete
$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
//Fin Entete;
//Rapport
if ( intval($siretOut)!=0 ) {
$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 = $tdate->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; }
}
// Lecture des lignes pour insertion en surveillance score
$tabLignesIn = file($pathClientSend.'/'.$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;
}
elseif($tabId['EntActiveRCS']==1)
$libSituation.= 'Actif au RCS';
$rapport.=initstr('', 80).EOL;
$rapport.=initstr('SITUA. JUR.: '.$libSituation, 80).EOL;//@todo multiligne
$ref = substr($ligne, 9, 10);
echo "$fichierIn\t$siren\t$ref".EOL;
$rapport.=initstr('', 80).EOL;
$rapport.=initstr('FORME JUR. : '.$tabId['FJ'].' '.$tabId['FJ_lib'], 80).EOL;//@todo multiligne
if (!$iDb->insert('scores_surveillance', array('siren'=>$siren)))
{
if (mysql_errno()==1062) continue;
die('Erreur SQL #'.mysql_errno().':'.mysql_error().EOL);
}
}
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 : '.$tdate->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;
// Génération du fichier de sortie
$fichierOut = $fichierIn.'.out';
echo date ('Y/m/d - H:i:s') . " - Génération du fichier '$fichierOut'...".EOL;
$dateOut = date("dmy");
$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 '.$tdate->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 '.$tdate->dateT('Y-m-d','d/m/Y',$tabId['dir2DateNaiss']);
$rapport.=initstr(' '.$tabId['dir2NomPrenom'].$strNaiss,80).EOL;
$rapport.=initstr('', 80).EOL;
foreach ($tabLignesIn as $iLigne=>$ligne)
{
$siren = substr($ligne, 0, 9);
$ref = substr($ligne, 9, 10);
$rapport = '';
$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;
//Siren valide
if ( $iInsee->valideSiren($siren) ) {
$tabId = $iInsee->getIdentiteEntreprise($siren,0,0,false,false);
$tabIndiscore = calculIndiScore($siren, 0, false, 2, false);
$note = $tabIndiscore['Indiscore20'];
$encours = round($tabIndiscore['encours']/1000)*1000;
$siretOut = $tabId['SiretSiege'];
}
// Siren Faux
else {
$siretOut = $note = $encours = 0;
}
$rapport.=initstr("ELEMENTS FINANCIERS (SOMMES EN $devise)", 80).EOL;
$rapport.=initstr(' '. $tdate->dateT('Ymd','d/m/Y',$tabBilans[0]['DATE_CLOTURE'])
.' '. $tdate->dateT('Ymd','d/m/Y',$tabBilans[1]['DATE_CLOTURE'])
.' '. $tdate->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;
}
$siretIn=$siren.'00000';
$rapport.=initstr('', 80).EOL;
$rapport.=initstr('PARTENAIRES FINANCIERS', 80).EOL;
$mBanque = new MBanques($iDb);
$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;
}
}
//Entete
$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
//Fin Entete;
/** § 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=$tdate->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;
//Rapport
if ( intval($siretOut)!=0 )
{
$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;
/** § dirigeance **/
$rapport.=initstr('', 80).EOL;
$rapport.=initstr('DIRIGEANCE', 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 = $tdate->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
/** § Liens **/
$mLiens = new MLiens2($siren, 'siren');
$tabAct = $tabPar = array();
try {
$tabAct = $mLiens->getActionnaires();
} catch(Exception $e) {}
try {
$tabPart = $mLiens->getParticipations();
} catch(Exception $e) {}
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->PDetention.' % : '.$lien->RS.' ('.$lien->siren.')', 80).EOL;
if ($i>=3) break;
}
foreach ($tabPart as $i=>$lien) {
$rapport.=initstr(' FILIALE à '.$lien->PDetention.' % : '.$lien->RS.' ('.$lien->siren.')', 80).EOL;
if ($i>=3) break;
}
}
$rapport.=initstr('', 80).EOL;
$rapport.=initstr('', 80).EOL;
$rapport.=initstr('FORME JUR. : '.$tabId['FJ'].' '.$tabId['FJ_lib'], 80).EOL;//@todo multiligne
/** § commentaires **/
$nbLiP=$nbLiM=0;
$startLi = false;
$startPaiement = 0;
foreach ($tabIndiscore['tabCommentaires'] as $i=>$txt) {
if ($i==5000) continue;
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 : '.$tdate->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;
if ($i==10001000 || $startPaiement==1) {
$rapport.= initstr('', 80).EOL;
$startPaiement++;
} else {
$startPaiement=0;
}
$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 '.$tdate->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 '.$tdate->dateT('Y-m-d','d/m/Y',$tabId['dir2DateNaiss']);
$rapport.=initstr(' '.$tabId['dir2NomPrenom'].$strNaiss,80).EOL;
$rapport.=initstr('', 80).EOL;
if ($i==10000700 || $i==10000800) {
$rapport.= initstr('', 80).EOL;
$startLi = true;
} else {
$startLi = false;
}
$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;
$ligneLi = false;
if (preg_match('/LI\+/i', $txt)) { $ligneLi=true; $nbLiP++; }
elseif (preg_match('/LI\-/i', $txt)) { $ligneLi=true; $nbLiM++; }
$rapport.=initstr("ELEMENTS FINANCIERS (SOMMES EN $devise)", 80).EOL;
$rapport.=initstr(' '. $tdate->dateT('Ymd','d/m/Y',$tabBilans[0]['DATE_CLOTURE'])
.' '. $tdate->dateT('Ymd','d/m/Y',$tabBilans[1]['DATE_CLOTURE'])
.' '. $tdate->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;
}
if (!$startLi && !$ligneLi && $startPaiement==0) {
continue;
}
//Plus de 5 LI, on arrete
if ( ($nbLiP>5 && $ligneLiP) || ($nbLiM>5 && $ligneLiM) ) {
continue;
}
//echo "Ligne : $i => $txt\n";
$rapport.=initstr('', 80).EOL;
$rapport.=initstr('PARTENAIRES FINANCIERS', 80).EOL;
$mBanque = new MBanques($iDb);
$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;
}
}
/*$txt = strtr($txt, array(
'<LI+>'=>'+',
'<LI->'=>'-',
'&nbsp;'=>' ',
'€'=>'E',
'&euro;'=>'E',
chr(160)=>' ',
));*/
//$txt = str_replace(array('<LI+>','<LI->','&nbsp;','€','&euro;',chr(160)), array('+','-',' ','E','E',' '), $txt);
$txt = str_replace(array('<LI+>','<LI->','&euro;'), array('+','-','E'), $txt);
//echo ".=> $txt\n";
$txt = html_entity_decode($txt, ENT_QUOTES, 'UTF-8');
//echo ".=> $txt\n";
$txt = wordwrap(strip_tags($txt),80,EOL).EOL;
//echo ".=> $txt\n";
$rapport.= $txt;
}
//exit;
//unsetGlobals();
//print_r($tabIndiscore['tabCommentaires']);
//die();
/** § 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=$tdate->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;
/** § 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;
/** § dirigeance **/
$rapport.=initstr('', 80).EOL;
$rapport.=initstr('DIRIGEANCE', 80).EOL;
$rapport.=initstr('', 80).EOL;
$rapport.=initstr('', 80).EOL;
$rapport.=initstr('', 80).EOL;
/** § Liens **/
$mLiens = new MLiens2($siren, 'siren');
$tabAct = $tabPar = array();
try {
$tabAct = $mLiens->getActionnaires();
} catch(Exception $e) {}
try {
$tabPart = $mLiens->getParticipations();
} catch(Exception $e) {}
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->PDetention.' % : '.$lien->RS.' ('.$lien->siren.')', 80).EOL;
if ($i>=3) break;
}
foreach ($tabPart as $i=>$lien) {
$rapport.=initstr(' FILIALE à '.$lien->PDetention.' % : '.$lien->RS.' ('.$lien->siren.')', 80).EOL;
if ($i>=3) break;
}
}
$rapport.=initstr('', 80).EOL;
//echo $rapport;
//die(print_r($tabIndiscore));
$rapport = utf8_decode($rapport);
/** § commentaires **/
$nbLiP=$nbLiM=0;
$startLi = false;
$startPaiement = 0;
foreach ($tabIndiscore['tabCommentaires'] as $i=>$txt) {
if ($i==5000) continue;
} //Fin rapport
if ($i==10001000 || $startPaiement==1) {
$rapport.= initstr('', 80).EOL;
$startPaiement++;
} else {
$startPaiement=0;
}
//Ecriture ligne dans le fichier
file_put_contents($pathClientRecv.'/'.$fichierOut, $entete.EOL.$rapport, FILE_APPEND);
if ($i==10000700 || $i==10000800) {
$rapport.= initstr('', 80).EOL;
$startLi = true;
} else {
$startLi = false;
}
//Insertion log de facturation
if ($demandeFtp) {
$iDb->insert('sdv1.logs', array(
'login' => 'fransbonrapports',
'page' => 'indiscore3',
'siren' => $siren,
'nic' => substr($siretOut,9,5),
'params' => '',
'dateHeure' => date('YmdHis'))
);
}
}
$ligneLi = false;
if (preg_match('/LI\+/i', $txt)) { $ligneLi=true; $nbLiP++; }
elseif (preg_match('/LI\-/i', $txt)) { $ligneLi=true; $nbLiM++; }
//Copie des fichiers de rapport dans le FTP
if ( !copy($pathClientRecv.'/'.$fichierOut, $pathFtpRecv.'/'.$fichierOut) ) {
echo date ('Y/m/d - H:i:s')." - Erreur de copy du fichier $fichierOut dans le FTP !\n";
}
if (!$startLi && !$ligneLi && $startPaiement==0) {
continue;
}
//Plus de 5 LI, on arrete
if ( ($nbLiP>5 && $ligneLiP) || ($nbLiM>5 && $ligneLiM) ) {
continue;
}
//echo "Ligne : $i => $txt\n";
} // Fin de lecture des fichier de demande
/*$txt = strtr($txt, array(
'<LI+>'=>'+',
'<LI->'=>'-',
'&nbsp;'=>' ',
'€'=>'E',
'&euro;'=>'E',
chr(160)=>' ',
));*/
//$txt = str_replace(array('<LI+>','<LI->','&nbsp;','€','&euro;',chr(160)), array('+','-',' ','E','E',' '), $txt);
$txt = str_replace(array('<LI+>','<LI->','&euro;'), array('+','-','E'), $txt);
//echo ".=> $txt\n";
$txt = html_entity_decode($txt, ENT_QUOTES, 'UTF-8');
//echo ".=> $txt\n";
$txt = wordwrap(strip_tags($txt),80,EOL).EOL;
//echo ".=> $txt\n";
$rapport.= $txt;
}
//exit;
//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));
$rapport = utf8_decode($rapport);
} //Fin rapport
//Ecriture ligne dans le fichier
file_put_contents($pathClientRecv.'/'.$fichierOut, $entete.EOL.$rapport, FILE_APPEND);
//Insertion log de facturation
if ($opts->ftp || $opts->file) {
$iDb->insert('sdv1.logs', array(
'login' => 'fransbonrapports',
'page' => 'indiscore3',
'siren' => $siren,
'nic' => substr($siretOut,9,5),
'params' => '',
'dateHeure' => date('YmdHis'))
);
}
}
//Copie des fichiers de rapport dans le FTP
if ( !copy($pathClientRecv.'/'.$fichierOut, $pathFtpRecv.'/'.$fichierOut) ) {
echo date ('Y/m/d - H:i:s')." - Erreur de copie du fichier $fichierOut dans le FTP !\n";
}
}
} // Fin de lecture des fichier de demande
else
{
echo date ('Y/m/d - H:i:s') . "Aucun fichier à traiter !\n";
}
echo date ('Y/m/d - H:i:s')." - Fin du traitement !\n"
?>