#!/usr/bin/php -c/var/www/batch/config/php_batch_sd.ini
<?php

//define('VERSION_FICHIER_BODACC','0106');
define('DIR_RECORDATI_IN','/mnt/samba/partage/production/');

include_once(FWK_PATH.'common/chiffres.php');
include_once(FWK_PATH.'common/dates.php');
include_once(INCLUDE_PATH.'bodacc/classMBodacc.php');
include_once(INCLUDE_PATH.'insee/classMInsee.php');
include_once(INCLUDE_PATH.'scores/classMScores.php');
//include_once(INCLUDE_PATH.'partenaires/classMRncs.php');
include_once(FWK_PATH.'mail/sendMail.php');

$iBodacc=new MBodacc();
$iInsee=new MInsee();

$strInfoScript='Usage : '.basename($argv[0]). " [OPTION]
Conversion d'un flux surveillance/diffusion Bodacc S&D en fichier spécifique Verdoso.

";/*Options :
  -d	Clients en Diffusion Bodacc (par défaut)
  -s	Clients en Surveillance Bodacc
  -e	Ne pas tenir compte de la date de dernière exécution du script
  -i    Ne pas incrémenter les numéros de tour (pour les tests).
";*/

$tabFichLigneCmd=$tabFichier=array();

$argv=$_SERVER['argv'];
for ($i=1; isset($argv[$i]); $i++) {
	if (substr($argv[$i],0,1)=='-') {
		switch (substr($argv[$i],1,1)) {
		   case '-':
		   case '?':
		   		die($strInfoScript);
		   		break;
		   default:
		   		die('Option '. $argv[$i] . " inconnue !\n");
		   	break;
		}
   } else $tabFichLigneCmd[]=$argv[$i];
}
if (count($tabFichLigneCmd)==0) {
	$dh  = opendir(DIR_RECORDATI_IN);
	while (false !== ($filename = readdir($dh))) {
		if ($filename<>'.' && $filename<>'..' && substr($filename, -4)=='.txt' && 
			substr($filename, 0,35)=='diffusionBodacc_DIFBODPRDMAIVERDOSO')
			$tabFichier[] = $filename;
	}
	sort($tabFichier);
} else $tabFichier=$tabFichLigneCmd;

if (count($tabFichier)==0 && count($tabFichLigneCmd)==0) die(date ('Y/m/d - H:i:s') . " - Aucun fichier Verdoso à traiter !".EOL);
//print_r($tabFichier);
//die();

$message='';
$ligne001=$ligne100=$ligne104=$ligne999=0;

