795 lines
38 KiB
PHP
795 lines
38 KiB
PHP
<?php
|
|
require_once 'framework/common/chiffres.php';
|
|
require_once 'framework/common/dates.php';
|
|
require_once 'Metier/bodacc/classMBodacc.php';
|
|
require_once 'Metier/insee/classMInsee.php';
|
|
require_once 'Metier/partenaires/classMRncs.php';
|
|
require_once 'Metier/partenaires/classMBilans.php';
|
|
require_once 'Metier/partenaires/classMBourse.php';
|
|
require_once 'Metier/partenaires/classMLiens.php';
|
|
require_once 'Metier/scores/classMFinancier.php';
|
|
require_once 'Metier/scores/classMSolvabilite.php';
|
|
require_once 'Metier/scores/classMScores.php';
|
|
require_once 'Metier/partenaires/classMTva.php';
|
|
require_once 'Metier/partenaires/classMMap.php';
|
|
require_once 'Metier/partenaires/classMGreffes.php';
|
|
require_once 'Metier/partenaires/classMPrivileges.php';
|
|
require_once 'Metier/tmp/configMRatios.php';
|
|
|
|
require_once 'framework/mail/sendMail.php';
|
|
|
|
global $tabEvenSolib;
|
|
global $tabEven2SO;
|
|
global $tabEven2RO;
|
|
|
|
$tabEvenSolib=array(1=>'CR',
|
|
11=>'CR',
|
|
13=>'CR',
|
|
14=>'CR',
|
|
15=>'CR',
|
|
16=>'CR',
|
|
17=>'CR',
|
|
18=>'CR',
|
|
19=>'CR',
|
|
2=>'VT',
|
|
21=>'VT',
|
|
22=>'VT',
|
|
24=>'VT',
|
|
25=>'VT',
|
|
3=>'CE',
|
|
31=>'ME',
|
|
32=>'ME',
|
|
33=>'ME',
|
|
34=>'ME',
|
|
35=>'Rec',
|
|
36=>'MAF',
|
|
37=>'LG',
|
|
38=>'LG',
|
|
39=>'MD',
|
|
4=>'RD',
|
|
41=>'DIS',
|
|
42=>'FLG',
|
|
51=>'RJ',
|
|
52=>'RJ',
|
|
53=>'RA',
|
|
56=>'PIE',
|
|
57=>'SAUVJ',
|
|
58=>'SAUVP',
|
|
59=>'RR',
|
|
6=>'R&L',
|
|
61=>'LB',
|
|
62=>'LJ',
|
|
63=>'FP',
|
|
64=>'INT',
|
|
65=>'LQ',
|
|
69=>'RL',
|
|
7=>'Suite',
|
|
71=>'SRJ',
|
|
72=>'SRLJ',
|
|
73=>'SP',
|
|
74=>'AP',
|
|
75=>'MP',
|
|
76=>'EP',
|
|
77=>'PRO',
|
|
78=>'DC',
|
|
79=>'CIA',
|
|
8=>'INFR',
|
|
91=>'DC',
|
|
92=>'CP',
|
|
);
|
|
|
|
$tabEven2SO=array( // PROCOL
|
|
1010=>92, // Déclaration de cessation de paiement
|
|
1050=>7, // Homologation de la conciliation
|
|
1055=>7, // Résolution de la conciliation
|
|
1100=>57, // Jugement de sauvegarde
|
|
1101=>58, // Plan de sauvegarde
|
|
1200=>52, // Redressement Judiciaire
|
|
1201=>52, // Conversion sauvegarde en Redressement Judiciaire
|
|
1202=>75, // Renouv. Periode Observation
|
|
1203=>78, // Avis de dépot de l'état de collocation
|
|
1204=>78, // Dépôt des créances
|
|
1205=>78,
|
|
1206=>78,
|
|
1207=>53, // Règlemement amiable
|
|
1208=>78,
|
|
1209=>51, // Règlement Judiciaire
|
|
1210=>77, // Production
|
|
1211=>52, // Redressement Judiciaire par extension au(x) gérant(s)
|
|
1212=>69, // Rectif ou Annul.LJ
|
|
1214=>78, // Avis de dépôt de l'état des créances (Loi de 1985)
|
|
1215=>7, // Jugement de désignation des organes de la procédure
|
|
1216=>78, // Autre avis de dépôt
|
|
1300=>62, // Conversion Redressement Judiciaire en Liquidation
|
|
1301=>62, // Ouverture Liquidation Judiciaire
|
|
1302=>66, // Ouverture Liquidation Judiciaire Simplifiée
|
|
1303=>62, // Ouverture Liquidation Judiciaire sur résolution
|
|
1304=>62, // Réouverture Liquidation Judiciaire
|
|
1305=>62, // Liquidation Judiciaire
|
|
1306=>66, // Liquidation Judiciaire simplifiée
|
|
1307=>62, // Conversion sauvegarde en Liquidation Judiciaire
|
|
1308=>62, // Fin du régime de Liquidation Judiciaire Simplifiée
|
|
1309=>62, // Conversion Liquidation Judiciaire en Liquidation
|
|
1310=>56, // Procédure d'Insolvabilité Européenne
|
|
1311=>62, // Liquidation Judiciaire par extension au(x) gérants
|
|
1312=>62, // Liquidation Judiciaire avec continuation d'exploitation
|
|
1313=>62, // Liquidation Judiciaire sans remise des accessoires
|
|
1346=>7, // Procédure d'insolvabilité (Règlement 1346/2000 du Conseil Européen)
|
|
1400=>7, // Nomination d'un administrateur judiciaire
|
|
1401=>7, // Nomination d'un mandataire judiciaire
|
|
1402=>7, // Nomination d'un représentant des créanciers
|
|
1403=>7, // Nominnation/Remplacement de commissaire à l'exécution du plan
|
|
1404=>7, // Prolongement de la mission du commissaire à l'exécution du plan
|
|
1405=>7, // Nomination d'un juge commissaire
|
|
1406=>7, // Changement de SYNDIC
|
|
1407=>75, // Modif. de Plan
|
|
1408=>75, // Modification du plan de cession
|
|
1409=>75, // Modif. de de continuation
|
|
1410=>75, // Suite de jugement/règlement/liquidation
|
|
1411=>75, // Arrêt du plan de cession
|
|
1412=>75, // Arrêt du plan de cession partielle
|
|
1413=>75, // Arrêt du plan de continuation
|
|
1414=>75, // Arrêt du plan de redressement
|
|
1415=>75, // Prolongement du plan cession
|
|
1416=>75, // Jugement constatant la bonne exécution du plan
|
|
1417=>62, // Jugement d'extension de liquidation judiciaire
|
|
1418=>52, // Jugement d'extension d'une procédure de redressement judiciaire
|
|
1419=>57, // Jugement d'extension d'une procédure de sauvegarde
|
|
1420=>7, // Nomination d'un liquidateur judiciaire
|
|
1421=>7, // Jugement prorogeant le plan de redressement
|
|
1425=>7, // Plan de cession avec location gérance
|
|
1430=>7, // Jugement autorisant la poursuite d'activité
|
|
1431=>7, // Jugement de cessation partielle d'activité
|
|
1435=>7, // Suspension de l'exécution provisoire
|
|
1436=>7, // Suspension provisoire des poursuites
|
|
1440=>7, // Jugement accordant un délai pour déposer la liste des créances
|
|
1445=>7, // Concordat
|
|
1450=>92, //Cessation paiement
|
|
1455=>7, // Jugement arrêtant le plan d'apurement du passif
|
|
1460=>7, // Homologation du plan
|
|
1470=>7, // Fin de mission d'administrateur judiciaire
|
|
1480=>7, // Jugement ordonnant la jonction des procédures
|
|
1500=>79, // Clôture de la procédure
|
|
1501=>79, // Clôture de la procédure après cession totale
|
|
1502=>76, // Clôture de la procédure pour extinction du passif
|
|
1503=>79, // Cloture insuf.Actif
|
|
1504=>79, // Clôture sauvegarde pour absence de projet de plan
|
|
1505=>74, // Appel de jugement
|
|
1506=>59, // Rectif ou Annulation RJ
|
|
1507=>74, // Appel de jugement
|
|
1508=>7, // Extinction du plan de sauvegarde
|
|
1509=>7, // Extinction du plan de redressement
|
|
1510=>74, // Rejet du plan
|
|
1511=>7, // Résolution du plan de cession
|
|
1512=>7, // Résolution du plan de continuation
|
|
1513=>7, // Résolution du plan de sauvegarde
|
|
1515=>74, // Arrêt divers
|
|
1517=>59, // Rectification d'une erreur matérielle
|
|
1520=>7, // Ordonnance
|
|
1525=>74, // Appel du ministère public
|
|
1530=>7, // Jugement constatant l'impécuniosité de la procédure de liquidation
|
|
1540=>7, // Ordonnance statuant sur les contestations du projet de répartition
|
|
1541=>74, // Rétractation de prononcé de liquidation judiciaire sur tierce opposition
|
|
1542=>74, // Rétractation de jugement d'ouverture d'une procédure de sauvegarde sur tierce opposition
|
|
1543=>74, // Rétractation de jugement d'ouverture d'une procédure de redressement judiciaire sur tierce opposition
|
|
1544=>74, // Rétractation de jugement d'ouverture d'une procédure de liquidation judiciaire sur tierce opposition
|
|
1545=>74, // Rétractation de jugement d'ouverture sur tierce opposition
|
|
1546=>74, // Autre rétractation sur tierce opposition
|
|
1550=>7, // Suites de jugements
|
|
1580=>7, // Jugement prononçant la continuation de l'activité par apurement du passif
|
|
1600=>63, // Faillite personnelle
|
|
1601=>64, // Interdiction de gérer
|
|
1602=>7, // Jugement de réhabilitation
|
|
1603=>61, // Liquidation de Biens
|
|
1604=>8, // Banqueroute
|
|
1605=>7, // Jugement autorisant la reprise des poursuites individuelles
|
|
1610=>8, // Faillite personnelle (Loi de 1985)
|
|
1611=>8, // Interdiction de gérer (Loi de 1985)
|
|
1620=>7, // Jugement condamnant le dirigeant en comblement du passif
|
|
1650=>8, // Rétablissement Personnel
|
|
1700=>7, // Décision soumise à publicité
|
|
1900=>8, // Interdiction temporaire d'exercice de la profession de CAC
|
|
1901=>8, // Radiation de la liste des CAC
|
|
1999=>7, // Autre procédure collective
|
|
// MMD
|
|
2000=>4, // Mention d'office
|
|
2100=>39, // Chg.Capital/Cess.apport de parts
|
|
2101=>39, // Chg.Capital/Cess.apport de parts
|
|
2102=>39, // Chg.Capital/Cess.apport de parts
|
|
2200=>4, // Cessation d'activité
|
|
2201=>4, // Cessation d'activité temporaire
|
|
2202=>41, // Dissolution
|
|
2203=>41, // Dissolution de la société
|
|
2204=>41, // Cessation d'activité avec dissolution
|
|
2205=>4, // Fermeture du fonds
|
|
2206=>39, // Mise en sommeil de la société
|
|
2207=>39, // Suppression d'une branche d'activité
|
|
2208=>39, // Suppression de l'établissement principal
|
|
2209=>39, // Vente du fonds
|
|
2210=>39, // Déclaration de dissolution par l'associé unique.
|
|
2211=>39, // Clôture de la liquidation
|
|
2212=>39, // Liquidation amiable
|
|
2300=>39, // Changement d'Adresse
|
|
2301=>39, // Modification de l'adresse du siège
|
|
2302=>39, // Modification de l'enseigne
|
|
2303=>39, // Modification de la date de clôture de l'exercice
|
|
2304=>39, // Modification de la date de début d'activité
|
|
2305=>39, // Modification de la dénomination
|
|
2306=>39, // Modification de la durée de la société
|
|
2307=>39, // Modification de la forme juridique
|
|
2308=>39, // Modification du nom
|
|
2309=>39, // Modification du nom commercial
|
|
2310=>39, // Modification du pseudonyme
|
|
2311=>39, // Modification sur l'exploitation
|
|
2312=>39, // Modification(s) diverse(s)
|
|
2313=>39, // Modification de l'activité
|
|
2314=>39, // Poursuite de l'activité
|
|
2315=>39, // Modification de l'administration
|
|
2316=>39, // Mise en activité de la société
|
|
2317=>39, // Modification du sigle
|
|
2318=>39, // Modifications diverses
|
|
2319=>39, // Poursuite de l'activité malgré la perte de plus de...
|
|
2320=>39, // Reconsitution de l'actif net
|
|
2321=>39, // Reconsitution de la moitié de l'actif net
|
|
2350=>39, // Déclaration des associés (loi du 1er février 2005)
|
|
2401=>39, // Changement de régime matrimonial
|
|
2402=>39, // Changement de régime matrimonial (divorce)
|
|
2403=>39, // Changement de régime matrimonial (mariage)
|
|
2404=>39, // Changement de régime matrimonial (veuvage)
|
|
2405=>39, // Changement de régime matrimonial (contrat de maria...
|
|
2406=>39, // Reprise du fonds par le conjoint
|
|
2407=>39, // Mention du conjoint collaborateur
|
|
2408=>39, // Radiation du conjoint collaborateur
|
|
2500=>3, // Confirmation établissement principal ou secondaire
|
|
2510=>39, // L'établissement secondaire devient principal
|
|
2520=>39, // Extension de l'établissement principal
|
|
2600=>39, // Décès
|
|
2610=>39, // Décision de l'unique actionnaire
|
|
2620=>39, // Transmission universelle du patrimoine
|
|
2630=>39, // Donation/Partage
|
|
2635=>39, // Cession de parts
|
|
2639=>39, // Nantissement de parts sociales
|
|
2640=>39, // Changement de domicile personnel
|
|
2650=>39, // Changement de nationalité
|
|
2660=>39, // Réalisation de l'apport partiel d'actif
|
|
2661=>39, // Apport partiel
|
|
2700=>39, // Fusion/Absorption (entitée absorbante)
|
|
2701=>39, // Fusion/Absorption (Entitée absorbante. Entité abso...
|
|
2702=>39, // Fusion/Absorption (Entitée absorbante. Entité abso...
|
|
2703=>39, // Fusion/Absorption (Entitée absorbante. Entité abso...
|
|
2710=>39, // Projet de fusion (entitée absorbante)
|
|
2720=>39, // Fusion/Absorption (entitée absorbée)
|
|
2721=>39, // Fusion/Absorption (entitée absorbée non identifiée...
|
|
2725=>39, // Fusion/Absorption
|
|
2726=>39, // Projet de Fusion/Absorption
|
|
2730=>39, // Projet de fusion (entitée absorbée)
|
|
2740=>39, // Scission
|
|
2750=>39, // Société participation
|
|
2800=>37, // Location gérance reçue
|
|
2840=>38, // Location/Gérance
|
|
2850=>38, // Location gérance donnée : Précédent propriétaire e...
|
|
2851=>38, // Location gérance donnée : Précédent propriétaire
|
|
2860=>38, // Location gérance donnée : Précédent exploitant
|
|
2870=>38, // Location gérance donnée
|
|
2875=>38, // Gérance/Mandat
|
|
2880=>38, // Renouvellement de location gérance
|
|
2881=>38, // Changement de location gérance
|
|
2885=>42, // Fin de location gérance
|
|
2890=>38, // Location gérance relative à une branche
|
|
2891=>39, // Location gérance relative à un établissement
|
|
2892=>39, // Location gérance relative à un fond
|
|
2900=>32, // Transfert d'établissement
|
|
2901=>32, // Transfert de siège
|
|
2902=>32, // Transfert du fonds
|
|
2903=>32, // Projet de transfert du siège
|
|
2904=>32, // Transfert du siège à l'étranger
|
|
2950=>32, // Création de fonds
|
|
2980=>32, // Transfert entre tribunaux
|
|
// DEPOTS DES COMPTES
|
|
3100=>91,
|
|
3200=>91,
|
|
3300=>91,
|
|
3999=>91,
|
|
// CREATIONS
|
|
4000=>1, // Création d'entreprise
|
|
4050=>1, // Création d'entreprise sans activité
|
|
4100=>1, // Création d'entreprise sans établissement
|
|
4200=>17, // Création d'établissement
|
|
4250=>17, // Création suite à transfert
|
|
4300=>17, // Création suite à reprise d'activité
|
|
4350=>1, // Création suite à fin de location-gérance
|
|
4355=>1, // Création suite à prise en location-gérance
|
|
4360=>1, // Reprise d'activité par suite de la résolution de v
|
|
4400=>1, // Création suite à changement de FJ
|
|
4410=>1, // Création suite à héritage ou donation
|
|
4450=>1, // Création suite à reprise par le conjoint
|
|
4500=>17, // Fonds acquis dans le cadre d'une PC
|
|
4501=>17, // Fonds acquis par achat
|
|
4502=>17, // Fonds acquis par apport
|
|
4600=>1, // Immatriculation d'une société de droit européen
|
|
4999=>1, // Création
|
|
|
|
// ventes !!!
|
|
5500=>2, // Entreprise réalisant la vente
|
|
5501=>2, // Entreprise réalisant la vente : Ancien propriétair... BODA ventes 12 0000-00-00 00:00:00
|
|
5502=>2, // Entreprise réalisant la vente : Ancien propriétair... BODA ventes 12 0000-00-00 00:00:00
|
|
5503=>2, // Entreprise réalisant la vente : Ancien propriétair... BODA ventes 12 0000-00-00 00:00:00
|
|
5510=>2, // Entreprise réalisant la vente : Co-propriétaire BODA ventes 12 0000-00-00 00:00:00
|
|
5600=>2, // Entreprise réalisant l'acquisition BODA ventes 12 0000-00-00 00:00:00
|
|
5650=>2,
|
|
5700=>2, // Entreprise réalisant l'acquisition BODA ventes 12 0000-00-00 00:00:00
|
|
5999=>2,
|
|
|
|
// RADIATIONS
|
|
6000=>4, //Radiation pour cause de clôture de la liquidation (amiable/simplifié/général)
|
|
6001=>4, //Radiation pour cause de clôture de la liquidation amiable
|
|
6002=>4, //Radiation pour cause de clôture de la liquidation judiciaire pour IA
|
|
6003=>4, //Radiation pour cause de clôture de la liquidation judiciaire
|
|
6004=>4, //Radiation pour cause de clôture de la liquidation judiciaire simplifié
|
|
6005=>4, //Radiation pour clôture du plan de cession
|
|
6100=>4, //Radiation pour cause de décès
|
|
6200=>4, //Radiation pour cause de mention d'office
|
|
6201=>4, //Radiation pour cause de cessation d'activité
|
|
6300=>4, //Radiation pour cause de non-exercice
|
|
6400=>4, //Radiation pour cause de transfert
|
|
6500=>4, //Radiation pour cause de jugement de clôture du plan de cession
|
|
6600=>4, //Radiation d'un établissement
|
|
6700=>4, //Radiation
|
|
);
|
|
$tabEven2RO=array( 2305=>'a',
|
|
2308=>'a', // Chg de dénomination(RS,Ens,Sigle)
|
|
2309=>'a', // Modification du nom commercial BODB mmd 12 0000-00-00 00:00:00
|
|
2310=>'a', // Modification du pseudonyme
|
|
2300=>'b', // Changement d'Adresse
|
|
2301=>'b',
|
|
2900=>'b', // Transfert d'établissement
|
|
2901=>'b', // Transfert de siège
|
|
2902=>'b', // Transfert du fonds
|
|
2903=>'b', // Projet de transfert du siège
|
|
2904=>'b', // Transfert du siège à l'étranger
|
|
2950=>'b', // Création de fonds
|
|
2980=>'b', // Transfert entre tribunaux
|
|
2101=>'c', // Chg.Capital/Cess.apport de parts
|
|
2315=>'d', // Changement de Dirigeants
|
|
2313=>'e', // Mod Act/obj.soc./Cess./Mise somm.
|
|
2307=>'f', // Changement de Forme juridique
|
|
2318=>'g', // Opération sur Participations
|
|
2725=>'h', // Fusion Absorption
|
|
2318=>'i', // Mod.garantie financière/Caution
|
|
2401=>'j', // Changement de régime matrimonial
|
|
2319=>'k', // Non dissolution anticipée
|
|
2318=>'l', // Non dissolution anticipée
|
|
2318=>'m', // Dissolution anticipée (ou non)
|
|
2303=>'n', // Mod.date cloture exercice social
|
|
5500=>'V', // Entreprise réalisant la vente
|
|
5501=>'V', // Entreprise réalisant la vente : Ancien propriétair... BODA ventes 12 0000-00-00 00:00:00
|
|
5502=>'V', // Entreprise réalisant la vente : Ancien propriétair... BODA ventes 12 0000-00-00 00:00:00
|
|
5503=>'V', // Entreprise réalisant la vente : Ancien propriétair... BODA ventes 12 0000-00-00 00:00:00
|
|
5510=>'V', // Entreprise réalisant la vente : Co-propriétaire BODA ventes 12 0000-00-00 00:00:00
|
|
5600=>'V',
|
|
5650=>'V',
|
|
5700=>'A', // Entreprise réalisant l'acquisition BODA ventes 12 0000-00-00 00:00:00
|
|
1411=>'F', // Arrêt du plan de cession
|
|
1408=>'G', // Modification du plan de cession
|
|
1409=>'N', // Modification du plan de continuation
|
|
1414=>'M', // Arrêt du plan de redressement
|
|
|
|
);
|
|
|
|
|
|
function exporte($txt, $lon, $sep='') {
|
|
$txt=strtr(trim($txt),array('''=>"'",'&'=>'&', '²'=>'²', "\r"=>'', "\n"=>'', "\t"=>''));
|
|
|
|
if ($sep=='') return sprintf("%-".$lon.'.'.$lon."s", $txt);
|
|
|
|
return trim(sprintf("%-".$lon.'.'.$lon."s", $txt)).$sep;
|
|
}
|
|
|
|
|
|
function conversionSd2So2000($nomFichierIn, $numeroAbonneBil='000960030', $nomFichierOut='', $optionFicheId='S') {
|
|
|
|
$message='';
|
|
$iDb=new WDB();
|
|
$iBodacc=new MBodacc();
|
|
$iInsee=new MInsee();
|
|
$iRncs=new MRncs();
|
|
|
|
global $tabEvenSolib;
|
|
global $tabEven2SO;
|
|
global $tabEven2RO;
|
|
|
|
$tabLignes=file($nomFichierIn);
|
|
//print_r($tabLignes);
|
|
//die();
|
|
|
|
$ligne001=$ligne100=$ligne104=$ligne999=0;
|
|
if ($nomFichierOut=='') $nomFichierOut=$nomFichierIn.'.bil';
|
|
|
|
$fp=fopen($nomFichierOut, 'w');
|
|
$dateJ=date('Ymd');
|
|
$ecrireLignePre=false;
|
|
|
|
/** Codes/Variables à gérer **/
|
|
$depPar=0;
|
|
$SOSTAE='';
|
|
$typeFicheId='I'; // Fiche Identifiant
|
|
$optExtInsee=$optScore=false;
|
|
|
|
/** Type de fiche Id **/
|
|
if (strpos($optionFicheId, 'S')==true) $typeFicheId='S'; // Fiche Standard
|
|
elseif (strpos($optionFicheId, 'C')==true) $typeFicheId='C'; // Fiche Complète
|
|
if (strpos($optionFicheId, 'E')==true) $optExtInsee=true; // Option Extension INSEE
|
|
if (strpos($optionFicheId, 'N')==true) $optScore=true; // Option Score
|
|
|
|
foreach ($tabLignes as $i=>$ligne) {
|
|
$typeLigne=substr($ligne, 0, 3)*1;
|
|
switch ($typeLigne) {
|
|
case 1: // Ligne ignorée
|
|
// Ecriture de l'entête
|
|
$ligne001++;
|
|
break;
|
|
case 100: // Structure Bodacc
|
|
case 999: // Fin
|
|
$strTxt=wordwrap($txtAnn, 39, EOL);
|
|
$tabTxt=explode(EOL, $strTxt);
|
|
foreach($tabTxt as $j=>$txt) {
|
|
$SOSEQ++;
|
|
if($j%16==0) {
|
|
// Type d'enregistrement 1=EntConf, 2=Rejet, 4=Multipropo, 5=Suivi MAJ Entrep, 7=Infos, 8=Envoi documen, 9=Annonce
|
|
$typEnr=9;
|
|
if ($j==0) $ligneTXT =initstr($SONABO, 9, '0', ALIGN_RIGHT); // Numéro d'abonné BIL ?
|
|
else $ligneTXT.=EOL.initstr($SONABO, 9, '0', ALIGN_RIGHT); // Numéro d'abonné BIL ?
|
|
$ligneTXT.=initstr($SONUME, 9, '0', ALIGN_RIGHT); // Numéro d'entreprise BIL ?
|
|
$ligneTXT.=initstr($SONUS, 9, '0', ALIGN_RIGHT); // Numéro d'UFS BIL ?
|
|
$ligneTXT.=initstr($nann, 9, '0', ALIGN_RIGHT); // Numéro d'annonce BIL ?
|
|
$ligneTXT.=initstr($siren, 9, '0', ALIGN_RIGHT); // Siren
|
|
$ligneTXT.=initstr($nic, 5, '0', ALIGN_RIGHT); // Nic
|
|
$ligneTXT.=exporte('SE', 2); // Code produit BIL ? SE, DE, DI, SJ
|
|
$ligneTXT.=initstr($SOSEQ, 5, '0', ALIGN_RIGHT); // Numéro dans la séquence
|
|
$ligneTXT.=initstr($dateJ, 8, '0', ALIGN_RIGHT); // Numéro dans la séquence
|
|
$ligneTXT.=exporte($typEnr, 1); // Type d'enregistrement 1=EntConf, 2=Rejet, 4=Multipropo, 5=Suivi MAJ Entrep, 7=Infos, 8=Envoi documen, 9=Annonce
|
|
$ligneTXT.=exporte('TXT', 3); // Structure identité
|
|
$ligneTXT.=exporte('A', 1); // Confirmation 'A'uto ou 'C' pour manuelle
|
|
$ligneTXT.=exporte($ref, 30); // Réf. Client
|
|
$ligneTXT.=exporte($SOORIG, 1); // 1:Insee actif, 2=Ufs, 3=Annonce, 4=Manuelle, 5=Asso, 7=RCS actif, 8=Insee cessa eco, 9=Insee/RCS radié
|
|
$ligneTXT.=exporte($SOJAL, 3); // 001=Bodacc A, 200=Bodacc B, 300=Bodacc C
|
|
$ligneTXT.=initstr($datePar, 8, '0', ALIGN_RIGHT); // Date de parution
|
|
$ligneTXT.=initstr(0, 5, '0', ALIGN_RIGHT); // Page
|
|
$ligneTXT.=exporte($codeEve, 2); //
|
|
$ligneTXT.=initstr($depPar, 2, '0', ALIGN_RIGHT);
|
|
$ligneTXT.=initstr($numAnn, 6, '0', ALIGN_RIGHT);
|
|
$ligneTXT.=exporte($codeRol, 1); //
|
|
$ligneTXT.=exporte('T', 1);
|
|
}
|
|
$ligneTXT.=exporte($txt, 40);
|
|
}
|
|
$codeEve=$codeRol='';
|
|
$ligneOut=$ligneID.EOL.$ligneANN.EOL.$ligneTXT;
|
|
if ($ligne100>1) $ecrireLignePre=true;
|
|
if($typeLigne==999) {
|
|
$ligne999++;
|
|
break;
|
|
}
|
|
|
|
$nann = trim(substr($ligne, 3 , 10 ))*1; // N° d'annonce
|
|
$siren = substr($ligne, 13 , 9 ); // Siren de l'entreprise concernée par l'annonce
|
|
$tabIdentite=@$iInsee->getIdentiteEntreprise($siren);
|
|
$nic = trim(substr($ligne, 22, 5 ))*1; // 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= substr($ligne, 31 , 8 )*1; // 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
|
|
$numRC = trim(substr($ligne,95 , 9 )); // Numéro de RC (Registre du Commerce) de l'entreprise
|
|
$rs = trim(substr($ligne,104, 150 )); // Raison sociale de l'entreprise
|
|
$nomCom = trim(substr($ligne,254, 100 )); // Nom Commerciale
|
|
$ens = trim(substr($ligne,354, 100 )); // Enseigne
|
|
$fj = trim(substr($ligne,484, 4 ))*1; // FJ
|
|
$fjLib = trim(substr($ligne,488, 90 )); // FJ libellé
|
|
$capMnt = trim(substr($ligne,578, 15 )); // Capital
|
|
$capDev = trim(substr($ligne,593, 3 )); // Capital Devise
|
|
$adrNum = trim(substr($ligne,596, 4 )); //
|
|
$adrBtq = trim(substr($ligne,600, 1 )); // FJ libellé
|
|
$adrVoi = trim(substr($ligne,601, 5 )); // FJ libellé
|
|
$adrLib = trim(substr($ligne,606, 50 )); // FJ libellé
|
|
$adrL2 = trim(substr($ligne,656, 50 )); // FJ libellé
|
|
$adrL3 = trim(substr($ligne,706, 40 )); // FJ libellé
|
|
$adrCP = trim(substr($ligne,746, 5 ))*1; // FJ libellé
|
|
$adrVil = trim(substr($ligne,751, 45 )); // FJ libellé
|
|
if ($adrCP==0) {
|
|
$adrNum = trim(substr($ligne,796, 4 )); // FJ libellé
|
|
$adrBtq = trim(substr($ligne,800, 1 )); // FJ libellé
|
|
$adrVoi = trim(substr($ligne,801, 5 )); // FJ libellé
|
|
$adrLib = trim(substr($ligne,806, 50 )); // FJ libellé
|
|
$adrL2 = trim(substr($ligne,856, 50 )); // FJ libellé
|
|
$adrL3 = trim(substr($ligne,906, 40 )); // FJ libellé
|
|
$adrCP = trim(substr($ligne,946, 5 ))*1; // FJ libellé
|
|
$adrVil = trim(substr($ligne,951, 45 )); // FJ libellé
|
|
}
|
|
$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='';
|
|
foreach ($even as $codeEven)
|
|
if ($codeEven<>0) {
|
|
if (@$codeEve=='') $codeEve=$tabEven2SO[$codeEven];
|
|
if (@$codeRol=='') $codeRol=$tabEven2RO[$codeEven];
|
|
$txtEven.=$iBodacc->getEvenement($codeEven).', ';
|
|
$catEven=$iBodacc->getChapitreEvenement($codeEven);
|
|
}
|
|
else
|
|
$txtEven.='';
|
|
$txtEven=substr($txtEven,0,strlen($txtEven)-2);
|
|
$dateCess= substr($ligne, 1136, 8 )*1; // Date de cessat° des paiements
|
|
$dateJuge= substr($ligne, 1144, 8 )*1; // Date de jugement
|
|
$dateEffet=substr($ligne, 1161, 8 )*1; // Date d'effet
|
|
if ($dateEffet*1==0) $dateEffet=$dateJuge;
|
|
|
|
$vteMnt=trim(substr($ligne, 1169, 15 ))*1; // Montant de la vente
|
|
$vteDev=substr($ligne, 1184, 3 ); // Devise de la vente
|
|
|
|
|
|
if ($nic*1==0) $nic=$tabIdentite['Nic'];
|
|
|
|
$SONABO=$numeroAbonneBil;
|
|
if ($tabIdentite['Actif']==1) $SOORIG=1;
|
|
elseif (!isset($tabIdentite['Actif'])) $SOORIG=3;
|
|
elseif ($tabIdentite['Actif']==0 && ($tabIdentite['EntActiveRCS']==1||$tabIdentite['EtabActifRCS']==1)) $SOORIG=7;
|
|
elseif ($tabIdentite['Actif']==0 && $tabIdentite['EntActiveRCS']==0 && $tabIdentite['EtabActifRCS']==0) $SOORIG=9;
|
|
else $SOORIG=8;
|
|
|
|
if ($tabIdentite['Civilite']==1) $SOTSEX='M';
|
|
elseif ($tabIdentite['Civilite']==2) $SOTSEX='F';
|
|
else $SOTSEX='';
|
|
$SONUME=''.preg_replace('/^0+/','', $tabIdentite['Source']).$tabIdentite['SourceId'];
|
|
$SONUS='000000000';
|
|
$SOSEQ=1;
|
|
if ($adrCP==0) {
|
|
$adrNum = $tabIdentite['AdresseNum'];
|
|
$adrBtq = $tabIdentite['AdresseBtq'];
|
|
$adrVoi = $tabIdentite['AdresseVoie'];
|
|
$adrLib = $tabIdentite['AdresseRue'];
|
|
$adrL2 = $tabIdentite['Adresse2'];
|
|
$adrL3 = '';
|
|
$adrCP = $tabIdentite['CP'];
|
|
$adrVil = $tabIdentite['Ville'];
|
|
}
|
|
$typEnr=1;
|
|
$DBILS2 =initstr($SONABO, 9, '0', ALIGN_RIGHT); // Numéro d'abonné BIL ?
|
|
$DBILS2.=initstr($SONUME, 9, '0', ALIGN_RIGHT); // Numéro d'entreprise BIL ?
|
|
$DBILS2.=initstr($SONUS, 9, '0', ALIGN_RIGHT); // Numéro d'UFS BIL ?
|
|
$DBILS2.=initstr($nann, 9, '0', ALIGN_RIGHT); // Numéro d'annonce BIL ?
|
|
$DBILS2.=initstr($siren, 9, '0', ALIGN_RIGHT); // Siren
|
|
$DBILS2.=initstr($nic, 5, '0', ALIGN_RIGHT); // Nic
|
|
$DBILS2.=exporte('SE', 2); // Code produit BIL ? SE, DE, DI, SJ
|
|
$DBILS2.=initstr($SOSEQ, 5, '0', ALIGN_RIGHT); // Numéro dans la séquence dans le groupe
|
|
$DBILS2.=initstr($dateJ, 8, '0', ALIGN_RIGHT); // Date d'envoi de l'info
|
|
$DBILS2.=exporte($typEnr, 1); // Type d'enregistrement 1=EntConf, 2=Rejet, 4=Multipropo, 5=Suivi MAJ Entrep, 7=Infos, 8=Envoi documen, 9=Annonce
|
|
$DBILS2.=exporte('ID', 3); // Structure identité
|
|
$DBILS2.=exporte('A', 1); // Confirmation 'A'uto ou 'C' pour manuelle
|
|
$DBILS2.=exporte($ref, 30); // Réf. Client
|
|
//($annonce['codePostalSiege'], 5, '0', ALIGN_RIGHT)
|
|
$DBILS2.=exporte($SOORIG, 1); // 1:Insee actif, 2=Ufs, 3=Annonce, 4=Manuelle, 5=Asso, 7=RCS actif, 8=Insee cessa eco, 9=Insee/RCS radié
|
|
$DBILS2.=exporte('', 1); // D=Siren douteux
|
|
$DBILS2.=exporte('', 9); // Témoin de MAJ
|
|
$DBILS2.=exporte($rs, 60); //
|
|
$DBILS2.=exporte(substr($rs,60),30); //
|
|
$DBILS2.=exporte($tabIdentite['Sigle'], 30); // Vide !
|
|
$DBILS2.=exporte($ens, 60); //
|
|
$DBILS2.=initstr($adrNum, 4, '0', ALIGN_RIGHT); //
|
|
$DBILS2.=exporte($adrBtq, 1); //
|
|
$DBILS2.=exporte(preg_replace('/ +/',' ',$adrVoi.' '.$adrLib), 33); //
|
|
$DBILS2.=exporte($adrVil, 32); //
|
|
$DBILS2.=initstr($adrCP, 5, '0', ALIGN_RIGHT); //
|
|
$DBILS2.=exporte(preg_replace('/ +/',' ',$adrL2.' '.$adrL3), 30); //
|
|
$DBILS2.=initstr($tabIdentite['DateCreaEn'], 8, '0', ALIGN_RIGHT); // Date créa ENT
|
|
$DBILS2.=exporte($tabIdentite['Siege'], 1); // Statut de l'établissement
|
|
$DBILS2.=initstr($tabIdentite['FJ'], 4, 0, ALIGN_RIGHT);
|
|
$DBILS2.=exporte($SOTSEX, 1); // Sexe M/F
|
|
|
|
$DBILS2.=initstr($tabIdentite['NbEtab']*1, 4, 0, ALIGN_RIGHT);
|
|
$DBILS2.=exporte($SOSTAE, 4); // NAF4 ENT
|
|
$DBILS2.=exporte('', 4); // Famille ENT
|
|
$DBILS2.=exporte($SOSTAE, 4); // NAF4 ETAB
|
|
$DBILS2.=exporte('', 4); // Famille ETAB
|
|
$DBILS2.=exporte('', 1); // Indicateur Procol
|
|
$DBILS2.=exporte('', 2); // Code monnaie
|
|
$DBILS2.=initstr(0, 13, '0', ALIGN_RIGHT); // Montant du capital
|
|
$DBILS2.=exporte('', 7); // Effectif
|
|
$DBILS2.=exporte('', 9); // Num RC
|
|
$DBILS2.=initstr(strtr($tabIdentite['Tel'],array('.'=>'','+'=>'00',' '=>'','-'=>'','/'=>'')), 10, '0', ALIGN_RIGHT);
|
|
$DBILS2.=initstr(strtr($tabIdentite['Fax'],array('.'=>'','+'=>'00',' '=>'','-'=>'','/'=>'')), 10, '0', ALIGN_RIGHT);
|
|
//5630Z5630Z RUE 00000000 00000000 2901929019
|
|
$DBILS2.=exporte($tabIdentite['Web'], 40);
|
|
$DBILS2.=exporte('', 3); // Qualité du dirigeant
|
|
$DBILS2.=exporte('', 60); // NOM, Prénom du dirigeant
|
|
$DBILS2.=initstr(0, 8, '0', ALIGN_RIGHT); // Date Naiss Diri
|
|
// $DBILS2.=exporte('', 79);
|
|
$DBILS2.=exporte('', 35); // Lieu de Naissance
|
|
if ($optScore) {
|
|
$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", false, MYSQL_ASSOC);
|
|
if (@$tabTmp[0]['siren']*1==$siren) {
|
|
echo "$siren, parution Annonce le $datePar, calcul le ".@$tabTmp[0]['dateUpdate'].EOL;
|
|
$tabScore=$tabTmp[0];
|
|
$note=$tabScore['indiScore20'];
|
|
$encours=round($tabScore['encours']/1000);
|
|
} else {
|
|
echo "$siren, parution Annonce le $datePar, pas de calcul !".EOL;
|
|
$tabScore=@calculIndiScore($siren, $nic, false, 0, false);
|
|
$note=$tabScore['Indiscore20'];
|
|
$encours=round($tabScore['encours']/1000);
|
|
}
|
|
$encoursDev='EUR';
|
|
} else
|
|
$note=$encours=$encoursDev='';
|
|
$DBILS2.=initstr($note, 2, '0', ALIGN_RIGHT); //37 Note sur 20
|
|
$DBILS2.=initstr($encours, 7, '0', ALIGN_RIGHT); //44 Encours KE KF
|
|
$DBILS2.=exporte('', 1); //45 Code paiement
|
|
$DBILS2.=exporte('', 1); //46 Code situfi
|
|
$DBILS2.=exporte('', 1); //47 Code Avis
|
|
$DBILS2.=exporte($encoursDev,3); //47 Encours de la devise
|
|
$DBILS2.=exporte('', 6); // Code Sicovam
|
|
$DBILS2.=exporte('', 2); // Type de marché RM, CT, SM, HC, MO, NM, ML, AL, MR
|
|
$DBILS2.=exporte('', 12); // Code ISIN
|
|
$DBILS2.=exporte('', 9); // Filler Bil anciennement sur 83, 32 puis 9
|
|
$DBILS2.=exporte($tabIdentite['NafEnt'], 5);
|
|
$DBILS2.=exporte($tabIdentite['NafEtab'], 5);//
|
|
$DBILS2.=exporte('', 18); //60 Filler
|
|
$DBILS2.=exporte('', 4); // Filler RUE ?
|
|
$DBILS2.=exporte('', 5); // Nic source cible de l'étab
|
|
$DBILS2.=initstr(0, 8, '0', ALIGN_RIGHT); // Date de MAJ du capital
|
|
$DBILS2.=exporte('', 3); // Monnaie d'origine du capital
|
|
$DBILS2.=exporte('', 3); // Monnaie de livraison du capital (fin de l'ancien filler)
|
|
$DBILS2.=initstr(0, 8, '0', ALIGN_RIGHT); // Date de création de l'établissement
|
|
$DBILS2.=exporte('', 1); // Origine création
|
|
$DBILS2.=exporte('', 2); // Tr Eff Ent
|
|
$DBILS2.=exporte('', 2); // Tr Eff Etab
|
|
$DBILS2.=exporte('', 2); // NAP 40 Entrep
|
|
$DBILS2.=exporte('', 2); // NAP 40 Etab
|
|
$DBILS2.=exporte('', 5); // Act Artisanale Etab
|
|
$DBILS2.=exporte('', 1); // Modalité activité entrep
|
|
$DBILS2.=exporte('', 1); // Modalité activité etab
|
|
$DBILS2.=exporte('', 2); // Code Région Entrep
|
|
$DBILS2.=exporte('', 2); // Code Région Etab
|
|
$DBILS2.=exporte($tabIdentite['Dept'], 2); // Département du siège
|
|
$DBILS2.=exporte($tabIdentite['codeCommune'], 3); // Localité
|
|
$DBILS2.=exporte($tabIdentite['Dept'], 2); // Département de l'étab
|
|
$DBILS2.=exporte($tabIdentite['codeCommune'], 3); // Localité
|
|
$DBILS2.=exporte('', 1); // Dept Outre Mer
|
|
$DBILS2.=exporte('', 1); // Arrondissement
|
|
$DBILS2.=exporte('', 1); // Canton Dom ?
|
|
$DBILS2.=exporte('', 2); // Canton
|
|
$DBILS2.=exporte('', 8); // Code Ilot
|
|
$DBILS2.=exporte('', 2); // ZEMET
|
|
$DBILS2.=exporte('', 2); // Tranche Comm Etab
|
|
$DBILS2.=exporte('', 2); // Dept Unite urbaine
|
|
$DBILS2.=exporte('', 1); // Taille UU
|
|
$DBILS2.=exporte('', 2); // UU etab
|
|
$DBILS2.=exporte('', 5); // Code rivoli
|
|
$DBILS2.=exporte('', 2); // PPale région entrep
|
|
$DBILS2.=exporte('', 1); // Code monoreg
|
|
$DBILS2.=exporte('', 1); // Code monoact
|
|
$DBILS2.=exporte('', 1); // Code tranche CA
|
|
$DBILS2.=exporte('', 1); // Tranche part CA export
|
|
$DBILS2.=exporte('', 1); // RECME
|
|
$DBILS2.=exporte('', 1); // Ordinarité
|
|
$DBILS2.=exporte('', 2); // Code nature étab
|
|
$DBILS2.=exporte('', 2); // Sigularité étab
|
|
|
|
$ligneID=$DBILS2;
|
|
$ligne100++;
|
|
$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);
|
|
|
|
$SOSEQ++;
|
|
if ($bodacc=='A') $SOJAL='001';
|
|
elseif ($bodacc=='B') $SOJAL='200';
|
|
elseif ($bodacc=='C') $SOJAL='300';
|
|
else $SOJAL='999';
|
|
$DBILS2 =initstr($SONABO, 9, '0', ALIGN_RIGHT); // Numéro d'abonné BIL ?
|
|
$DBILS2.=initstr($SONUME, 9, '0', ALIGN_RIGHT); // Numéro d'entreprise BIL ?
|
|
$DBILS2.=initstr($SONUS, 9, '0', ALIGN_RIGHT); // Numéro d'UFS BIL ?
|
|
$DBILS2.=initstr($nann, 9, '0', ALIGN_RIGHT); // Numéro d'annonce BIL ?
|
|
$DBILS2.=initstr($siren, 9, '0', ALIGN_RIGHT); // Siren
|
|
$DBILS2.=initstr($nic, 5, '0', ALIGN_RIGHT); // Nic
|
|
$DBILS2.=exporte('SE', 2); // Code produit BIL ? SE, DE, DI, SJ
|
|
$DBILS2.=initstr($SOSEQ, 5, '0', ALIGN_RIGHT); // Numéro dans la séquence
|
|
$DBILS2.=initstr($dateJ, 8, '0', ALIGN_RIGHT); // Numéro dans la séquence
|
|
$DBILS2.=exporte('9', 1); // Type d'enregistrement 1=EntConf, 2=Rejet, 4=Multipropo, 5=Suivi MAJ Entrep, 7=Infos, 8=Envoi documen, 9=Annonce
|
|
$DBILS2.=exporte('ANN', 3); // Structure identité
|
|
$DBILS2.=exporte('A', 1); // Confirmation 'A'uto ou 'C' pour manuelle
|
|
$DBILS2.=exporte($ref, 30); // Réf. Client
|
|
//($annonce['codePostalSiege'], 5, '0', ALIGN_RIGHT)
|
|
$DBILS2.=exporte($SOORIG, 1); // 1:Insee actif, 2=Ufs, 3=Annonce, 4=Manuelle, 5=Asso, 7=RCS actif, 8=Insee cessa eco, 9=Insee/RCS radié
|
|
$DBILS2.=exporte($SOJAL, 3); // 001=Bodacc A, 200=Bodacc B, 300=Bodacc C
|
|
$DBILS2.=initstr($datePar, 8, '0', ALIGN_RIGHT); // Date de parution
|
|
$DBILS2.=initstr(0, 5, '0', ALIGN_RIGHT); // Page
|
|
if ($codeEve=='') {
|
|
$message.="Siren : $siren, Bodacc $bodacc, code évènement non géré : '$codeEven'".EOL;
|
|
/*$nann = trim(substr($ligne, 3 , 10 ))*1; // N° d'annonce
|
|
$siren = substr($ligne, 13 , 9 ); // Siren de l'entreprise concernée par l'annonce
|
|
$tabIdentite=@$iInsee->getIdentiteEntreprise($siren);
|
|
$nic = trim(substr($ligne, 22, 5 ))*1; // 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
|
|
= substr($ligne, 30 , 1 ); // Code Bodacc (A, B ou C) A, B ou C
|
|
$datePar= substr($ligne, 31 , 8 )*1; // Date de parution du Bodacc Format AAAAMMJJ
|
|
$numAnn*/
|
|
sendMail('infoslegales@scores-decisions.com', 'ylenaour@scores-decisions.com', "Surveillance Annonces Legales SOFID (ERREUR)", $message);
|
|
return $message;
|
|
}
|
|
$DBILS2.=exporte($codeEve, 2); //
|
|
$DBILS2.=initstr($depPar, 2, '0', ALIGN_RIGHT);
|
|
$DBILS2.=initstr($numAnn, 6, '0', ALIGN_RIGHT);
|
|
$DBILS2.=exporte($codeRol, 1); //
|
|
$DBILS2.=exporte($tabEvenSolib[$codeEve], 5);
|
|
$DBILS2.=exporte($codeTri, 6); //
|
|
$DBILS2.=exporte($numPar, 3); //
|
|
$DBILS2.=initstr($dateJuge, 8, '0', ALIGN_RIGHT); // Date de jugement
|
|
$DBILS2.=initstr($dateEffet, 8, '0', ALIGN_RIGHT); // Date d'effet
|
|
$DBILS2.=initstr($dateCess, 8, '0', ALIGN_RIGHT); // Date de cessat° des paiements
|
|
$DBILS2.=exporte($vteDev, 2); // Devise de la vente
|
|
$DBILS2.=initstr($vteMnt, 11, '0', ALIGN_RIGHT); // Montant de la vente
|
|
$DBILS2.=exporte('', 33); // Particularité
|
|
$DBILS2.=exporte('', 4); // Code rubrique du Bodacc A1xx
|
|
$DBILS2.=exporte('', 6); // Code lib injecté
|
|
|
|
$tabJuge=$iRncs->getIntervenants($siren);
|
|
foreach ($tabJuge as $iDepot=>$depot) {
|
|
$DBILS2.=exporte($depot['admid'], 5); // Mot clé Nom
|
|
$DBILS2.=exporte($depot['admtype'], 1); // Type officier ministeriel
|
|
$DBILS2.=initstr($depot['admid'], 7, '0', ALIGN_RIGHT); // Code Bil
|
|
$DBILS2.=exporte($depot['admnom'], 30); // Nom syndic
|
|
$DBILS2.=initstr($depot['admadrNum'], 4, '0', ALIGN_RIGHT); // N° rue
|
|
$DBILS2.=exporte($depot['admadrInd'], 1); // Bis
|
|
$DBILS2.=exporte($depot['admadrType'], 3); // Type Voie
|
|
$DBILS2.=exporte($depot['admadrVoie'], 33); // Lib Voie
|
|
$DBILS2.=exporte($depot['admadr2'], 32); // Lieu
|
|
$DBILS2.=exporte($depot['admadrCP'], 5); // CP
|
|
$DBILS2.=exporte($depot['admadrVille'], 32); // Ville
|
|
$DBILS2.=exporte('', 10); // Tel
|
|
if ($iDepot==1) break;
|
|
}
|
|
|
|
$ligneANN=$DBILS2;
|
|
$txtAnn='';
|
|
//if ($ligne100>1) $ecrireLignePre=true;
|
|
break;
|
|
case 104: // Annonce
|
|
$ligne104++;
|
|
$txtAnn=trim($txtAnn.' '.trim(substr($ligne, 89 , 1910))); // Texte Annonce
|
|
break;
|
|
default: // Ligne non gérée
|
|
break;
|
|
}
|
|
if ($ecrireLignePre) {
|
|
fwrite($fp, $ligneOut.EOL);
|
|
$ecrireLignePre=false;
|
|
}
|
|
}
|
|
fclose($fp);
|
|
return true;
|
|
} |