2010-11-04 11:05:01 +00:00
< ? php
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 . 'partenaires/classMRncs.php' );
include_once ( FWK_PATH . 'mail/sendMail.php' );
global $tabEvenSolib ;
global $tabEven2SO ;
global $tabEven2RO ;
$tabEvenSolib = array ( 10 => 'CR' ,
11 => 'CR' ,
13 => 'CR' ,
14 => 'CR' ,
15 => 'CR' ,
16 => 'CR' ,
17 => 'CR' ,
18 => 'CR' ,
19 => 'CR' ,
20 => 'VT' ,
21 => 'VT' ,
22 => 'VT' ,
24 => 'VT' ,
25 => 'VT' ,
30 => 'CE' ,
31 => 'ME' ,
32 => 'ME' ,
33 => 'ME' ,
34 => 'ME' ,
35 => 'Rec' ,
36 => 'MAF' ,
37 => 'LG' ,
38 => 'LG' ,
39 => 'MD' ,
40 => 'RD' ,
41 => 'DIS' ,
42 => 'FLG' ,
51 => 'RJ' ,
52 => 'RJ' ,
53 => 'RA' ,
56 => 'PIE' ,
57 => 'SAUVJ' ,
58 => 'SAUVP' ,
59 => 'RR' ,
60 => 'R&L' ,
61 => 'LB' ,
62 => 'LJ' ,
63 => 'FP' ,
64 => 'INT' ,
65 => 'LQ' ,
69 => 'RL' ,
70 => 'Suite' ,
71 => 'SRJ' ,
72 => 'SRLJ' ,
73 => 'SP' ,
74 => 'AP' ,
75 => 'MP' ,
76 => 'EP' ,
77 => 'PRO' ,
78 => 'DC' ,
79 => 'CIA' ,
80 => 'INFR' ,
91 => 'DC' ,
92 => 'CP' ,
);
$tabEven2SO = array ( // PROCOL
2010-11-29 14:17:26 +00:00
1010 => 92 , // D<> claration de cessation de paiement
2010-11-04 11:05:01 +00:00
1050 => 70 , // Homologation de la conciliation
2010-11-29 14:17:26 +00:00
1055 => 70 , // R<> solution de la conciliation
2010-11-04 11:05:01 +00:00
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
2010-11-29 14:17:26 +00:00
1203 => 78 , // Avis de d<> pot de l'<27> tat de collocation
1204 => 78 , // D<> p<EFBFBD> t des cr<63> ances
2010-11-04 11:05:01 +00:00
1205 => 78 ,
1206 => 78 ,
2010-11-29 14:17:26 +00:00
1207 => 53 , // R<> glemement amiable
2010-11-04 11:05:01 +00:00
1208 => 78 ,
2010-11-29 14:17:26 +00:00
1209 => 51 , // R<> glement Judiciaire
2010-11-04 11:05:01 +00:00
1210 => 77 , // Production
2010-11-29 14:17:26 +00:00
1211 => 52 , // Redressement Judiciaire par extension au(x) g<> rant(s)
2010-11-04 11:05:01 +00:00
1212 => 69 , // Rectif ou Annul.LJ
2010-11-29 14:17:26 +00:00
1214 => 78 , // Avis de d<> p<EFBFBD> t de l'<27> tat des cr<63> ances (Loi de 1985)
1215 => 70 , // Jugement de d<> signation des organes de la proc<6F> dure
1216 => 78 , // Autre avis de d<> p<EFBFBD> t
2010-11-04 11:05:01 +00:00
1300 => 62 , // Conversion Redressement Judiciaire en Liquidation
1301 => 62 , // Ouverture Liquidation Judiciaire
2010-11-29 14:17:26 +00:00
1302 => 66 , // Ouverture Liquidation Judiciaire Simplifi<66> e
1303 => 62 , // Ouverture Liquidation Judiciaire sur r<> solution
1304 => 62 , // R<> ouverture Liquidation Judiciaire
2010-11-04 11:05:01 +00:00
1305 => 62 , // Liquidation Judiciaire
2010-11-29 14:17:26 +00:00
1306 => 66 , // Liquidation Judiciaire simplifi<66> e
2010-11-04 11:05:01 +00:00
1307 => 62 , // Conversion sauvegarde en Liquidation Judiciaire
2010-11-29 14:17:26 +00:00
1308 => 62 , // Fin du r<> gime de Liquidation Judiciaire Simplifi<66> e
2010-11-04 11:05:01 +00:00
1309 => 62 , // Conversion Liquidation Judiciaire en Liquidation
2010-11-29 14:17:26 +00:00
1310 => 56 , // Proc<6F> dure d'Insolvabilit<69> Europ<6F> enne
1311 => 62 , // Liquidation Judiciaire par extension au(x) g<> rants
2010-11-04 11:05:01 +00:00
1312 => 62 , // Liquidation Judiciaire avec continuation d'exploitation
1313 => 62 , // Liquidation Judiciaire sans remise des accessoires
2010-11-29 14:17:26 +00:00
1346 => 70 , // Proc<6F> dure d'insolvabilit<69> (R<> glement 1346/2000 du Conseil Europ<6F> en)
2010-11-04 11:05:01 +00:00
1400 => 70 , // Nomination d'un administrateur judiciaire
1401 => 70 , // Nomination d'un mandataire judiciaire
2010-11-29 14:17:26 +00:00
1402 => 70 , // Nomination d'un repr<70> sentant des cr<63> anciers
1403 => 70 , // Nominnation/Remplacement de commissaire <20> l'ex<65> cution du plan
1404 => 70 , // Prolongement de la mission du commissaire <20> l'ex<65> cution du plan
2010-11-04 11:05:01 +00:00
1405 => 70 , // Nomination d'un juge commissaire
1406 => 70 , // Changement de SYNDIC
1407 => 75 , // Modif. de Plan
1408 => 75 , // Modification du plan de cession
1409 => 75 , // Modif. de de continuation
2010-11-29 14:17:26 +00:00
1410 => 75 , // Suite de jugement/r<> glement/liquidation
1411 => 75 , // Arr<72> t du plan de cession
1412 => 75 , // Arr<72> t du plan de cession partielle
1413 => 75 , // Arr<72> t du plan de continuation
1414 => 75 , // Arr<72> t du plan de redressement
2010-11-04 11:05:01 +00:00
1415 => 75 , // Prolongement du plan cession
2010-11-29 14:17:26 +00:00
1416 => 75 , // Jugement constatant la bonne ex<65> cution du plan
2010-11-04 11:05:01 +00:00
1417 => 62 , // Jugement d'extension de liquidation judiciaire
2010-11-29 14:17:26 +00:00
1418 => 52 , // Jugement d'extension d'une proc<6F> dure de redressement judiciaire
1419 => 57 , // Jugement d'extension d'une proc<6F> dure de sauvegarde
2010-11-04 11:05:01 +00:00
1420 => 70 , // Nomination d'un liquidateur judiciaire
1421 => 70 , // Jugement prorogeant le plan de redressement
2010-11-29 14:17:26 +00:00
1425 => 70 , // Plan de cession avec location g<> rance
1430 => 70 , // Jugement autorisant la poursuite d'activit<69>
1431 => 70 , // Jugement de cessation partielle d'activit<69>
1435 => 70 , // Suspension de l'ex<65> cution provisoire
2010-11-04 11:05:01 +00:00
1436 => 70 , // Suspension provisoire des poursuites
2010-11-29 14:17:26 +00:00
1440 => 70 , // Jugement accordant un d<> lai pour d<> poser la liste des cr<63> ances
2010-11-04 11:05:01 +00:00
1445 => 70 , // Concordat
1450 => 92 , //Cessation paiement
2010-11-29 14:17:26 +00:00
1455 => 70 , // Jugement arr<72> tant le plan d'apurement du passif
2010-11-04 11:05:01 +00:00
1460 => 70 , // Homologation du plan
1470 => 70 , // Fin de mission d'administrateur judiciaire
2010-11-29 14:17:26 +00:00
1480 => 70 , // Jugement ordonnant la jonction des proc<6F> dures
1500 => 79 , // Cl<43> ture de la proc<6F> dure
1501 => 79 , // Cl<43> ture de la proc<6F> dure apr<70> s cession totale
1502 => 76 , // Cl<43> ture de la proc<6F> dure pour extinction du passif
2010-11-04 11:05:01 +00:00
1503 => 79 , // Cloture insuf.Actif
2010-11-29 14:17:26 +00:00
1504 => 79 , // Cl<43> ture sauvegarde pour absence de projet de plan
2010-11-04 11:05:01 +00:00
1505 => 74 , // Appel de jugement
1506 => 59 , // Rectif ou Annulation RJ
1507 => 74 , // Appel de jugement
1508 => 70 , // Extinction du plan de sauvegarde
1509 => 70 , // Extinction du plan de redressement
1510 => 74 , // Rejet du plan
2010-11-29 14:17:26 +00:00
1511 => 70 , // R<> solution du plan de cession
1512 => 70 , // R<> solution du plan de continuation
1513 => 70 , // R<> solution du plan de sauvegarde
1515 => 74 , // Arr<72> t divers
1517 => 59 , // Rectification d'une erreur mat<61> rielle
2010-11-04 11:05:01 +00:00
1520 => 70 , // Ordonnance
2010-11-29 14:17:26 +00:00
1525 => 74 , // Appel du minist<73> re public
1530 => 70 , // Jugement constatant l'imp<6D> cuniosit<69> de la proc<6F> dure de liquidation
1540 => 70 , // Ordonnance statuant sur les contestations du projet de r<> partition
1541 => 74 , // R<> tractation de prononc<6E> de liquidation judiciaire sur tierce opposition
1542 => 74 , // R<> tractation de jugement d'ouverture d'une proc<6F> dure de sauvegarde sur tierce opposition
1543 => 74 , // R<> tractation de jugement d'ouverture d'une proc<6F> dure de redressement judiciaire sur tierce opposition
1544 => 74 , // R<> tractation de jugement d'ouverture d'une proc<6F> 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
2010-11-04 11:05:01 +00:00
1550 => 70 , // Suites de jugements
2010-11-29 14:17:26 +00:00
1580 => 70 , // Jugement pronon<6F> ant la continuation de l'activit<69> par apurement du passif
2010-11-04 11:05:01 +00:00
1600 => 63 , // Faillite personnelle
2010-11-29 14:17:26 +00:00
1601 => 64 , // Interdiction de g<> rer
1602 => 70 , // Jugement de r<> habilitation
2010-11-04 11:05:01 +00:00
1603 => 61 , // Liquidation de Biens
1604 => 80 , // Banqueroute
1605 => 70 , // Jugement autorisant la reprise des poursuites individuelles
1610 => 80 , // Faillite personnelle (Loi de 1985)
2010-11-29 14:17:26 +00:00
1611 => 80 , // Interdiction de g<> rer (Loi de 1985)
2010-11-04 11:05:01 +00:00
1620 => 70 , // Jugement condamnant le dirigeant en comblement du passif
2010-11-29 14:17:26 +00:00
1650 => 80 , // R<> tablissement Personnel
1700 => 70 , // D<> cision soumise <20> publicit<69>
2010-11-04 11:05:01 +00:00
1900 => 80 , // Interdiction temporaire d'exercice de la profession de CAC
1901 => 80 , // Radiation de la liste des CAC
2010-11-29 14:17:26 +00:00
1999 => 70 , // Autre proc<6F> dure collective
2010-11-04 11:05:01 +00:00
// MMD
2000 => 40 , // 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
2010-11-29 14:17:26 +00:00
2200 => 40 , // Cessation d'activit<69>
2201 => 40 , // Cessation d'activit<69> temporaire
2010-11-04 11:05:01 +00:00
2202 => 41 , // Dissolution
2010-11-29 14:17:26 +00:00
2203 => 41 , // Dissolution de la soci<63> t<EFBFBD>
2204 => 41 , // Cessation d'activit<69> avec dissolution
2010-11-04 11:05:01 +00:00
2205 => 40 , // Fermeture du fonds
2010-11-29 14:17:26 +00:00
2206 => 39 , // Mise en sommeil de la soci<63> t<EFBFBD>
2207 => 39 , // Suppression d'une branche d'activit<69>
2208 => 39 , // Suppression de l'<27> tablissement principal
2010-11-04 11:05:01 +00:00
2209 => 39 , // Vente du fonds
2010-11-29 14:17:26 +00:00
2210 => 39 , // D<> claration de dissolution par l'associ<63> unique.
2211 => 39 , // Cl<43> ture de la liquidation
2010-11-04 11:05:01 +00:00
2212 => 39 , // Liquidation amiable
2300 => 39 , // Changement d'Adresse
2010-11-29 14:17:26 +00:00
2301 => 39 , // Modification de l'adresse du si<73> ge
2010-11-04 11:05:01 +00:00
2302 => 39 , // Modification de l'enseigne
2010-11-29 14:17:26 +00:00
2303 => 39 , // Modification de la date de cl<63> ture de l'exercice
2304 => 39 , // Modification de la date de d<> but d'activit<69>
2305 => 39 , // Modification de la d<> nomination
2306 => 39 , // Modification de la dur<75> e de la soci<63> t<EFBFBD>
2010-11-04 11:05:01 +00:00
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)
2010-11-29 14:17:26 +00:00
2313 => 39 , // Modification de l'activit<69>
2314 => 39 , // Poursuite de l'activit<69>
2010-11-04 11:05:01 +00:00
2315 => 39 , // Modification de l'administration
2010-11-29 14:17:26 +00:00
2316 => 39 , // Mise en activit<69> de la soci<63> t<EFBFBD>
2010-11-04 11:05:01 +00:00
2317 => 39 , // Modification du sigle
2318 => 39 , // Modifications diverses
2010-11-29 14:17:26 +00:00
2319 => 39 , // Poursuite de l'activit<69> malgr<67> la perte de plus de...
2010-11-04 11:05:01 +00:00
2320 => 39 , // Reconsitution de l'actif net
2010-11-29 14:17:26 +00:00
2321 => 39 , // Reconsitution de la moiti<74> de l'actif net
2350 => 39 , // D<> claration des associ<63> 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...
2010-11-04 11:05:01 +00:00
2406 => 39 , // Reprise du fonds par le conjoint
2407 => 39 , // Mention du conjoint collaborateur
2408 => 39 , // Radiation du conjoint collaborateur
2010-11-29 14:17:26 +00:00
2500 => 30 , // Confirmation <20> tablissement principal ou secondaire
2510 => 39 , // L'<27> tablissement secondaire devient principal
2520 => 39 , // Extension de l'<27> tablissement principal
2600 => 39 , // D<> c<EFBFBD> s
2610 => 39 , // D<> cision de l'unique actionnaire
2010-11-04 11:05:01 +00:00
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
2010-11-29 14:17:26 +00:00
2650 => 39 , // Changement de nationalit<69>
2660 => 39 , // R<> alisation de l'apport partiel d'actif
2010-11-04 11:05:01 +00:00
2661 => 39 , // Apport partiel
2010-11-29 14:17:26 +00:00
2700 => 39 , // Fusion/Absorption (entit<69> e absorbante)
2701 => 39 , // Fusion/Absorption (Entit<69> e absorbante. Entit<69> abso...
2702 => 39 , // Fusion/Absorption (Entit<69> e absorbante. Entit<69> abso...
2703 => 39 , // Fusion/Absorption (Entit<69> e absorbante. Entit<69> abso...
2710 => 39 , // Projet de fusion (entit<69> e absorbante)
2720 => 39 , // Fusion/Absorption (entit<69> e absorb<72> e)
2721 => 39 , // Fusion/Absorption (entit<69> e absorb<72> e non identifi<66> e...
2010-11-04 11:05:01 +00:00
2725 => 39 , // Fusion/Absorption
2726 => 39 , // Projet de Fusion/Absorption
2010-11-29 14:17:26 +00:00
2730 => 39 , // Projet de fusion (entit<69> e absorb<72> e)
2010-11-04 11:05:01 +00:00
2740 => 39 , // Scission
2010-11-29 14:17:26 +00:00
2750 => 39 , // Soci<63> t<EFBFBD> participation
2800 => 37 , // Location g<> rance re<72> ue
2840 => 38 , // Location/G<> rance
2850 => 38 , // Location g<> rance donn<6E> e : Pr<50> c<EFBFBD> dent propri<72> taire e...
2851 => 38 , // Location g<> rance donn<6E> e : Pr<50> c<EFBFBD> dent propri<72> taire
2860 => 38 , // Location g<> rance donn<6E> e : Pr<50> c<EFBFBD> dent exploitant
2870 => 38 , // Location g<> rance donn<6E> 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 <20> une branche
2891 => 39 , // Location g<> rance relative <20> un <20> tablissement
2892 => 39 , // Location g<> rance relative <20> un fond
2900 => 32 , // Transfert d'<27> tablissement
2901 => 32 , // Transfert de si<73> ge
2010-11-04 11:05:01 +00:00
2902 => 32 , // Transfert du fonds
2010-11-29 14:17:26 +00:00
2903 => 32 , // Projet de transfert du si<73> ge
2904 => 32 , // Transfert du si<73> ge <20> l'<27> tranger
2950 => 32 , // Cr<43> ation de fonds
2010-11-04 11:05:01 +00:00
2980 => 32 , // Transfert entre tribunaux
// DEPOTS DES COMPTES
3100 => 91 ,
3200 => 91 ,
3300 => 91 ,
3999 => 91 ,
// CREATIONS
2010-11-29 14:17:26 +00:00
4000 => 10 , // Cr<43> ation d'entreprise
4050 => 10 , // Cr<43> ation d'entreprise sans activit<69>
4100 => 10 , // Cr<43> ation d'entreprise sans <20> tablissement
4200 => 17 , // Cr<43> ation d'<27> tablissement
4250 => 17 , // Cr<43> ation suite <20> transfert
4300 => 17 , // Cr<43> ation suite <20> reprise d'activit<69>
4350 => 10 , // Cr<43> ation suite <20> fin de location-g<> rance
4355 => 10 , // Cr<43> ation suite <20> prise en location-g<> rance
4360 => 10 , // Reprise d'activit<69> par suite de la r<> solution de v
4400 => 10 , // Cr<43> ation suite <20> changement de FJ
4410 => 10 , // Cr<43> ation suite <20> h<> ritage ou donation
4450 => 10 , // Cr<43> ation suite <20> reprise par le conjoint
2010-11-04 11:05:01 +00:00
4500 => 17 , // Fonds acquis dans le cadre d'une PC
4501 => 17 , // Fonds acquis par achat
4502 => 17 , // Fonds acquis par apport
2010-11-29 14:17:26 +00:00
4600 => 10 , // Immatriculation d'une soci<63> t<EFBFBD> de droit europ<6F> en
4999 => 10 , // Cr<43> ation
2010-11-04 11:05:01 +00:00
// ventes !!!
2010-11-29 14:17:26 +00:00
5500 => 20 , // Entreprise r<> alisant la vente
5501 => 20 , // Entreprise r<> alisant la vente : Ancien propri<72> tair... BODA ventes 12 0000-00-00 00:00:00
5502 => 20 , // Entreprise r<> alisant la vente : Ancien propri<72> tair... BODA ventes 12 0000-00-00 00:00:00
5503 => 20 , // Entreprise r<> alisant la vente : Ancien propri<72> tair... BODA ventes 12 0000-00-00 00:00:00
5510 => 20 , // Entreprise r<> alisant la vente : Co-propri<72> taire BODA ventes 12 0000-00-00 00:00:00
5600 => 20 , // Entreprise r<> alisant l'acquisition BODA ventes 12 0000-00-00 00:00:00
2010-11-04 11:05:01 +00:00
5650 => 20 ,
2010-11-29 14:17:26 +00:00
5700 => 20 , // Entreprise r<> alisant l'acquisition BODA ventes 12 0000-00-00 00:00:00
2010-11-04 11:05:01 +00:00
5999 => 20 ,
// RADIATIONS
2010-11-29 14:17:26 +00:00
6000 => 40 , //Radiation pour cause de cl<63> ture de la liquidation (amiable/simplifi<66> /g<> n<EFBFBD> ral)
6001 => 40 , //Radiation pour cause de cl<63> ture de la liquidation amiable
6002 => 40 , //Radiation pour cause de cl<63> ture de la liquidation judiciaire pour IA
6003 => 40 , //Radiation pour cause de cl<63> ture de la liquidation judiciaire
6004 => 40 , //Radiation pour cause de cl<63> ture de la liquidation judiciaire simplifi<66>
6005 => 40 , //Radiation pour cl<63> ture du plan de cession
6100 => 40 , //Radiation pour cause de d<> c<EFBFBD> s
2010-11-04 11:05:01 +00:00
6200 => 40 , //Radiation pour cause de mention d'office
2010-11-29 14:17:26 +00:00
6201 => 40 , //Radiation pour cause de cessation d'activit<69>
2010-11-04 11:05:01 +00:00
6300 => 40 , //Radiation pour cause de non-exercice
6400 => 40 , //Radiation pour cause de transfert
2010-11-29 14:17:26 +00:00
6500 => 40 , //Radiation pour cause de jugement de cl<63> ture du plan de cession
6600 => 40 , //Radiation d'un <20> tablissement
2010-11-04 11:05:01 +00:00
6700 => 40 , //Radiation
);
$tabEven2RO = array ( 2305 => 'a' ,
2010-11-29 14:17:26 +00:00
2308 => 'a' , // Chg de d<> nomination(RS,Ens,Sigle)
2010-11-04 11:05:01 +00:00
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' ,
2010-11-29 14:17:26 +00:00
2900 => 'b' , // Transfert d'<27> tablissement
2901 => 'b' , // Transfert de si<73> ge
2010-11-04 11:05:01 +00:00
2902 => 'b' , // Transfert du fonds
2010-11-29 14:17:26 +00:00
2903 => 'b' , // Projet de transfert du si<73> ge
2904 => 'b' , // Transfert du si<73> ge <20> l'<27> tranger
2950 => 'b' , // Cr<43> ation de fonds
2010-11-04 11:05:01 +00:00
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
2010-11-29 14:17:26 +00:00
2318 => 'g' , // Op<4F> ration sur Participations
2010-11-04 11:05:01 +00:00
2725 => 'h' , // Fusion Absorption
2010-11-29 14:17:26 +00:00
2318 => 'i' , // Mod.garantie financi<63> re/Caution
2401 => 'j' , // Changement de r<> gime matrimonial
2319 => 'k' , // Non dissolution anticip<69> e
2318 => 'l' , // Non dissolution anticip<69> e
2318 => 'm' , // Dissolution anticip<69> e (ou non)
2010-11-04 11:05:01 +00:00
2303 => 'n' , // Mod.date cloture exercice social
2010-11-29 14:17:26 +00:00
5500 => 'V' , // Entreprise r<> alisant la vente
5501 => 'V' , // Entreprise r<> alisant la vente : Ancien propri<72> tair... BODA ventes 12 0000-00-00 00:00:00
5502 => 'V' , // Entreprise r<> alisant la vente : Ancien propri<72> tair... BODA ventes 12 0000-00-00 00:00:00
5503 => 'V' , // Entreprise r<> alisant la vente : Ancien propri<72> tair... BODA ventes 12 0000-00-00 00:00:00
5510 => 'V' , // Entreprise r<> alisant la vente : Co-propri<72> taire BODA ventes 12 0000-00-00 00:00:00
2010-11-04 11:05:01 +00:00
5600 => 'V' ,
5650 => 'V' ,
2010-11-29 14:17:26 +00:00
5700 => 'A' , // Entreprise r<> alisant l'acquisition BODA ventes 12 0000-00-00 00:00:00
1411 => 'F' , // Arr<72> t du plan de cession
2010-11-04 11:05:01 +00:00
1408 => 'G' , // Modification du plan de cession
1409 => 'N' , // Modification du plan de continuation
2010-11-29 14:17:26 +00:00
1414 => 'M' , // Arr<72> t du plan de redressement
2010-11-04 11:05:01 +00:00
);
function exporte ( $txt , $lon , $sep = '' ) {
2010-11-29 14:17:26 +00:00
$txt = strtr ( trim ( $txt ), array ( ''' => " ' " , '&' => '&' , '²' => '<27> ' , " \r " => '' , " \n " => '' , " \t " => '' ));
2010-11-04 11:05:01 +00:00
if ( $sep == '' ) return sprintf ( " %- " . $lon . '.' . $lon . " s " , $txt );
return trim ( sprintf ( " %- " . $lon . '.' . $lon . " s " , $txt )) . $sep ;
}
function conversionSd2So2000 ( $nomFichierIn , $numeroAbonneBil = '000960030' , $nomFichierOut = '' ) {
$message = '' ;
$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 ;
2010-11-29 14:17:26 +00:00
/** Codes/Variables <20> g<> rer **/
2010-11-04 11:05:01 +00:00
$depPar = 0 ;
$SOSTAE = '' ;
foreach ( $tabLignes as $i => $ligne ) {
$typeLigne = substr ( $ligne , 0 , 3 ) * 1 ;
switch ( $typeLigne ) {
2010-11-29 14:17:26 +00:00
case 1 : // Ligne ignor<6F> e
// Ecriture de l'ent<6E> te
2010-11-04 11:05:01 +00:00
$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 ;
2010-11-29 14:17:26 +00:00
if ( $j == 0 ) $ligneTXT = initstr ( $SONABO , 9 , '0' , ALIGN_RIGHT ); // Num<75> ro d'abonn<6E> BIL ?
else $ligneTXT .= EOL . initstr ( $SONABO , 9 , '0' , ALIGN_RIGHT ); // Num<75> ro d'abonn<6E> BIL ?
$ligneTXT .= initstr ( $SONUME , 9 , '0' , ALIGN_RIGHT ); // Num<75> ro d'entreprise BIL ?
$ligneTXT .= initstr ( $SONUS , 9 , '0' , ALIGN_RIGHT ); // Num<75> ro d'UFS BIL ?
$ligneTXT .= initstr ( $nann , 9 , '0' , ALIGN_RIGHT ); // Num<75> ro d'annonce BIL ?
2010-11-04 11:05:01 +00:00
$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
2010-11-29 14:17:26 +00:00
$ligneTXT .= initstr ( $SOSEQ , 5 , '0' , ALIGN_RIGHT ); // Num<75> ro dans la s<> quence
$ligneTXT .= initstr ( $dateJ , 8 , '0' , ALIGN_RIGHT ); // Num<75> ro dans la s<> quence
2010-11-04 11:05:01 +00:00
$ligneTXT .= exporte ( $typEnr , 1 ); // Type d'enregistrement 1=EntConf, 2=Rejet, 4=Multipropo, 5=Suivi MAJ Entrep, 7=Infos, 8=Envoi documen, 9=Annonce
2010-11-29 14:17:26 +00:00
$ligneTXT .= exporte ( 'TXT' , 3 ); // Structure identit<69>
2010-11-04 11:05:01 +00:00
$ligneTXT .= exporte ( 'A' , 1 ); // Confirmation 'A'uto ou 'C' pour manuelle
2010-11-29 14:17:26 +00:00
$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<64>
2010-11-04 11:05:01 +00:00
$ligneTXT .= exporte ( $SOJAL , 3 ); // 001=Bodacc A, 200=Bodacc B, 300=Bodacc C
$ligneTXT .= exporte ( $datePar , 8 ); // 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 ;
}
2010-11-29 14:17:26 +00:00
$nann = trim ( substr ( $ligne , 3 , 10 )) * 1 ; // N<> d'annonce
$siren = substr ( $ligne , 13 , 9 ); // Siren de l'entreprise concern<72> e par l'annonce
2010-11-04 11:05:01 +00:00
$tabIdentite =@ $iInsee -> getIdentiteEntreprise ( $siren );
$nic = trim ( substr ( $ligne , 22 , 5 )) * 1 ; // Nic
2010-11-29 14:17:26 +00:00
$ref = trim ( substr ( $ligne , 71 , 18 )); // R<> f<EFBFBD> rence Client
$numPar = substr ( $ligne , 27 , 3 ); // Num<75> ro de parution du Bodacc dans l'ann<6E> e
2010-11-04 11:05:01 +00:00
$bodacc = substr ( $ligne , 30 , 1 ); // Code Bodacc (A, B ou C) A, B ou C
$datePar = substr ( $ligne , 31 , 8 ); // Date de parution du Bodacc Format AAAAMMJJ
2010-11-29 14:17:26 +00:00
$numAnn = substr ( $ligne , 39 , 5 ); // Num<75> 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 <20> une pr<70> c<EFBFBD> dente annonce), (1) R=Rectificatif (correction d'une annonce), S=Suppression d'une annonce
$corNumA = substr ( $ligne , 48 , 5 ); // Num<75> ro de l'annonce corrig<69> e Si annonce diff<66> rent de Insertion
$corDate = substr ( $ligne , 53 , 8 ); // Date du Bodacc de l'annonce corrig<69> e Si annonce diff<66> rent de Insertion. Format AAAAMMJJ
$corPage = substr ( $ligne , 61 , 6 ); // Premi<6D> re page du Bodacc de l'annonce corrig<69> e Si annonce diff<66> rent de Insertion
$corNumP = substr ( $ligne , 67 , 4 ); // Num<75> ro parution du Bodacc dans l'ann<6E> e de l'annonce corrig<69> e Si annonce diff<66> rent de Insertion
$numRC = trim ( substr ( $ligne , 95 , 9 )); // Num<75> ro de RC (Registre du Commerce) de l'entreprise
2010-11-04 11:05:01 +00:00
$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
2010-11-29 14:17:26 +00:00
$fjLib = trim ( substr ( $ligne , 488 , 90 )); // FJ libell<6C>
2010-11-04 11:05:01 +00:00
$capMnt = trim ( substr ( $ligne , 578 , 15 )); // Capital
$capDev = trim ( substr ( $ligne , 593 , 3 )); // Capital Devise
$adrNum = trim ( substr ( $ligne , 596 , 4 )); //
2010-11-29 14:17:26 +00:00
$adrBtq = trim ( substr ( $ligne , 600 , 1 )); // FJ libell<6C>
$adrVoi = trim ( substr ( $ligne , 601 , 5 )); // FJ libell<6C>
$adrLib = trim ( substr ( $ligne , 606 , 50 )); // FJ libell<6C>
$adrL2 = trim ( substr ( $ligne , 656 , 50 )); // FJ libell<6C>
$adrL3 = trim ( substr ( $ligne , 706 , 40 )); // FJ libell<6C>
$adrCP = trim ( substr ( $ligne , 746 , 5 )) * 1 ; // FJ libell<6C>
$adrVil = trim ( substr ( $ligne , 751 , 45 )); // FJ libell<6C>
2010-11-04 11:05:01 +00:00
if ( $adrCP == 0 ) {
2010-11-29 14:17:26 +00:00
$adrNum = trim ( substr ( $ligne , 796 , 4 )); // FJ libell<6C>
$adrBtq = trim ( substr ( $ligne , 800 , 1 )); // FJ libell<6C>
$adrVoi = trim ( substr ( $ligne , 801 , 5 )); // FJ libell<6C>
$adrLib = trim ( substr ( $ligne , 806 , 50 )); // FJ libell<6C>
$adrL2 = trim ( substr ( $ligne , 856 , 50 )); // FJ libell<6C>
$adrL3 = trim ( substr ( $ligne , 906 , 40 )); // FJ libell<6C>
$adrCP = trim ( substr ( $ligne , 946 , 5 )) * 1 ; // FJ libell<6C>
$adrVil = trim ( substr ( $ligne , 951 , 45 )); // FJ libell<6C>
2010-11-04 11:05:01 +00:00
}
$even = array ();
2010-11-29 14:17:26 +00:00
$even [ 7 ] = substr ( $ligne , 996 , 4 ) * 1 ; // Code Ev<45> nement Bodacc n<> 1 Cf. Table EVEN
$even [ 6 ] = substr ( $ligne , 1000 , 4 ) * 1 ; // Code Ev<45> nement Bodacc n<> 2 Cf. Table EVEN
$even [ 5 ] = substr ( $ligne , 1004 , 4 ) * 1 ; // Code Ev<45> nement Bodacc n<> 3 Cf. Table EVEN
$even [ 4 ] = substr ( $ligne , 1008 , 4 ) * 1 ; // Code Ev<45> nement Bodacc n<> 4 Cf. Table EVEN
$even [ 3 ] = substr ( $ligne , 1012 , 4 ) * 1 ; // Code Ev<45> nement Bodacc n<> 5 Cf. Table EVEN
$even [ 2 ] = substr ( $ligne , 1016 , 4 ) * 1 ; // Code Ev<45> nement Bodacc n<> 6 Cf. Table EVEN
$even [ 1 ] = substr ( $ligne , 1020 , 4 ) * 1 ; // Code Ev<45> nement Bodacc n<> 7 Cf. Table EVEN
$even [ 0 ] = substr ( $ligne , 1024 , 4 ) * 1 ; // Code Ev<45> nement Bodacc n<> 8 Cf. Table EVEN
2010-11-04 11:05:01 +00:00
$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 );
2010-11-29 14:17:26 +00:00
$dateCess = substr ( $ligne , 1136 , 8 ); // Date de cessat<61> des paiements
2010-11-04 11:05:01 +00:00
$dateJuge = substr ( $ligne , 1144 , 8 ); // Date de jugement
$dateEffet = substr ( $ligne , 1161 , 8 ); // Date d'effet
if ( $dateEffet * 1 == 0 ) $dateEffet = $dateJuge ;
$vteMnt = substr ( $ligne , 1169 , 15 ); // 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 ;
2010-11-29 14:17:26 +00:00
$DBILS2 = initstr ( $SONABO , 9 , '0' , ALIGN_RIGHT ); // Num<75> ro d'abonn<6E> BIL ?
$DBILS2 .= initstr ( $SONUME , 9 , '0' , ALIGN_RIGHT ); // Num<75> ro d'entreprise BIL ?
$DBILS2 .= initstr ( $SONUS , 9 , '0' , ALIGN_RIGHT ); // Num<75> ro d'UFS BIL ?
$DBILS2 .= initstr ( $nann , 9 , '0' , ALIGN_RIGHT ); // Num<75> ro d'annonce BIL ?
2010-11-04 11:05:01 +00:00
$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
2010-11-29 14:17:26 +00:00
$DBILS2 .= initstr ( $SOSEQ , 5 , '0' , ALIGN_RIGHT ); // Num<75> ro dans la s<> quence
$DBILS2 .= initstr ( $dateJ , 8 , '0' , ALIGN_RIGHT ); // Num<75> ro dans la s<> quence
2010-11-04 11:05:01 +00:00
$DBILS2 .= exporte ( $typEnr , 1 ); // Type d'enregistrement 1=EntConf, 2=Rejet, 4=Multipropo, 5=Suivi MAJ Entrep, 7=Infos, 8=Envoi documen, 9=Annonce
2010-11-29 14:17:26 +00:00
$DBILS2 .= exporte ( 'ID' , 3 ); // Structure identit<69>
2010-11-04 11:05:01 +00:00
$DBILS2 .= exporte ( 'A' , 1 ); // Confirmation 'A'uto ou 'C' pour manuelle
2010-11-29 14:17:26 +00:00
$DBILS2 .= exporte ( $ref , 30 ); // R<> f. Client
2010-11-04 11:05:01 +00:00
//($annonce['codePostalSiege'], 5, '0', ALIGN_RIGHT)
2010-11-29 14:17:26 +00:00
$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<64>
2010-11-04 11:05:01 +00:00
$DBILS2 .= exporte ( '' , 1 ); // D=Siren douteux
2010-11-29 14:17:26 +00:00
$DBILS2 .= initstr ( '' , 9 ); // T<> moin de MAJ
2010-11-04 11:05:01 +00:00
$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 ); //
2010-11-29 14:17:26 +00:00
$DBILS2 .= exporte ( $tabIdentite [ 'DateCreaEn' ], 8 ); // Date cr<63> a ENT
$DBILS2 .= exporte ( $tabIdentite [ 'Siege' ], 1 ); // Statut de l'<27> tablissement
2010-11-04 11:05:01 +00:00
$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 ( '' , 3 );
$DBILS2 .= initstr ( 0 , 13 , '0' , ALIGN_RIGHT ); // Filler A1
$DBILS2 .= exporte ( '' , 16 ); // Filler A2
$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 ( '' , 63 ); // Filler B1
$DBILS2 .= initstr ( 0 , 8 , '0' , ALIGN_RIGHT ); // Filler B2
$DBILS2 .= exporte ( '' , 79 );
$DBILS2 .= exporte ( $tabIdentite [ 'NafEnt' ], 5 );
$DBILS2 .= exporte ( $tabIdentite [ 'NafEtab' ], 5 );
$DBILS2 .= exporte ( '' , 18 );
$DBILS2 .= exporte ( '' , 9 ); // RUE ?
$DBILS2 .= initstr ( 0 , 8 , '0' , ALIGN_RIGHT ); // Filler B2
$DBILS2 .= exporte ( '' , 6 );
$DBILS2 .= initstr ( 0 , 8 , '0' , ALIGN_RIGHT ); // Filler B2
$DBILS2 .= exporte ( '' , 20 );
2010-11-29 14:17:26 +00:00
$DBILS2 .= exporte ( $tabIdentite [ 'Dept' ], 2 ); // D<> partement du si<73> ge
$DBILS2 .= exporte ( $tabIdentite [ 'codeCommune' ], 3 ); // Localit<69>
$DBILS2 .= exporte ( $tabIdentite [ 'Dept' ], 2 ); // D<> partement de l'<27> tab
$DBILS2 .= exporte ( $tabIdentite [ 'codeCommune' ], 3 ); // Localit<69>
2010-11-04 11:05:01 +00:00
$DBILS2 .= exporte ( '' , 39 ); // Filler C
$ligneID = $DBILS2 ;
$ligne100 ++ ;
$cor = '' ;
if ( $typeAnn <> 'I' )
2010-11-29 14:17:26 +00:00
$cor = " - Annonce n<> $corNumA $corNumP , page $corPage , du " . WDate :: dateT ( 'Ymd' , 'd/M/Y' , $corDate );
2010-11-04 11:05:01 +00:00
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 ;
}
2010-11-29 14:17:26 +00:00
$codeTri = substr ( $ligne , 89 , 6 ); // Code Tribunal Codification interne utilis<69> e par le Bodacc
2010-11-04 11:05:01 +00:00
$libTri = $iBodacc -> getTribunalNom ( $codeTri );
$SOSEQ ++ ;
if ( $bodacc == 'A' ) $SOJAL = '001' ;
elseif ( $bodacc == 'B' ) $SOJAL = '200' ;
elseif ( $bodacc == 'C' ) $SOJAL = '300' ;
else $SOJAL = '999' ;
2010-11-29 14:17:26 +00:00
$DBILS2 = initstr ( $SONABO , 9 , '0' , ALIGN_RIGHT ); // Num<75> ro d'abonn<6E> BIL ?
$DBILS2 .= initstr ( $SONUME , 9 , '0' , ALIGN_RIGHT ); // Num<75> ro d'entreprise BIL ?
$DBILS2 .= initstr ( $SONUS , 9 , '0' , ALIGN_RIGHT ); // Num<75> ro d'UFS BIL ?
$DBILS2 .= initstr ( $nann , 9 , '0' , ALIGN_RIGHT ); // Num<75> ro d'annonce BIL ?
2010-11-04 11:05:01 +00:00
$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
2010-11-29 14:17:26 +00:00
$DBILS2 .= initstr ( $SOSEQ , 5 , '0' , ALIGN_RIGHT ); // Num<75> ro dans la s<> quence
$DBILS2 .= initstr ( $dateJ , 8 , '0' , ALIGN_RIGHT ); // Num<75> ro dans la s<> quence
2010-11-04 11:05:01 +00:00
$DBILS2 .= exporte ( '9' , 1 ); // Type d'enregistrement 1=EntConf, 2=Rejet, 4=Multipropo, 5=Suivi MAJ Entrep, 7=Infos, 8=Envoi documen, 9=Annonce
2010-11-29 14:17:26 +00:00
$DBILS2 .= exporte ( 'ANN' , 3 ); // Structure identit<69>
2010-11-04 11:05:01 +00:00
$DBILS2 .= exporte ( 'A' , 1 ); // Confirmation 'A'uto ou 'C' pour manuelle
2010-11-29 14:17:26 +00:00
$DBILS2 .= exporte ( $ref , 30 ); // R<> f. Client
2010-11-04 11:05:01 +00:00
//($annonce['codePostalSiege'], 5, '0', ALIGN_RIGHT)
2010-11-29 14:17:26 +00:00
$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<64>
2010-11-04 11:05:01 +00:00
$DBILS2 .= exporte ( $SOJAL , 3 ); // 001=Bodacc A, 200=Bodacc B, 300=Bodacc C
$DBILS2 .= exporte ( $datePar , 8 ); // Date de parution
$DBILS2 .= initstr ( 0 , 5 , '0' , ALIGN_RIGHT ); // Page
if ( $codeEve == '' ) {
2010-11-29 14:17:26 +00:00
$message .= " Code <20> v<EFBFBD> nement non g<> r<EFBFBD> : ' $codeEven ' " . EOL ;
2010-11-04 11:05:01 +00:00
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
2010-11-29 14:17:26 +00:00
$DBILS2 .= initstr ( $dateCess , 8 , '0' , ALIGN_RIGHT ); // Date de cessat<61> des paiements
2010-11-04 11:05:01 +00:00
$DBILS2 .= exporte ( $vteDev , 2 ); // Devise de la vente
$DBILS2 .= initstr ( $vteMnt , 11 , '0' , ALIGN_RIGHT ); // Montant de la vente
2010-11-29 14:17:26 +00:00
$DBILS2 .= exporte ( '' , 33 ); // Particularit<69>
2010-11-04 11:05:01 +00:00
$DBILS2 .= exporte ( '' , 4 ); // Code rubrique du Bodacc A1xx
2010-11-29 14:17:26 +00:00
$DBILS2 .= exporte ( '' , 6 ); // Code lib inject<63>
2010-11-04 11:05:01 +00:00
$tabJuge = $iRncs -> getIntervenants ( $siren );
foreach ( $tabJuge as $iDepot => $depot ) {
2010-11-29 14:17:26 +00:00
$DBILS2 .= exporte ( '' , 5 ); // Mot cl<63> Nom
2010-11-04 11:05:01 +00:00
$DBILS2 .= exporte ( '' , 1 ); // Type officier ministeriel
$DBILS2 .= exporte ( $depot [ 'admcode' ], 7 ); // Code Bil
$DBILS2 .= exporte ( $depot [ 'admnom' ], 30 ); // Nom syndic
2010-11-29 14:17:26 +00:00
$DBILS2 .= exporte ( $depot [ 'admadrNum' ], 4 ); // N<> rue
2010-11-04 11:05:01 +00:00
$DBILS2 .= exporte ( $depot [ 'admadrInd' ], 1 ); // Bis
$DBILS2 .= exporte ( '' , 3 ); // Type Voie
$DBILS2 .= exporte ( $depot [ 'admadrVoie' ], 33 ); // Lib Voie
$DBILS2 .= exporte ( '' , 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 ;
2010-11-29 14:17:26 +00:00
default : // Ligne non g<> r<EFBFBD> e
2010-11-04 11:05:01 +00:00
break ;
}
if ( $ecrireLignePre ) {
fwrite ( $fp , $ligneOut . EOL );
$ecrireLignePre = false ;
}
}
fclose ( $fp );
return true ;
}
?>