for ($iFic=0; isset($tabFichier[$iFic]); $iFic++)
{
	$nomFichier	=$tabFichier[$iFic];

	$ligne001=$ligne100=$ligne104=$ligne999=0;

	$tabLignes=file(DIR_RECORDATI_IN.$nomFichier);
	$nomFichierHebdo=DIR_RECORDATI_IN.'SD_Verdoso_'.date('Y\sW').'.csv';
	$fp=fopen($nomFichierHebdo, 'a+');
	while(!feof($fp)) {
		fgets($fp,4096);
		$nbLignesDeja++;
	}
	rewind($fp);
	
	/*
		echo "Fichier Hebdomadaire: $nomFichierHebdo".EOL;
		echo "Il y a $nbLignesDeja ligne(s) dans le fichier à l'ouverture".EOL;
	*/
foreach ($tabLignes as $i=>$ligne) {
	$ecrireLignePre=false;
	$typeLigne=substr($ligne,	0,	3)*1;
	switch ($typeLigne) {
		case 1:		// Ligne ignorée
			// Ecriture de l'entête
			$idannPre	='Identifiant Annonce';
			$siren	='Siren';
			$nic	='Nic';
			$ref	='Référence';
			$numPar	='Parution';
			$bodacc	='Bodacc';
			$datePar='Date parution';
			$numAnn	='Numéro Annonce';
			$cor	='Type Annonce';
			$libTri	='Tribunal';
			$numRC	='Numéro RCS';
			$raisonS='Raison sociale';
			$catEven='Chapitre';
			$txtEven='Evènement(s)';
			$txtAnn	='Texte Annonce'; 
			$inter  ='Acheteur/Vendeur';
			$sirenV ='Siren Vendeur';
			$raisonSV='Nom Vendeur';
			$sirenA ='Siren Acheteur';
			$raisonSA='Nom Acheteur';
			$adresseFond='Adresse du fond';
			$montantVente='Montant de la vente';
			$deviseVente='Devise';
			$dateVente='Date de la vente';
			$opposition='Opposition';
			
			$naf='NAF';
			$nafLib='Libellé NAF';
			$fj='Forme Jur.';
			$fjLib='Libellé Forme Juridique';
			$effectif='Effectif';
			$typeEf="Type d'effectif";
			$dateBilan='Date Bilan';
			$ca="Chiffre d'affaire en ME";
			$typeCa='Type CA';
			$capital='Capital';
			$dept='Dépt. Siège';
			$annee='Année de Création';
			
			$ligneOut="$siren;$datePar;$raisonS;$txtEven;$naf;$nafLib;$fj;$fjLib;$effectif;$typeEf;$dateBilan;$ca;$typeCa;$capital;$dept;$annee;$txtAnn";
			if ($nbLignesDeja<2) {
				fwrite($fp, $ligneOut.EOL);
			}
			$ligne001++;
			break;
		case 100:	// Structure Bodacc
			
				/*Identité du vendeur	Rubrique	Siren acheteur	Raison Sociale	Adresse du fonds */
			$ligne100++;
			$idann	= substr($ligne, 	 3	,  10	)*1;	//		Id interne de l'annonce S&D
			if ($idannPre<>$idann) {
				/** Recherche de l'oppositions
				 **/
				if (preg_match('/Oppositions(?: )\:(.*)(?:Commentaires|\.$)/Uis', $txtAnn, $matches))
					$opposition=trim($matches[1]);
				/** Rechercher du montant de la vente 
				 **/
				if (preg_match("/(?:prix|montant|indémni|indemni|évalu|evalu|éstim|estim)\D{1,15}([0-9\.,\?\s ]*)(?:eur|euro|euros)/i", $txtAnn, $matches)) {
					$montantVente=''.trim($matches[1]);
					echo "Montant de la vente AV: $montantVente\n";
					if (substr($montantVente,-3,1)==',') {
						$montantVente=substr($montantVente,0,strlen($montantVente)-3);
					//	echo "ICI1\n";
					}
					elseif (substr($montantVente,-3,1)=='.') {
						echo "'".substr($montantVente,-3,3)."'\n";
						$montantVente=substr($montantVente,0,strlen($montantVente)-3);
					//	echo "ICI2\n";
					}
					$montantVente=strtr($montantVente,array('.'=>'',','=>'',' '=>''));

					$deviseVente='EUR';
					//echo "Montant de la vente AP: $montantVente\n";
				}
				/** Recherche de la date de la vente
				 **/
				if ($dateVente=='00/00/0000') {
					if (preg_match_all("/([0-9].{1,3})(janvier|f.vrier|mars|avril|mai|juin|juillet|ao.t|septembre|octobre|novembre|d.cembre).{1,2}([0-9]{4,4})/i", $txtAnn, $matches)) {
						//print_r($matches);
						//echo "Date de la vente : $dateVente\n";
						$dateVente=end($matches[0]);
						//die($txtAnn);
					}
				}
				if ($catEven=='procol') {
					$adresseFond=$adresse;
					if (preg_match('/Complément de jugement(?: )\:(.*)$/Uis', $txtAnn, $matches))
                        $opposition=trim($matches[1]);
					else
						$opposition='';
				}
				
				//$ligneOut="$idannPre;$sirenV;$raisonSV;$numPar;$bodacc;$datePar;$numAnn;$cor;$libTri;$sirenA;$raisonSA;$catEven;$txtEven;$adresseFond;$montantVente;$deviseVente;$dateVente;$opposition;$txtAnn";
				
				if ($idannPre<>'Identifiant Annonce' && !$ignoreAnnPre) {
					
//					$ligneOut="$idann;$siren;$nic;$inter;$numPar;$bodacc;$datePar;$numAnn;$cor;$libTri;$numRC;$raisonS;$catEven;$txtEven;$naf;$nafLib;$fj;$fjLib;$effectif;$typeEf;$dateBilan;$ca;$typeCa;$capital;$dept;$annee;$txtAnn";
					$ligneOut="$siren;$datePar;$raisonS;$txtEven;$naf;$nafLib;$fj;$fjLib;$effectif;$typeEf;$dateBilan;$ca;$typeCa;$capital;$dept;$annee;$txtAnn";
					fwrite($fp, $ligneOut.EOL);
				
					$sirenAffV=implode(' ', str_split($sirenV,3));
					if ($sirenA*1>0)	$sirenAffA='(Siren : '.implode(' ', str_split($sirenA,3)).')';
					else				$sirenAffA='';
					$message.="Siren : $sirenAffV\r\n";
					$message.="Raison Sociale : $raisonSV\r\n";
					$message.="Source : BODACC n°$numPar $bodacc du $datePar. ";
					if (trim($dateInsert)<>'')
					$message.='Entrée en base S&D : '. WDate::dateT('Ymd','d/m/Y',$dateInsert)."\r\n";
					$message.="Tribunal : $libTri\r\n";
					
					$message.="NAF : $nafLib ($naf)\r\n";
					$message.="FJ : $fjLib ($fj)\r\n";
					$message.="Effectif $typeEf : $effectif\r\n";
					$message.="Dernier Bilan : $dateBilan\r\n";
					$message.="Chiffre d'Affaire $typeCa: $ca ME\r\n";
					$message.="Capital : $capital\r\n";
					$message.="Département : $dept\r\n";
					$message.="Année de création : $annee\r\n";
						/*



[dir1Titre] => Gérant
[dir1NomPrenom] => TROJMAN Stella

[Activite] => Travaux de revêtement des sols et des murs
[dir1DateNaiss] => 1941



*/

					
					
					
					
					
					
					$message.="\r\n";
					if (trim($raisonSA)<>'') {
						$message.="Acheteur : $raisonSA $sirenAffA"."\r\n";
						if ($montantVente*1>0)
							$message.="Montant de la vente : $montantVente $deviseVente en date du $dateVente."."\r\n";
						$message.="\r\n";
					}
					$message.="$txtEven"."\r\n";
					$message.="\r\n";
					$message.=$txtAnn."\r\n";
					$message.="\r\n\r\n---------------------------------------------------------------------------\r\n\r\n";
				}
				$sirenA=$raisonSA=$sirenV=$raisonSV=$adresseFond=$montantVente=$deviseVente=$dateVente='';
			}
			$siren	= substr($ligne, 	13	,	9	);	//		Siren de l'entreprise concernée par l'annonce
			$nic	= trim(substr($ligne, 	22,	5	));	//		Nic
			$ref	= trim(substr($ligne, 	71,	18	));	//		Référence Client
			$numPar	= substr($ligne, 	27	,	3	);	//		Numéro de parution du Bodacc dans l'année
			$bodacc	= substr($ligne, 	30	,	1	);	//		Code Bodacc (A, B ou C)	A, B ou C
			$datePar= WDate::dateT('Ymd','d/m/Y',substr($ligne,31,8));	//	Date de parution du Bodacc	Format AAAAMMJJ
			$numAnn	= substr($ligne, 	39	,	5	);	//		Numéro de l'annonce dans le Bodacc
			$typeAnn= substr($ligne, 	47	,	1	);	//		Type d'annonce Bodacc	I=Insertion (publication d'une annonce), A=Additif (ajout à une précédente annonce),  (1) R=Rectificatif (correction d'une annonce), S=Suppression d'une annonce
			$corNumA= substr($ligne, 	48	,	5	);	//		Numéro de l'annonce corrigée	Si annonce différent de Insertion
			$corDate= substr($ligne, 	53	,	8	);	//		Date du Bodacc de l'annonce corrigée	Si annonce différent de Insertion. Format AAAAMMJJ
			$corPage= substr($ligne, 	61	,	6	);	//		Première page du Bodacc de l'annonce corrigée	Si annonce différent de Insertion
			$corNumP= substr($ligne, 	67	,	4	);	//		Numéro parution du Bodacc dans l'année de l'annonce corrigée	Si annonce différent de Insertion
			$adresse= trim(preg_replace('/ +/',' ',substr($ligne,	596	,	4	).' '.
					  substr($ligne,	600	,	1	).' '.
					  substr($ligne,	601	,	5	).' '.
					  substr($ligne,	606	,  50	).' '.
					  substr($ligne,	656	,  50	).' '.
					  substr($ligne,	706	,  40	).', '.
					  substr($ligne,	746	,	5	).' '.
					  substr($ligne,	751	,  45	)));
			$venteDt= WDate::dateT('Ymd','d/m/Y',substr($ligne,1161,8));
			$venteMt= substr($ligne,   1169	,  15	);
			$venteDev=substr($ligne,   1184	,	3	);
			$dateInsert=substr($ligne, 1910 ,	8	);
			
			$cor='';
			if ($typeAnn<>'I')
				$cor=" - Annonce n°$corNumA $corNumP, page $corPage, du ".WDate::dateT('Ymd','d/M/Y',$corDate);
			switch($typeAnn) {
				case 'I':	$cor='Insertion'.$cor;		break;
				case 'A':	$cor='Additif'.$cor;		break;
				case 'R':	$cor='Rectificatif'.$cor;	break;
				case 'S':	$cor='Suppression'.$cor;	break;
				default:	break;
			}
			$codeTri= substr($ligne, 	89	,	6	);	//		Code Tribunal	Codification interne utilisée par le Bodacc
			$libTri=$iBodacc->getTribunalNom($codeTri);
			
			$numRC	= trim(substr($ligne, 	95	,	9	));	//	Numéro de RC (Registre du Commerce) de l'entreprise
			$raisonS= trim(substr($ligne, 	104	,	150	));	//	Raison sociale de l'entreprise
			$even=array();
			$even[7]= substr($ligne, 	996	,	4	)*1;	//		Code Evènement Bodacc n°1	Cf. Table EVEN
			$even[6]= substr($ligne, 	1000,	4	)*1;	//		Code Evènement Bodacc n°2	Cf. Table EVEN
			$even[5]= substr($ligne, 	1004,	4	)*1;	//		Code Evènement Bodacc n°3	Cf. Table EVEN
			$even[4]= substr($ligne, 	1008,	4	)*1;	//		Code Evènement Bodacc n°4	Cf. Table EVEN
			$even[3]= substr($ligne, 	1012,	4	)*1;	//		Code Evènement Bodacc n°5	Cf. Table EVEN
			$even[2]= substr($ligne, 	1016,	4	)*1;	//		Code Evènement Bodacc n°6	Cf. Table EVEN
			$even[1]= substr($ligne, 	1020,	4	)*1;	//		Code Evènement Bodacc n°7	Cf. Table EVEN
			$even[0]= substr($ligne, 	1024,	4	)*1;	//		Code Evènement Bodacc n°8	Cf. Table EVEN
			$txtEven='';
			$inter='Vendeur';	// Par défaut, nous sommes avec un vendeur
			foreach ($even as $codeEven)
				if ($codeEven<>0) {
					$txtEven.=$iBodacc->getEvenement($codeEven).', ';
					$catEven=$iBodacc->getChapitreEvenement($codeEven);
					if ($codeEven==5700) {
						$inter='Acheteur'; // L'interlocuteur est l'acheteur !
						$sirenA=$siren;
						$raisonSA=$raisonS;
						$adresseFond=$adresse;
						$montantVente=$venteMt;
						$deviseVente=$venteDev;
						$dateVente=$venteDt;
					}
				}
				else
					$txtEven.='';
					
			if ($inter=='Vendeur') {
				$sirenV=$siren;
				$raisonSV=$raisonS;
				if ($sirenV>1000)
					$tabIdentite=@$iInsee->getIdentiteEntreprise($sirenV,0,0,0,0);
				else
					$tabIdentite=array();
					
				//getIdentiteEntreprise($siren, $nic=0, $id=0, $forceVerif=false, $accesDist=true) {
				$naf=$tabIdentite['NafEnt'];
				$nafLib=$tabIdentite['NafEntLib'];
				$fj=$tabIdentite['FJ'];
				$fjLib=$tabIdentite['FJ_lib'];
				$capital=$tabIdentite['Capital'].' '.$tabIdentite['CapitalDev'];			
				$dept=$tabIdentite['Dept'];			
				$annee=substr($tabIdentite['DateCreaEt'],0,4)*1;
				if ($annee>substr($tabIdentite['DateCreaEn'],0,4)*1)
					$annee=substr($tabIdentite['DateCreaEn'],0,4);
				if ($annee>substr($tabIdentite['dateImmat'],0,4)*1)
					$annee=substr($tabIdentite['dateImmat'],0,4);
				
				$effInsee=$tabIdentite['Effectif'];
				$caInsee=$tabIdentite['TrancheCA'];
				
				$effBilan=$tabIdentite['bilanYP'];
				$caBilan=$tabIdentite['bilanFL'];
				$dateBilan=str_replace('//','',WDate::dateT('Ymd','d/m/Y',$tabIdentite['bilanDate']));
				 
				if ($effBilan>0)		{	$effectif=$effBilan;	$typeEf='Réel';		}
				elseif ($effInsee>0)	{	$effectif=$effInsee;	$typeEf='Estimé';	}
				else					{	$effectif='N/C';		$typeEf='';			}
				
				$caEstime=0;
				if ($caInsee<5 || $tabIdentite['bilanDate']*1==0)
					$caEstime=$iInsee->getCAnafEffectif($naf, $effInsee);
				
				if ($caInsee>=5 || $caEstime>=10000000 || $caBilan>=10000000) {
					if ($caBilan>0)		{	$ca=round($caBilan/1000000);	$typeCa='Réel';			}
					elseif ($caInsee==5){	$ca=10;							$typeCa='Approchant';	}
					elseif ($caInsee==6){	$ca=20;							$typeCa='Approchant';	}
	                elseif ($caInsee==7){	$ca=50;							$typeCa='Approchant';	}
	                elseif ($caInsee==8){	$ca=100;						$typeCa='Approchant';	}
	                elseif ($caInsee==9){	$ca=200;						$typeCa='Approchant';	}
					else				{	$ca=round($caEstime/1000000);	$typeCa='Estimé';		}
					$ignoreAnnPre=false;
				} else {
					// On ignore cette ligne
					$txtEven=substr($txtEven,0,strlen($txtEven)-2);
					$txtAnn='';
					if ($idannPre<>$idann)	$ecrireLignePre=true;
					else					$ecrireLignePre=false;
					$idannPre=$idann;
					$ignoreAnnPre=true;
				}
				/*print_r($tabIdentite);
				  die();
				*/
			}
					
			$txtEven=substr($txtEven,0,strlen($txtEven)-2);
			$txtAnn='';
			if ($idannPre<>$idann)	$ecrireLignePre=true;
			else					$ecrireLignePre=false;
			$idannPre=$idann;
			break;
		case 104:	// Annonce
			$ligne104++;
			$txtAnn=trim($txtAnn.' '.str_replace(';','.',trim(substr($ligne, 89 , 1910))));	//	Texte Annonce
			break;
		case 999:	// Ligne ignorée
			//$ligneOut="$idann;$sirenV;$raisonSV;$numPar;$bodacc;$datePar;$numAnn;$cor;$libTri;$sirenA;$raisonSA;$catEven;$txtEven;$adresseFond;$montantVente;$deviseVente;$dateVente;$txtAnn";
			$opposition=preg_replace('/.*Oppositions \:/i','', $txtAnn);
//			$ligneOut="$idann;$sirenV;$raisonSV;$numPar;$bodacc;$datePar;$numAnn;$cor;$libTri;$sirenA;$raisonSA;$catEven;$txtEven;$adresseFond;$montantVente;$deviseVente;$dateVente;$opposition;$txtAnn";			
			if ($idann<>'Identifiant Annonce' && !$ignoreAnnPre) {
				//$ligneOut="$idann;$siren;$nic;$inter;$numPar;$bodacc;$datePar;$numAnn;$cor;$libTri;$numRC;$raisonS;$catEven;$txtEven;$naf;$nafLib;$fj;$fjLib;$effectif;$typeEf;$dateBilan;$ca;$typeCa;$capital;$dept;$annee;$txtAnn";
				$ligneOut="$siren;$datePar;$raisonS;$txtEven;$naf;$nafLib;$fj;$fjLib;$effectif;$typeEf;$dateBilan;$ca;$typeCa;$capital;$dept;$annee;$txtAnn";
				fwrite($fp, $ligneOut.EOL);
				$sirenAffV=implode(' ', str_split($sirenV,3));
				if ($sirenA*1>0)	$sirenAffA='(Siren : '.implode(' ', str_split($sirenA,3)).')';
				else				$sirenAffA='';
				$message.="Siren : $sirenAffV\r\n".'Raison Sociale : '.$raisonSV."\r\n";
				$message.="Source : BODACC n°$numPar $bodacc du $datePar. ";
				if (trim($dateInsert)<>'')
				$message.='Entrée en base S&D : '. WDate::dateT('Ymd','d/m/Y',$dateInsert)."\r\n";
				$message.="Tribunal : $libTri"."\r\n";
				
				$message.="NAF : $nafLib ($naf)\r\n";
				$message.="FJ : $fjLib ($fj)\r\n";
				$message.="Effectif $typeEf : $effectif\r\n";
				$message.="Dernier Bilan : $dateBilan\r\n";
				$message.="Chiffre d'Affaire $typeCa: $ca ME\r\n";
				$message.="Capital : $capital\r\n";
				$message.="Département : $dept\r\n";
				$message.="Année de création : $annee\r\n";
				
				$message.="\r\n";
				if (trim($raisonSA)<>'') {
					$message.="Acheteur : $raisonSA $sirenAffA"."\r\n";
					if ($montantVente*1>0)
						$message.="Montant de la vente : $montantVente $deviseVente en date du $dateVente."."\r\n";
					$message.="\r\n";
				}
				$message.="$txtEven"."\r\n";
				$message.="\r\n";
				$message.=$txtAnn."\r\n";
				$message.="\r\n\r\n---------------------------------------------------------------------------\r\n\r\n";
			} 
			$ligne999++;
			$ecrireLignePre=true;
			break;
		default:	// Ligne non gérée
			break;
	}
	//if ($ecrireLignePre)
	//	fwrite($fp, $ligneOut.EOL);
		
	}
	
	
	fclose($fp);
	
	if (bzip2(DIR_RECORDATI_IN.$nomFichier, DIR_RECORDATI_IN.$nomFichier)) {
		unlink(DIR_RECORDATI_IN.$nomFichier);
		echo date ('Y/m/d - H:i:s') . " - Le fichier n°$iFic, $nomFichier vient d'être historisé.".EOL;
	}
	
}

if (date('w')==5) {
	$tabAttached=array($nomFichierHebdo);
	$messageInfo="Bonjour,
	
	Veuillez trouver le fichier hebdomadaire des Jugements d'Ouvertures de Sauvegarde et de Redressement Judiciaire.
	
	Bien Cordialement,
	Le service Support.
	
	-- 
	
	SCORES & DECISIONS
	Service support
	1, rue de Clairefontaine - 78120 RAMBOUILLET
	tél : 33 (0)1 75 43 80 10
	fax : 33 (0)1 75 43 85 74
	support@scores-decisions.com
	http://www.scores-decisions.com/
	Scores & Décisions est l'acteur nouvelle génération de l'information et de l'évaluation des entreprises
	
	Pensez à l'environnement avant d'imprimer ce message !
	Save paper - think before you print";
	
	$emailEnvoi='vfahmy@verdoso.com,contact@scores-decisions.com';
	//$emailEnvoi='ylenaour@scores-decisions.com';
	if ($catEven<>'Chapitre') {
		sendMail('infoslegales@scores-decisions.com', $emailEnvoi, "Surveillance Annonces Legales", $messageInfo, '', $tabAttached);
		//sendMail('infoslegales@scores-decisions.com', 'jean.frederic.lambert@gmail.com', "Surveillance Annonces Legales", $messageInfo, '', $tabAttached);
	}
}

echo date ('Y/m/d - H:i:s')." - Conversion terminée !" . EOL;
die();

?>