'archivage_legal' 'AEA'
    --Création : 11/06/2003 10:37:07 SJA-STEPHANEJ; Modification : 02/05/2013 16:21:10 llg-PO36696; 
    -- archive les états suivants, même s'ils ne sont pas dans l'editeur : balance, grand livre, journaux, journal centralisateur, bilan et résultats.
    
    
    -- Variable :
    --	docArchive : objet qui permet de traiter la classe de l'état à archiver.
    
    |
    	docArchive<Objet> ed<Objet> objJourGen<Objet>
    	chExo<Chaine> tmpDate<Chaine>
    	dteDebut<Date> dteFin<Date>
    	i<Entier>
    	trouve<Booléen>
    |
    
    objJourGen	::=	'Grand_Livre_de_Revision'
    
    ed	::=	'Editeur'
    ed	:=	editeur{VRAI}
    
    -- Récupération de la date début et date de fin sélectionnée
    SI taille{ed.dateSelectionnee} = 4 ALORS
    	dteDebut := date{1, 1, editPeriode}
    SINON
    	dteDebut := periode.debut
    FIN SI
    dteFin := periode.fin
    
    -- Récupération de la comtpa du dossier
    compta ::= CodeDossier
    trouve := FAUX
    TANT QUE (i <= nbElements{compta.datesFin} ET NON trouve) FAIRE
    	tmpDate := ''+(date{'jj/mm/aaaa'}+ elementEntierDIndice{compta.datesFin, i})	
    	SI date{tmpDate} >= dteDebut ET date{tmpDate} <= dteFin ALORS
    		trouve := VRAI
    	FIN SI
    	i := i + 1
    FIN FAIRE
    
    exerciceComptable ::= date{tmpDate}
    SI exerciceComptable = ? ALORS 
    	--exerciceComptable +:= chExo 
    	SORTIR FAUX
    FIN SI
    /*
-- Récupération de l'exercice en cours pour le dossier sélectionner
chExo := ''+debutExercice{CodeDossier, 0}+':'+finExercice{CodeDossier, 0}
exerciceComptable ::= chExo
SI exerciceComptable = ? ALORS 
	SORTIR FAUX
	--exerciceComptable +:= chExo 
FIN SI
*/
    -- parcour de tous les états comptables présents dans l'exercice.
    POUR TOUT element <EtatComptable> DE exerciceComptable.etats FAIRE
    
    	-- Etat de Balance de Révision
    	SI classe{element} = 'Balance_de_Revision' ALORS
    		docArchive	::=	'Balance_de_Revision'
    		docArchive	:=	element
    		docArchive.pageDeGarde	:=	VRAI
    		docArchive.sansLogoMonnaie	:=	VRAI
    		docArchive.triAlpha	:=	FAUX
    		docArchive.nonSolde	:=	FAUX
    		docArchive.mouv	:=	FAUX
    		docArchive.toutes	:=	FAUX
    		docArchive.typeBalance	:=	'Générale'
    		docArchive.Archiver{}
    
    		POUR TOUT compte TEL QUE compte.estCollectif FAIRE
    			docArchive.typeBalance	:=	compte.libelle
    			docArchive.Archiver{}
    		FINFAIRE
    	FINSI
    
    	-- Etat Grand livre
    	SI classe{element} = 'Grand_Livre_de_Revision' ALORS
    		objJourGen	:=	element
    		objJourGen.pageDeGarde	:=	VRAI
    		objJourGen.sansLogoMonnaie	:=	VRAI
    
    		objJourGen!{'trierCool'}booleen	:=	FAUX
    		objJourGen!{'ordreAlpha'}booleen	:=	FAUX
    		objJourGen!{'suppressionComptesSoldes'}booleen	:=	FAUX
    		objJourGen!{'impressionPartielle'}booleen	:=	FAUX
    		objJourGen.typeGrandLivre	:=	'Général'
    
    		objJourGen.Archiver{}
    
    		POUR TOUT compte TEL QUE compte.estCollectif FAIRE
    			objJourGen!{'typeGrandLivre'}chaine	:=	compte.libelle
    			objJourGen.Archiver{}
    		FINFAIRE
    	FINSI
    
    	-- Etat Journaux
    	SI classe{element} = 'Journaux' ALORS
    		docArchive	::=	'Journaux'
    		docArchive	:=	element
    		docArchive.pageDeGarde	:=	VRAI
    		docArchive.sansLogoMonnaie	:=	VRAI
    
    		docArchive!{'impressionPartielleJournaux'}booleen	:=	FAUX
    
    		docArchive.Archiver{}
    	FINSI
    
    	-- Etat journal centralisateur
    	SI classe{element} = 'Journal_Centralisateur' ALORS
    		docArchive	::=	'Journal_Centralisateur'
    		docArchive	:=	element
    		docArchive.pageDeGarde	:=	VRAI
    		docArchive.sansLogoMonnaie	:=	VRAI
    
    		docArchive.Archiver{}
    	FINSI
    
    	-- Tous les bilans
    	SI classe{element} = 'Bilan_et_Resultat' ALORS
    		docArchive	::=	'Bilan_et_Resultat'
    		docArchive	:=	element
    		docArchive.pageDeGarde	:=	VRAI
    		docArchive.sansLogoMonnaie	:=	VRAI
    
    		docArchive.Archiver{}
    	FINSI
    
    	-- cas particulier du BNC
    	SI classe{element} = 'Bilan_et_Resultat_BNC' ALORS
    		docArchive	::=	'Bilan_et_Resultat_BNC'
    		docArchive	:=	element
    		docArchive.pageDeGarde	:=	VRAI
    		docArchive.sansLogoMonnaie	:=	VRAI
    
    		docArchive.Archiver{}
    	FINSI
    
    	-- cas particulier du BA
    	SI classe{element} = 'Bilan_BA' ALORS
    		docArchive	::=	'Bilan_BA'
    		docArchive	:=	element
    		docArchive.pageDeGarde	:=	VRAI
    		docArchive.sansLogoMonnaie	:=	VRAI
    
    		docArchive.Archiver{}
    	FINSI
    
    FINFAIRE
    
    -- affichage du statut 'archivé' dans l'editeur
    rechercheArchive{}
    affichage{FAUX}
    
    SORTIR VRAI
###
'archivage' 'AEA'
    --Création : 02/07/2003 10:29:47 SJA-STEPHANEJ; Modification : 02/05/2013 16:21:10 llg-PO36696; 
    -- archive les états de l'édition annuelle.
    
    |
    chExo<Chaine> tmpDate<Chaine>
    dteDebut<Date> dteFin<Date>
    i<Entier>
    trouve<Booléen>
    ed<Objet>
    |
    
    ed	::=	'Editeur'
    ed	:=	editeur{VRAI}
    
    -- Récupération de la date début et date de fin sélectionnée
    SI taille{ed.dateSelectionnee} = 4 ALORS
    	dteDebut := date{1, 1, editPeriode}
    SINON
    	dteDebut := periode.debut
    FIN SI
    dteFin := periode.fin
    
    -- Récupération de la comtpa du dossier
    compta ::= CodeDossier
    trouve := FAUX
    TANT QUE (i <= nbElements{compta.datesFin} ET NON trouve) FAIRE
    	tmpDate := ''+(date{'jj/mm/aaaa'}+ elementEntierDIndice{compta.datesFin, i})	
    	SI date{tmpDate} >= dteDebut ET date{tmpDate} <= dteFin ALORS
    		trouve := VRAI
    	FIN SI
    	i := i + 1
    FIN FAIRE
    
    exerciceComptable ::= date{tmpDate}
    SI exerciceComptable = ? ALORS 
    	--exerciceComptable +:= chExo 
    	SORTIR FAUX
    FIN SI
    /*
-- Récupération de l'exercice en cours pour le dossier sélectionner
chExo := ''+debutExercice{CodeDossier, 0}+':'+finExercice{CodeDossier, 0}
exerciceComptable ::= chExo
SI exerciceComptable = ? ALORS 
	SORTIR FAUX
	--exerciceComptable +:= chExo 
FIN SI
*/
    -- Archivage des éléments sélectionnés
    POUR TOUT element<LigneEditionAnnuelle> DE listeImpressionsAnnuelles FAIRE
    		element.exoCompta	:=	exerciceComptable
    		element.archiver{}
    FINFAIRE
    
    affichage{FAUX}
    
    SORTIR VRAI
###
'changerBooléen' 'AEA'
{argValeur <Chaine>}
    --Création : 28/04/2003 15:57:27 SJA-STEPHANEJ; Modification : 02/05/2013 16:21:10 llg-PO36696; 
    
    
    
    
    
    
    -- opérateur NON sur un booléen : non VRAI = FAUX et vice versa. Le résultat est retourné.
    
    
    
    -- argument :
    --	argValeur : valeur à convertir.
    
    
    SI argValeur = '1' ALORS
    	SORTIR VRAI
    SINON
    	SORTIR FAUX
    FINSI
###
'choixSortie' 'AEA'
    --Modification : 02/05/2013 16:21:10 llg-PO36696; 
    | ch <Chaine> |
    
    ch := choix {'Ecran
Imprimante'}
    --SI shift {} ALORS
    SI ch # 'E' ALORS apercevoir {} FINSI
    SI ch # 'I' ALORS imprimerFichier {} FINSI
    --SINON
    --	imprimerFichier{}
    --FINSI
###
'classesNonEditables' 'AEA'
    --Création : 12/05/2003 15:16:56 TNI	pc_coala2; Modification : 02/05/2013 16:21:10 llg-PO36696; 
    -- liste des états ne pouvant pas être ajoutés dans l'éditeur.
    
    |
    	res<Objet>
    |
    
    -- Liste temporaire
    res := creerListe{}
    
    ajouterElement{res, 'Impressions_Annuelles'}
    ajouterElement{res, 'Plaquette'}
    ajouterElement{res, 'Assistant_OLE'}
    
    SORTIR res
###
'cloturerCompta' 'AEA'
    --Création : 27/12/2002 16:37:42 DME-DOMINIQUE-MENEC; Modification : 02/05/2013 16:21:10 llg-PO36696; 
    
    -- Ce menu permet de verrouiller tout l'exercice courant.
    
    |
    tmpDate<Chaine>
    dteDebut<Date> dteFin<Date> 
    i<Entier>
    trouve<Booléen>
    ed<Objet>
    |
    
    ed	::=	'Editeur'
    ed	:=	editeur{VRAI}
    
    -- Récupération de la date début et date de fin sélectionnée
    SI taille{ed.dateSelectionnee} = 4 ALORS
    	dteDebut := date{1, 1, editPeriode - 1}
    SINON
    	dteDebut := date{jour{periode.debut}, mois{periode.debut}, editPeriode - 1}
    FIN SI
    dteFin := date{jour{periode.fin}, mois{periode.fin}, editPeriode - 1}
    
    -- Récupération de la comtpa du dossier
    compta ::= CodeDossier
    trouve := FAUX
    TANT QUE (i <= nbElements{compta.datesFin} ET NON trouve) FAIRE
    	tmpDate := ''+(date{'jj/mm/aaaa'}+ elementEntierDIndice{compta.datesFin, i})	
    	SI date{tmpDate} >= dteDebut ET date{tmpDate} <= dteFin ALORS
    		trouve := VRAI
    	FIN SI
    	i := i + 1
    FIN FAIRE
    
    exerciceComptable ::= date{tmpDate}
    
    SI exerciceComptable = ? ALORS 
    	message{'L''exercice considéré n''existe pas pour ce dossier'}
    	SORTIR FAUX
    FIN SI
    
    SI NON exerciceComptable.estVerrouille ET compta.dateDebut <= dteDebut ALORS --OU exerciceComptable.dateDebut = date{'01/01/1901'} ALORS 
    	info{'Cloture impossible :
L''exercice précédent n''est pas clos.'}
    	SORTIR FAUX
    FIN SI
    
    -- Récupération de la date début et date de fin sélectionnée
    SI taille{ed.dateSelectionnee} = 4 ALORS
    	dteDebut := date{1, 1, editPeriode}
    SINON
    	dteDebut := date{jour{periode.debut}, mois{periode.debut}, editPeriode}
    FIN SI
    dteFin := date{jour{periode.fin}, mois{periode.fin}, editPeriode}
    
    -- Récupération de la comtpa du dossier
    i := 1
    compta ::= CodeDossier
    trouve := FAUX
    TANT QUE (i <= nbElements{compta.datesFin} ET NON trouve) FAIRE
    	tmpDate := ''+(date{'jj/mm/aaaa'}+ elementEntierDIndice{compta.datesFin, i})	
    	SI date{tmpDate} >= dteDebut ET date{tmpDate} <= dteFin ALORS
    		trouve := VRAI
    	FIN SI
    	i := i + 1
    FIN FAIRE
    
    exerciceComptable ::= date{tmpDate}
    
    SI exerciceComptable = ? ALORS 
    	SORTIR FAUX
    FIN SI
    
    -- Clôture de l'exercice
    -- Il faut d'abord vérifier que l'exercice précédent est bien clos
    exerciceComptable.estVerrouille := VRAI
    
    SORTIR VRAI
###
'compteRendu' 'AEA'
    --Création : 26/05/2003 17:39:46 SJA-STEPHANEJ; Modification : 02/05/2013 16:21:10 llg-PO36696; 
    -- création du compte rendu d'impression.
    
    -- Variables :
    --	nomL : nom de l'état imprimé.
    --	nbExemplaireL : nombre d'exemplaires imprimés par états.
    |
    	nomL<Chaine> nbExemplaireL<Entier>
    |
    
    -- Le compte rendu est en ps
    impression{'compta/listing2.ps'}
    impression{'texte2.ps'}
    impression{'tableau.ps'}
    impression{'compta/edAn'}
    impression{'compta/edAn.pag'}
    
    -- information sur les états imprimés
    POUR TOUT element<LigneEditionAnnuelle> DE listeImpressionsAnnuelles FAIRE
    	nomL	:=	element.nom
    	nbExemplaireL	:=	element.nbExemplaires
    	impression{'compta/edAn.lig'}
    FINFAIRE
    
    impression{'compta/edAn.fin'}
###
'docsCompta_AJOUT' 'AEA'
    --Création : 22/05/2002 15:21:16 scr-DAVID; Modification : 02/05/2013 16:21:10 llg-PO36696; 
    
    info{'Vous ne pouvez pas ajouter de document à la liste'}
    SORTIR FAUX
###
'docsCompta_LISTE' 'AEA'
    --Création : 13/05/2002 10:24:56 scr-DAVID; Modification : 02/05/2013 16:21:10 llg-PO36696; 
    
    --Mise en place de la liste des documents de Compta
    status{''}
    -- Mise en commentaire YLV ; 27/07/07 ; voir tous les docs????????_LISTE + la fonction init{}
    --afficherListe{'compta'}
###
'docsCompta_SUPPRESSION' 'AEA'
    --Création : 22/05/2002 15:22:08 scr-DAVID; Modification : 02/05/2013 16:21:10 llg-PO36696; 
    
    info{'Vous ne pouvez pas supprimer de document de cette liste'}
    SORTIR FAUX
###
'docsComptaConsult_AJOUT' 'AEA'
    --Création : 22/05/2002 15:21:16 scr-DAVID; Modification : 02/05/2013 16:21:10 llg-PO36696; 
    
    info{'Vous ne pouvez pas ajouter de document à la liste'}
    SORTIR FAUX
###
'docsComptaConsult_LISTE' 'AEA'
    --Création : 24/06/2002 09:21:37 scr-SOLENN; Modification : 02/05/2013 16:21:10 llg-PO36696; 
    
    --Mise en place de la liste des états des Missions
    status{''}
    --afficherListe{'compta'}
###
'docsComptaConsult_SUPPRESSION' 'AEA'
    --Création : 22/05/2002 15:22:08 scr-DAVID; Modification : 02/05/2013 16:21:10 llg-PO36696; 
    
    info{'Vous ne pouvez pas supprimer de document de cette liste'}
    SORTIR FAUX
###
'docsImmos_AJOUT' 'AEA'
    --Création : 22/05/2002 15:20:47 scr-DAVID; Modification : 02/05/2013 16:21:10 llg-PO36696; 
    
    info{'Vous ne pouvez pas ajouter de document à la liste'}
    SORTIR FAUX
###
'docsImmos_LISTE' 'AEA'
    --Création : 13/05/2002 10:25:14 scr-DAVID; Modification : 02/05/2013 16:21:10 llg-PO36696; 
    
    --Mise en place de la liste des états des Immos
    status{''}
    --afficherListe{'immos'}
###
'docsImmos_SUPPRESSION' 'AEA'
    --Création : 22/05/2002 15:23:21 scr-DAVID; Modification : 02/05/2013 16:21:10 llg-PO36696; 
    
    info{'Vous ne pouvez pas supprimer de document de cette liste'}
    SORTIR FAUX
###
'docsImmosConsult_AJOUT' 'AEA'
    --Création : 22/05/2002 15:20:47 scr-DAVID; Modification : 02/05/2013 16:21:10 llg-PO36696; 
    
    info{'Vous ne pouvez pas ajouter de document à la liste'}
    SORTIR FAUX
###
'docsImmosConsult_LISTE' 'AEA'
    --Création : 24/06/2002 09:23:32 scr-SOLENN; Modification : 02/05/2013 16:21:10 llg-PO36696; 
    
    --Mise en place de la liste des états des Missions
    status{''}
    --afficherListe{'immos'}
###
'docsImmosConsult_SUPPRESSION' 'AEA'
    --Création : 22/05/2002 15:23:21 scr-DAVID; Modification : 02/05/2013 16:21:10 llg-PO36696; 
    
    info{'Vous ne pouvez pas supprimer de document de cette liste'}
    SORTIR FAUX
###
'enregistrerListeImpressions' 'AEA'
{argCode <Chaine>}
    --Création : 10/09/2003 12:28:08 scr-SOLENN; Modification : 02/05/2013 16:21:10 llg-PO36696; 
    
    
    
    
    
    
    
    
    |
    dossArch<Objet>
    |
    
    SI listeImpressionsAnnuelles <> ? ET nbElements{listeImpressionsAnnuelles} > 0 ALORS
    	dossArch ::= 'DossierArchive'
    	dossArch := creer{'DossierArchive'}
    	dossArch.codeDossier := argCode
    	dossArch.listeImpressionsAnnuelles := listeImpressionsAnnuelles
    	POUR TOUT element<LigneEditionAnnuelle> DE dossArch.listeImpressionsAnnuelles FAIRE
    		element.exoCompta := ?
    	FIN FAIRE
    	dossArch.editPeriode := editPeriode
    	dossArch.sauvegardeListe{}
    FIN SI
###
'imprimer' 'AEA'
    --Création : 03/06/2003 10:42:40 SJA-STEPHANEJ; Modification : 19/01/2015 18:23:06 mik-PC-016494; 
    -- permet d'imprimer tous les états de l'éditeur d'un coup.
    
    -- Variable : 
    --	chemArc : chemin du fichier temporaire.
    
    |
    	chemArc<Chaine> message<Chaine> rc<Chaine> chExo<Chaine> tmpDate<Chaine>
    	messageStop<Chaine> debMessage<Chaine>
    	reponse<Booléen> trouve<Booléen>
    	nbEdition<Entier> i<Entier>
    	ed<Objet>
    	dteDebut<Date> dteFin<Date>
    |
    
    -- Initialisation
    nbEdition := 0
    etatEdition := 0
    
    ed	::=	'Editeur'
    ed	:=	editeur{VRAI}
    
    -- Récupération de la date début et date de fin sélectionnée
    SI taille{ed.dateSelectionnee} = 4 ALORS
    	dteDebut := date{1, 1, editPeriode}
    SINON
    	dteDebut := periode.debut
    FIN SI
    dteFin := periode.fin
    
    -- Récupération de la comtpa du dossier
    compta ::= CodeDossier
    trouve := FAUX
    TANT QUE (i <= nbElements{compta.datesFin} ET NON trouve) FAIRE
    	tmpDate := ''+(date{'jj/mm/aaaa'}+ elementEntierDIndice{compta.datesFin, i})	
    	SI date{tmpDate} >= dteDebut ET date{tmpDate} <= dteFin ALORS
    		trouve := VRAI
    	FIN SI
    	i := i + 1
    FIN FAIRE
    
    exerciceComptable ::= date{tmpDate}
    SI exerciceComptable = ? ALORS 
    	--exerciceComptable +:= chExo 
    	SORTIR FAUX
    FIN SI
    /*
-- Récupération de l'exercice en cours pour le dossier sélectionner
chExo := ''+debutExercice{CodeDossier, 0}+':'+finExercice{CodeDossier, 0}
exerciceComptable ::= chExo
SI exerciceComptable = ? ALORS 
	SORTIR FAUX
	--exerciceComptable +:= chExo 
FIN SI
*/
    -- création d'un fichier temporaire
    chemArc	:=	repertoireTemp{} + ' tempArc.ps'  --'C:\ tempArc.ps'
    rc	:=	'
'
    message	:=	' Liste des états à imprimer : ' + rc
    reponse	:=	FAUX
    debMessage	:=	'Les états suivant ne sont pas validés dans Coala : '
    messageStop	:=	debMessage
    
    --redirigerDialogue{}
    
    -- ouverture d'un driver permettant de recopier les infos de tous les états dans un seul ps.
    ouvrirDriver{'ps', chemArc}
    impression { 'entete.ps' }
    
    POUR TOUT element<LigneEditionAnnuelle> DE listeImpressionsAnnuelles FAIRE
    	nbEdition := nbEdition + 1
    	element.exoCompta := exerciceComptable
    	element.imprimer{}
    	message	+=	element.nbExemplaires + ' exemplaire(s) de ' + element.nom + rc
    
    	element.valide{exerciceComptable.dateFin}
    	SI NON element.estCalcule ALORS
    		messageStop	+=	rc+ element.nom
    	FINSI
    
    FINFAIRE
    
    SI messageStop <> debMessage ALORS
    	info{messageStop}
    FINSI
    
    SI nbEdition > 0 ALORS
    	-- création du compte rendu d'impression.
    	compteRendu{}
    	message	+=	'1 exemplaire du Compte rendu d''impression'
    	fermerDriver{}
    	
    	reponse	:=	ouiNon{message}
    	
    	SI reponse = VRAI ALORS
    		-- lancement de l'imression du fichier créer au-dessus
    		ouvrirDriver{'ps'}
    	
    		SI shift{} ALORS
    			impression{chemArc}
    			choixSortie{}
    		SINON
    			imprimerFichier{chemArc}
    		FIN SI
    
    		fermerDriver{}
    		etatEdition[periode.fin] := 1
    		etatEdition[date{31, 12, annee{periode.fin}}] := 1
    		image != 'imprimante.bmp'
    	SINON
    		info{'Annulation de l''impression'}
    		
    		POUR TOUT element<LigneEditionAnnuelle> DE listeImpressionsAnnuelles FAIRE
    			element.estImprime	:=	FAUX
    			element.majStatut{}
    		FINFAIRE
    	FINSI
    
    FIN SI
    
    -- tout propre : on détruit le fichier temporaire.
    detruireFichier{chemArc}	
    affichage{FAUX}
    
    SORTIR VRAI
###
'init' 'AEA'
    --Création : 13/05/2002 16:43:58 scr-DAVID; Modification : 02/05/2013 16:21:10 llg-PO36696; 
    
    --Initialisation des différents onglets
    
    |
    ed<Objet>
    |
    
    ed ::= 'Editeur'
    ed := editeur{VRAI}
    
    -- Vérification du contenu du répertoire "compta"
    SI contenuRepertoire{repertoire+'\compta\preArch'} <> '' ALORS 
    	ajouterElement{ed.listeOnglets, 'compta'}
    	--constituerListe{ 'compta'} 
    FIN SI
    SI contenuRepertoire{repertoire+'\immos\preArch'} <> '' ALORS 
    	ajouterElement{ed.listeOnglets, 'immos'}
    	--constituerListe{ 'immos'} 
    FIN SI
###
'listeImpressionsAnnuelles_AJOUT' 'AEA'
{obj <Objet>}
    --Création : 30/04/2003 11:32:14 SJA-STEPHANEJ; Modification : 02/05/2013 16:21:10 llg-PO36696;
    
    
    
    
    
    
    -- Ajout d'un ou plusieurs états dans l'éditeur 
    
    
    
    -- Argument :
    --	obj : ligne ajoutée.
    
    -- Variables :
    --	ligneC : ligne à ajouter dans l'éditeur.
    --	i : indice de boucle.
    --	doc : 
    --	ligneNul : ligne vide à effacer.
    --	ed : editeur courant (edition annuelle)
    --	listeArchive : liste des fichiers d'archivage.
    
    |
    ligneC<Objet> ligneNul<Objet> ed<Objet>
    i<Entier> 
    listeArchive<Chaine> chExo<Chaine> tmpDate<Chaine>
    trouve<Booléen>
    dteDebut<Date> dteFin<Date>
    |
    
    ed	::=	'Editeur'
    ed	:=	editeur{VRAI}
    
    -- Récupération de la date début et date de fin sélectionnée
    SI taille{ed.dateSelectionnee} = 4 ALORS
    	dteDebut := date{1, 1, editPeriode}
    SINON
    	dteDebut := periode.debut
    FIN SI
    dteFin := periode.fin
    
    -- récupère tous les fichiers archivés dans le dossier sous l'exercice courant
    listeArchive	:=	contenuRepertoire{racine {} +'/archives/' + editPeriode + '/compta/' +  CodeDossier +'/'}
    
    -- création de la fenêtre proposant les états de l'exercice.
    listerEtats{}
    i	:=	1
    
    -- Récupération de la comtpa du dossier
    compta ::= CodeDossier
    trouve := FAUX
    i := 1
    TANT QUE (i <= nbElements{compta.datesFin} ET NON trouve) FAIRE
    	tmpDate := ''+(date{'jj/mm/aaaa'}+ elementEntierDIndice{compta.datesFin, i})	
    	SI date{tmpDate} >= dteDebut ET date{tmpDate} <= dteFin ALORS
    		trouve := VRAI
    	FIN SI
    	i := i + 1
    FIN FAIRE
    
    exerciceComptable ::= date{tmpDate}
    SI exerciceComptable = ? ALORS 
    	--exerciceComptable +:= chExo 
    	message{'L''exercice considéré n''existe pas pour ce dossier'}
    	SORTIR FAUX
    FIN SI
    
    /*
-- Récupération de l'exercice en cours
chExo := ''+debutExercice{CodeDossier, 0}+':'+finExercice{CodeDossier, 0}
exerciceComptable ::= chExo
SI exerciceComptable = ? ALORS 
	--exerciceComptable +:= chExo 
	message{'L''exercice considéré n''existe pas pour ce dossier'}
FIN SI
*/
    -- parcour de tous les états de l'exercice pour savoir ceux qui ont été sélectionnés pour l'édition.
    POUR TOUT element<EtatComptable> DE exerciceComptable.etats FAIRE
    
    	-- un état est sélectionné
    	SI element!{'EstCoche'}booleen  ALORS 
    		-- création d'une ligne pour l'édition annuelle
    		ligneC	::=	'LigneEditionAnnuelle'
    		ligneC	:=	creer{'LigneEditionAnnuelle'}
    
    		ligneC.nom	:=	element.NOM
    		element!{'nbEx'}entier	:=	1
    		ligneC.nbExemplaires:=	element!{'nbEx'}entier
    		ligneC.estImprime	:=	FAUX
    		ligneC.majStatut{}
    		ligneC.impressionDate	:=	ligneC.inverseBooleen{element!{'supprimerDate'}booleen}
    		ligneC.impressionPageDeGarde	:=	element!{'pageDeGarde'}booleen
    		ligneC.etatClasse	:=	classe{element}
    		ligneC.exoCompta	:=	exerciceComptable
    		ligneC.nomArchive{listeArchive}
    
    		-- ajout de cette ligne dans la liste des états à afficher
    		ajouterElement{listeImpressionsAnnuelles, ligneC}
    	FINSI
    FIN FAIRE
    
    -- supprime la ligne vide.
    ligneNul	::=	'LigneEditionAnnuelle'
    ligneNul	:=	obj
    SI nbElements{listeImpressionsAnnuelles} > 0 ALORS
    	supprimerElement{listeImpressionsAnnuelles, ligneNul}
    FIN SI
    
    Imprimer_les_états_gris[exerciceComptable.dateDebut]		!=	FAUX
    Enregistrer_comme_modèle_gris[exerciceComptable.dateDebut]	!=	FAUX
    Archiver_les_états_gris[exerciceComptable.dateDebut]		!=	FAUX
    
    affichage{FAUX}
    
    SORTIR VRAI
###
'listeImpressionsAnnuelles_LISTE' 'AEA'
    --Création : 23/07/2003 16:41:03 scr-SOLENN; Modification : 02/05/2013 16:21:10 llg-PO36696; 
    
    -- Initialisation de la liste des éditions annuelles avec les états verrouillés de la compta
    
    |
    chExo<Chaine> listeArchive<Chaine> tmpDate<Chaine> 
    elt<Objet> ed<Objet>
    dteDebut<Date> dteFin<Date>
    trouve<Booléen>
    i<Entier>
    |
    
    ed	::=	'Editeur'
    ed	:=	editeur{VRAI}
    
    -- Récupération de la date début et date de fin sélectionnée
    SI taille{ed.dateSelectionnee} = 4 ALORS
    	dteDebut := date{1, 1, editPeriode}
    SINON
    	dteDebut := periode.debut
    FIN SI
    dteFin := periode.fin
    
    listeArchive	:=	contenuRepertoire{racine {} +'/archives/' + editPeriode + '/compta/' +  CodeDossier +'/'}
    
    -- Vérification de l'existence ou non d'états verrouillés pour le dossier en cours
    SI nbElements{listeImpressionsAnnuelles} = 0 ALORS
    
    	-- Récupération de la comtpa du dossier
    	compta ::= CodeDossier
    	trouve := FAUX
    	i := 1
    	TANT QUE (i <= nbElements{compta.datesFin} ET NON trouve) FAIRE
    		tmpDate := ''+(date{'jj/mm/aaaa'}+ elementEntierDIndice{compta.datesFin, i})	
    		SI date{tmpDate} >= dteDebut ET date{tmpDate} <= dteFin ALORS
    			trouve := VRAI
    		FIN SI
    		i := i + 1
    	FIN FAIRE
    
    	exerciceComptable ::= date{tmpDate}
    	SI exerciceComptable = ? ALORS 
    		--exerciceComptable +:= chExo 
    		message{'L''exercice considéré n''existe pas pour ce dossier'}
    		SORTIR listeImpressionsAnnuelles
    	FIN SI
    
    	-- parcours tous les états de l'exercice comptable afin de tous les sélectionner
    	POUR TOUT element<EtatComptable> DE exerciceComptable.etats FAIRE
    		SI element.{'EstVerrouille'}booleen[finExercice{CodeDossier, 0}] ALORS
    			-- Création d'un élément ligneEditionAnnuelle
    			elt ::= 'LigneEditionAnnuelle'
    			elt := creer{'LigneEditionAnnuelle'}
    
    			elt.nom				:=	element.NOM
    			element!{'nbEx'}entier		:=	1
    			elt.nbExemplaires		:=	element!{'nbEx'}entier
    			elt.estImprime			:=	FAUX
    			elt.majStatut{}
    			elt.impressionDate		:=	elt.inverseBooleen{element!{'supprimerDate'}booleen}
    			elt.impressionPageDeGarde	:=	element!{'pageDeGarde'}booleen
    			elt.etatClasse			:=	classe{element}
    			elt.exoCompta			:=	exerciceComptable
    			elt.nomArchive{listeArchive}
    
    			-- Ajout de l'élément a la liste des editions annuelles
    			ajouterElement{listeImpressionsAnnuelles, elt}
    		FIN SI
    	FIN FAIRE
    
    FIN SI
    
    SORTIR listeImpressionsAnnuelles
###
'listeImpressionsAnnuelles_SUPPRESSION' 'AEA'
{obj <Objet>}
    --Création : 20/05/2003 12:24:31 SJA-STEPHANEJ; Modification : 02/05/2013 16:21:10 llg-PO36696; 
    
    
    
    
    
    -- remet la liste des états au propre lors de la suppression d'une ligne par l'utilisateur.
    
    
    -- Argument :
    --	obj : lignée effacés
    
    -- Variable :
    --	ligneC : ligne à effacé.
    
    |
    	ligneC<Objet> ed<Objet>objRep<Objet>
    	chExo<Chaine> tmpDate<Chaine>
    	dteDebut<Date> dteFin<Date>
    	trouve<Booléen>
    	i<Entier>
    |
    
    objRep := ?
    ed	::=	'Editeur'
    ed	:=	editeur{VRAI}
    
    -- Récupération de la date début et date de fin sélectionnée
    SI taille{ed.dateSelectionnee} = 4 ALORS
    	dteDebut := date{1, 1, editPeriode}
    SINON
    	dteDebut := periode.debut
    FIN SI
    dteFin := periode.fin
    
    -- Récupération de la comtpa du dossier
    compta ::= CodeDossier
    trouve := FAUX
    i := 1
    TANT QUE (i <= nbElements{compta.datesFin} ET NON trouve) FAIRE
    	tmpDate := ''+(date{'jj/mm/aaaa'}+ elementEntierDIndice{compta.datesFin, i})	
    	SI date{tmpDate} >= dteDebut ET date{tmpDate} <= dteFin ALORS
    		trouve := VRAI
    	FIN SI
    	i := i + 1
    FIN FAIRE
    
    exerciceComptable ::= date{tmpDate}
    SI exerciceComptable = ? ALORS 
    	--exerciceComptable +:= chExo 
    	message{'L''exercice considéré n''existe pas pour ce dossier'}
    	SORTIR listeImpressionsAnnuelles
    FIN SI
    /*
-- Récupération de l'exercice en cours
chExo := ''+debutExercice{CodeDossier, 0}+':'+finExercice{CodeDossier, 0}
exerciceComptable ::= chExo
SI exerciceComptable = ? ALORS exerciceComptable +:= chExo FIN SI
*/
    ligneC	::=	'LigneEditionAnnuelle'
    ligneC	:=	obj
    
    -- supprimer la ligne de la liste des états à afficher.
    supprimerElement{listeImpressionsAnnuelles, ligneC}
    
    SI nbElements{listeImpressionsAnnuelles} < 1 ALORS
    	Imprimer_les_états_gris[exerciceComptable.dateDebut]		!=	VRAI
    	Archiver_les_états_gris[exerciceComptable.dateDebut]		!=	VRAI
    	Enregistrer_comme_modèle_gris[exerciceComptable.dateDebut]	!=	VRAI
    FINSI
    
    SORTIR objRep
###
'listerEtats' 'AEA'
    --Création : 07/05/2003 17:27:05 SJA-STEPHANEJ; Modification : 02/05/2013 16:21:11 llg-PO36696; 
    -- créer une fenêtre affichant sous forme d'arbre les états de la comptabilité. Chaque état peu être coché par l'utilisateur.
    
    -- Variables :
    --	i : indice de boucle
    --	flag : booléen à vrai si l'état est déjà dans l'édition annuelle.
    --	ligneC : ligne de l'édition annuelle.
    --	listeSortie : liste proposant le choix des états à l'utilisateur
    --	cat : catégorie des états.
    --	listeCat : liste des catégories d'états permettant de respecter la hiérarchie des états dans la fenêtre.
    --	nr : noeud racine.
    --	n : noeud de l'arbre.
    
    |
    	i<Entier>objRep<Objet>
    	flag<Booléen> trouve<Booléen>
    	ligneC<Objet> listeSortie<Objet> ed<Objet> listeCat<Objet> nr<Objet> n<Objet>
    	cat<Chaine>  chExo<Chaine> tmpDate<Chaine>
    	dteDebut<Date> dteFin<Date>
    |
    
    objRep := ?
    listeSortie	:=	creerListe{}
    listeCat	:=	creerListe{}
    flag	:=	FAUX
    ligneC	::=	'LigneEditionAnnuelle'
    i	:=	1
    cat	:=	' '
    
    ed	::=	'Editeur'
    ed	:=	editeur{VRAI}
    
    -- Récupération de la date début et date de fin sélectionnée
    SI taille{ed.dateSelectionnee} = 4 ALORS
    	dteDebut := date{1, 1, editPeriode}
    SINON
    	dteDebut := periode.debut
    FIN SI
    dteFin := periode.fin
    
    -- Récupération de la comtpa du dossier
    compta ::= CodeDossier
    trouve := FAUX
    TANT QUE (i <= nbElements{compta.datesFin} ET NON trouve) FAIRE
    	tmpDate := ''+(date{'jj/mm/aaaa'}+ elementEntierDIndice{compta.datesFin, i})	
    	SI date{tmpDate} >= dteDebut ET date{tmpDate} <= dteFin ALORS
    		trouve := VRAI
    	FIN SI
    	i := i + 1
    FIN FAIRE
    
    exerciceComptable ::= date{tmpDate}
    SI exerciceComptable = ? ALORS 
    	--exerciceComptable +:= chExo 
    	message{'L''exercice considéré n''existe pas pour ce dossier'}
    	SORTIR listeImpressionsAnnuelles
    FIN SI
    /*
-- Récupération de l'exercice en cours
chExo := ''+debutExercice{CodeDossier, 0}+':'+finExercice{CodeDossier, 0}
exerciceComptable ::= chExo
SI exerciceComptable = ? ALORS exerciceComptable +:= chExo FIN SI
*/
    
    i := 1
    -- parcour tous les états de l'exercice comptable afin de tous les délectionner
    POUR TOUT element<EtatComptable> DE exerciceComptable.etats FAIRE
    	element!{'EstCoche'}booleen := FAUX 
    FIN FAIRE
    
    -- parcour tous les états de comptabilité de coala
    POUR TOUT element<EtatComptable> DE exerciceComptable.etats
    TRI element.categorie FAIRE
    
    	-- vérifie s'il n'existe pas déjà une liste d'état.
    	SI nbElements{listeImpressionsAnnuelles} > 0 ALORS
    
    		-- si oui, alors vérifie que l'état ne fait pas déjà partie de cette liste
    		TANT QUE i <= nbElements{listeImpressionsAnnuelles} FAIRE
    			ligneC	:=	elementDIndice{listeImpressionsAnnuelles, i}
    
    			SI element.NOM = ligneC.nom ALORS
    
    				-- le flag permet de signaler que l'état est déjà dans l'édition annuelle. On sort alors de la boule en forcant i.
    				flag	:=	VRAI
    				i	:=	10000
    			FINSI
    			i	+=	1
    		FINFAIRE
    	FINSI
    
    	-- evidemment, l'edition annuelle ne peut être ajouté à la liste.
    	SI indiceElement{classesNonEditables{}, classe{element}}=0 ALORS
    
    		-- l'état n'est pas dans la liste, alors il faut l'afficher	
    
    		SI NON flag ALORS
    
    			-- la catégorie est le noeud racine. Si la catégorie de l'état n'existe pas dans l'arbre, il faut l'ajouter.
    
    			SI element.categorie <> cat ALORS
    
    				cat	:=	element.categorie
    				nr	:=	creerNoeud{cat,creer{'Impressions_Annuelles'},VRAI}
    				element!{'EstCoche'}booleen := FAUX
    				ajouterElement{listeCat, nr}
    			FINSI
    
    			-- ajout au noeud racine (la catégorie), l'état à afficher.
    			n	:=	creerNoeud{element.NOM, element, nr}
    		FINSI
    	FINSI
    
    	flag	:=	FAUX
    	i	:=	1
    FINFAIRE
    
    -- fenêtre proposant les sélections des états.
    SI nbElements{choixArbre{'Cochez les éléments désirés                                                                 ', listeCat}[exerciceComptable.dateFin ]} < 0 ALORS
    
    	POUR TOUT element<EtatComptable> DE exerciceComptable.etats FAIRE
    		element!{'EstCoche'}booleen := FAUX
    	FINFAIRE
    FINSI
    
    SORTIR objRep
###
'parcourirRepertoireDoc' 'AEA'
{argRepertoire <Chaine> argFinRep <Chaine>}
    --Création : 15/05/2002 16:03:50 scr-DAVID; Modification : 02/05/2013 16:21:11 llg-PO36696; 
    
    
    
    
    
    
    --Fonction récursive parcourant un répertoire pour récupérer l'ensemble des fichiers le contenant
    
    
    
    |
    tmpContenu<Chaine> CR<Chaine> resRetour<Chaine> typeFichier<Chaine>  
    listeFichiers<Objet> flotRep<Objet>
    |
    
    --Initialisation des variables
    CR := '
'
    listeFichiers := flotEcriture{}
    tmpContenu := contenuRepertoire{ argRepertoire}
    
    flotRep := flotLecture{ tmpContenu}
    
    --Parcours jusqu'à la fin du flot
    TANT QUE NON lectureFinie{ flotRep} FAIRE
    
    	resRetour := lire{ flotRep,CR}
    	typeFichier := infoFichier{ argRepertoire +'\' + resRetour}
    	SI typeFichier ='fichier' ALORS 
    		SI argFinRep <> '' ALORS
    			listeFichiers  + argFinRep + '\' + resRetour + CR
    		SINON
    			listeFichiers + resRetour + CR
    		FIN SI
    	SINON
    		SI argFinRep <> '' ALORS
    			listeFichiers + parcourirRepertoireDoc{argRepertoire+'\' + resRetour, argFinRep+'\'+resRetour}
    		SINON
    			listeFichiers + parcourirRepertoireDoc{argRepertoire+'\' + resRetour, resRetour}
    		FIN SI
    	FIN SI
    
    FIN FAIRE
    
    SORTIR contenuFlot{listeFichiers}
###
'rechercheArchive' 'AEA'
    --Création : 19/05/2003 10:40:50 SJA-SJA; Modification : 02/05/2013 16:21:11 llg-PO36696; 
    -- permet de savoir si un etat est archivé ou non.
    
    --Variables :
    --	listeArchive : liste des fichiers présents dans le dossier archives.
    
    |
    	listeArchive<Chaine> chExo<Chaine>tmpDate<Chaine>
    	ed<Objet>objRep<Objet>
    	i<Entier>
    	trouve<Booléen>
    	dteDebut<Date> dteFin<Date>
    |
    
    objRep := ?
    ed	::=	'Editeur'
    ed	:=	editeur{VRAI}
    
    -- Récupération de la date début et date de fin sélectionnée
    SI taille{ed.dateSelectionnee} = 4 ALORS
    	dteDebut := date{1, 1, editPeriode}
    SINON
    	dteDebut := periode.debut
    FIN SI
    dteFin := periode.fin
    
    -- Récupération de la comtpa du dossier
    compta ::= CodeDossier
    trouve := FAUX
    TANT QUE (i <= nbElements{compta.datesFin} ET NON trouve) FAIRE
    	tmpDate := ''+(date{'jj/mm/aaaa'}+ elementEntierDIndice{compta.datesFin, i})	
    	SI date{tmpDate} >= dteDebut ET date{tmpDate} <= dteFin ALORS
    		trouve := VRAI
    	FIN SI
    	i := i + 1
    FIN FAIRE
    
    exerciceComptable ::= date{tmpDate}
    SI exerciceComptable = ? ALORS 
    	--exerciceComptable +:= chExo 
    	message{'L''exercice considéré n''existe pas pour ce dossier'}
    	SORTIR listeImpressionsAnnuelles
    FIN SI
    /*
-- Récupération de l'exercice en cours
chExo := ''+debutExercice{CodeDossier, 0}+':'+finExercice{CodeDossier, 0}
exerciceComptable ::= chExo
SI exerciceComptable = ? ALORS exerciceComptable +:= chExo FIN SI
*/
    -- récupère tous les fichiers archivés dans le dossier sous l'exercice courant
    listeArchive	:=	contenuRepertoire{racine {} +'/archives/' + annee {exerciceComptable.dateFin} + '/compta/' +  dossier.CodeDossier +'/'}
    
    -- parcour tous les états de l'édition annuelle.
    POUR TOUT element<LigneEditionAnnuelle> DE listeImpressionsAnnuelles FAIRE
    	element.nomArchive{listeArchive}
    FINFAIRE
    
    SORTIR objRep
###
'testAttributs' 'AEA'
    --Création : 19/05/2003 11:06:39 SJA-SJA; Modification : 02/05/2013 16:21:11 llg-PO36696; 
    -- parcourt la liste pour mettre à jour ses attributs.
    
    |
    chExo<Chaine>
    |
    
    -- Récupération de l'exercice en cours
    chExo := ''+debutExercice{CodeDossier, 0}+':'+finExercice{CodeDossier, 0}
    exerciceComptable ::= chExo
    SI exerciceComptable = ? ALORS exerciceComptable +:= chExo FIN SI
    
    POUR TOUT element<LigneEditionAnnuelle> DE exerciceComptable.etats FAIRE
    	element.majAttributs{}
    FIN FAIRE
###
'listerEtatsFacturation' 'Cloture'
{argDate <Date>}
    --Création : 21/06/2007 09:26:12 scr-SOTAN3; Modification : 02/05/2013 16:21:11 llg-PO36696; 
    
    
    
    
    
    
    
    
    |
    	lstEtatsGRC<Chaine>
    |
    
    exerciceComptable	::=	argDate
    
    lstEtatsGRC	:=	''
    /*
SI dossier.paye2Presente ALORS
	paye2	::=	''
	SI paye2 <> ? ALORS
		POUR TOUT element<EtatPaye> DE paye2.etats FAIRE
			lstEtatsGRC	+=	'	- ' + element.NOM+'
'
		FIN FAIRE
	FIN SI
FIN SI
*/
    SORTIR lstEtatsGRC
###
'listerEtatsPaye' 'Cloture'
{argDate <Date>}
    --Création : 21/06/2007 09:26:12 scr-SOTAN3; Modification : 02/05/2013 16:21:11 llg-PO36696; 
    
    
    
    
    
    
    
    
    |
    	lstEtatsPaye<Chaine>
    |
    
    exerciceComptable	::=	argDate
    
    lstEtatsPaye	:=	''
    
    SI paye2Presente ALORS
    	paye2	::=	CodeDossier
    	SI paye2 <> ? ALORS
    		POUR TOUT element<EtatPaye> DE paye2.etats FAIRE
    			lstEtatsPaye	+=	'	- ' + element.nom+'
'
    		FIN FAIRE
    	FIN SI
    FIN SI
    
    SORTIR lstEtatsPaye
###
'controleApplicationFacturation' 'Cloture'
{argDate <Date>}
    --Création : 21/06/2007 08:52:56 scr-SOTAN3; Modification : 28/05/2013 07:43:38 ylv-PC100383; 
    
    
    |
    	objLibrairieGI2<Objet>
    |
    
    objLibrairieGI2 ::= 'LibrairieGI2'
    objLibrairieGI2 := creer{'LibrairieGI2'}
    
    -- Si on n'est pas sur l'entité alors on sort vrai
    cabinet ::= CodeDossier
    SI cabinet = ? ALORS
    	SORTIR VRAI
    FIN SI
    
    objLibrairieGI2.bTesterClotureFacturationPossible{} 
    -- Si gestion cabinet doit cloturer la periode 
    SI objLibrairieGI2.abOk = VRAI ALORS 
    	SI dteClotureFacturation < argDate ALORS
    		SORTIR FAUX
    	FIN SI
    FIN SI
    
    SORTIR VRAI
###
'controleApplicationPaye' 'Cloture'
{argDate <Date>}
    --Création : 21/06/2007 08:52:56 scr-SOTAN3; Modification : 02/05/2013 16:21:11 llg-PO36696; 
    
    
    SI dossier.paye2Presente ALORS
    	paye2	::=	''
    	SI paye2 <> ? ALORS
    --	MODIF 26/06/09 ade : l'attribut en paye est EstCloture
    		SI NON paye2.EstCloture[argDate] ALORS
    			SORTIR FAUX
    		FIN SI
    	FIN SI
    FINSI
    
    SORTIR VRAI
###
'controleEtatDP' 'Cloture'
{argDate <Date>}
    --Création : 26/06/2007 08:16:49 scr-SOTAN3; Modification : 02/05/2013 16:21:11 llg-PO36696; 
    
    
    
    
    
    
    
    
    | 
    	listeEtatsDP<Chaine> tmpAnnee2<Chaine>
    	monEtat<Objet> lst<Objet> ma2777<Objet>
    	trouve<Booléen> trouve1<Booléen> trouve2<Booléen>
    	i<Entier> tmpAnnee<Entier> 
    |
    
    exerciceComptable	::=	argDate
    monEtat	::=	'EtatDossier'


    
    tmpAnnee	:=	annee{exerciceComptable.dateFin}
    POUR TOUT element<EtatDossier> DE etats FAIRE
    	monEtat	:=	element
    	trouve	:=	FAUX
    	trouve1	:=	FAUX
    	trouve2	:=	FAUX
    
    	-- DAS2

    	SI classe{monEtat} # 'Dematerialisation_DAS*' ALORS	
    		-- les états demat DAS2 sont uniquement des états génératifs. ils n'ont pas besoin d'être verrouillés
    		trouve := FAUX    		
    	SINON	

    		SI classe{monEtat} # 'Declaration_Sociale_des_Independants*'  ALORS
	    		SI exerciceComptable.dateFin = date{31, 12, tmpAnnee} ALORS
	    			-- on prend le millésime suivant
	    			SI classe{monEtat} # 'Declaration_Sociale_des_Independants_'+(tmpAnnee+1)  ALORS
	    				trouve	:=	VRAI
	    			FIN SI
	    		SINON
	    			-- on prend le même millésime que l'exercice comptable
	    			SI classe{monEtat} # 'Declaration_Sociale_des_Independants_'+tmpAnnee ALORS
	    				trouve	:=	VRAI
	    			FIN SI
	    		FIN SI
	    	SINON
		    	SI classe{monEtat} # 'DAS2T*'  ALORS
		    		SI exerciceComptable.dateFin = date{31, 12, tmpAnnee} ALORS
		    			-- on prend le millésime suivant
		    			SI classe{monEtat} # 'DAS2T_'+(tmpAnnee+1)  ALORS
		    				trouve	:=	VRAI
		    			FIN SI
		    		SINON
		    			-- on prend le même millésime que l'exercice comptable
		    			SI classe{monEtat} # 'DAS2T_'+tmpAnnee ALORS
		    				trouve	:=	VRAI
		    			FIN SI
		    		FIN SI
		    	SINON
		    --	MODIF 10/12/09 ade : suite remontée A.Meunier, ok de Sylvain ne pas tester IFU pour la clôture définitive
		    
		    		-- IFU
		    		SI classe{monEtat} # '*IFU*' ALORS
		    			trouve := FAUX
		    		SINON	
		    			-- 2777
		    			SI classe{monEtat} # '*2777*' ALORS
		    				tmpAnnee2	:=	chaine{''+tmpAnnee, 3, 4}
		    				-- on prend le même millésime que l'exercice comptable
		    				SI classe{monEtat} # 'Liasse_'+tmpAnnee2+'_2777' 
		    				ET monEtat.{'periodeReference'}date >= exerciceComptable.dateDebut ET monEtat.{'periodeReference'}date <= exerciceComptable.dateFin ALORS
		    					trouve	:=	VRAI
		    				FIN SI
		    			SINON
		    				-- tous les autres états du DP
		    				SI classe{monEtat} <> 'Passerelle_PolyActe' ALORS
		    					trouve	:=	VRAI
		    				FIN SI
		    			FIN SI
		    		FIN SI
		    	FIN SI
		    FINSI
    	FINSI
    
    	SI trouve ALORS
    		lst	:=	fonctions{monEtat, 'Traitements'}
    		i	:=	1
    		TANT QUE i <= nbElements{lst} ET NON trouve1 ET NON trouve2 FAIRE
    			SI ''+elementDIndice{lst,i} = 'Calculer' ALORS
    				trouve1	:=	VRAI
    			SINON
    				SI ''+elementDIndice{lst,i} = 'Verrouiller' ALORS
    					trouve2	:=	VRAI
    				FINSI
    			FIN SI
    			i	+=	1
    		FIN FAIRE
    	
    		SI trouve1 ALORS
    			SI NON monEtat.EstCalcule[exerciceComptable.dateFin] ALORS
    				listeEtatsDP	+=	'	'+monEtat.NOM+'
'
    			FIN SI
    		SINON
    			SI trouve2 ALORS
    				SI classe{monEtat} # '*2777*' ALORS
    					SI NON monEtat.EstVerrouille[monEtat!{'periodeReference'}date] ALORS
    						listeEtatsDP	+=	'	'+monEtat.NOM+'
'
    					FIN SI
    				SINON
    					SI NON monEtat.EstVerrouille[exerciceComptable.dateFin] ALORS
    						listeEtatsDP	+=	'	'+monEtat.NOM+'
'
    					FIN SI
    				FIN SI
    			FIN SI
    		FIN SI
    	FIN SI
    FIN FAIRE
    

    SORTIR listeEtatsDP
###
'bTesteAdresse1OnlyNumero' 'Contacts'
{szAdresseArg <Chaine>}
    --Création : 24/02/2009 16:05:16 ylv-LEVERGE-Y; Modification : 02/05/2013 16:21:11 llg-PO36696; 
    
    
    
    
    
    
    
    |
    	lNumeroLoc<Entier>szVar<Chaine>bRep<Booléen>
    |
    
    bRep := FAUX
    
    -- Tester si la chaine transmise en argument est "23" ou "23 ter"
    SI taille{szAdresseArg} > 0 ALORS
    	lNumeroLoc := entier{szAdresseArg}
    
    	SI lNumeroLoc <> ? ET lNumeroLoc <> 0 ALORS
    		szVar := sansEspaceDebutFin{substituerChaine{szAdresseArg, ''+lNumeroLoc,''}}
    		SI szRenvoieTesterChaineVide{szVar} = '' ALORS
    			bRep := VRAI
    		FIN SI
    		SI majuscule{szVar} = majuscule{'ter'} ALORS
    			bRep := VRAI
    		FIN SI
    		SI majuscule{szVar} = majuscule{'bis'} ALORS
    			bRep := VRAI
    		FIN SI
    	FIN SI
    FIN SI
    
    SORTIR bRep
###
'szRenvAttributAssocieHistorise' 'Contacts'
{szNomAttributArg <Chaine> objAssocieArg <Objet> bAvantDerniereDateArg <Booléen>}
    --Création : 24/11/2005 11:32:31 jcr-RANAIVO-C; Modification : 02/05/2013 16:21:11 llg-PO36696; 
    
    
    
    
    
    
    
    |
    	oLst<Objet>derniereDate<Date>avantDerniereDate<Date>szRep<Chaine>objAssocieLoc<Objet>
    	bAvantDerniereDateArgLoc<Booléen>lNbElts<Entier>
    |
    
    objAssocieLoc ::= 'Associe'
    objAssocieLoc := objAssocieArg
    
    bAvantDerniereDateArgLoc := bAvantDerniereDateArg
    
    szRep := ''
    
    oLst  := creerListe{}
    oLst := datesHistorique{objAssocieArg, szNomAttributArg}
    
    lNbElts := nbElements{ oLst}
    derniereDate:= elementEntierDIndice{oLst, lNbElts}
    SI lNbElts > 1 ALORS
    	avantDerniereDate:= elementEntierDIndice{oLst,  lNbElts-1}
    SINON
    	avantDerniereDate:= ?
    FIN SI
    
    SI szNomAttributArg = 'Adresse1' ALORS
    	SI sansEspaceDebutFin{szRenvoieTesterChaineVide{objAssocieLoc.Adresse1[derniereDate]}} = '' ALORS
    		SI avantDerniereDate <> ? ALORS
    			SI szRenvoieTesterChaineVide{objAssocieLoc.Adresse1[avantDerniereDate]} <> '' ALORS
    				szRep := objAssocieLoc.Adresse1[avantDerniereDate]
    			FIN SI
    		FIN SI
    	SINON
    		szRep := objAssocieLoc.Adresse1[derniereDate]
    	FIN SI
    	SI avantDerniereDate <> ? ET bAvantDerniereDateArgLoc = VRAI ALORS
    		szRep := objAssocieLoc.Adresse1[avantDerniereDate]
    	FIN SI
    FIN SI
    
    SI szNomAttributArg = 'Adresse2' ALORS
    	SI sansEspaceDebutFin{szRenvoieTesterChaineVide{objAssocieLoc.Adresse2[derniereDate]}} = '' ALORS
    		SI avantDerniereDate <> ? ALORS
    			SI sansEspaceDebutFin{szRenvoieTesterChaineVide{objAssocieLoc.Adresse2[avantDerniereDate]}} <> '' ALORS
    				szRep := objAssocieLoc.Adresse2[avantDerniereDate]
    			FIN SI
    		FIN SI
    	SINON
    		szRep := objAssocieLoc.Adresse2[derniereDate]
    	FIN SI
    	SI avantDerniereDate <> ? ET bAvantDerniereDateArgLoc = VRAI ALORS
    		szRep := objAssocieLoc.Adresse2[avantDerniereDate]
    	FIN SI
    FIN SI
    
    SI szNomAttributArg = 'Adresse3' ALORS
    	SI sansEspaceDebutFin{szRenvoieTesterChaineVide{objAssocieLoc.Adresse3[derniereDate]}} = '' ALORS
    		SI avantDerniereDate <> ? ALORS
    			SI sansEspaceDebutFin{szRenvoieTesterChaineVide{objAssocieLoc.Adresse3[avantDerniereDate]}} <> '' ALORS
    				szRep := objAssocieLoc.Adresse3[avantDerniereDate]
    			FIN SI
    		FIN SI
    	SINON
    		szRep := objAssocieLoc.Adresse3[derniereDate]
    	FIN SI
    	SI avantDerniereDate <> ? ET bAvantDerniereDateArgLoc = VRAI ALORS
    		szRep := objAssocieLoc.Adresse3[avantDerniereDate]
    	FIN SI
    FIN SI
    
    SORTIR sansEspaceDebutFin{szRep}
###
'get_Aga.dateRadiation' 'Contacts_Aga'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 02/05/2013 16:21:11 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Aga' ALORS
    			SI first ALORS
    				tmpCh	:=	''+element.DateRadiation
    				first	:=	FAUX
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Aga.numeroAdhesion' 'Contacts_Aga'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 02/05/2013 16:21:11 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Aga' ALORS
    			SI first ALORS
    				tmpCh	:=	element.NumAdhes
    				first	:=	FAUX
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Aga.dateAdhesion' 'Contacts_Aga'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 02/05/2013 16:21:11 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Aga' ALORS
    			SI first ALORS
    				tmpCh	:=	''+element.Adhes
    				first	:=	FAUX
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Aga.webSite' 'Contacts_Aga'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 02/05/2013 16:21:11 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Aga' ALORS
    			pers	:=	element.personne	
    			SI first ALORS
    				tmpCh	:=	pers.website
    				first	:=	FAUX
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Aga.email' 'Contacts_Aga'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 02/05/2013 16:21:11 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Aga' ALORS
    			pers	:=	element.personne	
    			SI first ALORS
    				tmpCh	:=	pers.email
    				first	:=	FAUX
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Aga.fax' 'Contacts_Aga'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 02/05/2013 16:21:11 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Aga' ALORS
    			pers	:=	element.personne	
    			SI first ALORS
    				tmpCh	:=	pers.fax
    				first	:=	FAUX
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Aga.mobile' 'Contacts_Aga'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 02/05/2013 16:21:11 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Aga' ALORS
    			pers	:=	element.personne	
    			SI first ALORS
    				tmpCh	:=	pers.mobile
    				first	:=	FAUX
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Aga.telephone' 'Contacts_Aga'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 02/05/2013 16:21:11 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Aga' ALORS
    			pers	:=	element.personne	
    			SI first ALORS
    				tmpCh	:=	pers.telephone
    				first	:=	FAUX
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Aga.nomPays' 'Contacts_Aga'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 02/05/2013 16:21:11 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Aga' ALORS
    			pers	:=	element.personne	
    			SI first ALORS
    				tmpCh	:=	pers.nomPays
    				first	:=	FAUX
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Aga.pays' 'Contacts_Aga'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 02/05/2013 16:21:12 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Aga' ALORS
    			pers	:=	element.personne	
    			SI first ALORS
    				tmpCh	:=	pers.pays
    				first	:=	FAUX
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Aga.bureauDistributeur' 'Contacts_Aga'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 02/05/2013 16:21:12 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Aga' ALORS
    			pers	:=	element.personne	
    			SI first ALORS
    				tmpCh	:=	pers.bureauDistributeur
    				first	:=	FAUX
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Aga.codePostalGeo' 'Contacts_Aga'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 02/05/2013 16:21:12 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Aga' ALORS
    			pers	:=	element.personne	
    			SI first ALORS
    				tmpCh	:=	pers.codePostalGeo
    				first	:=	FAUX
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Aga.codePostal' 'Contacts_Aga'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 02/05/2013 16:21:12 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Aga' ALORS
    			pers	:=	element.personne	
    			SI first ALORS
    				tmpCh	:=	pers.codePostal
    				first	:=	FAUX
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Aga.adresse3' 'Contacts_Aga'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 02/05/2013 16:21:12 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Aga' ALORS
    			pers	:=	element.personne	
    			SI first ALORS
    				tmpCh	:=	pers.adresse3
    				first	:=	FAUX
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Aga.adresse2' 'Contacts_Aga'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 02/05/2013 16:21:12 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Aga' ALORS
    			pers	:=	element.personne	
    			SI first ALORS
    				tmpCh	:=	pers.adresse2
    				first	:=	FAUX
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Aga.adresse1' 'Contacts_Aga'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 02/05/2013 16:21:12 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Aga' ALORS
    			pers	:=	element.personne	
    			SI first ALORS
    				tmpCh	:=	pers.adresse1
    				first	:=	FAUX
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Aga.bister' 'Contacts_Aga'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 02/05/2013 16:21:12 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Aga' ALORS
    			pers	:=	element.personne	
    			SI first ALORS
    				tmpCh	:=	pers.bister
    				first	:=	FAUX
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Aga.numero' 'Contacts_Aga'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 02/05/2013 16:21:12 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Aga' ALORS
    			pers	:=	element.personne	
    			SI first ALORS
    				tmpCh	:=	pers.numero
    				first	:=	FAUX
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Aga.typeJuridique' 'Contacts_Aga'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 02/05/2013 16:21:12 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Aga' ALORS
    			pers	:=	element.personne	
    			SI first ALORS
    				tmpCh	:=	pers.typeJuridique
    				first	:=	FAUX
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Aga.ape' 'Contacts_Aga'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 02/05/2013 16:21:12 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Aga' ALORS
    			pers	:=	element.personne	
    			SI first ALORS
    				tmpCh	:=	pers.Ape
    				first	:=	FAUX
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Aga.activite' 'Contacts_Aga'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 02/05/2013 16:21:12 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Aga' ALORS
    			pers	:=	element.personne	
    			SI first ALORS
    				tmpCh	:=	pers.Activite
    				first	:=	FAUX
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Aga.siret' 'Contacts_Aga'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 02/05/2013 16:21:12 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Aga' ALORS
    			pers	:=	element.personne	
    			SI first ALORS
    				tmpCh	:=	pers.siret
    				first	:=	FAUX
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Aga.siren' 'Contacts_Aga'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 02/05/2013 16:21:12 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Aga' ALORS
    			pers	:=	element.personne	
    			SI first ALORS
    				tmpCh	:=	pers.siren
    				first	:=	FAUX
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Aga.departementDeNaissance' 'Contacts_Aga'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 02/05/2013 16:21:12 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Aga' ALORS
    			pers	:=	element.personne	
    			SI first ALORS
    				tmpCh	:=	pers.departementDeNaissance
    				first	:=	FAUX
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Aga.adresseDeNaissance' 'Contacts_Aga'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 02/05/2013 16:21:12 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Aga' ALORS
    			pers	:=	element.personne	
    			SI first ALORS
    				tmpCh	:=	pers.adresseDeNaissance
    				first	:=	FAUX
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Aga.numeroSecuriteSociale' 'Contacts_Aga'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 02/05/2013 16:21:12 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Aga' ALORS
    			pers	:=	element.personne	
    			SI first ALORS
    				tmpCh	:=	pers.numeroSecuriteSociale
    				first	:=	FAUX
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Aga.dateDeNaissance' 'Contacts_Aga'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 02/05/2013 16:21:12 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	?
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Aga' ALORS
    			pers	:=	element.personne	
    			SI first ALORS
    				tmpCh	:=	''+pers.dateDeNaissance
    				first	:=	FAUX
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Aga.prenom' 'Contacts_Aga'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 02/05/2013 16:21:12 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Aga' ALORS
    			pers	:=	element.personne	
    			SI first ALORS
    				tmpCh	:=	pers.firstName
    				first	:=	FAUX
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Aga.nom' 'Contacts_Aga'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 02/05/2013 16:21:12 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Aga' ALORS
    			pers	:=	element.personne	
    			SI first ALORS
    				tmpCh	:=	pers.lastName
    				first	:=	FAUX
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Aga.civilite' 'Contacts_Aga'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 02/05/2013 16:21:12 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Aga' ALORS
    			pers	:=	element.personne	
    			SI first ALORS
    				tmpCh	:=	pers.civilite
    				first	:=	FAUX
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Aga.nomComplet' 'Contacts_Aga'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 02/05/2013 16:21:12 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Aga' ALORS
    			pers	:=	element.personne	
    			SI first ALORS
    				tmpCh	:=	pers.fullName
    				first	:=	FAUX
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Aga.personnePhysique' 'Contacts_Aga'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 02/05/2013 16:21:12 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Aga' ALORS
    			pers	:=	element.personne	
    			SI first ALORS
    				tmpCh	:=	pers.personnePhysique
    				first	:=	FAUX
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Aga.ville' 'Contacts_Aga'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 02/05/2013 16:21:12 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Aga' ALORS
    			pers	:=	element.personne	
    			SI first ALORS
    				tmpCh	:=	pers.ville
    				first	:=	FAUX
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Aga.raisonSociale' 'Contacts_Aga'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 02/05/2013 16:21:12 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Aga' ALORS
    			pers	:=	element.personne	
    			SI first ALORS
    				tmpCh	:=	pers.raisonSociale
    				first	:=	FAUX
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Avocat.webSite' 'Contacts_Avocat'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 18:42:56 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Avocat' ALORS
    			pers	:=	element.personne	
    			SI element.avocatPrincipal ALORS	
    				SORTIR pers.website
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Avocat.email' 'Contacts_Avocat'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 18:43:01 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Avocat' ALORS
    			pers	:=	element.personne	
    			SI element.avocatPrincipal ALORS	
    				SORTIR pers.email
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Avocat.fax' 'Contacts_Avocat'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 18:43:05 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Avocat' ALORS
    			pers	:=	element.personne	
    			SI element.avocatPrincipal ALORS	
    				SORTIR pers.fax
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Avocat.mobile' 'Contacts_Avocat'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 18:43:10 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Avocat' ALORS
    			pers	:=	element.personne	
    			SI element.avocatPrincipal ALORS	
    				SORTIR pers.mobile
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Avocat.telephone' 'Contacts_Avocat'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 18:43:14 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Avocat' ALORS
    			pers	:=	element.personne	
    			SI element.avocatPrincipal ALORS	
    				SORTIR pers.telephone
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Avocat.nomPays' 'Contacts_Avocat'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 18:43:19 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Avocat' ALORS
    			pers	:=	element.personne	
    			SI element.avocatPrincipal ALORS	
    				SORTIR pers.nomPays
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Avocat.pays' 'Contacts_Avocat'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 18:43:23 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Avocat' ALORS
    			pers	:=	element.personne	
    			SI element.avocatPrincipal ALORS	
    				SORTIR pers.pays
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Avocat.bureauDistributeur' 'Contacts_Avocat'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 18:43:27 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Avocat' ALORS
    			pers	:=	element.personne	
    			SI element.avocatPrincipal ALORS	
    				SORTIR pers.bureauDistributeur
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Avocat.codePostalGeo' 'Contacts_Avocat'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 18:43:31 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Avocat' ALORS
    			pers	:=	element.personne	
    			SI element.avocatPrincipal ALORS	
    				SORTIR pers.codePostalGeo
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Avocat.codePostal' 'Contacts_Avocat'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 18:43:35 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Avocat' ALORS
    			pers	:=	element.personne	
    			SI element.avocatPrincipal ALORS	
    				SORTIR pers.codePostal
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Avocat.adresse3' 'Contacts_Avocat'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 18:43:38 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Avocat' ALORS
    			pers	:=	element.personne	
    			SI element.avocatPrincipal ALORS	
    				SORTIR pers.adresse3
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Avocat.adresse2' 'Contacts_Avocat'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 18:43:45 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Avocat' ALORS
    			pers	:=	element.personne	
    			SI element.avocatPrincipal ALORS	
    				SORTIR pers.adresse2
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Avocat.adresse1' 'Contacts_Avocat'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 18:43:54 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Avocat' ALORS
    			pers	:=	element.personne	
    			SI element.avocatPrincipal ALORS	
    				SORTIR pers.adresse1
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Avocat.bister' 'Contacts_Avocat'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 18:43:59 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Avocat' ALORS
    			pers	:=	element.personne	
    			SI element.avocatPrincipal ALORS	
    				SORTIR pers.bister
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Avocat.numero' 'Contacts_Avocat'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 18:44:05 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Avocat' ALORS
    			pers	:=	element.personne	
    			SI element.avocatPrincipal ALORS	
    				SORTIR pers.numero
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Avocat.typeJuridique' 'Contacts_Avocat'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 18:44:08 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Avocat' ALORS
    			pers	:=	element.personne	
    			SI element.avocatPrincipal ALORS	
    				SORTIR pers.typeJuridique
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Avocat.ape' 'Contacts_Avocat'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 18:44:12 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Avocat' ALORS
    			pers	:=	element.personne	
    			SI element.avocatPrincipal ALORS	
    				SORTIR pers.Ape
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Avocat.activite' 'Contacts_Avocat'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 18:44:16 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Avocat' ALORS
    			pers	:=	element.personne	
    			SI element.avocatPrincipal ALORS	
    				SORTIR pers.Activite
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Avocat.siret' 'Contacts_Avocat'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 18:44:19 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Avocat' ALORS
    			pers	:=	element.personne	
    			SI element.avocatPrincipal ALORS	
    				SORTIR pers.siret
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Avocat.siren' 'Contacts_Avocat'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 18:44:23 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Avocat' ALORS
    			pers	:=	element.personne	
    			SI element.avocatPrincipal ALORS	
    				SORTIR pers.siren
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Avocat.departementDeNaissance' 'Contacts_Avocat'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 18:44:30 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Avocat' ALORS
    			pers	:=	element.personne	
    			SI element.avocatPrincipal ALORS	
    				SORTIR pers.departementDeNaissance
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Avocat.adresseDeNaissance' 'Contacts_Avocat'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 18:44:34 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Avocat' ALORS
    			pers	:=	element.personne	
    			SI element.avocatPrincipal ALORS	
    				SORTIR pers.adresseDeNaissance
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Avocat.numeroSecuriteSociale' 'Contacts_Avocat'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 18:44:38 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Avocat' ALORS
    			pers	:=	element.personne	
    			SI element.avocatPrincipal ALORS	
    				SORTIR pers.numeroSecuriteSociale
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Avocat.dateDeNaissance' 'Contacts_Avocat'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 18:44:42 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	?
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Avocat' ALORS
    			pers	:=	element.personne	
    			SI element.avocatPrincipal ALORS	
    				SORTIR ''+pers.dateDeNaissance
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Avocat.prenom' 'Contacts_Avocat'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 18:44:47 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Avocat' ALORS
    			pers	:=	element.personne	
    			SI element.avocatPrincipal ALORS	
    				SORTIR pers.firstName
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Avocat.nom' 'Contacts_Avocat'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 18:44:51 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Avocat' ALORS
    			pers	:=	element.personne	
    			SI element.avocatPrincipal ALORS	
    				SORTIR pers.lastName
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Avocat.civilite' 'Contacts_Avocat'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 18:44:55 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Avocat' ALORS
    			pers	:=	element.personne	
    			SI element.avocatPrincipal ALORS	
    				SORTIR pers.civilite
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Avocat.nomComplet' 'Contacts_Avocat'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 18:45:00 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Avocat' ALORS
    			pers	:=	element.personne	
    			SI element.avocatPrincipal ALORS	
    				SORTIR pers.fullName
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Avocat.personnePhysique' 'Contacts_Avocat'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 18:45:04 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Avocat' ALORS
    			pers	:=	element.personne	
    			SI element.avocatPrincipal ALORS	
    				SORTIR pers.personnePhysique
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Avocat.ville' 'Contacts_Avocat'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 18:45:08 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Avocat' ALORS
    			pers	:=	element.personne	
    			SI element.avocatPrincipal ALORS	
    				SORTIR pers.ville
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Avocat.raisonSociale' 'Contacts_Avocat'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 18:45:12 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Avocat' ALORS
    			pers	:=	element.personne	
    			SI element.avocatPrincipal ALORS	
    				SORTIR pers.raisonSociale
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Banque1.iban' 'Contacts_Banque1'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 18:45:24 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			SI element.estBanque1 ALORS	
    				SORTIR element.IBAN
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Banque1.CodeBIC' 'Contacts_Banque1'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 18:45:24 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			SI element.estBanque1 ALORS	
    				SORTIR element.CodeBIC
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Banque1.titulaireCompte' 'Contacts_Banque1'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 18:45:29 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			SI element.estBanque1 ALORS	
    				SORTIR element.TitulaireCompte
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Banque1.webSite' 'Contacts_Banque1'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 18:45:32 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanque1 ALORS	
    				SORTIR pers.website
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Banque1.fax' 'Contacts_Banque1'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 18:45:42 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanque1 ALORS	
    				SORTIR pers.fax
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Banque1.telephone' 'Contacts_Banque1'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 18:45:52 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanque1 ALORS	
    				SORTIR pers.telephone
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Banque1.nomPays' 'Contacts_Banque1'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 18:45:56 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanque1 ALORS	
    				SORTIR pers.nomPays
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Banque1.pays' 'Contacts_Banque1'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 18:46:00 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanque1 ALORS	
    				SORTIR pers.pays
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Banque1.codePostal' 'Contacts_Banque1'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 18:46:11 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanque1 ALORS	
    				SORTIR pers.codePostal
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Banque1.adresse2' 'Contacts_Banque1'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 18:46:21 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanque1 ALORS	
    				SORTIR pers.adresse2
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Banque1.bister' 'Contacts_Banque1'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 18:46:40 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanque1 ALORS	
    				SORTIR pers.bister
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Banque1.typeJuridique' 'Contacts_Banque1'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 18:46:49 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanque1 ALORS	
    				SORTIR pers.typeJuridique
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Banque1.activite' 'Contacts_Banque1'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 18:46:57 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanque1 ALORS	
    				SORTIR pers.Activite
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Banque1.siret' 'Contacts_Banque1'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 18:47:04 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanque1 ALORS	
    				SORTIR pers.siret
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Banque1.siren' 'Contacts_Banque1'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 18:47:08 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanque1 ALORS	
    				SORTIR pers.siren
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Banque1.departementDeNaissance' 'Contacts_Banque1'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 18:47:12 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanque1 ALORS	
    				SORTIR pers.departementDeNaissance
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Banque1.numeroSecuriteSociale' 'Contacts_Banque1'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 18:47:20 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanque1 ALORS	
    				SORTIR pers.numeroSecuriteSociale
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Banque1.prenom' 'Contacts_Banque1'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 18:47:30 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanque1 ALORS	
    				SORTIR pers.firstName
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Banque1.nom' 'Contacts_Banque1'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 18:47:35 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanque1 ALORS	
    				SORTIR pers.lastName
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Banque1.nomComplet' 'Contacts_Banque1'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 18:47:44 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanque1 ALORS	
    				SORTIR pers.fullName
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Banque1.personnePhysique' 'Contacts_Banque1'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 18:47:48 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanque1 ALORS	
    				SORTIR pers.personnePhysique
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Banque1.raisonSociale' 'Contacts_Banque1'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 18:48:00 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanque1 ALORS	
    				SORTIR pers.raisonSociale
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Banque1.email' 'Contacts_Banque1'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 18:48:21 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanque1 ALORS	
    				SORTIR pers.email
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Banque1.mobile' 'Contacts_Banque1'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 18:48:30 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanque1 ALORS	
    				SORTIR pers.mobile
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Banque1.bureauDistributeur' 'Contacts_Banque1'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 18:48:46 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanque1 ALORS	
    				SORTIR pers.bureauDistributeur
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Banque1.codePostalGeo' 'Contacts_Banque1'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 18:48:51 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanque1 ALORS	
    				SORTIR pers.codePostalGeo
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Banque1.adresse3' 'Contacts_Banque1'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 18:48:59 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanque1 ALORS	
    				SORTIR pers.adresse3
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Banque1.adresse1' 'Contacts_Banque1'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 18:49:06 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanque1 ALORS	
    				SORTIR pers.adresse1
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Banque1.numero' 'Contacts_Banque1'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 18:49:16 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanque1 ALORS	
    				SORTIR pers.numero
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Banque1.ape' 'Contacts_Banque1'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 18:49:23 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanque1 ALORS	
    				SORTIR pers.Ape
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Banque1.adresseDeNaissance' 'Contacts_Banque1'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 18:49:48 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanque1 ALORS	
    				SORTIR pers.adresseDeNaissance
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Banque1.dateDeNaissance' 'Contacts_Banque1'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 18:49:56 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	?
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanque1 ALORS	
    				SORTIR ''+pers.dateDeNaissance
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Banque1.civilite' 'Contacts_Banque1'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 18:50:13 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanque1 ALORS	
    				SORTIR pers.civilite
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Banque1.ville' 'Contacts_Banque1'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 18:50:26 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanque1 ALORS	
    				SORTIR pers.ville
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Banque2.iban' 'Contacts_Banque2'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 18:50:36 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			SI element.estBanque2 ALORS	
    				SORTIR element.IBAN
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Banque2.CodeBIC' 'Contacts_Banque2'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 18:50:36 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			SI element.estBanque2 ALORS	
    				SORTIR element.CodeBIC
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Banque2.titulaireCompte' 'Contacts_Banque2'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 18:50:42 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			SI element.estBanque2 ALORS	
    				SORTIR element.TitulaireCompte
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Banque2.webSite' 'Contacts_Banque2'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 18:50:46 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanque2 ALORS	
    				SORTIR pers.website
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Banque2.email' 'Contacts_Banque2'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 18:50:50 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanque2 ALORS	
    				SORTIR pers.email
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Banque2.fax' 'Contacts_Banque2'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 18:50:54 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanque2 ALORS	
    				SORTIR pers.fax
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Banque2.mobile' 'Contacts_Banque2'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 18:50:58 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanque2 ALORS	
    				SORTIR pers.mobile
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Banque2.telephone' 'Contacts_Banque2'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 18:51:03 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanque2 ALORS	
    				SORTIR pers.telephone
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Banque2.nomPays' 'Contacts_Banque2'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 18:51:07 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanque2 ALORS	
    				SORTIR pers.nomPays
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Banque2.pays' 'Contacts_Banque2'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 18:51:13 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanque2 ALORS	
    				SORTIR pers.pays
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Banque2.bureauDistributeur' 'Contacts_Banque2'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 18:51:17 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanque2 ALORS	
    				SORTIR pers.bureauDistributeur
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Banque2.codePostalGeo' 'Contacts_Banque2'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 18:51:21 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanque2 ALORS	
    				SORTIR pers.codePostalGeo
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Banque2.codePostal' 'Contacts_Banque2'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 18:51:25 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanque2 ALORS	
    				SORTIR pers.codePostal
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Banque2.adresse3' 'Contacts_Banque2'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 18:51:35 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanque2 ALORS	
    				SORTIR pers.adresse3
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Banque2.adresse2' 'Contacts_Banque2'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 18:51:39 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanque2 ALORS	
    				SORTIR pers.adresse2
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Banque2.adresse1' 'Contacts_Banque2'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 18:51:44 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanque2 ALORS	
    				SORTIR pers.adresse1
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Banque2.bister' 'Contacts_Banque2'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 18:51:47 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanque2 ALORS	
    				SORTIR pers.bister
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Banque2.numero' 'Contacts_Banque2'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 18:51:52 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanque2 ALORS	
    				SORTIR pers.numero
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Banque2.typeJuridique' 'Contacts_Banque2'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 18:51:56 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanque2 ALORS	
    				SORTIR pers.typeJuridique
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Banque2.ape' 'Contacts_Banque2'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 18:52:00 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanque2 ALORS	
    				SORTIR pers.Ape
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Banque2.activite' 'Contacts_Banque2'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 18:52:04 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanque2 ALORS	
    				SORTIR pers.Activite
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Banque2.siret' 'Contacts_Banque2'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 18:52:10 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanque2 ALORS	
    				SORTIR pers.siret
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Banque2.siren' 'Contacts_Banque2'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 18:52:13 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanque2 ALORS	
    				SORTIR pers.siren
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Banque2.departementDeNaissance' 'Contacts_Banque2'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 18:52:18 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanque2 ALORS	
    				SORTIR pers.departementDeNaissance
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Banque2.adresseDeNaissance' 'Contacts_Banque2'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 18:52:21 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanque2 ALORS	
    				SORTIR pers.adresseDeNaissance
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Banque2.numeroSecuriteSociale' 'Contacts_Banque2'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 18:52:25 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanque2 ALORS	
    				SORTIR pers.numeroSecuriteSociale
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Banque2.dateDeNaissance' 'Contacts_Banque2'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 18:52:29 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	?
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanque2 ALORS	
    				SORTIR ''+pers.dateDeNaissance
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Banque2.prenom' 'Contacts_Banque2'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 18:52:32 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanque2 ALORS	
    				SORTIR pers.firstName
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Banque2.nom' 'Contacts_Banque2'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 18:52:37 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanque2 ALORS	
    				SORTIR pers.lastName
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Banque2.civilite' 'Contacts_Banque2'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 18:52:42 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanque2 ALORS	
    				SORTIR pers.civilite
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Banque2.nomComplet' 'Contacts_Banque2'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 18:52:45 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanque2 ALORS	
    				SORTIR pers.fullName
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Banque2.personnePhysique' 'Contacts_Banque2'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 18:52:49 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanque2 ALORS	
    				SORTIR pers.personnePhysique
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Banque2.ville' 'Contacts_Banque2'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 18:52:53 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanque2 ALORS	
    				SORTIR pers.ville
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Banque2.raisonSociale' 'Contacts_Banque2'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 18:52:58 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanque2 ALORS	
    				SORTIR pers.raisonSociale
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueTLR1.iban' 'Contacts_BanqueTLR1'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 18:53:06 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			SI element.estBanqueTLR1 ALORS	
    				SORTIR element.IBAN
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueTLR1.CodeBIC' 'Contacts_BanqueTLR1'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 18:53:06 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			SI element.estBanqueTLR1 ALORS	
    				SORTIR element.CodeBIC
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueTLR1.titulaireCompte' 'Contacts_BanqueTLR1'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 18:53:11 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			SI element.estBanqueTLR1 ALORS	
    				SORTIR element.TitulaireCompte
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueTLR1.webSite' 'Contacts_BanqueTLR1'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 18:53:15 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueTLR1 ALORS	
    				SORTIR pers.website
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueTLR1.email' 'Contacts_BanqueTLR1'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 18:53:21 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueTLR1 ALORS	
    				SORTIR pers.email
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueTLR1.fax' 'Contacts_BanqueTLR1'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 18:53:26 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueTLR1 ALORS	
    				SORTIR pers.fax
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueTLR1.mobile' 'Contacts_BanqueTLR1'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 18:53:30 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueTLR1 ALORS	
    				SORTIR pers.mobile
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueTLR1.telephone' 'Contacts_BanqueTLR1'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 18:53:35 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueTLR1 ALORS	
    				SORTIR pers.telephone
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueTLR1.nomPays' 'Contacts_BanqueTLR1'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 18:53:43 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueTLR1 ALORS	
    				SORTIR pers.nomPays
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueTLR1.pays' 'Contacts_BanqueTLR1'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 18:53:47 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueTLR1 ALORS	
    				SORTIR pers.pays
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueTLR1.bureauDistributeur' 'Contacts_BanqueTLR1'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 18:53:51 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueTLR1 ALORS	
    				SORTIR pers.bureauDistributeur
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueTLR1.codePostalGeo' 'Contacts_BanqueTLR1'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 18:53:55 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueTLR1 ALORS	
    				SORTIR pers.codePostalGeo
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueTLR1.codePostal' 'Contacts_BanqueTLR1'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 18:54:04 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueTLR1 ALORS	
    				SORTIR pers.codePostal
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueTLR1.adresse3' 'Contacts_BanqueTLR1'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 18:54:08 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueTLR1 ALORS	
    				SORTIR pers.adresse3
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueTLR1.adresse2' 'Contacts_BanqueTLR1'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 18:54:12 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueTLR1 ALORS	
    				SORTIR pers.adresse2
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueTLR1.adresse1' 'Contacts_BanqueTLR1'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 18:54:16 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueTLR1 ALORS	
    				SORTIR pers.adresse1
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueTLR1.bister' 'Contacts_BanqueTLR1'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 18:54:20 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueTLR1 ALORS	
    				SORTIR pers.bister
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueTLR1.numero' 'Contacts_BanqueTLR1'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 18:54:23 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueTLR1 ALORS	
    				SORTIR pers.numero
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueTLR1.typeJuridique' 'Contacts_BanqueTLR1'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 18:54:28 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueTLR1 ALORS	
    				SORTIR pers.typeJuridique
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueTLR1.ape' 'Contacts_BanqueTLR1'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 18:54:31 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueTLR1 ALORS	
    				SORTIR pers.Ape
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueTLR1.activite' 'Contacts_BanqueTLR1'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 18:54:36 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueTLR1 ALORS	
    				SORTIR pers.Activite
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueTLR1.siret' 'Contacts_BanqueTLR1'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 18:54:42 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueTLR1 ALORS	
    				SORTIR pers.siret
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueTLR1.siren' 'Contacts_BanqueTLR1'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 18:54:46 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueTLR1 ALORS	
    				SORTIR pers.siren
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueTLR1.departementDeNaissance' 'Contacts_BanqueTLR1'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 18:54:49 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueTLR1 ALORS	
    				SORTIR pers.departementDeNaissance
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueTLR1.adresseDeNaissance' 'Contacts_BanqueTLR1'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 18:54:54 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueTLR1 ALORS	
    				SORTIR pers.adresseDeNaissance
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueTLR1.numeroSecuriteSociale' 'Contacts_BanqueTLR1'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 18:55:06 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueTLR1 ALORS	
    				SORTIR pers.numeroSecuriteSociale
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueTLR1.dateDeNaissance' 'Contacts_BanqueTLR1'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 18:55:13 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	?
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueTLR1 ALORS	
    				SORTIR ''+pers.dateDeNaissance
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueTLR1.prenom' 'Contacts_BanqueTLR1'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 18:55:17 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueTLR1 ALORS	
    				SORTIR pers.firstName
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueTLR1.nom' 'Contacts_BanqueTLR1'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 18:55:21 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueTLR1 ALORS	
    				SORTIR pers.lastName
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueTLR1.civilite' 'Contacts_BanqueTLR1'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 18:55:26 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueTLR1 ALORS	
    				SORTIR pers.civilite
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueTLR1.nomComplet' 'Contacts_BanqueTLR1'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 18:55:37 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueTLR1 ALORS	
    				SORTIR pers.fullName
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueTLR1.personnePhysique' 'Contacts_BanqueTLR1'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 18:55:41 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueTLR1 ALORS	
    				SORTIR pers.personnePhysique
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueTLR1.ville' 'Contacts_BanqueTLR1'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 18:55:44 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueTLR1 ALORS	
    				SORTIR pers.ville
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueTLR1.raisonSociale' 'Contacts_BanqueTLR1'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 18:55:48 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueTLR1 ALORS	
    				SORTIR pers.raisonSociale
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueTLR2.iban' 'Contacts_BanqueTLR2'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 18:55:54 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			SI element.estBanqueTLR2 ALORS	
    				SORTIR element.IBAN
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueTLR2.CodeBIC' 'Contacts_BanqueTLR2'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 18:55:54 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			SI element.estBanqueTLR2 ALORS	
    				SORTIR element.CodeBIC
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueTLR2.titulaireCompte' 'Contacts_BanqueTLR2'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 18:55:57 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			SI element.estBanqueTLR2 ALORS	
    				SORTIR element.TitulaireCompte
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueTLR2.webSite' 'Contacts_BanqueTLR2'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 18:56:02 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueTLR2 ALORS	
    				SORTIR pers.website
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueTLR2.email' 'Contacts_BanqueTLR2'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 18:56:07 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueTLR2 ALORS	
    				SORTIR pers.email
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueTLR2.fax' 'Contacts_BanqueTLR2'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 18:56:11 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueTLR2 ALORS	
    				SORTIR pers.fax
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueTLR2.mobile' 'Contacts_BanqueTLR2'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 18:56:18 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueTLR2 ALORS	
    				SORTIR pers.mobile
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueTLR2.telephone' 'Contacts_BanqueTLR2'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 18:56:23 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueTLR2 ALORS	
    				SORTIR pers.telephone
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueTLR2.nomPays' 'Contacts_BanqueTLR2'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 18:56:28 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueTLR2 ALORS	
    				SORTIR pers.nomPays
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueTLR2.pays' 'Contacts_BanqueTLR2'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 18:56:45 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueTLR2 ALORS	
    				SORTIR pers.pays
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueTLR2.bureauDistributeur' 'Contacts_BanqueTLR2'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 18:56:50 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueTLR2 ALORS	
    				SORTIR pers.bureauDistributeur
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueTLR2.codePostalGeo' 'Contacts_BanqueTLR2'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 18:56:54 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueTLR2 ALORS	
    				SORTIR pers.codePostalGeo
    			FIN SI
    	
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueTLR2.codePostal' 'Contacts_BanqueTLR2'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 18:56:58 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueTLR2 ALORS	
    				SORTIR pers.codePostal
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueTLR2.adresse3' 'Contacts_BanqueTLR2'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 18:57:02 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueTLR2 ALORS	
    				SORTIR pers.adresse3
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueTLR2.adresse2' 'Contacts_BanqueTLR2'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 18:57:07 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueTLR2 ALORS	
    				SORTIR pers.adresse2
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueTLR2.adresse1' 'Contacts_BanqueTLR2'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 18:57:11 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueTLR2 ALORS	
    				SORTIR pers.adresse1
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueTLR2.bister' 'Contacts_BanqueTLR2'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 18:57:16 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueTLR2 ALORS	
    				SORTIR pers.bister
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueTLR2.numero' 'Contacts_BanqueTLR2'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 18:57:27 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueTLR2 ALORS	
    				SORTIR pers.numero
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueTLR2.typeJuridique' 'Contacts_BanqueTLR2'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 18:57:31 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueTLR2 ALORS	
    				SORTIR pers.typeJuridique
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueTLR2.ape' 'Contacts_BanqueTLR2'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 18:57:35 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueTLR2 ALORS	
    				SORTIR pers.Ape
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueTLR2.activite' 'Contacts_BanqueTLR2'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 18:57:41 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueTLR2 ALORS	
    				SORTIR pers.Activite
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueTLR2.siret' 'Contacts_BanqueTLR2'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 18:57:45 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueTLR2 ALORS	
    				SORTIR pers.siret
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueTLR2.siren' 'Contacts_BanqueTLR2'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 18:57:51 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueTLR2 ALORS	
    				SORTIR pers.siren
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueTLR2.departementDeNaissance' 'Contacts_BanqueTLR2'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 18:57:55 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueTLR2 ALORS	
    				SORTIR pers.departementDeNaissance
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueTLR2.adresseDeNaissance' 'Contacts_BanqueTLR2'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 18:57:59 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueTLR2 ALORS	
    				SORTIR pers.adresseDeNaissance
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueTLR2.numeroSecuriteSociale' 'Contacts_BanqueTLR2'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 18:58:03 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueTLR2 ALORS	
    				SORTIR pers.numeroSecuriteSociale
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueTLR2.dateDeNaissance' 'Contacts_BanqueTLR2'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 18:58:09 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	?
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueTLR2 ALORS	
    				SORTIR ''+pers.dateDeNaissance
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueTLR2.prenom' 'Contacts_BanqueTLR2'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 18:58:15 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueTLR2 ALORS	
    				SORTIR pers.firstName
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueTLR2.nom' 'Contacts_BanqueTLR2'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 18:58:19 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueTLR2 ALORS	
    				SORTIR pers.lastName
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueTLR2.civilite' 'Contacts_BanqueTLR2'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 18:58:22 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueTLR2 ALORS	
    				SORTIR pers.civilite
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueTLR2.nomComplet' 'Contacts_BanqueTLR2'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 18:58:26 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueTLR2 ALORS	
    				SORTIR pers.fullName
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueTLR2.personnePhysique' 'Contacts_BanqueTLR2'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 18:58:31 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueTLR2 ALORS	
    				SORTIR pers.personnePhysique
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueTLR2.ville' 'Contacts_BanqueTLR2'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 18:58:36 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueTLR2 ALORS	
    				SORTIR pers.ville
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueTLR2.raisonSociale' 'Contacts_BanqueTLR2'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 18:58:40 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueTLR2 ALORS	
    				SORTIR pers.raisonSociale
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueTLR3.iban' 'Contacts_BanqueTLR3'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:03:45 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			SI element.estBanqueTLR3 ALORS	
    				SORTIR element.IBAN
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueTLR3.CodeBIC' 'Contacts_BanqueTLR3'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:03:45 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			SI element.estBanqueTLR3 ALORS	
    				SORTIR element.CodeBIC
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueTLR3.titulaireCompte' 'Contacts_BanqueTLR3'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:03:49 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			SI element.estBanqueTLR3 ALORS	
    				SORTIR element.TitulaireCompte
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueTLR3.webSite' 'Contacts_BanqueTLR3'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:03:54 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueTLR3 ALORS	
    				SORTIR pers.website
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueTLR3.email' 'Contacts_BanqueTLR3'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:03:58 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueTLR3 ALORS	
    				SORTIR pers.email
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueTLR3.fax' 'Contacts_BanqueTLR3'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:04:03 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueTLR3 ALORS	
    				SORTIR pers.fax
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueTLR3.mobile' 'Contacts_BanqueTLR3'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:04:12 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueTLR3 ALORS	
    				SORTIR pers.mobile
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueTLR3.telephone' 'Contacts_BanqueTLR3'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:04:17 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueTLR3 ALORS	
    				SORTIR pers.telephone
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueTLR3.nomPays' 'Contacts_BanqueTLR3'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:04:22 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueTLR3 ALORS	
    				SORTIR pers.nomPays
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueTLR3.pays' 'Contacts_BanqueTLR3'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:04:27 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueTLR3 ALORS	
    				SORTIR pers.pays
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueTLR3.bureauDistributeur' 'Contacts_BanqueTLR3'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:04:32 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueTLR3 ALORS	
    				SORTIR pers.bureauDistributeur
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueTLR3.codePostalGeo' 'Contacts_BanqueTLR3'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:04:40 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueTLR3 ALORS	
    				SORTIR pers.codePostalGeo
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueTLR3.codePostal' 'Contacts_BanqueTLR3'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:04:46 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueTLR3 ALORS	
    				SORTIR pers.codePostal
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueTLR3.adresse3' 'Contacts_BanqueTLR3'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:04:50 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueTLR3 ALORS	
    				SORTIR pers.adresse3
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueTLR3.adresse2' 'Contacts_BanqueTLR3'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:04:54 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueTLR3 ALORS	
    				SORTIR pers.adresse2
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueTLR3.adresse1' 'Contacts_BanqueTLR3'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:04:59 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueTLR3 ALORS	
    				SORTIR pers.adresse1
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueTLR3.bister' 'Contacts_BanqueTLR3'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:05:04 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueTLR3 ALORS	
    				SORTIR pers.bister
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueTLR3.numero' 'Contacts_BanqueTLR3'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:05:08 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueTLR3 ALORS	
    				SORTIR pers.numero
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueTLR3.typeJuridique' 'Contacts_BanqueTLR3'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:05:12 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueTLR3 ALORS	
    				SORTIR pers.typeJuridique
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueTLR3.ape' 'Contacts_BanqueTLR3'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:05:16 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueTLR3 ALORS	
    				SORTIR pers.Ape
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueTLR3.activite' 'Contacts_BanqueTLR3'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:05:21 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueTLR3 ALORS	
    				SORTIR pers.Activite
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueTLR3.siret' 'Contacts_BanqueTLR3'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:05:24 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueTLR3 ALORS	
    				SORTIR pers.siret
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueTLR3.siren' 'Contacts_BanqueTLR3'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:05:28 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueTLR3 ALORS	
    				SORTIR pers.siren
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueTLR3.departementDeNaissance' 'Contacts_BanqueTLR3'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:05:33 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueTLR3 ALORS	
    				SORTIR pers.departementDeNaissance
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueTLR3.adresseDeNaissance' 'Contacts_BanqueTLR3'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:05:39 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueTLR3 ALORS	
    				SORTIR pers.adresseDeNaissance
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueTLR3.numeroSecuriteSociale' 'Contacts_BanqueTLR3'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:05:45 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueTLR3 ALORS	
    				SORTIR pers.numeroSecuriteSociale
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueTLR3.dateDeNaissance' 'Contacts_BanqueTLR3'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:05:51 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	?
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueTLR3 ALORS	
    				SORTIR ''+pers.dateDeNaissance
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueTLR3.prenom' 'Contacts_BanqueTLR3'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:05:54 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueTLR3 ALORS	
    				SORTIR pers.firstName
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueTLR3.nom' 'Contacts_BanqueTLR3'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:05:58 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueTLR3 ALORS	
    				SORTIR pers.lastName
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueTLR3.civilite' 'Contacts_BanqueTLR3'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:06:01 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueTLR3 ALORS	
    				SORTIR pers.civilite
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueTLR3.nomComplet' 'Contacts_BanqueTLR3'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:06:06 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueTLR3 ALORS	
    				SORTIR pers.fullName
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueTLR3.personnePhysique' 'Contacts_BanqueTLR3'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:06:10 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueTLR3 ALORS	
    				SORTIR pers.personnePhysique
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueTLR3.ville' 'Contacts_BanqueTLR3'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:06:14 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueTLR3 ALORS	
    				SORTIR pers.ville
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueTLR3.raisonSociale' 'Contacts_BanqueTLR3'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:06:19 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueTLR3 ALORS	
    				SORTIR pers.raisonSociale
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueGestionCabinet.iban' 'Contacts_BanqueGestionCabinet'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:10:01 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			SI element.estBanqueGestionCabinet ALORS	
    				SORTIR element.IBAN
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueGestionCabinet.CodeBIC' 'Contacts_BanqueGestionCabinet'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:10:01 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			SI element.estBanqueGestionCabinet ALORS	
    				SORTIR element.CodeBIC
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueGestionCabinet.titulaireCompte' 'Contacts_BanqueGestionCabinet'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:10:06 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			SI element.estBanqueGestionCabinet ALORS	
    				SORTIR element.TitulaireCompte
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueGestionCabinet.webSite' 'Contacts_BanqueGestionCabinet'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:10:10 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueGestionCabinet ALORS	
    				SORTIR pers.website
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueGestionCabinet.email' 'Contacts_BanqueGestionCabinet'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:10:13 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueGestionCabinet ALORS	
    				SORTIR pers.email
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueGestionCabinet.fax' 'Contacts_BanqueGestionCabinet'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:10:18 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueGestionCabinet ALORS	
    				SORTIR pers.fax
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueGestionCabinet.mobile' 'Contacts_BanqueGestionCabinet'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:10:22 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueGestionCabinet ALORS	
    				SORTIR pers.mobile
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueGestionCabinet.telephone' 'Contacts_BanqueGestionCabinet'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:10:27 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueGestionCabinet ALORS	
    				SORTIR pers.telephone
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueGestionCabinet.nomPays' 'Contacts_BanqueGestionCabinet'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:10:31 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueGestionCabinet ALORS	
    				SORTIR pers.nomPays
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueGestionCabinet.pays' 'Contacts_BanqueGestionCabinet'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:10:37 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueGestionCabinet ALORS	
    				SORTIR pers.pays
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueGestionCabinet.bureauDistributeur' 'Contacts_BanqueGestionCabinet'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:10:42 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueGestionCabinet ALORS	
    				SORTIR pers.bureauDistributeur
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueGestionCabinet.codePostalGeo' 'Contacts_BanqueGestionCabinet'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:10:46 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueGestionCabinet ALORS	
    				SORTIR pers.codePostalGeo
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueGestionCabinet.codePostal' 'Contacts_BanqueGestionCabinet'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:10:50 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueGestionCabinet ALORS	
    				SORTIR pers.codePostal
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueGestionCabinet.adresse3' 'Contacts_BanqueGestionCabinet'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:10:53 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueGestionCabinet ALORS	
    				SORTIR pers.adresse3
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueGestionCabinet.adresse2' 'Contacts_BanqueGestionCabinet'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:10:57 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueGestionCabinet ALORS	
    				SORTIR pers.adresse2
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueGestionCabinet.adresse1' 'Contacts_BanqueGestionCabinet'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:11:01 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueGestionCabinet ALORS	
    				SORTIR pers.adresse1
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueGestionCabinet.bister' 'Contacts_BanqueGestionCabinet'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:11:05 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueGestionCabinet ALORS	
    				SORTIR pers.bister
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueGestionCabinet.numero' 'Contacts_BanqueGestionCabinet'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:11:09 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueGestionCabinet ALORS	
    				SORTIR pers.numero
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueGestionCabinet.typeJuridique' 'Contacts_BanqueGestionCabinet'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:11:13 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueGestionCabinet ALORS	
    				SORTIR pers.typeJuridique
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueGestionCabinet.ape' 'Contacts_BanqueGestionCabinet'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:11:19 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueGestionCabinet ALORS	
    				SORTIR pers.Ape
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueGestionCabinet.activite' 'Contacts_BanqueGestionCabinet'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:11:26 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueGestionCabinet ALORS	
    				SORTIR pers.Activite
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueGestionCabinet.siret' 'Contacts_BanqueGestionCabinet'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:11:31 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueGestionCabinet ALORS	
    				SORTIR pers.siret
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueGestionCabinet.siren' 'Contacts_BanqueGestionCabinet'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:11:34 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueGestionCabinet ALORS	
    				SORTIR pers.siren
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueGestionCabinet.departementDeNaissance' 'Contacts_BanqueGestionCabinet'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:11:38 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueGestionCabinet ALORS	
    				SORTIR pers.departementDeNaissance
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueGestionCabinet.adresseDeNaissance' 'Contacts_BanqueGestionCabinet'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:11:42 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueGestionCabinet ALORS	
    				SORTIR pers.adresseDeNaissance
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueGestionCabinet.numeroSecuriteSociale' 'Contacts_BanqueGestionCabinet'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:11:46 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueGestionCabinet ALORS	
    				SORTIR pers.numeroSecuriteSociale
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueGestionCabinet.dateDeNaissance' 'Contacts_BanqueGestionCabinet'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:11:50 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	?
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueGestionCabinet ALORS	
    				SORTIR ''+pers.dateDeNaissance
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueGestionCabinet.prenom' 'Contacts_BanqueGestionCabinet'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:11:54 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueGestionCabinet ALORS	
    				SORTIR pers.firstName
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueGestionCabinet.nom' 'Contacts_BanqueGestionCabinet'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:11:57 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueGestionCabinet ALORS	
    				SORTIR pers.lastName
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueGestionCabinet.civilite' 'Contacts_BanqueGestionCabinet'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:12:01 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueGestionCabinet ALORS	
    				SORTIR pers.civilite
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueGestionCabinet.nomComplet' 'Contacts_BanqueGestionCabinet'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 18/10/2013 11:01:23 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueGestionCabinet ALORS	
    				SORTIR pers.fullName
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueGestionCabinet.personnePhysique' 'Contacts_BanqueGestionCabinet'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:12:09 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueGestionCabinet ALORS	
    				SORTIR pers.personnePhysique
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueGestionCabinet.ville' 'Contacts_BanqueGestionCabinet'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:12:13 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueGestionCabinet ALORS	
    				SORTIR pers.ville
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueGestionCabinet.raisonSociale' 'Contacts_BanqueGestionCabinet'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:12:17 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueGestionCabinet ALORS	
    				SORTIR pers.raisonSociale
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanquePaye.iban' 'Contacts_BanquePaye'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:12:23 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			SI element.estBanquePaye ALORS	
    				SORTIR element.IBAN
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanquePaye.CodeBIC' 'Contacts_BanquePaye'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:12:23 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			SI element.estBanquePaye ALORS	
    				SORTIR element.CodeBIC
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanquePaye.titulaireCompte' 'Contacts_BanquePaye'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:12:26 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			SI element.estBanquePaye ALORS	
    				SORTIR element.TitulaireCompte
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanquePaye.webSite' 'Contacts_BanquePaye'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:12:31 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanquePaye ALORS	
    				SORTIR pers.website
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanquePaye.email' 'Contacts_BanquePaye'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:12:40 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanquePaye ALORS	
    				SORTIR pers.email
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanquePaye.fax' 'Contacts_BanquePaye'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:12:47 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanquePaye ALORS	
    				SORTIR pers.fax
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanquePaye.mobile' 'Contacts_BanquePaye'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:12:52 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanquePaye ALORS	
    				SORTIR pers.mobile
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanquePaye.telephone' 'Contacts_BanquePaye'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:12:56 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanquePaye ALORS	
    				SORTIR pers.telephone
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanquePaye.nomPays' 'Contacts_BanquePaye'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:12:59 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanquePaye ALORS	
    				SORTIR pers.nomPays
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanquePaye.pays' 'Contacts_BanquePaye'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:13:03 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanquePaye ALORS	
    				SORTIR pers.pays
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanquePaye.bureauDistributeur' 'Contacts_BanquePaye'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:13:08 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanquePaye ALORS	
    				SORTIR pers.bureauDistributeur
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanquePaye.codePostalGeo' 'Contacts_BanquePaye'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:13:12 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanquePaye ALORS	
    				SORTIR pers.codePostalGeo
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanquePaye.codePostal' 'Contacts_BanquePaye'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:13:15 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanquePaye ALORS	
    				SORTIR pers.codePostal
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanquePaye.adresse3' 'Contacts_BanquePaye'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:13:19 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanquePaye ALORS	
    				SORTIR pers.adresse3
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanquePaye.adresse2' 'Contacts_BanquePaye'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:13:23 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanquePaye ALORS	
    				SORTIR pers.adresse2
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanquePaye.adresse1' 'Contacts_BanquePaye'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:13:26 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanquePaye ALORS	
    				SORTIR pers.adresse1
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanquePaye.bister' 'Contacts_BanquePaye'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:13:29 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanquePaye ALORS	
    				SORTIR pers.bister
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanquePaye.numero' 'Contacts_BanquePaye'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:13:35 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanquePaye ALORS	
    				SORTIR pers.numero
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanquePaye.typeJuridique' 'Contacts_BanquePaye'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:13:38 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanquePaye ALORS	
    				SORTIR pers.typeJuridique
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanquePaye.ape' 'Contacts_BanquePaye'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:13:43 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanquePaye ALORS	
    				SORTIR pers.Ape
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanquePaye.activite' 'Contacts_BanquePaye'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:13:48 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanquePaye ALORS	
    				SORTIR pers.Activite
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanquePaye.siret' 'Contacts_BanquePaye'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:13:54 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanquePaye ALORS	
    				SORTIR pers.siret
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanquePaye.siren' 'Contacts_BanquePaye'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:13:58 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanquePaye ALORS	
    				SORTIR pers.siren
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanquePaye.departementDeNaissance' 'Contacts_BanquePaye'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:14:02 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanquePaye ALORS	
    				SORTIR pers.departementDeNaissance
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanquePaye.adresseDeNaissance' 'Contacts_BanquePaye'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:14:06 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanquePaye ALORS	
    				SORTIR pers.adresseDeNaissance
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanquePaye.numeroSecuriteSociale' 'Contacts_BanquePaye'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:14:10 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanquePaye ALORS	
    				SORTIR pers.numeroSecuriteSociale
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanquePaye.dateDeNaissance' 'Contacts_BanquePaye'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:14:13 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	?
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanquePaye ALORS	
    				SORTIR ''+pers.dateDeNaissance
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanquePaye.prenom' 'Contacts_BanquePaye'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:14:17 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanquePaye ALORS	
    				SORTIR pers.firstName
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanquePaye.nom' 'Contacts_BanquePaye'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:14:20 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanquePaye ALORS	
    				SORTIR pers.lastName
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanquePaye.civilite' 'Contacts_BanquePaye'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:14:24 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanquePaye ALORS	
    				SORTIR pers.civilite
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanquePaye.nomComplet' 'Contacts_BanquePaye'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:14:27 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanquePaye ALORS	
    				SORTIR pers.fullName
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanquePaye.personnePhysique' 'Contacts_BanquePaye'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:14:31 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanquePaye ALORS	
    				SORTIR pers.personnePhysique
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanquePaye.ville' 'Contacts_BanquePaye'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:14:35 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanquePaye ALORS	
    				SORTIR pers.ville
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanquePaye.raisonSociale' 'Contacts_BanquePaye'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:14:38 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanquePaye ALORS	
    				SORTIR pers.raisonSociale
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueUrssaf.iban' 'Contacts_BanqueUrssaf'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:14:48 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			SI element.estBanqueUrssafDucsEdi ALORS	
    				SORTIR element.IBAN
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueUrssaf.CodeBIC' 'Contacts_BanqueUrssaf'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:14:48 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			SI element.estBanqueUrssafDucsEdi ALORS	
    				SORTIR element.CodeBIC
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueUrssaf.titulaireCompte' 'Contacts_BanqueUrssaf'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:14:53 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			SI element.estBanqueUrssafDucsEdi ALORS	
    				SORTIR element.TitulaireCompte
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueUrssaf.webSite' 'Contacts_BanqueUrssaf'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:14:58 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueUrssafDucsEdi ALORS	
    				SORTIR pers.website
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueUrssaf.email' 'Contacts_BanqueUrssaf'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:15:02 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueUrssafDucsEdi ALORS	
    				SORTIR pers.email
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueUrssaf.fax' 'Contacts_BanqueUrssaf'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:15:06 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueUrssafDucsEdi ALORS	
    				SORTIR pers.fax
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueUrssaf.mobile' 'Contacts_BanqueUrssaf'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:15:10 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueUrssafDucsEdi ALORS	
    				SORTIR pers.mobile
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueUrssaf.telephone' 'Contacts_BanqueUrssaf'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:15:14 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueUrssafDucsEdi ALORS	
    				SORTIR pers.telephone
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueUrssaf.nomPays' 'Contacts_BanqueUrssaf'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:15:18 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueUrssafDucsEdi ALORS	
    				SORTIR pers.nomPays
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueUrssaf.pays' 'Contacts_BanqueUrssaf'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:15:23 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueUrssafDucsEdi ALORS	
    				SORTIR pers.pays
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueUrssaf.bureauDistributeur' 'Contacts_BanqueUrssaf'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:15:27 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueUrssafDucsEdi ALORS	
    				SORTIR pers.bureauDistributeur
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueUrssaf.codePostalGeo' 'Contacts_BanqueUrssaf'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:15:31 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueUrssafDucsEdi ALORS	
    				SORTIR pers.codePostalGeo
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueUrssaf.codePostal' 'Contacts_BanqueUrssaf'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:15:34 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueUrssafDucsEdi ALORS	
    				SORTIR pers.codePostal
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueUrssaf.adresse3' 'Contacts_BanqueUrssaf'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:15:38 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueUrssafDucsEdi ALORS	
    				SORTIR pers.adresse3
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueUrssaf.adresse2' 'Contacts_BanqueUrssaf'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:15:47 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueUrssafDucsEdi ALORS	
    				SORTIR pers.adresse2
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueUrssaf.adresse1' 'Contacts_BanqueUrssaf'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:15:51 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueUrssafDucsEdi ALORS	
    				SORTIR pers.adresse1
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueUrssaf.bister' 'Contacts_BanqueUrssaf'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:15:55 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueUrssafDucsEdi ALORS	
    				SORTIR pers.bister
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueUrssaf.numero' 'Contacts_BanqueUrssaf'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:16:00 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueUrssafDucsEdi ALORS	
    				SORTIR pers.numero
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueUrssaf.typeJuridique' 'Contacts_BanqueUrssaf'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:16:04 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueUrssafDucsEdi ALORS	
    				SORTIR pers.typeJuridique
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueUrssaf.ape' 'Contacts_BanqueUrssaf'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:16:10 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueUrssafDucsEdi ALORS	
    				SORTIR pers.Ape
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueUrssaf.activite' 'Contacts_BanqueUrssaf'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:16:14 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueUrssafDucsEdi ALORS	
    				SORTIR pers.Activite
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueUrssaf.siret' 'Contacts_BanqueUrssaf'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:16:17 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueUrssafDucsEdi ALORS	
    				SORTIR pers.siret
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueUrssaf.siren' 'Contacts_BanqueUrssaf'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:16:21 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueUrssafDucsEdi ALORS	
    				SORTIR pers.siren
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueUrssaf.departementDeNaissance' 'Contacts_BanqueUrssaf'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:16:24 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueUrssafDucsEdi ALORS	
    				SORTIR pers.departementDeNaissance
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueUrssaf.adresseDeNaissance' 'Contacts_BanqueUrssaf'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:16:29 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueUrssafDucsEdi ALORS	
    				SORTIR pers.adresseDeNaissance
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueUrssaf.numeroSecuriteSociale' 'Contacts_BanqueUrssaf'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:16:32 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueUrssafDucsEdi ALORS	
    				SORTIR pers.numeroSecuriteSociale
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueUrssaf.dateDeNaissance' 'Contacts_BanqueUrssaf'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:16:37 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	?
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueUrssafDucsEdi ALORS	
    				SORTIR ''+pers.dateDeNaissance
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueUrssaf.prenom' 'Contacts_BanqueUrssaf'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:16:42 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueUrssafDucsEdi ALORS	
    				SORTIR pers.firstName
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueUrssaf.nom' 'Contacts_BanqueUrssaf'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:16:46 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueUrssafDucsEdi ALORS	
    				SORTIR pers.lastName
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueUrssaf.civilite' 'Contacts_BanqueUrssaf'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:16:50 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueUrssafDucsEdi ALORS	
    				SORTIR pers.civilite
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueUrssaf.nomComplet' 'Contacts_BanqueUrssaf'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:16:54 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueUrssafDucsEdi ALORS	
    				SORTIR pers.fullName
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueUrssaf.personnePhysique' 'Contacts_BanqueUrssaf'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:16:58 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueUrssafDucsEdi ALORS	
    				SORTIR pers.personnePhysique
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueUrssaf.ville' 'Contacts_BanqueUrssaf'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:17:03 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueUrssafDucsEdi ALORS	
    				SORTIR pers.ville
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueUrssaf.raisonSociale' 'Contacts_BanqueUrssaf'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:17:07 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueUrssafDucsEdi ALORS	
    				SORTIR pers.raisonSociale
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueAssedic.iban' 'Contacts_BanqueAssedic'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:17:12 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			SI element.estBanqueAssedicDucsEdi ALORS	
    				SORTIR element.IBAN
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueAssedic.CodeBIC' 'Contacts_BanqueAssedic'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:17:12 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			SI element.estBanqueAssedicDucsEdi ALORS	
    				SORTIR element.CodeBIC
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueAssedic.titulaireCompte' 'Contacts_BanqueAssedic'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:17:15 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			SI element.estBanqueAssedicDucsEdi ALORS	
    				SORTIR element.TitulaireCompte
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueAssedic.webSite' 'Contacts_BanqueAssedic'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:17:19 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueAssedicDucsEdi ALORS	
    				SORTIR pers.website
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueAssedic.email' 'Contacts_BanqueAssedic'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:17:23 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueAssedicDucsEdi ALORS	
    				SORTIR pers.email
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueAssedic.fax' 'Contacts_BanqueAssedic'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:17:26 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueAssedicDucsEdi ALORS	
    				SORTIR pers.fax
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueAssedic.mobile' 'Contacts_BanqueAssedic'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:17:34 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueAssedicDucsEdi ALORS	
    				SORTIR pers.mobile
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueAssedic.telephone' 'Contacts_BanqueAssedic'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:17:38 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueAssedicDucsEdi ALORS	
    				SORTIR pers.telephone
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueAssedic.nomPays' 'Contacts_BanqueAssedic'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:17:42 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueAssedicDucsEdi ALORS	
    				SORTIR pers.nomPays
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueAssedic.pays' 'Contacts_BanqueAssedic'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:17:52 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueAssedicDucsEdi ALORS	
    				SORTIR pers.pays
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueAssedic.bureauDistributeur' 'Contacts_BanqueAssedic'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:17:58 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueAssedicDucsEdi ALORS	
    				SORTIR pers.bureauDistributeur
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueAssedic.codePostalGeo' 'Contacts_BanqueAssedic'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:18:02 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueAssedicDucsEdi ALORS	
    				SORTIR pers.codePostalGeo
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueAssedic.codePostal' 'Contacts_BanqueAssedic'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:18:06 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueAssedicDucsEdi ALORS	
    				SORTIR pers.codePostal
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueAssedic.adresse3' 'Contacts_BanqueAssedic'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:18:11 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueAssedicDucsEdi ALORS	
    				SORTIR pers.adresse3
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_dossierSageOne' 'Contacts_BanqueAssedic'
    --Création : 24/05/2011 14:46:39 llg-PO15890; Modification : 29/04/2015 14:46:00 llg2-PC100391; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    |
    
    tmpCh	:=	?
    
    --SI contactExportes ALORS
    	pers	::=	'Personne'
    
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Dossier' ALORS
    			pers	:=	element.personne
    			SI pers <> ? ALORS
    				SORTIR pers.dossierSageOne
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    /*SINON
    	SORTIR dossier.{'dossierSageOne'}chaine
    FIN SI*/
###
'get_BanqueAssedic.adresse2' 'Contacts_BanqueAssedic'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:18:17 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueAssedicDucsEdi ALORS	
    				SORTIR pers.adresse2
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueAssedic.adresse1' 'Contacts_BanqueAssedic'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:18:21 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueAssedicDucsEdi ALORS	
    				SORTIR pers.adresse1
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueAssedic.bister' 'Contacts_BanqueAssedic'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:18:25 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueAssedicDucsEdi ALORS	
    				SORTIR pers.bister
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueAssedic.numero' 'Contacts_BanqueAssedic'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:18:29 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueAssedicDucsEdi ALORS	
    				SORTIR pers.numero
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueAssedic.typeJuridique' 'Contacts_BanqueAssedic'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:18:33 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueAssedicDucsEdi ALORS	
    				SORTIR pers.typeJuridique
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueAssedic.ape' 'Contacts_BanqueAssedic'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:18:42 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueAssedicDucsEdi ALORS	
    				SORTIR pers.Ape
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueAssedic.activite' 'Contacts_BanqueAssedic'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:18:47 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueAssedicDucsEdi ALORS	
    				SORTIR pers.Activite
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueAssedic.siret' 'Contacts_BanqueAssedic'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:18:51 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueAssedicDucsEdi ALORS	
    				SORTIR pers.siret
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueAssedic.siren' 'Contacts_BanqueAssedic'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:18:55 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueAssedicDucsEdi ALORS	
    				SORTIR pers.siren
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueAssedic.departementDeNaissance' 'Contacts_BanqueAssedic'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:18:59 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueAssedicDucsEdi ALORS	
    				SORTIR pers.departementDeNaissance
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueAssedic.adresseDeNaissance' 'Contacts_BanqueAssedic'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:19:03 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueAssedicDucsEdi ALORS	
    				SORTIR pers.adresseDeNaissance
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueAssedic.numeroSecuriteSociale' 'Contacts_BanqueAssedic'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:19:07 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueAssedicDucsEdi ALORS	
    				SORTIR pers.numeroSecuriteSociale
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueAssedic.dateDeNaissance' 'Contacts_BanqueAssedic'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:19:11 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	?
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueAssedicDucsEdi ALORS	
    				SORTIR ''+pers.dateDeNaissance
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueAssedic.prenom' 'Contacts_BanqueAssedic'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:19:16 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueAssedicDucsEdi ALORS	
    				SORTIR pers.firstName
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueAssedic.nom' 'Contacts_BanqueAssedic'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:19:21 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueAssedicDucsEdi ALORS	
    				SORTIR pers.lastName
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueAssedic.civilite' 'Contacts_BanqueAssedic'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:19:27 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueAssedicDucsEdi ALORS	
    				SORTIR pers.civilite
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueAssedic.nomComplet' 'Contacts_BanqueAssedic'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:19:31 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueAssedicDucsEdi ALORS	
    				SORTIR pers.fullName
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueAssedic.personnePhysique' 'Contacts_BanqueAssedic'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:19:37 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueAssedicDucsEdi ALORS	
    				SORTIR pers.personnePhysique
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueAssedic.ville' 'Contacts_BanqueAssedic'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:19:41 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueAssedicDucsEdi ALORS	
    				SORTIR pers.ville
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_BanqueAssedic.raisonSociale' 'Contacts_BanqueAssedic'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:19:45 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ALORS
    			pers	:=	element.personne	
    			SI element.estBanqueAssedicDucsEdi ALORS	
    				SORTIR pers.raisonSociale
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Cga.webSite' 'Contacts_Cga'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 02/05/2013 16:21:25 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Cga' ALORS
    			pers	:=	element.personne	
    			SI first ALORS
    				tmpCh	:=	pers.website
    				first	:=	FAUX
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'EmailCGA' 'Contacts_Cga'

    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Cga' ALORS
    			pers	:=	element.personne	
    			SI first ALORS
    				tmpCh	:=	pers.email
    				first	:=	FAUX
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Cga.email' 'Contacts_Cga'

    SORTIR EmailCGA{}

###
'get_Cga.fax' 'Contacts_Cga'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 02/05/2013 16:21:25 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Cga' ALORS
    			pers	:=	element.personne	
    			SI first ALORS
    				tmpCh	:=	pers.fax
    				first	:=	FAUX
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Cga.mobile' 'Contacts_Cga'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 02/05/2013 16:21:25 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Cga' ALORS
    			pers	:=	element.personne	
    			SI first ALORS
    				tmpCh	:=	pers.mobile
    				first	:=	FAUX
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Cga.telephone' 'Contacts_Cga'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 02/05/2013 16:21:25 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Cga' ALORS
    			pers	:=	element.personne	
    			SI first ALORS
    				tmpCh	:=	pers.telephone
    				first	:=	FAUX
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Cga.nomPays' 'Contacts_Cga'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 02/05/2013 16:21:25 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Cga' ALORS
    			pers	:=	element.personne	
    			SI first ALORS
    				tmpCh	:=	pers.nomPays
    				first	:=	FAUX
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Cga.pays' 'Contacts_Cga'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 02/05/2013 16:21:25 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Cga' ALORS
    			pers	:=	element.personne	
    			SI first ALORS
    				tmpCh	:=	pers.pays
    				first	:=	FAUX
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Cga.bureauDistributeur' 'Contacts_Cga'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 02/05/2013 16:21:25 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Cga' ALORS
    			pers	:=	element.personne	
    			SI first ALORS
    				tmpCh	:=	pers.bureauDistributeur
    				first	:=	FAUX
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Cga.codePostalGeo' 'Contacts_Cga'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 02/05/2013 16:21:25 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Cga' ALORS
    			pers	:=	element.personne	
    			SI first ALORS
    				tmpCh	:=	pers.codePostalGeo
    				first	:=	FAUX
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Cga.codePostal' 'Contacts_Cga'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 02/05/2013 16:21:25 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Cga' ALORS
    			pers	:=	element.personne	
    			SI first ALORS
    				tmpCh	:=	pers.codePostal
    				first	:=	FAUX
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Cga.adresse3' 'Contacts_Cga'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 02/05/2013 16:21:25 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Cga' ALORS
    			pers	:=	element.personne	
    			SI first ALORS
    				tmpCh	:=	pers.adresse3
    				first	:=	FAUX
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Cga.adresse2' 'Contacts_Cga'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 02/05/2013 16:21:25 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Cga' ALORS
    			pers	:=	element.personne	
    			SI first ALORS
    				tmpCh	:=	pers.adresse2
    				first	:=	FAUX
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Cga.adresse1' 'Contacts_Cga'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 02/05/2013 16:21:25 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Cga' ALORS
    			pers	:=	element.personne	
    			SI first ALORS
    				tmpCh	:=	pers.adresse1
    				first	:=	FAUX
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Cga.bister' 'Contacts_Cga'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 02/05/2013 16:21:25 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Cga' ALORS
    			pers	:=	element.personne	
    			SI first ALORS
    				tmpCh	:=	pers.bister
    				first	:=	FAUX
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Cga.numero' 'Contacts_Cga'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 02/05/2013 16:21:25 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Cga' ALORS
    			pers	:=	element.personne	
    			SI first ALORS
    				tmpCh	:=	pers.numero
    				first	:=	FAUX
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Cga.typeJuridique' 'Contacts_Cga'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 02/05/2013 16:21:25 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Cga' ALORS
    			pers	:=	element.personne	
    			SI first ALORS
    				tmpCh	:=	pers.typeJuridique
    				first	:=	FAUX
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Cga.ape' 'Contacts_Cga'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 02/05/2013 16:21:25 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Cga' ALORS
    			pers	:=	element.personne	
    			SI first ALORS
    				tmpCh	:=	pers.Ape
    				first	:=	FAUX
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Cga.activite' 'Contacts_Cga'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 02/05/2013 16:21:25 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Cga' ALORS
    			pers	:=	element.personne	
    			SI first ALORS
    				tmpCh	:=	pers.Activite
    				first	:=	FAUX
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Cga.siret' 'Contacts_Cga'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 02/05/2013 16:21:26 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Cga' ALORS
    			pers	:=	element.personne	
    			SI first ALORS
    				tmpCh	:=	pers.siret
    				first	:=	FAUX
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Cga.siren' 'Contacts_Cga'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 02/05/2013 16:21:26 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Cga' ALORS
    			pers	:=	element.personne	
    			SI first ALORS
    				tmpCh	:=	pers.siren
    				first	:=	FAUX
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Cga.departementDeNaissance' 'Contacts_Cga'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 02/05/2013 16:21:26 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Cga' ALORS
    			pers	:=	element.personne	
    			SI first ALORS
    				tmpCh	:=	pers.departementDeNaissance
    				first	:=	FAUX
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Cga.adresseDeNaissance' 'Contacts_Cga'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 02/05/2013 16:21:26 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Cga' ALORS
    			pers	:=	element.personne	
    			SI first ALORS
    				tmpCh	:=	pers.adresseDeNaissance
    				first	:=	FAUX
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Cga.numeroSecuriteSociale' 'Contacts_Cga'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 02/05/2013 16:21:26 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Cga' ALORS
    			pers	:=	element.personne	
    			SI first ALORS
    				tmpCh	:=	pers.numeroSecuriteSociale
    				first	:=	FAUX
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Cga.dateDeNaissance' 'Contacts_Cga'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 02/05/2013 16:21:26 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	?
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Cga' ALORS
    			pers	:=	element.personne	
    			SI first ALORS
    				tmpCh	:=	''+pers.dateDeNaissance
    				first	:=	FAUX
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Cga.prenom' 'Contacts_Cga'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 02/05/2013 16:21:26 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Cga' ALORS
    			pers	:=	element.personne	
    			SI first ALORS
    				tmpCh	:=	pers.firstName
    				first	:=	FAUX
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Cga.nom' 'Contacts_Cga'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 02/05/2013 16:21:26 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Cga' ALORS
    			pers	:=	element.personne	
    			SI first ALORS
    				tmpCh	:=	pers.lastName
    				first	:=	FAUX
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Cga.civilite' 'Contacts_Cga'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 02/05/2013 16:21:26 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Cga' ALORS
    			pers	:=	element.personne	
    			SI first ALORS
    				tmpCh	:=	pers.civilite
    				first	:=	FAUX
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Cga.nomComplet' 'Contacts_Cga'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 02/05/2013 16:21:26 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Cga' ALORS
    			pers	:=	element.personne	
    			SI first ALORS
    				tmpCh	:=	pers.fullName
    				first	:=	FAUX
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Cga.personnePhysique' 'Contacts_Cga'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 02/05/2013 16:21:26 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Cga' ALORS
    			pers	:=	element.personne	
    			SI first ALORS
    				tmpCh	:=	pers.personnePhysique
    				first	:=	FAUX
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Cga.ville' 'Contacts_Cga'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 02/05/2013 16:21:26 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Cga' ALORS
    			pers	:=	element.personne	
    			SI first ALORS
    				tmpCh	:=	pers.ville
    				first	:=	FAUX
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Cga.raisonSociale' 'Contacts_Cga'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 02/05/2013 16:21:26 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Cga' ALORS
    			pers	:=	element.personne	
    			SI first ALORS
    				tmpCh	:=	pers.raisonSociale
    				first	:=	FAUX
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Cga.numeroAdhesion' 'Contacts_Cga'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 02/05/2013 16:21:26 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Cga' ALORS
    			SI first ALORS
    				tmpCh	:=	element.NumAdhes
    				first	:=	FAUX
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Cga.dateAdhesion' 'Contacts_Cga'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 02/05/2013 16:21:26 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Cga' ALORS
    			SI first ALORS
    				tmpCh	:=	''+element.Adhes
    				first	:=	FAUX
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Cga.dateRadiation' 'Contacts_Cga'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 02/05/2013 16:21:26 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Cga' ALORS
    			SI first ALORS
    				tmpCh	:=	''+element.DateRadiation
    				first	:=	FAUX
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_SIE.raisonSociale' 'Contacts_SIE'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 20/12/2013 15:31:54 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    |
    
    tmpCh	:=	''
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'SIE' ALORS
    			pers	:=	element.personne
    			SI pers <> ? ALORS
    				SORTIR pers.raisonSociale
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_SIE.ville' 'Contacts_SIE'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 20/12/2013 15:32:08 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    |
    
    tmpCh	:=	''
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'SIE' ALORS
    			pers	:=	element.personne
    			SI pers <> ? ALORS
    				SORTIR pers.ville
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_SIE.codeService' 'Contacts_SIE'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 20/12/2013 15:32:23 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    |
    
    tmpCh	:=	''
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'SIE' ALORS
    			pers	:=	element.personne
    			SI pers <> ? ALORS
    				SORTIR pers.Insp
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_SIE.numeroCDI' 'Contacts_SIE'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 20/12/2013 15:32:39 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    |
    
    tmpCh	:=	''
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'SIE' ALORS
    			pers	:=	element.personne
    			SI pers <> ? ALORS	
    				SORTIR pers.NumCDI
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_SIE.numeroSIE' 'Contacts_SIE'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 20/12/2013 15:32:56 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    |
    
    tmpCh	:=	''
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'SIE' ALORS
    			pers	:=	element.personne
    			SI pers <> ? ALORS
    				SORTIR pers.NumRecette
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_SIE.nomComplet' 'Contacts_SIE'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 20/12/2013 15:33:10 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    |
    
    tmpCh	:=	''
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'SIE' ALORS
    			pers	:=	element.personne
    			SI pers <> ? ALORS
    				SORTIR pers.fullName
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_SIE.numero' 'Contacts_SIE'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 20/12/2013 15:33:30 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    |
    
    tmpCh	:=	''
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'SIE' ALORS
    			pers	:=	element.personne
    			SI pers <> ? ALORS
    				SORTIR pers.numero
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_SIE.bister' 'Contacts_SIE'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 20/12/2013 15:33:46 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    |
    
    tmpCh	:=	''
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'SIE' ALORS
    			pers	:=	element.personne
    			SI pers <> ? ALORS
    				SORTIR pers.bister
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_SIE.adresse1' 'Contacts_SIE'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 20/12/2013 15:33:56 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    |
    
    tmpCh	:=	''
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'SIE' ALORS
    			pers	:=	element.personne
    			SI pers <> ? ALORS
    				SORTIR pers.adresse1
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_SIE.adresse2' 'Contacts_SIE'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 20/12/2013 15:34:11 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    |
    
    tmpCh	:=	''
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'SIE' ALORS
    			pers	:=	element.personne
    			SI pers <> ? ALORS
    				SORTIR pers.adresse2
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_SIE.adresse3' 'Contacts_SIE'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 20/12/2013 15:34:33 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    |
    
    tmpCh	:=	''
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'SIE' ALORS
    			pers	:=	element.personne
    			SI pers <> ? ALORS
    				SORTIR pers.adresse3
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_SIE.codePostal' 'Contacts_SIE'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 20/12/2013 15:34:44 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    |
    
    tmpCh	:=	''
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'SIE' ALORS
    			pers	:=	element.personne
    			SI pers <> ? ALORS
    				SORTIR pers.codePostal
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_SIE.codePostalGeo' 'Contacts_SIE'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 20/12/2013 15:34:56 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    |
    
    tmpCh	:=	''
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'SIE' ALORS
    			pers	:=	element.personne
    			SI pers <> ? ALORS
    				SORTIR pers.codePostalGeo
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_SIE.bureauDistributeur' 'Contacts_SIE'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 20/12/2013 15:35:13 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    |
    
    tmpCh	:=	''
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'SIE' ALORS
    			pers	:=	element.personne
    			SI pers <> ? ALORS
    				SORTIR pers.bureauDistributeur
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_SIE.pays' 'Contacts_SIE'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 20/12/2013 15:35:27 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    |
    
    tmpCh	:=	''
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'SIE' ALORS
    			pers	:=	element.personne
    			SI pers <> ? ALORS
    				SORTIR pers.pays
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_SIE.nomPays' 'Contacts_SIE'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 20/12/2013 15:35:40 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    |
    
    tmpCh	:=	''
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'SIE' ALORS
    			pers	:=	element.personne
    			SI pers <> ? ALORS
    				SORTIR pers.nomPays
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_SIE.telephone' 'Contacts_SIE'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 20/12/2013 15:35:55 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    |
    
    tmpCh	:=	''
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'SIE' ALORS
    			pers	:=	element.personne
    			SI pers <> ? ALORS
    				SORTIR pers.telephone
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_SIE.mobile' 'Contacts_SIE'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 20/12/2013 15:36:10 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    |
    
    tmpCh	:=	''
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'SIE' ALORS
    			pers	:=	element.personne
    			SI pers <> ? ALORS
    				SORTIR pers.mobile
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_SIE.fax' 'Contacts_SIE'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 20/12/2013 15:36:34 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    |
    
    tmpCh	:=	''
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'SIE' ALORS
    			pers	:=	element.personne
    			SI pers <> ? ALORS
    				SORTIR pers.fax
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_SIE.email' 'Contacts_SIE'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 20/12/2013 15:36:47 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    |
    
    tmpCh	:=	''
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'SIE' ALORS
    			pers	:=	element.personne
    			SI pers <> ? ALORS
    				SORTIR pers.email
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_SIE.webSite' 'Contacts_SIE'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 20/12/2013 15:37:02 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    |
    
    tmpCh	:=	''
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'SIE' ALORS
    			pers	:=	element.personne
    			SI pers <> ? ALORS
    				SORTIR pers.website
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Notaire.webSite' 'Contacts_Notaire'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:20:17 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Notaire' ALORS
    			pers	:=	element.personne	
    			SI element.notairePrincipal ALORS	
    				SORTIR pers.website
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Notaire.email' 'Contacts_Notaire'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:20:21 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Notaire' ALORS
    			pers	:=	element.personne	
    			SI element.notairePrincipal ALORS	
    				SORTIR pers.email
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Notaire.fax' 'Contacts_Notaire'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:20:25 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Notaire' ALORS
    			pers	:=	element.personne	
    			SI element.notairePrincipal ALORS	
    				SORTIR pers.fax
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Notaire.mobile' 'Contacts_Notaire'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:20:29 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Notaire' ALORS
    			pers	:=	element.personne	
    			SI element.notairePrincipal ALORS	
    				SORTIR pers.mobile
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Notaire.telephone' 'Contacts_Notaire'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:20:34 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Notaire' ALORS
    			pers	:=	element.personne	
    			SI element.notairePrincipal ALORS	
    				SORTIR pers.telephone
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Notaire.nomPays' 'Contacts_Notaire'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:20:37 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Notaire' ALORS
    			pers	:=	element.personne	
    			SI element.notairePrincipal ALORS	
    				SORTIR pers.nomPays
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Notaire.pays' 'Contacts_Notaire'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:20:41 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Notaire' ALORS
    			pers	:=	element.personne	
    			SI element.notairePrincipal ALORS	
    				SORTIR pers.pays
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Notaire.bureauDistributeur' 'Contacts_Notaire'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:20:45 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Notaire' ALORS
    			pers	:=	element.personne	
    			SI element.notairePrincipal ALORS	
    				SORTIR pers.bureauDistributeur
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Notaire.codePostalGeo' 'Contacts_Notaire'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:20:48 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Notaire' ALORS
    			pers	:=	element.personne	
    			SI element.notairePrincipal ALORS	
    				SORTIR pers.codePostalGeo
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Notaire.codePostal' 'Contacts_Notaire'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:20:53 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Notaire' ALORS
    			pers	:=	element.personne	
    			SI element.notairePrincipal ALORS	
    				SORTIR pers.codePostal
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Notaire.adresse3' 'Contacts_Notaire'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:20:56 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Notaire' ALORS
    			pers	:=	element.personne	
    			SI element.notairePrincipal ALORS	
    				SORTIR pers.adresse3
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Notaire.adresse2' 'Contacts_Notaire'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:21:00 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Notaire' ALORS
    			pers	:=	element.personne	
    			SI element.notairePrincipal ALORS	
    				SORTIR pers.adresse2
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Notaire.adresse1' 'Contacts_Notaire'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:21:03 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Notaire' ALORS
    			pers	:=	element.personne	
    			SI element.notairePrincipal ALORS	
    				SORTIR pers.adresse1
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Notaire.bister' 'Contacts_Notaire'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:21:07 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Notaire' ALORS
    			pers	:=	element.personne	
    			SI element.notairePrincipal ALORS	
    				SORTIR pers.bister
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Notaire.numero' 'Contacts_Notaire'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:21:13 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Notaire' ALORS
    			pers	:=	element.personne	
    			SI element.notairePrincipal ALORS	
    				SORTIR pers.numero
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Notaire.typeJuridique' 'Contacts_Notaire'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:21:17 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Notaire' ALORS
    			pers	:=	element.personne	
    			SI element.notairePrincipal ALORS	
    				SORTIR pers.typeJuridique
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Notaire.ape' 'Contacts_Notaire'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:21:21 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Notaire' ALORS
    			pers	:=	element.personne	
    			SI element.notairePrincipal ALORS	
    				SORTIR pers.Ape
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Notaire.activite' 'Contacts_Notaire'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:21:25 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Notaire' ALORS
    			pers	:=	element.personne	
    			SI element.notairePrincipal ALORS	
    				SORTIR pers.Activite
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Notaire.siret' 'Contacts_Notaire'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:21:29 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Notaire' ALORS
    			pers	:=	element.personne	
    			SI element.notairePrincipal ALORS	
    				SORTIR pers.siret
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Notaire.siren' 'Contacts_Notaire'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:21:32 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Notaire' ALORS
    			pers	:=	element.personne	
    			SI element.notairePrincipal ALORS	
    				SORTIR pers.siren
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Notaire.departementDeNaissance' 'Contacts_Notaire'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:21:36 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Notaire' ALORS
    			pers	:=	element.personne	
    			SI element.notairePrincipal ALORS	
    				SORTIR pers.departementDeNaissance
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Notaire.adresseDeNaissance' 'Contacts_Notaire'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:21:43 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Notaire' ALORS
    			pers	:=	element.personne	
    			SI element.notairePrincipal ALORS	
    				SORTIR pers.adresseDeNaissance
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Notaire.numeroSecuriteSociale' 'Contacts_Notaire'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:21:47 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Notaire' ALORS
    			pers	:=	element.personne	
    			SI element.notairePrincipal ALORS	
    				SORTIR pers.numeroSecuriteSociale
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Notaire.dateDeNaissance' 'Contacts_Notaire'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:21:51 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	?
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Notaire' ALORS
    			pers	:=	element.personne	
    			SI element.notairePrincipal ALORS	
    				SORTIR ''+pers.dateDeNaissance
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Notaire.prenom' 'Contacts_Notaire'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:21:56 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Notaire' ALORS
    			pers	:=	element.personne	
    			SI element.notairePrincipal ALORS	
    				SORTIR pers.firstName
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Notaire.nom' 'Contacts_Notaire'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:22:00 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Notaire' ALORS
    			pers	:=	element.personne	
    			SI element.notairePrincipal ALORS	
    				SORTIR pers.lastName
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Notaire.civilite' 'Contacts_Notaire'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:22:04 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Notaire' ALORS
    			pers	:=	element.personne	
    			SI element.notairePrincipal ALORS	
    				SORTIR pers.civilite
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Notaire.nomComplet' 'Contacts_Notaire'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:22:08 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Notaire' ALORS
    			pers	:=	element.personne	
    			SI element.notairePrincipal ALORS	
    				SORTIR pers.fullName
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Notaire.personnePhysique' 'Contacts_Notaire'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:22:12 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Notaire' ALORS
    			pers	:=	element.personne	
    			SI element.notairePrincipal ALORS	
    				SORTIR pers.personnePhysique
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Notaire.ville' 'Contacts_Notaire'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:22:18 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Notaire' ALORS
    			pers	:=	element.personne	
    			SI element.notairePrincipal ALORS	
    				SORTIR pers.ville
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'get_Notaire.raisonSociale' 'Contacts_Notaire'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 07/05/2013 19:22:22 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Notaire' ALORS
    			pers	:=	element.personne	
    			SI element.notairePrincipal ALORS	
    				SORTIR pers.raisonSociale
    			FIN SI
    
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR tmpCh
###
'----' 'Cool'
    --Création : 11/04/2002 14:56:22 ste-STEPHANE; Modification : 11/04/2002 14:56:22 ste-STEPHANE;
###
'getCoolid' 'Cool'
    --Modification : 02/05/2013 16:21:28 llg-PO36696; 
    
    |
    sCoolid<Chaine> oCoalaExch<Objet>  bOk<Booléen>
    |
    
    -- On vérifie dans le Coala.ini
    sCoolid := ''+coolid{}
    
    -- S'il n'est pas renseigné, on va chercher la valeur dans cabinet.COOL_ID
    SI ((sCoolid = '') OU (sCoolid = ?) OU (taille{sCoolid} = 0) OU (sCoolid = '0'))	ALORS
    	/* Lecture du coalamail.ini */
    	SI (infoFichier{racine {} + '/local/bin/coalamail.ini'} = 'fichier')	ALORS
    		sCoolid	:=	lireini { racine {} + '/local/bin/coalamail.ini', 'Mailer', 'Pop3Account' }
    		SI ((taille{sCoolid} > 0) ET (entier{sCoolid} <> 0))		ALORS
    			coolid{entier{sCoolid}}
    			collaborateur	::=	''
    			cabinet		::=	collaborateur.cabinet
    			cabinet.COOL_ID	:=	sCoolid
    			SORTIR sCoolid
    		FIN SI
    	FIN SI
    
    	/* Lecture dans l'entité */
    	collaborateur	::=	''
    	cabinet		::=	collaborateur.cabinet
    	sCoolid		:=	cabinet.COOL_ID
    	SI ((taille{sCoolid} > 0) ET (entier{sCoolid} <> 0))		ALORS
    		coolid{entier{sCoolid}}
    		SORTIR sCoolid
    	FIN SI
    
    	message{'Coolid non renseigné !'}
    	sCoolid	:=	?
    	SORTIR sCoolid 
    
    FIN SI
    
    SORTIR sCoolid
###
'controllerCoolID' 'Cool'
    --Création : 06/09/2000 10:49:38 TNI-?; Modification : 02/05/2013 16:21:28 llg-PO36696; 
    |
    sCoolid<Chaine>
    |
    
    --sCoolid	:=	lireini { racine {} + '/local/bin/coalamail.ini', 'Mailer', 'Pop3Account' }
    sCoolid	:=	''+coolid{}
    SI ((sCoolid = ?) OU (taille{sCoolid} = 0) OU (sCoolid = '0'))	ALORS
    	info {'Cool n'' est pas correctement installé,
Refaites cette opération' } 
    FIN SI
###
'fichierDetailsPublication' 'Cool2'
{appli <Chaine>}
    SORTIR racine{}+'\pubtmp\'+dossier.CodeDossier+'\'+appli+'\notifs.txt'
###
'recupererDetailsPublication' 'Cool2'
{appli <Chaine>}
    | nomFichier<Chaine> nil<Chaine> |
    
    nil	:=	?
    nomFichier := fichierDetailsPublication{appli}
    SI (infoFichier{nomFichier} <> 'fichier')	ALORS
    	SORTIR nil
    FIN SI
    
    SORTIR retournerContenuFichier{nomFichier}
###
'supprimerDetailsPublication' 'Cool2'
{appli <Chaine>}
    | nomFichier<Chaine> |
    
    nomFichier := fichierDetailsPublication{appli}
    SI (infoFichier{nomFichier} <> 'fichier')	ALORS
    	SORTIR FAUX
    FIN SI
    
    detruireFichier{nomFichier}
    SORTIR VRAI
###
'ajouterDetailsPublication' 'Cool2'
{appli <Chaine> detail <Chaine>}
    | CR<Chaine> |
    
    CR	:=	'
'
    
    fichierEcriture{fichierDetailsPublication{appli}, 3}
    ecrire{detail}
    ecrire{CR}
    fichierEcriture{}
    
    SORTIR VRAI
###
'detruireFichiersCool' 'Cool2'
{argNomAppli <Chaine>}
    --Création : 15/03/2005 08:39:02 llg-LLG; Modification : 02/05/2013 16:21:29 llg-PO36696; 
    
    
    
    
    
    
    
    ---***On supprime tous les fichiers de publications
    SI  infoFichier{getSendDirectory{}+dossier.CodeDossier+'['+argNomAppli+']'+'.tar'} = 'fichier' ALORS
    	detruireFichier{getSendDirectory{}+dossier.CodeDossier+'['+argNomAppli+']'+'.tar'}
    FIN SI
    SI  infoFichier{getSendDirectory{}+dossier.CodeDossier+'['+argNomAppli+']'+'.tar.old'} = 'fichier' ALORS
    	detruireFichier{getSendDirectory{}+dossier.CodeDossier+'['+argNomAppli+']'+'.tar.old'}
    FIN SI	
    SI  infoFichier{getSendDirectory{}+dossier.CodeDossier+'['+argNomAppli+']'+'.tar.gdiff'} = 'fichier' ALORS
    	detruireFichier{getSendDirectory{}+dossier.CodeDossier+'['+argNomAppli+']'+'.tar.gdiff'}
    FIN SI	
    SI  infoFichier{getSendDirectory{}+dossier.CodeDossier+'['+argNomAppli+']'+'.tar.digest'} = 'fichier' ALORS
    	detruireFichier{getSendDirectory{}+dossier.CodeDossier+'['+argNomAppli+']'+'.tar.digest'}
    FIN SI	
    SI  infoFichier{getSendDirectory{}+dossier.CodeDossier+'['+argNomAppli+']'+'.ls'} = 'fichier' ALORS
    	detruireFichier{getSendDirectory{}+dossier.CodeDossier+'['+argNomAppli+']'+'.ls'}
    FIN SI
###
'getSendDirectory' 'Cool2'
    --Création : 18/04/2005 07:49:47 llg-LLG; Modification : 02/05/2013 16:21:29 llg-PO36696; 
    |
    	rep<Chaine>
    |
    
    rep	:=	racine{}+'\pub\'+CodeDossier+'\'
    
    SI infoFichier{rep} = 'absent' ALORS
    	fichierEcriture{rep+'xx.txt'}
    	fichierEcriture{}
    	detruireFichier{rep+'xx.txt'}
    FIN SI
    
    SORTIR rep
###
'analyserReponseDroits' 'Cool2'
{a_sReponse <Chaine> a_bMsg <Booléen>}
    --Création : 17/06/2005 09:34:14 spi-TEZE-S; Modification : 02/05/2013 16:21:29 llg-PO36696; 
    
    SI a_sReponse = 'libre' OU a_sReponse = 'ouvert' ALORS
    	status{'Droits acceptés ou déjà acquis'}
    	SORTIR VRAI
    FIN SI
    status{'Droits refusés'}
    SI a_sReponse = 'distant' ALORS
    	SI a_bMsg ALORS
    		message{'Ce site n''a pas la propriété du dossier ou d''une partie du dossier.
Vous devez avoir la propriété de TOUT le dossier afin de pouvoir le supprimer.'}
    	FIN SI
    	SORTIR FAUX
    FIN SI
    SI a_sReponse = 'instable' ALORS
    	SI a_bMsg ALORS
    		message{'Le dossier ou une partie du dossier est en cours de transfert (état INSTABLE).
La suppression ne peut donc pas être effectuée.'}
    	FIN SI
    	SORTIR FAUX
    FIN SI
    SI a_sReponse = 'locke' ALORS
    	SI a_bMsg ALORS
    		message{'Le dossier est en cours de modification par un utilisateur.
La suppression ne peut pas être effectuée tant que le dossier est  bloqué.'}
    	FIN SI
    	SORTIR FAUX
    FIN SI
    
    --PROBLEME!!!
    SI a_bMsg ALORS
    	message{'L''état du dossier est : '+a_sReponse+'.
La suppression ne peut pas être effectuée.'}
    FIN SI
    SORTIR FAUX
###
'verifierDroitsCluster' 'Cool2'
{szPathArg <Chaine>}
    --Création : 22/06/2004 15:10:13 spi-SOPHIE; Modification : 02/05/2013 16:21:29 llg-PO36696; 
    
    
    
    
    
    
    
    |
    	bMulti<Booléen>szRepLogiqueLoc<Chaine>szRepPhysiqueLoc<Chaine>
    |
    
    status{'Verification des droits'}
    bMulti := (nomSiteLocal{} <> '?')
    collaborateur ::= ''
    szRepLogiqueLoc := nomLogique{szPathArg}
    szRepPhysiqueLoc := szPathArg
    droitsCluster := VRAI
    
    /********************* Multistes *********************/
    SI bMulti ALORS
    	droitsCluster := analyserReponseDroits{commandeCoalaNet{'ETA + ' + szRepLogiqueLoc + ' ' + collaborateur.nom}, VRAI} 
    FIN SI
    /********************* Monosites *********************/
    SI infoFichier{szPathArg} = 'fichier' ALORS
    	droitsCluster := analyserReponseDroits{etatCluster{szRepPhysiqueLoc}, VRAI} 
    FIN SI
###
'jAiLesDroitsDossier' 'Cool2'
    --Création : 22/06/2004 15:10:13 spi-SOPHIE; Modification : 02/05/2013 16:21:29 llg-PO36696; 
    |
    	sReponse<Chaine>bMulti<Booléen>szRepLogiqueLoc<Chaine>szRepPhysiqueDossLoc<Chaine>
    	szPathPhysiqueExoLoc<Chaine>oFlot<Objet>szCR<Chaine>bMsg<Booléen>
    |
    
    bMsg := VRAI
    status{'Verification des droits'}
    bMulti :=  (nomSiteLocal{} <> '?')
    collaborateur ::= ''
    szRepPhysiqueDossLoc := repertoire
    szRepLogiqueLoc := nomLogique{szRepPhysiqueDossLoc}
    droitsOk := VRAI
    
    /********************* Multistes *********************/
    SI bMulti ALORS
    	droitsOk := analyserReponseDroits{commandeCoalaNet{'ETA + ' + szRepLogiqueLoc + ' ' + collaborateur.nom}, bMsg} 
    SINON
    	/********************* Monosites *********************/
    	--Racine
    	sReponse := etatCluster{szRepPhysiqueDossLoc + '\dossier'}
    	SI NON analyserReponseDroits{sReponse, bMsg} ALORS
    		droitsOk := FAUX
    	FIN SI
    	--Dp
    	sReponse := etatCluster{szRepPhysiqueDossLoc + '\dp\dp'}
    	SI NON analyserReponseDroits{sReponse, bMsg} ALORS
    		droitsOk := FAUX
    	FIN SI
    	--Compta
    	SI infoFichier{szRepPhysiqueDossLoc + '\compta'} = 'répertoire' ALORS
    		sReponse := etatCluster{szRepPhysiqueDossLoc + '\compta\compta'}
    		SI NON analyserReponseDroits{sReponse, bMsg} ALORS
    			droitsOk := FAUX
    		FIN SI
    		szCR := '
'
    		oFlot := flotLecture{contenuRepertoire{szRepPhysiqueDossLoc + '\compta'}}
    		TANT QUE NON lectureFinie{oFlot} FAIRE
    			szPathPhysiqueExoLoc := szRepPhysiqueDossLoc + '\compta\' + lire{oFlot,szCR} + '\compta'
    			SI infoFichier{szPathPhysiqueExoLoc} = 'fichier' ALORS
    				sReponse := etatCluster{szPathPhysiqueExoLoc}
    				SI NON analyserReponseDroits{sReponse, bMsg} ALORS
    					droitsOk := FAUX
    				FIN SI
    			FIN SI
    		FIN FAIRE
    	FIN SI
    	--Immos
    	sReponse := etatCluster{szRepPhysiqueDossLoc + '\immos\immos'}
    	SI NON analyserReponseDroits{sReponse, bMsg} ALORS
    		droitsOk := FAUX
    	FIN SI
    	--EspaceImmo
    	sReponse := etatCluster{szRepPhysiqueDossLoc + '\immos\espace'}
    	SI NON analyserReponseDroits{sReponse, bMsg}ALORS
    		SORTIR FAUX
    	FIN SI
    	--Paye
    	sReponse := etatCluster{szRepPhysiqueDossLoc + '\paye\paye'}
    	SI NON analyserReponseDroits{sReponse, bMsg} ALORS
    		droitsOk := FAUX
    	FIN SI
    	--Paye2
    	sReponse := etatCluster{szRepPhysiqueDossLoc + '\paye2\paye'}
    	SI NON analyserReponseDroits{sReponse, bMsg} ALORS
    		droitsOk := FAUX
    	FIN SI
    	--Gestion
    	sReponse := etatCluster{szRepPhysiqueDossLoc + '\gestion\gestion'}
    	SI NON analyserReponseDroits{sReponse, bMsg} ALORS
    		droitsOk := FAUX
    	FIN SI
    	--Associes
    	sReponse := etatCluster{szRepPhysiqueDossLoc + '\gestion\associes'}
    	SI NON analyserReponseDroits{sReponse, bMsg} ALORS
    		droitsOk := FAUX
    	FIN SI
    	--Conseil
    	sReponse := etatCluster{szRepPhysiqueDossLoc + '\conseil\conseil'}
    	SI NON analyserReponseDroits{sReponse, bMsg} ALORS
    		droitsOk := FAUX
    	FIN SI
    FIN SI
    
    SORTIR droitsOk
###
'listerDocsPublies' 'Cool2'
{sRepertoire <Chaine> uneLst <Objet>}
    --Création : 05/08/2005 11:52:27 llg-LEGUEN-L; Modification : 02/05/2013 16:21:29 llg-PO36696; 
    
    
    
    
    
    
    
    |
    	ws<Objet>str<Chaine>CR<Chaine>
    |
    
    ws	:=	flotLecture{contenuRepertoire{sRepertoire}}
    CR	:=	'
'
    
    TANT QUE NON lectureFinie{ws} FAIRE
    	str	:=	lire{ws, CR}
    	SI infoFichier{sRepertoire+str} = 'fichier' ALORS
    		ajouterElement{uneLst, sRepertoire+str}
    	SINON
    		listerDocsPublies{sRepertoire+str+'\', uneLst}
    	FIN SI
    FIN FAIRE
###
'getVariablesPaye' 'Cool2'
{lot <Chaine> dte <Date>}
    --Création : 22/03/2007 16:52:32 llg-LEGUEN-L; Modification : 02/05/2013 16:21:29 llg-PO36696; 
    
    |
    	var<Objet>obj<Objet>
    |
    paye2	::=	CodeDossier
    var	::=	'VariableListe'
    var	:=	creerVariable{'VariableListe'}
    obj	::=	'Liaisons_Portail'
    POUR TOUT element<Liaisons_Portail> DE paye2.etats
    FAIRE
    	SI classe{element}='Liaisons_Portail'
    		ALORS
    			SI element.categorie <> ? ALORS
    				obj		:=	element
    				obj.sLot		:=	lot
    				obj.dMois	:=	dte
    				var		:=	obj.lstVars_VARIABLE{}
    			FIN SI
    	FIN SI
    FIN FAIRE
    
    SORTIR var
###
'joindre' 'Cool2'
{lst <Objet> sep <Chaine>}
    --Création : 25/11/2009 12:26:14 mik-MIMOR; Modification : 02/05/2013 16:21:29 llg-PO36696; 
    
    
    
    
    
    
    
    
    | ws<Objet> i<Entier> nb<Entier> |
    
    nb	:=	nbElements{lst}
    i	:=	1
    ws	:=	flotEcriture{}
    TANT QUE (i <= nb)	FAIRE
    	ws	+=	chaine{elementDIndice{lst, i}}
    	SI (i < nb) ALORS	ws += sep	FIN SI
    	i	+=	1
    FIN FAIRE
    SORTIR contenuFlot{ws}
###
'ouvrirVariablesPaye' 'Cool2'
{lot <Chaine> dte <Date>}
    --Création : 22/03/2007 16:52:32 llg-LEGUEN-L; Modification : 02/05/2013 16:21:30 llg-PO36696; 
    
    
    
    
    
    
    |
    	lst<Objet>obj<Objet>
    |
    paye2	::=	CodeDossier
    lst	:=	creerListe{}
    obj	::=	'Liaisons_Portail'
    POUR TOUT element<Liaisons_Portail> DE paye2.etats
    FAIRE
    	SI classe{element}='Liaisons_Portail'
    		ALORS
    			SI element.categorie <> ? ALORS
    				obj	:=	element
    				--obj.editerVariables{lot, '', dte}
    				obj.sLot	:=	lot
    				obj.dMois	:=	dte
    				obj.lstVars_LISTE{}
    				lst	:=	obj.lstVars
    			FIN SI
    	FIN SI
    FIN FAIRE
    
    SORTIR lst
###
'exporterDocumentsDuDossierPourAppli' 'Espace Expert'
{argCodeDossier <Chaine> argAppli <Chaine>}
    --Création : 17/09/2003 14:38:45 jcr-CLAUDE; Modification : 02/05/2013 16:21:30 llg-PO36696; 
    
    
    
    
    
    
    
    | oFlotE <Objet>  sRep<Chaine>|
    
    sRep := racine{}+'\local\bases\majee'
    fichierEcriture{ sRep +'\tmp.txt'} 
    fichierEcriture{}
    
    dossier ::= ''+argCodeDossier
    
    oFlotE := flotEcriture{}
    oFlotE + parcourirRepertoireDocEE{ dossier.repertoire+'\'+argAppli+'\doc\', ''}
    
    fichierEcriture{ sRep +'\documents\tmp.txt'} 
    fichierEcriture{}
    detruireFichier{sRep +'\documents\tmp.txt'} 
    
    fichierEcriture{sRep +'\documents\'+argAppli+'_'+dossier.CodeDossier+'.txt'}
    ecrire{ contenuFlot{ oFlotE}}
    fichierEcriture{''}
###
'parcourirRepertoireDocEE' 'Espace Expert'
{argRepertoire <Chaine> argFinRep <Chaine>}
    --Création : 15/05/2002 16:03:50 scr-DAVID; Modification : 02/05/2013 16:21:30 llg-PO36696; 
    
    
    
    
    
    
    --Fonction récursive parcourant un répertoire pour récupérer l'ensemble des fichiers le contenant
    
    
    
    |
    tmpContenu<Chaine> CR<Chaine> resRetour<Chaine> typeFichier<Chaine>  
    listeFichiers<Objet> flotRep<Objet>
    |
    
    --Initialisation des variables
    CR := '
'
    listeFichiers := flotEcriture{}
    tmpContenu := contenuRepertoire{ argRepertoire}
    
    flotRep := flotLecture{ tmpContenu}
    
    --Parcours jusqu'à la fin du flot
    TANT QUE NON lectureFinie{ flotRep} FAIRE
    
    	resRetour := lire{ flotRep,CR}
    
    	--SI resRetour # 'etat\*' ALORS
    	--	message{'c''est un etat'}
    	--SINON
    		typeFichier := infoFichier{ argRepertoire +'\' + resRetour}
    		SI typeFichier ='fichier' ALORS 
    			SI (resRetour # '*.doc') OU (resRetour # '*.rtf') OU (resRetour # '*.xls') OU (resRetour # '*.pdf') ALORS
    				SI argFinRep <> '' ALORS
    					listeFichiers  + argFinRep + '\' + resRetour + CR
    				SINON
    					listeFichiers + resRetour + CR
    				FIN SI
    			FIN SI
    		SINON
    			SI argFinRep <> '' ALORS
    				listeFichiers + parcourirRepertoireDocEE{argRepertoire+'\' + resRetour, argFinRep+'\'+resRetour}
    			SINON
    				listeFichiers + parcourirRepertoireDocEE{argRepertoire+'\' + resRetour, resRetour}
    			FIN SI	
    		FIN SI
    	--FIN SI
    	
    	FIN FAIRE
    
    SORTIR contenuFlot{listeFichiers}
###
'exporterDocumentsDuDossier' 'Espace Expert'
{argCodeDossier <Chaine>}
    --Création : 28/05/2003 14:51:37 jcr-JCR; Modification : 02/05/2013 16:21:30 llg-PO36696; 
    
    
    
    
    
    
    
    | CR<Chaine> oFlotE<Objet>|
    
    dossier ::= ''+argCodeDossier
    
    SI taille{ dossier.CodeDossier}>8 ALORS
    	-- Erreur
    SINON
    	exporterDocumentsDuDossierPourAppli{ argCodeDossier, 'dp'}
    	exporterDocumentsDuDossierPourAppli{ argCodeDossier, 'compta'}
    	exporterDocumentsDuDossierPourAppli{ argCodeDossier, 'immo'}
    	exporterDocumentsDuDossierPourAppli{ argCodeDossier, 'paye'}
    FIN SI
###
'exporterDossier' 'Espace Expert'
{argCodeDossier <Chaine>}
    --Création : 28/05/2003 14:51:37 jcr-JCR; Modification : 02/05/2013 16:21:30 llg-PO36696; 
    
    
    
    
    
    
    
    | CR<Chaine> oFlotE<Objet> sRep<Chaine>|
    
    sRep := racine{}+'\local\bases\majee'
    fichierEcriture{ sRep +'\tmp.txt'} 
    fichierEcriture{}
    
    CR := '
'
    dossier ::= ''+argCodeDossier
    
    SI taille{ dossier.CodeDossier}>8 ALORS
    	-- Erreur
    SINON
    	oFlotE := flotEcriture{}
    
    /*	oFlotE + '<Dossier>'+CR
	oFlotE + '<CodeDossier>'+dossier.CodeDossier+'</CodeDossier>'+CR
	oFlotE + '<RaisonSociale>'+dossier.RaisonSociale+'</RaisonSociale>'+CR
	oFlotE + '<Adresse1>'+dossier.Adresse1+'</Adresse1>'+CR
	oFlotE + '</Dossier>'+CR */
    
    	oFlotE + dossier.CodeDossier+CR
    	oFlotE + dossier.RaisonSociale+CR
    	oFlotE + dossier.Adresse1+CR
    	oFlotE + dossier.Adresse2+ CR
    	oFlotE + dossier.CodePostal+CR
    	oFlotE + dossier.Ville+ CR
    	oFlotE + dossier.groupe+ CR
    	oFlotE + dossier.Telephone+ CR
    	oFlotE + dossier.Telephone2+ CR
    	oFlotE + dossier.Fax+ CR
    	oFlotE + dossier.Email+ CR
    
    	-- Interlocuteurs
    	oFlotE + dossier.ResponsableEntreprise+ CR
    	oFlotE + dossier.ResponsableDossier+ CR
    	oFlotE + dossier.RespPaye+ CR
    	oFlotE + dossier.RespInformatique+ CR
    	oFlotE + dossier.RepresentantLegal+ CR
    	oFlotE + dossier.ChefDeService+ CR
    	oFlotE + dossier.ServiceDuPersonnel+ CR
    	oFlotE + dossier.AutresInterlocuteurs+ CR 
    
    	-- Gestion des docs
    	oFlotE + dossier.repertoire+ CR 
    
    	fichierEcriture{sRep +'\dossiers\'+collaborateur.nom+'_'+dossier.CodeDossier+'.xml'}
    	ecrire{ contenuFlot{ oFlotE}}
    	fichierEcriture{''}
    
    	exporterDocumentsDuDossier{ dossier.CodeDossier}
    FIN SI
###
'OUVERTURE' 'Evénements'
    --Création : 07/10/1999 11:54:50 TGU-?; Modification : 29/04/2015 14:46:43 llg2-PC100391; 
    |
    	ngc<Objet>
    |
    
    ngc		::=	'NouvelleGestionContacts'
    ngc		:=	creer{'NouvelleGestionContacts'}
    dicoRoles	:=	ngc.getDicoRoles{}
    SI contactExportes ALORS
    	VoirNouveauxContacts{}
    	SI lireini{racine{}+'\local\bin\coala.ini', 'Configuration', 'SUPPCONDOUBLE'} = '1' ALORS
    		CorrigerContactsDoubles{}
    		VoirNouveauxContacts{}
    	FIN SI
    FIN SI
    
    SI codeInseeBascule = ? OU codeInseeBascule = FAUX ALORS--Logiquement ne sera appelé qu'une fois
    	exporterCodeInsee{FAUX}
    FIN SI
    
    Greffe2_GRIS{}
    
    OUVERTURE_LOCALE{}
    
    -- Si le guid n'a pas été généré à l'export, alors on le créé
    SI sGuid=? OU sGuid='' ALORS
    	sGuid := szGuid{}
    FIN SI
    
    copierApeVersAncApe{dossier.CodeDossier}
    
    RechIfBaseGI2Accessible{}
    
    
    --EXPORT DES CONTACTS DOSSIER SI LE DOSSIER N'A PAS ETE EXPORTE...(Ex : COPIER/COLLER DE DOSSIER)
    /*SI NON contactExportes ALORS
	ExportNouveauxContacts{}
FIN SI*/
    
    SI lireini{ racine{}+'\local\bin\coala.ini', 'CONFIGURATION', 'CONTACTS'}<>'1' ALORS
    	SI activationContacts <> FAUX ALORS
    		activationContacts := FAUX
    	FIN SI
    FIN SI
    SI activationContacts = FAUX ALORS
    	-- Associes
    	POUR TOUT associe FAIRE
    		SI associe.activationContacts <> activationContacts ALORS
    			associe.activationContacts := activationContacts
    		FIN SI
    	FIN FAIRE
    FIN SI
###
'FERMETURE' 'Evénements'
    --Création : 25/09/2000 15:39:57 TGU-THIERRY; Modification : 13/05/2015 09:24:03 llg-PC100391; 
    
    -- Si fermeture de la fenêtre DP d'une entite, c'est l'evenement FERMETURE de la classe Cabinet
    -- qui est appelé au lieu de l'evenement FERMETURE de la classe Dossier
    
    |
    	objLibrairieGI2<Objet>
    |
    
    objLibrairieGI2 ::= 'LibrairieGI2'
    objLibrairieGI2 := creer{'LibrairieGI2'}
    
    --SI estTouche{dossier} ALORS
    	SI sysInfo{'portHttp'} <> '0' ET etatCluster{repertoire + '\dp\dp'} = 'ouvert' ALORS
    		extraireContacts{}
    	FINSI
    --FINSI
    
    fermetureFenetreDossierGI{CodeDossier}
    
    abOuvertureBaseGI2Testee := FAUX
    abBaseGI2Accessible := FAUX
    
    FERMETURE_LOCALE{}
    
    objLibrairieGI2.TraiteWarningODBC{}
    get_Siret{} -- Pour forcer le touch sur le cluster Dossier et donc mettre a jour le fichier _dossiers_ lors du prochian shift Ouvrir
###
'typeTitres_LISTE' 'Evénements'
    --Modification : 02/05/2013 16:21:30 llg-PO36696; 
    
    
    SORTIR 'Actions
Parts sociales'
###
'nbTitres_MODIF' 'Evénements'
    --Création : 09/02/2000 14:36:04 COALA-THIERRY; Modification : 02/05/2013 16:21:30 llg-PO36696; 
    |
    oContact<Objet>
    ass<Objet>
    |
    ass ::= 'Associe'
    controlerCapital{}
    controlerCapitalEuro{}
    
    -- MODIF SCR 02/02/05
    POUR TOUT associe FAIRE
    	ass := associe
    	ass.nbTitres_MODIF{}
    FIN FAIRE
    
    SORTIR VRAI
###
'ValNomTitresEuro_MODIF' 'Evénements'
    --Création : 09/02/2000 14:36:04 COALA-THIERRY; Modification : 02/05/2013 16:21:30 llg-PO36696; 
    
    controlerCapitalEuro {}
    
    SORTIR VRAI
###
'valeurNominaleTitre_MODIF' 'Evénements'
    --Création : 09/02/2000 14:36:04 COALA-THIERRY; Modification : 02/05/2013 16:21:30 llg-PO36696; 
    controlerCapital {}
    
    SORTIR VRAI
###
'EXTRAIRE' 'Evénements'
    --Création : 12/07/1999 17:21:45 SL-THIERRY; Modification : 24/09/2014 10:44:35 mik-PC-016494; 
    
    | i <Entier> dte <Date> exo <Date> ok <Booléen> str <Chaine> CR <Chaine> |
    
    extraireContacts{}
    --------------------------------------------------------------------------------------
    lesExercices	:=	''
    i		:=	0
    CR		:=	'
'
    dte		:=	periode.fin
    
    TANT QUE exo = ? ET dte > 01.01.98 FAIRE
    	exo	:=	finExercice {dte}
    	dte	:=	dte - 30
    FIN FAIRE
    
    TANT QUE i < 3 FAIRE
    	SI exo > 01.01.1901  ALORS
    		lesExercices	+=	'' + exo + CR
    	FINSI
    	exo	:=	finExercice{ debutExercice { exo } -1}
    	i	+=	1
    FIN FAIRE
    ok	:=	dialogue {100, 400, 'transfert' ,'extraction_exo', 'Transfert d''un exercice' }
    SI NON ok ALORS
    	info {'Opération abandonnée, aucune extraction' }
    	SORTIR FAUX
    FINSI
    -----------------
    SI extraction_exo = ? ALORS
    	info {'Opération abandonnée, vous devez préciser l''exercice' }
    	SORTIR FAUX
    FINSI
    exo	:=	date{ extraction_exo }	
    SI transfert # 'P' ALORS
    	extraction_i	:=	'dp' + CR	+ 'dossier' + CR	+'contacts.json'
    	extraction_r	:=	''
    	SI finExercice { debutExercice { exo } -1 } <> ? ALORS
    		extraction_r	+=	'compta/' + strExo { debutExercice { exo } -1 } + CR
    	FINSI
    	SI finExercice { finExercice { exo } + 1 } <> ? ALORS
    		extraction_r	+=	'compta/' + strExo { exo + 1  } + CR
    	FINSI
    	extraction_r	+=	'compta/analytiq' + CR
    			+	'compta/etatsana' + CR
    
    	extraction_rw	:=	'compta/' + strExo { exo } 
    	extraction_rw	+=	CR + 'compta/rappro'
    --	+ CR +	'immos'
    SINON
    	extraction_i	:=	'dp' + CR	+ 'dossier' + CR	+'contacts.json'
    	extraction_r	:=	'compta'
    	extraction_rw	:=	'compta/' + strExo { exo }
    	extraction_rw	+=	CR + 'compta/rappro'
    FINSI
    
    SORTIR VRAI
###
'extraction_exo_LISTE' 'Evénements'
    --Création : 12/07/1999 17:31:35 SL-THIERRY; Modification : 02/05/2013 16:21:30 llg-PO36696; 
    SORTIR lesExercices
###
'Date_CLICK' 'Evénements'
    --Création : 01/09/2000 15:51:18 TGU-THIERRY; Modification : 02/05/2013 16:21:30 llg-PO36696; 
    triDos	:=	FAUX
    triDte	:=	VRAI
    triAppli	:=	FAUX
    affichage { VRAI }
###
'Heure_CLICK' 'Evénements'
    --Création : 01/09/2000 15:51:18 TGU-THIERRY; Modification : 02/05/2013 16:21:30 llg-PO36696; 
    triDos	:=	FAUX
    triDte	:=	VRAI
    triAppli	:=	FAUX
    affichage { VRAI }
###
'Appli_CLICK' 'Evénements'
    --Création : 04/09/2000 16:31:56 TGU-THIERRY; Modification : 02/05/2013 16:21:30 llg-PO36696; 
    triAppli	:=	VRAI
    triDos	:=	FAUX
    triDte	:=	FAUX
    affichage { VRAI }
###
'lstMessages_LISTE' 'Evénements'
    --Création : 31/08/2000 19:47:02 COALA-THIERRY; Modification : 02/05/2013 16:21:30 llg-PO36696; 
    |  obj <Objet>
    lstTemp <Liste> p2 <Entier> p3<Entier>|
    
    SI lstMessages = ? ALORS
    
    	lstMessages	:=	creerListe {}
    	messagesRep { dossier.repertoire + '/dp/bal/recus', 'R'}
    	messagesRep { dossier.repertoire + '/dp/bal/emis', 'E'}
    
    FINSI
    
    lstTemp		:=	lstMessages
    lstMessages	:=	creerListe {}
    
    SI triDte ALORS	
    	p2	:=	1
    	p3	:=	2
    FINSI
    SI triAppli ALORS	
    	p3	:=	1
    	p2	:=	2
    FINSI
    
    POUR TOUT element DE 'temporaire.lstTemp:Notification'
    
    TRI dateHeureTri POSITION p2
    TRI appli POSITION p3
    FAIRE
    	ajouterElement { lstMessages, element }
    --	message {element.dos}
    FIN FAIRE
    SORTIR lstMessages
###
'AIDE' 'Evénements'
    --Création : 27/03/2002 10:37:00 SJA-STEPHANEJ; Modification : 02/05/2013 16:21:30 llg-PO36696; 
    
    --commandeOS {racine {} +'\bin\keyhh -02gestiondossier ' +  racine {} + '\global\aide\gestDoss\aid.chm::/dossier.htm#dossier' }
    ouvrirAide{'gestDoss\aid.chm' , '/dossier.htm#dossier', '-02gestiondossier' }
###
'-----' 'Evénements'
    --Création : 29/04/2002 11:38:31 DME-DOMINIQUE-CPQ; Modification : 29/04/2002 11:38:31 DME-DOMINIQUE-CPQ;
###
'GAMMES_CONSEIL' 'Evénements'
    --Création : 25/04/2002 18:33:17 TNI	pc_coala2; Modification : 02/05/2013 16:21:30 llg-PO36696; 
    --Cette fonction a pour rôle de construire les objets d'interface  "DossierGescap" affichés dans l'éditeur Missions de conseil
    |ficIni<Chaine> rs<Objet> rs2<Objet> rs3<Objet> obj<Objet> gamme<Chaine> ws<Objet> cleApp<Chaine> lst<Objet>
    repertOutils<Chaine>driver<Chaine>dirPath<Chaine>|
    
    /* CODE OBSOLETE ON N'UTILISE PLUS OLE
------------- Verification de la mise a jour de la base de registre
driver	:=	reg {'HKEY_CLASSES_ROOT\CLSID\{00020467-0000-0000-C000-000000000046}\ProgID',''}
SI NON driver # 'coala.application.1' ALORS
status{'Installation de OLE COALA sur votre poste'}
dirPath	:= racine {} + '\global\print\excel\ole\'
editer {dirPath + 'coalaole.reg'}
status{'Fin d''iInstallation de OLE COALA sur votre poste'}
FIN SI
---------------Fin de verification
*/
    
    lst := creerListe{}
    --1/ Choisir l'application 
    ws := flotEcriture{}
    --Le fichier gescap.ini se trouve dans le répertoire Windows
    ficIni := racine{'os'}+'\gescap.ini' 
    SI infoFichier{ficIni}='absent' ALORS info{'Impossible de trouver le fichier gescap.ini sous '+racine{'os'}} SORTIR lst FINSI
    repertOutils := lireini{ficIni, 'Outils communs', 'RepertOutils'}
    SI taille{repertOutils}<=1 ALORS SORTIR lst FINSI
    ficIni := repertOutils+'\gcoala.ini'
    rs := flotLecture{lireini{ficIni, 'gammes','section'}}
    TANT QUE NON lectureFinie{rs} FAIRE
    gamme := lire{rs, ';'}
    rs2 :=  flotLecture{lireini{ficIni, gamme,'applis'}}
    TANT QUE NON lectureFinie{rs2} FAIRE
    cleApp := lire{rs2, ';'}
    rs3 := flotLecture{lireini{ficIni, gamme,cleApp}}
    obj := creer{'DossierGescap'}
    obj ::= 'DossierGescap'
    obj.programme := cleApp
    obj.codeDossierCoala := CodeDossier
    --Création 6;1;Creation;GCR
    obj.categorie := gamme
    obj.nom := lire{rs3, ';'}
    obj.presenceForcee := lire{rs3, ';'}='1'
    obj.application :=  minuscule{ lire{rs3, ';'}}
    obj.suffixe :=  lire{rs3, ';'}
    obj.compatibleCoala :=  lire{rs3, ';'}='1'
    obj.repertoireCoala := repertoire+'\conseil'
    obj.repertoireLancement := commandeGescap{cleApp}
    SI obj.repertoireLancement = ? ALORS obj.message := 'Attention, cette application n''est pas disponible sur ce poste' SINON obj.message := ' 'FINSI
    SI obj.presenceForcee OU obj.repertoireLancement <> ? ALORS ajouterElement{lst, obj}FINSI
    SI dossier!{'syncho_gescap_'+cleApp}booleen = ? ALORS dossier!{'syncho_gescap_'+cleApp}booleen :=  VRAI FINSI
    obj.synchrodp := dossier!{'syncho_gescap_'+cleApp}booleen
    FIN FAIRE
    FIN FAIRE
    SORTIR lst
###
'APPLICATIONS_CONSEIL' 'Evénements'
    --Création : 25/04/2002 18:33:17 TNI	pc_coala2; Modification : 02/05/2013 16:21:31 llg-PO36696; 
    --Cette fonction a pour rôle de construire les objets d'interface  "DossierGescap" affichés dans l'éditeur Missions de conseil
    |ficIni<Chaine> rs<Objet> rs2<Objet> rs3<Objet> obj<Objet> gamme<Chaine> ws<Objet> cleApp<Chaine> lst<Objet>
    repertOutils<Chaine>driver<Chaine>dirPath<Chaine>|
    
    ------------- Verification de la mise a jour de la base de registre
    driver	:=	reg {'HKEY_CLASSES_ROOT\CLSID\{00020467-0000-0000-C000-000000000046}\ProgID',''}
    SI NON driver # 'coala.application.1' ALORS
    status{'Installation de OLE COALA sur votre poste'}
    dirPath	:= racine {} + '\global\print\excel\ole\'
    editer {dirPath + 'coalaole.reg'}
    status{'Fin d''iInstallation de OLE COALA sur votre poste'}
    FIN SI
    ---------------Fin de verification
    
    lst := creerListe{}
    --1/ Choisir l'application 
    ws := flotEcriture{}
    repertOutils := recupRepOutilGescap{}
    SI taille{repertOutils}<=1 ALORS info{'Répertoire outil inconnu'} SORTIR lst FINSI
    ficIni := repertOutils+'\gcoala.ini'
    rs := flotLecture{lireini{ficIni, 'gammes','section'}}
    TANT QUE NON lectureFinie{rs} FAIRE
    gamme := lire{rs, ';'}
    rs2 :=  flotLecture{lireini{ficIni, gamme,'applis'}}
    TANT QUE NON lectureFinie{rs2} FAIRE
    cleApp := lire{rs2, ';'}
    rs3 := flotLecture{lireini{ficIni, gamme,cleApp}}
    debug{'cleApp = '+cleApp}
    obj := creer{'DossierGescap'}
    obj ::= 'DossierGescap'
    obj.programme := cleApp
    obj.codeDossierCoala := CodeDossier
    --Création 6;1;Creation;GCR
    obj.categorie := gamme
    obj.nom := lire{rs3, ';'}
    obj.presenceForcee := lire{rs3, ';'}='1'
    obj.application :=  minuscule{ lire{rs3, ';'}}
    obj.suffixe :=  lire{rs3, ';'}
    obj.compatibleCoala :=  lire{rs3, ';'}='1'
    obj.repertoireCoala := repertoire+'\conseil'
    obj.repertoireLancement := commandeGescap{cleApp}
    SI obj.repertoireLancement = ? ALORS obj.message := 'Attention, cette application n''est pas disponible sur ce poste' SINON obj.message := ' 'FINSI
    SI obj.presenceForcee OU obj.repertoireLancement <> ? ALORS ajouterElement{lst, obj}FINSI
    SI dossier!{'syncho_gescap_'+cleApp}booleen = ? ALORS dossier!{'syncho_gescap_'+cleApp}booleen :=  VRAI FINSI
    obj.synchrodp := dossier!{'syncho_gescap_'+cleApp}booleen
    FIN FAIRE
    FIN FAIRE
    SORTIR lst
###
'OUVRIRBUDGET' 'Evénements'
    --Création : 16/06/2003 09:52:20 llg-LAURENT; Modification : 17/12/2013 09:32:14 ylv-PC100383; 
    
    |
    	ed<Objet>objBudgets2Loc<Objet>objLibrairieGI2<Objet>
    |
    
    objLibrairieGI2 ::= 'LibrairieGI2'
    objLibrairieGI2 := creer{'LibrairieGI2'}

    ed ::= 'Editeur'
    
    SI aObjBudgets2 <> ? ALORS
    	ed := editeur{aObjBudgets2}
    	SI ed <> ? ALORS
    		ed.ouvrir
    		SORTIR FAUX
    	FIN SI
    FIN SI
    
    objBudgets2Loc ::= 'Budgets2'
    aObjBudgets2  := creer{'Budgets2'}
    
    objBudgets2Loc := aObjBudgets2
    objBudgets2Loc.ouvrirBudgetsTempsUnDossier{CodeDossier, FAUX}
    
    SORTIR VRAI
###
'CATEGORIES' 'Evénements'
    --Création : 18/09/2003 18:05:48 DME-DOMINIQUE; Modification : 02/05/2013 16:21:31 llg-PO36696; 

    |liste<Chaine>|

    liste := '1Dossier Permanent
0Gestion Interne
0DAS2...
0Liasse IFU
0Revenus Capitaux Mobiliers
0Revenus Capitaux Mobiliers Simplifié
0Revenus Capitaux Mobiliers - Formulaire Unique
0DSI...
0Import / Export'
    
	SI enDev {'Compta'} = VRAI ALORS
    	liste += '
0Tests'
	FINSI
	SORTIR liste 
    --1Infolib'
###
'AJOUTER_ETAT' 'Evénements'
    --Création : 19/09/2003 10:54:25 DME-DOMINIQUE; Modification : 03/10/2014 15:54:45 ant-PC038051; 
    --Modification : 18/09/2003 18:48:18 DME-DOMINIQUE; 
    
    |
    	lst<Objet> cats<Objet> of<Objet> rs<Objet> etatExistant<Objet> n<Objet> dico<Objet> nds<Objet> 
    	aAjouter<Objet> corresp<Objet> nouvelEtat<Objet>
    	b<Entier> i<Entier> iaj<Entier>
    	CR<Chaine> rep<Chaine> categs<Chaine>
    	trouve<Booléen> anneeCourante<Entier> tmpAnnee<Entier> lstAncienMil<Objet> n2<Objet> nd<Objet>
    	maColl<Objet> chope<Booléen> libelleEtat<Chaine> monIndice<Entier>
    	tmpListe<Objet>
    |
    
    CR := '
'
    nds		:=	creerListe{}
    corresp	:=	creerDictionnaire{}
    dico		:=	creerDictionnaire{}
    cats		:=	creerListe{}
    of		:=	creerListe{}
    lstAncienMil := creerListe{}
    
    classe	::=	'EtatDossier'
    lst	:=	classe.toutesSousClasses
    categs :=	CATEGORIES{}
    
    -- Mise en commentaire de la condition jusqu'à utilisation de la clé
    SI (droits{'Infolib'} > 0) ALORS
    	categs += '
0LexisNexis'
    FINSI
    SI droits{'Agricole'} > 0 ALORS
    	categs += '
0Agricole'
    FINSI

    categs += '
0Anciens millésimes...'
    rs := flotLecture{categs}   
    
    TANT QUE NON lectureFinie{rs} FAIRE
    	SI  lire{rs, 1} = '1' ALORS 
    		b := 1 
    	SINON 
    		b := 0 
    	FIN SI
    	ajouterElement{of,b}
    	ajouterElement{cats, lire{rs, CR}}
    FIN FAIRE
    
    i := 1
    TANT QUE i <= nbElements{cats} FAIRE
    	n := creerNoeud{chaine{elementDIndice{cats, i}}, creer{'EtatDossier'}, elementEntierDIndice{of, i} = 1}
    	ajouterElement{nds, n}
    	cleValeur{dico, chaine{elementDIndice{cats, i}},n}
    	i += 1
    FIN FAIRE
    
    POUR TOUT element <EtatDossier> DE lst 
    TRI numero
    TRI categorie
    FAIRE

		trouve	:=	FAUX

		libelleEtat := ''+element
		
    	SI element.categorie # 'DAS2*' OU element.categorie # 'Liasse IFU*'
    	OU element.categorie # 'Revenus Capitaux Mobiliers*' 
    	OU element.categorie # 'DSI*'  
    	ALORS
    		anneeCourante	:=	annee{aujourdhui{}}

    		monIndice := indiceDUn{libelleEtat, '_'}
    		monIndice += 1

    		-- Recherche de l'année de l'état
	    	SI element.categorie # 'DAS2*' ALORS
	    		SI libelleEtat # 'DAS2T*' OU libelleEtat # 'Dematerialisation_DAS*' ALORS	    	        		
    				SI libelleEtat # 'Dematerialisation_DAS' ALORS
						tmpAnnee := 2000+entier{chaine{libelleEtat, taille{libelleEtat}-1, taille{libelleEtat}}}
					SINON
			    		tmpListe    :=  capturer{libelleEtat, '^DAS2T_([0-9]+)$'}
		    		    tmpAnnee	:=	entier{chaine{tmpListe.[1]}}
		    		FIN SI
    		    SINON
    		    	SI libelleEtat # '2460_2*' ALORS	    	        		
	    				tmpListe    :=  capturer{libelleEtat,  '^2460_2_([0-9]+)$'}
    		    		tmpAnnee	:=	entier{chaine{tmpListe.[1]}}
						SI tmpAnnee = 0 ALORS   -- Mettre la 2460_2 (sans millésime) dans les "Anciens millésimes..."
							tmpAnnee := 1
						FIN SI	
    		    	FINSI
    		    FINSI	   		   		        		    	
	    	SINON
	    	    SI element.categorie # 'DSI*' ALORS
	    	    	tmpListe	:=	capturer{libelleEtat, '([0-9]+)$'}
    		        tmpAnnee	:=	entier{chaine{tmpListe.[1]}}		
	    	    SINON
		    		SI element.categorie # 'Liasse IFU*' ALORS
	    				SI libelleEtat # 'Dematerialisation_IFU' ALORS
							tmpAnnee := 2000+entier{chaine{libelleEtat, taille{libelleEtat}-1, taille{libelleEtat}}}		
						SINON
							tmpAnnee := 2000+entier{chaine{libelleEtat, monIndice, monIndice+1}}
	    				FINSI  			
					SINON
						SI element.categorie # 'Revenus Capitaux Mobiliers*' ALORS
			    			tmpAnnee := 2000+entier{chaine{libelleEtat, monIndice, monIndice+1}}
						SINON
							SI element.categorie # 'DSI*' ALORS
		    					tmpAnnee := entier{chaine{libelleEtat, taille{libelleEtat}-3, taille{libelleEtat}}}	
		    				FIN SI	
		    			FIN SI						
		    		FIN SI
	    		FIN SI
	    	FIN SI

	    	-- Création des noeuds pour les anciens millésimes
    		SI (anneeCourante - tmpAnnee) > 1 ET tmpAnnee <> 0 ALORS
    			trouve	:=	VRAI
    			n := cleValeur{dico, 'Anciens millésimes...'}
    			element!{'EstCoche'}booleen := FAUX    			

    			SI n <> ? ALORS 
    				SI indiceElement{lstAncienMil, element.categorie+' Anciens millésimes'} < 1 ET element.categorie <> ? ALORS
    					ajouterElement{lstAncienMil, element.categorie+' Anciens millésimes'}
    					n2 := creerNoeud{element.categorie+' Anciens millésimes', element, n}
    				SINON
    					n	::=	'Noeud'
    					nd	::=	'Noeud'
    					maColl	:=	n.fils
    					i	:=	1
    					chope	:=	FAUX
    					TANT QUE i <= nbElements{maColl} ET NON chope FAIRE
    						nd	:=	elementDIndice{maColl, i}   						
    						SI nd.nom = element.categorie+' Anciens millésimes' ALORS
    							n2	:=	nd
    							chope	:=	VRAI
    						FIN SI
    						i+=1
    					FIN FAIRE
    				FIN SI		
    				SI n2 <> ? ALORS
    					creerNoeud{substituerCaracteres{''+element, '_', ' '}, element, n2} 
    				FIN SI
    			FINSI
    		FIN SI
    	FIN SI

	    SI NON trouve ALORS	
	    	SI element.categorie <> ? ET element.numero > 0 ALORS
	    		n := cleValeur{dico, element.categorie}
	    		element!{'EstCoche'}booleen := FAUX 
	    		--cleValeur{corresp, substituerCaracteres{''+element, '_', ' '}, element}
	    		cleValeur{corresp, ''+element, element}
	    		SI n <> ? ALORS 
	    			SI (''+element)='AGAgricoleAnnuelle' ALORS
	    				SI droits{'Agricole'} > 0 ALORS
	    					creerNoeud{substituerCaracteres{''+element, '_', ' '}, element, n} 
	    				FINSI
	    			SINON
	    				SI element.categorie # 'DSI...' ET classe{element} # 'Déclaration' ALORS
	    					creerNoeud{'Déclaration Sociale des Indépendants', element, n}
	    				SINON
	    					creerNoeud{substituerCaracteres{''+element, '_', ' '}, element, n} 
	    				FINSI
	    			FINSI
	    		FIN SI
	    	FIN SI
    	FINSI
    FIN FAIRE
    
    --Suppression des catégories vides
    i	:=	1
    n	::=	'Noeud'
    
    TANT QUE i <= nbElements{nds} FAIRE
    	n	:=	elementDIndice{nds, i}
    
    	SI nbElements{n.fils} = 0 ALORS 
    		supprimerElement{nds, i} 
    	SINON 
    		i	+=	1 
    	FIN SI
    FIN FAIRE 
    
    aAjouter	:=	choixArbre{'Cochez les éléments désirés                                                                 ', nds} 
    document	::=	'EtatDossier'
    nouvelEtat	::=	'EtatDossier'
    iaj		:=	1
    trouve := FAUX
    
    TANT QUE iaj <= nbElements{aAjouter} FAIRE
    	SI classe{elementDIndice{aAjouter, iaj} } = 'Classe' ALORS
    		rep				:=	''	+	elementDIndice{aAjouter, iaj} 

    		SI rep # '*2777*U' ET date{31, entier{chaine{editeur.dateSelectionnee, 1, 2}}, entier{chaine{editeur.dateSelectionnee, 4, 5}}} < date{01, 09, 2018} ALORS
    			info{'RCM Formulaire unique : entrée en vigueur le 3 septembre 2018, vous devez vous positionner sur une période postérieure au mois d''août 2018.'}
	    		trouve	:=	VRAI
    		SINON
	    		SI (rep # 'Liasse*2777*' ET NON rep # '*2777*U' ) ET date{31, entier{chaine{editeur.dateSelectionnee, 1, 2}}, entier{chaine{editeur.dateSelectionnee, 4, 5}}} > date{31, 08, 2018} ALORS
	    			info{'A compter de l''échéance du mois d''octobre 2018, vous devez déclarer les revenus de capitaux mobiliers, prélèvement et retenue à la source à l''aide du formulaire unique 2777U.'}
	    			trouve	:=	VRAI
	    		SINON
					SI  rep # 'Liasse_24_2777_U' ET date{31, entier{chaine{editeur.dateSelectionnee, 1, 2}}, entier{chaine{editeur.dateSelectionnee, 4, 5}}} <= date{31,12,2023} ALORS
		    			info{'Vous ne pouvez pas utiliser le millésime 2024 sur une période antérieure au 01/01/2024.'}
		    			trouve	:=	VRAI
	    			SINON
						SI  rep # 'Liasse_23_2777_U' ET date{31, entier{chaine{editeur.dateSelectionnee, 1, 2}}, entier{chaine{editeur.dateSelectionnee, 4, 5}}} <= date{31,12,2022} ALORS
							info{'Vous ne pouvez pas utiliser le millésime 2023 sur une période antérieure au 01/01/2023.'}
							trouve	:=	VRAI
						SINON
							SI rep # 'Liasse_22_2777_U' ET date{31, entier{chaine{editeur.dateSelectionnee, 1, 2}}, entier{chaine{editeur.dateSelectionnee, 4, 5}}} <= date{31,12,2021} ALORS
								info{'Vous ne pouvez pas utiliser le millésime 2022 sur une période antérieure au 01/01/2022.'}
								trouve	:=	VRAI
							SINON
								SI rep # 'Liasse_21_2777_U' ET date{31, entier{chaine{editeur.dateSelectionnee, 1, 2}}, entier{chaine{editeur.dateSelectionnee, 4, 5}}} <= date{31,12,2020} ALORS
									info{'Vous ne pouvez pas utiliser le millésime 2021 sur une période antérieure au 01/01/2021.'}
									trouve	:=	VRAI
								SINON
									SI rep # 'Liasse_20_2777_U' ET date{31, entier{chaine{editeur.dateSelectionnee, 1, 2}}, entier{chaine{editeur.dateSelectionnee, 4, 5}}} <= date{31,12,2019} ALORS
										info{'Vous ne pouvez pas utiliser le millésime 2020 sur une période antérieure au 01/01/2020.'}
										trouve	:=	VRAI
									SINON
										SI rep # 'Liasse_19_2777_U' ET date{31, entier{chaine{editeur.dateSelectionnee, 1, 2}}, entier{chaine{editeur.dateSelectionnee, 4, 5}}} <= date{31,12,2018} ALORS
											info{'Vous ne pouvez pas utiliser le millésime 2019 sur une période antérieure au 01/01/2019.'}
											trouve	:=	VRAI
										FIN SI
									FIN SI
								FIN SI
							FINSI
						FINSI
					FINSI
	    		FINSI
	    	FIN SI

    		SI NON trouve ALORS
    		document			+:=	'gestionDossier.EtatDossier'
    		nouvelEtat			:=	document
    		nouvelEtat.nomClasse	:=	'' + elementDIndice{aAjouter, iaj} 
    		rep				:=	substituerCaracteres{''+elementDIndice{aAjouter, iaj} , '_', ' '}
    		etatExistant			:=	?
    		etatExistant			::=	'EtatDossier'
    
    		POUR TOUT element<EtatDossier> DE dossier.etats FAIRE 
    			SI element.NOM = rep ET element ~= nouvelEtat ALORS 
    				etatExistant	:=	element 
    			FIN SI 
    		FIN FAIRE
    
    		i	:=	1
    
    		TANT QUE etatExistant <> ? ET i < 100 FAIRE 
    			rep		:=	substituerCaracteres{'' + elementDIndice{aAjouter, iaj} , '_', ' '} + ' ' + i 
    
    			SI rep # 'Déclaration Salarié' ALORS
    				rep	:=	'Déclaration Sociale des Indépendants' + ' ' + i 
    			FINSI
    
    			i		+=	1 	
    			etatExistant	:=	?
    
    			POUR TOUT element<EtatComptable> DE dossier.etats FAIRE 
    				SI element.NOM = rep ALORS 
    					etatExistant	:=	element 
    				FIN SI 
    			FIN FAIRE
    		FIN FAIRE
    
    		nouvelEtat.NOM	:=	rep
    		nouvelEtat.INITIALISER{}
    		elementDIndice{aAjouter, iaj, nouvelEtat}

    		FIN SI
    	FIN SI
    	iaj	+=	1
    FIN FAIRE
    
    SORTIR aAjouter
###
'SELECTION' 'Evénements'
    --Création : 13/05/2002 16:46:26 scr-DAVID; Modification : 29/04/2015 14:45:40 llg2-PC100391; 
    
    --Sur clic d'un dossier, initialisation des onglets
    
    |
    	ed<Objet>adm<Booléen>ongs<Objet>objLibrairieGI2<Objet>
    |
    
    objLibrairieGI2 ::= 'LibrairieGI2'
    objLibrairieGI2 := creer{'LibrairieGI2'}
    collaborateur	::=	''
    
    --Pour  nouvel éditeur dossier permanent
    SI (''+editeur{VRAI})#'*editeurCoala*' ALORS
    	SI editeur.titreObjets # '*synthétiques*' ALORS 
    		ongs := creerListe{}
    		editeur.avecOnglets := VRAI
    		ajouterElement{ongs, 'Générales'}
    		ajouterElement{ongs, 'Juridiques'}
    		ajouterElement{ongs, 'Fiscales'}
    		ajouterElement{ongs, 'Sociales & TNS'}
    		ajouterElement{ongs, 'Zones Libres'}
    		ajouterElement{ongs, 'Informations Facturation...'}
    		ajouterElement{ongs, 'Lettre de missions'}
    		
    		SI enDev{'BI'} ALORS
    			ajouterElement{ongs, 'Stratégie'}
    		FIN SI
    		ajouterElement{ongs, 'Collaborateur'}
    		SI enDev{'LLGContacts'} OU minuscule{collaborateur.profil} = 'systeme' ALORS
    			ajouterElement{ongs, 'Maintenance'}
    		FIN SI 
    		editeur.listeOnglets := ongs
    	SINON
    		editeur.avecOnglets := FAUX
    	FINSI
    FINSI
    
    expertComptableSignataireAvecNom := szRenvNomCodeCollaboWithCode{expertComptableSignataire}
    responsableDossierAvecNom := szRenvNomCodeCollaboWithCode{responsableDossier}
    
    fixerTiroirsSpecifiques{}
    SELECTIONIFRS{}
    
    ed ::= 'Editeur'
    ed := editeur{VRAI}
    fichierEcriture {racine {} +'/local/bases/majgi/dossiers/' + CodeDossier }
    fichierEcriture {}
    
    calculCumuls {}
    
    -- JCR : 19/09/2004
    SI lireini{ racine{}+'\local\bin\coala.ini', 'CONFIGURATION', 'CONTACTS'}='1' ALORS
    	adm := droitsUtilisateur{'Administration'}=2
    	--dossier.{'Activer/désactiver la gestion des contacts_gris'}booleen := FAUX
    	SI activationContacts=? OU activationContacts=FAUX ALORS
    		dossier.{'Assistant de migration des contacts_gris'}booleen := VRAI
    		dossier.{'Activer la gestion des contacts_gris'}booleen := FAUX
    	SINON			
    		dossier.{'Assistant de migration des contacts_gris'}booleen := FAUX
    		dossier.{'Activer la gestion des contacts_gris'}booleen := VRAI
    	FIN SI
    	-- On ne peut desactiver les contacts que si on est Admin
    	-- C'est une opération de maintenance
    	/*SI adm ALORS
		dossier.{'Désactiver la gestion des contacts_gris'}booleen := FAUX
	SINON
		dossier.{'Désactiver la gestion des contacts_gris'}booleen := VRAI
	FIN SI*/
    SINON
    	dossier.{'Activer la gestion des contacts_gris'}booleen := VRAI
    	--dossier.{'Désactiver la gestion des contacts_gris'}booleen := VRAI
    	dossier.{'Assistant de migration des contacts_gris'}booleen := VRAI
    FIN SI
    
    SI lireini{racine{}+'\local\bin\coala.ini', 'GI', 'GIEVO'} = '1' ALORS
    	dossier.{'Voir le compte client (gestion cabinet)_gris'}booleen := FAUX
    	Générer_les_fichiers_BU_et_LI_Gestion_Cabinet_gris := FAUX
    	dossier.{'Prelevement_gris'}booleen := VRAI
    SINON
    	dossier.{'Voir le compte client (gestion cabinet)_gris'}booleen := VRAI
    	Générer_les_fichiers_BU_et_LI_Gestion_Cabinet_gris := VRAI
    FIN SI
    
    --fpo 01/02/2007 -> Lettre de mission grisé si pas les droits because primitive droitUtilisateur mal codé
    objLibrairieGI2.bTesterAvantOuvrirSqlSrvr{FAUX, FAUX}
    SI objLibrairieGI2.abOk = VRAI ALORS 
    	dossier.{'Lettre de mission_gris'}booleen := FAUX
    SINON
    	dossier.{'Lettre de mission_gris'}booleen := VRAI
    FINSI



    bLoadDatasDonneesBancairesGesCab{}
    
    SELECTION_LOCALE{}
###
'nomEtablissement_MODIF' 'Evénements'
    --Création : 14/10/1999 09:58:54 JI-?; Modification : 02/05/2013 16:21:31 llg-PO36696; 
    
    SORTIR VRAI
###
'dateOuverture_GRIS' 'Evénements'
    --Création : 08/04/2005 09:41:00 jis-ISINGRINIJE; Modification : 02/05/2013 16:21:31 llg-PO36696;
    SORTIR VRAI
###
'dateFermeture_GRIS' 'Evénements'
    --Création : 08/04/2005 09:41:00 jis-ISINGRINIJE; Modification : 02/05/2013 16:21:31 llg-PO36696;
    SORTIR VRAI
###
'CREER_ESPACE_IMMOS' 'Evénements'
    --Création : 12/09/2005 17:00:19 scr-TANGUY-SO; Modification : 12/09/2014 11:13:19 scr-PC101399; 
    
    |
    	rep<Booléen>
    |
    
    --info{'Ce module n''est pas encore disponible.'}
    --SORTIR FAUX
    
    SI sysInfo{'noyau'} = 'C#' ALORS
    	info{'Vos immobilisations vont basculer dans le module Investissements & Financements.'}
    SINON
    	rep	:=	ouiNon{'Vous allez passer dans le module des nouvelles immobilisations. Souhaitez-vous continuer ?'}
    	SI rep ALORS
    		SORTIR VRAI
    	SINON
    		SORTIR FAUX
    	FIN SI
    FINSI
    
    SORTIR VRAI
###
'zone1_LIBELLE' 'Evénements'
    --Création : 16/10/2006 09:53:01 jcr-CLRAN3; Modification : 02/05/2013 16:21:31 llg-PO36696; 
    SORTIR getLibelleCalcule{'zone1', 'Zone libre 1 :'}
###
'ATTRIBUT_MODIF' 'Evénements'
{nomVariableModifiee <Chaine> maDate <Date> ancienneValeur <Chaine> nouvelleValeur <Chaine>}
	notifierModificationMajGI{CodeDossier}
	SORTIR VRAI
###
'LoadDatasDonneesBancairesGesCabCodeEntite' 'GestionCabinet'
{objDossier2Arg <Objet>}
    --Création : 17/09/2013 09:45:44 ylv-PC100383; Modification : 23/09/2013 07:38:14 ylv-PC100383; 
    
    
    |
    	objDossier2<Objet>objTablesGI2<Objet>objDosLoc<Objet>
    	szCodeEntiteLoc<Chaine>
    |
    
    objDossier2 ::= 'Dossier2'
    objDossier2 := objDossier2Arg
    objTablesGI2 ::= 'TablesGI2'
    objTablesGI2 := creer{'TablesGI2'}
    objDosLoc ::= 'TableDossiers'
    objDosLoc := creer{'TableDossiers'}
    
    SI bOuvrirBaseGI2ForRUMSepa{FAUX, FAUX, FAUX} = VRAI ALORS
    	objDosLoc := objTablesGI2.objRechEnregDossiersWithNom{aszEntiteFacturationSelect}
    	SI objDosLoc.szDosDos = '' OU objDosLoc.szDosDos = ? ALORS
    		szCodeEntiteLoc := ''
    	SINON
    		szCodeEntiteLoc := objDosLoc.szDosDos
    	FIN SI
    
    	objDossier2.aszCodeEntiteDoss2 := szCodeEntiteLoc
    	objDossier2.aszCodeDossierDoss2 := CodeDossier
    FIN SI
###
'LoadDatasDonneesBancairesGesCabWithEntite' 'GestionCabinet'
    --Création : 17/09/2013 09:45:44 ylv-PC100383; Modification : 23/09/2013 11:13:57 ylv-PC100383; 
    
    |
    	objDossier2<Objet>
    |
    
    objDossier2 ::= 'Dossier2'
    objDossier2 := creer{'Dossier2'}
    
    LoadDatasDonneesBancairesGesCabCodeEntite{objDossier2}
    
    SI abBaseGI2AccessibleForRUMSepa = VRAI ALORS
    	objDossier2.LoadDatasDonneesBancaires{}
    
    	LoadDatasDonneesBancairesGesCabFromDossier2{objDossier2}
    FIN SI
###
'avDateSignatureMandatPaye_MODIF' 'GestionCabinet'
    --Création : 28/06/2013 13:56:23 aaa-PC100383; Modification : 23/12/2013 07:32:58 ylv-PC100383; 
    
    |
    	objDossier2<Objet>
    |
    
    objDossier2 ::= 'Dossier2'
    objDossier2 := creer{'Dossier2'}
    
    LoadDatasDonneesBancairesGesCabCodeEntite{objDossier2}
    
    SI abBaseGI2AccessibleForRUMSepa = VRAI ALORS
    	LoadDatasDonneesBancairesGesCabOnDossier2{objDossier2}
    
    	objDossier2.avDateSignatureMandatPaye_MODIF{}
    	SI objDossier2.abOkDoss2 = VRAI ALORS
    		LoadDatasDonneesBancairesGesCabFromDossier2{objDossier2}
    	FIN SI
    	SORTIR objDossier2.abOkDoss2
    FIN SI
    
    SORTIR FAUX
###
'avDateSignatureMandatGesCab_MODIF' 'GestionCabinet'
    --Création : 28/06/2013 13:56:23 aaa-PC100383; Modification : 23/12/2013 07:32:18 ylv-PC100383; 
    
    |
    	objDossier2<Objet>
    |
    
    objDossier2 ::= 'Dossier2'
    objDossier2 := creer{'Dossier2'}
    
    LoadDatasDonneesBancairesGesCabCodeEntite{objDossier2}
    
    SI abBaseGI2AccessibleForRUMSepa = VRAI ALORS
    	LoadDatasDonneesBancairesGesCabOnDossier2{objDossier2}
    
    	objDossier2.avDateSignatureMandatGesCab_MODIF{}
    	SI objDossier2.abOkDoss2 = VRAI ALORS
    		LoadDatasDonneesBancairesGesCabFromDossier2{objDossier2}
    	FIN SI
    	SORTIR objDossier2.abOkDoss2
    FIN SI
    
    SORTIR FAUX
###
'aszNumeroMandatPaye_MODIF' 'GestionCabinet'
{vDateArg <Date> szOldValArg <Chaine> szNewValArg <Chaine>}
    --Création : 28/06/2013 13:56:23 aaa-PC100383; Modification : 19/12/2013 12:02:07 ylv-PC100383; 
    
    
    |
    	objDossier2<Objet>vDateArgLoc<Date>
    |
    
    objDossier2 ::= 'Dossier2'
    objDossier2 := creer{'Dossier2'}
    
    vDateArgLoc := vDateArg
    
    SI abBaseGI2AccessibleForRUMSepa = VRAI ALORS
    	SI szRenvoieTesterChaineVide{szOldValArg} <> szRenvoieTesterChaineVide{szNewValArg} ALORS
    		LoadDatasDonneesBancairesGesCabCodeEntite{objDossier2}
    		SI abBaseGI2AccessibleForRUMSepa = VRAI ALORS
    			LoadDatasDonneesBancairesGesCabOnDossier2{objDossier2}
    
    			objDossier2.aszNumeroMandatPaye_MODIF{vDateArgLoc, szOldValArg, szNewValArg}
    			SI objDossier2.abOkDoss2 = VRAI ALORS
    				LoadDatasDonneesBancairesGesCabFromDossier2{objDossier2}
    			FIN SI
    			SORTIR objDossier2.abOkDoss2
    		FIN SI
    	SINON
    		SORTIR VRAI
    	FIN SI
    FIN SI
    
    SORTIR FAUX
###
'aszNumeroMandatPaye_CLICKDROIT' 'GestionCabinet'
    --Création : 17/09/2013 10:58:27 ylv-PC100383; Modification : 23/09/2013 11:14:42 ylv-PC100383; 
    
    |
    	objDossier2<Objet>bOkLoc<Booléen>
    |
    
    objDossier2 ::= 'Dossier2'
    objDossier2 := creer{'Dossier2'}
    
    LoadDatasDonneesBancairesGesCabCodeEntite{objDossier2}
    
    SI abBaseGI2AccessibleForRUMSepa = VRAI ALORS
    	LoadDatasDonneesBancairesGesCabOnDossier2{objDossier2}
    
    	bOkLoc := objDossier2.aszNumeroMandatPaye_CLICKDROIT{}
    	SI bOkLoc = VRAI ALORS
    		LoadDatasDonneesBancairesGesCabFromDossier2{objDossier2}
    	FIN SI
    	SORTIR bOkLoc
    FIN SI
    
    SORTIR FAUX
###
'aszNumeroMandatGesCab_MODIF' 'GestionCabinet'
{vDateArg <Date> szOldValArg <Chaine> szNewValArg <Chaine>}
    --Création : 28/06/2013 13:56:23 aaa-PC100383; Modification : 19/12/2013 12:01:31 ylv-PC100383; 
    
    
    |
    	objDossier2<Objet>vDateArgLoc<Date>
    |
    
    objDossier2 ::= 'Dossier2'
    objDossier2 := creer{'Dossier2'}
    
    vDateArgLoc := vDateArg
    
    SI abBaseGI2AccessibleForRUMSepa = VRAI ALORS
    	SI szRenvoieTesterChaineVide{szOldValArg} <> szRenvoieTesterChaineVide{szNewValArg} ALORS
    		LoadDatasDonneesBancairesGesCabCodeEntite{objDossier2}
    		SI abBaseGI2AccessibleForRUMSepa = VRAI ALORS
    			LoadDatasDonneesBancairesGesCabOnDossier2{objDossier2}
    
    			objDossier2.aszNumeroMandatGesCab_MODIF{vDateArgLoc, szOldValArg, szNewValArg}
    			SI objDossier2.abOkDoss2 = VRAI ALORS
    				LoadDatasDonneesBancairesGesCabFromDossier2{objDossier2}
    			FIN SI
    			SORTIR objDossier2.abOkDoss2
    		FIN SI
    	SINON
    		SORTIR VRAI
    	FIN SI
    FIN SI
    
    SORTIR FAUX
###
'aszNumeroMandatGesCab_CLICKDROIT' 'GestionCabinet'
    --Création : 17/09/2013 10:58:27 ylv-PC100383; Modification : 23/09/2013 11:17:06 ylv-PC100383; 
    
    |
    	objDossier2<Objet>bOkLoc<Booléen>
    |
    
    objDossier2 ::= 'Dossier2'
    objDossier2 := creer{'Dossier2'}
    
    LoadDatasDonneesBancairesGesCabCodeEntite{objDossier2}
    
    SI abBaseGI2AccessibleForRUMSepa = VRAI ALORS
    	LoadDatasDonneesBancairesGesCabOnDossier2{objDossier2}
    
    	bOkLoc := objDossier2.aszNumeroMandatGesCab_CLICKDROIT{}
    	SI bOkLoc = VRAI ALORS
    		LoadDatasDonneesBancairesGesCabFromDossier2{objDossier2}
    	FIN SI
    	SORTIR bOkLoc
    FIN SI
    
    SORTIR FAUX
###
'aszLstInformationsBancairesDossier_MODIF' 'GestionCabinet'
    --Création : 17/09/2013 10:58:27 ylv-PC100383; Modification : 23/09/2013 07:43:52 ylv-PC100383; 
    
    |
    	objDossier2<Objet>
    |
    
    objDossier2 ::= 'Dossier2'
    objDossier2 := creer{'Dossier2'}
    
    LoadDatasDonneesBancairesGesCabCodeEntite{objDossier2}
    
    SI abBaseGI2AccessibleForRUMSepa = VRAI ALORS
    	LoadDatasDonneesBancairesGesCabOnDossier2{objDossier2}
    
    	SORTIR objDossier2.aszLstInformationsBancairesDossier_MODIF{}
    FIN SI
    
    SORTIR FAUX
###
'aszLstInformationsBancairesDossier_LISTE' 'GestionCabinet'
    --Création : 09/05/2005 16:59:56 ylv-YLVDELL; Modification : 17/09/2013 10:53:29 ylv-PC100383; 
    |
    	objLibraSaisieGI2Loc<Objet>
    |
    
    objLibraSaisieGI2Loc ::= 'LibraSaisieGI2'
    objLibraSaisieGI2Loc := creer{'LibraSaisieGI2'}
    
    objLibraSaisieGI2Loc.szRenvListeInformationsBancaires{}
    
    SORTIR objLibraSaisieGI2Loc.aszListeInformationsBancaires
###
'abMandatPonctuelPaye_MODIF' 'GestionCabinet'
    --Création : 17/09/2013 10:58:27 ylv-PC100383; Modification : 23/12/2013 08:09:50 ylv-PC100383; 
    
    |
    	objDossier2<Objet>
    |
    
    objDossier2 ::= 'Dossier2'
    objDossier2 := creer{'Dossier2'}
    
    LoadDatasDonneesBancairesGesCabCodeEntite{objDossier2}
    
    SI abBaseGI2AccessibleForRUMSepa = VRAI ALORS
    	LoadDatasDonneesBancairesGesCabOnDossier2{objDossier2}
    	
    	objDossier2.abMandatPonctuelPaye_MODIF{}
    	SI objDossier2.abOkDoss2 = VRAI ALORS
    		LoadDatasDonneesBancairesGesCabFromDossier2{objDossier2}
    	FIN SI
    	SORTIR objDossier2.abOkDoss2
    FIN SI
    
    SORTIR FAUX
###
'abMandatPonctuelGesCab_MODIF' 'GestionCabinet'
    --Création : 17/09/2013 10:58:27 ylv-PC100383; Modification : 23/12/2013 08:10:01 ylv-PC100383; 
    
    |
    	objDossier2<Objet>
    |
    
    objDossier2 ::= 'Dossier2'
    objDossier2 := creer{'Dossier2'}
    
    LoadDatasDonneesBancairesGesCabCodeEntite{objDossier2}
    
    SI abBaseGI2AccessibleForRUMSepa = VRAI ALORS
    	LoadDatasDonneesBancairesGesCabOnDossier2{objDossier2}
    
    	objDossier2.abMandatPonctuelGesCab_MODIF{}
    	SI objDossier2.abOkDoss2 = VRAI ALORS
    		LoadDatasDonneesBancairesGesCabFromDossier2{objDossier2}
    	FIN SI
    	SORTIR objDossier2.abOkDoss2
    FIN SI
    
    SORTIR FAUX
###
'LoadDatasDonneesBancairesGesCabFromDossier2' 'GestionCabinet'
{objDossier2Arg <Objet>}
    --Création : 23/09/2013 11:12:55 ylv-PC100383; Modification : 23/09/2013 11:13:38 ylv-PC100383; 
    
    
    |
    	objDossier2<Objet>
    |
    
    objDossier2 ::= 'Dossier2'
    objDossier2 := objDossier2Arg
    
    aszLstInformationsBancairesDossier := objDossier2.aszLstInformationsBancairesDossier
    aszNomBanqueGesCab := objDossier2.aszNomBanqueGesCab
    aszCodeBicGesCab := objDossier2.aszCodeBicGesCab
    aszIbanGesCab := objDossier2.aszIbanGesCab
    aszNumeroMandatGesCab := objDossier2.aszNumeroMandatGesCab
    avDateSignatureMandatGesCab := objDossier2.avDateSignatureMandatGesCab
    abMandatPonctuelGesCab := objDossier2.abMandatPonctuelGesCab
    aszNomBanquePaye := objDossier2.aszNomBanquePaye
    aszCodeBicPaye := objDossier2.aszCodeBicPaye
    aszIbanPaye := objDossier2.aszIbanPaye
    aszNumeroMandatPaye := objDossier2.aszNumeroMandatPaye
    avDateSignatureMandatPaye := objDossier2.avDateSignatureMandatPaye
    abMandatPonctuelPaye := objDossier2.abMandatPonctuelPaye
    
    editeur.majVariable := 'aszLstInformationsBancairesDossier'
    editeur.majVariable := 'aszNomBanqueGesCab'
    editeur.majVariable := 'aszCodeBicGesCab'
    editeur.majVariable := 'aszIbanGesCab'
    editeur.majVariable := 'aszNumeroMandatGesCab'
    editeur.majVariable := 'avDateSignatureMandatGesCab'
    editeur.majVariable := 'abMandatPonctuelGesCab'
    editeur.majVariable := 'aszNomBanquePaye'
    editeur.majVariable := 'aszCodeBicPaye'
    editeur.majVariable := 'aszIbanPaye'
    editeur.majVariable := 'aszNumeroMandatPaye'
    editeur.majVariable := 'avDateSignatureMandatPaye'
    editeur.majVariable := 'abMandatPonctuelPaye'
###
'LoadDatasDonneesBancairesGesCabOnDossier2' 'GestionCabinet'
{objDossier2Arg <Objet>}
    --Création : 17/09/2013 10:43:18 ylv-PC100383; Modification : 17/09/2013 14:02:39 ylv-PC100383; 
    
    
    |
    	objDossier2<Objet>
    |
    
    objDossier2 ::= 'Dossier2'
    objDossier2 := objDossier2Arg
    
    objDossier2.aszLstInformationsBancairesDossier := aszLstInformationsBancairesDossier
    objDossier2.aszNomBanqueGesCab := aszNomBanqueGesCab
    objDossier2.aszCodeBicGesCab := aszCodeBicGesCab
    objDossier2.aszIbanGesCab := aszIbanGesCab
    objDossier2.aszNumeroMandatGesCab := aszNumeroMandatGesCab
    objDossier2.avDateSignatureMandatGesCab := avDateSignatureMandatGesCab
    objDossier2.abMandatPonctuelGesCab := abMandatPonctuelGesCab
    objDossier2.aszNomBanquePaye := aszNomBanquePaye
    objDossier2.aszCodeBicPaye := aszCodeBicPaye
    objDossier2.aszIbanPaye := aszIbanPaye
    objDossier2.aszNumeroMandatPaye := aszNumeroMandatPaye
    objDossier2.avDateSignatureMandatPaye := avDateSignatureMandatPaye
    objDossier2.abMandatPonctuelPaye := abMandatPonctuelPaye
###
'bLoadDatasDonneesBancairesGesCab' 'GestionCabinet'
    --Création : 17/09/2013 09:45:44 ylv-PC100383; Modification : 29/04/2015 14:45:40 llg2-PC100391; 
    
    |
    	objDiversGI2<Objet>
    |
    
    objDiversGI2 ::= 'DiversGI2'
    objDiversGI2 := creer{'DiversGI2'}
    
    SI droits{'Facturation2'} = 0 OU abBaseGI2Accessible = FAUX ALORS
    	aszLstEntiteFacturationSau := ?
    	dossier!{'Données bancaires gestion cabinet_MASQUE'}booleen := VRAI
    	abBaseGI2AccessibleForRUMSepa := FAUX
    SINON
    	aszLstEntiteFacturationSau := objDiversGI2.szRenvListeDossiersNom{VRAI}
    	dossier!{'Données bancaires gestion cabinet_MASQUE'}booleen := FAUX
    	abBaseGI2AccessibleForRUMSepa := VRAI
    FIN SI
    
    SORTIR abBaseGI2AccessibleForRUMSepa
###
'aszLstEntiteFacturation_MODIF' 'GestionCabinet'
{vDateArg <Date> szOldValArg <Chaine> szNewValArg <Chaine>}
    --Création : 17/09/2013 10:01:09 ylv-PC100383; Modification : 23/09/2013 07:45:02 ylv-PC100383; 
    
    
    SI abBaseGI2AccessibleForRUMSepa = VRAI ALORS
    	SI szRenvoieTesterChaineVide{szNewValArg} <> '' ALORS
    		aszEntiteFacturationSelect := szNewValArg
    		editeur.majVariable := 'aszEntiteFacturationSelect'
    
    		SI szRenvoieTesterChaineVide{szOldValArg} <> szRenvoieTesterChaineVide{szNewValArg} ALORS
    			LoadDatasDonneesBancairesGesCabWithEntite{}
    		FIN SI
    	FIN SI
    FIN SI
    
    SORTIR VRAI
###
'aszLstEntiteFacturation_LISTE' 'GestionCabinet'
    --Création : 17/09/2013 09:45:44 ylv-PC100383; Modification : 23/09/2013 07:45:31 ylv-PC100383; 
    
    SI abBaseGI2AccessibleForRUMSepa = VRAI ALORS
    	aszLstEntiteFacturation := aszLstEntiteFacturationSau
    SINON
    	aszLstEntiteFacturation := ?
    FIN SI
    
    SORTIR aszLstEntiteFacturation
###
'ImprimerPreImprimeSepa' 'GestionCabinet'
    --Création : 30/09/2013 10:16:26 ylv-PC100383; Modification : 30/09/2013 10:23:22 ylv-PC100383; 
    
    |
    	objOutilsGI2<Objet>objDossier2<Objet>szMess<Chaine>szCR<Chaine>
    |
    
    objOutilsGI2 ::= 'OutilsGI2'
    objOutilsGI2 := creer{'OutilsGI2'}
    objDossier2 ::= 'Dossier2'
    objDossier2 := creer{'Dossier2'}
    
    szCR := '
'
    LoadDatasDonneesBancairesGesCabCodeEntite{objDossier2}
    
    SI abBaseGI2AccessibleForRUMSepa = VRAI ALORS
    	SI szRenvoieTesterChaineVide{objDossier2.aszCodeEntiteDoss2} = '' ALORS
    		szMess := 'Selectionner une entité dans le tiroir "Données bancaires gestion cabinet"' + szCR
    		szMess := szMess + 'de l''onglet "Informations Facturation..."' + szCR
    		szMess := szMess + 'pour pouvoir imprimer le pré-imprimé SEPA.'
    		info{szMess}
    	SINON
    		objOutilsGI2.LancerImprimerPreImprimeSEPA{objDossier2.aszCodeEntiteDoss2, objDossier2.aszCodeDossierDoss2}
    	FIN SI
    FIN SI
###
'calculCumuls' 'Fonctions'
    --Modification : 29/04/2015 14:45:40 llg2-PC100391; 
    | 
    	dte <Date> dfin <Date>str<Chaine>fic<Chaine>
    |
    
    -- MODIF SCR 02/04/07 : ne pas créer la compta si elle n'existe pas (fiche 146907)
    SI NON dossier.comptabilitePresente ALORS
    	totalLignesComptables [1.1.1901] != 0 
    SINON
    	dte	:=	debutExercice {0}
    	dfin	:=	finExercice {0}
    	totalLignesComptables [dte] != 0 
    	
    	TANT QUE dte < dfin FAIRE
    		dte := finDeMois{dte}
    	--	message {'' + dte + '  ' + nbLignesComptables[dte] }
    		totalLignesComptables [ dte ] != totalLignesComptables [dte-1 ] + nbLignesComptables[dte]
    		dte := dte + 1
    	FIN FAIRE
    
    FIN SI
    
    dte	:=	date{1 , 1 , annee {periode.debut}}
    dfin	:=	date{31 , 12 , annee {periode.debut}}
    totalBulletinsDePaye [dte] != 0 
    
    TANT QUE dte < dfin FAIRE
    	dte := finDeMois{dte}
    --	message {'' + dte + '  ' + nbBulletinsDePaye[dte] }
    	totalBulletinsDePaye [ dte ] != totalBulletinsDePaye [dte-1 ] + nbBulletinsDePaye[dte]
    	dte := dte + 1
    FIN FAIRE
###
'controlerCapital' 'Fonctions'
    --Création : 09/02/2000 14:36:04 COALA-THIERRY; Modification : 02/05/2013 16:21:31 llg-PO36696; 
    
    |
    	szMess<Chaine>szCR<Chaine>
    |
    
    szCR := '
'
    
    SI nbTitres <> ? ET valeurNominaleTitre <> ? ALORS
    	SI capital <> nbTitres * valeurNominaleTitre ALORS
    		szMess := 'Le produit du nombre de titres ' + '(' + nbTitres + ') ' + 'par la valeur nominale ' + '('
    		szMess := szMess + convertir{'F', valeurNominaleTitre} + ' F)' + szCR
    		szMess := szMess + 'ne donne pas le montant du capital précisé ci-dessus ' + '('
    		szMess := szMess + convertir{'F', capital} + ' F) !' + szCR
    		szMess := szMess + 'Veuillez vérifier vos montants...'
    		info{szMess}
    
    		valeurNominaleTitre	:=	?
    		nbTitres			:=	?
    		-- affichage{VRAI}
    		editeur.majVariable := 'valeurNominaleTitre'
    		editeur.majVariable := 'nbTitres'
    	FINSI
    FINSI
###
'controlerCapitalEuro' 'Fonctions'
    --Création : 09/02/2000 14:36:04 COALA-THIERRY; Modification : 02/05/2013 16:21:31 llg-PO36696; 
    
    | 
    	diff <Réel>lfValNomTitresEuroLoc<Réel>lfCapitalEurosLoc<Réel>lfNbTitresLoc<Réel>lfValBis<Réel>kMax<Réel>kMin<Réel>
    |
    
    lfValNomTitresEuroLoc := convertir{ 'E', ValNomTitresEuro}
    lfCapitalEurosLoc := convertir{ 'E', capitalEuros }
    lfNbTitresLoc := reel{nbTitres}
    
    SI nbTitres <> ? ET ValNomTitresEuro <> ? ALORS
    	lfValBis := lfNbTitresLoc * lfValNomTitresEuroLoc
    	SI lfCapitalEurosLoc < lfValBis ALORS
    		diff := lfValBis - lfCapitalEurosLoc
    	SINON
    		diff := lfCapitalEurosLoc - lfValBis
    	FIN SI
    
    	kMax	:=	lfNbTitresLoc * (lfValNomTitresEuroLoc +0.01)
    	kMin	:=	lfNbTitresLoc * (lfValNomTitresEuroLoc -0.01)
    debug{'Capital : '+lfCapitalEurosLoc+ ' - '+ kMax+ ' - '+kMin}
    
    	SI (lfCapitalEurosLoc > kMax OU lfCapitalEurosLoc < kMin ) ALORS
    		info{'Le produit du nombre de titres ' + '('+nbTitres+') ' + 'par la valeur nominale ' + '(' + lfValNomTitresEuroLoc+ '  E)
' +'ne donne pas le montant du capital précisé ci-dessus ' + '(' + lfCapitalEurosLoc + '  E) !
' + 'Veuillez vérifier vos montants...'}
    
    		ValNomTitresEuro := ?
    		nbTitres := ?
    		-- affichage{VRAI}
    		editeur.majVariable := 'ValNomTitresEuro'
    		editeur.majVariable := 'nbTitres'
    	FINSI
    FINSI
###
'MAJ_TDS' 'Fonctions'
    --Création : 09/02/2000 14:36:04 COALA-THIERRY; Modification : 02/05/2013 16:21:31 llg-PO36696; 
    paye ::= ''
    --message{''+periode.fin}
     	SI dossier.{'CodeOptionTDS'}chaine[periode.fin] <> paye.{'CodeOptionTDS'}chaine[periode.fin] ALORS
    		dossier.{'CodeOptionTDS'}chaine[periode.fin]	:= paye.{'CodeOptionTDS'}chaine[periode.fin]
    --	message{'' + periode.fin + ' ' + paye.{'CodeOptionTDS'}chaine[periode.fin]}
    	FINSI
    	SI dossier.{'TypeFichierTDS'}entier[periode.fin] <> paye.{'TypeFichierTDS'}entier[periode.fin] ALORS 
    		dossier.{'TypeFichierTDS'}entier[periode.fin]	:= paye.{'TypeFichierTDS'}entier[periode.fin]
    	FINSI
    	SI dossier.{'CritereExpeditionTDS'}chaine[periode.fin] <> paye.{'CritereExpeditionTDS'}chaine[periode.fin] ALORS 
    		dossier.{'CritereExpeditionTDS'}chaine[periode.fin]	:= paye.{'CritereExpeditionTDS'}chaine[periode.fin]
    	FINSI
    	SI dossier.{'DateExpeditionTDS'}date[periode.fin] <> paye.{'DateExpeditionTDS'}date[periode.fin] ALORS 
    		dossier.{'DateExpeditionTDS'}date[periode.fin]	:= paye.{'DateExpeditionTDS'}date[periode.fin]
    	FINSI
    	SI dossier.{'HeureExpeditionTDS'}chaine[periode.fin] <> paye.{'HeureExpeditionTDS'}chaine[periode.fin] ALORS 
    		dossier.{'HeureExpeditionTDS'}chaine[periode.fin]	:= paye.{'HeureExpeditionTDS'}chaine[periode.fin]
    	FINSI
    	SI dossier.{'NbRecordTDS'}entier[periode.fin] <> paye.{'NbRecordTDS'}entier[periode.fin] ALORS 
    		dossier.{'NbRecordTDS'}entier[periode.fin]	:= paye.{'NbRecordTDS'}entier[periode.fin]
    	FINSI
    	SI dossier.{'ModeExpeditionTDS'}chaine[periode.fin] <> paye.{'ModeExpeditionTDS'}chaine[periode.fin] ALORS 
    		dossier.{'ModeExpeditionTDS'}chaine[periode.fin]	:= paye.{'ModeExpeditionTDS'}chaine[periode.fin]
    	FINSI
###
'dirigeant' 'Fonctions'
    --Création : 27/10/1999 15:21:36 COALA-THIERRY; Modification : 02/05/2013 16:21:31 llg-PO36696; 
    strDirigeants	:=	''
    
    POUR TOUT associe FAIRE
    	SI associe.dirigeant ALORS
    		strDirigeants	+=	associe.nom +', '
    	FINSI
    FIN FAIRE
    
    SI taille { strDirigeants } > 1 ALORS
    	strDirigeants	:=	chaine { strDirigeants , 1 , taille { strDirigeants } - 1 }
    FINSI
###
'strExo' 'Fonctions'
{exo <Date>}
    --Création : 12/07/1999 18:03:47 SL-THIERRY; Modification : 02/05/2013 16:21:31 llg-PO36696; 
    
    
    
    
    
    
    
    | str <Chaine> |
    
    str	:=	'12345678'
    	str := chaine{str, 1 , 8 , '00000000'}
    	str := chaine{str, 2 , 1 , '' + mois{ debutExercice{exo }}}
    	str := chaine{str, 4 , 3 , '' + chaine{ '' + annee{ debutExercice{exo }}, 3 , 4 }}
    	str := chaine{str, 6 , 5 , '' + mois{ finExercice{exo }}}
    	str := chaine{str, 8 , 7 , '' + chaine{ '' + annee{ finExercice{exo }}, 3 , 4 }}
    
    --message {'str ' + str }
    SORTIR str
###
'abs' 'Fonctions'
{v <Monnaie>}
    --Création : 19/06/2001 11:02:23 COALA-THIERRY; Modification : 02/05/2013 16:21:31 llg-PO36696; 
    
    
    
    
    
    
    
    SI v < 0 ALORS SORTIR 0 - v
    SINON SORTIR v
    FINSI
###
'------' 'Fonctions'
    --Création : 08/10/1999 09:05:23 ALE-PAVOT; Modification : 10/11/1999 17:26:06 COALA-THIERRY;
###
'inStr' 'Fonctions'
{start <Entier> string1 <Chaine> string2 <Chaine>}
    --Modification : 02/05/2013 16:21:31 llg-PO36696; 
    
    
    
    
    
     -- Recherche string2 dans string1 à partir de la position start
    
    
    
    | pos <Entier> len1 <Entier> len2 <Entier> |
    
    pos	:=	start
    len1	:=	taille {string1}
    len2	:=	taille {string2}
    
    TANTQUE pos <= len1 - len2 + 1 FAIRE
    	SI chaine{string1 , pos , (pos + len2 - 1)} = string2 ALORS SORTIR pos FINSI
    	pos	+=	1
    FINFAIRE
    
    SORTIR 0
###
'existe' 'Fonctions'
{fullPathName <Chaine>}
    --Modification : 02/05/2013 16:21:31 llg-PO36696; 
    
    
    
    
    
    
    
    | find <Booléen> |
    
    find 	:=	fichierLecture{fullPathName}
    fichierLecture {''}
    SORTIR find
###
'-------' 'Fonctions'
    
###
'messagesRep' 'Fonctions'
{rep <Chaine> sens <Chaine>}
    --Création : 31/08/2000 19:47:02 COALA-THIERRY; Modification : 02/05/2013 16:21:32 llg-PO36696; 
    
    
    
    
    
    
    
    | CR <Chaine> TAB <Chaine> dte <Chaine> hre <Chaine> appli <Chaine> lib <Chaine> fini <Booléen> rs<Objet> obj <Objet>
    fic <Chaine> lstTemp <Liste> p2 <Entier> p3<Entier> jj <Entier> mm <Entier> aa <Entier> from <Chaine> to <Chaine> subject <Chaine> rsDate <Objet>  |
    
    
    CR		:=	'
'
    TAB		:=	'	'
    
    fini		:=	FAUX
    rs		:=	flotLecture { contenuRepertoire { rep }}
    --message {'fic = ' +  }
    
    TANT QUE NON fini FAIRE
    	fic	:=	lire { rs, CR }
    --message {'fic ' + fic  }
    
    	SI taille { fic } = 0 ALORS 
    		fini	:=	VRAI
    	SINON
    		fic	:=	rep + '/' + fic
    		dte	:=	lireMotCle { fic, 'Date: ' }
    		from	:=	lireMotCle { fic, 'From: ' }
    		to	:=	lireMotCle { fic, 'To: ' }
    		subject	:=	lireMotCle { fic, 'Subject: '}
    		rsDate	:=	flotLecture { dte }
    				lire { rsDate, ',' } lire { rsDate, 1 }
    		jj	:=	entier {lire { rsDate, ' ' }}
    		mm	:=	moisStr { lire { rsDate, ' ' }}
    		aa	:=	entier { lire { rsDate, ' ' } }
    --message {dte + ' ' + jj + '/'+mm+'/'+aa}
    		dte	:=	'' + date { jj, mm, aa }
    		hre	:=	lire { rsDate, ' ' }
    
    		obj	::=	'Notification'
    		obj	:=	creer { 'Notification'}
    
    		obj.date	:=	date { dte }
    		obj.heure	:=	hre
    		obj.de	:=	from
    		obj.a	:=	to
    		obj.libelle	:=	subject
    		obj.fichier	:=	fic 
    		SI sens = 'R' ALORS obj.a := ?
    		SINON obj.de := ?
    		FINSI
    	
    		obj.dateHeureTri	:=	''+ chaine { dte, 7 , 10 } + chaine { dte , 4 , 5 } + chaine { dte, 1 , 2} + hre
    				ajouterElement { lstMessages, obj }	
    	FINSI
    FIN FAIRE
    fichierLecture {''}
###
'lireMotCle' 'Fonctions'
{fic <Chaine> mot <Chaine>}
    --Création : 12/09/2000 20:43:21 TGU-THIERRY; Modification : 02/05/2013 16:21:32 llg-PO36696; 
    
    
    
    
    
    
    | CR <Chaine> str <Chaine> |
    
    CR	:=	'
'
    fichierLecture { fic }
    lire { mot }
    lire { taille { mot }}
    str	:=	lire { CR }
    fichierLecture { '' }
    SORTIR str
###
'moisStr' 'Fonctions'
{str <Chaine>}
    --Création : 12/09/2000 17:37:10 TGU-THIERRY; Modification : 02/05/2013 16:21:32 llg-PO36696; 
    
    
    
    
    
    
    
    | str2 <Chaine> |
    
    str2	:=	minuscule { str }
    --message {'str2='+str2}
    SI str2 = 'sep'  ALORS SORTIR 9 FINSI
    
    SORTIR 0
###
'--------' 'Fonctions'
    
###
'---------' 'Fonctions'
    
###
'----------' 'Fonctions'
    --Création : 27/08/2001 15:35:55 op-OLIVIER2000; Modification : 27/08/2001 15:35:55 op-OLIVIER2000;
###
'cheminServicesWebExe' 'Fonctions'
    --Création : 24/07/2003 10:53:57 jcr-CLAUDE; Modification : 02/05/2013 16:21:32 llg-PO36696; 
    
    | sChemin<Chaine> |
    
    sChemin :='"'+racine{}+'\bin\servicesWeb\servicesWeb.exe"'
    SORTIR sChemin
###
'ArchivageEtats' 'Toutes fonctions'
{arg<Chaine> value<Entier>}
    --Création : // :: ; Modification : // :: ; 
    |
        type<Chaine>
    |
    type:= arg

    SI type = 'set' ALORS
        aEtatsArchives  :=  value
    FINSI

    SORTIR aEtatsArchives
###
'synchronizeToLinkUp' 'Toutes fonctions'
    portail ::= ''
    SI portail.SynchroniserContacts{} ALORS
    	info{'La synchronisation a été lancée avec succès.'}
    	SORTIR VRAI
    SINON
    	info{'La synchronisation a échoué.'}
    	SORTIR FAUX
    FIN SI
###
'get_civRepLegal' 'Toutes fonctions'
    --Création : 11/07/2012 15:37:39 llg-PO36696; Modification : 24/10/2013 17:08:24 llg-PO36696; 
    |
    	tmpCh<Chaine>
    	first<Booléen>pers<Objet>
    |
    
    pers	::=	'Personne'
    tmpCh	:=	?
    first	:=	VRAI
    
    SI contactExportes ALORS
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Représentant légal' ALORS
    			pers	:=	element.personne
    			SI pers <> ? ALORS
    				SI first ALORS
    					tmpCh	:=	afficherCivilite{pers.civilite}
    					first	:=	FAUX
    				FIN SI	
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    SINON
    	SORTIR tmpCh--dossier.{'QualiteRepresentantLegal'}chaine
    FIN SI
###
'CreerSIE' 'Toutes fonctions'
{idAncienContact <Chaine>}
    --Création : 09/06/2011 17:02:21 llg-PO15890; Modification : 23/10/2013 14:52:53 llg-PO36696; 
    
    |
    	pers<Objet>ii<Entier>lst<Objet>role<Objet>tmpRole<Objet>
    	nb<Entier> dteDeb<Date> dteFin<Date>
    |
    
    tmpRole	::=	'Role'
    role	::=	'Role'
    
    tmpRole	:=	creer{'Role'}
    role	:=	tmpRole.new{dossier, 'SIE', VRAI}
    
    pers		::=	'Personne'
    
    SI taille{AdrRec1} > 0 ALORS
    	lst	:=	datesHistorique{dossier , 'AdrRec1'}
    	SI (dossier.{'AdrRec1'}chaine[2.1.1901] <> ?)	ALORS
    		ajouterElement{lst, entier{2.1.1901}, 1}
    	FIN SI
    SINON
    	lst	:=	datesHistorique{dossier , 'NumRecette'}
    	-- ajout scr
    	SI nbElements{lst} > 0 ALORS
    		dteDeb	:=	elementEntierDIndice{lst, 1}
    		dossier.AdrRec1[dteDeb]	!=	'Recette '+NumRecette
    	FIN SI
    	SI (dossier.{'NumRecette'}chaine[2.1.1901] <> ?)	ALORS
    		ajouterElement{lst, entier{2.1.1901}, 1}
    	FIN SI
    FIN SI
    
    ii	:=	1
    nb	:=	nbElements{lst}
    TANT QUE ii <= nb FAIRE	
    	dteDeb			:=	elementEntierDIndice{lst, ii}
    	SI ii = nb ALORS
    		dteFin	:=	31.12.2050
    	SINON
    		dteFin	:=	elementEntierDIndice{lst, ii+1} - 1
    	FIN SI
    
    	pers			:=	creer{'Personne', '/mongo/Personne'}
    	pers.initSIE{dossier, dteDeb, dteFin}
    	role.personne[dteDeb]	!=	pers
    
    	ii			+=	1
    FIN FAIRE
    SI pers <> ? ET idAncienContact <> ? ALORS
    	pers.idEE	:=	idAncienContact
    FIN SI
    
    SORTIR role
###
'extraireContactsNouveauGroupe' 'Toutes fonctions'
{fic <Chaine>}
    --Création : 26/10/2012 10:55:27 mld-PC016496BIS; Modification : 16/04/2015 19:17:41 llg-PC100391; 
    
    | l<Objet> l2<Objet> i<Entier> k<Entier> o<Objet> idConcatenes<Chaine>|
    
    SI NON contactExportes ALORS
    	SORTIR FAUX
    FIN SI
    
    --LLG CORRECTION REMONTEE CIAGEC
    collaborateur	::=	''
    SI collaborateur.estDeconnecte ALORS
    	SORTIR FAUX
    FIN SI
    
    idConcatenes := sGuid
    POUR TOUT etablissement FAIRE
                    idConcatenes += ';' + etablissement.sGuid
    FIN FAIRE
    
    debug{'extraireContacts ' + idConcatenes }
    l := lireObjet{'/sdata/coala/dossiers(''' + idConcatenes + ''')/roles/$service/extract?avecSocial=false'}
    l2 := lireObjet{'/mongo/Uid?count=1'}
    debug{'Sérialisation ' + nbElements{l} + ' contacts'}
    debug{'Sérialisation ' + nbElements{l2} + ' uids'}
    SI nbElements{l}<1 ALORS
    	LogContacts{'Pas de contacts à sérialiser', 'extraireContacts', RaisonSociale + '(' + CodeDossier + ')'}
    	SORTIR FAUX
    FINSI
    fichierEcriture{fic + '\contacts.json'}
    i := 1
    ecrire{'['}
    TANT QUE i <= nbElements{l} FAIRE
    	o := l.[i]
    	SI i > 1 ALORS
    		ecrire{', '}
    	FINSI
    	ecrire{json{o}}
    	i += 1
    FIN FAIRE
    k := 1
    TANT QUE k <= nbElements{l2} FAIRE
    	SI i > 1 ALORS ecrire{', '} FINSI
    	o := l2.[k]
    	ecrire{json{o}}
    	k += 1
    FIN FAIRE
    ecrire{']'}
    fichierEcriture{}
    
    SORTIR VRAI
###
'Voir_la_publication' 'Toutes fonctions'
    --Modification : 02/05/2013 16:21:40 llg-PO36696; 
    editer {racine {} + '/pub/' + dossier.CodeDossier + '/index.htm'}
###
'OUVERTURE_LOCALE' 'Toutes fonctions'
    --Création : 06/09/2004 17:39:19 DME-DOMINIQUE; Modification : 06/09/2004 17:39:19 DME-DOMINIQUE;
###
'copierApeVersAncApe' 'Toutes fonctions'
{szCodeDossierArg <Chaine>}
    --Création : 06/09/2007 14:19:21 ylv-LEVERGE-Y; Modification : 29/04/2015 14:45:49 llg2-PC100391; 
    
    
    |
    	lstListeDates<Objet>lNbreElts<Entier>lCpteurBcle<Entier>vDateLoc<Date>
    |
    
    dossier ::= szCodeDossierArg 
    
    SI dossier.abCopieApeRealisee = ? ALORS dossier.abCopieApeRealisee := FAUX FINSI
    SI dossier.abCopieObligations1330_CVAE_DeclarationRealisee ALORS dossier.abCopieObligations1330_CVAE_DeclarationRealisee := FAUX FINSI
    
    SI dossier.abCopieObligations1330_CVAE_DeclarationRealisee = FAUX ALORS
    	SI dossier.obligations1330CVAE_Declaration = 'Déclaration papier' ALORS
    		dossier.obligations1330_CVAE_Declaration := VRAI
    	SINON
    		dossier.obligations1330_CVAE_Declaration := FAUX
    	FIN SI	
    	dossier.abCopieObligations1330_CVAE_DeclarationRealisee := VRAI
    FIN SI
    
    SI dossier.abCopieApeRealisee = FAUX ALORS
    	lstListeDates := datesHistorique{dossier, 'Ape'}
    	lNbreElts := nbElements{lstListeDates}
    	lCpteurBcle := 1
    	TANT QUE lCpteurBcle <= lNbreElts FAIRE
    		vDateLoc := elementEntierDIndice{lstListeDates,  lCpteurBcle}
    		dossier.ancApe[vDateLoc] != dossier.Ape[vDateLoc]
    
    		lCpteurBcle += 1
    	FIN FAIRE
    	dossier.abCopieApeRealisee := VRAI
    FIN SI
###
'CHARGEMENT' 'Toutes fonctions'
    --Création : 05/08/2011 16:54:03 llg-PO15890; Modification : 30/04/2015 09:11:05 scr-PC101399; 
    |
    	i<Entier>rol<Objet>pers<Objet>nomDos<Chaine>
    |
    
    rol	::=	'Role'
    pers	::=	'Personne'
    
    --SI NON (args{} # '*-fonction*')	ALORS
    
    debug{'CHARGEMENT dossier '+CodeDossier+'-'+codeUnique{'('}}
    TestCopierColler{}
    
    SI contactExportes ALORS
    	VoirNouveauxContactsSansLesPersonnes{}
    	/*SI lstNouveauxContacts <> ? ALORS
		SI nbElements{lstNouveauxContacts} > 0 ALORS
			i	:=	1
			TANT QUE i <= nbElements{lstNouveauxContacts} FAIRE
				rol	:=	lstNouveauxContacts.[i]
				SI rol <> ? ALORS
					SI rol.type = 'Dossier' ALORS
						pers	:=	rol.personne
						SI pers <> ? ALORS
							nomDos	:=	pers.nomDossier
							debug{'Nom Dossier : '+nomDos+' - '+nomDossier}
							SI nomDos <> nomDossier ALORS
							FIN SI							
						FIN SI
					FIN SI
				FIN SI
				i	+=	1
			FIN FAIRE
		FIN SI
	FIN SI*/
    FIN SI
    --FIN SI
    
    SORTIR VRAI
###
'fermetureFenetreDossierGI' 'Toutes fonctions'
{szCodeDossierArg <Chaine>}
    --Création : 25/09/2000 15:39:57 TGU-THIERRY; Modification : 15/12/2014 15:13:04 llg-PC100391; 
    
    
    notifierModificationGI2AvecFichier{szCodeDossierArg}
###
'FERMETURE_LOCALE' 'Toutes fonctions'
    --Création : 30/07/2010 14:48:34 llg-PO15890; Modification : 30/07/2010 14:48:34 llg-PO15890;
###
'capitalEuros_MODIF' 'Toutes fonctions'
    --Création : 09/02/2000 14:36:04 COALA-THIERRY; Modification : 02/05/2013 16:21:41 llg-PO36696; 
    controlerCapitalEuro {}
    
    SORTIR VRAI
###
'capital_MODIF' 'Toutes fonctions'
    --Création : 09/02/2000 14:36:04 COALA-THIERRY; Modification : 02/05/2013 16:21:41 llg-PO36696; 
    controlerCapital {}
    
    SORTIR VRAI
###
'testFtp' 'Toutes fonctions'
    --Modification : 11/06/2014 14:26:56 mik-PC-016494; 
    | 
    	fic<Chaine> CR<Chaine> ver<Chaine> ficDistant<Chaine> strContenu<Chaine> statusCode<Entier> 
      	serviceswebIni<Chaine> serveurServicesWeb<Chaine>
    |  	

    CR	:=	'
'
    fic	:=	'c:\coala\test.txt'
    ver	:= 	versionLogiciel{ VRAI}
	serviceswebIni := racine{}+'\local\bin\servicesweb.ini'
	serveurServicesWeb := lireini{ serviceswebIni, 'services_web', 'serveur'}
	SI serveurServicesWeb # '*index.aspx' ALORS 
		serveurServicesWeb := substituerChaine{serveurServicesWeb, '/webservice/index.aspx', ''}
	SINON
		serveurServicesWeb := substituerChaine{serveurServicesWeb, '/webservice/index.asp', ''}
	FINSI
    ficDistant	:=	serveurServicesWeb + '/telechargement/'+ver+'/test.txt'
    
    statusCode := servicesWebExe{'get', ficDistant, fic}
    
    SI ((statusCode <> 200) OU (infoFichier{fic} = 'absent'))	ALORS
    	message{ficDistant+' : '+statusCode}
    	SORTIR FAUX
    FIN SI
    
    strContenu	:=	retournerContenuFichier{ fic}
    
    SI infoFichier{fic}='fichier' ALORS detruireFichier{ fic } FIN SI
    
    SI strContenu  # '*TEST DE CONNEXION FTP*'  ALORS
    	SORTIR VRAI
    FIN SI
    
    SORTIR FAUX
###
'notifsD_MODIF' 'Toutes fonctions'
    --Création : 30/08/2000 11:24:26 TNI-THIERRY; Modification : 02/05/2013 16:21:41 llg-PO36696; 
    
    |
    oFlot<Objet> oFlotE<Objet>
    CR <Chaine> sCollaborateur<Chaine>
    |
    
    CR	:=	'
'
    
    oFlot	:=	flotLecture{notifsD}
    oFlotE	:=	flotEcriture{}
    
    TANT QUE NON lectureFinie{oFlot}		FAIRE
    	sCollaborateur	:=	lire{oFlot , CR}
    	collaborateur	::=	sCollaborateur
    	SI (collaborateur.nom = ?)		ALORS
    		info{'Attention, le collaborateur ' + sCollaborateur + ' est inconnu '}
    	SINON
    		oFlotE	+=	sCollaborateur + CR
    	FIN SI
    FIN FAIRE
    
    notifsD	:=	contenuFlot{oFlotE}
    
    SORTIR VRAI
###
'Etat_ICONE' 'Toutes fonctions'
    --Création : 13/11/2002 09:58:11 jcr-CLAUDE; Modification : 13/11/2002 10:04:56 jcr-CLAUDE;
###
'notifierModificationMajGI' 'Toutes fonctions'
{szCodeDossierCourantArg <Chaine>}

	|
		szPathFileMajGI2Loc<Chaine>pathFileCode<Chaine>
	|

	szPathFileMajGI2Loc := racine{} +'/local/bases/majgi/dossiers' 

	-- Au cas ou un fichier dossiers soit cree a la place du repertoire dossier
	SI infoFichier{szPathFileMajGI2Loc} = 'fichier' ALORS
		detruireFichier{szPathFileMajGI2Loc}
	FIN SI
	szPathFileMajGI2Loc := szPathFileMajGI2Loc + '/'

	pathFileCode := szPathFileMajGI2Loc + szCodeDossierCourantArg
	SI infoFichier{pathFileCode} <> 'fichier' ALORS
		fichierEcriture{pathFileCode}
		fichierEcriture{}
	FINSI

###
'notifierModificationGI2AvecFichier' 'Toutes fonctions'
{szCodeDossierCourantArg <Chaine>}

	|
		objLibrairieGI2<Objet>bMajSqlLoc<Booléen>objBidon<Objet>
	|

	objBidon := ?
	objLibrairieGI2 ::= 'LibrairieGI2'
	objLibrairieGI2 := creer{'LibrairieGI2', objBidon}

	notifierModificationMajGI{szCodeDossierCourantArg}

	objLibrairieGI2.bTesterAvantOuvrirSqlSrvr{FAUX, FAUX}
	bMajSqlLoc := objLibrairieGI2.abOk

	SI bMajSqlLoc = VRAI ALORS
		objLibrairieGI2.exporterUnDossierDepuisLeDP{szCodeDossierCourantArg, 
													VRAI, -- bWithDistinctionMinusMajusArg <Booléen>
													FAUX, -- bProcessusNonLibreArg<Booléen>
													VRAI} -- bAppelFromPlanificateurArg<Booléen>
	FIN SI
###
'testPresenceExercice' 'Toutes fonctions'
{dte <Date>}

    exerciceComptable ::= dte
    SI exerciceComptable = ? ALORS SORTIR FAUX FIN SI
    
    SORTIR VRAI
###
'OUVRIRCONTACTS' 'Toutes fonctions'
    --Création : 18/09/2013 13:42:43 llg-PO36696; Modification : 18/09/2013 13:47:13 llg-PO36696; 
    |edDp<Objet> ana<Objet> ed<Objet> rien<Objet>|
    edDp ::= 'EditeurDP'
    ed ::= 'Editeur'
    SI shift{}  ALORS SORTIR FAUX FINSI
    SI dossier.editeur<> ? ALORS 
    	ed := editeur{dossier.editeur} 
    	SI ed<> ? ALORS 
    		ed.ouvrir 
    		SORTIR VRAI 
    	FINSI
    FINSI
    rien := ?
    edDp := creer{'EditeurDP', rien}
    edDp.doss := dossier
    dossier.editeur := edDp
    
    edDp.ouvrirAvecObjetSelection{'Contacts Dossier'}
    
    SORTIR VRAI
###
'OUVRIRDP' 'Toutes fonctions'
    --Modification : 29/04/2015 14:45:50 llg2-PC100391; 
    |edDp<Objet> ana<Objet> ed<Objet> rien<Objet>|
    edDp ::= 'EditeurDP'
    ed ::= 'Editeur'
    SI shift{}  ALORS SORTIR FAUX FINSI
    SI dossier.editeur<> ? ALORS ed := editeur{dossier.editeur} SI ed<> ? ALORS ed.ouvrir SORTIR VRAI FINSI FINSI
    rien := ?
    edDp := creer{'EditeurDP', rien}
    edDp.doss := dossier
    dossier.editeur := edDp
    
    edDp.ouvrir{}
    
    SORTIR VRAI
###
'OUVRIRANALYTIQUE' 'Toutes fonctions'
    --Modification : 29/04/2015 14:45:50 llg2-PC100391; 
    |edAna<Objet> ana<Objet> ed<Objet> objVide<Objet>|
    ana ::= 'ComptabiliteAnalytique'
    edAna ::= 'EditeurComptaAnalytique'
    ed ::= 'Editeur'
    --Modif 11 octobre pour ADE : SI NON enDev{'Editeur Analytique'} OU shift{}  ALORS SORTIR FAUX FINSI
    SI shift{}  ALORS SORTIR FAUX FINSI
    ana := analytique
    SI ana.editeur<> ? ALORS ed := editeur{ana.editeur} SI ed<> ? ALORS ed.ouvrir SORTIR VRAI FINSI FINSI
    objVide := ?
    edAna := creer{'EditeurComptaAnalytique', objVide}
    edAna.doss := dossier
    edAna.ouvrir{}
    SORTIR VRAI
###
'sansEspaceDebutFin' 'Toutes fonctions'
{szChArg <Chaine>}
    --Création : 18/02/2003 11:01:56 sav-STEPHANE; Modification : 02/05/2013 16:21:42 llg-PO36696; 
    
    
    
    
    
    
    
    
    SORTIR sansEspaceDebut{sansEspaceFin{szChArg}}
###
'OUVRIRCONSEIL' 'Toutes fonctions'
    --Modification : 02/05/2013 16:21:42 llg-PO36696; 
    |edConseil<Objet> ed<Objet>|
    edConseil ::= 'EditeurMissionsConseil'
    ed ::= 'Editeur'
    SI shift{} ALORS SORTIR FAUX FINSI
    SI dossier.editeurMissionsConseil<> ? ALORS ed := editeur{dossier.editeurMissionsConseil} SI ed<> ? ALORS ed.ouvrir SORTIR VRAI FINSI FINSI
    edConseil := creer{'EditeurMissionsConseil'}
    dossier.editeurMissionsConseil := edConseil 
    edConseil.codeDossier := dossier.CodeDossier
    edConseil.ouvrir{}
    SORTIR VRAI
###
'integrerLotDarc' 'Toutes fonctions'
{chemin <Chaine>}
    --Création : 26/01/2004 12:13:04 TGO-TGO; Modification : 02/05/2013 16:21:42 llg-PO36696; 
    
    
    
    
    
    
    
    
    fichierLecture{chemin}
    
    document		::=	'ImportDossier'
    document.dateDuJour	:=	aujourdhui{}
    SI document.dateDuJour = ?	ALORS
    	document +:= 'ImportDossier'
    FINSI
    SI (document.dateDuJour = ?)	ALORS
    	SORTIR FAUX
    FIN SI
    document.sOrigine	:=	'Darc'
    document.basicImporter {}
    
    debug{'Fin integrerLotDarc'}
    
    SORTIR VRAI
###
'integrerLotsDarc' 'Toutes fonctions'
    --Création : 23/01/2004 14:58:25 DME-DME; Modification : 02/05/2013 16:21:42 llg-PO36696; 
    | rs<Objet> fic<Chaine>|
    
    rs := flotLecture{contenuRepertoire{repertoire+'\compta\darc\recus'}}
    TANT QUE NON lectureFinie{rs} FAIRE
    fic := lire{'
'}
    SI fic #'*.darc' ALORS dossier.integrerLotDarc{repertoire+'\compta\darc\recus\' + fic} FINSI
    FIN FAIRE
###
'split' 'Toutes fonctions'
{szString <Chaine> szSeparateur <Chaine>}
    --Création : 03/10/2000 11:38:24 alv-ECLIPSE; Modification : 02/05/2013 16:21:42 llg-PO36696; 
    
    
    
    
    
    -- Cette fonction scinde une chaîne szString en plusieurs sous-chaînes dans une liste.
    
    
    
    | oList <Liste> oFlot <Objet> |
    
    oList	:=	creerListe{}
    
    oFlot	:=	flotLecture {szString}
    TANTQUE NON lectureFinie{oFlot} FAIRE
    	ajouterElement {oList , lire {oFlot , szSeparateur}}
    FIN FAIRE
    
    SORTIR oList
###
'AdrAvocat_GRIS' 'Toutes fonctions'
    --Création : 17/10/2011 12:10:21 llg-PO15890; Modification : 02/05/2013 16:21:42 llg-PO36696; 
    
    SI activationContacts=VRAI ALORS
    	SORTIR VRAI
    SINON
    	SORTIR FAUX
    FIN SI
###
'gererGrisContact' 'Toutes fonctions'
    --Création : 17/07/2012 11:33:54 llg-PO36696; Modification : 29/04/2015 14:45:50 llg2-PC100391; 
    SI activationContacts=VRAI OU contactExportes ALORS
    	SORTIR VRAI
    SINON
    	SORTIR FAUX
    FIN SI
###
'formeConvAGE_GRIS' 'Toutes fonctions'
    --Création : 17/10/2011 12:10:06 llg-PO15890; Modification : 02/05/2013 16:21:42 llg-PO36696; 
    
    SORTIR gererGrisContact{}
###
'formeConvAGO_GRIS' 'Toutes fonctions'
    --Création : 17/10/2011 12:10:06 llg-PO15890; Modification : 02/05/2013 16:21:42 llg-PO36696; 
    
    SORTIR gererGrisContact{}
###
'formeConvCA_GRIS' 'Toutes fonctions'
    --Création : 17/10/2011 12:10:06 llg-PO15890; Modification : 02/05/2013 16:21:42 llg-PO36696; 
    
    SORTIR gererGrisContact{}
###
'typeTitres_GRIS' 'Toutes fonctions'
    --Création : 17/10/2011 12:10:06 llg-PO15890; Modification : 02/05/2013 16:21:42 llg-PO36696; 
    
    SORTIR gererGrisContact{}
###
'ValNomTitresEuro_GRIS' 'Toutes fonctions'
    --Création : 17/10/2011 12:10:06 llg-PO15890; Modification : 02/05/2013 16:21:42 llg-PO36696; 
    
    SORTIR gererGrisContact{}
###
'valeurNominaleTitreEnFrancs_GRIS' 'Toutes fonctions'
    --Création : 17/10/2011 12:10:06 llg-PO15890; Modification : 02/05/2013 16:21:42 llg-PO36696; 
    
    SORTIR gererGrisContact{}
###
'valeurNominaleTitre_GRIS' 'Toutes fonctions'
    --Création : 17/10/2011 12:10:06 llg-PO15890; Modification : 02/05/2013 16:21:42 llg-PO36696; 
    
    SORTIR gererGrisContact{}
###
'nbTitres_GRIS' 'Toutes fonctions'
    --Création : 17/10/2011 12:10:06 llg-PO15890; Modification : 02/05/2013 16:21:42 llg-PO36696; 
    
    SORTIR gererGrisContact{}
###
'capitalEuros_GRIS' 'Toutes fonctions'
    --Création : 17/10/2011 12:10:06 llg-PO15890; Modification : 02/05/2013 16:21:42 llg-PO36696; 
    SORTIR gererGrisContact{}
###
'capitalEnFrancs_GRIS' 'Toutes fonctions'
    --Création : 17/10/2011 12:10:06 llg-PO15890; Modification : 02/05/2013 16:21:42 llg-PO36696; 
    SORTIR gererGrisContact{}
###
'capital_GRIS' 'Toutes fonctions'
    --Création : 17/10/2011 12:10:06 llg-PO15890; Modification : 02/05/2013 16:21:42 llg-PO36696; 
    SORTIR gererGrisContact{}
###
'formeJuridique_GRIS' 'Toutes fonctions'
    --Création : 17/10/2011 12:10:06 llg-PO15890; Modification : 02/05/2013 16:21:42 llg-PO36696; 
    
    SORTIR gererGrisContact{}
###
'ResponsableEntreprise_GRIS' 'Toutes fonctions'
    --Création : 17/10/2011 12:09:51 llg-PO15890; Modification : 02/05/2013 16:21:42 llg-PO36696; 
    
    SI activationContacts=VRAI OU dossier.contactExportes ALORS
    	SORTIR VRAI
    SINON
    	SORTIR FAUX
    FIN SI
###
'RespInformatique_GRIS' 'Toutes fonctions'
    --Création : 17/10/2011 12:09:28 llg-PO15890; Modification : 02/05/2013 16:21:42 llg-PO36696; 
    
    SI activationContacts=VRAI OU contactExportes ALORS
    	SORTIR VRAI
    SINON
    	SORTIR FAUX
    FIN SI
###
'RepresentantLegal_GRIS' 'Toutes fonctions'
    --Création : 17/10/2011 12:09:16 llg-PO15890; Modification : 02/05/2013 16:21:43 llg-PO36696; 
    
    SI activationContacts=VRAI OU contactExportes ALORS
    	SORTIR VRAI
    SINON
    	SORTIR FAUX
    FIN SI
###
'RespPaye_GRIS' 'Toutes fonctions'
    --Création : 17/10/2011 12:09:03 llg-PO15890; Modification : 02/05/2013 16:21:43 llg-PO36696; 
    
    SI activationContacts=VRAI OU contactExportes ALORS
    	SORTIR VRAI
    SINON
    	SORTIR FAUX
    FIN SI
###
'ChefDeService_GRIS' 'Toutes fonctions'
    --Création : 17/10/2011 12:08:27 llg-PO15890; Modification : 02/05/2013 16:21:43 llg-PO36696; 
    
    SI activationContacts=VRAI OU contactExportes ALORS
    	SORTIR VRAI
    SINON
    	SORTIR FAUX
    FIN SI
###
'ServiceDuPersonnel_GRIS' 'Toutes fonctions'
    --Création : 17/10/2011 12:08:13 llg-PO15890; Modification : 02/05/2013 16:21:43 llg-PO36696; 
    
    SI activationContacts=VRAI OU contactExportes ALORS
    	SORTIR VRAI
    SINON
    	SORTIR FAUX
    FIN SI
###
'AutresInterlocuteurs_GRIS' 'Toutes fonctions'
    --Création : 17/10/2011 12:08:02 llg-PO15890; Modification : 02/05/2013 16:21:43 llg-PO36696; 
    
    SI activationContacts=VRAI OU contactExportes ALORS
    	SORTIR VRAI
    SINON
    	SORTIR FAUX
    FIN SI
###
'TelAvocat_GRIS' 'Toutes fonctions'
    --Création : 17/10/2011 12:07:48 llg-PO15890; Modification : 02/05/2013 16:21:43 llg-PO36696; 
    
    SI activationContacts=VRAI ALORS
    	SORTIR VRAI
    SINON
    	SORTIR FAUX
    FIN SI
###
'FaxAvocat_GRIS' 'Toutes fonctions'
    --Création : 17/10/2011 12:07:40 llg-PO15890; Modification : 02/05/2013 16:21:43 llg-PO36696; 
    
    SI activationContacts=VRAI ALORS
    	SORTIR VRAI
    SINON
    	SORTIR FAUX
    FIN SI
###
'AdrNotaires_GRIS' 'Toutes fonctions'
    --Création : 17/10/2011 12:07:25 llg-PO15890; Modification : 02/05/2013 16:21:43 llg-PO36696; 
    
    SI activationContacts=VRAI ALORS
    	SORTIR VRAI
    SINON
    	SORTIR FAUX
    FIN SI
###
'TelNotaires_GRIS' 'Toutes fonctions'
    --Création : 17/10/2011 12:07:13 llg-PO15890; Modification : 02/05/2013 16:21:43 llg-PO36696; 
    
    SI activationContacts=VRAI ALORS
    	SORTIR VRAI
    SINON
    	SORTIR FAUX
    FIN SI
###
'FaxNotaires_GRIS' 'Toutes fonctions'
    --Création : 17/10/2011 12:07:04 llg-PO15890; Modification : 02/05/2013 16:21:43 llg-PO36696; 
    
    SI activationContacts=VRAI ALORS
    	SORTIR VRAI
    SINON
    	SORTIR FAUX
    FIN SI
###
'NomCacTitre_GRIS' 'Toutes fonctions'
    --Création : 17/10/2011 12:06:33 llg-PO15890; Modification : 02/05/2013 16:21:43 llg-PO36696; 
    
    SI activationContacts=VRAI ALORS
    	SORTIR VRAI
    SINON
    	SORTIR FAUX
    FIN SI
###
'RepCacTitre_GRIS' 'Toutes fonctions'
    --Création : 17/10/2011 12:06:17 llg-PO15890; Modification : 02/05/2013 16:21:43 llg-PO36696; 
    
    SI activationContacts=VRAI ALORS
    	SORTIR VRAI
    SINON
    	SORTIR FAUX
    FIN SI
###
'Adr1CacTitre_GRIS' 'Toutes fonctions'
    --Création : 17/10/2011 12:06:07 llg-PO15890; Modification : 02/05/2013 16:21:43 llg-PO36696; 
    
    SI activationContacts=VRAI ALORS
    	SORTIR VRAI
    SINON
    	SORTIR FAUX
    FIN SI
###
'Adr2CacTitre_GRIS' 'Toutes fonctions'
    --Création : 17/10/2011 12:05:57 llg-PO15890; Modification : 02/05/2013 16:21:43 llg-PO36696; 
    
    SI activationContacts=VRAI ALORS
    	SORTIR VRAI
    SINON
    	SORTIR FAUX
    FIN SI
###
'CPCacTitre_GRIS' 'Toutes fonctions'
    --Création : 17/10/2011 12:05:38 llg-PO15890; Modification : 02/05/2013 16:21:43 llg-PO36696; 
    
    SI activationContacts=VRAI ALORS
    	SORTIR VRAI
    SINON
    	SORTIR FAUX
    FIN SI
###
'VilleCacTitre_GRIS' 'Toutes fonctions'
    --Création : 17/10/2011 12:05:13 llg-PO15890; Modification : 02/05/2013 16:21:43 llg-PO36696; 
    
    SI activationContacts=VRAI ALORS
    	SORTIR VRAI
    SINON
    	SORTIR FAUX
    FIN SI
###
'TelCacTitre_GRIS' 'Toutes fonctions'
    --Création : 17/10/2011 12:04:42 llg-PO15890; Modification : 02/05/2013 16:21:43 llg-PO36696; 
    
    SI activationContacts=VRAI ALORS
    	SORTIR VRAI
    SINON
    	SORTIR FAUX
    FIN SI
###
'FaxCacTitre_GRIS' 'Toutes fonctions'
    --Création : 17/10/2011 12:04:31 llg-PO15890; Modification : 02/05/2013 16:21:43 llg-PO36696; 
    
    SI activationContacts=VRAI ALORS
    	SORTIR VRAI
    SINON
    	SORTIR FAUX
    FIN SI
###
'NomCacSup_GRIS' 'Toutes fonctions'
    --Création : 17/10/2011 12:04:20 llg-PO15890; Modification : 02/05/2013 16:21:43 llg-PO36696; 
    
    SI activationContacts=VRAI ALORS
    	SORTIR VRAI
    SINON
    	SORTIR FAUX
    FIN SI
###
'RepCacSup_GRIS' 'Toutes fonctions'
    --Création : 17/10/2011 12:04:07 llg-PO15890; Modification : 02/05/2013 16:21:43 llg-PO36696; 
    
    SI activationContacts=VRAI ALORS
    	SORTIR VRAI
    SINON
    	SORTIR FAUX
    FIN SI
###
'Adr1CacSup_GRIS' 'Toutes fonctions'
    --Création : 17/10/2011 12:03:58 llg-PO15890; Modification : 02/05/2013 16:21:43 llg-PO36696; 
    
    SI activationContacts=VRAI ALORS
    	SORTIR VRAI
    SINON
    	SORTIR FAUX
    FIN SI
###
'Adr2CacSup_GRIS' 'Toutes fonctions'
    --Création : 17/10/2011 12:03:40 llg-PO15890; Modification : 02/05/2013 16:21:43 llg-PO36696; 
    
    SI activationContacts=VRAI ALORS
    	SORTIR VRAI
    SINON
    	SORTIR FAUX
    FIN SI
###
'CPCacSup_GRIS' 'Toutes fonctions'
    --Création : 17/10/2011 12:03:30 llg-PO15890; Modification : 02/05/2013 16:21:43 llg-PO36696; 
    
    SI activationContacts=VRAI ALORS
    	SORTIR VRAI
    SINON
    	SORTIR FAUX
    FIN SI
###
'VilleCacSup_GRIS' 'Toutes fonctions'
    --Création : 17/10/2011 12:03:18 llg-PO15890; Modification : 02/05/2013 16:21:43 llg-PO36696; 
    
    SI activationContacts=VRAI ALORS
    	SORTIR VRAI
    SINON
    	SORTIR FAUX
    FIN SI
###
'TelCacSup_GRIS' 'Toutes fonctions'
    --Création : 17/10/2011 12:03:06 llg-PO15890; Modification : 02/05/2013 16:21:43 llg-PO36696; 
    
    SI activationContacts=VRAI ALORS
    	SORTIR VRAI
    SINON
    	SORTIR FAUX
    FIN SI
###
'FaxCacSup_GRIS' 'Toutes fonctions'
    --Création : 17/10/2011 12:02:57 llg-PO15890; Modification : 02/05/2013 16:21:44 llg-PO36696; 
    
    SI activationContacts=VRAI ALORS
    	SORTIR VRAI
    SINON
    	SORTIR FAUX
    FIN SI
###
'QualiteRepresentantLegal_GRIS' 'Toutes fonctions'
    --Création : 17/10/2011 16:42:50 llg-PO15890; Modification : 02/05/2013 16:21:44 llg-PO36696; 
    SI activationContacts=VRAI OU contactExportes ALORS
    	SORTIR VRAI
    SINON
    	SORTIR FAUX
    FIN SI
###
'ResponsableDossier_GRIS' 'Toutes fonctions'
    --Création : 17/10/2011 16:42:50 llg-PO15890; Modification : 02/05/2013 16:21:44 llg-PO36696; 
    SI activationContacts=VRAI OU contactExportes ALORS
    	SORTIR VRAI
    SINON
    	SORTIR FAUX
    FIN SI
###
'Adr1Greffe_GRIS' 'Toutes fonctions'
    --Création : 17/10/2011 12:02:43 llg-PO15890; Modification : 02/05/2013 16:21:44 llg-PO36696; 
    
    SI activationContacts=VRAI ALORS
    	SORTIR VRAI
    SINON
    	SORTIR FAUX
    FIN SI
###
'Adr2Greffe_GRIS' 'Toutes fonctions'
    --Création : 17/10/2011 12:02:23 llg-PO15890; Modification : 02/05/2013 16:21:44 llg-PO36696; 
    
    SI activationContacts=VRAI ALORS
    	SORTIR VRAI
    SINON
    	SORTIR FAUX
    FIN SI
###
'CPGreffe_GRIS' 'Toutes fonctions'
    --Création : 17/10/2011 12:02:08 llg-PO15890; Modification : 02/05/2013 16:21:44 llg-PO36696; 
    
    SI activationContacts=VRAI ALORS
    	SORTIR VRAI
    SINON
    	SORTIR FAUX
    FIN SI
###
'VilleGreffe_GRIS' 'Toutes fonctions'
    --Création : 17/10/2011 12:01:46 llg-PO15890; Modification : 02/05/2013 16:21:44 llg-PO36696; 
    
    SI activationContacts=VRAI ALORS
    	SORTIR VRAI
    SINON
    	SORTIR FAUX
    FIN SI
###
'NumRecette_GRIS' 'Toutes fonctions'
    --Création : 17/10/2011 12:01:15 llg-PO15890; Modification : 02/05/2013 16:21:44 llg-PO36696; 
    
    SI activationContacts=VRAI ALORS
    	SORTIR VRAI
    SINON
    	SORTIR FAUX
    FIN SI
###
'AdrRec1_GRIS' 'Toutes fonctions'
    --Création : 17/10/2011 12:01:05 llg-PO15890; Modification : 02/05/2013 16:21:44 llg-PO36696; 
    
    SI activationContacts=VRAI ALORS
    	SORTIR VRAI
    SINON
    	SORTIR FAUX
    FIN SI
###
'AdrRec2_GRIS' 'Toutes fonctions'
    --Création : 17/10/2011 12:00:54 llg-PO15890; Modification : 02/05/2013 16:21:45 llg-PO36696; 
    
    SI activationContacts=VRAI ALORS
    	SORTIR VRAI
    SINON
    	SORTIR FAUX
    FIN SI
###
'AdrRec3_GRIS' 'Toutes fonctions'
    --Création : 17/10/2011 12:00:45 llg-PO15890; Modification : 02/05/2013 16:21:45 llg-PO36696; 
    
    SI activationContacts=VRAI ALORS
    	SORTIR VRAI
    SINON
    	SORTIR FAUX
    FIN SI
###
'CPRec_GRIS' 'Toutes fonctions'
    --Création : 17/10/2011 12:00:31 llg-PO15890; Modification : 02/05/2013 16:21:45 llg-PO36696; 
    
    SI activationContacts=VRAI ALORS
    	SORTIR VRAI
    SINON
    	SORTIR FAUX
    FIN SI
###
'VilleRec_GRIS' 'Toutes fonctions'
    --Création : 17/10/2011 12:00:20 llg-PO15890; Modification : 02/05/2013 16:21:45 llg-PO36696; 
    
    SI activationContacts=VRAI ALORS
    	SORTIR VRAI
    SINON
    	SORTIR FAUX
    FIN SI
###
'TelRec_GRIS' 'Toutes fonctions'
    --Création : 17/10/2011 12:00:06 llg-PO15890; Modification : 02/05/2013 16:21:45 llg-PO36696; 
    
    SI activationContacts=VRAI ALORS
    	SORTIR VRAI
    SINON
    	SORTIR FAUX
    FIN SI
###
'FaxRec_GRIS' 'Toutes fonctions'
    --Création : 17/10/2011 11:59:47 llg-PO15890; Modification : 02/05/2013 16:21:45 llg-PO36696; 
    
    SI activationContacts=VRAI ALORS
    	SORTIR VRAI
    SINON
    	SORTIR FAUX
    FIN SI
###
'AdrCdi1_GRIS' 'Toutes fonctions'
    --Création : 17/10/2011 11:59:29 llg-PO15890; Modification : 02/05/2013 16:21:45 llg-PO36696; 
    
    SI activationContacts=VRAI ALORS
    	SORTIR VRAI
    SINON
    	SORTIR FAUX
    FIN SI
###
'NomJuridiqueExterne_GRIS' 'Toutes fonctions'
    --Création : 17/10/2011 16:45:11 llg-PO15890; Modification : 02/05/2013 16:21:45 llg-PO36696; 
    SI activationContacts=VRAI ALORS
    	SORTIR VRAI
    SINON
    	SORTIR FAUX
    FIN SI
###
'AdrCdi2_GRIS' 'Toutes fonctions'
    --Création : 17/10/2011 11:59:16 llg-PO15890; Modification : 02/05/2013 16:21:45 llg-PO36696; 
    
    SI activationContacts=VRAI ALORS
    	SORTIR VRAI
    SINON
    	SORTIR FAUX
    FIN SI
###
'CPCdi_GRIS' 'Toutes fonctions'
    --Création : 17/10/2011 11:59:04 llg-PO15890; Modification : 02/05/2013 16:21:45 llg-PO36696; 
    
    SI activationContacts=VRAI ALORS
    	SORTIR VRAI
    SINON
    	SORTIR FAUX
    FIN SI
###
'VilleCdi_GRIS' 'Toutes fonctions'
    --Création : 17/10/2011 11:58:57 llg-PO15890; Modification : 02/05/2013 16:21:45 llg-PO36696; 
    
    SI activationContacts=VRAI ALORS
    	SORTIR VRAI
    SINON
    	SORTIR FAUX
    FIN SI
###
'AdrJuridiqueExterne_GRIS' 'Toutes fonctions'
    --Création : 17/10/2011 16:44:43 llg-PO15890; Modification : 02/05/2013 16:21:45 llg-PO36696; 
    
    SI activationContacts=VRAI ALORS
    	SORTIR VRAI
    SINON
    	SORTIR FAUX
    FIN SI
###
'TelCdi_GRIS' 'Toutes fonctions'
    --Création : 17/10/2011 11:58:43 llg-PO15890; Modification : 02/05/2013 16:21:45 llg-PO36696; 
    
    SI activationContacts=VRAI ALORS
    	SORTIR VRAI
    SINON
    	SORTIR FAUX
    FIN SI
###
'FaxCdi_GRIS' 'Toutes fonctions'
    --Création : 17/10/2011 11:58:31 llg-PO15890; Modification : 02/05/2013 16:21:45 llg-PO36696; 
    
    SI activationContacts=VRAI ALORS
    	SORTIR VRAI
    SINON
    	SORTIR FAUX
    FIN SI
###
'NomDuCentre_GRIS' 'Toutes fonctions'
    --Création : 17/10/2011 11:58:20 llg-PO15890; Modification : 02/05/2013 16:21:45 llg-PO36696; 
    
    SI activationContacts=VRAI ALORS
    	SORTIR VRAI
    SINON
    	SORTIR FAUX
    FIN SI
###
'NCentre_GRIS' 'Toutes fonctions'
    --Création : 17/10/2011 11:58:06 llg-PO15890; Modification : 02/05/2013 16:21:45 llg-PO36696; 
    
    SI activationContacts=VRAI ALORS
    	SORTIR VRAI
    SINON
    	SORTIR FAUX
    FIN SI
###
'TelCGA_GRIS' 'Toutes fonctions'
    --Création : 17/10/2011 11:57:51 llg-PO15890; Modification : 02/05/2013 16:21:45 llg-PO36696; 
    
    SI activationContacts=VRAI ALORS
    	SORTIR VRAI
    SINON
    	SORTIR FAUX
    FIN SI
###
'FaxCGA_GRIS' 'Toutes fonctions'
    --Création : 17/10/2011 11:57:39 llg-PO15890; Modification : 02/05/2013 16:21:45 llg-PO36696; 
    
    SI activationContacts=VRAI ALORS
    	SORTIR VRAI
    SINON
    	SORTIR FAUX
    FIN SI
###
'AdrC1_GRIS' 'Toutes fonctions'
    --Création : 17/10/2011 11:57:28 llg-PO15890; Modification : 02/05/2013 16:21:45 llg-PO36696; 
    
    SI activationContacts=VRAI ALORS
    	SORTIR VRAI
    SINON
    	SORTIR FAUX
    FIN SI
###
'AdrC2_GRIS' 'Toutes fonctions'
    --Création : 17/10/2011 11:57:16 llg-PO15890; Modification : 02/05/2013 16:21:45 llg-PO36696; 
    
    SI activationContacts=VRAI ALORS
    	SORTIR VRAI
    SINON
    	SORTIR FAUX
    FIN SI
###
'CPCGA_GRIS' 'Toutes fonctions'
    --Création : 17/10/2011 11:56:59 llg-PO15890; Modification : 02/05/2013 16:21:45 llg-PO36696; 
    
    SI activationContacts=VRAI ALORS
    	SORTIR VRAI
    SINON
    	SORTIR FAUX
    FIN SI
###
'CodePostalJuridiqueExterne_GRIS' 'Toutes fonctions'
    --Création : 17/10/2011 15:04:28 llg-PO15890; Modification : 02/05/2013 16:21:45 llg-PO36696; 
    SI activationContacts=VRAI ALORS
    	SORTIR VRAI
    SINON
    	SORTIR FAUX
    FIN SI
###
'VilleJuridiqueExterne_GRIS' 'Toutes fonctions'
    --Création : 17/10/2011 15:03:37 llg-PO15890; Modification : 02/05/2013 16:21:46 llg-PO36696; 
    
    SI activationContacts=VRAI ALORS
    	SORTIR VRAI
    SINON
    	SORTIR FAUX
    FIN SI
###
'VilleCGA_GRIS' 'Toutes fonctions'
    --Création : 17/10/2011 11:56:52 llg-PO15890; Modification : 02/05/2013 16:21:46 llg-PO36696; 
    
    SI activationContacts=VRAI ALORS
    	SORTIR VRAI
    SINON
    	SORTIR FAUX
    FIN SI
###
'siretCGA_GRIS' 'Toutes fonctions'
    --Création : 17/10/2011 11:56:38 llg-PO15890; Modification : 02/05/2013 16:21:46 llg-PO36696; 
    
    SI activationContacts=VRAI ALORS
    	SORTIR VRAI
    SINON
    	SORTIR FAUX
    FIN SI
###
'NomAGA_GRIS' 'Toutes fonctions'
    --Création : 17/10/2011 11:56:27 llg-PO15890; Modification : 02/05/2013 16:21:46 llg-PO36696; 
    
    SI activationContacts=VRAI ALORS
    	SORTIR VRAI
    SINON
    	SORTIR FAUX
    FIN SI
###
'NumAgremAGA_GRIS' 'Toutes fonctions'
    --Création : 17/10/2011 11:56:15 llg-PO15890; Modification : 02/05/2013 16:21:46 llg-PO36696; 
    
    SI activationContacts=VRAI ALORS
    	SORTIR VRAI
    SINON
    	SORTIR FAUX
    FIN SI
###
'TelAGA_GRIS' 'Toutes fonctions'
    --Création : 17/10/2011 11:56:02 llg-PO15890; Modification : 02/05/2013 16:21:46 llg-PO36696; 
    
    SI activationContacts=VRAI ALORS
    	SORTIR VRAI
    SINON
    	SORTIR FAUX
    FIN SI
###
'FaxAGA_GRIS' 'Toutes fonctions'
    --Création : 17/10/2011 11:55:50 llg-PO15890; Modification : 02/05/2013 16:21:46 llg-PO36696; 
    
    SI activationContacts=VRAI ALORS
    	SORTIR VRAI
    SINON
    	SORTIR FAUX
    FIN SI
###
'AdresAGA1_GRIS' 'Toutes fonctions'
    --Création : 17/10/2011 11:55:42 llg-PO15890; Modification : 02/05/2013 16:21:46 llg-PO36696; 
    
    SI activationContacts=VRAI ALORS
    	SORTIR VRAI
    SINON
    	SORTIR FAUX
    FIN SI
###
'Greffe_GRIS' 'Toutes fonctions'
    --Création : 17/10/2011 15:52:33 llg-PO15890; Modification : 02/05/2013 16:21:46 llg-PO36696; 
    SI activationContacts=VRAI OU contactExportes = VRAI ALORS
    	SORTIR VRAI
    SINON
    	SORTIR FAUX
    FIN SI
###
'Greffe2_GRIS' 'Toutes fonctions'
    --Création : 17/10/2011 15:37:03 llg-PO15890; Modification : 29/04/2015 14:45:52 llg2-PC100391; 
    SI activationContacts=VRAI OU contactExportes= VRAI ALORS
    	SORTIR VRAI
    SINON
    	SORTIR FAUX
    FIN SI
###
'AdresAGA2_GRIS' 'Toutes fonctions'
    --Création : 17/10/2011 11:55:30 llg-PO15890; Modification : 02/05/2013 16:21:46 llg-PO36696; 
    
    SI activationContacts=VRAI ALORS
    	SORTIR VRAI
    SINON
    	SORTIR FAUX
    FIN SI
###
'CPAGA_GRIS' 'Toutes fonctions'
    --Création : 17/10/2011 11:55:08 llg-PO15890; Modification : 02/05/2013 16:21:46 llg-PO36696; 
    
    SI activationContacts=VRAI ALORS
    	SORTIR VRAI
    SINON
    	SORTIR FAUX
    FIN SI
###
'VilleAGA_GRIS' 'Toutes fonctions'
    --Création : 17/10/2011 11:54:54 llg-PO15890; Modification : 02/05/2013 16:21:46 llg-PO36696; 
    
    SI activationContacts=VRAI ALORS
    	SORTIR VRAI
    SINON
    	SORTIR FAUX
    FIN SI
###
'siretAGA_GRIS' 'Toutes fonctions'
    --Création : 17/10/2011 11:54:33 llg-PO15890; Modification : 02/05/2013 16:21:46 llg-PO36696; 
    
    SI activationContacts=VRAI ALORS
    	SORTIR VRAI
    SINON
    	SORTIR FAUX
    FIN SI
###
'AdrBanque1_GRIS' 'Toutes fonctions'
    --Création : 17/10/2011 11:54:24 llg-PO15890; Modification : 02/05/2013 16:21:46 llg-PO36696; 
    
    SI activationContacts=VRAI ALORS
    	SORTIR VRAI
    SINON
    	SORTIR FAUX
    FIN SI
###
'TelBanque1_GRIS' 'Toutes fonctions'
    --Création : 17/10/2011 11:54:08 llg-PO15890; Modification : 02/05/2013 16:21:46 llg-PO36696; 
    
    SI activationContacts=VRAI ALORS
    	SORTIR VRAI
    SINON
    	SORTIR FAUX
    FIN SI
###
'FaxBanque1_GRIS' 'Toutes fonctions'
    --Création : 17/10/2011 11:53:59 llg-PO15890; Modification : 02/05/2013 16:21:46 llg-PO36696; 
    
    SI activationContacts=VRAI ALORS
    	SORTIR VRAI
    SINON
    	SORTIR FAUX
    FIN SI
###
'AdrBanque2_GRIS' 'Toutes fonctions'
    --Création : 17/10/2011 11:53:39 llg-PO15890; Modification : 02/05/2013 16:21:46 llg-PO36696; 
    
    SI activationContacts=VRAI ALORS
    	SORTIR VRAI
    SINON
    	SORTIR FAUX
    FIN SI
###
'TelBanque2_GRIS' 'Toutes fonctions'
    --Création : 17/10/2011 11:53:30 llg-PO15890; Modification : 02/05/2013 16:21:46 llg-PO36696; 
    
    SI activationContacts=VRAI ALORS
    	SORTIR VRAI
    SINON
    	SORTIR FAUX
    FIN SI
###
'TelJuridiqueExterne_GRIS' 'Toutes fonctions'
    --Création : 17/10/2011 16:44:16 llg-PO15890; Modification : 02/05/2013 16:21:47 llg-PO36696; 
    SI activationContacts=VRAI ALORS
    	SORTIR VRAI
    SINON
    	SORTIR FAUX
    FIN SI
###
'FaxBanque2_GRIS' 'Toutes fonctions'
    --Création : 17/10/2011 11:52:53 llg-PO15890; Modification : 02/05/2013 16:21:48 llg-PO36696; 
    
    SI activationContacts=VRAI ALORS
    	SORTIR VRAI
    SINON
    	SORTIR FAUX
    FIN SI
###
'get_TLR1_montantAutoPAIEMENT' 'Toutes fonctions'
    --Création : 17/07/2012 15:37:28 llg-PO36696; Modification : 21/08/2014 11:07:11 scr-PC101399; 
    |
    	tmpB<Booléen>
    |
    
    tmpB	:=	?
    
    SI contactExportes ALORS
             POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
                       SI element.type = 'Banque' ET element.estBanqueTLR1 ALORS
                                SORTIR element.avecMontantAutoPAIEMENT     
                       FIN SI
             FIN FAIRE
    
             SORTIR tmpB
    SINON
             SORTIR dossier!{'TLR1_montantAutoPAIEMENT'}booleen
    FIN SI
###
'get_TLR1_montantAuto' 'Toutes fonctions'
    --Création : 17/07/2012 15:37:28 llg-PO36696; Modification : 02/05/2013 16:21:48 llg-PO36696; 
    |
    	tmpB<Booléen>
    |
    
    tmpB	:=	?
    
    SI contactExportes ALORS
             POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
                       SI element.type = 'Banque' ET element.estBanqueTLR1 ALORS
                                SORTIR element.avecMontantAutoTVA     
                       FIN SI
             FIN FAIRE
    
             SORTIR tmpB
    SINON
             SORTIR dossier!{'TLR1_montantAuto'}booleen
    FIN SI
###
'formeJuridique_MODIF' 'Toutes fonctions'
{dte <Date> old <Chaine> str <Chaine>}
    --Création : 16/05/2006 15:59:46 DME-MENEC-D; Modification : 02/05/2013 16:21:48 llg-PO36696; 
    
    
    
    
    
    
    
    
    fixerTiroirsSpecifiques{} 
    
    -- ajout scr le 09/07/10
    SI droits{'Infolib'} > 0 ALORS
    	SI str <> old ALORS
    		info{'Attention ! Si vous utilisez la passerelle PolyActe, le changement de forme juridique 
entraîne des changements au niveau du dossier juridique de PolyActe.'}
    	FIN SI
    FIN SI
    
    SORTIR VRAI
###
'Passer le dossier en production' 'Toutes fonctions'
    --Création : 06/12/2004 14:11:31 ylv-YLV; Modification : 02/05/2013 16:21:48 llg-PO36696; 
    
    |
    	objLibrairieGI2<Objet>
    |
    
    objLibrairieGI2 ::= 'LibrairieGI2'
    objLibrairieGI2 := creer{'LibrairieGI2'}
    
    objLibrairieGI2.bPasserDossierEnProductionProspect{CodeDossier, FAUX, VRAI}
    
    SORTIR VRAI
###
'ModifierGuid' 'Toutes fonctions'
    --Création : 18/03/2013 09:14:26 llg-PO36696; Modification : 02/05/2013 16:21:48 llg-PO36696; 
    |
    	newGuid<Chaine>
    |
    newGuid	:=	saisir{'Changement de Guid : ', sGuid}
    
    SI newGuid <> sGuid ALORS
    	sGuid	:=	newGuid
    FIN SI
    
    info{'Suite à ce changement, il faut fermer et réouvrir le dossier permanent pour voir les nouveaux contacts...'}
###
'menusNouveauDP' 'Toutes fonctions'

	| 
		adm<Booléen>objLibrairieGI2<Objet>flotMenu<Objet>
		CR<Chaine>szTAB<Chaine>gievoEstAUn<Booléen>
	|

	objLibrairieGI2 ::= 'LibrairieGI2'
	objLibrairieGI2 := creer{'LibrairieGI2'}

	szTAB := '	'
    CR := '
'
    
    flotMenu:= flotEcriture{}
    
    gievoEstAUn := FAUX
    SI lireini{racine{}+'\local\bin\coala.ini', 'GI', 'GIEVO'} = '1' ALORS
    	gievoEstAUn := VRAI
    FINSI
    
    flotMenu += 'Gestion cabinet' + CR
    SI gievoEstAUn = VRAI ALORS
    	flotMenu += szTAB + 'Voir le compte client (gestion cabinet)[o:Voir le compte client (gestion cabinet)]'+CR
    SINON
    	flotMenu += szTAB + 'Voir le compte client (gestion cabinet)<G>[o:Voir le compte client (gestion cabinet)]'+CR
    FIN SI
    
    SI estProspect = VRAI ET estModifiable{dossier} ALORS
    	flotMenu += szTAB + 'Passer le dossier en production[o:Passer le dossier en production]'+CR
    SINON
    	flotMenu += szTAB + 'Passer le dossier en production<G>[o:Passer le dossier en production]'+CR
    FIN SI
    
    objLibrairieGI2.bTesterAvantOuvrirSqlSrvr{FAUX, FAUX}
    SI objLibrairieGI2.abOk = VRAI ALORS 
    	flotMenu += szTAB + 'Budgets des temps[o:Budgets des temps]'+CR
    	flotMenu += szTAB + 'Lettre de mission[o:Lettre de mission]'+CR
		objLibrairieGI2.lVerifierDroitApplication{'Facturation',''}
		SI objLibrairieGI2.alResultat = 2 OU objLibrairieGI2.alResultat = 1 ALORS
			flotMenu += szTAB + 'Activité et nature des travaux de la mission[o:Activité et nature des travaux de la mission]'+CR
		SINON
			flotMenu += szTAB + 'Activité et nature des travaux de la mission<G>[o:Activité et nature des travaux de la mission]'+CR
		FIN SI
    SINON
    	flotMenu += szTAB + 'Budgets des temps<G>[o:Budgets des temps]'+CR
    	flotMenu += szTAB + 'Lettre de mission<G>[o:Lettre de mission]'+CR
		flotMenu += szTAB + 'Activité et nature des travaux de la mission<G>[o:Activité et nature des travaux de la mission]'+CR
    FINSI
    SI gievoEstAUn = VRAI ALORS
    	flotMenu += szTAB + 'Générer les fichiers BU et LI Gestion Cabinet[o:Générer_les_fichiers_BU_et_LI_Gestion_Cabinet]'+CR
    SINON
    	flotMenu += szTAB + 'Générer les fichiers BU et LI Gestion Cabinet<G>[o:Générer_les_fichiers_BU_et_LI_Gestion_Cabinet]'+CR
    FINSI
    SI abBaseGI2AccessibleForRUMSepa = VRAI ALORS
    	flotMenu += szTAB + 'Imprimer le mandat SEPA[o:Imprimer le mandat SEPA]'+CR
    SINON
    	flotMenu += szTAB + 'Imprimer le mandat SEPA<G>[o:Imprimer le mandat SEPA]'+CR
    FIN SI
    
    flotMenu += '--' + CR
    flotMenu += 'Espace Expert' + CR
    
    SI lireini{ racine{}+'\local\bin\coala.ini', 'CONFIGURATION', 'CONTACTS'}='1' ALORS
    	adm := droitsUtilisateur{'Administration'}=2
    	SI activationContacts=? OU activationContacts=FAUX ALORS
    		flotMenu += szTAB + 'Activer la gestion des contacts[o:Activer la gestion des contacts]'+CR
    		flotMenu += szTAB + 'Assistant de migration des contacts<G>[o:Assistant de migration des contacts]'+CR
    	SINON			
    		flotMenu += szTAB + 'Activer la gestion des contacts<G>[o:Activer la gestion des contacts]'+CR
    		flotMenu += szTAB + 'Assistant de migration des contacts[o:Assistant de migration des contacts]'+CR
    	FIN SI
    FIN SI
    objLibrairieGI2.bTesterAvantOuvrirSqlSrvr{FAUX, FAUX}
    SI objLibrairieGI2.abOk = VRAI ALORS 
    	flotMenu += szTAB + 'Recalculer les obligations légales[o:Recalculer les obligations légales]'+CR
    	flotMenu += szTAB + 'Mettre à jour les obligations légales[o:Mettre à jour les obligations légales]'+CR
    SINON
    	flotMenu += szTAB + 'Recalculer les obligations légales<G>[o:Recalculer les obligations légales]'+CR
    	flotMenu += szTAB + 'Mettre à jour les obligations légales<G>[o:Mettre à jour les obligations légales]'+CR
    FINSI
    
    flotMenu += '--' + CR   
    flotMenu += 'Importer dossier permanent Sage[o:Importer_dossier_permanent_Sage]'+CR
    SI enDev{'PbGuid'} ALORS
    	flotMenu	+=	'Modifier sGuid du dossier[o:ModifierGuid]'+CR
    FIN SI
    
    SORTIR ''+contenuFlot{flotMenu}
###
'SELECTION_LOCALE' 'Toutes fonctions'
    --Création : 25/09/2009 11:17:41 mik-MIMOR; Modification : 25/09/2009 11:17:41 mik-MIMOR;
###
'RepresentantLegal_MODIF' 'Toutes fonctions'
    --Création : 08/03/2007 09:56:31 fpo-FRPOU; Modification : 02/05/2013 16:21:48 llg-PO36696; 
    
    SI ResponsableEntreprise = ? ALORS
    	ResponsableEntreprise := RepresentantLegal
    	editeur.majVariable := 'ResponsableEntreprise'
    FINSI
    
    SORTIR VRAI
###
'ResponsableEntreprise_MODIF' 'Toutes fonctions'
    --Création : 08/03/2007 09:56:31 fpo-FRPOU; Modification : 02/05/2013 16:21:48 llg-PO36696; 
    
    SI RepresentantLegal=? ALORS
    	RepresentantLegal := ResponsableEntreprise
    	editeur.majVariable := 'RepresentantLegal'
    FINSI
    
    SORTIR VRAI
###
'qualiteRepresentantLegal_GRIS' 'Toutes fonctions'
    --Création : 17/10/2011 15:53:40 llg-PO15890; Modification : 02/05/2013 16:21:48 llg-PO36696; 
    SI activationContacts=VRAI OU dossier.contactExportes ALORS
    	SORTIR VRAI
    SINON
    	SORTIR FAUX
    FIN SI
###
'civRepLegal_GRIS' 'Toutes fonctions'
    --Création : 17/10/2011 15:53:40 llg-PO15890; Modification : 02/05/2013 16:21:49 llg-PO36696; 
    SI activationContacts=VRAI OU dossier.contactExportes ALORS
    	SORTIR VRAI
    SINON
    	SORTIR FAUX
    FIN SI
###
'mm_GRIS' 'Toutes fonctions'
    --Création : 17/10/2011 15:53:40 llg-PO15890; Modification : 02/05/2013 16:21:49 llg-PO36696; 
    
    SI activationContacts=VRAI OU dossier.contactExportes ALORS
    	SORTIR VRAI
    SINON
    	SORTIR FAUX
    FIN SI
###
'mm_MODIF' 'Toutes fonctions'
    --Création : 08/03/2007 09:55:40 fpo-FRPOU; Modification : 02/05/2013 16:21:49 llg-PO36696; 
    
    SI civRepLegal=? ALORS
    	SI mm<> 'Messieurs' ET mm<>'Mesdames' ALORS
    		civRepLegal := mm
    		--editeur.majAttributs
    		editeur.majVariable := 'civRepLegal'
    	FINSI
    FINSI
    
    SORTIR VRAI
###
'sansEspaceFin' 'Toutes fonctions'
{string <Chaine>}
    --Création : 18/02/2003 11:01:56 sav-STEPHANE; Modification : 02/05/2013 16:21:49 llg-PO36696; 
    
    
    
    
    
    
    
    | 
    	fin <Entier>  car <Chaine> 
    |
    
    SI string = ? ALORS
    	SORTIR string
    FIN SI
    
    fin := taille {string}
    car := chaine {string , fin , fin}
    TANTQUE (fin > 0) ET (car = ' ')  FAIRE
    	fin -= 1
    	car := chaine {string, fin , fin}
    FINFAIRE
    
    SI fin = 0 ALORS
    	SORTIR ''
    SINON
    	SORTIR chaine {string , 1 , fin}
    FIN SI
###
'prescriptionCliente_LISTE' 'Toutes fonctions'
    --Création : 23/04/2008 16:42:55 llg-LALGU; Modification : 02/05/2013 16:21:49 llg-PO36696; 
    SORTIR nomsDossiers{}
###
'ajouterEtablissement' 'Toutes fonctions'
{nomEtb <Chaine>}
    --Création : 31/07/2006 18:00:49 DME-MENEC-D; Modification : 02/05/2013 16:21:49 llg-PO36696; 
    etablissement +:= nomEtb
    info{'etb : '+etablissement}
    SORTIR etablissement
###
'AJOUTER_ETABLISSEMENT' 'Toutes fonctions'
    --Création : 21/10/2004 11:34:02 jcr-CLAUDE; Modification : 02/05/2013 16:21:49 llg-PO36696; 
    
    SORTIR dossier
###
'sansEspaceDebut' 'Toutes fonctions'
{szChArg <Chaine>}
    | lCpteur <Entier>  lLen<Entier> car <Chaine>szRep<Chaine> |
    
    SI szChArg = ? ALORS
    	SORTIR szChArg
    FIN SI
    
    lCpteur:=1
    lLen := taille {szChArg}
    car := chaine {szChArg , lCpteur , lCpteur}
    TANTQUE (lCpteur <= lLen) ET (car = ' ')  FAIRE
    	lCpteur += 1
    	car := chaine {szChArg, lCpteur , lCpteur}
    FINFAIRE
    
    SORTIR chaine {szChArg , lCpteur, lLen}
###
'creerEtablissement' 'Toutes fonctions'
{aNom <Chaine>}
    --Création : 24/03/2005 14:26:53 jcr-CLAUDE; Modification : 02/05/2013 16:21:49 llg-PO36696; 
    etablissement +:= ''+aNom
    etablissement .sGuid := szGuid{}
###
'dateReg_CLICKDROIT' 'Toutes fonctions'
    --Création : 22/09/2001 13:14:03 op1-OLIVIER2000; Modification : 02/05/2013 16:21:49 llg-PO36696; 
    |
    	str <Chaine> 
    |
    
    str := choix{ 'fin de mois', 'le 10 du mois suivant', 'le 20 du mois suivant','le xx du mois suivant', 'le xx de ce mois', 'à xx jours date de facture','?'}
    
    
    SI taille{str} = 0 ALORS SORTIR FAUX FIN SI
    
    SI str = '?' ALORS
    	dossier.dateReg := ?
    SINON
    	dossier.dateReg := str
    FINSI
    
    --affichage{FAUX}
    editeur.majAttributs
    SORTIR VRAI
###
'ouvrirCompteClient' 'Toutes fonctions'
{argDossier <Chaine> argCompte <Chaine>}
    --Création : 09/08/2005 10:38:03 SJA-JAMIN-S; Modification : 02/05/2013 16:21:49 llg-PO36696; 
    
    
    
    
    
    
    
    -- Variables : 
    --	ed : editeur de retraitement à ouvrir.
    --	edCC : Editeur de compte client.
    
    |
    	ed<Objet> edCC<Objet>
    |
    
    ed	::=	'Editeur'
    
    -- Ne pas ouvrir plusieurs fois la même fenêtre.
    SI editeurClient <> ? ALORS
    	ed	:=	editeur{editeurClient}
    
    	-- l''éditeur ouvert récupère le focus puis bloque l''ouverture d''un même éditeur.
    	SI ed <> ? ALORS
    		ed.ouvrir
    		SORTIR VRAI
    	FIN SI
    FIN SI
    
    -- création d'une instance Editeur de retraitement
    edCC			::=	'EditeurCompteClient'
    editeurClient		:= 	creer{'EditeurCompteClient'}
    edCC			:=	editeurClient
    edCC.codeDossier 	:=	argDossier
    
    dossier	::=	argDossier
    exerciceComptable	::=	debutExercice{0}
    compte	::=	argCompte
    
    edCC.ouvrir{exerciceComptable, compte}
    
    SORTIR VRAI
###
'creerContactDossier' 'Toutes fonctions'
    --Création : 14/06/2012 15:32:29 llg-PO36696; Modification : 17/01/2014 16:27:45 llg-PO36696; 
    |
    	dteCreation<Date>pers<Objet>roleWeb<Objet>ip<Chaine>url<Chaine>edWeb<Objet>ongletsMultiples<Chaine>
    |
    
    pers		::=	'Personne'
    roleWeb		::=	'Role'
    edWeb		::=	'EditeurWeb'
    
    SI lireini{racine{}+'\local\bin\coala.ini', 'Configuration', 'CONTACTSACTIVES'} = '1' ALORS
    	--A LA CREATION D'UN DOSSIER, ON FAIT LES CHOSES SUIVANTES : 
    	--1/ Passer l'attribut contactsExportes a VRAI
    	--2/ Proposer les variables "obligatoires"
    	--3/ Commit
    	--4/ Creer le contact Dossier
    	
    
    	--dialogue{300, 500, 'RaisonSociale','nomDossier','Siret','Adresse1','Adresse2','Adresse3','CodePostal','Ville','Telephone','Telephone2','Fax','Email','formeJuridique','Paramétrage du dossier'}
    	--commit{}
    	dteCreation	:=	date{31, 01, annee{aujourdhui{}}-1} --date{saisir{'A partir de quelle date souhaitez-vous renseigner les valeurs de votre dossier permanent?', ''+date{31, 01, annee{aujourdhui{}}-1}}}
    	--SI date erronnée... on force au debut de l'annee N-1
    
    	--SI dteCreation = ? ALORS dteCreation := date{31, 01, annee{aujourdhui{}}-1} FIN SI
    
    	contactExportes	:=	VRAI
    
    	
    	pers := creer{'Personne', '/mongo/Personne'}
    	roleWeb	:=	pers.initDossier{dossier}
    
    	--Bidouille pour recuperer le siret lors de la creation (a ecrire dans le _dossiers_)		
    	pers.dossierACreer	:=	dossier
    
    	collaborateur	::=	''
    	SI lireini{racine{}+'\local\bin\coala.ini', 'Configuration', 'CONTACTSMODEWEB'} = '1' ALORS
    		commit{pers}
    		commit{roleWeb}
    	SINON
    		pers.modifier{dteCreation, FAUX}
    		commit{}
    	FIN SI
    	VoirNouveauxContacts{}
    FIN SI
###
'INITIALISER' 'Toutes fonctions'
    --Création : 17/10/2011 14:12:44 llg-PO15890; Modification : 03/05/2013 12:33:03 llg-PO36696; 
    |
    	sContacts<Chaine>
    |
    
    --CREATION DU CONTACT DOSSIER A LA CREATION D'UN DOSSIER DEPUIS COALA
    creerContactDossier{}
    okCopierColler	:=	VRAI
    
    sContacts:= lireini{ racine{}+'\local\bin\coala.ini', 'CONFIGURATION', 'CONTACTS'}
    SI sContacts='1' ALORS
    	SI (estProspect=? OU  estProspect=FAUX )ET activationContacts <> VRAI ALORS
    		activationContacts := VRAI
    	FIN SI
    FIN SI
###
'Greffe_MODIF' 'Toutes fonctions'
    --Création : 17/11/2005 18:06:58 jcr-RANAIVO-C; Modification : 02/05/2013 16:21:49 llg-PO36696; 
    
    Greffe2 != Greffe
    
    SORTIR VRAI
###
'Greffe2_MODIF' 'Toutes fonctions'
    --Création : 17/11/2005 18:06:58 jcr-RANAIVO-C; Modification : 02/05/2013 16:21:50 llg-PO36696; 
    
    Greffe != Greffe2
    
    SORTIR VRAI
###
'fixerTiroirsSpecifiques' 'Toutes fonctions'
    --Création : 16/05/2006 15:56:47 DME-MENEC-D; Modification : 29/04/2015 14:45:54 llg2-PC100391; 
    
    dossier!{'Spécifique aux SA'}booleen := FAUX
    dossier!{'Spécifique aux SARL & SNC'}booleen := FAUX
    SI formeJuridique='S.A.' ALORS dossier!{'Spécifique aux SA'}booleen := VRAI FINSI
    SI (formeJuridique='S.A.R.L.') OU  ( formeJuridique='S.N.C.' ) ALORS dossier!{'Spécifique SARL & SNC'}booleen := VRAI FINSI
###
'lancerEditeurActivNatureTravMiss' 'Toutes fonctions'
{szCodeDossierArg <Chaine>}

	|
		objLibrairieGI2<Objet>objOutilsGI2<Objet>
	|

	objLibrairieGI2 ::= 'LibrairieGI2'
	objLibrairieGI2 := creer{'LibrairieGI2'}
	objOutilsGI2 ::= 'OutilsGI2'
	objOutilsGI2 := creer{'OutilsGI2'}

	objLibrairieGI2.bTesterAvantOuvrirSqlSrvr{FAUX, FAUX}
	SI objLibrairieGI2.abOk = VRAI ALORS 
		objOutilsGI2.LancerGestionCodeProduits{VRAI, VRAI, VRAI, VRAI, FAUX, szCodeDossierArg}
	SINON
		info{'La base SqlServer n''est pas installée.
Vous ne pouvez pas lancer ce traitement'}
	FIN SI

###
'RESUME' 'Toutes fonctions'
    --Création : 24/07/2006 12:44:47 jcr-CLRAN3; Modification : 18/12/2014 09:29:35 llg-PC100391; 
    
    SORTIR ''
###
'RESUMEPARC' 'Toutes fonctions'
    --Création : 24/07/2006 12:44:47 jcr-CLRAN3; Modification : 15/12/2014 15:26:13 llg-PC100391; 
    
    SORTIR ''
###
'obligationsSocialesTNS_MODIF' 'Toutes fonctions'
    --Création : 24/08/2006 10:48:20 ylv-LEVERGE-Y; Modification : 02/05/2013 16:21:50 llg-PO36696; 
    
    --Création : 24/08/2006 15:22:14 ylv-LEVERGE-Y; Modification : 24/08/2006 15:27:41 ylv-LEVERGE-Y; 
    
    SI obligationsSocialesTNS = VRAI ALORS
    	SI dteCloture = ? ALORS
    		info{szMessCalculObligationsLegalesImpossible{}}
    	FIN SI
    FIN SI
    
    obligationsTNS := obligationsSocialesTNS
    
    SORTIR VRAI
###
'obligationsTNS_MODIF' 'Toutes fonctions'
    --Création : 24/08/2006 10:48:54 ylv-LEVERGE-Y; Modification : 02/05/2013 16:21:50 llg-PO36696; 
    
    obligationsSocialesTNS := obligationsTNS
    
    SORTIR VRAI
###
'obligationsSociales_MODIF' 'Toutes fonctions'
    --Création : 24/08/2006 15:22:14 ylv-LEVERGE-Y; Modification : 02/05/2013 16:21:50 llg-PO36696; 
    
    SI obligationsSociales = VRAI ALORS
    	SI dteCloture = ? ALORS
    		info{szMessCalculObligationsLegalesImpossible{}}
    	FIN SI
    FIN SI
    
    SORTIR VRAI
###
'obligationsFiscales_MODIF' 'Toutes fonctions'
    --Création : 24/08/2006 15:22:51 ylv-LEVERGE-Y; Modification : 02/05/2013 16:21:50 llg-PO36696; 
    
    --Création : 24/08/2006 15:22:14 ylv-LEVERGE-Y; Modification : 24/08/2006 15:27:41 ylv-LEVERGE-Y; 
    
    SI obligationsFiscales = VRAI ALORS
    	SI dteCloture = ? ALORS
    		info{szMessCalculObligationsLegalesImpossible{}}
    	FIN SI
    FIN SI
    
    SORTIR VRAI
###
'obligationsJuridiques_MODIF' 'Toutes fonctions'
    --Création : 24/08/2006 15:22:14 ylv-LEVERGE-Y; Modification : 02/05/2013 16:21:50 llg-PO36696; 
    
    SI obligationsJuridiques = VRAI ALORS
    	SI dteCloture = ? ALORS
    		info{szMessCalculObligationsLegalesImpossible{}}
    	FIN SI
    FIN SI
    
    SORTIR VRAI
###
'obligationsMemoPersonnel_MODIF' 'Toutes fonctions'
    --Création : 24/08/2006 15:22:14 ylv-LEVERGE-Y; Modification : 02/05/2013 16:21:50 llg-PO36696; 
    
    SI obligationsMemoPersonnel = VRAI ALORS
    	SI dteCloture = ? ALORS
    		info{szMessCalculObligationsLegalesImpossible{}}
    	FIN SI
    FIN SI
    
    SORTIR VRAI
###
'supprimerContacts' 'Toutes fonctions'
{social <Booléen>}
    --Création : 30/07/2012 09:34:05 llg-PO36696; Modification : 02/05/2013 16:21:50 llg-PO36696; 
    
    
    
    
    
    
    
    
    |
    	pers<Objet>listeMongo2<Objet>lstEtb<Objet>etb<Objet>i<Entier>
    	ngc<Objet> typesSociaux<Objet> estSocial<Booléen> rol<Objet>
    |
    ngc ::= 'NouvelleGestionContacts'
    ngc	:=	creer{'NouvelleGestionContacts'}
    typesSociaux	:=	ngc.getTypesRolesSociaux{}
    
    pers	::=	'Personne'
    etb	::=	'Etablissement'
    rol	::=	'Role'	
    
    POUR TOUT element<Role> DE lstNouveauxContacts
    FAIRE
    	rol := element
    	estSocial := rol.estSocial{typesSociaux}
    	SI ((NON estSocial) OU (estSocial ET social))	ALORS
    		supprimerElement{lstNouveauxContacts, element}
    		supprimer{element}
    	FIN SI
    FIN FAIRE
    lstEtb	:=	creerListe{}
    POUR TOUT element<Etablissement> DE etablissements FAIRE
    	etb	:=	element
    	ajouterElement{lstEtb, etb}
    FIN FAIRE
    i	:=	1
    TANT QUE i<=nbElements{lstEtb} FAIRE
    	etb	:=	elementDIndice{lstEtb, i}
    	etb.contactExportes	:=	FAUX
    	POUR TOUT element<Role> DE etb.lstNouveauxContacts
    	FAIRE
    		rol := element
    		estSocial := rol.estSocial{typesSociaux}
    		SI ((NON estSocial) OU (estSocial ET social))	ALORS
    			supprimerElement{etb.lstNouveauxContacts, element}
    			supprimer{element}
    		FIN SI
    	FIN FAIRE
    	i	+=	1
    FIN FAIRE
    contactExportes	:=	FAUX
    commit{}
    VoirNouveauxContacts{}
###
'szMessCalculObligationsLegalesImpossible' 'Toutes fonctions'
    --Création : 24/08/2006 15:24:48 ylv-LEVERGE-Y; Modification : 02/05/2013 16:21:50 llg-PO36696; 
    
    SORTIR 'La date de cloture du dossier permanent n''est pas renseignée.
Les obligations légales sur ce dossier ne pourront être calculées.

Veuillez renseigner cette date dans le dossier permanent ou 
créer un exercice comptable.'
###
'obligationsComptables_MODIF' 'Toutes fonctions'
    --Création : 24/08/2006 15:22:14 ylv-LEVERGE-Y; Modification : 02/05/2013 16:21:50 llg-PO36696; 
    
    SI obligationsComptables = VRAI ALORS
    	SI dteCloture = ? ALORS
    		info{szMessCalculObligationsLegalesImpossible{}}
    	FIN SI
    FIN SI
    
    SORTIR VRAI
###
'dateArretPaye_MODIF' 'Toutes fonctions'
    --Création : 24/08/2006 16:41:32 ylv-LEVERGE-Y; Modification : 02/05/2013 16:21:50 llg-PO36696; 
    
    SI dateArretPaye <> ? ALORS
    	SI dateArretPaye < 1 OU dateArretPaye > 31 ALORS
    		info{'Saisir un entier compris entre 1 et 31'}
    		dateArretPaye := ?
    		SORTIR FAUX
    	FIN SI
    FIN SI
    
    SORTIR VRAI
###
'getLibelleCalcule' 'Toutes fonctions'
{nomVariable <Chaine> libelle <Chaine>}
    --Création : 30/06/2010 17:32:15 llg-PO15890; Modification : 02/05/2013 16:21:50 llg-PO36696;     
    |
    	objEtatListeDossiers<Objet>i<Entier>nomVar<Chaine>valVar<Chaine>
    |
    objEtatListeDossiers ::= 'ListeDossiers'
    site ::= ''
    SI dicoLibellesZonesLibres = ? ALORS
    	dicoLibellesZonesLibres	:=	creerDictionnaire{}
    	objEtatListeDossiers := site.listeDossiers
    	SI objEtatListeDossiers <> ? ALORS
    		i := 1
    		TANT QUE i <= 40 FAIRE
    			nomVar := 'zone'+i
    			valVar := objEtatListeDossiers.{'zone'+i}chaine
    			cleValeur{dicoLibellesZonesLibres, nomVar, valVar}
    			i += 1
    		FIN FAIRE
    	FIN SI
    FIN SI
    
    valVar	:=	chaine{cleValeur{dicoLibellesZonesLibres, nomVariable}}
    SI valVar <> '' ET valVar <> ? ALORS 
    	SORTIR valVar
    SINON
    	SORTIR libelle
    FIN SI
    SORTIR libelle
###
'zone5_LIBELLE' 'Toutes fonctions'
    --Création : 16/10/2006 09:53:01 jcr-CLRAN3; Modification : 02/05/2013 16:21:50 llg-PO36696; 
    SORTIR getLibelleCalcule{'zone5', 'Zone libre 5 :'}
###
'zone4_LIBELLE' 'Toutes fonctions'
    --Création : 16/10/2006 09:53:01 jcr-CLRAN3; Modification : 02/05/2013 16:21:50 llg-PO36696; 
    SORTIR getLibelleCalcule{'zone4', 'Zone libre 4 :'}
###
'zone40_LIBELLE' 'Toutes fonctions'
    --Création : 16/10/2006 09:53:01 jcr-CLRAN3; Modification : 02/05/2013 16:21:50 llg-PO36696; 
    SORTIR getLibelleCalcule{'zone40', 'Zone libre 40 :'}
###
'zone39_LIBELLE' 'Toutes fonctions'
    --Création : 16/10/2006 09:53:01 jcr-CLRAN3; Modification : 02/05/2013 16:21:50 llg-PO36696; 
    SORTIR getLibelleCalcule{'zone39', 'Zone libre 39 :'}
###
'zone38_LIBELLE' 'Toutes fonctions'
    --Création : 16/10/2006 09:53:01 jcr-CLRAN3; Modification : 02/05/2013 16:21:50 llg-PO36696; 
    SORTIR getLibelleCalcule{'zone38', 'Zone libre 38 :'}
###
'zone37_LIBELLE' 'Toutes fonctions'
    --Création : 16/10/2006 09:53:01 jcr-CLRAN3; Modification : 02/05/2013 16:21:50 llg-PO36696; 
    SORTIR getLibelleCalcule{'zone37', 'Zone libre 37 :'}
###
'zone36_LIBELLE' 'Toutes fonctions'
    --Création : 16/10/2006 09:53:01 jcr-CLRAN3; Modification : 02/05/2013 16:21:50 llg-PO36696; 
    SORTIR getLibelleCalcule{'zone36', 'Zone libre 36 :'}
###
'zone35_LIBELLE' 'Toutes fonctions'
    --Création : 16/10/2006 09:53:01 jcr-CLRAN3; Modification : 02/05/2013 16:21:51 llg-PO36696; 
    SORTIR getLibelleCalcule{'zone35', 'Zone libre 35 :'}
###
'zone34_LIBELLE' 'Toutes fonctions'
    --Création : 16/10/2006 09:53:01 jcr-CLRAN3; Modification : 02/05/2013 16:21:51 llg-PO36696; 
    SORTIR getLibelleCalcule{'zone34', 'Zone libre 34 :'}
###
'zone33_LIBELLE' 'Toutes fonctions'
    --Création : 16/10/2006 09:53:01 jcr-CLRAN3; Modification : 02/05/2013 16:21:51 llg-PO36696; 
    SORTIR getLibelleCalcule{'zone33', 'Zone libre 33 :'}
###
'zone32_LIBELLE' 'Toutes fonctions'
    --Création : 16/10/2006 09:53:01 jcr-CLRAN3; Modification : 02/05/2013 16:21:51 llg-PO36696; 
    SORTIR getLibelleCalcule{'zone32', 'Zone libre 32 :'}
###
'zone31_LIBELLE' 'Toutes fonctions'
    --Création : 16/10/2006 09:53:01 jcr-CLRAN3; Modification : 02/05/2013 16:21:51 llg-PO36696; 
    SORTIR getLibelleCalcule{'zone31', 'Zone libre 31 :'}
###
'zone30_LIBELLE' 'Toutes fonctions'
    --Création : 16/10/2006 09:53:01 jcr-CLRAN3; Modification : 02/05/2013 16:21:51 llg-PO36696; 
    SORTIR getLibelleCalcule{'zone30', 'Zone libre 30 :'}
###
'zone3_LIBELLE' 'Toutes fonctions'
    --Création : 16/10/2006 09:53:01 jcr-CLRAN3; Modification : 02/05/2013 16:21:51 llg-PO36696; 
    SORTIR getLibelleCalcule{'zone3', 'Zone libre 3 :'}
###
'zone29_LIBELLE' 'Toutes fonctions'
    --Création : 16/10/2006 09:53:01 jcr-CLRAN3; Modification : 02/05/2013 16:21:51 llg-PO36696; 
    SORTIR getLibelleCalcule{'zone29', 'Zone libre 29 :'}
###
'zone28_LIBELLE' 'Toutes fonctions'
    --Création : 16/10/2006 09:53:01 jcr-CLRAN3; Modification : 02/05/2013 16:21:51 llg-PO36696; 
    SORTIR getLibelleCalcule{'zone28', 'Zone libre 28 :'}
###
'zone27_LIBELLE' 'Toutes fonctions'
    --Création : 16/10/2006 09:53:01 jcr-CLRAN3; Modification : 02/05/2013 16:21:51 llg-PO36696; 
    SORTIR getLibelleCalcule{'zone27', 'Zone libre 27 :'}
###
'zone26_LIBELLE' 'Toutes fonctions'
    --Création : 16/10/2006 09:53:01 jcr-CLRAN3; Modification : 02/05/2013 16:21:51 llg-PO36696; 
    SORTIR getLibelleCalcule{'zone26', 'Zone libre 26 :'}
###
'zone25_LIBELLE' 'Toutes fonctions'
    --Création : 16/10/2006 09:53:01 jcr-CLRAN3; Modification : 02/05/2013 16:21:51 llg-PO36696; 
    SORTIR getLibelleCalcule{'zone25', 'Zone libre 25 :'}
###
'zone24_LIBELLE' 'Toutes fonctions'
    --Création : 16/10/2006 09:53:01 jcr-CLRAN3; Modification : 02/05/2013 16:21:51 llg-PO36696; 
    SORTIR getLibelleCalcule{'zone24', 'Zone libre 24 :'}
###
'zone23_LIBELLE' 'Toutes fonctions'
    --Création : 16/10/2006 09:53:01 jcr-CLRAN3; Modification : 02/05/2013 16:21:51 llg-PO36696; 
    SORTIR getLibelleCalcule{'zone23', 'Zone libre 23 :'}
###
'zone22_LIBELLE' 'Toutes fonctions'
    --Création : 16/10/2006 09:53:01 jcr-CLRAN3; Modification : 02/05/2013 16:21:51 llg-PO36696; 
    SORTIR getLibelleCalcule{'zone22', 'Zone libre 22 :'}
###
'zone21_LIBELLE' 'Toutes fonctions'
    --Création : 16/10/2006 09:53:01 jcr-CLRAN3; Modification : 02/05/2013 16:21:51 llg-PO36696; 
    SORTIR getLibelleCalcule{'zone21', 'Zone libre 21 :'}
###
'zone20_LIBELLE' 'Toutes fonctions'
    --Création : 16/10/2006 09:53:01 jcr-CLRAN3; Modification : 02/05/2013 16:21:51 llg-PO36696; 
    SORTIR getLibelleCalcule{'zone20', 'Zone libre 20 :'}
###
'zone2_LIBELLE' 'Toutes fonctions'
    --Création : 16/10/2006 09:53:01 jcr-CLRAN3; Modification : 02/05/2013 16:21:51 llg-PO36696; 
    SORTIR getLibelleCalcule{'zone2', 'Zone libre 2 :'}
###
'zone19_LIBELLE' 'Toutes fonctions'
    --Création : 16/10/2006 09:53:01 jcr-CLRAN3; Modification : 02/05/2013 16:21:51 llg-PO36696; 
    SORTIR getLibelleCalcule{'zone19', 'Zone libre 19 :'}
###
'zone18_LIBELLE' 'Toutes fonctions'
    --Création : 16/10/2006 09:53:01 jcr-CLRAN3; Modification : 02/05/2013 16:21:51 llg-PO36696; 
    SORTIR getLibelleCalcule{'zone18', 'Zone libre 18 :'}
###
'zone17_LIBELLE' 'Toutes fonctions'
    --Création : 16/10/2006 09:53:01 jcr-CLRAN3; Modification : 02/05/2013 16:21:51 llg-PO36696; 
    SORTIR getLibelleCalcule{'zone17', 'Zone libre 17 :'}
###
'zone16_LIBELLE' 'Toutes fonctions'
    --Création : 16/10/2006 09:53:01 jcr-CLRAN3; Modification : 02/05/2013 16:21:51 llg-PO36696; 
    SORTIR getLibelleCalcule{'zone16', 'Zone libre 16 :'}
###
'zone15_LIBELLE' 'Toutes fonctions'
    --Création : 16/10/2006 09:53:01 jcr-CLRAN3; Modification : 02/05/2013 16:21:51 llg-PO36696; 
    SORTIR getLibelleCalcule{'zone15', 'Zone libre 15 :'}
###
'zone14_LIBELLE' 'Toutes fonctions'
    --Création : 16/10/2006 09:53:01 jcr-CLRAN3; Modification : 02/05/2013 16:21:51 llg-PO36696; 
    SORTIR getLibelleCalcule{'zone14', 'Zone libre 14 :'}
###
'zone13_LIBELLE' 'Toutes fonctions'
    --Création : 16/10/2006 09:53:01 jcr-CLRAN3; Modification : 02/05/2013 16:21:51 llg-PO36696; 
    SORTIR getLibelleCalcule{'zone13', 'Zone libre 13 :'}
###
'zone12_LIBELLE' 'Toutes fonctions'
    --Création : 16/10/2006 09:53:01 jcr-CLRAN3; Modification : 02/05/2013 16:21:51 llg-PO36696; 
    SORTIR getLibelleCalcule{'zone12', 'Zone libre 12 :'}
###
'zone11_LIBELLE' 'Toutes fonctions'
    --Création : 16/10/2006 09:53:01 jcr-CLRAN3; Modification : 02/05/2013 16:21:51 llg-PO36696; 
    SORTIR getLibelleCalcule{'zone11', 'Zone libre 11 :'}
###
'dateNaissanceChefEntreprise_GRIS' 'Toutes fonctions'
    --Création : 17/10/2011 17:09:10 llg-PO15890; Modification : 02/05/2013 16:21:52 llg-PO36696; 
    SI activationContacts=VRAI ALORS
    	SORTIR VRAI
    SINON
    	SORTIR FAUX
    FIN SI
###
'zone10_LIBELLE' 'Toutes fonctions'
    --Création : 16/10/2006 09:53:01 jcr-CLRAN3; Modification : 02/05/2013 16:21:52 llg-PO36696; 
    SORTIR getLibelleCalcule{'zone10', 'Zone libre 10 :'}
###
'zone10_CLICKDROIT' 'Toutes fonctions'
    --Création : 27/05/2011 14:09:31 ylv-PC15749; Modification : 02/05/2013 16:21:52 llg-PO36696; 
    
    SORTIR bClickDroitOnZoneLibre{10}
###
'zone11_CLICKDROIT' 'Toutes fonctions'
    --Création : 27/05/2011 14:09:31 ylv-PC15749; Modification : 02/05/2013 16:21:52 llg-PO36696; 
    
    SORTIR bClickDroitOnZoneLibre{11}
###
'zone12_CLICKDROIT' 'Toutes fonctions'
    --Création : 27/05/2011 14:09:31 ylv-PC15749; Modification : 02/05/2013 16:21:52 llg-PO36696; 
    
    SORTIR bClickDroitOnZoneLibre{12}
###
'zone13_CLICKDROIT' 'Toutes fonctions'
    --Création : 27/05/2011 14:09:31 ylv-PC15749; Modification : 02/05/2013 16:21:52 llg-PO36696; 
    
    SORTIR bClickDroitOnZoneLibre{13}
###
'zone14_CLICKDROIT' 'Toutes fonctions'
    --Création : 27/05/2011 14:09:31 ylv-PC15749; Modification : 02/05/2013 16:21:52 llg-PO36696; 
    
    SORTIR bClickDroitOnZoneLibre{14}
###
'zone15_CLICKDROIT' 'Toutes fonctions'
    --Création : 27/05/2011 14:09:31 ylv-PC15749; Modification : 02/05/2013 16:21:52 llg-PO36696; 
    
    SORTIR bClickDroitOnZoneLibre{15}
###
'zone16_CLICKDROIT' 'Toutes fonctions'
    --Création : 27/05/2011 14:09:31 ylv-PC15749; Modification : 02/05/2013 16:21:52 llg-PO36696; 
    
    SORTIR bClickDroitOnZoneLibre{16}
###
'zone17_CLICKDROIT' 'Toutes fonctions'
    --Création : 27/05/2011 14:09:31 ylv-PC15749; Modification : 02/05/2013 16:21:52 llg-PO36696; 
    
    SORTIR bClickDroitOnZoneLibre{17}
###
'zone18_CLICKDROIT' 'Toutes fonctions'
    --Création : 27/05/2011 14:09:31 ylv-PC15749; Modification : 02/05/2013 16:21:52 llg-PO36696; 
    
    SORTIR bClickDroitOnZoneLibre{18}
###
'zone19_CLICKDROIT' 'Toutes fonctions'
    --Création : 27/05/2011 14:09:31 ylv-PC15749; Modification : 02/05/2013 16:21:52 llg-PO36696; 
    
    SORTIR bClickDroitOnZoneLibre{19}
###
'zone1_CLICKDROIT' 'Toutes fonctions'
    --Création : 27/05/2011 14:09:31 ylv-PC15749; Modification : 02/05/2013 16:21:52 llg-PO36696; 
    
    SORTIR bClickDroitOnZoneLibre{1}
###
'zone20_CLICKDROIT' 'Toutes fonctions'
    --Création : 27/05/2011 14:09:31 ylv-PC15749; Modification : 02/05/2013 16:21:52 llg-PO36696; 
    
    SORTIR bClickDroitOnZoneLibre{20}
###
'zone21_CLICKDROIT' 'Toutes fonctions'
    --Création : 27/05/2011 14:09:31 ylv-PC15749; Modification : 02/05/2013 16:21:52 llg-PO36696; 
    
    SORTIR bClickDroitOnZoneLibre{21}
###
'zone22_CLICKDROIT' 'Toutes fonctions'
    --Création : 27/05/2011 14:09:31 ylv-PC15749; Modification : 02/05/2013 16:21:52 llg-PO36696; 
    
    SORTIR bClickDroitOnZoneLibre{22}
###
'zone23_CLICKDROIT' 'Toutes fonctions'
    --Création : 27/05/2011 14:09:31 ylv-PC15749; Modification : 02/05/2013 16:21:52 llg-PO36696; 
    
    SORTIR bClickDroitOnZoneLibre{23}
###
'zone24_CLICKDROIT' 'Toutes fonctions'
    --Création : 27/05/2011 14:09:31 ylv-PC15749; Modification : 02/05/2013 16:21:52 llg-PO36696; 
    
    SORTIR bClickDroitOnZoneLibre{24}
###
'zone25_CLICKDROIT' 'Toutes fonctions'
    --Création : 27/05/2011 14:09:31 ylv-PC15749; Modification : 02/05/2013 16:21:52 llg-PO36696; 
    
    SORTIR bClickDroitOnZoneLibre{25}
###
'zone26_CLICKDROIT' 'Toutes fonctions'
    --Création : 27/05/2011 14:09:31 ylv-PC15749; Modification : 02/05/2013 16:21:53 llg-PO36696; 
    
    SORTIR bClickDroitOnZoneLibre{26}
###
'zone27_CLICKDROIT' 'Toutes fonctions'
    --Création : 27/05/2011 14:09:31 ylv-PC15749; Modification : 02/05/2013 16:21:53 llg-PO36696; 
    
    SORTIR bClickDroitOnZoneLibre{27}
###
'zone28_CLICKDROIT' 'Toutes fonctions'
    --Création : 27/05/2011 14:09:31 ylv-PC15749; Modification : 02/05/2013 16:21:53 llg-PO36696; 
    
    SORTIR bClickDroitOnZoneLibre{28}
###
'zone29_CLICKDROIT' 'Toutes fonctions'
    --Création : 27/05/2011 14:09:31 ylv-PC15749; Modification : 02/05/2013 16:21:53 llg-PO36696; 
    
    SORTIR bClickDroitOnZoneLibre{29}
###
'zone2_CLICKDROIT' 'Toutes fonctions'
    --Création : 27/05/2011 14:09:31 ylv-PC15749; Modification : 02/05/2013 16:21:53 llg-PO36696; 
    
    SORTIR bClickDroitOnZoneLibre{2}
###
'zone30_CLICKDROIT' 'Toutes fonctions'
    --Création : 27/05/2011 14:09:31 ylv-PC15749; Modification : 02/05/2013 16:21:53 llg-PO36696; 
    
    SORTIR bClickDroitOnZoneLibre{31}
###
'zone31_CLICKDROIT' 'Toutes fonctions'
    --Création : 27/05/2011 14:09:31 ylv-PC15749; Modification : 02/05/2013 16:21:53 llg-PO36696; 
    
    SORTIR bClickDroitOnZoneLibre{31}
###
'zone32_CLICKDROIT' 'Toutes fonctions'
    --Création : 27/05/2011 14:09:31 ylv-PC15749; Modification : 02/05/2013 16:21:53 llg-PO36696; 
    
    SORTIR bClickDroitOnZoneLibre{32}
###
'zone33_CLICKDROIT' 'Toutes fonctions'
    --Création : 27/05/2011 14:09:31 ylv-PC15749; Modification : 02/05/2013 16:21:53 llg-PO36696; 
    
    SORTIR bClickDroitOnZoneLibre{33}
###
'zone34_CLICKDROIT' 'Toutes fonctions'
    --Création : 27/05/2011 14:09:31 ylv-PC15749; Modification : 02/05/2013 16:21:53 llg-PO36696; 
    
    SORTIR bClickDroitOnZoneLibre{34}
###
'zone35_CLICKDROIT' 'Toutes fonctions'
    --Création : 27/05/2011 14:09:31 ylv-PC15749; Modification : 02/05/2013 16:21:53 llg-PO36696; 
    
    SORTIR bClickDroitOnZoneLibre{35}
###
'zone36_CLICKDROIT' 'Toutes fonctions'
    --Création : 27/05/2011 14:09:31 ylv-PC15749; Modification : 02/05/2013 16:21:53 llg-PO36696; 
    
    SORTIR bClickDroitOnZoneLibre{36}
###
'zone37_CLICKDROIT' 'Toutes fonctions'
    --Création : 27/05/2011 14:09:31 ylv-PC15749; Modification : 02/05/2013 16:21:53 llg-PO36696; 
    
    SORTIR bClickDroitOnZoneLibre{37}
###
'zone38_CLICKDROIT' 'Toutes fonctions'
    --Création : 27/05/2011 14:09:31 ylv-PC15749; Modification : 02/05/2013 16:21:53 llg-PO36696; 
    
    SORTIR bClickDroitOnZoneLibre{38}
###
'zone39_CLICKDROIT' 'Toutes fonctions'
    --Création : 27/05/2011 14:09:31 ylv-PC15749; Modification : 02/05/2013 16:21:53 llg-PO36696; 
    
    SORTIR bClickDroitOnZoneLibre{39}
###
'zone3_CLICKDROIT' 'Toutes fonctions'
    --Création : 27/05/2011 14:09:31 ylv-PC15749; Modification : 02/05/2013 16:21:53 llg-PO36696; 
    
    SORTIR bClickDroitOnZoneLibre{3}
###
'zone40_CLICKDROIT' 'Toutes fonctions'
    --Création : 27/05/2011 14:09:31 ylv-PC15749; Modification : 02/05/2013 16:21:53 llg-PO36696; 
    
    SORTIR bClickDroitOnZoneLibre{40}
###
'zone4_CLICKDROIT' 'Toutes fonctions'
    --Création : 27/05/2011 14:09:31 ylv-PC15749; Modification : 02/05/2013 16:21:53 llg-PO36696; 
    
    SORTIR bClickDroitOnZoneLibre{4}
###
'zone5_CLICKDROIT' 'Toutes fonctions'
    --Création : 27/05/2011 14:09:31 ylv-PC15749; Modification : 02/05/2013 16:21:53 llg-PO36696; 
    
    SORTIR bClickDroitOnZoneLibre{5}
###
'zone6_CLICKDROIT' 'Toutes fonctions'
    --Création : 27/05/2011 14:09:31 ylv-PC15749; Modification : 02/05/2013 16:21:53 llg-PO36696; 
    
    SORTIR bClickDroitOnZoneLibre{6}
###
'zone7_CLICKDROIT' 'Toutes fonctions'
    --Création : 27/05/2011 14:09:31 ylv-PC15749; Modification : 02/05/2013 16:21:53 llg-PO36696; 
    
    SORTIR bClickDroitOnZoneLibre{7}
###
'zone8_CLICKDROIT' 'Toutes fonctions'
    --Création : 27/05/2011 14:09:31 ylv-PC15749; Modification : 02/05/2013 16:21:53 llg-PO36696; 
    
    SORTIR bClickDroitOnZoneLibre{8}
###
'zone9_CLICKDROIT' 'Toutes fonctions'
    --Création : 27/05/2011 14:09:31 ylv-PC15749; Modification : 02/05/2013 16:21:53 llg-PO36696; 
    
    SORTIR bClickDroitOnZoneLibre{9}
###
'zone9_LIBELLE' 'Toutes fonctions'
    --Création : 16/10/2006 09:53:01 jcr-CLRAN3; Modification : 02/05/2013 16:21:53 llg-PO36696; 
    SORTIR getLibelleCalcule{'zone9', 'Zone libre 9 :'}
###
'zone8_LIBELLE' 'Toutes fonctions'
    --Création : 16/10/2006 09:53:01 jcr-CLRAN3; Modification : 02/05/2013 16:21:53 llg-PO36696; 
    SORTIR getLibelleCalcule{'zone8', 'Zone libre 8 :'}
###
'zone7_LIBELLE' 'Toutes fonctions'
    --Création : 16/10/2006 09:53:01 jcr-CLRAN3; Modification : 02/05/2013 16:21:53 llg-PO36696; 
    SORTIR getLibelleCalcule{'zone7', 'Zone libre 7 :'}
###
'zone6_LIBELLE' 'Toutes fonctions'
    --Création : 16/10/2006 09:53:01 jcr-CLRAN3; Modification : 02/05/2013 16:21:53 llg-PO36696; 
    SORTIR getLibelleCalcule{'zone6', 'Zone libre 6 :'}
###
'recalculObligationsLegales' 'Toutes fonctions'
{szCodeDossierArg <Chaine> bForcerMiseAJourArg <Booléen>}

	|
		szMess<Chaine>szCR<Chaine>bForcerMiseAJourArgLoc<Booléen>bOkLoc<Booléen>
		objLibrairieGI2<Objet>
	|

	objLibrairieGI2 ::= 'LibrairieGI2'
	objLibrairieGI2 := creer{'LibrairieGI2'}

	bForcerMiseAJourArgLoc := bForcerMiseAJourArg

	bOkLoc := FAUX
	szCR := '
'

	SI bForcerMiseAJourArgLoc = VRAI ALORS
		szMess := 'Attention, le recalcul des obligations légales entraîne '+szCR
		szMess := szMess + 'la perte de la répartition des obligations légales '+szCR
		szMess := szMess + 'à effectuer par le cabinet ou le client.'+szCR+szCR
		szMess := szMess + 'Après le recalcul des obligations légales, '+szCR
		szMess := szMess + 'veuillez répartir à nouveau les obligations légales '+szCR
		szMess := szMess + 'dans "Lettre de Mission".'

		SI ouiNon{szMess} ALORS
			bOkLoc := VRAI
		FIN SI
	SINON
		bOkLoc := VRAI
	FIN SI

	SI bOkLoc = VRAI ALORS
		objLibrairieGI2.exporterUnDossierDepuisLeDP{szCodeDossierArg, 
													VRAI, -- bWithDistinctionMinusMajusArg <Booléen>
													VRAI, -- bProcessusNonLibreArg<Booléen>
													VRAI} -- bAppelFromPlanificateurArg<Booléen>
		objLibrairieGI2.majCalendrierLegal{szCodeDossierArg, bForcerMiseAJourArgLoc}
	FIN SI

###
'FaxJuridiqueExterne_GRIS' 'Toutes fonctions'
    --Création : 17/10/2011 16:43:52 llg-PO15890; Modification : 02/05/2013 16:21:54 llg-PO36696; 
    SI activationContacts=VRAI ALORS
    	SORTIR VRAI
    SINON
    	SORTIR FAUX
    FIN SI
###
'responsableDossierAvecNom_MODIF' 'Toutes fonctions'
    --Création : 12/09/2006 10:45:17 spi-TEZE-S; Modification : 02/05/2013 16:21:54 llg-PO36696; 
    
    responsableDossier := szExtraitCodeInChaineWithPipe{szRenvoieTesterChaineVide{responsableDossierAvecNom}}
    
    SORTIR VRAI
###
'expertComptableSignataireAvecNom_MODIF' 'Toutes fonctions'
    --Création : 12/09/2006 10:45:17 spi-TEZE-S; Modification : 02/05/2013 16:21:54 llg-PO36696; 
    
    expertComptableSignataire := szExtraitCodeInChaineWithPipe{szRenvoieTesterChaineVide{expertComptableSignataireAvecNom}}
    
    SORTIR VRAI
###
'Lettre de missions_SELECTION' 'Toutes fonctions'
    --Création : 08/03/2007 10:05:24 fpo-FRPOU; Modification : 02/05/2013 16:21:54 llg-PO36696; 
    |
    	szCR<Chaine> nouvelleAdresse<Chaine>
    |
    
    szCR := '
'
    --Je mets à jour l'adresse du principal etablissement avec celle du dossier par défaut, à l'utilisateur de changer.
    SI adressPrincipalEtablisst = ? ALORS
    	-- Morgan : on utilise plutôt une temporaire pour éviter des touchs inutiles
    	nouvelleAdresse := ''
    	SI Adresse1<>? ALORS
    		nouvelleAdresse += Adresse1+szCR
    	FINSI
    	SI Adresse2<>? ALORS
    		nouvelleAdresse += Adresse2+szCR
    	FINSI
    	SI Adresse3<>? ALORS
    		nouvelleAdresse += Adresse3+szCR
    	FINSI
    	SI CodePostal<>? ALORS
    		nouvelleAdresse += CodePostal+' '
    	FINSI
    	SI Ville<>? ALORS
    		nouvelleAdresse += Ville
    	FINSI
    	SI taille{nouvelleAdresse}>0 ALORS adressPrincipalEtablisst := nouvelleAdresse FINSI
    FINSI
###
'organisComptable_MODIF' 'Toutes fonctions'
    --Création : 08/03/2007 10:16:55 fpo-FRPOU; Modification : 02/05/2013 16:21:54 llg-PO36696; 
    
    SI organisComptable = 'Informatique interne' ALORS
    	SI membreOec=? ET dansEntreprise=? ALORS
    		dansEntreprise := VRAI
    	FINSI
    	SI membreOec=FAUX ET dansEntreprise=FAUX ALORS
    		dansEntreprise := VRAI
    	FINSI
    	SI membreOec=VRAI ET dansEntreprise=FAUX ALORS
    		membreOec := FAUX
    		dansEntreprise := VRAI
    	FINSI
    	--Maestro 207104
    	membreOec := FAUX
    	dansEntreprise := VRAI	
    	--editeur.majAttributs
    	editeur.majVariable := 'membreOec'
    	editeur.majVariable := 'dansEntreprise'
    	editeur.majVariable := 'organisComptable'
    FINSI
    
    SI organisComptable = 'Registre manuscrit' OU organisComptable = 'Sous traitance informatique' ALORS
    	SI membreOec=? ET dansEntreprise=? ALORS
    		membreOec := VRAI
    	FINSI
    	SI membreOec=FAUX ET dansEntreprise=FAUX ALORS
    		membreOec := VRAI
    	FINSI
    	SI membreOec=FAUX ET dansEntreprise=VRAI ALORS
    		membreOec := VRAI
    		dansEntreprise := FAUX
    	FINSI
    	--Maestro 207104
    	membreOec := VRAI
    	dansEntreprise := FAUX
    	--editeur.majAttributs
    	editeur.majVariable := 'membreOec'
    	editeur.majVariable := 'dansEntreprise'
    	editeur.majVariable := 'organisComptable'
    FINSI
    
    SORTIR VRAI
###
'TLR3_CleIBAN_MODIF' 'Toutes fonctions'
    --Création : 27/04/2007 14:18:08 ylv-LEVERGE-Y; Modification : 01/10/2013 16:46:42 llg-PO36696; 
    
    |
    	objLibrairieGI2<Objet>szCodePaysLoc<Chaine>szCheckDigitLoc<Chaine>
    |
    
    objLibrairieGI2 ::= 'LibrairieGI2'
    objLibrairieGI2 := creer{'LibrairieGI2'}
    
    TLR3_CleIBAN	:=	majuscule{TLR3_CleIBAN}
    szCodePaysLoc := majuscule{chaine{TLR3_CleIBAN, 1, 2}}
    szCheckDigitLoc := chaine{TLR3_CleIBAN, 3, 4}
    
    objLibrairieGI2.bControleClefIBAN{TLR3_etab, TLR3_guichet, 
    					TLR3_compte, TLR3_cle, szCodePaysLoc, szCheckDigitLoc, VRAI}
    SI objLibrairieGI2.abOk = FAUX ALORS
    	TLR3_CleIBAN := ?
    	editeur.majVariable := 'TLR3_CleIBAN'
    FIN SI
    
    TLR3_IBAN := objLibrairieGI2.aszIBAN
    --editeur.majAttributs
    editeur.majVariable := 'TLR3_IBAN'
    editeur.majVariable := 'TLR3_CleIBAN'
    
    SORTIR VRAI
###
'TLR2_CleIBAN_MODIF' 'Toutes fonctions'
    --Création : 27/04/2007 14:18:08 ylv-LEVERGE-Y; Modification : 01/10/2013 16:46:42 llg-PO36696; 
    
    |
    	objLibrairieGI2<Objet>szCodePaysLoc<Chaine>szCheckDigitLoc<Chaine>
    |
    
    objLibrairieGI2 ::= 'LibrairieGI2'
    objLibrairieGI2 := creer{'LibrairieGI2'}
    
    TLR2_CleIBAN	:=	majuscule{TLR2_CleIBAN}
    szCodePaysLoc := majuscule{chaine{TLR2_CleIBAN, 1, 2}}
    szCheckDigitLoc := chaine{TLR2_CleIBAN, 3, 4}
    
    objLibrairieGI2.bControleClefIBAN{TLR2_etab, TLR2_guichet, 
    					TLR2_compte, TLR2_cle, szCodePaysLoc, szCheckDigitLoc, VRAI}
    SI objLibrairieGI2.abOk = FAUX ALORS
    	TLR2_CleIBAN := ?
    	editeur.majVariable := 'TLR2_CleIBAN'
    FIN SI
    
    TLR2_IBAN := objLibrairieGI2.aszIBAN
    --editeur.majAttributs
    editeur.majVariable := 'TLR2_IBAN'
    editeur.majVariable := 'TLR2_CleIBAN'
    
    SORTIR VRAI
###
'TLR1_CleIBAN_MODIF' 'Toutes fonctions'
    --Création : 27/04/2007 14:18:08 ylv-LEVERGE-Y; Modification : 01/10/2013 16:46:42 llg-PO36696; 
    
    |
    	objLibrairieGI2<Objet>szCodePaysLoc<Chaine>szCheckDigitLoc<Chaine>
    |
    
    objLibrairieGI2 ::= 'LibrairieGI2'
    objLibrairieGI2 := creer{'LibrairieGI2'}
    
    TLR1_CleIBAN	:=	majuscule{TLR1_CleIBAN}
    szCodePaysLoc := majuscule{chaine{TLR1_CleIBAN, 1, 2}}
    szCheckDigitLoc := chaine{TLR1_CleIBAN, 3, 4}
    
    objLibrairieGI2.bControleClefIBAN{TLR1_etab, TLR1_guichet, 
    					TLR1_compte, TLR1_cle, szCodePaysLoc, szCheckDigitLoc, VRAI}
    SI objLibrairieGI2.abOk = FAUX ALORS
    	TLR1_CleIBAN := ?
    	editeur.majVariable := 'TLR1_CleIBAN'
    FIN SI
    
    TLR1_IBAN := objLibrairieGI2.aszIBAN
    --editeur.majAttributs
    editeur.majVariable := 'TLR1_IBAN'
    editeur.majVariable := 'TLR1_CleIBAN'
    
    SORTIR VRAI
###
'TLR3_etab_MODIF' 'Toutes fonctions'
    --Création : 28/06/2007 14:10:56 ylv-LEVERGE-Y; Modification : 01/10/2013 16:46:42 llg-PO36696; 
    
    TLR3_cle := ?
    TLR3_CleIBAN := ?
    TLR3_IBAN := ?
    
    --editeur.majAttributs
    editeur.majVariable := 'TLR3_IBAN'
    editeur.majVariable := 'TLR3_CleIBAN'
    editeur.majVariable := 'TLR3_cle'
    
    SORTIR VRAI
###
'TLR2_etab_MODIF' 'Toutes fonctions'
    --Création : 28/06/2007 14:10:56 ylv-LEVERGE-Y; Modification : 01/10/2013 16:46:43 llg-PO36696; 
    
    TLR2_cle := ?
    TLR2_CleIBAN := ?
    TLR2_IBAN := ?
    
    --editeur.majAttributs
    editeur.majVariable := 'TLR2_IBAN'
    editeur.majVariable := 'TLR2_CleIBAN'
    editeur.majVariable := 'TLR2_cle'
    
    SORTIR VRAI
###
'TLR1_etab_MODIF' 'Toutes fonctions'
    --Création : 28/06/2007 14:10:56 ylv-LEVERGE-Y; Modification : 01/10/2013 16:46:43 llg-PO36696; 
    
    TLR1_cle := ?
    TLR1_CleIBAN := ?
    TLR1_IBAN := ?
    
    --editeur.majAttributs
    editeur.majVariable := 'TLR1_IBAN'
    editeur.majVariable := 'TLR1_CleIBAN'
    editeur.majVariable := 'TLR1_cle'
    
    SORTIR VRAI
###
'TLR3_cle_MODIF' 'Toutes fonctions'
    --Création : 28/06/2007 14:10:56 ylv-LEVERGE-Y; Modification : 01/10/2013 16:46:43 llg-PO36696; 
    
    TLR3_CleIBAN := ?
    TLR3_IBAN := ?
    
    --editeur.majAttributs
    editeur.majVariable := 'TLR3_IBAN'
    editeur.majVariable := 'TLR3_CleIBAN'
    
    SORTIR VRAI
###
'TLR2_cle_MODIF' 'Toutes fonctions'
    --Création : 28/06/2007 14:10:56 ylv-LEVERGE-Y; Modification : 01/10/2013 16:46:43 llg-PO36696; 
    
    TLR2_CleIBAN := ?
    TLR2_IBAN := ?
    
    --editeur.majAttributs
    editeur.majVariable := 'TLR2_IBAN'
    editeur.majVariable := 'TLR2_CleIBAN'
    
    SORTIR VRAI
###
'TLR1_cle_MODIF' 'Toutes fonctions'
    --Création : 28/06/2007 14:10:56 ylv-LEVERGE-Y; Modification : 01/10/2013 16:46:43 llg-PO36696; 
    
    TLR1_CleIBAN := ?
    TLR1_IBAN := ?
    
    --editeur.majAttributs
    editeur.majVariable := 'TLR1_CleIBAN'
    editeur.majVariable := 'TLR1_IBAN'
    
    SORTIR VRAI
###
'TLR3_compte_MODIF' 'Toutes fonctions'
    --Création : 28/06/2007 14:10:56 ylv-LEVERGE-Y; Modification : 01/10/2013 16:46:43 llg-PO36696; 
    
    TLR3_cle := ?
    TLR3_CleIBAN := ?
    TLR3_IBAN := ?
    
    --editeur.majAttributs
    editeur.majVariable := 'TLR3_IBAN'
    editeur.majVariable := 'TLR3_CleIBAN'
    editeur.majVariable := 'TLR3_cle'
    
    SORTIR VRAI
###
'TLR2_compte_MODIF' 'Toutes fonctions'
    --Création : 28/06/2007 14:10:56 ylv-LEVERGE-Y; Modification : 01/10/2013 16:46:43 llg-PO36696; 
    
    TLR2_cle := ?
    TLR2_CleIBAN := ?
    TLR2_IBAN := ?
    
    --editeur.majAttributs
    editeur.majVariable := 'TLR2_IBAN'
    editeur.majVariable := 'TLR2_CleIBAN'
    editeur.majVariable := 'TLR2_cle'
    
    SORTIR VRAI
###
'TLR1_compte_MODIF' 'Toutes fonctions'
    --Création : 28/06/2007 14:10:56 ylv-LEVERGE-Y; Modification : 01/10/2013 16:46:43 llg-PO36696; 
    
    TLR1_cle := ?
    TLR1_CleIBAN := ?
    TLR1_IBAN := ?
    
    --editeur.majAttributs
    editeur.majVariable := 'TLR1_IBAN'
    editeur.majVariable := 'TLR1_CleIBAN'
    editeur.majVariable := 'TLR1_cle'
    
    SORTIR VRAI
###
'TLR3_guichet_MODIF' 'Toutes fonctions'
    --Création : 28/06/2007 14:10:56 ylv-LEVERGE-Y; Modification : 01/10/2013 16:46:43 llg-PO36696; 
    
    TLR3_cle := ?
    TLR3_CleIBAN := ?
    TLR3_IBAN := ?
    
    --editeur.majAttributs
    editeur.majVariable := 'TLR3_IBAN'
    editeur.majVariable := 'TLR3_CleIBAN'
    editeur.majVariable := 'TLR3_cle'
    
    SORTIR VRAI
###
'TLR2_guichet_MODIF' 'Toutes fonctions'
    --Création : 28/06/2007 14:10:56 ylv-LEVERGE-Y; Modification : 01/10/2013 16:46:43 llg-PO36696; 
    
    TLR2_cle := ?
    TLR2_CleIBAN := ?
    TLR2_IBAN := ?
    
    --editeur.majAttributs
    editeur.majVariable := 'TLR2_IBAN'
    editeur.majVariable := 'TLR2_CleIBAN'
    editeur.majVariable := 'TLR2_cle'
    
    SORTIR VRAI
###
'TLR1_guichet_MODIF' 'Toutes fonctions'
    --Création : 28/06/2007 14:10:56 ylv-LEVERGE-Y; Modification : 01/10/2013 16:46:43 llg-PO36696; 
    
    TLR1_cle := ?
    TLR1_CleIBAN := ?
    TLR1_IBAN := ?
    
    --editeur.majAttributs
    editeur.majVariable := 'TLR1_IBAN'
    editeur.majVariable := 'TLR1_CleIBAN'
    editeur.majVariable := 'TLR1_cle'
    
    SORTIR VRAI
###
'QualiteRepresentantLegal_CLICKDROIT' 'Toutes fonctions'
    --Création : 08/04/2008 15:30:18 fpo-FRPOU; Modification : 02/05/2013 16:21:54 llg-PO36696; 
    QualiteRepresentantLegal_MODIF{}
###
'QualiteRepresentantLegal_MODIF' 'Toutes fonctions'
    --Création : 08/04/2008 15:30:18 fpo-FRPOU; Modification : 02/05/2013 16:21:54 llg-PO36696; 
    |
    	strQualite<Chaine>CR<Chaine>lstQualite<Objet>i<Entier>vDateMoisPcdtLoc<Date>
    	bEstEgaleAQualite<Booléen>strQualites<Chaine>
    |
    
    classe ::= 'Dossier'
    variable ::= 'qualiteRepresentantLegal'
    
    vDateMoisPcdtLoc := finDeMois{debutDeMois{periode.fin}-1}
    CR := '
'
    
    lstQualite := creerListe{}
    lstQualite := variable.enumeration
    
    i := 1
    TANT QUE i<=nbElements{lstQualite} FAIRE
    		strQualites += ''+elementDIndice{lstQualite,i}+CR
    		i+=1
    FIN FAIRE
    
    
    --RENVOIE LA LISTE DE L'ENUMERE MIS DANS VARIABLE
    strQualite := choix{'Rendre indéfini'+CR+'-----------------'+CR+strQualites }
    
    
    bEstEgaleAQualite := FAUX
    SI taille{strQualite}>0 ALORS
    	SI strQualite # 'Rendre*' ALORS
    		QualiteRepresentantLegal[vDateMoisPcdtLoc] != '?'
    	SINON
    		QualiteRepresentantLegal[vDateMoisPcdtLoc] != strQualite
    	FINSI
    	bEstEgaleAQualite := VRAI
    SINON
    	i := 1
    	TANT QUE i<=nbElements{lstQualite} FAIRE
    		SI QualiteRepresentantLegal # '*'+elementDIndice{lstQualite,i}+'*' ALORS
    			bEstEgaleAQualite := VRAI
    		FINSI
    		i+=1
    	FIN FAIRE
    FINSI
    
    SI bEstEgaleAQualite=FAUX ALORS
    	info{'La qualité de représentant légal que vous avez saisi ne fait pas partie des choix possibles :'+CR
    		+ '(Voir ''Informations Synthétiques'', Onglet ''Lettre de mission'') '+CR+CR+strQualites }
    SINON
    	qualiteRepresentantLegal[vDateMoisPcdtLoc] != QualiteRepresentantLegal
    	editeur.majVariable := 'QualiteRepresentantLegal'
    FINSI
    
    SORTIR VRAI
###
'qualiteRepresentantLegal_MODIF' 'Toutes fonctions'
    --Création : 08/04/2008 15:30:18 fpo-FRPOU; Modification : 02/05/2013 16:21:54 llg-PO36696; 
    
    |
    	vDateMoisPcdtLoc<Date>
    |
    
    vDateMoisPcdtLoc := finDeMois{debutDeMois{periode.fin}-1}
    
    QualiteRepresentantLegal[vDateMoisPcdtLoc] != qualiteRepresentantLegal
    
    SORTIR VRAI
###
'risqueClient_LISTE' 'Toutes fonctions'
    --Création : 24/04/2008 15:41:05 llg-LALGU; Modification : 24/07/2014 12:10:13 sav-PC101644; 
    |
    	szQry<Chaine>req<Objet>rep<Chaine>szNomFamille<Chaine>szLibelleProduit<Chaine>
    |
    
    rep := ''
    
    SI bOuvrirBaseGI2{FAUX, FAUX, FAUX} = VRAI ALORS
    	szQry := 'SELECT famCodeFamille, prdLibelleProduit FROM viewProduits03 '
    	szQry := szQry + ' WHERE prdTypeProduit = ''RISQUES'' '
    	req := selectionSql{szQry, 'szNomFamille', 'szLibelleProduit'}
    	bTesterApresSelectionSql{szQry}
    	TANT QUE lireSql{req} FAIRE
    		rep += szLibelleProduit+' ('+szNomFamille+')
'
    	FIN FAIRE
    	liberationSql{req}
    FIN SI
    
    SORTIR rep
###
'prescriptionReseau_LISTE' 'Toutes fonctions'
    --Création : 24/04/2008 15:41:05 llg-LALGU; Modification : 24/07/2014 12:10:13 sav-PC101644; 
    |
    	szQry<Chaine>req<Objet>rep<Chaine>szNomFamille<Chaine>szLibelleProduit<Chaine>
    |
    
    rep := ''
    
    SI bOuvrirBaseGI2{FAUX, FAUX, FAUX} = VRAI ALORS
    	szQry := 'SELECT famCodeFamille, prdLibelleProduit FROM viewProduits03  '
    	szQry := szQry + ' WHERE prdTypeProduit = ''MARKET'' '
    	req := selectionSql{szQry, 'szNomFamille', 'szLibelleProduit'}
    	bTesterApresSelectionSql{szQry}
    	TANT QUE lireSql{req} FAIRE
    		rep += szLibelleProduit+' ('+szNomFamille+')
'
    	FIN FAIRE
    	liberationSql{req}
    FIN SI
    
    SORTIR rep
###
'aLesDroitsGestionDossier' 'Toutes fonctions'
    |
    	szRepLogiqueLoc<Chaine>szRepPhysiqueDossLoc<Chaine>sReponse<Chaine>bMsg<Booléen>
    |
    
    status{'Verification des droits'}
    bMsg := VRAI

    szRepPhysiqueDossLoc := repertoire
    szRepLogiqueLoc := nomLogique{szRepPhysiqueDossLoc}
    droitsOk := VRAI
	--Racine
	sReponse := etatCluster{szRepPhysiqueDossLoc + '\dossier'}
	SI NON analyserReponseDroits{sReponse, bMsg} ALORS
		droitsOk := FAUX
	FIN SI
	--Dp
	sReponse := etatCluster{szRepPhysiqueDossLoc + '\dp\dp'}

	SI NON analyserReponseDroits{sReponse, bMsg} ALORS
		droitsOk := FAUX
	FIN SI

	SI NON droitsOk ALORS
		SORTIR FAUX
	FIN SI
	SORTIR VRAI
###
'CodeComptable_CLICKDROIT' 'Toutes fonctions'
    --Création : 07/10/1999 11:54:50 TGU-?; Modification : 02/05/2013 16:21:55 llg-PO36696; 
    
    | 
    	objLibraSaisieGI2Loc<Objet>objLibrairieGI2<Objet>
    	bOkLoc<Booléen>vDateMoisPcdtLoc<Date>
    |
    
    objLibraSaisieGI2Loc ::= 'LibraSaisieGI2'
    objLibraSaisieGI2Loc := creer{'LibraSaisieGI2'}
    objLibrairieGI2 ::= 'LibrairieGI2'
    objLibrairieGI2 := creer{'LibrairieGI2'}

    SI NON aLesDroitsGestionDossier{} ALORS
    	SORTIR FAUX
    FIN SI

    bOkLoc := VRAI
    
    objLibrairieGI2.bTesterAvantOuvrirSqlSrvr{FAUX, FAUX}
    SI objLibrairieGI2.abOk = VRAI ALORS
    	bOkLoc := bOuvrirBaseGI2{FAUX, FAUX, FAUX}
    FIN SI
    
    SI bOkLoc = VRAI ALORS
    	objLibraSaisieGI2Loc.bGererClickDroitCompteOnDP{CodeDossier}
    	SI objLibraSaisieGI2Loc.abOk = FAUX ALORS
    		SORTIR FAUX
    	FIN SI
    	vDateMoisPcdtLoc := finDeMois{debutDeMois{periode.fin}-1}
    	CodeComptable[vDateMoisPcdtLoc] != objLibraSaisieGI2Loc.aszNoCompteRetour
    	editeur.majVariable := 'CodeComptable'
    FIN SI
    
    SORTIR VRAI
###
'calculerRegimeTVA' 'Toutes fonctions'
{argDate <Date>}
    --Création : 11/02/2009 11:30:55 SJA-PC15754; Modification : 02/05/2013 16:21:55 llg-PO36696; 
    
    
    
    
    
    
    
    SI RegimeTVA[argDate] = 'Réel Normal' ALORS
    --	CodeRegime := 1
    	SI PeriodTVA[argDate] = 'Mensuel' ALORS	CodeRegime[argDate]	!=	'EM'	FINSI
    	SI PeriodTVA[argDate] =  'Trimestriel' ALORS	CodeRegime[argDate]	!=	'ET'	FINSI
    	SI PeriodTVA[argDate] =  'Saisonnier' ALORS	CodeRegime[argDate]	!=	'ES'	FINSI
    	SI PeriodTVA[argDate] = 'Acomptes Provisionnel' ALORS
    --		CodeRegime	:=	2
    		CodeRegime[argDate]		!=	'AM'
    	FINSI
    FINSI
    
    SI RegimeTVA[argDate] = 'Mini-Réel' ALORS
    --	CodeRegime := 7
    	SI PeriodTVA[argDate] = 'Mensuel' ALORS	CodeRegime[argDate]	!=	'RM'	FINSI
    	SI PeriodTVA[argDate] =  'Trimestriel' ALORS	CodeRegime[argDate]	!=	'RT'	FINSI
    	SI PeriodTVA[argDate] =  'Saisonnier' ALORS	CodeRegime[argDate]	!=	'RS'	FINSI
    FINSI
    
    SI dossier.PeriodTVA	= ?  ALORS
    	CodeRegime[argDate]	!=	?	
    FINSI
    
    --CodeRegime := 3
    
    SI RegimeTVA[argDate] # 'Réel Simp' ALORS
    SI PeriodTVA[argDate] =  'Saisonnier' 
    	ALORS	CodeRegime[argDate]	!=	'SS'
    	SINON 	CodeRegime[argDate]	!=	'ST'
    FINSI
    FINSI
    
    SORTIR CodeRegime[argDate]
###
'PrenomCacSup_MODIF' 'Toutes fonctions'
    --Création : 04/09/2009 09:43:22 scr-PC15753; Modification : 02/05/2013 16:21:55 llg-PO36696; 
    
    SI NomSeulCacSup <> ? ALORS
    	-- maj NomCacSup
    	SI PrenomCacSup <> ? ALORS
    		NomCacSup	!=	NomSeulCacSup + ' ' + PrenomCacSup
    	SINON
    		NomCacSup	!=	NomSeulCacSup
    	FIN SI
    SINON
    	NomCacSup	!=	?
    FIN SI
    editeur.majAttributs
    
    SORTIR VRAI
###
'PrenomCacTitre_MODIF' 'Toutes fonctions'
    --Création : 04/09/2009 09:43:22 scr-PC15753; Modification : 02/05/2013 16:21:55 llg-PO36696; 
    
    SI NomSeulCacTitre <> ? ALORS
    	-- maj NomCacTitre
    	SI PrenomCacTitre <> ? ALORS
    		NomCacTitre	!=	NomSeulCacTitre + ' ' + PrenomCacTitre
    	SINON
    		NomCacTitre	!=	NomSeulCacTitre
    	FIN SI
    SINON
    	NomCacTitre	!=	?
    FIN SI
    editeur.majAttributs
    
    SORTIR VRAI
###
'NomSeulCacSup_MODIF' 'Toutes fonctions'
    --Création : 04/09/2009 09:43:22 scr-PC15753; Modification : 02/05/2013 16:21:55 llg-PO36696; 
    
    SI NomSeulCacSup <> ? ALORS
    	-- maj NomCacTitre
    	SI PrenomCacSup <> ? ALORS
    		NomCacSup	!=	NomSeulCacSup + ' ' + PrenomCacSup
    	SINON
    		NomCacSup	!=	NomSeulCacSup
    	FIN SI
    SINON
    	NomCacSup	!=	?
    FIN SI
    editeur.majAttributs
    
    SORTIR VRAI
###
'NomSeulCacTitre_MODIF' 'Toutes fonctions'
    --Création : 04/09/2009 09:43:22 scr-PC15753; Modification : 02/05/2013 16:21:55 llg-PO36696; 
    
    SI NomSeulCacTitre <> ? ALORS
    	-- maj NomCacTitre
    	SI PrenomCacTitre <> ? ALORS
    		NomCacTitre	!=	NomSeulCacTitre + ' ' + PrenomCacTitre
    	SINON
    		NomCacTitre	!=	NomSeulCacTitre
    	FIN SI
    SINON
    	NomCacTitre	!=	?
    FIN SI
    editeur.majAttributs
    
    SORTIR VRAI
###
'civRepLegal_MODIF' 'Toutes fonctions'
    --Création : 08/03/2007 09:56:31 fpo-FRPOU; Modification : 02/05/2013 16:21:55 llg-PO36696; 
    
    SI mm = ? ALORS
    	mm := civRepLegal
    	editeur.majVariable := 'mm'
    FINSI
    
    SORTIR VRAI
###
'bGriserZonesSaisieHistoDossier' 'Toutes fonctions'
    --Création : 17/09/2010 14:07:59 aaa-PC15749; Modification : 02/05/2013 16:21:55 llg-PO36696; 
    
    SORTIR bGriserZonesSaisieHistoEntiteDossier{}
###
'alfPrixUnitaireRevientBulletinDossier_GRIS' 'Toutes fonctions'
    --Création : 17/09/2010 14:38:05 ylv-PC15749; Modification : 02/05/2013 16:21:55 llg-PO36696; 
    
    SORTIR bGriserZonesSaisieHistoDossier{}
###
'alfPrixUnitaireVenteBulletinDossier_GRIS' 'Toutes fonctions'
    --Création : 17/09/2010 14:38:05 ylv-PC15749; Modification : 02/05/2013 16:21:55 llg-PO36696; 
    
    SORTIR bGriserZonesSaisieHistoDossier{}
###
'alfPrixUnitaireRevientLigneComptableDossier_GRIS' 'Toutes fonctions'
    --Création : 17/09/2010 14:38:05 ylv-PC15749; Modification : 02/05/2013 16:21:55 llg-PO36696; 
    
    SORTIR bGriserZonesSaisieHistoDossier{}
###
'alfPrixUnitaireVenteLigneComptableDossier_GRIS' 'Toutes fonctions'
    --Création : 17/09/2010 14:38:05 ylv-PC15749; Modification : 02/05/2013 16:21:55 llg-PO36696; 
    
    SORTIR bGriserZonesSaisieHistoDossier{}
###
'obligationsQuantiemeTva_MODIF' 'Toutes fonctions'
    --Création : 14/02/2011 09:26:14 llg-PO15890; Modification : 02/05/2013 16:21:55 llg-PO36696; 
    JourLimite := obligationsQuantiemeTva 
    SORTIR VRAI
###
'niveauDetail_GRIS' 'Toutes fonctions'
    --Création : 17/10/2011 14:04:16 llg-PO15890; Modification : 02/05/2013 16:21:56 llg-PO36696; 
    
    SI bTesterGestCabInstallee{} = VRAI ALORS
    	SORTIR VRAI
    FIN SI
    
    SORTIR FAUX
###
'niveauTotal_GRIS' 'Toutes fonctions'
    --Création : 17/10/2011 14:04:08 llg-PO15890; Modification : 02/05/2013 16:21:56 llg-PO36696; 
    
    SI bTesterGestCabInstallee{} = VRAI ALORS
    	SORTIR VRAI
    FIN SI
    
    SORTIR FAUX
###
'avecActivite_GRIS' 'Toutes fonctions'
    --Création : 17/10/2011 14:03:53 llg-PO15890; Modification : 02/05/2013 16:21:56 llg-PO36696; 
    
    SI bTesterGestCabInstallee{} = VRAI ALORS
    	SORTIR VRAI
    FIN SI
    
    SORTIR FAUX
###
'jourPrelevement_GRIS' 'Toutes fonctions'
    --Création : 17/10/2011 14:03:25 llg-PO15890; Modification : 02/05/2013 16:21:56 llg-PO36696; 
    
    SI bTesterGestCabInstallee{} = VRAI ALORS
    	SORTIR VRAI
    FIN SI
    
    SORTIR FAUX
###
'JourLimite_MODIF' 'Toutes fonctions'
    --Création : 14/02/2011 09:25:15 llg-PO15890; Modification : 02/05/2013 16:21:56 llg-PO36696; 
    obligationsQuantiemeTva := JourLimite
    SORTIR VRAI
###
'RofCFE_MODIF' 'Toutes fonctions'
    --Création : 09/05/2011 11:46:57 scr-PC15753; Modification : 27/06/2014 15:26:26 scr-PC101399; 
    
    |
    	mauvaiseROF<Booléen>
    |
    
    mauvaiseROF	:=	FAUX
    
    SI RofCFE = ? ALORS
    	SORTIR VRAI
    FIN SI
    
    SI NON valider{RofCFE, '^CFE([1-9][0-9]?[0-9]?)$'} ALORS
    	mauvaiseROF	:=	VRAI
    FIN SI
    /*
SI taille{RofEDITVA} < 4 OU taille{RofEDITVA} > 6 ALORS
	mauvaiseROF := VRAI
FIN SI

SI chaine{RofEDITVA, 1, 3} <> 'TVA' ALORS
	mauvaiseROF := VRAI
FIN SI

SI taille{entier{chaine{RofEDITVA, 4, taille{RofEDITVA}}}} <> taille{chaine{RofEDITVA, 4, taille{RofEDITVA}}} ALORS
	mauvaiseROF := VRAI
FIN SI
*/
    SI mauvaiseROF ALORS	
    	SI NON ouiNon{'Attention : la ROF doit être CFE + 1 à 3 numériques.
Validez-vous quand même votre saisie ?'} ALORS SORTIR FAUX FIN SI
    FIN SI
    
    SORTIR VRAI
###
'RofEDITVA_MODIF' 'Toutes fonctions'
    --Création : 09/05/2011 11:46:57 scr-PC15753; Modification : 02/05/2013 16:21:56 llg-PO36696; 
    
    |
    	mauvaiseROF<Booléen>
    |
    
    mauvaiseROF	:=	FAUX
    
    SI RofEDITVA = ? ALORS
    	SORTIR VRAI
    FIN SI
    
    SI NON valider{RofEDITVA, '^TVA([1-9][0-9]?[0-9]?)$'} ALORS
    	mauvaiseROF	:=	VRAI
    FIN SI
    /*
SI taille{RofEDITVA} < 4 OU taille{RofEDITVA} > 6 ALORS
	mauvaiseROF := VRAI
FIN SI

SI chaine{RofEDITVA, 1, 3} <> 'TVA' ALORS
	mauvaiseROF := VRAI
FIN SI

SI taille{entier{chaine{RofEDITVA, 4, taille{RofEDITVA}}}} <> taille{chaine{RofEDITVA, 4, taille{RofEDITVA}}} ALORS
	mauvaiseROF := VRAI
FIN SI
*/
    SI mauvaiseROF ALORS	
    	SI NON ouiNon{'Attention : la ROF doit être TVA + 1 à 3 numériques.
Validez-vous quand même votre saisie ?'} ALORS SORTIR FAUX FIN SI
    FIN SI
    
    SORTIR VRAI
###
'RofEDITDFC_MODIF' 'Toutes fonctions'
    --Création : 09/05/2011 11:46:57 scr-PC15753; Modification : 02/05/2013 16:21:56 llg-PO36696; 
    
    |
    	mauvaiseROF<Booléen>
    |
    
    mauvaiseROF	:=	FAUX
    
    SI RofEDITDFC = ? ALORS
    	SORTIR VRAI
    FIN SI
    
    SI NON valider{RofEDITDFC, '^IS([1-9][0-9]?[0-9]?[0-9]?[0-9]?)$'} 
    ET NON valider{RofEDITDFC, '^BIC([1-9][0-9]?[0-9]?[0-9]?[0-9]?)$'} 
    ET NON valider{RofEDITDFC, '^ISGROUPE([1-9][0-9]?[0-9]?[0-9]?[0-9]?)$'} 
    ET NON valider{RofEDITDFC, '^SCM([1-9][0-9]?[0-9]?[0-9]?[0-9]?)$'} 
    ET NON valider{RofEDITDFC, '^BA([1-9][0-9]?[0-9]?[0-9]?[0-9]?)$'} 
    ET NON valider{RofEDITDFC, '^BNC([1-9][0-9]?[0-9]?[0-9]?[0-9]?)$'} 
    ET NON valider{RofEDITDFC, '^RF([1-9][0-9]?[0-9]?[0-9]?[0-9]?)$'}
    ET NON valider{RofEDITDFC, '^CVAE([1-9][0-9]?[0-9]?[0-9]?[0-9]?)$'} ALORS
    	mauvaiseROF	:=	VRAI
    FIN SI
    
    SI mauvaiseROF ALORS	
    	SI NON ouiNon{'Attention : la ROF doit être BIC, IS, BA, BNC, SCM, ISGROUPE, RF ou CVAE + 1 à 5 numériques.
Validez-vous quand même votre saisie ?'} ALORS SORTIR FAUX FIN SI
    FIN SI
    
    SORTIR VRAI
###
'get_Email' 'Toutes fonctions'
    --Création : 24/05/2011 14:46:39 llg-PO15890; Modification : 29/04/2015 14:45:59 llg2-PC100391; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    |
    
    tmpCh	:=	?
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Dossier' ALORS
    			pers	:=	element.personne
    			SI pers <> ? ALORS
    				SORTIR pers.email[finDeMois{aujourdhui{}}]
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    SINON
    	SORTIR dossier!{'Email'}chaine
    FIN SI
###
'get_formeConvAGE' 'Toutes fonctions'
    --Création : 24/05/2011 14:46:39 llg-PO15890; Modification : 02/05/2013 16:21:56 llg-PO36696; 
    |
    	mon<Chaine>
    |
    
    mon	:=	?
    
    SI contactExportes ALORS
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Dossier' ALORS
    			SORTIR element.formeConvAGE
    		FIN SI
    	FIN FAIRE
    
    	SORTIR mon
    SINON
    	SORTIR dossier.{'formeConvAGE'}chaine
    FIN SI
###
'get_formeConvAGO' 'Toutes fonctions'
    --Création : 24/05/2011 14:46:39 llg-PO15890; Modification : 02/05/2013 16:21:56 llg-PO36696; 
    |
    	mon<Chaine>
    |
    
    mon	:=	?
    
    SI contactExportes ALORS
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Dossier' ALORS
    			SORTIR element.formeConvAGO
    		FIN SI
    	FIN FAIRE
    
    	SORTIR mon
    SINON
    	SORTIR dossier.{'formeConvAGO'}chaine
    FIN SI
###
'get_formeConvCA' 'Toutes fonctions'
    --Création : 24/05/2011 14:46:39 llg-PO15890; Modification : 02/05/2013 16:21:56 llg-PO36696; 
    |
    	mon<Chaine>
    |
    
    mon	:=	?
    
    SI contactExportes ALORS
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Dossier' ALORS
    			SORTIR element.formeConvCA
    		FIN SI
    	FIN FAIRE
    
    	SORTIR mon
    SINON
    	SORTIR dossier.{'formeConvCA'}chaine
    FIN SI
###
'get_typeTitres' 'Toutes fonctions'
    --Création : 24/05/2011 14:46:39 llg-PO15890; Modification : 02/05/2013 16:21:56 llg-PO36696; 
    |
    	mon<Chaine>
    |
    
    mon	:=	?
    
    SI contactExportes ALORS
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Dossier' ALORS
    			SORTIR element.typeTitres
    		FIN SI
    	FIN FAIRE
    
    	SORTIR mon
    SINON
    	SORTIR dossier!{'typeTitres'}chaine
    FIN SI
###
'get_valeurNominaleTitreEnFrancs' 'Toutes fonctions'
    --Création : 24/05/2011 14:46:39 llg-PO15890; Modification : 02/05/2013 16:21:56 llg-PO36696; 
    |
    	mon<Réel>
    |
    
    mon	:=	?
    
    SI contactExportes ALORS
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Dossier' ALORS
    			SORTIR element.valeurNominaleTitre --convertir{'F', element.ValNomTitresEuro}
    		FIN SI
    	FIN FAIRE
    
    	SORTIR mon
    SINON
    	SORTIR dossier.{'valeurNominaleTitre'}reel
    FIN SI
###
'get_ValNomTitresEuro' 'Toutes fonctions'
    --Création : 24/05/2011 14:46:39 llg-PO15890; Modification : 02/05/2013 16:21:56 llg-PO36696; 
    |
    	mon<Réel>
    |
    
    mon	:=	?
    
    SI contactExportes ALORS
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Dossier' ALORS
    			SORTIR element.ValNomTitresEuro --convertir{'F', element.ValNomTitresEuro}
    		FIN SI
    	FIN FAIRE
    
    	SORTIR mon
    SINON
    	SORTIR dossier.{'ValNomTitresEuro'}reel
    FIN SI
###
'get_nbTitres' 'Toutes fonctions'
    --Création : 24/05/2011 14:46:39 llg-PO15890; Modification : 02/05/2013 16:21:56 llg-PO36696; 
    |
    	mon<Entier>
    |
    
    mon	:=	?
    
    SI contactExportes ALORS
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Dossier' ALORS
    			SORTIR element.nbTitresDossier
    		FIN SI
    	FIN FAIRE
    
    	SORTIR mon
    SINON
    	SORTIR dossier.{'nbTitres'}entier
    FIN SI
###
'get_capitalEnFrancs' 'Toutes fonctions'
    --Création : 24/05/2011 14:46:39 llg-PO15890; Modification : 02/05/2013 16:21:56 llg-PO36696; 
    |
    	mon<Réel>
    |
    
    mon	:=	?
    
    SI contactExportes ALORS
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Dossier' ALORS
    			SORTIR element.capital --entier{sansEspace{''+convertir{'F', element.capitalEuros}}}
    		FIN SI
    	FIN FAIRE
    
    	SORTIR mon
    SINON
    	SORTIR dossier.{'capital'}reel
    FIN SI
###
'get_capitalEuros' 'Toutes fonctions'
    --Création : 24/05/2011 14:46:39 llg-PO15890; Modification : 02/05/2013 16:21:56 llg-PO36696; 
    |
    	mon<Réel>
    |
    
    mon	:=	?
    
    SI contactExportes ALORS
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Dossier' ALORS
    			SORTIR element.capitalEuros --entier{sansEspace{''+convertir{'F', element.capitalEuros}}}
    		FIN SI
    	FIN FAIRE
    
    	SORTIR mon
    SINON
    	SORTIR dossier.{'capitalEuros'}reel
    FIN SI
###
'get_Fax' 'Toutes fonctions'
    --Création : 24/05/2011 14:46:39 llg-PO15890; Modification : 29/04/2015 14:46:00 llg2-PC100391; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    |
    
    tmpCh	:=	?
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Dossier' ALORS
    			pers	:=	element.personne
    			SI pers <> ? ALORS
    				SORTIR pers.fax
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    SINON
    	SORTIR dossier.{'Fax'}chaine
    FIN SI
###
'get_TelephonePortable' 'Toutes fonctions'
    --Création : 24/05/2011 14:46:39 llg-PO15890; Modification : 29/04/2015 14:46:00 llg2-PC100391; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    |
    
    tmpCh	:=	?
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Dossier' ALORS
    			pers	:=	element.personne
    			SI pers <> ? ALORS
    				SORTIR pers.mobile[finDeMois{aujourdhui{}}]
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    SINON
    	SORTIR dossier!{'TelephonePortable'}chaine
    FIN SI
###
'get_Telephone2' 'Toutes fonctions'
    --Création : 24/05/2011 14:46:39 llg-PO15890; Modification : 29/04/2015 14:46:00 llg2-PC100391; 
    |
    	pers<Objet>tel<Objet>i<Entier>tel2<Chaine>
    |
    
    tel2	:=	?
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	tel	::=	'Telephone'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Dossier' ALORS
    			pers	:=	element.personne
    			SI pers <> ? ALORS
    				SI pers.autresTelephones <> ? ET nbElements{pers.autresTelephones} >= 1 ALORS
    					i	:=	1
    					TANT QUE i <= nbElements{pers.autresTelephones} FAIRE
    						tel	:=	elementDIndice{pers.autresTelephones, i}
    						SI tel.nom = 'Téléphone autre' ALORS
    							SORTIR tel.telephone
    						FIN SI
    						i	+=	1
    					FIN FAIRE
    				FIN SI
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tel2
    SINON
    	SORTIR dossier.{'Telephone2'}chaine
    FIN SI
###
'get_Telephone' 'Toutes fonctions'
    --Création : 24/05/2011 14:46:39 llg-PO15890; Modification : 29/04/2015 14:46:00 llg2-PC100391; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    |
    
    tmpCh	:=	?
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Dossier' ALORS
    			pers	:=	element.personne
    			SI pers <> ? ALORS
    				SORTIR pers.telephone
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    SINON
    	SORTIR dossier.{'Telephone'}chaine
    FIN SI
###
'get_Ville' 'Toutes fonctions'
    --Création : 24/05/2011 14:46:39 llg-PO15890; Modification : 29/04/2015 14:46:00 llg2-PC100391; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    |
    
    tmpCh	:=	?
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Dossier' ALORS
    			pers	:=	element.personne
    			SI pers <> ? ALORS
    				SORTIR pers.ville
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    SINON
    	SORTIR dossier.{'Ville'}chaine
    FIN SI
###
'get_codePaysISO' 'Toutes fonctions'
    --Création : 24/05/2011 14:46:39 llg-PO15890; Modification : 29/04/2015 14:46:00 llg2-PC100391; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    |
    
    tmpCh	:=	?
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Dossier' ALORS
    			pers	:=	element.personne
    			SI pers <> ? ALORS
    				SORTIR pers.pays
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    SINON
    	SORTIR dossier!{'codePaysISO'}chaine
    FIN SI
###
'get_CodePostalGeo' 'Toutes fonctions'
    --Création : 24/05/2011 14:46:39 llg-PO15890; Modification : 29/04/2015 14:46:00 llg2-PC100391; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    |
    
    tmpCh	:=	?
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Dossier' ALORS
    			pers	:=	element.personne
    			SI pers <> ? ALORS
    				SORTIR pers.codePostalGeo
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    SINON
    	SORTIR dossier.{'CodePostalGeo'}chaine
    FIN SI
###
'get_CodeInseeCommune' 'Toutes fonctions'
    --Création : 24/05/2011 14:46:39 llg-PO15890; Modification : 29/04/2015 14:46:00 llg2-PC100391; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    |
    
    tmpCh	:=	?
    
    SI contactExportes ALORS
    	SI codeInseeBascule  = ? OU codeInseeBascule  = FAUX ALORS
    		SORTIR dossier.{'CodeInseeCommune'}chaine
    	FIN SI
    	pers	::=	'Personne'
    
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Dossier' ALORS
    			pers	:=	element.personne
    			SI pers <> ? ALORS
    				SORTIR pers.codeInseeCommune
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    SINON
    	SORTIR dossier.{'CodeInseeCommune'}chaine
    FIN SI
###
'get_CodePostal' 'Toutes fonctions'
    --Création : 24/05/2011 14:46:39 llg-PO15890; Modification : 29/04/2015 14:46:00 llg2-PC100391; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    |
    
    tmpCh	:=	?
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Dossier' ALORS
    			pers	:=	element.personne
    			SI pers <> ? ALORS
    				SORTIR pers.codePostal
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    SINON
    	SORTIR dossier.{'CodePostal'}chaine
    FIN SI
###
'get_Adresse3' 'Toutes fonctions'
    --Création : 24/05/2011 14:46:39 llg-PO15890; Modification : 29/04/2015 14:46:00 llg2-PC100391; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    |
    
    tmpCh	:=	?
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Dossier' ALORS
    			pers	:=	element.personne
    			SI pers <> ? ALORS
    				SORTIR pers.adresse3
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    SINON
    	SORTIR dossier.{'Adresse3'}chaine
    FIN SI
###
'get_voieExtension' 'Toutes fonctions'
    --Création : 24/05/2011 14:46:39 llg-PO15890; Modification : 02/05/2013 16:21:57 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    |
    
    tmpCh	:=	?
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Dossier' ALORS
    			pers	:=	element.personne
    			SI pers <> ? ALORS
    				SORTIR pers.bister
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    SINON
    	SORTIR dossier.{'voieExtension'}chaine
    FIN SI
###
'get_voieNature' 'Toutes fonctions'
    --Création : 24/05/2011 14:46:39 llg-PO15890; Modification : 02/05/2013 16:21:57 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    |
    
    tmpCh	:=	?
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Dossier' ALORS
    			pers	:=	element.personne
    			SI pers <> ? ALORS
    				SORTIR pers.adresse1
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    SINON
    	SORTIR dossier.{'voieNature'}chaine
    FIN SI
###
'get_voieNumero' 'Toutes fonctions'
    --Création : 24/05/2011 14:46:39 llg-PO15890; Modification : 02/05/2013 16:21:57 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    |
    pers	::=	'Personne'
    tmpCh	:=	?
    
    SI contactExportes ALORS
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Dossier' ALORS
    			pers	:=	element.personne
    			SI pers <> ? ALORS
    				SORTIR pers.numero
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    SINON
    	SORTIR dossier.{'voieNumero'}chaine
    FIN SI
###
'get_Adresse2' 'Toutes fonctions'
    --Création : 24/05/2011 14:46:39 llg-PO15890; Modification : 29/04/2015 14:46:00 llg2-PC100391; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    |
    
    tmpCh	:=	?
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Dossier' ALORS
    			pers	:=	element.personne
    			SI pers <> ? ALORS
    				SORTIR pers.adresse2
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    SINON
    	SORTIR dossier.{'Adresse2'}chaine
    FIN SI
###
'get_Adresse1' 'Toutes fonctions'
    --Création : 24/05/2011 14:46:39 llg-PO15890; Modification : 29/04/2015 14:46:00 llg2-PC100391; 
    |
    	pers<Objet>adr<Chaine>
    |
    adr	:=	?
    SI contactExportes ALORS
    	pers	::=	'Personne'
    
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Dossier' ALORS
    			pers	:=	element.personne
    			SI pers <> ? ALORS
    				SI pers.numero <> ? ET pers.numero <> '' ALORS adr	+=	pers.numero+' ' FIN SI
    				SI pers.bister <> ? ET pers.bister <> '' ALORS adr	+=	pers.bister +' ' FIN SI
    				adr	+=	pers.adresse1
    				SORTIR adr
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR adr
    SINON
    	SORTIR dossier.{'Adresse1'}chaine
    FIN SI
###
'get_formeJuridique' 'Toutes fonctions'
    --Création : 24/05/2011 14:46:39 llg-PO15890; Modification : 29/04/2015 14:46:00 llg2-PC100391; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    |
    
    tmpCh	:=	?
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Dossier' ALORS
    			pers	:=	element.personne
    			SI pers <> ? ALORS
    				SORTIR pers.typeJuridique
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    SINON
    	SORTIR dossier.{'formeJuridique'}chaine
    FIN SI
###
'get_Siren' 'Toutes fonctions'
    --Création : 24/05/2011 14:46:39 llg-PO15890; Modification : 29/04/2015 14:46:00 llg2-PC100391; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    |
    
    tmpCh	:=	?
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Dossier' ALORS
    			pers	:=	element.personne
    			SI pers <> ? ALORS
    				SORTIR pers.siren
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    SINON
    	SORTIR dossier.{'Siren'}chaine
    FIN SI
###
'get_EmailAdministrateurReferenceCabinet' 'Toutes fonctions'

	|
		rep<Chaine>lu<Objet>lst<Objet>tmpRole<Objet>pers<Objet>dateFdm<Date>
	|

	tmpRole ::= 'Role'
	pers ::= 'Personne'
	lu ::= 'LinkUp'
	lu := creer{'LinkUp'}

	rep := ?
	-- Obligation de forcer le contexte à la date du jour
	dateFdm := finDeMois{aujourdhui{}}

	lst := lu.getSuperAdministrators{}[dateFdm]
	SI nbElements{lst} = 1 ALORS
		tmpRole := lst.[1]
		pers := tmpRole.personne[dateFdm]
		SI NON pers = ? ALORS
			rep := pers.email[dateFdm]
		FINSI
	FINSI

	SORTIR rep
###
'get_EmailResponsableDossierCabinet' 'Toutes fonctions'

	|
		rep<Chaine>
	|

	collaborateur ::= responsableDossier

	SI collaborateur = ? ALORS
		rep := ?
	SINON
		rep := collaborateur.email
	FIN SI

	SORTIR rep
###
'get_Siret' 'Toutes fonctions'
    --Création : 24/05/2011 14:46:39 llg-PO15890; Modification : 29/04/2015 14:46:00 llg2-PC100391; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    |
    
    tmpCh	:=	?
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Dossier' ALORS
    			pers	:=	element.personne
    			SI pers <> ? ALORS
                    SI dossier.{'Siret'}chaine <> pers.siret ALORS
                        dossier.{'Siret'}chaine := pers.siret
                    FIN SI
    				SORTIR pers.siret
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    SINON
    	SORTIR dossier.{'Siret'}chaine
    FIN SI
###
'set_NuméroFrp' 'Toutes fonctions'
{value <Chaine> avecPropagation <Booléen>}
    --Modification : 05/09/2014 10:12:25 llg-PO36696; 
    --Création : 24/05/2011 14:46:39 llg-PO15890; Modification : 04/09/2014 14:50:09 sav-PO36696
    
    |
    	modif<Booléen>
    |
    debug{'Dossier - setNuméroFrp '+contactExportes+' - '+avecPropagation+' - '+value}
    SI contactExportes ALORS
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'SIE' ALORS
    			SI element.personne <> ? ALORS
    				modif := FAUX
    				SI avecPropagation ALORS
    					SI element.NuméroFrp <> value ALORS
    						element.NuméroFrp	!=	value
    						modif := VRAI
    					FIN SI
    				SINON
    					SI element.NuméroFrp <> value ALORS
    						element.NuméroFrp	:=	value
    						modif := VRAI
    					FIN SI
    				FIN SI
    				SI modif ALORS
    debug{'Modification du NumeroFrp '+value}
    					commit{element}
    				FIN SI
    			FIN SI
    		FIN SI
    	FIN FAIRE
    SINON
    	SI avecPropagation ALORS
    		dossier.{'NuméroFrp'}chaine	!=	value
    	SINON
    		dossier.{'NuméroFrp'}chaine	:=	value
    	FIN SI
    FIN SI
###
'set_CodeRegime' 'Toutes fonctions'
{value <Chaine> avecPropagation <Booléen>}
    --Création : 24/05/2011 14:46:39 llg-PO15890; Modification : 20/12/2013 15:45:09 llg-PO36696; 
    
    
    SI contactExportes ALORS
    
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'SIE' ALORS
    			SI element.personne <> ? ALORS
    				SI avecPropagation ALORS
    					element.CodeRegime	!=	value
    				SINON
    					element.CodeRegime	:=	value
    				FIN SI
    				commit{element}
    			FIN SI
    		FIN SI
    	FIN FAIRE
    SINON
    	SI avecPropagation ALORS
    		dossier.{'CodeRegime'}chaine	!=	value
    	SINON
    		dossier.{'CodeRegime'}chaine	:=	value
    	FIN SI
    FIN SI
###
'get_fullName' 'Toutes fonctions'
    --Création : 24/05/2011 14:46:39 llg-PO15890; Modification : 02/05/2013 16:21:57 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    |
    
    tmpCh	:=	?
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Dossier' ALORS
    			pers	:=	element.personne
    			SI pers <> ? ALORS
    				SI pers.fullName <> ? ALORS SORTIR pers.fullName FIN SI
    			FIN SI
    		FIN SI
    	FIN FAIRE
    FIN SI
    
    SORTIR tmpCh
###
'get_nomDossier' 'Toutes fonctions'
    --Création : 24/05/2011 14:46:39 llg-PO15890; Modification : 29/04/2015 14:46:01 llg2-PC100391; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    |
    
    tmpCh	:=	?
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Dossier' ALORS
    			pers	:=	element.personne
    			SI pers <> ? ALORS
    				SI pers.nomDossier <> ? ALORS SORTIR pers.nomDossier FIN SI
    				SI pers.raisonSociale <> ? ALORS SORTIR pers.raisonSociale FIN SI
    				SI pers.fullName <> ? ALORS SORTIR pers.fullName FIN SI
    			FIN SI
    		FIN SI
    	FIN FAIRE
    	SORTIR tmpCh
    SINON
    	SORTIR dossier!{'nomDossier'}chaine
    FIN SI
###
'get_SiteWeb' 'Toutes fonctions'
    --Création : 24/05/2011 14:46:39 llg-PO15890; Modification : 29/04/2015 14:46:01 llg2-PC100391; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    |
    
    tmpCh	:=	?
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Dossier' ALORS
    			pers	:=	element.personne
    			SI pers <> ? ALORS
    				SORTIR pers.website[finDeMois{aujourdhui{}}]
    			FIN SI
    		FIN SI
    	FIN FAIRE
    	SORTIR tmpCh
    SINON
    	SORTIR dossier.{'SiteWeb'}chaine
    FIN SI
###
'get_RaisonSociale' 'Toutes fonctions'
    --Création : 24/05/2011 14:46:39 llg-PO15890; Modification : 30/04/2015 09:11:16 scr-PC101399; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    |
    
    tmpCh	:=	?
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Dossier' ALORS
    			pers	:=	element.personne
    			SI pers <> ? ALORS
    				SORTIR pers.raisonSociale
    			FIN SI
    		FIN SI
    	FIN FAIRE
    	SORTIR tmpCh
    SINON
    	SORTIR dossier.{'RaisonSociale'}chaine
    FIN SI
###
'bClickDroitOnZoneLibre' 'Toutes fonctions'
{lNoZoneArg <Entier>}
    --Création : 06/12/2004 14:11:31 ylv-YLV; Modification : 02/05/2013 16:21:57 llg-PO36696; 
    
    
    |
    	objLibraSaisieGI2Loc<Objet>objLibrairieGI2<Objet>lNoZoneArgLoc<Entier>
    	bRep<Booléen>szVarLoc<Chaine>
    |
    
    objLibraSaisieGI2Loc ::= 'LibraSaisieGI2'
    objLibraSaisieGI2Loc := creer{'LibraSaisieGI2'}
    objLibrairieGI2 ::= 'LibrairieGI2'
    objLibrairieGI2 := creer{'LibrairieGI2'}
    
    SI NON aLesDroitsGestionDossier{} ALORS
    	SORTIR FAUX
    FIN SI


    lNoZoneArgLoc := lNoZoneArg
    
    bRep := FAUX
    
    objLibrairieGI2.bTesterAvantOuvrirSqlSrvr{FAUX, FAUX}
    SI objLibrairieGI2.abOk = VRAI ALORS
    	objLibraSaisieGI2Loc.szChoixDossierZonesLibres{lNoZoneArgLoc}
    	SI objLibraSaisieGI2Loc.abOk = VRAI ALORS
    		bRep := VRAI
    		SI lNoZoneArgLoc = 1 ALORS
    			zone1 := objLibraSaisieGI2Loc.aszDozZone
    		FIN SI
    		SI lNoZoneArgLoc = 2 ALORS
    			zone2 := objLibraSaisieGI2Loc.aszDozZone
    		FIN SI
    		SI lNoZoneArgLoc = 3 ALORS
    			zone3 := objLibraSaisieGI2Loc.aszDozZone
    		FIN SI
    		SI lNoZoneArgLoc = 4 ALORS
    			zone4 := objLibraSaisieGI2Loc.aszDozZone
    		FIN SI
    		SI lNoZoneArgLoc = 5 ALORS
    			zone5 := objLibraSaisieGI2Loc.aszDozZone
    		FIN SI
    		SI lNoZoneArgLoc = 6 ALORS
    			zone6 := objLibraSaisieGI2Loc.aszDozZone
    		FIN SI
    		SI lNoZoneArgLoc = 7 ALORS
    			zone7 := objLibraSaisieGI2Loc.aszDozZone
    		FIN SI
    		SI lNoZoneArgLoc = 8 ALORS
    			zone8 := objLibraSaisieGI2Loc.aszDozZone
    		FIN SI
    		SI lNoZoneArgLoc = 9 ALORS
    			zone9 := objLibraSaisieGI2Loc.aszDozZone
    		FIN SI
    		SI lNoZoneArgLoc = 10 ALORS
    			zone10 := objLibraSaisieGI2Loc.aszDozZone
    		FIN SI
    		SI lNoZoneArgLoc = 11 ALORS
    			zone11 := objLibraSaisieGI2Loc.aszDozZone
    		FIN SI
    		SI lNoZoneArgLoc = 12 ALORS
    			zone12 := objLibraSaisieGI2Loc.aszDozZone
    		FIN SI
    		SI lNoZoneArgLoc = 13 ALORS
    			zone13 := objLibraSaisieGI2Loc.aszDozZone
    		FIN SI
    		SI lNoZoneArgLoc = 14 ALORS
    			zone14 := objLibraSaisieGI2Loc.aszDozZone
    		FIN SI
    		SI lNoZoneArgLoc = 15 ALORS
    			zone15 := objLibraSaisieGI2Loc.aszDozZone
    		FIN SI
    		SI lNoZoneArgLoc = 16 ALORS
    			zone16 := objLibraSaisieGI2Loc.aszDozZone
    		FIN SI
    		SI lNoZoneArgLoc = 17 ALORS
    			zone17 := objLibraSaisieGI2Loc.aszDozZone
    		FIN SI
    		SI lNoZoneArgLoc = 18 ALORS
    			zone18 := objLibraSaisieGI2Loc.aszDozZone
    		FIN SI
    		SI lNoZoneArgLoc = 19 ALORS
    			zone19 := objLibraSaisieGI2Loc.aszDozZone
    		FIN SI
    		SI lNoZoneArgLoc = 20 ALORS
    			zone20 := objLibraSaisieGI2Loc.aszDozZone
    		FIN SI
    		SI lNoZoneArgLoc = 21 ALORS
    			zone21 := objLibraSaisieGI2Loc.aszDozZone
    		FIN SI
    		SI lNoZoneArgLoc = 22 ALORS
    			zone22 := objLibraSaisieGI2Loc.aszDozZone
    		FIN SI
    		SI lNoZoneArgLoc = 23 ALORS
    			zone23 := objLibraSaisieGI2Loc.aszDozZone
    		FIN SI
    		SI lNoZoneArgLoc = 24 ALORS
    			zone24 := objLibraSaisieGI2Loc.aszDozZone
    		FIN SI
    		SI lNoZoneArgLoc = 25 ALORS
    			zone25 := objLibraSaisieGI2Loc.aszDozZone
    		FIN SI
    		SI lNoZoneArgLoc = 26 ALORS
    			zone26 := objLibraSaisieGI2Loc.aszDozZone
    		FIN SI
    		SI lNoZoneArgLoc = 27 ALORS
    			zone27 := objLibraSaisieGI2Loc.aszDozZone
    		FIN SI
    		SI lNoZoneArgLoc = 28 ALORS
    			zone28 := objLibraSaisieGI2Loc.aszDozZone
    		FIN SI
    		SI lNoZoneArgLoc = 29 ALORS
    			zone29 := objLibraSaisieGI2Loc.aszDozZone
    		FIN SI
    		SI lNoZoneArgLoc = 30 ALORS
    			zone30 := objLibraSaisieGI2Loc.aszDozZone
    		FIN SI
    		SI lNoZoneArgLoc = 31 ALORS
    			zone31 := objLibraSaisieGI2Loc.aszDozZone
    		FIN SI
    		SI lNoZoneArgLoc = 32 ALORS
    			zone32 := objLibraSaisieGI2Loc.aszDozZone
    		FIN SI
    		SI lNoZoneArgLoc = 33 ALORS
    			zone33 := objLibraSaisieGI2Loc.aszDozZone
    		FIN SI
    		SI lNoZoneArgLoc = 34 ALORS
    			zone34 := objLibraSaisieGI2Loc.aszDozZone
    		FIN SI
    		SI lNoZoneArgLoc = 35 ALORS
    			zone35 := objLibraSaisieGI2Loc.aszDozZone
    		FIN SI
    		SI lNoZoneArgLoc = 36 ALORS
    			zone36 := objLibraSaisieGI2Loc.aszDozZone
    		FIN SI
    		SI lNoZoneArgLoc = 37 ALORS
    			zone37 := objLibraSaisieGI2Loc.aszDozZone
    		FIN SI
    		SI lNoZoneArgLoc = 38 ALORS
    			zone38 := objLibraSaisieGI2Loc.aszDozZone
    		FIN SI
    		SI lNoZoneArgLoc = 39  ALORS
    			zone39 := objLibraSaisieGI2Loc.aszDozZone
    		FIN SI
    		SI lNoZoneArgLoc = 40 ALORS
    			zone40 := objLibraSaisieGI2Loc.aszDozZone
    		FIN SI
    
    		szVarLoc := 'zone' + lNoZoneArgLoc
    		editeur.majVariable := szVarLoc
    	FIN SI
    FIN SI
    
    SORTIR bRep
###
'get_Activite' 'Toutes fonctions'
    --Création : 31/05/2011 17:04:22 llg-PO15890; Modification : 29/04/2015 14:46:01 llg2-PC100391; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    |
    
    tmpCh	:=	?
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Dossier' ALORS
    			pers	:=	element.personne
    			SI pers <> ? ALORS
    				SORTIR pers.Activite
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    SINON
    	SORTIR dossier.{'Activite'}chaine
    FIN SI
###
'get_PrenomChefEntr' 'Toutes fonctions'
    --Création : 31/05/2011 17:19:54 llg-PO15890; Modification : 02/05/2013 16:21:57 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    |
    
    tmpCh	:=	?
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Chef d''entreprise' ALORS
    			pers	:=	element.personne
    			SI pers <> ? ALORS
    				SORTIR pers.firstName
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    SINON
    	SORTIR dossier.{'PrenomChefEntr'}chaine
    FIN SI
###
'get_NomChefEntr' 'Toutes fonctions'
    --Création : 31/05/2011 17:19:54 llg-PO15890; Modification : 02/05/2013 16:21:57 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    |
    
    tmpCh	:=	?
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Chef d''entreprise' ALORS
    			pers	:=	element.personne
    			SI pers <> ? ALORS
    				SORTIR pers.lastName
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    SINON
    	SORTIR dossier.{'NomChefEntr'}chaine
    FIN SI
###
'get_StatutConjoint' 'Toutes fonctions'
    --Création : 06/06/2011 10:22:12 llg-PO15890; Modification : 02/05/2013 16:21:57 llg-PO36696; 
    |
    	tmpCh<Chaine>
    |
    
    tmpCh	:=	?
    
    SI contactExportes ALORS
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Chef d''entreprise' ALORS
    			SORTIR element.StatutConjoint
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    SINON
    	SORTIR dossier.{'StatutConjoint'}chaine
    FIN SI
###
'get_dateNaissanceChefEntreprise' 'Toutes fonctions'
    --Création : 31/05/2011 17:19:54 llg-PO15890; Modification : 02/05/2013 16:21:57 llg-PO36696; 
    |
    	pers<Objet> 
    	dte<Date>
    |
    
    dte	:=	?
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Chef d''entreprise' ALORS
    			pers	:=	element.personne
    			SI pers <> ? ALORS
    				SORTIR pers.dateDeNaissance
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR dte
    SINON
    	SORTIR dossier.{'dateNaissanceChefEntreprise'}date
    FIN SI
###
'get_Enfants' 'Toutes fonctions'
    --Création : 06/06/2011 10:22:12 llg-PO15890; Modification : 02/05/2013 16:21:57 llg-PO36696; 
    |
    	tmpCh<Chaine>
    |
    
    tmpCh	:=	?
    
    SI contactExportes ALORS
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Chef d''entreprise' ALORS
    			SORTIR element.Enfants
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    SINON
    	SORTIR dossier.{'Enfants'}chaine
    FIN SI
###
'get_RegimeMatrChefEntr' 'Toutes fonctions'
    --Création : 06/06/2011 10:22:12 llg-PO15890; Modification : 02/05/2013 16:21:57 llg-PO36696; 
    |
    	tmpCh<Chaine>
    |
    
    tmpCh	:=	?
    
    SI contactExportes ALORS
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Chef d''entreprise' ALORS
    			SORTIR element.RegimeMatrChefEntr
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    SINON
    	SORTIR dossier.{'RegimeMatrChefEntr'}chaine
    FIN SI
###
'get_AdrBanque1' 'Toutes fonctions'
    --Création : 05/07/2012 16:13:36 llg-PO36696; Modification : 02/05/2013 16:21:57 llg-PO36696; 
    |
    	pers<Objet>adr<Chaine>
    |
    adr	:=	?
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ET element.estBanque1 ALORS
    			pers	:=	element.personne
    			SI pers <> ? ALORS
    				SORTIR pers.adresse1
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR adr
    SINON
    	SORTIR dossier.{'AdrBanque1'}chaine
    FIN SI
###
'CreerInterlocuteur' 'Toutes fonctions'
{objSource <Objet> interloc <Chaine> valueRole <Chaine> idAncienContact <Chaine>}
    --Création : 15/06/2011 11:30:02 llg-PO15890; Modification : 02/05/2013 16:21:57 llg-PO36696; 
    
    
    
    
    
    
    |
    	pers<Objet>ii<Entier>lst<Objet>role<Objet>tmpRole<Objet>doss<Objet>
    	nb<Entier> dteDeb<Date> dteFin<Date>
    |
    
    doss	::=	'Dossier'
    tmpRole	::=	'Role'
    role	::=	'Role'
    pers	::=	'Personne'
    
    doss	:=	objSource
    
    tmpRole	:=	creer{'Role'}
    role	:=	tmpRole.new{doss, valueRole, VRAI}
    
    lst	:=	datesHistorique{doss , interloc}
    SI (dossier.{interloc}chaine[2.1.1901] <> ?)	ALORS
    	ajouterElement{lst, entier{2.1.1901}, 1}
    FIN SI
    
    ii	:=	1
    nb	:=	nbElements{lst}
    TANT QUE ii <= nb FAIRE	
    	dteDeb			:=	elementEntierDIndice{lst, ii}
    	SI ii = nb ALORS
    		dteFin	:=	31.12.2050
    	SINON
    		dteFin	:=	elementEntierDIndice{lst, ii+1} - 1
    	FIN SI
    	pers			:=	creer{'Personne', '/mongo/Personne'}
    	pers.initInterlocuteur{doss, valueRole,dteDeb, dteFin}
    	role.personne[dteDeb]	!=	pers
    	ii			+=	1
    FIN FAIRE
    
    SI pers <> ? ET idAncienContact <> ? ALORS
    	pers.idEE	:=	idAncienContact
    FIN SI
    
    SORTIR role
###
'CreerSocieteIntegrante' 'Toutes fonctions'
{objSource <Objet>}
    --Création : 15/06/2011 11:30:02 llg-PO15890; Modification : 02/05/2013 16:21:57 llg-PO36696; 
    
    
    
    
    
    
    |
    	pers<Objet>ii<Entier>lst<Objet>role<Objet>tmpRole<Objet>etab<Objet>
    	nb<Entier> dteDeb<Date> dteFin<Date>
    |
    
    etab	::=	'Etablissement'
    etab	:=	objSource
    
    tmpRole	::=	'Role'
    role	::=	'Role'
    tmpRole	:=	creer{'Role'}
    role	:=	tmpRole.new{etab, 'Société intégrante', VRAI}
    
    pers		::=	'Personne'
    
    lst	:=	datesHistorique{etab , 'NomSteIntegrte'}
    SI (etab.{'NomSteIntegrte'}chaine[2.1.1901] <> ?)	ALORS
    	ajouterElement{lst, entier{2.1.1901}, 1}
    FIN SI
    
    ii	:=	1
    nb	:=	nbElements{lst}
    TANT QUE ii <= nb FAIRE	
    	dteDeb			:=	elementEntierDIndice{lst, ii}
    	SI ii = nb ALORS
    		dteFin	:=	31.12.2050
    	SINON
    		dteFin	:=	elementEntierDIndice{lst, ii+1} - 1
    	FIN SI
    	pers			:=	creer{'Personne', '/mongo/Personne'}
    	pers.initSocieteIntegrante{etab, dteDeb, dteFin}
    	role.personne[dteDeb]	!=	pers
    	ii			+=	1
    FIN FAIRE
    
    SORTIR role
###
'CreerBanqueAssedicDucsEdi' 'Toutes fonctions'
{objSource <Objet>}
    --Création : 09/06/2011 17:02:21 llg-PO15890; Modification : 02/05/2013 16:21:58 llg-PO36696; 
    
    
    
    
    
    
    |
    	pers<Objet>ii<Entier>dte<Date>lst<Objet>role<Objet>tmpRole<Objet>dteDeb<Date>etab<Objet>
    |
    
    etab	::=	'Etablissement'
    etab	:=	objSource
    
    tmpRole	::=	'Role'
    role	::=	'Role'
    tmpRole	:=	creer{'Role'}
    role	:=	tmpRole.new{etab, 'BanqueAssedicDucsEdi', FAUX}
    
    pers		::=	'Personne'
    pers		:=	creer{'Personne', '/mongo/Personne'}
    pers.initBanqueAssedicDucsEdi{etab}
    role.personne[1.1.1995]	!=	pers
    
    SORTIR role
###
'CreerBanqueUrssafDucsEdi' 'Toutes fonctions'
{objSource <Objet>}
    --Création : 09/06/2011 17:02:21 llg-PO15890; Modification : 02/05/2013 16:21:58 llg-PO36696; 
    
    
    
    
    
    
    |
    	pers<Objet>ii<Entier>dte<Date>lst<Objet>role<Objet>tmpRole<Objet>dteDeb<Date>etab<Objet>
    |
    
    etab	::=	'Etablissement'
    etab	:=	objSource
    
    tmpRole	::=	'Role'
    role	::=	'Role'
    tmpRole	:=	creer{'Role'}
    role	:=	tmpRole.new{etab, 'BanqueUrssafDucsEdi', FAUX}
    
    pers		::=	'Personne'
    pers		:=	creer{'Personne', '/mongo/Personne'}
    pers.initBanqueUrssafDucsEdi{etab}
    role.personne[1.1.1995]	!=	pers
    
    SORTIR role
###
'CreerBanqueTLR3' 'Toutes fonctions'
{objSource <Objet>}
    --Création : 09/06/2011 17:02:21 llg-PO15890; Modification : 02/05/2013 16:21:58 llg-PO36696; 
    
    
    
    
    
    
    |
    	pers<Objet>ii<Entier>dte<Date>lst<Objet>role<Objet>tmpRole<Objet>dteDeb<Date>etab<Objet>
    |
    
    etab	::=	'Etablissement'
    
    etab	:=	objSource
    
    tmpRole	::=	'Role'
    role	::=	'Role'
    tmpRole	:=	creer{'Role'}
    role	:=	tmpRole.new{etab, 'BanqueTLR3', FAUX}
    
    pers		::=	'Personne'
    
    SI TLR3_libelle <> '' ET TLR3_libelle <> ? ALORS
    	pers			:=	creer{'Personne', '/mongo/Personne'}
    	pers.initBanqueTLR3{etab, 1.1.1995, 31.12.2050}
    	role.personne[1.1.1995]	!=	pers
    FIN SI
    
    
    SORTIR role
###
'CreerBanqueTLR2' 'Toutes fonctions'
{objSource <Objet>}
    --Création : 09/06/2011 17:02:21 llg-PO15890; Modification : 02/05/2013 16:21:58 llg-PO36696; 
    
    
    
    
    
    
    |
    	pers<Objet>ii<Entier>dte<Date>lst<Objet>role<Objet>tmpRole<Objet>dteDeb<Date>etab<Objet>
    |
    
    etab	::=	'Etablissement'
    
    etab	:=	objSource
    
    tmpRole	::=	'Role'
    role	::=	'Role'
    tmpRole	:=	creer{'Role'}
    role	:=	tmpRole.new{etab, 'BanqueTLR2', FAUX}
    
    pers		::=	'Personne'
    
    SI TLR2_libelle <> '' ET TLR2_libelle <> ? ALORS
    	pers			:=	creer{'Personne', '/mongo/Personne'}
    	pers.initBanqueTLR2{etab, 1.1.1995, 31.12.2050}
    	role.personne[1.1.1995]	!=	pers
    FIN SI
    
    
    SORTIR role
###
'CreerBanqueTLR1' 'Toutes fonctions'
{objSource <Objet>}
    --Création : 09/06/2011 17:02:21 llg-PO15890; Modification : 02/05/2013 16:21:58 llg-PO36696; 
    
    
    
    
    
    
    |
    	pers<Objet>ii<Entier>dte<Date>lst<Objet>role<Objet>tmpRole<Objet>dteDeb<Date>etab<Objet>
    |
    etab	::=	'Etablissement'
    
    etab	:=	objSource
    
    tmpRole	::=	'Role'
    role	::=	'Role'
    tmpRole	:=	creer{'Role'}
    role	:=	tmpRole.new{etab, 'BanqueTLR1', FAUX}
    
    pers		::=	'Personne'
    
    SI TLR1_libelle <> '' ET TLR1_libelle <> ? ALORS
    	pers			:=	creer{'Personne', '/mongo/Personne'}
    	pers.initBanqueTLR1{etab, 1.1.1995, 31.12.2050}
    	role.personne[1.1.1995]	!=	pers
    FIN SI
    
    
    SORTIR role
###
'chaineHeureToSecondes' 'Toutes fonctions'
{aChaine <Chaine>}
    --Création : 17/10/2011 12:14:22 llg-PO15890; Modification : 02/05/2013 16:21:58 llg-PO36696; 
    
    
    
    
    
    
    | CR<Chaine> oFlotL<Objet> nbSecondes<Entier> secH<Chaine> secM<Chaine> secS<Chaine> |
    
    CR :='
'
    nbSecondes := 0
    oFlotL := flotLecture{ aChaine} 
    
    secH := lire{ oFlotL, ':'}
    secM := lire{ oFlotL, ':'}
    secS := lire{ oFlotL, CR}
    
    nbSecondes := entier{ secH} * 3600 + entier{ secM} * 60 + entier{ secS}
    
    SORTIR nbSecondes
###
'CreerServiceTiersDeclarant' 'Toutes fonctions'
{objSource <Objet>}
    --Création : 09/06/2011 17:02:21 llg-PO15890; Modification : 02/05/2013 16:21:58 llg-PO36696; 
    
    
    
    
    
    
    |
    	pers<Objet>ii<Entier>lst<Objet>role<Objet>tmpRole<Objet>etab<Objet>
    	nb<Entier> dteDeb<Date> dteFin<Date> 
    |
    
    etab	::=	'Etablissement'
    etab	:=	objSource
    tmpRole	::=	'Role'
    role	::=	'Role'
    
    tmpRole	:=	creer{'Role'}
    role	:=	tmpRole.new{etab, 'Service des tiers déclarants', VRAI}
    
    pers		::=	'Personne'
    
    lst	:=	datesHistorique{etab , 'adrCda'}
    SI (etab.{'adrCda'}chaine[2.1.1901] <> ?)	ALORS
    	ajouterElement{lst, entier{2.1.1901}, 1}
    FIN SI
    
    ii	:=	1
    nb	:=	nbElements{lst}
    TANT QUE ii <= nb FAIRE	
    	dteDeb			:=	elementEntierDIndice{lst, ii}
    	SI ii = nb ALORS
    		dteFin	:=	31.12.2050
    	SINON
    		dteFin	:=	elementEntierDIndice{lst, ii+1} - 1
    	FIN SI
    	pers			:=	creer{'Personne', '/mongo/Personne'}
    	pers.initServiceTiersDeclarant{etab, dteDeb, dteFin}
    	role.personne[dteDeb]	!=	pers
    	ii			+=	1
    FIN FAIRE
    
    SORTIR role
###
'CDI' 'Toutes fonctions'
    --Création : 17/10/2011 12:15:52 llg-PO15890; Modification : 02/05/2013 16:21:58 llg-PO36696; 
    | sNom<Chaine> |
        
    sNom := dossier.AdrCdi1[30.10.2005]
    info{ 'CDI: '+sNom}
###
'creerAssocie' 'Toutes fonctions'
{aNom <Chaine>}
    --Création : 17/10/2011 12:15:19 llg-PO15890; Modification : 02/05/2013 16:21:58 llg-PO36696; 
    
    
    
    
    
    
    
    associe +:= ''+aNom
    associe.associeId := szGuid{}
    associe.nbTitres := 0
    associe.nbDroitsVote := 0
###
'contacts_jur_TITRE' 'Toutes fonctions'
    --Création : 09/01/2012 10:42:53 llg-PO36696; Modification : 02/05/2013 16:21:58 llg-PO36696; 
    SORTIR 'Liste des Contacts Juridiques'
###
'contacts_soc_TITRE' 'Toutes fonctions'
    --Création : 09/01/2012 10:42:53 llg-PO36696; Modification : 02/05/2013 16:21:58 llg-PO36696; 
    SORTIR 'Liste des Contacts Sociaux'
###
'contacts_fisc_TITRE' 'Toutes fonctions'
    --Création : 09/01/2012 10:42:53 llg-PO36696; Modification : 02/05/2013 16:21:58 llg-PO36696; 
    SORTIR 'Liste des Contacts Fiscaux'
###
'contacts_soc_LISTE' 'Toutes fonctions'
    --Création : 09/01/2012 09:29:21 llg-PO36696; Modification : 02/05/2013 16:21:58 llg-PO36696; 
    |
    	objTmp<Objet>pers<Objet>lst<Objet>objTmp2<Objet>
    |
    
    objTmp		::=	'Role'
    pers		::=	'Personne'
    objTmp2	::=	'Personne'
    lst		:=	creerListe{}
    
    POUR TOUT element<Role> DE lstNouveauxContacts
    FAIRE
    	objTmp			:=	element
    	pers			:=	objTmp.personne
    	pers.rolePersonne	:=	objTmp.type
    debug{chaine{cleValeur{dicoRoles, pers.rolePersonne}}}
    	SI chaine{cleValeur{dicoRoles, pers.rolePersonne}} = 'Social' OU chaine{cleValeur{dicoRoles, pers.rolePersonne}} = 'Ops'  ALORS	
    		SI pers <> ? ALORS
    			objTmp2		:=	creer{'Personne'}
    
    			objTmp2._id		:=	pers._id
    			objTmp2.role		:=	objTmp
    
    			objTmp2.rolePersonne	:=	pers.rolePersonne
    			objTmp2.fullName	:=	pers.fullName
    			objTmp2.telephone	:=	pers.telephone
    			objTmp2.mobile		:=	pers.mobile
    			objTmp2.email		:=	pers.email
    			objTmp2.adresse1	:=	pers.adresse1
    			objTmp2.codePostal	:=	pers.codePostal
    			objTmp2.ville		:=	pers.ville
    			ajouterElement{lst, objTmp2}
    		FIN SI
    	FIN SI
    FIN FAIRE
    
    SORTIR lst
###
'contacts_fisc_LISTE' 'Toutes fonctions'
    --Création : 09/01/2012 09:29:21 llg-PO36696; Modification : 05/09/2014 11:12:40 ylv-PC100383; 
    |
    	objTmp<Objet>pers<Objet>lst<Objet>objTmp2<Objet>
    |
    
    objTmp		::=	'Role'
    pers		::=	'Personne'
    objTmp2	::=	'Personne'
    lst		:=	creerListe{}
    
    POUR TOUT element<Role> DE lstNouveauxContacts
    FAIRE
    	objTmp			:=	element
    	pers			:=	objTmp.personne
    	pers.rolePersonne	:=	objTmp.type
    	SI chaine{cleValeur{dicoRoles, pers.rolePersonne}} = 'Fiscal' ALORS
    		SI pers <> ? ALORS
    			objTmp2		:=	creer{'Personne'}
    
    			objTmp2._id		:=	pers._id
    			objTmp2.role		:=	objTmp
    
    			objTmp2.rolePersonne	:=	pers.rolePersonne
    			objTmp2.fullName	:=	pers.fullName
    			objTmp2.telephone	:=	pers.telephone
    			objTmp2.mobile		:=	pers.mobile
    			objTmp2.email		:=	pers.email
    			objTmp2.adresse1	:=	pers.adresse1
    			objTmp2.codePostal	:=	pers.codePostal
    			objTmp2.ville		:=	pers.ville
    			ajouterElement{lst, objTmp2}
    		FIN SI
    	FIN SI
    FIN FAIRE
    trierListe{lst, 'rolePersonne'}
    
    SORTIR lst
###
'contacts_jur_LISTE' 'Toutes fonctions'
    --Création : 09/01/2012 09:29:21 llg-PO36696; Modification : 02/05/2013 16:21:58 llg-PO36696; 
    |
    	objTmp<Objet>pers<Objet>lst<Objet>objTmp2<Objet>
    |
    
    objTmp		::=	'Role'
    pers		::=	'Personne'
    objTmp2	::=	'Personne'
    lst		:=	creerListe{}
    
    POUR TOUT element<Role> DE lstNouveauxContacts
    FAIRE
    	objTmp			:=	element
    	pers			:=	objTmp.personne
    	pers.rolePersonne	:=	objTmp.type
    	SI chaine{cleValeur{dicoRoles, pers.rolePersonne}} = 'Juridique' ALORS
    		SI pers <> ? ALORS
    			objTmp2		:=	creer{'Personne'}
    		
    			objTmp2._id		:=	pers._id
    			objTmp2.role		:=	objTmp
    
    			objTmp2.rolePersonne	:=	pers.rolePersonne
    			objTmp2.fullName	:=	pers.fullName
    			objTmp2.telephone	:=	pers.telephone
    			objTmp2.mobile		:=	pers.mobile
    			objTmp2.email		:=	pers.email
    			objTmp2.adresse1	:=	pers.adresse1
    			objTmp2.codePostal	:=	pers.codePostal
    			objTmp2.ville		:=	pers.ville
    			ajouterElement{lst, objTmp2}
    		FIN SI
    	FIN SI
    FIN FAIRE
    
    trierListe{lst, 'rolePersonne'}
    
    SORTIR lst
###
'VoirNouveauxContactsSansLesPersonnes' 'Toutes fonctions'
    --Modification : 02/05/2013 16:21:58 llg-PO36696; 
    VoirContactsMongo{FAUX}
###
'supprimerRolesOrphelins' 'Toutes fonctions'
    --Création : 11/04/2011 09:11:25 llg-PO15890; Modification : 18/06/2014 15:07:52 llg-PO36696; 
    | 
    	liste<Objet> objetRole<Objet> i<Entier>modePortable<Booléen>
    |
    
    
    objetRole	::=	'Role'
    
    SI sGuid = ? OU sGuid  = '' ALORS
    	SORTIR FAUX
    FIN SI
    
    liste	:=	lireObjet{'/mongo/Role?where=idEtablissement eq '''+sGuid+'''' }
    
    debug{'/mongo/Role?where=idEtablissement eq '''+sGuid+''''}
    
    SI liste= ? ALORS
    	collaborateur	::=	''
    	modePortable	:=	collaborateur.estDeconnecte
    	SI NON modePortable ALORS
    		document ::= 'Coala'
			document.MsgErreurCoalaHttp{VRAI, ''}
    	FINSI
    	debug{'VoirNouveauxcontacts - Dossier : '+'/mongo/Role?where=idEtablissement eq '''+sGuid+'''' }
    	SORTIR FAUX
    SINON
    
    	i := 1
    	TANT QUE i <= nbElements{liste} FAIRE
    		objetRole := liste.[i]
    
    		---Remontee pilotage le 11/10/12...SI AUCUN HISTORIQUE DE PERSONNE, ON PEUT CONSIDERER QUE LE ROLE EST ORPHELIN...
    		---ON SUPPRIME ET ON LOG
    		---Le faire sur un traitement plutot...
    
    		objetRole.estRoleOrphelin{}
    		/*lstDatesPersonne	:=	datesHistorique{objetRole, 'personne'}
		SI nbElements{lstDatesPersonne} = entier{'-1'} ALORS		
			message{'Suppression du rôle '+objetRole.type+' car orphelin....'+objetRole._id}	
			obj	:=	creer{'EditeurNouvelleGestionContacts'}
			obj.logModifContacts{'Rôle orphelin - sans référence à un contact', 'Suppression', RaisonSociale+' ('+CodeDossier+')', objetRole.type}
			supprimer{objetRole}
		SINON	
			persTjrsNull	:=	VRAI
			iDates	:=	1
			TANT QUE iDates <= nbElements{lstDatesPersonne} FAIRE
				dte	:=	elementEntierDIndice{lstDatesPersonne, iDates}
				SI objetRole.personne[dte] <> ? ALORS
					persTjrsNull	:=	FAUX
				FIN SI
				iDates	+=	1
			FIN FAIRE
			SI persTjrsNull ALORS --Role sans jamais personne
				message{'Suppression du rôle '+objetRole.type+' car orphelin....'+objetRole._id}	
				obj	:=	creer{'EditeurNouvelleGestionContacts'}
				obj.logModifContacts{'Rôle orphelin - sans référence à un contact', 'Suppression', RaisonSociale+' ('+CodeDossier+')', objetRole.type}
				supprimer{objetRole}				
			FIN SI
		FIN SI*/
    
    		i := i + 1
    	FIN FAIRE
    FINSI
    info{'Traitement terminé'}
    
    SORTIR VRAI
###
'verifierDoublonRoleDossier' 'Toutes fonctions'
    --Création : 16/12/2013 11:15:58 llg-PO36696; Modification : 16/12/2013 11:20:36 llg-PO36696; 
    |
    	nb<Entier>
    |
    
    nb	:=	0
    POUR TOUT element<Role> DE lstNouveauxContacts
    FAIRE
    	SI element.type = 'Dossier' ALORS
    		nb	+=	1
    	FIN SI
    FIN FAIRE
    
    SI nb > 1 ALORS
    	info{'Nous détectons un doublon de rôle Dossier. Ceci est logiquement impossible.
Vous pouvez néanmoins supprimer ce doublon en cliquant sur la touche Shift ainsi que le traitement Aide->Messages.
Une fenêtre s''ouvrira et vous proposera une suppression des contacts non sociaux présents.'}
    FIN SI
    
    SORTIR VRAI
###
'CorrigerContactsEtablissements' 'Toutes fonctions'
    --Création : 08/02/2013 09:59:18 llg-PO36696; Modification : 02/05/2013 16:21:58 llg-PO36696; 
    |
    	lst<Objet>lstGuidsEtab<Objet> guidEtab<Chaine>i<Entier>rol<Objet>
    |
    
    ---Corriger les etablissements
    /* Récupérer les etablissements du dossier
* Avoir la liste des guids des etablissements physique (sauvé via cluster)
* Comparer les guids et retirer les roles correspondant
* Eventuellement supprimer les personnes orphelines par la suite */
    --Recuperer tous les roles 'Etablissement' associés au dossier...
    --Revalide le 08/03/13 pour livraison parc
    
    rol	::=	'Role'
    
    lstGuidsEtab	:=	creerListe{}
    
    POUR TOUT etablissement FAIRE
    	guidEtab	:=	etablissement.sGuid
    	SI guidEtab <> ? ET guidEtab <> '' ALORS
    		message{'Etablissement physique : '+etablissement.sGuid+' -  '+etablissement.nomEtablissement}
    		
    		ajouterElement{lstGuidsEtab, guidEtab}
    
    		lst	:=	lireObjet{'/mongo/Role?where= type eq ''Etablissement'' and idEtablissement eq "'+guidEtab+'"'}
    		message{'/mongo/Role?where= type eq ''Etablissement'' and idEtablissement eq "'+guidEtab+'"'}
    		SI lst <> ? ALORS
    			SI nbElements{lst}>1 ALORS
    				i	:=	1
    				TANT QUE i <= nbElements{lst} FAIRE
    					rol	:=	lst.[i]
    					SI rol <> ? ALORS
    						SI i <> 1 ALORS --Pour garder le 1er établissement et supprimer les autres...
    							LogContacts{'Suppression du rôle '+rol.type+' - nom : '+etablissement.nomEtablissement, 'Corriger Etablissements Multiples', RaisonSociale+' ('+CodeDossier+')'}
    							supprimer{rol}							
    						FIN SI
    					FIN SI
    					i	+=	1
    				FIN FAIRE
    			FIN SI
    		FIN SI
    		commit{}
    		VoirNouveauxContacts{}
    	FIN SI
    FIN FAIRE
    
    info{'Traitement terminé'}
###
'VoirContactsMongo' 'Toutes fonctions'
{avecPersonnes <Booléen>}
    --Création : 11/04/2011 09:11:25 llg-PO15890; Modification : 30/04/2015 09:11:17 scr-PC101399; 
    
    
    | 
    	liste<Objet> objetRole<Objet> i<Entier>modePortable<Booléen>req<Chaine>unType<Chaine>
    |
    
    objetRole	::=	'Role'
    
    SI sGuid = ? OU sGuid  = '' ALORS
    	SORTIR FAUX
    FIN SI
    req	:=	'/mongo/Role?where=idEtablissement eq '''+sGuid+'''' 
    liste	:=	lireObjet{req}
    
    debug{'/mongo/Role?where=idEtablissement eq '''+sGuid+''''}
    
    lstNouveauxContacts	:=	creerListe{}
    lstRoles			:=	creerListe{}
    lstTousRoles		:=	creerListe{}
    lstTousContacts		:=	creerListe{}
    
    SI liste= ? ALORS
    	collaborateur	::=	''
    	modePortable	:=	collaborateur.estDeconnecte
    	SI NON modePortable ALORS
			document ::= 'Coala'
			document.MsgErreurCoalaHttp{VRAI, ''}
    	FINSI
    	debug{'VoirNouveauxcontacts - Dossier : '+'/mongo/Role?where=idEtablissement eq '''+sGuid+'''' }
    	SORTIR FAUX
    SINON
    
    	i := 1
    	TANT QUE i <= nbElements{liste} FAIRE
    		objetRole := liste.[i]
    		unType	:=	objetRole.type
    		SI avecPersonnes ALORS
    			objetRole.calculerNomAffiche{}[periode.fin]
    		FIN SI
    		
    		SI unType <> ? ALORS
    			SI indiceElement{lstRoles, unType} <1 ALORS ajouterElement{lstRoles, unType} FIN SI
    			SI indiceElement{lstTousRoles, unType} <1 ALORS ajouterElement{lstTousRoles, unType} FIN SI
    		FIN SI
    
    		SI unType = 'Centre des impôts' ALORS
    		SINON
    			SI unType = 'Collaborateur' ET objetRole.categorie # 'Sorti / Inactif*' ALORS 
    				--debug{'Exclusion des collaborateurs inactifs : '+objetRole._id}
    			SINON
    				ajouterElement{lstNouveauxContacts, objetRole}
    				ajouterElement{lstTousContacts, objetRole}
    			FIN SI
    		FIN SI
    
    		i := i + 1
    	FIN FAIRE
    FINSI
    
    trierListe{lstRoles, ''}
    
    etablissement	::=	?
    POUR TOUT etablissement FAIRE
    	--1+1
        etablissement.VoirContactsMongo{avecPersonnes}
    FIN FAIRE
    
    SORTIR VRAI
###
'ExportDeleteDpContacts' 'Toutes fonctions'
    --Création : 05/07/2012 11:08:42 llg-PO36696; Modification : 01/10/2013 16:46:50 llg-PO36696; 
    
    ---PERMETS DE REINTIALISER TOUS LES ATTRIBUTS DU DP QUI SONT EXPORTES
    ---AFIN DE CONTROLER L'EXPORT VIA LES LIENS OLE
    
    ---Attribut Dossier vers Role
    
    adhesionEditva := ?
    CleRecette[2.1.1901] != ?
    CodeRegime[2.1.1901] != ?
    JourLimite[2.1.1901] != ?
    Ndoss[2.1.1901] != ?
    NuméroFrp[2.1.1901] != ?
    NumTVAIntra:= ?
    SiretTva[2.1.1901] != ?
    AdhesAGA[2.1.1901] != ?
    DateRadiationAGA[2.1.1901] != ?
    NumAdhesAGA[2.1.1901] != ?
    CDISteIntgrte[2.1.1901] != ?
    DateAdhesion[2.1.1901] != ?
    DateRadiationCGA[2.1.1901] != ?
    CGA[2.1.1901] != ?
    CodeAlloc[2.1.1901] != ?
    ContTravDu[2.1.1901] != ?
    PdgCotisants[2.1.1901] != ?
    DebMandCacTitre[2.1.1901] != ?
    DurMandCacTitre[2.1.1901] != ?
    RepCacTitre[2.1.1901] != ?
    FinMandCacTitre[2.1.1901] != ?
    CiviliteRepCacTitre[2.1.1901] != ?
    DebMandCacSup[2.1.1901] != ?
    DurMandCacSup[2.1.1901] != ?
    RepCacSup[2.1.1901] != ?
    FinMandCacSup[2.1.1901] != ?
    CiviliteRepCacSup[2.1.1901] != ?
    CodeMal[2.1.1901] != ?
    CodeRet[2.1.1901] != ?
    ASScle:= ?
    ASSCleIBAN := ?
    ASSCodeBIC := ?
    ASScodeEtab:= ?
    ASScodeGuichet := ?
    ASSIBAN := ?
    ASSnumCompte := ?
    ASStitulaireCompte:= ?
    ASScle:= ?
    ASSCleIBAN:= ?
    ASSCodeBIC:= ?
    ASScodeEtab:= ?
    ASScodeGuichet:= ?
    ASSIBAN:= ?
    ASSnumCompte:= ?
    ASStitulaireCompte:= ?
    URScle:= ?
    URSCleIBAN:= ?
    URSCodeBIC:= ?
    URScodeEtab:= ?
    URScodeGuichet:= ?
    URSIBAN:= ?
    URSnumCompte:= ?
    URStitulaireCompte:= ?
    URScle:= ?
    URSCleIBAN:= ?
    URSCodeBIC:= ?
    URScodeEtab:= ?
    URScodeGuichet:= ?
    URSIBAN:= ?
    URSnumCompte:= ?
    URStitulaireCompte:= ?
    CodeBanqueGesCab[2.1.1901] != ?
    CodeGuichetGesCab[2.1.1901] != ?
    NumeroCompteGesCab[2.1.1901] != ?
    CleRIBGesCab[2.1.1901] != ?
    CleIBANGesCab[2.1.1901] != ?
    IBANGesCab[2.1.1901] != ?
    abIBANEtrangerGesCab[2.1.1901] != ?
    CodeDeviseISOGesCab[2.1.1901] != ?
    CodeBICGesCab[2.1.1901] != ?
    NumeroNationalEmetteurGesCab[2.1.1901] != ?
    JourCompensationGesCab[2.1.1901] != ?
    NumeroRemiseClientGesCab[2.1.1901] != ?
    NatureCodeIdentifiantGesCab[2.1.1901] != ?
    NumeroIdentifiantGesCab[2.1.1901] != ?
    CodeBanqueGesCab[2.1.1901] != ?
    CodeGuichetGesCab[2.1.1901] != ?
    NumeroCompteGesCab[2.1.1901] != ?
    CleRIBGesCab[2.1.1901] != ?
    CleIBANGesCab[2.1.1901] != ?
    IBANGesCab[2.1.1901] != ?
    abIBANEtrangerGesCab[2.1.1901] != ?
    CodeDeviseISOGesCab[2.1.1901] != ?
    CodeBICGesCab[2.1.1901] != ?
    NumeroNationalEmetteurGesCab[2.1.1901] != ?
    JourCompensationGesCab[2.1.1901] != ?
    NumeroRemiseClientGesCab[2.1.1901] != ?
    NatureCodeIdentifiantGesCab[2.1.1901] != ?
    NumeroIdentifiantGesCab[2.1.1901] != ?
    CodeBanqueDossier[2.1.1901] != ?
    CodeGuichetDossier[2.1.1901] != ?
    NumeroCompteDossier[2.1.1901] != ?
    CleRIBDossier[2.1.1901] != ?
    CleIBANPaye[2.1.1901] != ?
    IBANPaye[2.1.1901] != ?
    abIBANEtrangerPaye[2.1.1901] != ?
    CodeDeviseISOPaye[2.1.1901] != ?
    CodeBICPaye[2.1.1901] != ?
    EmetteurVirement[2.1.1901] != ?
    JourCompensation[2.1.1901] != ?
    NumRemiseClient[2.1.1901] != ?
    CodeIdentifiant[2.1.1901] != ?
    NumeroIdentifiant[2.1.1901] != ?
    CodeBanqueDossier[2.1.1901] != ?
    CodeGuichetDossier[2.1.1901] != ?
    NumeroCompteDossier[2.1.1901] != ?
    CleRIBDossier[2.1.1901] != ?
    CleIBANPaye[2.1.1901] != ?
    IBANPaye[2.1.1901] != ?
    abIBANEtrangerPaye[2.1.1901] != ?
    CodeDeviseISOPaye[2.1.1901] != ?
    CodeBICPaye[2.1.1901] != ?
    EmetteurVirement[2.1.1901] != ?
    JourCompensation[2.1.1901] != ?
    NumRemiseClient[2.1.1901] != ?
    CodeIdentifiant[2.1.1901] != ?
    NumeroIdentifiant[2.1.1901] != ?
    TLR1_etab := ?
    TLR1_guichet:= ?
    TLR1_compte:= ?
    TLR1_cle:= ?
    TLR1_CleIBAN:= ?
    TLR1_IBAN:= ?
    TLR1_CodeBIC:= ?
    TLR2_etab:= ?
    TLR2_guichet:= ?
    TLR2_compte:= ?
    TLR2_cle:= ?
    TLR2_CleIBAN:= ?
    TLR2_IBAN:= ?
    TLR2_CodeBIC:= ?
    TLR3_etab:= ?
    TLR3_guichet:= ?
    TLR3_compte:= ?
    TLR3_cle:= ?
    TLR3_CleIBAN:= ?
    TLR3_IBAN:= ?
    TLR3_CodeBIC:= ?
    URScodeEtab:= ?
    URScodeGuichet:= ?
    URSnumCompte:= ?
    URScle:= ?
    URSCleIBAN:= ?
    URSIBAN:= ?
    URStitulaireCompte:= ?
    URSCodeBIC:= ?
    URScodeEtab:= ?
    URScodeGuichet:= ?
    URSnumCompte:= ?
    URScle:= ?
    URSCleIBAN:= ?
    URSIBAN:= ?
    URStitulaireCompte:= ?
    URSCodeBIC:= ?
    ASScodeEtab:= ?
    ASScodeGuichet:= ?
    ASSnumCompte:= ?
    ASScle:= ?
    ASSCleIBAN:= ?
    ASSIBAN:= ?
    ASStitulaireCompte:= ?
    ASSCodeBIC:= ?
    ASScodeEtab:= ?
    ASScodeGuichet:= ?
    ASSnumCompte:= ?
    ASScle:= ?
    ASSCleIBAN:= ?
    ASSIBAN:= ?
    ASStitulaireCompte:= ?
    ASSCodeBIC:= ?
    QualiteRepresentantLegal[2.1.1901] != ?
    RegimeMatrChefEntr[2.1.1901] != ?
    StatutConjoint[2.1.1901] != ?
    Enfants[2.1.1901] != ?
    
    ---Attributs Dossier/Associé vers Personne
    ---AGA
    NomAGA[2.1.1901] != ?
    AdresAGA1[2.1.1901] != ?
    AdresAGA2[2.1.1901] != ?
    CPAGA[2.1.1901] != ?
    VilleAGA[2.1.1901] != ?
    siretAGA[2.1.1901] != ?
    TelAGA[2.1.1901] != ?
    FaxAGA[2.1.1901] != ?
    NumAgremAGA[2.1.1901] != ?
    
    --ALLOCFAMMITRAVAILINDE
    OrgAlloc[2.1.1901] != ?
    AdrAlloc[2.1.1901] != ?
    TelAlloc[2.1.1901] != ?
    
    ---AUTRE CAISSE CHOMAGE
    AdrAutCaisChom[2.1.1901] != ?
    TelAutCaisChom[2.1.1901] != ?
    
    ---AVOCAT
    AdrAvocat[2.1.1901] != ?
    TelAvocat[2.1.1901] != ?
    FaxAvocat[2.1.1901] != ?
    
    ---BANQUE1
    AdrBanque1[2.1.1901] != ?
    TelBanque1[2.1.1901] != ?
    FaxBanque1[2.1.1901] != ?
    
    ---BANQUE2
    AdrBanque2[2.1.1901] != ?
    TelBanque2[2.1.1901] != ?
    FaxBanque2[2.1.1901] != ?
    
    ---BANQUE DOSSIER
    AdresseBanqueDossier[2.1.1901] != ?
    NomBanqueDossier[2.1.1901] != ?
    
    ---BANQUE GESTION CABINET
    AdresseBanqueGesCab[2.1.1901] != ?
    NomBanqueGesCab[2.1.1901] != ?
    
    ---BANQUE TLR1
    TLR1_libelle:= ?
    
    ---BANQUE TLR2
    TLR2_libelle:= ?
    
    ---BANQUE TLR3
    TLR3_libelle:= ?
    
    ---BANQUE URSSAF DUCS EDI
    
    ---COMMISSAIRE AUX COMPTES
    NomCacTitre[2.1.1901] != ?
    TypeCacTitre[2.1.1901] != ?
    PrenomCacTitre[2.1.1901] != ?
    NomSeulCacTitre[2.1.1901] != ?
    Adr1CacTitre[2.1.1901] != ?
    Adr2CacTitre[2.1.1901] != ?
    CPCacTitre[2.1.1901] != ?
    VilleCacTitre[2.1.1901] != ?
    TelCacTitre[2.1.1901] != ?
    FormJurCacTitre[2.1.1901] != ?
    FaxCacTitre[2.1.1901] != ?
    CiviliteCacTitre[2.1.1901] != ?
    
    ---COMMISSAIRE AUX COMTPES SUPPLEANT
    NomCacSup[2.1.1901] != ?
    TypeCACSup[2.1.1901] != ?
    PrenomCacSup[2.1.1901] != ?
    NomSeulCacSup[2.1.1901] != ?
    Adr1CacSup[2.1.1901] != ?
    Adr2CacSup[2.1.1901] != ?
    CPCacSup[2.1.1901] != ?
    VilleCacSup[2.1.1901] != ?
    TelCacSup[2.1.1901] != ?
    FormJurCACSup[2.1.1901] != ?
    FaxCacSup[2.1.1901] != ?
    CiviliteCACSup[2.1.1901] != ?
    
    ---CENTRE IMPOTS
    AdrCdi1[2.1.1901] != ?
    AdrCdi2[2.1.1901] != ?
    CPCdi[2.1.1901] != ?
    VilleCdi[2.1.1901] != ?
    TelCdi[2.1.1901] != ?
    FaxCdi[2.1.1901] != ?
    
    ---CGA
    NomDuCentre[2.1.1901] != ?
    AdrC1[2.1.1901] != ?
    AdrC2[2.1.1901] != ?
    CPCGA[2.1.1901] != ?
    VilleCGA[2.1.1901] != ?
    siretCGA[2.1.1901] != ?
    TelCGA[2.1.1901] != ?
    FaxCGA[2.1.1901] != ?
    NCentre[2.1.1901] != ?
    
    ---CHEF ENTREPRISE
    NomChefEntr[2.1.1901] != ?
    PrenomChefEntr[2.1.1901] != ?
    dateNaissanceChefEntreprise[2.1.1901] != ?
    
    ---DIRECTION DEPART DU TRAVAIL
    DirDepTrav[2.1.1901] != ?
    TelDirDepTrav[2.1.1901] != ?
    
    ---DOSSIER
    RaisonSociale[2.1.1901] != ?
    nomDossier:= ?
    Siren[2.1.1901] != ?
    Siret[2.1.1901] != ?
    Ape[2.1.1901] != ?
    ancApe[2.1.1901] != ?
    Activite[2.1.1901] != ?
    Adresse1[2.1.1901] != ?
    Adresse2[2.1.1901] != ?
    Adresse3[2.1.1901] != ?
    CodePostal[2.1.1901] != ?
    Ville[2.1.1901] != ?
    Telephone[2.1.1901] != ?
    TelephonePortable:= ?
    Fax[2.1.1901] != ?
    Email:= ?
    codePaysISO:= ?
    formeJuridique[2.1.1901] != ?
    Telephone2 [2.1.1901] != ?
    
    ---ETABLISSEMENT
    etablissement	::=	?
    POUR TOUT etablissement FAIRE
    	etablissement.RaisonSociale[2.1.1901] != ?
    	etablissement.nomEtablissement:= ?
    	etablissement.Siren[2.1.1901] != ?
    	etablissement.Siret[2.1.1901] != ?
    	etablissement.Ape[2.1.1901] != ?
    	etablissement.ancApe[2.1.1901] != ?
    	etablissement.Activite[2.1.1901] != ?
    	etablissement.Adresse1[2.1.1901] != ?
    	etablissement.Adresse2[2.1.1901] != ?
    	etablissement.Adresse3[2.1.1901] != ?
    	etablissement.CodePostal[2.1.1901] != ?
    	etablissement.Ville[2.1.1901] != ?
    	etablissement.Telephone[2.1.1901] != ?
    	etablissement.TelephonePortable:= ?
    	etablissement.Fax[2.1.1901] != ?
    	etablissement.Email:= ?
    	etablissement.codePaysISO:= ?
    	--etablissement.formeJuridique:= ?
    	etablissement.Telephone2[2.1.1901] != ?
    FIN FAIRE
    
    ---GREFFE
    Greffe2[2.1.1901] != ?
    Adr1Greffe[2.1.1901] != ?
    Adr2Greffe[2.1.1901] != ?
    CPGreffe[2.1.1901] != ?
    VilleGreffe[2.1.1901] != ?
    
    ---INSPECTION DU TRAVAIL
    InspTrav[2.1.1901] != ?
    AdrInsp[2.1.1901] != ?
    TelInspTrav[2.1.1901] != ?
    
    ---INTERLOCUTEURS
    ResponsableEntreprise[2.1.1901] != ?
    mm[2.1.1901] != ?
    ResponsableDossier[2.1.1901] != ?
    ServiceDuPersonnel[2.1.1901] != ?
    ChefDeService[2.1.1901] != ?
    RepresentantLegal[2.1.1901] != ?
    RespInformatique[2.1.1901] != ?
    RespPaye[2.1.1901] != ?
    AutresInterlocuteurs[2.1.1901] != ?
    
    ---JURIDIQUE EXTERNE
    AdrJuridiqueExterne[2.1.1901] != ?
    TelJuridiqueExterne[2.1.1901] != ?
    CodePostalJuridiqueExterne[2.1.1901] != ?
    VilleJuridiqueExterne[2.1.1901] != ?
    NomJuridiqueExterne[2.1.1901] != ?
    FaxJuridiqueExterne[2.1.1901] != ?
    
    ---MALADIE TRAVAILLEUR INDEPENDANT
    OrgMal[2.1.1901] != ?
    AdrMal[2.1.1901] != ?
    TelMal[2.1.1901] != ?
    
    ---NOTAIRE
    AdrNotaires[2.1.1901] != ?
    TelNotaires[2.1.1901] != ?
    FaxNotaires[2.1.1901] != ?
    
    ---OFFICE NATIONAL IMMIGRATION
    OffNatImm[2.1.1901] != ?
    TelOffNatImm[2.1.1901] != ?
    
    ---RECETTE IMPOTS
    AdrRec1[2.1.1901] != ?
    AdrRec2[2.1.1901] != ?
    AdrRec3[2.1.1901] != ?
    CPRec[2.1.1901] != ?
    FaxRec[2.1.1901] != ?
    Insp[2.1.1901] != ?
    NumCDI[2.1.1901] != ?
    NumRecette[2.1.1901] != ?
    TelRec[2.1.1901] != ?
    VilleRec[2.1.1901] != ?
    
    
    ---RETRAITE TRAVAILLEUR INDEPENDANT
    OrgRet[2.1.1901] != ?
    AdrRet[2.1.1901] != ?
    TelRet[2.1.1901] != ?
    
    ---SERVICE TIERS DECLARANT
    adrCda[2.1.1901] != ?
    telCda[2.1.1901] != ?
    cpCda[2.1.1901] != ?
    villeCda[2.1.1901] != ?
    
    ---SOCIETE INTEGRANTE
    NomSteIntegrte[2.1.1901] != ?
    AdresSteIntgrte[2.1.1901] != ?
    SiretIntgrte[2.1.1901] != ?
    
    POUR TOUT associe FAIRE
    	supprimer {associe}
    FIN FAIRE
###
'get_ServiceDuPersonnel' 'Toutes fonctions'
    --Création : 11/07/2012 15:37:39 llg-PO36696; Modification : 02/05/2013 16:21:58 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	?
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Service du personnel' ALORS
    			pers	:=	element.personne
    			SI pers <> ? ALORS
    				SI first ALORS
    					tmpCh	:=	pers.fullName
    					first	:=	FAUX
    				FIN SI	
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    SINON
    	SORTIR dossier.{'ServiceDuPersonnel'}chaine
    FIN SI
###
'get_ChefDeService' 'Toutes fonctions'
    --Création : 11/07/2012 15:37:39 llg-PO36696; Modification : 02/05/2013 16:21:58 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	?
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Chef de service' ALORS
    			pers	:=	element.personne
    			SI pers <> ? ALORS
    				SI first ALORS
    					tmpCh	:=	pers.fullName
    					first	:=	FAUX
    				FIN SI	
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    SINON
    	SORTIR dossier.{'ChefDeService'}chaine
    FIN SI
###
'get_RepresentantLegal' 'Toutes fonctions'
    --Création : 11/07/2012 15:37:39 llg-PO36696; Modification : 02/05/2013 16:21:58 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	?
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Représentant légal' ALORS
    			pers	:=	element.personne
    			SI pers <> ? ALORS
    				SI first ALORS
    					tmpCh	:=	pers.fullName
    					first	:=	FAUX
    				FIN SI	
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    SINON
    	SORTIR dossier.{'RepresentantLegal'}chaine
    FIN SI
###
'get_RespInformatique' 'Toutes fonctions'
    --Création : 11/07/2012 15:37:39 llg-PO36696; Modification : 02/05/2013 16:21:59 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	?
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Responsable informatique' ALORS
    			pers	:=	element.personne
    			SI pers <> ? ALORS
    				SI first ALORS
    					tmpCh	:=	pers.fullName
    					first	:=	FAUX
    				FIN SI	
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    SINON
    	SORTIR dossier.{'RespInformatique'}chaine
    FIN SI
###
'get_RespPaye' 'Toutes fonctions'
    --Création : 11/07/2012 15:37:39 llg-PO36696; Modification : 02/05/2013 16:21:59 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	?
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Responsable paye' ALORS
    			pers	:=	element.personne
    			SI pers <> ? ALORS
    				SI first ALORS
    					tmpCh	:=	pers.fullName
    					first	:=	FAUX
    				FIN SI	
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    SINON
    	SORTIR dossier.{'RespPaye'}chaine
    FIN SI
###
'get_ResponsableDossier' 'Toutes fonctions'
    --Création : 11/07/2012 15:37:39 llg-PO36696; Modification : 02/05/2013 16:21:59 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	?
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Responsable dossier' ALORS
    			pers	:=	element.personne
    			SI pers <> ? ALORS
    				SI first ALORS
    					tmpCh	:=	pers.fullName
    					first	:=	FAUX
    				FIN SI	
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    SINON
    	SORTIR dossier.{'ResponsableDossier'}chaine
    FIN SI
###
'get_mm' 'Toutes fonctions'
    --Création : 11/07/2012 15:37:27 llg-PO36696; Modification : 02/05/2013 16:21:59 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	?
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Responsable entreprise' ALORS
    			pers	:=	element.personne
    			SI pers <> ? ALORS
    				SI first ALORS
    					tmpCh	:=	pers.civilite
    					first	:=	FAUX
    				FIN SI	
    			FIN SI
    		FIN SI
    	FIN FAIRE
    	SI tmpCh = 'M' ALORS tmpCh	:=	'Monsieur' FIN SI
    	SI tmpCh = 'Mme' ALORS tmpCh	:=	'Madame' FIN SI
    	SI tmpCh = 'Melle' ALORS tmpCh	:=	'Mademoiselle' FIN SI
    	SORTIR tmpCh
    SINON
    	SORTIR dossier.{'mm'}chaine
    FIN SI
###
'get_ResponsableEntreprise' 'Toutes fonctions'
    --Création : 11/07/2012 15:37:27 llg-PO36696; Modification : 02/05/2013 16:21:59 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	?
    first	:=	VRAI
    
    SI contactExportes ALORS
    debug{'get_ResponsableEntreprise'}
    	pers	::=	'Personne'
    
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Responsable entreprise' ALORS
    			pers	:=	element.personne
    			SI pers <> ? ALORS
    				SI first ALORS
    					tmpCh	:=	pers.fullName
    					first	:=	FAUX
    				FIN SI	
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    SINON
    	SORTIR dossier.{'ResponsableEntreprise'}chaine
    FIN SI
###
'GetListeEtats' 'Toutes fonctions'
    --Création : 28/07/2011 10:36:00 gpa-PC016495; Modification : 02/05/2013 16:21:59 llg-PO36696;  
    |reponse<Objet> lstEtat <Liste>etatDoss<Objet>|
    
    etatDoss ::= 'EtatDossier'
    lstEtat := creerListe {}
    POUR TOUT element<EtatDossier> DE etats FAIRE
    	etatDoss := element
    	etatDoss.nomEtat := substituerCaracteres{classe{element}, '_', ' '}
    	ajouterElement{lstEtat,json{etatDoss, 'VariablesTNR'}}
    FINFAIRE
    
    reponse ::= 'ReponseHTTP'
    reponse := creer{'ReponseHTTP'}
    reponse.OK200Json{json{lstEtat}}
    SORTIR reponse
###
'POST' 'Toutes fonctions'
{req <Objet>}
    --Création : 26/09/2011 11:07:05 gpa-PC016495; Modification : 02/05/2013 16:21:59 llg-PO36696; 
    
    | 
    	requete<Objet> reponse<Objet> uri<Chaine> corps<Chaine>
    	serveurOle <Objet>
    |
    
    requete ::= 'RequeteHTTP'
    reponse ::= 'ReponseHTTP'
    requete := req
    uri := requete.url
    corps := requete.contenu
    
    debug{'POST Dossier : '+requete.url}
    
    serveurOle ::= 'ServeurOLE'
    paye2	::=	''
    compta	::=	''
    
    SI uri#'/ole' ALORS
    	serveurOle := creer{'ServeurOLE'}
    	SI serveurOle <> ? ALORS
    	 	SORTIR serveurOle.POST{chaine{uri,taille{'/ole'}+1, taille{uri}}, corps}
    	FIN SI
    FIN SI
    
    SI uri#'/paye' ALORS
    	SI paye2 <> ? ALORS
    		requete.url := chaine{uri,taille{'/paye'}+1, taille{uri}}
    	 	SORTIR paye2.POST{requete}
    	FIN SI
    FIN SI
    
    SI uri#'/compta' ALORS
    	SI compta <> ? ALORS
    		requete.url := chaine{uri,taille{'/compta'}+1, taille{uri}}
    	 	SORTIR compta.POST{requete}
    	FIN SI
    FIN SI
    SI uri # '/$ExporterContacts' ALORS
    	ExportNouveauxContacts{}
    	reponse := creer{'ReponseHTTP'}
    	reponse.OK200Html{'OK'}
    	commit{}
    	SORTIR reponse	
    FIN SI
    
    reponse := creer{'ReponseHTTP'}
    reponse.NotFound404{}
    
    SORTIR reponse
###
'garbageCollectContacts' 'Toutes fonctions'
    gestionnaireDeContacts ::= ''
	gestionnaireDeContacts.NettoyerLesContacts{}
###
'estSitePrimaire' 'Toutes fonctions'
    --Création : 17/10/2011 11:51:29 llg-PO15890; Modification : 02/05/2013 16:21:59 llg-PO36696; 
    |
    sFicIni<Chaine> sNomSite<Chaine> sNomSitePrimaire<Chaine>
    |
    
    sFicIni			:=	racine{} + '\local\bin\coala.ini'
    sNomSite		:=	lireini{sFicIni , 'Reseau' , 'NOMSITE'}
    sNomSitePrimaire	:=	lireini{sFicIni , 'Reseau' , 'SITEPRIMAIRE'}
    sNomSitePrimaire	:=	lire{flotLecture{sNomSitePrimaire} , ':'}
    
    SORTIR (sNomSite = sNomSitePrimaire)
###
'ajouterAssocieSansContact' 'Toutes fonctions'
    --Création : 17/10/2011 09:17:11 llg-PO15890; Modification : 02/05/2013 16:21:59 llg-PO36696; 
    associe +:= 'nouveau'
    SORTIR associe
###
'RofEDIPAIEMENT_IS_MODIF' 'Toutes fonctions'
    --Création : 30/03/2010 11:48:16 scr-PC15753; Modification : 02/05/2013 16:22:00 llg-PO36696; 
    
    |
    	mauvaiseROF<Booléen>
    	partie1<Chaine> partie1Bis<Chaine>
    	maTailleMax<Entier> maTailleMaxBis<Entier>
    |
    
    mauvaiseROF	:=	FAUX
    
    SI RofEDIPAIEMENT_IS = ? ALORS
    	SORTIR VRAI
    FIN SI
    
    partie1	:=	'IS'
    maTailleMax	:=	5
    partie1Bis	:=	'ISGROUPE'
    maTailleMaxBis	:=	11
    
    SI NON valider{RofEDIPAIEMENT_IS, '^IS([1-9][0-9]?|1[0-9][0-9])$'} ET NON valider{RofEDIPAIEMENT_IS, '^ISGROUPE([1-9][0-9]?|1[0-9][0-9])$'} ALORS
    	mauvaiseROF	:=	VRAI
    FIN SI
    
    /*
SI NON (RofEDIPAIEMENT_IS # ''+partie1 OU RofEDIPAIEMENT_IS # ''+partie1Bis) ALORS
	mauvaiseROF	:=	VRAI
FIN SI

SI taille{RofEDIPAIEMENT_IS } > maTailleMax ALORS
	mauvaiseROF	:=	VRAI
FIN SI

SI taille{RofEDIPAIEMENT_IS } <= (maTailleMax-3) ALORS
	mauvaiseROF	:=	VRAI
FIN SI

SI taille{entier{substituerChaine{chaine{RofEDIPAIEMENT_IS , taille{partie1}+1, taille{RofEDIPAIEMENT_IS }}, '-', ''}}} <> taille{chaine{RofEDIPAIEMENT_IS , taille{partie1}+1, taille{RofEDIPAIEMENT_IS }}} ALORS
	mauvaiseROF	:=	VRAI
FIN SI
*/
    SI mauvaiseROF ALORS	
    	SI NON ouiNon{'Attention : la ROF doit être IS ou ISGROUPE + 1 à 3 numériques.
Validez-vous quand même votre saisie ?'} ALORS SORTIR FAUX FIN SI
    FIN SI
    
    SORTIR VRAI
###
'RofEDIPAIEMENT_RCM_MODIF' 'Toutes fonctions'
    --Création : 30/03/2010 11:48:16 scr-PC15753; Modification : 02/10/2013 10:04:40 gqu-PC101402; 
    
    |
    	mauvaiseROF<Booléen>
    	partie1<Chaine> maTailleMax<Entier>
    |
    
    mauvaiseROF	:=	FAUX
    
    SI RofEDIPAIEMENT_RCM = ? ALORS
    	SORTIR VRAI
    FIN SI
    
    SI NON valider{RofEDIPAIEMENT_RCM, '^RCM([1-9][0-9]?|1[0-9][0-9])$'} ALORS
    	mauvaiseROF	:=	VRAI
    FIN SI
    
    SI mauvaiseROF ALORS	
    	SI NON ouiNon{'Attention : la ROF doit être RCM + 1 à 3 numériques.
Validez-vous quand même votre saisie ?'} ALORS SORTIR FAUX FIN SI
    FIN SI
    
    SORTIR VRAI
###
'RofEDIPAIEMENT_TS_MODIF' 'Toutes fonctions'
    --Création : 30/03/2010 11:48:16 scr-PC15753; Modification : 02/05/2013 16:22:00 llg-PO36696; 
    
    |
    	mauvaiseROF<Booléen>
    	partie1<Chaine> maTailleMax<Entier>
    |
    
    mauvaiseROF	:=	FAUX
    
    SI RofEDIPAIEMENT_TS = ? ALORS
    	SORTIR VRAI
    FIN SI
    
    SI NON valider{RofEDIPAIEMENT_TS, '^TS([1-9][0-9]?|1[0-9][0-9])$'} ALORS
    	mauvaiseROF	:=	VRAI
    FIN SI
    
    /*
partie1	:=	'TS'
maTailleMax	:=	5

SI NON (RofEDIPAIEMENT_TS # ''+partie1) ALORS
	mauvaiseROF	:=	VRAI
FIN SI

SI taille{RofEDIPAIEMENT_TS } > maTailleMax ALORS
	mauvaiseROF	:=	VRAI
FIN SI

SI taille{RofEDIPAIEMENT_TS } <= (maTailleMax-3) ALORS
	mauvaiseROF	:=	VRAI
FIN SI

SI taille{entier{substituerChaine{chaine{RofEDIPAIEMENT_TS , taille{partie1}+1, taille{RofEDIPAIEMENT_TS }}, '-', ''}}} <> taille{chaine{RofEDIPAIEMENT_TS , taille{partie1}+1, taille{RofEDIPAIEMENT_TS }}} ALORS
	mauvaiseROF	:=	VRAI
FIN SI
*/
    SI mauvaiseROF ALORS	
    	SI NON ouiNon{'Attention : la ROF doit être TS + 1 à 3 numériques.
Validez-vous quand même votre saisie ?'} ALORS SORTIR FAUX FIN SI
    FIN SI
    
    SORTIR VRAI
###
'RofEDITDFC_CVAE_MODIF' 'Toutes fonctions'
    --Création : 30/03/2010 11:48:16 scr-PC15753; Modification : 21/08/2014 09:08:22 scr-PC101399; 
    
    |
    	mauvaiseROF<Booléen>
    	partie1<Chaine> maTailleMax<Entier>
    |
    
    mauvaiseROF	:=	FAUX
    
    SI RofEDITDFC_CVAE = ? ALORS
    	SORTIR VRAI
    FIN SI
    
    SI NON valider{RofEDITDFC_CVAE, '^CVAE([1-9][0-9]?|1[0-9][0-9])$'} ALORS
    	mauvaiseROF	:=	VRAI
    FIN SI
    /*
partie1	:=	'CVAE'
maTailleMax	:=	7

SI NON (RofEDIPAIEMENT_CVA # ''+partie1) ALORS
	mauvaiseROF	:=	VRAI
FIN SI

SI taille{RofEDIPAIEMENT_CVA } > maTailleMax ALORS
	mauvaiseROF	:=	VRAI
FIN SI

SI taille{RofEDIPAIEMENT_CVA } <= (maTailleMax-3) ALORS
	mauvaiseROF	:=	VRAI
FIN SI

SI taille{entier{chaine{RofEDIPAIEMENT_CVA , taille{partie1}+1, taille{RofEDIPAIEMENT_CVA }}}} <> taille{chaine{RofEDIPAIEMENT_CVA , taille{partie1}+1, taille{RofEDIPAIEMENT_CVA }}} ALORS
	mauvaiseROF	:=	VRAI
FIN SI
*/
    SI mauvaiseROF ALORS	
    	SI NON ouiNon{'Attention : la ROF doit être CVAE + 1 à 3 numériques.
Validez-vous quand même votre saisie ?'} ALORS SORTIR FAUX FIN SI
    FIN SI
    
    SORTIR VRAI
###
'RofEDIPAIEMENT_CVA_MODIF' 'Toutes fonctions'
    --Création : 30/03/2010 11:48:16 scr-PC15753; Modification : 02/05/2013 16:22:00 llg-PO36696; 
    
    |
    	mauvaiseROF<Booléen>
    	partie1<Chaine> maTailleMax<Entier>
    |
    
    mauvaiseROF	:=	FAUX
    
    SI RofEDIPAIEMENT_CVA = ? ALORS
    	SORTIR VRAI
    FIN SI
    
    SI NON valider{RofEDIPAIEMENT_CVA, '^CVAE([1-9][0-9]?|1[0-9][0-9])$'} ALORS
    	mauvaiseROF	:=	VRAI
    FIN SI
    /*
partie1	:=	'CVAE'
maTailleMax	:=	7

SI NON (RofEDIPAIEMENT_CVA # ''+partie1) ALORS
	mauvaiseROF	:=	VRAI
FIN SI

SI taille{RofEDIPAIEMENT_CVA } > maTailleMax ALORS
	mauvaiseROF	:=	VRAI
FIN SI

SI taille{RofEDIPAIEMENT_CVA } <= (maTailleMax-3) ALORS
	mauvaiseROF	:=	VRAI
FIN SI

SI taille{entier{chaine{RofEDIPAIEMENT_CVA , taille{partie1}+1, taille{RofEDIPAIEMENT_CVA }}}} <> taille{chaine{RofEDIPAIEMENT_CVA , taille{partie1}+1, taille{RofEDIPAIEMENT_CVA }}} ALORS
	mauvaiseROF	:=	VRAI
FIN SI
*/
    SI mauvaiseROF ALORS	
    	SI NON ouiNon{'Attention : la ROF doit être CVAE + 1 à 3 numériques.
Validez-vous quand même votre saisie ?'} ALORS SORTIR FAUX FIN SI
    FIN SI
    
    SORTIR VRAI
###
'REINTEGRATIONWEB' 'Toutes fonctions'
    --Création : 02/12/2011 12:17:04 ylv-PC15749; Modification : 02/05/2013 16:22:00 llg-PO36696; 
    
    notifierModificationGI2AvecFichier{etat.CodeDossier}
###
'REINTEGRATION' 'Toutes fonctions'
    --Création : 02/12/2011 12:17:04 ylv-PC15749; Modification : 02/05/2013 16:22:00 llg-PO36696; 
    
    notifierModificationGI2AvecFichier{etat.CodeDossier}
###
'EXTRACTIONWEB' 'Toutes fonctions'
    --Création : 02/12/2011 12:16:56 ylv-PC15749; Modification : 02/12/2011 12:16:56 ylv-PC15749;
###
'EXTRACTION' 'Toutes fonctions'
    --Création : 02/12/2011 12:16:49 ylv-PC15749; Modification : 02/12/2011 12:16:49 ylv-PC15749;
###
'nomDossier_GRIS' 'Toutes fonctions'
    --Création : 10/01/2012 14:32:46 llg-PO36696; Modification : 02/05/2013 16:22:00 llg-PO36696; 
    SI contactExportes ALORS
    	SORTIR VRAI
    SINON
    	SORTIR griserForContactsSociaux{}
    FIN SI
###
'contacts_soc_DOUBLECLICK' 'Toutes fonctions'
{lstLignes <Objet>}
    --Création : 28/03/2012 17:17:52 llg-PO36696; Modification : 02/05/2013 16:22:00 llg-PO36696; 
    
    
    
    
    
    --1/ Recuperer l'Id de la personne
    --2/ Ouvrir une boite de dialogue en lecture seule pour afficher le contact
    
    |
    	pers<Objet>
    |
    
    pers	::=	'Personne'
    SI nbElements{lstLignes} = 1 ALORS
    	pers	:=	lstLignes.[1]
    	pers.VoirDetail{}
    FIN SI
###
'contacts_jur_DOUBLECLICK' 'Toutes fonctions'
{lstLignes <Objet>}
    --Création : 28/03/2012 17:17:52 llg-PO36696; Modification : 02/05/2013 16:22:00 llg-PO36696; 
    
    
    
    
    
    --1/ Recuperer l'Id de la personne
    --2/ Ouvrir une boite de dialogue en lecture seule pour afficher le contact
    
    |
    	pers<Objet>
    |
    
    pers	::=	'Personne'
    SI nbElements{lstLignes} = 1 ALORS
    	pers	:=	lstLignes.[1]
    	pers.VoirDetail{}
    FIN SI
###
'contacts_fisc_DOUBLECLICK' 'Toutes fonctions'
{lstLignes <Objet>}
    --Création : 28/03/2012 17:17:52 llg-PO36696; Modification : 02/05/2013 16:22:00 llg-PO36696; 
    
    
    
    
    
    --1/ Recuperer l'Id de la personne
    --2/ Ouvrir une boite de dialogue en lecture seule pour afficher le contact
    
    |
    	pers<Objet>
    |
    
    pers	::=	'Personne'
    SI nbElements{lstLignes} = 1 ALORS
    	pers	:=	lstLignes.[1]
    	pers.VoirDetail{}
    FIN SI
###
'get_ancApe' 'Toutes fonctions'
    --Création : 24/05/2011 14:46:39 llg-PO15890; Modification : 29/04/2015 14:46:03 llg2-PC100391; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    |
    
    tmpCh	:=	?
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Dossier' ALORS
    			pers	:=	element.personne
    			SI pers <> ? ALORS
    				SORTIR pers.ancApe
    			FIN SI
    		FIN SI
    	FIN FAIRE
    SINON
    	SORTIR dossier.{'ancApe'}chaine
    FIN SI
    
    SORTIR tmpCh
###
'get_Ape' 'Toutes fonctions'
    --Création : 24/05/2011 14:46:39 llg-PO15890; Modification : 29/04/2015 14:46:03 llg2-PC100391; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    |
    
    tmpCh	:=	?
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Dossier' ALORS
    			pers	:=	element.personne
    			SI pers <> ? ALORS
    				SORTIR pers.Ape
    			FIN SI
    		FIN SI
    	FIN FAIRE
    SINON
    	SORTIR dossier.{'Ape'}chaine
    FIN SI
    
    SORTIR tmpCh
###
'get_NationaliteDossier' 'Toutes fonctions'
    --Création : 02/05/2012 10:54:14 llg-PO36696; Modification : 02/05/2013 16:22:00 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    |
    
    tmpCh	:=	?
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Dossier' ALORS
    			SORTIR element.NationaliteDossier
    		FIN SI
    	FIN FAIRE
    SINON
    	SORTIR dossier.{'NationaliteDossier'}chaine
    FIN SI
    
    SORTIR tmpCh
###
'get_DateDeCreation' 'Toutes fonctions'
    --Création : 02/05/2012 10:54:14 llg-PO36696; Modification : 02/05/2013 16:22:00 llg-PO36696; 
    |
    	pers<Objet>dte<Date>
    |
    
    dte	:=	?
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Dossier' ALORS
    			SORTIR element.DateDeCreation
    		FIN SI
    	FIN FAIRE
    SINON
    	SORTIR dossier.{'DateDeCreation'}date
    FIN SI
    
    SORTIR dte
###
'get_numEtudeNotariale' 'Toutes fonctions'
    --Création : 02/05/2012 10:54:14 llg-PO36696; Modification : 02/05/2013 16:22:00 llg-PO36696; 
    |
    	tmpCh<Chaine>
    |
    
    tmpCh	:=	?
    
    SI contactExportes ALORS
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Dossier' ALORS
    			SORTIR element.numEtudeNotariale
    		FIN SI
    	FIN FAIRE
    SINON
    	SORTIR dossier.{'numEtudeNotariale'}chaine
    FIN SI
    
    SORTIR tmpCh
###
'get_Greffe' 'Toutes fonctions'
    --Création : 02/05/2012 10:54:14 llg-PO36696; Modification : 02/05/2013 16:22:00 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    |
    
    tmpCh	:=	?
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Dossier' ALORS
    			SORTIR element.Greffe
    		FIN SI
    	FIN FAIRE
    SINON
    	SORTIR dossier.{'Greffe'}chaine
    FIN SI
    
    SORTIR tmpCh
###
'get_NumeroRCS' 'Toutes fonctions'
    --Création : 02/05/2012 10:54:14 llg-PO36696; Modification : 02/05/2013 16:22:00 llg-PO36696; 
    |
    	tmpCh<Chaine>
    |
    
    tmpCh	:=	?
    
    SI contactExportes ALORS
    
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Dossier' ALORS
    			SORTIR element.NumeroRCS
    		FIN SI
    	FIN FAIRE
    SINON
    	SORTIR dossier.{'NumeroRCS'}chaine
    FIN SI
    
    SORTIR tmpCh
###
'get_NumeroRCM' 'Toutes fonctions'
    --Création : 02/05/2012 10:54:14 llg-PO36696; Modification : 02/05/2013 16:22:00 llg-PO36696; 
    |
    	tmpCh<Chaine>
    |
    
    tmpCh	:=	?
    
    SI contactExportes ALORS
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Dossier' ALORS
    			SORTIR element.NumeroRCM
    		FIN SI
    	FIN FAIRE
    SINON
    	SORTIR dossier.{'NumeroRCM'}chaine
    FIN SI
    
    SORTIR tmpCh
###
'get_HorairesOuverture' 'Toutes fonctions'
    --Création : 02/05/2012 10:54:14 llg-PO36696; Modification : 02/05/2013 16:22:00 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    |
    
    tmpCh	:=	?
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Dossier' ALORS
    			SORTIR element.HorairesOuverture
    		FIN SI
    	FIN FAIRE
    SINON
    	SORTIR dossier.{'HorairesOuverture'}chaine
    FIN SI
    
    SORTIR tmpCh
###
'get_LocationGerance' 'Toutes fonctions'
    --Création : 02/05/2012 10:54:14 llg-PO36696; Modification : 02/05/2013 16:22:00 llg-PO36696; 
    |
    	pers<Objet>tmpB<Booléen>
    |
    
    tmpB	:=	?
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Dossier' ALORS
    			SORTIR element.LocationGerance
    		FIN SI
    	FIN FAIRE
    SINON
    	SORTIR dossier.{'LocationGerance'}booleen
    FIN SI
    
    SORTIR tmpB
###
'get_DateImRCS' 'Toutes fonctions'
    --Création : 02/05/2012 10:54:14 llg-PO36696; Modification : 02/05/2013 16:22:00 llg-PO36696; 
    |
    	pers<Objet>dte<Date>
    |
    dte	:=	?
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Dossier' ALORS
    			SORTIR element.DateImRCS
    		FIN SI
    	FIN FAIRE
    SINON
    	SORTIR dossier.{'DateImRCS'}date
    FIN SI
    
    SORTIR dte
###
'get_dateRedressementJudiciaire' 'Toutes fonctions'
    --Création : 02/05/2012 10:54:14 llg-PO36696; Modification : 02/05/2013 16:22:00 llg-PO36696; 
    |
    	pers<Objet>dte<Date>
    |
    
    dte	:=	?
    SI contactExportes ALORS
    	pers	::=	'Personne'
    
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Dossier' ALORS
    			SORTIR element.dateRedressementJudiciaire
    		FIN SI
    	FIN FAIRE
    SINON
    	SORTIR dossier.{'dateRedressementJudiciaire'}date
    FIN SI
    
    SORTIR dte
###
'get_dateCessationActivite' 'Toutes fonctions'
    --Création : 02/05/2012 10:54:14 llg-PO36696; Modification : 02/05/2013 16:22:00 llg-PO36696; 
    |
    	pers<Objet>dte<Date>
    |
    
    dte	:=	?
    SI contactExportes ALORS
    	pers	::=	'Personne'
    
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Dossier' ALORS
    			SORTIR element.dateCessationActivite
    		FIN SI
    	FIN FAIRE
    SINON
    	SORTIR dossier!{'dateCessationActivite'}date
    FIN SI
    
    SORTIR dte
###
'get_dateDebutActivite' 'Toutes fonctions'
    --Création : 02/05/2012 10:54:14 llg-PO36696; Modification : 02/05/2013 16:22:00 llg-PO36696; 
    |
    	pers<Objet>dte<Date>
    |
    
    dte	:=	?
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Dossier' ALORS
    			SORTIR element.dateDebutActivite
    		FIN SI
    	FIN FAIRE
    SINON
    	SORTIR dossier!{'dateDebutActivite'}date
    FIN SI
    
    SORTIR dte
###
'get_DateFin' 'Toutes fonctions'
    --Création : 02/05/2012 10:54:14 llg-PO36696; Modification : 02/05/2013 16:22:01 llg-PO36696; 
    |
    	pers<Objet>dte<Date>
    |
    dte	:=	?
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Dossier' ALORS
    			SORTIR element.DateFin
    		FIN SI
    	FIN FAIRE
    SINON
    	SORTIR dossier.{'DateFin'}date
    FIN SI
    
    SORTIR dte
###
'dateDebutActivite_GRIS' 'Toutes fonctions'
    --Création : 02/05/2012 11:16:05 llg-PO36696; Modification : 02/05/2013 16:22:01 llg-PO36696; 
    SI contactExportes ALORS
    	SORTIR VRAI
    SINON
    	SORTIR FAUX
    FIN SI
###
'dateCessationActivite_GRIS' 'Toutes fonctions'
    --Création : 02/05/2012 11:16:05 llg-PO36696; Modification : 02/05/2013 16:22:01 llg-PO36696; 
    SI contactExportes ALORS
    	SORTIR VRAI
    SINON
    	SORTIR FAUX
    FIN SI
###
'dateRedressementJudiciaire_GRIS' 'Toutes fonctions'
    --Création : 02/05/2012 11:16:05 llg-PO36696; Modification : 02/05/2013 16:22:01 llg-PO36696; 
    SI contactExportes ALORS
    	SORTIR VRAI
    SINON
    	SORTIR FAUX
    FIN SI
###
'contacts_jur_CLICKDROIT' 'Toutes fonctions'
{lstLignes <Objet>}
    --Création : 29/03/2012 09:04:43 llg-PO36696; Modification : 02/05/2013 16:22:01 llg-PO36696; 
    
    
    
    
    
    
    |
    	str<Chaine>pers<Objet>
    |
    
    str	:=	choix{'Voir le détail...'}
    SI taille{str} = 0 ALORS SORTIR FAUX FIN SI
    
    pers	::=	'Personne'
    SI nbElements{lstLignes} = 1 ALORS
    	pers	:=	lstLignes.[1]
    	pers.VoirDetail{}
    SINON
    	info{'Ce traitement ne fonctionne que pour une ligne de sélectionnée'}
    FIN SI
    
    SORTIR VRAI
###
'contacts_soc_CLICKDROIT' 'Toutes fonctions'
{lstLignes<Objet>}

	contactsSocClickDroit{lstLignes}

    SORTIR VRAI
###
'contacts_fisc_CLICKDROIT' 'Toutes fonctions'
{lstLignes <Objet>}
    
    |
    	str<Chaine>pers<Objet>
    |
    
    str	:=	choix{'Voir le détail...'}
    SI taille{str} = 0 ALORS SORTIR FAUX FIN SI
    
    pers	::=	'Personne'
    SI nbElements{lstLignes} = 1 ALORS
    	pers	:=	lstLignes.[1]
    	pers.VoirDetail{}
    SINON
    	info{'Ce traitement ne fonctionne que pour une ligne de sélectionnée'}
    FIN SI
    
    SORTIR VRAI
###
'contacts_etb_LISTE' 'Toutes fonctions'
    --Création : 09/01/2012 09:29:21 llg-PO36696; Modification : 29/04/2015 14:46:04 llg2-PC100391; 
    |
    	objTmp<Objet>pers<Objet>lst<Objet>tmpLst<Objet>i<Entier>objTmp2<Objet>
    |
    
    objTmp		::=	'Role'
    objTmp2		::=	'Personne'
    pers		::=	'Personne'
    lst			:=	creerListe{}
    
    POUR TOUT element<Role> DE lstNouveauxContacts
    FAIRE
    	objTmp			:=	element
    	pers			:=	objTmp.personne
    	pers.rolePersonne	:=	objTmp.type
    	SI pers <> ? ALORS
    		objTmp2		:=	creer{'Personne'}
    		
    		objTmp2._id		:=	pers._id
    		objTmp2.role		:=	objTmp
    
    		objTmp2.rolePersonne	:=	pers.rolePersonne
    		objTmp2.fullName	:=	pers.fullName
    		objTmp2.telephone	:=	pers.telephone
    		objTmp2.mobile		:=	pers.mobile
    		objTmp2.email		:=	pers.email
    		objTmp2.adresse1	:=	pers.adresse1
    		objTmp2.codePostal	:=	pers.codePostal
    		objTmp2.ville		:=	pers.ville
     		objTmp2.idEE		:=	pers.idEE
     		objTmp2.sageId		:=	pers.sageId
 			ajouterElement{lst, objTmp2}
    	FIN SI
    FIN FAIRE
    
    POUR TOUT etablissement FAIRE
    	tmpLst	:=	etablissement.getContactEtablissement{}
    	SI nbElements{tmpLst} >0 ALORS
    		i	:=	1
    		TANT QUE i<=nbElements{tmpLst} FAIRE
    			objTmp	:=	elementDIndice{tmpLst, i}
    			pers	:=	objTmp.personne
    			pers.rolePersonne	:=	objTmp.type
    			SI pers <> ? ALORS
    				objTmp2		:=	creer{'Personne'}
    		
    				objTmp2._id		:=	pers._id
    				objTmp2.role		:=	objTmp
    
    				objTmp2.rolePersonne	:=	pers.rolePersonne
    				objTmp2.fullName	:=	pers.fullName
    				objTmp2.telephone	:=	pers.telephone
    				objTmp2.mobile		:=	pers.mobile
    				objTmp2.email		:=	pers.email
    				objTmp2.adresse1	:=	pers.adresse1
    				objTmp2.codePostal	:=	pers.codePostal
    				objTmp2.ville		:=	pers.ville
    				ajouterElement{lst, objTmp2}
    			FIN SI
    			i	+=	1
    		FIN FAIRE
    	FIN SI
    FIN FAIRE
    
    trierListe{lst, 'rolePersonne'}
    
    SORTIR lst
###
'TrouverEtat' 'Toutes fonctions'
{nom <Chaine>}
    --Création : 22/06/2012 14:53:38 ste-PO15746; Modification : 02/05/2013 16:22:01 llg-PO36696; 
    
    
    
    
    
    
    
    
    
    | nil<Objet> s<Chaine> |
    
    s := minuscule{nom}
    POUR TOUT element<EtatDossier> DE etats FAIRE
    	SI (minuscule{element.NOM} = s)	ALORS
    		SORTIR element
    	FIN SI
    FIN FAIRE
    
    nil := ?
    SORTIR nil
###
'get_qualiteRepresentantLegal' 'Toutes fonctions'
    --Création : 11/07/2012 15:37:39 llg-PO36696; Modification : 02/05/2013 16:22:01 llg-PO36696; 
    |
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	?
    first	:=	VRAI
    
    SI contactExportes ALORS
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Représentant légal' ALORS
    			SI first ALORS
    				tmpCh	:=	element.QualiteRepresentantLegal
    				first	:=	FAUX
    			FIN SI	
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    SINON
    	SORTIR dossier.{'QualiteRepresentantLegal'}chaine
    FIN SI
###
'get_QualiteRepresentantLegal' 'Toutes fonctions'
    --Création : 11/07/2012 15:37:39 llg-PO36696; Modification : 02/05/2013 16:22:01 llg-PO36696; 
    |
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	?
    first	:=	VRAI
    
    SI contactExportes ALORS
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Représentant légal' ALORS
    			SI first ALORS
    				tmpCh	:=	element.QualiteRepresentantLegal
    				first	:=	FAUX
    			FIN SI	
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    SINON
    	SORTIR dossier.{'QualiteRepresentantLegal'}chaine
    FIN SI
###
'get_AutresInterlocuteurs' 'Toutes fonctions'
    --Création : 11/07/2012 15:37:39 llg-PO36696; Modification : 02/05/2013 16:22:01 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Autre conseil extérieur' ALORS
    			pers	:=	element.personne
    			SI pers <> ? ALORS
    				SI first ALORS
    					tmpCh	:=	pers.fullName
    					first	:=	FAUX
    				FIN SI	
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    SINON
    	SORTIR dossier.{'AutresInterlocuteurs'}chaine
    FIN SI
###
'get_TLR3_libelle' 'Toutes fonctions'
    --Création : 05/07/2012 16:13:36 llg-PO36696; Modification : 02/05/2013 16:22:01 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    |
    
    tmpCh	:=	?
    SI contactExportes ALORS
    	pers	::=	'Personne'
    
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ET element.estBanqueTLR3 ALORS
    			pers	:=	element.personne
    			SI pers <> ? ALORS
    				SORTIR pers.fullName
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    SINON
    	SORTIR dossier!{'TLR3_libelle'}chaine
    FIN SI
###
'get_TLR3_IBAN' 'Toutes fonctions'
    --Création : 05/07/2012 16:13:36 llg-PO36696; Modification : 14/10/2013 16:29:06 sav-PC016496BIS; 
    |
    	tmpCh<Chaine>
    |
    
    tmpCh	:=	?
    SI contactExportes ALORS
    
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ET element.estBanqueTLR3 ALORS
    			SORTIR element.IBAN
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    SINON
    	SORTIR dossier.{'TLR3_IBAN'}chaine
    FIN SI
###
'get_TLR3_guichet' 'Toutes fonctions'
    --Création : 05/07/2012 16:13:36 llg-PO36696; Modification : 02/05/2013 16:22:01 llg-PO36696; 
    |
    	tmpCh<Chaine>
    |
    
    tmpCh	:=	?
    SI contactExportes ALORS
    
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ET element.estBanqueTLR3 ALORS
    			SORTIR element.CodeGuichet
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    SINON
    	SORTIR dossier!{'TLR3_guichet'}chaine
    FIN SI
###
'get_TLR3_etab' 'Toutes fonctions'
    --Création : 05/07/2012 16:13:36 llg-PO36696; Modification : 02/05/2013 16:22:01 llg-PO36696; 
    |
    	tmpCh<Chaine>
    |
    
    tmpCh	:=	?
    SI contactExportes ALORS
    
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ET element.estBanqueTLR3 ALORS
    			SORTIR element.CodeBanque
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    SINON
    	SORTIR dossier!{'TLR3_etab'}chaine
    FIN SI
###
'get_TLR3_compte' 'Toutes fonctions'
    --Création : 05/07/2012 16:13:36 llg-PO36696; Modification : 02/05/2013 16:22:01 llg-PO36696; 
    |
    	tmpCh<Chaine>
    |
    
    tmpCh	:=	?
    SI contactExportes ALORS
    
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ET element.estBanqueTLR3 ALORS
    			SORTIR element.NumeroCompte
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    SINON
    	SORTIR dossier!{'TLR3_compte'}chaine
    FIN SI
###
'get_TLR3_CodeBIC' 'Toutes fonctions'
    --Création : 05/07/2012 16:13:36 llg-PO36696; Modification : 02/05/2013 16:22:01 llg-PO36696; 
    |
    	tmpCh<Chaine>
    |
    
    tmpCh	:=	?
    SI contactExportes ALORS
    
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ET element.estBanqueTLR3 ALORS
    			SORTIR element.CodeBIC
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    SINON
    	SORTIR dossier!{'TLR3_CodeBIC'}chaine
    FIN SI
###
'get_TLR3_CleIBAN' 'Toutes fonctions'
    --Création : 05/07/2012 16:13:36 llg-PO36696; Modification : 02/05/2013 16:22:01 llg-PO36696; 
    |
    	tmpCh<Chaine>
    |
    
    tmpCh	:=	?
    SI contactExportes ALORS
    
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ET element.estBanqueTLR3 ALORS
    			SORTIR element.CleIBAN
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    SINON
    	SORTIR dossier!{'TLR3_CleIBAN'}chaine
    FIN SI
###
'get_TLR3_cle' 'Toutes fonctions'
    --Création : 05/07/2012 16:13:36 llg-PO36696; Modification : 02/05/2013 16:22:01 llg-PO36696; 
    |
    	tmpCh<Chaine>
    |
    
    tmpCh	:=	?
    SI contactExportes ALORS
    
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ET element.estBanqueTLR3 ALORS
    			SORTIR element.CleRIB
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    SINON
    	SORTIR dossier!{'TLR3_cle'}chaine
    FIN SI
###
'get_TLR2_libelle' 'Toutes fonctions'
    --Création : 05/07/2012 16:13:36 llg-PO36696; Modification : 02/05/2013 16:22:01 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    |
    
    tmpCh	:=	?
    SI contactExportes ALORS
    	pers	::=	'Personne'
    
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ET element.estBanqueTLR2 ALORS
    			pers	:=	element.personne
    			SI pers <> ? ALORS
    				SORTIR pers.fullName
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    SINON
    	SORTIR dossier!{'TLR2_libelle'}chaine
    FIN SI
###
'get_TLR2_IBAN' 'Toutes fonctions'
    --Création : 05/07/2012 16:13:36 llg-PO36696; Modification : 14/10/2013 16:28:58 sav-PC016496BIS; 
    |
    	tmpCh<Chaine>
    |
    
    tmpCh	:=	?
    SI contactExportes ALORS
    
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ET element.estBanqueTLR2 ALORS
    			SORTIR element.IBAN
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    SINON
    	SORTIR dossier.{'TLR2_IBAN'}chaine
    FIN SI
###
'get_TLR2_guichet' 'Toutes fonctions'
    --Création : 05/07/2012 16:13:36 llg-PO36696; Modification : 02/05/2013 16:22:01 llg-PO36696; 
    |
    	tmpCh<Chaine>
    |
    
    tmpCh	:=	?
    SI contactExportes ALORS
    
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ET element.estBanqueTLR2 ALORS
    			SORTIR element.CodeGuichet
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    SINON
    	SORTIR dossier!{'TLR2_guichet'}chaine
    FIN SI
###
'get_TLR2_etab' 'Toutes fonctions'
    --Création : 05/07/2012 16:13:36 llg-PO36696; Modification : 02/05/2013 16:22:01 llg-PO36696; 
    |
    	tmpCh<Chaine>
    |
    
    tmpCh	:=	?
    SI contactExportes ALORS
    
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ET element.estBanqueTLR2 ALORS
    			SORTIR element.CodeBanque
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    SINON
    	SORTIR dossier!{'TLR2_etab'}chaine
    FIN SI
###
'get_TLR2_compte' 'Toutes fonctions'
    --Création : 05/07/2012 16:13:36 llg-PO36696; Modification : 02/05/2013 16:22:01 llg-PO36696; 
    |
    	tmpCh<Chaine>
    |
    
    tmpCh	:=	?
    SI contactExportes ALORS
    
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ET element.estBanqueTLR2 ALORS
    			SORTIR element.NumeroCompte
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    SINON
    	SORTIR dossier!{'TLR2_compte'}chaine
    FIN SI
###
'get_TLR2_CodeBIC' 'Toutes fonctions'
    --Création : 05/07/2012 16:13:36 llg-PO36696; Modification : 02/05/2013 16:22:01 llg-PO36696; 
    |
    	tmpCh<Chaine>
    |
    
    tmpCh	:=	?
    SI contactExportes ALORS
    
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ET element.estBanqueTLR2 ALORS
    			SORTIR element.CodeBIC
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    SINON
    	SORTIR dossier!{'TLR2_CodeBIC'}chaine
    FIN SI
###
'get_TLR2_CleIBAN' 'Toutes fonctions'
    --Création : 05/07/2012 16:13:36 llg-PO36696; Modification : 02/05/2013 16:22:01 llg-PO36696; 
    |
    	tmpCh<Chaine>
    |
    
    tmpCh	:=	?
    SI contactExportes ALORS
    
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ET element.estBanqueTLR2 ALORS
    			SORTIR element.CleIBAN
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    SINON
    	SORTIR dossier!{'TLR2_CleIBAN'}chaine
    FIN SI
###
'get_TLR2_cle' 'Toutes fonctions'
    --Création : 05/07/2012 16:13:36 llg-PO36696; Modification : 02/05/2013 16:22:01 llg-PO36696; 
    |
    	tmpCh<Chaine>
    |
    
    tmpCh	:=	?
    SI contactExportes ALORS
    
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ET element.estBanqueTLR2 ALORS
    			SORTIR element.CleRIB
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    SINON
    	SORTIR dossier!{'TLR2_cle'}chaine
    FIN SI
###
'get_TLR1_libelle' 'Toutes fonctions'
    --Création : 05/07/2012 16:13:36 llg-PO36696; Modification : 02/05/2013 16:22:01 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    |
    
    tmpCh	:=	?
    SI contactExportes ALORS
    	pers	::=	'Personne'
    
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ET element.estBanqueTLR1 ALORS
    			pers	:=	element.personne
    			SI pers <> ? ALORS
    				SORTIR pers.fullName
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    SINON
    	SORTIR dossier!{'TLR1_libelle'}chaine
    FIN SI
###
'get_TLR1_IBAN' 'Toutes fonctions'
    --Création : 05/07/2012 16:13:36 llg-PO36696; Modification : 14/10/2013 16:28:45 sav-PC016496BIS; 
    |
    	tmpCh<Chaine>
    |
    
    tmpCh	:=	?
    SI contactExportes ALORS
    
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ET element.estBanqueTLR1 ALORS
    			SORTIR element.IBAN
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    SINON
    	SORTIR dossier.{'TLR1_IBAN'}chaine
    FIN SI
###
'get_TLR1_guichet' 'Toutes fonctions'
    --Création : 05/07/2012 16:13:36 llg-PO36696; Modification : 02/05/2013 16:22:02 llg-PO36696; 
    |
    	tmpCh<Chaine>
    |
    
    tmpCh	:=	?
    SI contactExportes ALORS
    
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ET element.estBanqueTLR1 ALORS
    			SORTIR element.CodeGuichet
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    SINON
    	SORTIR dossier!{'TLR1_guichet'}chaine
    FIN SI
###
'get_TLR1_etab' 'Toutes fonctions'
    --Création : 05/07/2012 16:13:36 llg-PO36696; Modification : 02/05/2013 16:22:02 llg-PO36696; 
    |
    	tmpCh<Chaine>
    |
    
    tmpCh	:=	?
    SI contactExportes ALORS
    
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ET element.estBanqueTLR1 ALORS
    			SORTIR element.CodeBanque
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    SINON
    	SORTIR dossier!{'TLR1_etab'}chaine
    FIN SI
###
'get_TLR1_compte' 'Toutes fonctions'
    --Création : 05/07/2012 16:13:36 llg-PO36696; Modification : 02/05/2013 16:22:02 llg-PO36696; 
    |
    	tmpCh<Chaine>
    |
    
    tmpCh	:=	?
    SI contactExportes ALORS
    
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ET element.estBanqueTLR1 ALORS
    			SORTIR element.NumeroCompte
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    SINON
    	SORTIR dossier!{'TLR1_compte'}chaine
    FIN SI
###
'get_TLR1_CodeBIC' 'Toutes fonctions'
    --Création : 05/07/2012 16:13:36 llg-PO36696; Modification : 02/05/2013 16:22:02 llg-PO36696; 
    |
    	tmpCh<Chaine>
    |
    
    tmpCh	:=	?
    SI contactExportes ALORS
    
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ET element.estBanqueTLR1 ALORS
    			SORTIR element.CodeBIC
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    SINON
    	SORTIR dossier!{'TLR1_CodeBIC'}chaine
    FIN SI
###
'get_TLR1_CleIBAN' 'Toutes fonctions'
    --Création : 05/07/2012 16:13:36 llg-PO36696; Modification : 02/05/2013 16:22:02 llg-PO36696; 
    |
    	tmpCh<Chaine>
    |
    
    tmpCh	:=	?
    SI contactExportes ALORS
    
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ET element.estBanqueTLR1 ALORS
    			SORTIR element.CleIBAN
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    SINON
    	SORTIR dossier!{'TLR1_CleIBAN'}chaine
    FIN SI
###
'get_TLR1_cle' 'Toutes fonctions'
    --Création : 05/07/2012 16:13:36 llg-PO36696; Modification : 02/05/2013 16:22:02 llg-PO36696; 
    |
    	tmpCh<Chaine>
    |
    
    tmpCh	:=	?
    SI contactExportes ALORS
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ET element.estBanqueTLR1 ALORS
    			SORTIR element.CleRIB
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    SINON
    	SORTIR dossier!{'TLR1_cle'}chaine
    FIN SI
###
'afficherCivilite' 'Toutes fonctions'
{argCivilite <Chaine>}
    --Création : 17/07/2012 16:37:53 sja-PC15754; Modification : 02/05/2013 16:22:02 llg-PO36696; 
    
    
    
    
    
    
    
    |
    	tmpCh<Chaine>
    |
    
    tmpCh	:=	?
    
    SI argCivilite = 'M' ALORS
    	SORTIR 'Monsieur'
    FINSI
    
    SI argCivilite = 'Mme' ALORS
    	SORTIR 'Madame'
    FINSI
    
    SI argCivilite = 'Melle' ALORS
    	SORTIR 'Mademoiselle'
    FINSI
    
    SORTIR tmpCh
###
'set_Activite' 'Toutes fonctions'
{value <Chaine> avecPropagation <Booléen>}
    --Création : 24/05/2011 14:46:39 llg-PO15890; Modification : 09/01/2014 16:59:51 ade-PO101359; 
    
    
    |
    	pers<Objet>
    |
    
    pers	::=	'Personne'
    
    SI contactExportes ALORS
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Dossier' ALORS
    			pers	:=	element.personne
    			SI pers <> ? ALORS
    				SI avecPropagation ALORS
    					pers.Activite	!=	value
    				SINON
    					pers.Activite	:=	value
    				FIN SI
    				commit{pers}
    			FIN SI
    		FIN SI
    	FIN FAIRE
    SINON
    	SI avecPropagation ALORS
    		dossier.{'Activite'}chaine	!=	value
    	SINON
    		dossier.{'Activite'}chaine	:=	value
    	FIN SI
    FIN SI
###
'set_nomDossier' 'Toutes fonctions'
{value <Chaine> avecPropagation <Booléen>}
    --Création : 24/05/2011 14:46:39 llg-PO15890; Modification : 02/05/2013 16:22:02 llg-PO36696; 
    
    
    
    
    
    
    |
    	pers<Objet>
    |
    pers	::=	'Personne'
    
    SI contactExportes ALORS
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Dossier' ALORS
    			pers	:=	element.personne
    			SI pers <> ? ALORS
    				pers.nomDossier	:=	value
    				commit{pers}
    			FIN SI
    		FIN SI
    	FIN FAIRE
    SINON
    	dossier!{'nomDossier'}chaine	:=	value
    FIN SI
###
'set_nomEtablissement' 'Toutes fonctions'
{value <Chaine> avecPropagation <Booléen>}
    --Création : 24/05/2011 14:46:39 llg-PO15890; Modification : 02/05/2013 16:22:02 llg-PO36696; 
    
    
    
    
    
    
    
    |
    	pers<Objet>
    |
    
    pers	::=	'Personne'
    
    SI contactExportes ALORS
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Etablissement' ALORS
    			pers	:=	element.personne
    			SI pers <> ? ALORS
    				pers.nomEtablissement	:=	value
    				commit{pers}
    			FIN SI
    		FIN SI
    	FIN FAIRE
    SINON
    	dossier!{'nomEtablissement'}chaine	:=	value
    FIN SI
###
'set_NCentre' 'Toutes fonctions'
{value <Chaine> avecPropagation <Booléen>}
    --Création : 24/05/2011 14:46:39 llg-PO15890; Modification : 02/05/2013 16:22:02 llg-PO36696; 
    
    
    
    
    
    
    
    |
    	pers<Objet>
    |
    
    pers	::=	'Personne'
    
    SI contactExportes ALORS
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Cga' ALORS
    			pers	:=	element.personne
    			SI pers <> ? ALORS
    				SI avecPropagation ALORS
    					pers.numeroNational	!=	value
    				SINON
    					pers.numeroNational	:=	value
    				FIN SI
    				commit{pers}
    			FIN SI
    		FIN SI
    	FIN FAIRE
    SINON
    	SI avecPropagation ALORS
    		dossier.{'NCentre'}chaine	!=	value
    	SINON
    		dossier.{'NCentre'}chaine	:=	value
    	FIN SI
    FIN SI
###
'set_Siret' 'Toutes fonctions'
{value <Chaine> avecPropagation <Booléen>}
    --Création : 24/05/2011 14:46:39 llg-PO15890; Modification : 02/05/2013 16:22:02 llg-PO36696; 
    
    
    
    
    
    
    
    |
    	pers<Objet>
    |
    
    pers	::=	'Personne'
    debug{'Dossier - set_Siret : '+value+'<>'+contactExportes}
    SI contactExportes ALORS
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Dossier' ALORS
    			pers	:=	element.personne
    			SI pers <> ? ALORS
    				SI avecPropagation ALORS
    					pers.siret	!=	value
    					SINON
    					pers.siret	:=	value
    				FIN SI
    				commit{pers}
    			FIN SI
    		FIN SI
    	FIN FAIRE
    FIN SI
    SI avecPropagation ALORS
    	dossier.{'Siret'}chaine	!=	value
    SINON
    	dossier.{'Siret'}chaine	:=	value
    FIN SI
###
'set_Siren' 'Toutes fonctions'
{value <Chaine> avecPropagation <Booléen>}
    --Création : 24/05/2011 14:46:39 llg-PO15890; Modification : 02/05/2013 16:22:02 llg-PO36696; 
    
    
    
    
    
    
    
    |
    	pers<Objet>
    |
    
    pers	::=	'Personne'
    
    SI contactExportes ALORS
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Dossier' ALORS
    			pers	:=	element.personne
    			SI pers <> ? ALORS
    				SI avecPropagation ALORS
    					pers.siren	!=	value
    				SINON
    					pers.siren	:=	value
    				FIN SI
    				commit{pers}
    			FIN SI
    		FIN SI
    	FIN FAIRE
    SINON
    	SI avecPropagation ALORS
    		dossier.{'Siren'}chaine	!=	value
    	SINON
    		dossier.{'Siren'}chaine	:=	value
    	FIN SI
    FIN SI
###
'set_codePaysISO' 'Toutes fonctions'
{value <Chaine> avecPropagation <Booléen>}
    --Création : 24/05/2011 14:46:39 llg-PO15890; Modification : 02/05/2013 16:22:02 llg-PO36696; 
    
    
    
    
    
    
    
    |
    	pers<Objet>
    |
    
    pers	::=	'Personne'
    
    SI contactExportes ALORS
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Dossier' ALORS
    			pers	:=	element.personne
    			SI pers <> ? ALORS
    				SI avecPropagation ALORS
    					pers.pays	!=	value
    				SINON
    					pers.pays	:=	value
    				FIN SI
    				commit{pers}
    			FIN SI
    		FIN SI
    	FIN FAIRE
    SINON
    	dossier!{'codePaysISO'}chaine	:=	value
    FIN SI
###
'set_RaisonSociale' 'Toutes fonctions'
{value <Chaine> avecPropagation <Booléen>}
    --Création : 24/05/2011 14:46:39 llg-PO15890; Modification : 02/05/2013 16:22:02 llg-PO36696; 
    
    
    
    
    
    
    
    |
    	pers<Objet>
    |
    
    pers	::=	'Personne'
    
    SI contactExportes ALORS
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Dossier' ALORS
    			pers	:=	element.personne
    			SI pers <> ? ALORS
    				SI avecPropagation ALORS
    					pers.raisonSociale	!=	value
    				SINON
    					pers.raisonSociale	:=	value
    				FIN SI
    				commit{pers}
    			FIN SI
    		FIN SI
    	FIN FAIRE
    SINON
    	SI avecPropagation ALORS
    		dossier.{'RaisonSociale'}chaine	!=	value
    	SINON
    		dossier.{'RaisonSociale'}chaine	:=	value
    	FIN SI
    FIN SI
###
'set_Adresse1' 'Toutes fonctions'
{value <Chaine> avecPropagation <Booléen>}
    --Création : 24/05/2011 14:46:39 llg-PO15890; Modification : 02/05/2013 16:22:02 llg-PO36696; 
    
    
    |
    	pers<Objet>
    |
    
    pers	::=	'Personne'
    
    SI contactExportes ALORS
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Dossier' ALORS
    			pers	:=	element.personne
    			SI pers <> ? ALORS
    				SI avecPropagation ALORS
    					pers.adresse1	!=	value
    					pers.numero 	!=	?
    					pers.bister	!=	?
    				SINON
    					pers.adresse1	:=	value
    					pers.numero 	:=	?
    					pers.bister	:=	?
    				FIN SI
    				commit{pers}
    			FIN SI
    		FIN SI
    	FIN FAIRE
    SINON
    	SI avecPropagation ALORS
    		dossier.{'Adresse1'}chaine	!=	value
    	SINON
    		dossier.{'Adresse1'}chaine	:=	value
    	FIN SI
    FIN SI
###
'set_Adresse2' 'Toutes fonctions'
{value <Chaine> avecPropagation <Booléen>}
    --Création : 24/05/2011 14:46:39 llg-PO15890; Modification : 02/05/2013 16:22:02 llg-PO36696; 
    
    
    
    
    
    
    
    |
    	pers<Objet>
    |
    
    pers	::=	'Personne'
    
    SI contactExportes ALORS
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Dossier' ALORS
    			pers	:=	element.personne
    			SI pers <> ? ALORS
    				SI avecPropagation ALORS
    					pers.adresse2	!=	value
    				SINON
    					pers.adresse2	:=	value
    				FIN SI
    				commit{pers}
    			FIN SI
    		FIN SI
    	FIN FAIRE
    SINON
    	SI avecPropagation ALORS
    		dossier.{'Adresse2'}chaine	!=	value
    	SINON
    		dossier.{'Adresse2'}chaine	:=	value
    	FIN SI
    FIN SI
###
'set_Adresse3' 'Toutes fonctions'
{value <Chaine> avecPropagation <Booléen>}
    --Création : 24/05/2011 14:46:39 llg-PO15890; Modification : 02/05/2013 16:22:02 llg-PO36696; 
    
    
    
    
    
    
    
    |
    	pers<Objet>
    |
    
    pers	::=	'Personne'
    
    SI contactExportes ALORS
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Dossier' ALORS
    			pers	:=	element.personne
    			SI pers <> ? ALORS
    				SI avecPropagation ALORS
    					pers.adresse3	!=	value
    				SINON
    					pers.adresse3	:=	value
    				FIN SI
    				commit{pers}
    			FIN SI
    		FIN SI
    	FIN FAIRE
    SINON
    	SI avecPropagation ALORS
    		dossier.{'Adresse3'}chaine	!=	value
    	SINON
    		dossier.{'Adresse3'}chaine	:=	value
    	FIN SI
    FIN SI
###
'set_CodePostal' 'Toutes fonctions'
{value <Chaine> avecPropagation <Booléen>}
    --Création : 24/05/2011 14:46:39 llg-PO15890; Modification : 02/05/2013 16:22:02 llg-PO36696; 
    
    
    
    
    
    
    
    |
    	pers<Objet>
    |
    
    pers	::=	'Personne'
    
    SI contactExportes ALORS
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Dossier' ALORS
    			pers	:=	element.personne
    			SI pers <> ? ALORS
    				SI avecPropagation ALORS
    					pers.codePostal	!=	value
    				SINON
    					pers.codePostal	:=	value
    				FIN SI
    				commit{pers}
    			FIN SI
    		FIN SI
    	FIN FAIRE
    SINON
    	SI avecPropagation ALORS
    		dossier.{'CodePostal'}chaine	!=	value
    	SINON
    		dossier.{'CodePostal'}chaine	:=	value
    	FIN SI
    FIN SI
###
'set_Ville' 'Toutes fonctions'
{value <Chaine> avecPropagation <Booléen>}
    --Création : 24/05/2011 14:46:39 llg-PO15890; Modification : 02/05/2013 16:22:02 llg-PO36696; 
    
    
    
    
    
    
    
    |
    	pers<Objet>
    |
    
    pers	::=	'Personne'
    
    SI contactExportes ALORS
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Dossier' ALORS
    			pers	:=	element.personne
    			SI pers <> ? ALORS
    				SI avecPropagation ALORS
    					pers.ville	!=	value
    				SINON
    					pers.ville	:=	value
    				FIN SI
    				commit{pers}
    			FIN SI
    		FIN SI
    	FIN FAIRE
    SINON
    	SI avecPropagation ALORS
    		dossier.{'Ville'}chaine	!=	value
    	SINON
    		dossier.{'Ville'}chaine	:=	value
    	FIN SI
    FIN SI
###
'set_Telephone' 'Toutes fonctions'
{value <Chaine> avecPropagation <Booléen>}
    --Création : 24/05/2011 14:46:39 llg-PO15890; Modification : 02/05/2013 16:22:02 llg-PO36696; 
    
    
    
    
    
    
    
    |
    	pers<Objet>
    |
    
    pers	::=	'Personne'
    
    SI contactExportes ALORS
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Dossier' ALORS
    			pers	:=	element.personne
    			SI pers <> ? ALORS
    				SI avecPropagation ALORS
    					pers.telephone	!=	value
    				SINON
    					pers.telephone	:=	value
    				FIN SI
    				commit{pers}
    			FIN SI
    		FIN SI
    	FIN FAIRE
    SINON
    	SI avecPropagation ALORS
    		dossier.{'Telephone'}chaine	!=	value
    	SINON
    		dossier.{'Telephone'}chaine	:=	value
    	FIN SI
    FIN SI
###
'set_TelephonePortable' 'Toutes fonctions'
{value <Chaine> avecPropagation <Booléen>}
    --Création : 24/05/2011 14:46:39 llg-PO15890; Modification : 23/12/2013 12:04:11 sja-PC101042; 
    
    |
    	pers<Objet> autreTel<Objet>
    |
    
    pers		::=	'Personne'
    autreTel	::=	'Telephone'
    
    SI contactExportes ALORS
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Dossier' ALORS
    			pers	:=	element.personne
    			SI pers <> ? ALORS
    				pers.mobile	!=	value
    				commit{pers}
    			FIN SI
    		FIN SI
    	FIN FAIRE
    SINON
    	dossier.{'TelephonePortable'}chaine	!=	value
    FIN SI
###
'set_Telephone2' 'Toutes fonctions'
{value <Chaine> avecPropagation <Booléen>}
    --Création : 24/05/2011 14:46:39 llg-PO15890; Modification : 02/05/2013 16:22:02 llg-PO36696; 
    
    
    
    
    
    
    
    |
    	pers<Objet> autreTel<Objet>
    |
    
    pers		::=	'Personne'
    autreTel		::=	'Telephone'
    
    SI contactExportes ALORS
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Dossier' ALORS
    			pers	:=	element.personne
    			SI pers <> ? ALORS
    				SI pers.autresTelephones = ? ALORS
    					pers.autresTelephones	:=	creerListe{}
    				FIN SI
    				autreTel	:=	creer{'Telephone'}
    				autreTel.nom	:=	'Téléphone autre'
    				SI avecPropagation ALORS
    					autreTel.telephone	!=	value
    				SINON
    					autreTel.telephone	:=	value
    				FIN SI
    				ajouterElement{pers.autresTelephones, autreTel}
    				commit{pers}
    			FIN SI
    		FIN SI
    	FIN FAIRE
    SINON
    	SI avecPropagation ALORS
    		dossier.{'Telephone2'}chaine	!=	value
    	SINON
    		dossier.{'Telephone2'}chaine	:=	value
    	FIN SI
    FIN SI
###
'set_Fax' 'Toutes fonctions'
{value <Chaine> avecPropagation <Booléen>}
    --Création : 24/05/2011 14:46:39 llg-PO15890; Modification : 02/05/2013 16:22:02 llg-PO36696; 
    
    
    
    
    
    
    
    |
    	pers<Objet>
    |
    
    pers	::=	'Personne'
    
    SI contactExportes ALORS
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Dossier' ALORS
    			pers	:=	element.personne
    			SI pers <> ? ALORS
    				SI avecPropagation ALORS
    					pers.fax	!=	value
    				SINON
    					pers.fax	:=	value
    				FIN SI
    				commit{pers}
    			FIN SI
    		FIN SI
    	FIN FAIRE
    SINON
    	SI avecPropagation ALORS
    		dossier.{'Fax'}chaine	!=	value
    	SINON
    		dossier.{'Fax'}chaine	:=	value
    	FIN SI
    FIN SI
###
'set_formeJuridique' 'Toutes fonctions'
{value <Chaine> avecPropagation <Booléen>}
    --Création : 24/05/2011 14:46:39 llg-PO15890; Modification : 02/05/2013 16:22:02 llg-PO36696; 
    
    
    
    
    
    
    
    |
    	pers<Objet>
    |
    
    pers	::=	'Personne'
    
    SI contactExportes ALORS
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Dossier' ALORS
    			pers	:=	element.personne
    			SI pers <> ? ALORS
    				SI avecPropagation ALORS
    					pers.typeJuridique	!=	value
    				SINON
    					pers.typeJuridique	:=	value
    				FIN SI
    				commit{pers}
    			FIN SI
    		FIN SI
    	FIN FAIRE
    SINON
    	SI avecPropagation ALORS
    		dossier.{'formeJuridique'}chaine	!=	value
    	SINON
    		dossier.{'formeJuridique'}chaine	:=	value
    	FIN SI
    FIN SI
###
'set_NumAgremAGA' 'Toutes fonctions'
{value <Chaine> avecPropagation <Booléen>}
    --Création : 24/05/2011 14:46:39 llg-PO15890; Modification : 02/05/2013 16:22:02 llg-PO36696; 
    
    
    
    
    
    
    
    |
    	pers<Objet>
    |
    
    pers	::=	'Personne'
    
    SI contactExportes ALORS
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Aga' ALORS
    			pers	:=	element.personne
    			SI pers <> ? ALORS
    				SI avecPropagation ALORS
    					pers.numeroNational	!=	value
    				SINON
    					pers.numeroNational	:=	value
    				FIN SI
    				commit{pers}
    			FIN SI
    		FIN SI
    	FIN FAIRE
    SINON
    	SI avecPropagation ALORS
    		dossier.{'NumAgremAGA'}chaine	!=	value
    	SINON
    		dossier.{'NumAgremAGA'}chaine	:=	value
    	FIN SI
    FIN SI
###
'set_Ndoss' 'Toutes fonctions'
{value <Chaine> avecPropagation <Booléen>}
    --Création : 24/05/2011 14:46:39 llg-PO15890; Modification : 20/12/2013 15:44:08 llg-PO36696; 
    
    
    
    
    
    
    
    SI contactExportes ALORS
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'SIE' ALORS
    			SI element.personne <> ? ALORS
    				SI avecPropagation ALORS
    					element.Ndoss	!=	value
    				SINON
    					element.Ndoss	:=	value
    				FIN SI
    				commit{element}
    			FIN SI
    		FIN SI
    	FIN FAIRE
    SINON
    	SI avecPropagation ALORS
    		dossier.{'Ndoss'}chaine	!=	value
    	SINON
    		dossier.{'Ndoss'}chaine	:=	value
    	FIN SI
    FIN SI
###
'set_CleRecette' 'Toutes fonctions'
{value <Chaine> avecPropagation <Booléen>}
    --Création : 24/05/2011 14:46:39 llg-PO15890; Modification : 20/12/2013 15:45:42 llg-PO36696; 
    
    
    SI contactExportes ALORS
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'SIE' ALORS
    			SI element.personne <> ? ALORS
    				SI avecPropagation ALORS
    					element.CleRecette	!=	value
    				SINON
    					element.CleRecette	:=	value
    				FIN SI
    				commit{element}
    			FIN SI
    		FIN SI
    	FIN FAIRE
    SINON
    	SI avecPropagation ALORS
    		dossier.{'CleRecette'}chaine	!=	value
    	SINON
    		dossier.{'CleRecette'}chaine	:=	value
    	FIN SI
    FIN SI
###
'set_JourLimite' 'Toutes fonctions'
{value <Entier> avecPropagation <Booléen>}
    --Création : 24/05/2011 14:46:39 llg-PO15890; Modification : 20/12/2013 15:44:43 llg-PO36696; 
    
    
    
    
    
    
    
    SI contactExportes ALORS
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'SIE' ALORS
    			SI element.personne <> ? ALORS
    				SI avecPropagation ALORS
    					element.JourLimite	!=	value
    				SINON
    					element.JourLimite	:=	value
    				FIN SI
    				commit{element}
    			FIN SI
    		FIN SI
    	FIN FAIRE
    SINON
    	SI avecPropagation ALORS
    		dossier.{'JourLimite'}entier	!=	value
    	SINON
    		dossier.{'JourLimite'}entier	:=	value
    	FIN SI
    FIN SI
###
'set_RepresentantLegal' 'Toutes fonctions'
{value <Chaine> avecPropagation <Booléen>}
    --Création : 24/05/2011 14:46:39 llg-PO15890; Modification : 02/05/2013 16:22:03 llg-PO36696; 
    
    
    
    
    
    
    
    |
    	pers<Objet>
    |
    
    pers	::=	'Personne'
    
    SI contactExportes ALORS
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Représentant légal' ALORS
    			pers	:=	element.personne
    			SI pers <> ? ALORS
    				SI avecPropagation ALORS
    					pers.lastName	!=	value
    					pers.fullName	!=	value
    					pers.firstName	!=	?
    				SINON
    					pers.lastName	:=	value
    					pers.fullName	:=	value
    					pers.firstName	:=	?
    				FIN SI
    				commit{pers}
    			FIN SI
    		FIN SI
    	FIN FAIRE
    SINON
    	SI avecPropagation ALORS
    		dossier.{'RepresentantLegal'}chaine	!=	value
    	SINON
    		dossier.{'RepresentantLegal'}chaine	:=	value
    	FIN SI
    FIN SI
###
'set_QualiteRepresentantLegal' 'Toutes fonctions'
{value <Chaine> avecPropagation <Booléen>}
    --Création : 24/05/2011 14:46:39 llg-PO15890; Modification : 02/05/2013 16:22:03 llg-PO36696; 
    
    
    
    
    
    
    
    SI contactExportes ALORS
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Représentant légal' ALORS
    			SI avecPropagation ALORS
    				element.QualiteRepresentantLegal	!=	value
    			SINON
    				element.QualiteRepresentantLegal	:=	value
    			FIN SI
    			commit{element}
    		FIN SI
    	FIN FAIRE
    SINON
    	SI avecPropagation ALORS
    		dossier.{'QualiteRepresentantLegal'}chaine	!=	value
    	SINON
    		dossier.{'QualiteRepresentantLegal'}chaine	:=	value
    	FIN SI
    FIN SI
###
'set_dateCessationActivite' 'Toutes fonctions'
{value <Date> avecPropagation <Booléen>}
    --Création : 24/05/2011 14:46:39 llg-PO15890; Modification : 02/05/2013 16:22:03 llg-PO36696; 
    
    
    
    
    
    
    
    SI contactExportes ALORS
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Dossier' ALORS
    			element.dateCessationActivite	:=	value
    			commit{element}
    		FIN SI
    	FIN FAIRE
    SINON
    	dossier!{'dateCessationActivite'}date	:=	value
    FIN SI
###
'set_AdrCdi1' 'Toutes fonctions'
{value <Chaine> avecPropagation <Booléen>}
    --Création : 24/05/2011 14:46:39 llg-PO15890; Modification : 11/10/2013 10:48:28 llg-PO36696; 
    
    |
    	pers<Objet>
    |
    
    pers	::=	'Personne'
    
    SI contactExportes ALORS
    
    --On affecte désormais la valeur du SIE
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'SIE' ALORS
    			pers	:=	element.personne
    				SI pers <> ? ALORS
    				SI avecPropagation ALORS
    					pers.raisonSociale	!=	value
    				SINON
    					pers.raisonSociale	:=	value
    				FIN SI
    				commit{pers}
    			FIN SI
    		FIN SI
    	FIN FAIRE
    SINON
    	SI avecPropagation ALORS
    		dossier.{'AdrCdi1'}chaine	!=	value
    	SINON
    		dossier.{'AdrCdi1'}chaine	:=	value
    	FIN SI
    FIN SI
###
'set_AdrCdi2' 'Toutes fonctions'
{value <Chaine> avecPropagation <Booléen>}
    --Création : 24/05/2011 14:46:39 llg-PO15890; Modification : 11/10/2013 10:48:50 llg-PO36696; 
    
    |
    	pers<Objet>
    |
    
    pers	::=	'Personne'
    
    SI contactExportes ALORS
    --On affecte désormais la valeur du SIE 
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'SIE' ALORS
    			pers	:=	element.personne
    			SI pers <> ? ALORS
    				SI avecPropagation ALORS
    					pers.adresse1	!=	value
    				SINON
    					pers.adresse1	:=	value
    				FIN SI
    				commit{pers}
    			FIN SI
    		FIN SI
    	FIN FAIRE
    SINON
    	SI avecPropagation ALORS
    		dossier.{'AdrCdi2'}chaine	!=	value
    	SINON
    		dossier.{'AdrCdi2'}chaine	:=	value
    	FIN SI
    FIN SI
###
'set_CPCdi' 'Toutes fonctions'
{value <Chaine> avecPropagation <Booléen>}
    --Création : 24/05/2011 14:46:39 llg-PO15890; Modification : 11/10/2013 10:49:13 llg-PO36696; 
    
    |
    	pers<Objet>
    |
    
    pers	::=	'Personne'
    
    SI contactExportes ALORS
    --On affecte désormais la valeur du SIE 
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'SIE' ALORS
    			pers	:=	element.personne
    			SI pers <> ? ALORS
    				SI avecPropagation ALORS
    					pers.codePostal	!=	value
    				SINON
    					pers.codePostal	:=	value
    				FIN SI
    				commit{pers}
    			FIN SI
    		FIN SI
    	FIN FAIRE
    SINON
    	SI avecPropagation ALORS
    		dossier.{'CPCdi'}chaine	!=	value
    	SINON
    		dossier.{'CPCdi'}chaine	:=	value
    	FIN SI
    FIN SI
###
'set_VilleCdi' 'Toutes fonctions'
{value <Chaine> avecPropagation <Booléen>}
    --Création : 24/05/2011 14:46:39 llg-PO15890; Modification : 11/10/2013 10:50:26 llg-PO36696; 
    
    |
    	pers<Objet>
    |
    
    pers	::=	'Personne'
    
    SI contactExportes ALORS
    --On affecte désormais la valeur du SIE
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'SIE' ALORS
    			pers	:=	element.personne
    			SI pers <> ? ALORS
    				SI avecPropagation ALORS
    					pers.ville	!=	value
    				SINON
    					pers.ville	:=	value
    				FIN SI
    				commit{pers}
    			FIN SI
    		FIN SI
    	FIN FAIRE
    SINON
    	SI avecPropagation ALORS
    		dossier.{'VilleCdi'}chaine	!=	value
    	SINON
    		dossier.{'VilleCdi'}chaine	:=	value
    	FIN SI
    FIN SI
###
'set_NumCDI' 'Toutes fonctions'
{value <Chaine> avecPropagation <Booléen>}
    --Création : 24/05/2011 14:46:39 llg-PO15890; Modification : 03/10/2013 17:09:15 llg-PO36696; 
    
    
    
    
    
    
    
    |
    	pers<Objet>
    |
    
    pers	::=	'Personne'
    
    SI contactExportes ET cabinet.partenaireCoala = 'CMB' ALORS
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'SIE' ALORS
    			pers	:=	element.personne
    			SI pers <> ? ALORS
    				SI avecPropagation ALORS
    					pers.NumCDI	!=	value
    				SINON
    					pers.NumCDI	:=	value
    				FIN SI
    				commit{pers}
    			FIN SI
    		FIN SI
    	FIN FAIRE
    SINON
    	SI avecPropagation ALORS
    		dossier.{'NumCDI'}chaine	!=	value
    	SINON
    		dossier.{'NumCDI'}chaine	:=	value
    	FIN SI
    FIN SI
###
'set_NumRecette' 'Toutes fonctions'
{value <Chaine> avecPropagation <Booléen>}
    --Création : 24/05/2011 14:46:39 llg-PO15890; Modification : 03/10/2013 17:08:07 llg-PO36696; 
    
    
    
    
    
    
    
    |
    	pers<Objet>
    |
    
    pers	::=	'Personne'
    
    SI contactExportes ET cabinet.partenaireCoala = 'CMB' ALORS
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'SIE' ALORS
    			pers	:=	element.personne
    			SI pers <> ? ALORS
    				SI avecPropagation ALORS
    					pers.NumRecette	!=	value
    				SINON
    					pers.NumRecette	:=	value
    				FIN SI
    				commit{pers}
    			FIN SI
    		FIN SI
    	FIN FAIRE
    SINON
    	SI avecPropagation ALORS
    		dossier.{'NumRecette'}chaine	!=	value
    	SINON
    		dossier.{'NumRecette'}chaine	:=	value
    	FIN SI
    FIN SI
###
'set_Insp' 'Toutes fonctions'
{value <Chaine> avecPropagation <Booléen>}
    --Création : 24/05/2011 14:46:39 llg-PO15890; Modification : 03/10/2013 17:09:24 llg-PO36696; 
    
    
    
    
    
    
    
    |
    	pers<Objet>
    |
    
    pers	::=	'Personne'
    
    SI contactExportes ET cabinet.partenaireCoala = 'CMB' ALORS
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'SIE' ALORS
    			pers	:=	element.personne
    			SI pers <> ? ALORS
    				SI avecPropagation ALORS
    					pers.Insp	!=	value
    				SINON
    					pers.Insp	:=	value
    				FIN SI
    				commit{pers}
    			FIN SI
    		FIN SI
    	FIN FAIRE
    SINON
    	SI avecPropagation ALORS
    		dossier.{'Insp'}chaine	!=	value
    	SINON
    		dossier.{'Insp'}chaine	:=	value
    	FIN SI
    FIN SI
###
'set_TLR1_cle' 'Toutes fonctions'
{value <Chaine> avecPropagation <Booléen>}
    --Création : 24/05/2011 14:46:39 llg-PO15890; Modification : 02/05/2013 16:22:03 llg-PO36696; 
    
    
    
    
    
    
    
    SI contactExportes ALORS
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ET element.estBanqueTLR1 ALORS
    			SI avecPropagation ALORS
    				element.CleRIB	!=	value
    			SINON
    				element.CleRIB	:=	value
    			FIN SI
    			commit{element}
    		FIN SI
    	FIN FAIRE
    SINON
    	dossier!{'TLR1_cle'}chaine	:=	value
    FIN SI
###
'set_TLR1_IBAN' 'Toutes fonctions'
{value <Chaine> avecPropagation <Booléen>}
    --Création : 24/05/2011 14:46:39 llg-PO15890; Modification : 02/05/2013 16:22:03 llg-PO36696; 
    
    SI contactExportes ALORS
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ET element.estBanqueTLR1 ALORS
    			SI avecPropagation ALORS
    				element.IBAN	!=	value
    			SINON
    				element.IBAN	:=	value
    			FIN SI
    			commit{element}
    		FIN SI
    	FIN FAIRE
    SINON
    	dossier!{'TLR1_IBAN'}chaine	:=	value
    FIN SI
###
'set_TLR1_CodeBIC' 'Toutes fonctions'
{value <Chaine> avecPropagation <Booléen>}
    --Création : 24/05/2011 14:46:39 llg-PO15890; Modification : 02/05/2013 16:22:03 llg-PO36696; 
    
    SI contactExportes ALORS
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ET element.estBanqueTLR1 ALORS
    			SI avecPropagation ALORS
    				element.CodeBIC	!=	value
    			SINON
    				element.CodeBIC	:=	value
    			FIN SI
    			commit{element}
    		FIN SI
    	FIN FAIRE
    SINON
    	dossier!{'TLR1_CodeBIC'}chaine	:=	value
    FIN SI
###
'set_TLR2_IBAN' 'Toutes fonctions'
{value <Chaine> avecPropagation <Booléen>}
    --Création : 24/05/2011 14:46:39 llg-PO15890; Modification : 02/05/2013 16:22:03 llg-PO36696; 
    
    SI contactExportes ALORS
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ET element.estBanqueTLR2 ALORS
    			SI avecPropagation ALORS
    				element.IBAN	!=	value
    			SINON
    				element.IBAN	:=	value
    			FIN SI
    			commit{element}
    		FIN SI
    	FIN FAIRE
    SINON
    	dossier!{'TLR2_IBAN'}chaine	:=	value
    FIN SI
###
'set_TLR2_CodeBIC' 'Toutes fonctions'
{value <Chaine> avecPropagation <Booléen>}
    --Création : 24/05/2011 14:46:39 llg-PO15890; Modification : 02/05/2013 16:22:03 llg-PO36696; 
    
    SI contactExportes ALORS
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ET element.estBanqueTLR2 ALORS
    			SI avecPropagation ALORS
    				element.CodeBIC	!=	value
    			SINON
    				element.CodeBIC	:=	value
    			FIN SI
    			commit{element}
    		FIN SI
    	FIN FAIRE
    SINON
    	dossier!{'TLR2_CodeBIC'}chaine	:=	value
    FIN SI
###
'set_TLR3_IBAN' 'Toutes fonctions'
{value <Chaine> avecPropagation <Booléen>}
    --Création : 24/05/2011 14:46:39 llg-PO15890; Modification : 02/05/2013 16:22:03 llg-PO36696; 
    
    SI contactExportes ALORS
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ET element.estBanqueTLR3 ALORS
    			SI avecPropagation ALORS
    				element.IBAN	!=	value
    			SINON
    				element.IBAN	:=	value
    			FIN SI
    			commit{element}
    		FIN SI
    	FIN FAIRE
    SINON
    	dossier!{'TLR3_IBAN'}chaine	:=	value
    FIN SI
###
'set_TLR3_CodeBIC' 'Toutes fonctions'
{value <Chaine> avecPropagation <Booléen>}
    --Création : 24/05/2011 14:46:39 llg-PO15890; Modification : 02/05/2013 16:22:03 llg-PO36696; 
    
    SI contactExportes ALORS
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ET element.estBanqueTLR3 ALORS
    			SI avecPropagation ALORS
    				element.CodeBIC	!=	value
    			SINON
    				element.CodeBIC	:=	value
    			FIN SI
    			commit{element}
    		FIN SI
    	FIN FAIRE
    SINON
    	dossier!{'TLR3_CodeBIC'}chaine	:=	value
    FIN SI
###
'set_TLR1_compte' 'Toutes fonctions'
{value <Chaine> avecPropagation <Booléen>}
    --Création : 24/05/2011 14:46:39 llg-PO15890; Modification : 02/05/2013 16:22:03 llg-PO36696; 
    
    
    
    
    
    
    
    SI contactExportes ALORS
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ET element.estBanqueTLR1 ALORS
    			SI avecPropagation ALORS
    				element.NumeroCompte	!=	value
    			SINON
    				element.NumeroCompte	:=	value
    			FIN SI
    			commit{element}
    		FIN SI
    	FIN FAIRE
    SINON
    	dossier!{'TLR1_compte'}chaine	:=	value
    FIN SI
###
'set_TLR1_etab' 'Toutes fonctions'
{value <Chaine> avecPropagation <Booléen>}
    --Création : 24/05/2011 14:46:39 llg-PO15890; Modification : 02/05/2013 16:22:03 llg-PO36696; 
    
    
    
    
    
    
    
    SI contactExportes ALORS
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ET element.estBanqueTLR1 ALORS
    			SI avecPropagation ALORS
    				element.CodeBanque	!=	value
    			SINON
    				element.CodeBanque	:=	value
    			FIN SI
    			commit{element}
    		FIN SI
    	FIN FAIRE
    SINON
    	dossier!{'TLR1_etab'}chaine	:=	value
    FIN SI
###
'set_TLR1_guichet' 'Toutes fonctions'
{value <Chaine> avecPropagation <Booléen>}
    --Création : 24/05/2011 14:46:39 llg-PO15890; Modification : 02/05/2013 16:22:03 llg-PO36696; 
    
    
    
    
    
    
    
    SI contactExportes ALORS
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ET element.estBanqueTLR1 ALORS
    			SI avecPropagation ALORS
    				element.CodeGuichet	!=	value
    			SINON
    				element.CodeGuichet	:=	value
    			FIN SI
    			commit{element}
    		FIN SI
    	FIN FAIRE
    SINON
    	dossier!{'TLR1_guichet'}chaine	:=	value
    FIN SI
###
'set_TLR2_cle' 'Toutes fonctions'
{value <Chaine> avecPropagation <Booléen>}
    --Création : 24/05/2011 14:46:39 llg-PO15890; Modification : 02/05/2013 16:22:03 llg-PO36696; 
    
    
    
    
    
    
    
    SI contactExportes ALORS
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ET element.estBanqueTLR2 ALORS
    			SI avecPropagation ALORS
    				element.CleRIB	!=	value
    			SINON
    				element.CleRIB	:=	value
    			FIN SI
    			commit{element}
    		FIN SI
    	FIN FAIRE
    SINON
    	dossier!{'TLR2_cle'}chaine	:=	value
    FIN SI
###
'set_TLR2_compte' 'Toutes fonctions'
{value <Chaine> avecPropagation <Booléen>}
    --Création : 24/05/2011 14:46:39 llg-PO15890; Modification : 02/05/2013 16:22:03 llg-PO36696; 
    
    
    
    
    
    
    
    SI contactExportes ALORS
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ET element.estBanqueTLR2 ALORS
    			SI avecPropagation ALORS
    				element.NumeroCompte	!=	value
    			SINON
    				element.NumeroCompte	:=	value
    			FIN SI
    			commit{element}
    		FIN SI
    	FIN FAIRE
    SINON
    	dossier!{'TLR2_compte'}chaine	:=	value
    FIN SI
###
'set_TLR2_etab' 'Toutes fonctions'
{value <Chaine> avecPropagation <Booléen>}
    --Création : 24/05/2011 14:46:39 llg-PO15890; Modification : 02/05/2013 16:22:03 llg-PO36696; 
    
    
    
    
    
    
    
    SI contactExportes ALORS
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ET element.estBanqueTLR2 ALORS
    			SI avecPropagation ALORS
    				element.CodeBanque	!=	value
    			SINON
    				element.CodeBanque	:=	value
    			FIN SI
    			commit{element}
    		FIN SI
    	FIN FAIRE
    SINON
    	dossier!{'TLR2_etab'}chaine	:=	value
    FIN SI
###
'set_TLR2_guichet' 'Toutes fonctions'
{value <Chaine> avecPropagation <Booléen>}
    --Création : 24/05/2011 14:46:39 llg-PO15890; Modification : 02/05/2013 16:22:03 llg-PO36696; 
    
    
    
    
    
    
    
    SI contactExportes ALORS
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ET element.estBanqueTLR2 ALORS
    			SI avecPropagation ALORS
    				element.CodeGuichet	!=	value
    			SINON
    				element.CodeGuichet	:=	value
    			FIN SI
    			commit{element}
    		FIN SI
    	FIN FAIRE
    SINON
    	dossier!{'TLR2_guichet'}chaine	:=	value
    FIN SI
###
'set_TLR3_cle' 'Toutes fonctions'
{value <Chaine> avecPropagation <Booléen>}
    --Création : 24/05/2011 14:46:39 llg-PO15890; Modification : 02/05/2013 16:22:04 llg-PO36696; 
    
    
    
    
    
    
    
    SI contactExportes ALORS
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ET element.estBanqueTLR3 ALORS
    			SI avecPropagation ALORS
    				element.CleRIB	!=	value
    			SINON
    				element.CleRIB	:=	value
    			FIN SI
    			commit{element}
    		FIN SI
    	FIN FAIRE
    SINON
    	dossier!{'TLR3_cle'}chaine	:=	value
    FIN SI
###
'set_TLR3_compte' 'Toutes fonctions'
{value <Chaine> avecPropagation <Booléen>}
    --Création : 24/05/2011 14:46:39 llg-PO15890; Modification : 02/05/2013 16:22:04 llg-PO36696; 
    
    
    
    
    
    
    
    SI contactExportes ALORS
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ET element.estBanqueTLR3 ALORS
    			SI avecPropagation ALORS
    				element.NumeroCompte	!=	value
    			SINON
    				element.NumeroCompte	:=	value
    			FIN SI
    			commit{element}
    		FIN SI
    	FIN FAIRE
    SINON
    	dossier!{'TLR3_compte'}chaine	:=	value
    FIN SI
###
'set_TLR3_etab' 'Toutes fonctions'
{value <Chaine> avecPropagation <Booléen>}
    --Création : 24/05/2011 14:46:39 llg-PO15890; Modification : 02/05/2013 16:22:04 llg-PO36696; 
    
    
    
    
    
    
    
    SI contactExportes ALORS
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ET element.estBanqueTLR3 ALORS
    			SI avecPropagation ALORS
    				element.CodeBanque	!=	value
    			SINON
    				element.CodeBanque	:=	value
    			FIN SI
    			commit{element}
    		FIN SI
    	FIN FAIRE
    SINON
    	dossier!{'TLR3_etab'}chaine	:=	value
    FIN SI
###
'set_TLR3_guichet' 'Toutes fonctions'
{value <Chaine> avecPropagation <Booléen>}
    --Création : 24/05/2011 14:46:39 llg-PO15890; Modification : 02/05/2013 16:22:04 llg-PO36696; 
    
    
    
    
    
    
    
    SI contactExportes ALORS
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ET element.estBanqueTLR3 ALORS
    			SI avecPropagation ALORS
    				element.CodeGuichet	!=	value
    			SINON
    				element.CodeGuichet	:=	value
    			FIN SI
    			commit{element}
    		FIN SI
    	FIN FAIRE
    SINON
    	dossier!{'TLR3_guichet'}chaine	:=	value
    FIN SI
###
'set_adhesionEditva' 'Toutes fonctions'
{value <Date> avecPropagation <Booléen>}
    --Création : 24/05/2011 14:46:39 llg-PO15890; Modification : 03/10/2013 17:06:34 llg-PO36696; 
    
    
    
    
    
    
    
    SI contactExportes ALORS
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'SIE' ALORS
    			element.adhesionEditva	:=	value
    			commit{element}
    		FIN SI
    	FIN FAIRE
    SINON
    	dossier!{'adhesionEditva'}date	:=	value
    FIN SI
###
'set_NumeroRCS' 'Toutes fonctions'
{value <Chaine> avecPropagation <Booléen>}
    --Création : 24/05/2011 14:46:39 llg-PO15890; Modification : 20/12/2013 11:56:06 sja-PC101042; 
    
    
    SI contactExportes ALORS
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Dossier' ALORS
    			SI avecPropagation ALORS
    				element.NumeroRCS	!=	value
    			SINON
    				element.NumeroRCS	:=	value
    			FIN SI
    			commit{element}
    		FIN SI
    	FIN FAIRE
    SINON
    	SI avecPropagation ALORS
    		dossier.{'NumeroRCS'}chaine	!=	value
    	SINON
    		dossier.{'NumeroRCS'}chaine	:=	value
    	FIN SI
    FIN SI
###
'set_Ape' 'Toutes fonctions'
{value <Chaine> avecPropagation <Booléen>}
    --Création : 24/05/2011 14:46:39 llg-PO15890; Modification : 02/05/2013 16:22:04 llg-PO36696; 
    
    
    
    
    
    
    
    |
    	pers<Objet>
    |
    
    pers	::=	'Personne'
    
    SI contactExportes ALORS
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Dossier' ALORS
    			pers	:=	element.personne
    			SI pers <> ? ALORS
    				SI avecPropagation ALORS
    					pers.Ape	!=	value
    				SINON
    					pers.Ape	:=	value
    				FIN SI
    				commit{pers}
    			FIN SI
    		FIN SI
    	FIN FAIRE
    SINON
    	SI avecPropagation ALORS
    		dossier.{'Ape'}chaine	!=	value
    	SINON
    		dossier.{'Ape'}chaine	:=	value
    	FIN SI
    FIN SI
###
'set_NumTVAIntra' 'Toutes fonctions'
{value <Chaine> avecPropagation <Booléen>}
    --Création : 24/05/2011 14:46:39 llg-PO15890; Modification : 20/12/2013 15:43:00 llg-PO36696; 
    
    
    
    
    
    
    
    SI contactExportes ALORS
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'SIE' ALORS
    			SI element.personne <> ? ALORS			
    				element.NumTVAIntra	:=	value
    				commit{element}
    			FIN SI
    		FIN SI
    	FIN FAIRE
    SINON
    	dossier!{'NumTVAIntra'}chaine	:=	value
    FIN SI
###
'reexporterLesContacts' 'Toutes fonctions'
    --Création : 30/07/2012 09:34:05 llg-PO36696; Modification : 02/05/2013 16:22:04 llg-PO36696; 
    
    | ancienneDateActivation<Date> reexportSocial<Booléen> nouvelId<Booléen> ficLog<Chaine>
    dte<Date> hre<Chaine> |
    
    nouvelId := FAUX
    reexportSocial := FAUX
    collaborateur ::= ''
    
    SI minuscule{collaborateur.nom} = 'tni' ET minuscule{collaborateur.profil} = 'systeme' ALORS
    	SI NON ouiNon{'Voulez-vous conserver l''identifiant de ce dossier / entité ?'}	ALORS
    		SI paye2Presente	ALORS
    			paye2 ::= CodeDossier
    			SI (paye2 <> ?)	ALORS
    				SI paye2.dateActivationGC <> ?	ALORS
    					ancienneDateActivation := paye2.dateActivationGC		
    					SI ouiNon{'Attention.

Ce dossier contient de la paye avec des contacts exportés.
Si vous souhaitez modifier l''identifiant de ce dossier, vous devrez impérativement invalider puis calculer les bulletins de ce dossier à partir du '+ancienneDateActivation+'.

Voulez-vous continuer ?
'}					ALORS
    						reexportSocial := VRAI
    						nouvelId := VRAI
    					FIN SI
    				SINON
    					nouvelId := VRAI
    				FIN SI
    			FIN SI
    		SINON
    			nouvelId := VRAI
    		FIN SI
    	FIN SI
    FIN SI
    
    supprimerContacts{reexportSocial}[finDeMois{aujourdhui{}}]
    
    SI nouvelId ALORS
    	dossier.sGuid := chaine{guid{}, 2, 37}
    FIN SI
    
    ExportNouveauxContacts{}[finDeMois{aujourdhui{}}]
    SI (reexportSocial)	ALORS
    	paye2.dateActivationGC := ?
    	paye2.majDateActivationGC{CodeDossier, FAUX, VRAI, ancienneDateActivation}
    FIN SI
    --Gestion du patch 4271, le 11/03/13
    SI NON okCopierColler ALORS okCopierColler	:=	VRAI FIN SI
    commit{}
    
    VoirNouveauxContacts{}[finDeMois{aujourdhui{}}]
    
    ficLog		:=	racine{}+'\local\contacts\reexport.log'
    dte	:=	aujourdhui{}
    hre	:=	'hh:mm:ss'
    hre	:=	formaterHeure{hre, heure{}}
    fichierEcriture{ficLog, 3}
    ecrire{dte+' '+hre+'	'+collaborateur.nom+'	'+dossier.CodeDossier+'
'}
    fichierEcriture{''}

   	LogContacts{'Rejouer l''export des contacts non sociaux du dossier', 'dossier.reexporterLesContacts', RaisonSociale + '(' + CodeDossier + ')'}

###
'supprimerTousLesContacts' 'Toutes fonctions'
    --Création : 30/07/2012 09:34:05 llg-PO36696; Modification : 02/05/2013 16:22:04 llg-PO36696; 
    |
    	pers<Objet>listeMongo2<Objet>lstEtb<Objet>etb<Objet>i<Entier>
    |
    
    pers	::=	'Personne'
    etb	::=	'Etablissement'	
    
    POUR TOUT element<Role> DE lstNouveauxContacts
    FAIRE
    	supprimerElement{lstNouveauxContacts, element}
    	supprimer{element}
    FIN FAIRE
    lstEtb	:=	creerListe{}
    POUR TOUT element<Etablissement> DE etablissements FAIRE
    	etb	:=	element
    	ajouterElement{lstEtb, etb}
    FIN FAIRE
    i	:=	1
    TANT QUE i<=nbElements{lstEtb} FAIRE
    	etb	:=	elementDIndice{lstEtb, i}
    	etb.contactExportes	:=	FAUX
    	POUR TOUT element<Role> DE etb.lstNouveauxContacts
    	FAIRE
    		supprimerElement{etb.lstNouveauxContacts, element}
    		supprimer{element}
    	FIN FAIRE
    	i	+=	1
    FIN FAIRE
    contactExportes	:=	FAUX
    commit{}
    VoirNouveauxContacts{}
###
'set_AdrRec1' 'Toutes fonctions'
{value <Chaine> avecPropagation <Booléen>}
    --Création : 24/05/2011 14:46:39 llg-PO15890; Modification : 03/10/2013 17:06:44 llg-PO36696; 
    
    
    
    
    
    
    
    |
    	pers<Objet>
    |
    
    pers	::=	'Personne'
    
    SI contactExportes ALORS
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'SIE' ALORS
    			pers	:=	element.personne
    
    			SI pers <> ? ALORS
    				SI avecPropagation ALORS
    					pers.adresse1	!=	value
    				SINON
    					pers.adresse1	:=	value
    				FIN SI
    			FINSI
    
    			commit{pers}
    		FIN SI
    	FIN FAIRE
    SINON
    	SI avecPropagation ALORS
    		dossier.{'AdrRec1'}chaine	!=	value
    	SINON
    		dossier.{'AdrRec1'}chaine	:=	value
    	FIN SI
    FIN SI
###
'set_CodeBanqueDossier' 'Toutes fonctions'
{value <Chaine> avecPropagation <Booléen>}
    --Création : 24/05/2011 14:46:39 llg-PO15890; Modification : 02/05/2013 16:22:04 llg-PO36696; 
    
    
    
    
    
    
    
    SI contactExportes ALORS
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ET element.estBanquePaye ALORS
    			SI avecPropagation ALORS
    				element.CodeBanque	!=	value
    			SINON
    				element.CodeBanque	:=	value
    			FIN SI
    			commit{element}
    		FIN SI
    	FIN FAIRE
    SINON
    	dossier!{'CodeBanqueDossier'}chaine	:=	value
    FIN SI
###
'set_CPRec' 'Toutes fonctions'
{value <Chaine> avecPropagation <Booléen>}
    --Création : 24/05/2011 14:46:39 llg-PO15890; Modification : 03/10/2013 17:07:15 llg-PO36696; 
    
    
    
    
    
    
    
    |
    	pers<Objet>
    |
    
    pers	::=	'Personne'
    
    SI contactExportes ALORS
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'SIE' ALORS
    			pers	:=	element.personne
    
    			SI avecPropagation ALORS
    				pers.codePostal	!=	value
    			SINON
    				pers.codePostal	:=	value
    			FIN SI
    
    			commit{pers}
    		FIN SI
    	FIN FAIRE
    SINON
    	SI avecPropagation ALORS
    		dossier.{'CPRec'}chaine	!=	value
    	SINON
    		dossier.{'CPRec'}chaine	:=	value
    	FIN SI
    FIN SI
###
'set_DateFin' 'Toutes fonctions'
{value <Date> avecPropagation <Booléen>}
    --Création : 24/05/2011 14:46:39 llg-PO15890; Modification : 02/05/2013 16:22:04 llg-PO36696; 
    
    
    
    
    
    
    
    SI contactExportes ALORS
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Dossier' ALORS
    				SI avecPropagation ALORS
    					element.DateFin	!=	value
    				SINON
    					element.DateFin	:=	value
    				FIN SI
    				commit{element}
    		FIN SI
    	FIN FAIRE
    SINON
    	SI avecPropagation ALORS
    		dossier.{'DateFin'}date	!=	value
    	SINON
    		dossier.{'DateFin'}date	:=	value
    	FIN SI
    FIN SI
###
'set_DateImRCS' 'Toutes fonctions'
{value <Date> avecPropagation <Booléen>}
    --Création : 24/05/2011 14:46:39 llg-PO15890; Modification : 02/05/2013 16:22:04 llg-PO36696; 
    
    
    
    
    
    
    
    SI contactExportes ALORS
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Dossier' ALORS
    				SI avecPropagation ALORS
    					element.DateImRCS	!=	value
    				SINON
    					element.DateImRCS	:=	value
    				FIN SI
    				commit{element}
    		FIN SI
    	FIN FAIRE
    SINON
    	SI avecPropagation ALORS
    		dossier.{'DateImRCS'}date	!=	value
    	SINON
    		dossier.{'DateImRCS'}date	:=	value
    	FIN SI
    FIN SI
###
'set_FaxCdi' 'Toutes fonctions'
{value <Chaine> avecPropagation <Booléen>}
    --Création : 24/05/2011 14:46:39 llg-PO15890; Modification : 11/10/2013 10:49:37 llg-PO36696; 
    
    |
    	pers<Objet>
    |
    
    pers	::=	'Personne'
    
    SI contactExportes ALORS
    --On affecte désormais la valeur du SIE à partir du 01/01/2014
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'SIE' ALORS
    			pers	:=	element.personne
    			SI pers <> ? ALORS
    				SI avecPropagation ALORS
    					pers.fax	!=	value
    				SINON
    					pers.fax	:=	value
    				FIN SI
    				commit{pers}
    			FIN SI
    		FIN SI
    	FIN FAIRE
    SINON
    	SI avecPropagation ALORS
    		dossier.{'FaxCdi'}chaine	!=	value
    	SINON
    		dossier.{'FaxCdi'}chaine	:=	value
    	FIN SI
    FIN SI
###
'set_nbTitres' 'Toutes fonctions'
{value <Entier> avecPropagation <Booléen>}
    --Création : 24/05/2011 14:46:39 llg-PO15890; Modification : 02/05/2013 16:22:04 llg-PO36696; 
    
    
    
    
    
    
    
    SI contactExportes ALORS
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Dossier' ALORS
    				SI avecPropagation ALORS
    					element.nbTitresDossier	!=	value
    				SINON
    					element.nbTitresDossier	:=	value
    				FIN SI
    				commit{element}
    		FIN SI
    	FIN FAIRE
    SINON
    	SI avecPropagation ALORS
    		dossier.{'nbTitres'}entier	!=	value
    	SINON
    		dossier.{'nbTitres'}entier	:=	value
    	FIN SI
    FIN SI
###
'set_NomChefEntr' 'Toutes fonctions'
{value <Chaine> avecPropagation <Booléen>}
    --Création : 24/05/2011 14:46:39 llg-PO15890; Modification : 03/10/2013 17:08:29 llg-PO36696; 
    
    
    
    
    
    
    
    |
    	pers<Objet>
    |
    
    pers	::=	'Personne'
    
    SI contactExportes ALORS
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'SIE' ALORS
    			pers	:=	element.personne
    
    			SI avecPropagation ALORS
    				pers.lastName	!=	value
    			SINON
    				pers.lastName	:=	value
    			FIN SI
    
    			commit{pers}
    		FIN SI
    	FIN FAIRE
    SINON
    	SI avecPropagation ALORS
    		dossier.{'NomChefEntr'}chaine	!=	value
    	SINON
    		dossier.{'NomChefEntr'}chaine	:=	value
    	FIN SI
    FIN SI
###
'set_NomDuCentre' 'Toutes fonctions'
{value <Chaine> avecPropagation <Booléen>}
    --Création : 24/05/2011 14:46:39 llg-PO15890; Modification : 02/05/2013 16:22:04 llg-PO36696; 
    
    
    
    
    
    
    
    |
    	pers<Objet>
    |
    
    pers	::=	'Personne'
    
    SI contactExportes ALORS
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Cga' ALORS
    			pers	:=	element.personne
    			SI pers <> ? ALORS
    				SI avecPropagation ALORS
    					pers.raisonSociale	!=	value
    				SINON
    					pers.raisonSociale	:=	value
    				FIN SI
    				commit{pers}
    			FIN SI
    		FIN SI
    	FIN FAIRE
    SINON
    	SI avecPropagation ALORS
    		dossier.{'NomDuCentre'}chaine	!=	value
    	SINON
    		dossier.{'NomDuCentre'}chaine	:=	value
    	FIN SI
    FIN SI
###
'set_PrenomChefEntr' 'Toutes fonctions'
{value <Chaine> avecPropagation <Booléen>}
    --Création : 24/05/2011 14:46:39 llg-PO15890; Modification : 03/10/2013 17:08:53 llg-PO36696; 
    
    
    
    
    
    
    
    |
    	pers<Objet>
    |
    
    pers	::=	'Personne'
    
    SI contactExportes ALORS
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'SIE' ALORS
    			pers	:=	element.personne
    
    			SI avecPropagation ALORS
    				pers.firstName	!=	value
    			SINON
    				pers.firstName	:=	value
    			FIN SI
    
    			commit{pers}
    		FIN SI
    	FIN FAIRE
    SINON
    	SI avecPropagation ALORS
    		dossier.{'PrenomChefEntr'}chaine	!=	value
    	SINON
    		dossier.{'PrenomChefEntr'}chaine	:=	value
    	FIN SI
    FIN SI
###
'set_TelCdi' 'Toutes fonctions'
{value <Chaine> avecPropagation <Booléen>}
    --Création : 24/05/2011 14:46:39 llg-PO15890; Modification : 11/10/2013 10:49:58 llg-PO36696; 
    
    |
    	pers<Objet>
    |
    
    pers	::=	'Personne'
    
    SI contactExportes ALORS
    --On affecte désormais la valeur du SIE 
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'SIE' ALORS
    			pers	:=	element.personne
    			SI pers <> ? ALORS
    				SI avecPropagation ALORS
    					pers.telephone	!=	value
    				SINON
    					pers.telephone	:=	value
    				FIN SI
    				commit{pers}
    			FIN SI
    		FIN SI
    	FIN FAIRE
    SINON
    	SI avecPropagation ALORS
    		dossier.{'TelCdi'}chaine	!=	value
    	SINON
    		dossier.{'TelCdi'}chaine	:=	value
    	FIN SI
    FIN SI
###
'set_TelRec' 'Toutes fonctions'
{value <Chaine> avecPropagation <Booléen>}
    --Création : 24/05/2011 14:46:39 llg-PO15890; Modification : 03/10/2013 17:08:41 llg-PO36696; 
    
    
    
    
    
    
    
    |
    	pers<Objet>
    |
    
    pers	::=	'Personne'
    
    SI contactExportes ALORS
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'SIE' ALORS
    			pers	:=	element.personne
    
    			SI avecPropagation ALORS
    				pers.telephone	!=	value
    			SINON
    				pers.telephone	:=	value
    			FIN SI
    
    			commit{pers}
    		FIN SI
    	FIN FAIRE
    SINON
    	SI avecPropagation ALORS
    		dossier.{'TelRec'}chaine	!=	value
    	SINON
    		dossier.{'TelRec'}chaine	:=	value
    	FIN SI
    FIN SI
###
'set_valeurNominaleTitre' 'Toutes fonctions'
{value <Monnaie> avecPropagation <Booléen>}
    --Création : 24/05/2011 14:46:39 llg-PO15890; Modification : 02/05/2013 16:22:04 llg-PO36696; 
    
    
    
    
    
    
    
    SI contactExportes ALORS
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Dossier' ALORS
    				SI avecPropagation ALORS
    					element.ValNomTitresEuro	!=	value
    				SINON
    					element.ValNomTitresEuro	:=	value
    				FIN SI
    				commit{element}
    		FIN SI
    	FIN FAIRE
    SINON
    	SI avecPropagation ALORS
    		dossier.{'valeurNominaleTitre'}monnaie	!=	value
    	SINON
    		dossier.{'valeurNominaleTitre'}monnaie	:=	value
    	FIN SI
    FIN SI
###
'set_VilleRec' 'Toutes fonctions'
{value <Chaine> avecPropagation <Booléen>}
    --Création : 24/05/2011 14:46:39 llg-PO15890; Modification : 03/10/2013 17:09:36 llg-PO36696; 
    
    
    
    
    
    
    
    |
    	pers<Objet>
    |
    
    pers	::=	'Personne'
    
    SI contactExportes ALORS
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'SIE' ALORS
    			pers	:=	element.personne
    
    			SI avecPropagation ALORS
    				pers.ville	!=	value
    			SINON
    				pers.ville	:=	value
    			FIN SI
    
    			commit{pers}
    		FIN SI
    	FIN FAIRE
    SINON
    	SI avecPropagation ALORS
    		dossier.{'VilleRec'}chaine	!=	value
    	SINON
    		dossier.{'VilleRec'}chaine	:=	value
    	FIN SI
    FIN SI
###
'set_dossierSageOne' 'Toutes fonctions'
{value <Chaine> avecPropagation <Booléen>}
    --Création : 24/05/2011 14:46:39 llg-PO15890; Modification : 03/10/2013 17:09:36 llg-PO36696; 
    
    |
    	pers<Objet>
    |
    
    pers	::=	'Personne'
    
	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
		SI element.type = 'Dossier' ALORS
			pers	:=	element.personne
			SI pers <> ? ALORS
				SI avecPropagation ALORS
					pers.dossierSageOne	!=	value
				SINON
					pers.dossierSageOne	:=	value
				FIN SI
				commit{pers}
			FIN SI
		FIN SI
	FIN FAIRE

###
'moulinetteReexportAssocies' 'Toutes fonctions'
    --Création : 16/10/2012 09:12:44 llg-PO36696; Modification : 02/05/2013 16:22:04 llg-PO36696; 
    |
    	rol<Objet>pers<Objet>lstDates<Objet>lstPers<Objet>lstRoles<Objet>
    |
    
    rol	::=	'Role'
    pers	::=	'Personne'
    
    debug{'Reexport des associes pour le dossier '+nomDossier+' ('+CodeDossier+')'}
    
    lstPers	:=	lireObjet{'/mongo/Personne'}
    SI lstPers<> ? ALORS
    	info{' AVANT NB Personnes : '+nbElements{lstPers}}
    FIN SI
    
    lstRoles	:=	lireObjet{'/mongo/Role'}
    SI lstRoles <> ? ALORS
    	info{' AVANT NB Roles : '+nbElements{lstRoles}}
    FIN SI
    
    POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    	SI element <> ? ET element.type = 'Associe' ALORS
    		lstDates	:=	datesHistorique{element, 'personne'}
    		SI lstDates<> ? ALORS
    
    			supprimer{element}
    		FIN SI
    		--On supprime
    	FIN SI
    FIN FAIRE
    
    lstPers	:=	lireObjet{'/mongo/Personne'}
    info{' APRES NB Personnes : '+nbElements{lstPers}}
    
    lstRoles	:=	lireObjet{'/mongo/Role'}
    info{' APRES NB Roles : '+nbElements{lstRoles}}
###
'reexporterLesContacts2' 'Toutes fonctions'
{social <Booléen>}
    --Création : 30/07/2012 09:34:05 llg-PO36696; Modification : 02/05/2013 16:22:04 llg-PO36696; 
    
    | ficLog<Chaine> dte<Date> hre<Chaine> |
    
    collaborateur ::= ''
    
    supprimerContacts{social}[finDeMois{aujourdhui{}}]
    ExportNouveauxContacts{}[finDeMois{aujourdhui{}}]
    
    ficLog		:=	racine{}+'\local\contacts\reexport.log'
    dte	:=	aujourdhui{}
    hre	:=	'hh:mm:ss'
    hre	:=	formaterHeure{hre, heure{}}
    fichierEcriture{ficLog, 3}
    ecrire{dte+' '+hre+'	'+collaborateur.nom+'	'+dossier.CodeDossier+'
'}
    fichierEcriture{''}

   	LogContacts{'Rejouer l''export des contacts non sociaux pour tous les dossiers', 'dossier.reexporterLesContacts2', RaisonSociale + '(' + CodeDossier + ')'}

###
'getContactDossierPersonneJson' 'Toutes fonctions'
    --Création : 26/10/2012 10:55:27 mld-PC016496BIS; Modification : 05/09/2014 12:00:19 ylv-PC100383; 
    
    | 
        contacts<Objet> o<Objet> i<Entier> persDossier<Objet>pers<Objet>
    |
    
    persDossier ::= 'Personne'
    persDossier := ?
    pers ::= 'Personne'
    debug{'getContactDossierJson'}
    
    SI infoFichier{repertoire + '\contacts.json'} = 'absent' ALORS SORTIR persDossier FINSI
    contacts := lireObjet{repertoire + '\contacts.json'}
    SI contacts = ? ALORS message{repertoire + '\contacts.json corrompu'} SORTIR persDossier FINSI
    
    i := 1
    TANT QUE i <= nbElements{contacts} FAIRE
        o := contacts.[i]
        SI classe{o} = 'Personne' ALORS
            pers := o
            SI pers.rolesPredefinis = '|Dossier|' ALORS
                persDossier := lireObjet{'/mongo/Personne/'+pers._id}
                --Quid si elle n'existe plus du tout...
            FIN SI
        FINSI
        i += 1
    FIN FAIRE
    
    LogContacts{'Personne Dossier retrouvée dans le fichier contacts.json'+persDossier._id, 'getContactDossierPersonneJson', RaisonSociale + ' (' + CodeDossier + ')'}
    
    SORTIR persDossier
###
'reimporterContacts' 'Toutes fonctions'
{modeForcage <Booléen>}
    --Création : 26/10/2012 10:55:27 mld-PC016496BIS; Modification : 05/09/2014 12:00:19 ylv-PC100383; 
    
    | 
    	contacts<Objet> o<Objet> uid<Objet> uidLocal<Objet> i<Entier> importer<Booléen>chemin<Chaine>lstClones<Objet>
    |
    
    uid                 ::=	'Uid'
    uidLocal		    ::=	'Uid'

    debug{'reimporterContacts'}
    
    SI infoFichier{repertoire + '\contacts.json'} = 'absent' ALORS SORTIR FAUX FINSI
    contacts := lireObjet{repertoire + '\contacts.json'}
    SI contacts = ? ALORS message{repertoire + '\contacts.json corrompu'} SORTIR FAUX FINSI
    
    importer := FAUX
    uid := ?
    i := 1
    TANT QUE i <= nbElements{contacts} FAIRE
    	o := contacts.[i]
    	SI classe{o} = 'Uid' ALORS
    		uid := o
        FIN SI
    	i += 1
    FIN FAIRE
    
    contacts := lireObjet{'/mongo/Uid'}
    SI nbElements{contacts} < 1 ALORS SORTIR FAUX FINSI
    
    uidLocal := contacts.[1]
    
    SI uid = ? ALORS
    	SORTIR FAUX
    FINSI
    
    SI uidLocal.uid = uid.uid ALORS
    	--Retrait du SORTIR FAUX pour le cas des dossiers couper/recoller  avec outils de maintenance qui a supprime les contacts du dossier supprime
    	--ou gestion du cas : archiver / restaurer
    	--LLG LE 31/10/13
    	--Mode forcage si aucun role
    	--LLG LE 29/01/14 : MIS EN COMMENTAIRE POUR SAUVEGARDER/RESTAURER	
    	SI NON modeForcage ALORS
    		SORTIR FAUX
    	FIN SI
    FINSI
    
    LogContacts{'Changement d''uid : ' + uid.uid + ' -> ' + uidLocal.uid, 'reimporterContacts', RaisonSociale + ' (' + CodeDossier + ')'}
    
    chemin := nomLogique{repertoire}
    chemin := substituerCaracteres{chemin, '\', '|'}
    debug{'lireObjet{''/sdata/coala/restoreDossier(' + chemin + ')}'}
    lstClones	:=	lireObjet{'/sdata/coala/restoreDossier(''' + chemin + ''')'}
    SI lstClones = ? ALORS
    	debug{'Echec de la réintégration'}
    SINON
    	debug{'Réintégration OK'}
    	SI nbElements{lstClones} >= 1 ALORS
    		info{'Nous avons détecté que ce dossier ('+CodeDossier+') a été copié/collé (ou sauvegardé/restauré)
et que des contacts ont été modifiés par rapport à ceux qui étaient connus avant l''action de coller (ou restaurer).
Merci de vérifier l''exactitude des contacts de votre dossier.
'}
    		SORTIR VRAI	
    	FIN SI
    FINSI
    
    SORTIR VRAI
###
'TestCopierColler' 'Toutes fonctions'
    --Création : 26/10/2012 11:22:40 mld-PC016496BIS; Modification : 30/04/2015 09:11:22 scr-PC101399; 
    
    |
    	roles<Objet> jsonContacts<Chaine> roleDossier<Objet> clone<Objet> objPers<Objet>nomLogiqueRep<Chaine> ancExternalId<Chaine>datesHisto<Objet>ii<Entier>nb<Entier>
    	clonePers<Objet>idSau<Chaine>dte<Date>ancGuid<Chaine> etatDossier<Chaine>
    	ngc<Objet> guidMap<Objet>persTmp<Objet>onClone<Booléen>
        archivageBloque<Booléen>persContactsJson<Objet>
    |

    okCopierColler	:=	VRAI
    
    SI cabinet.partenaireCoala='CMB' ALORS
    	SORTIR VRAI
    FIN SI
    ngc		::=	'EditeurNouvelleGestionContacts'
    persTmp	::=	'Personne'
    roleDossier	::=	'Role'
    clone		::=	'Role'
    clonePers	::=	'Personne'
    objPers		::=	'Personne'
    persContactsJson ::= 'Personne'
    
    site ::= ''
    SI site.estDeconnecte ALORS SORTIR VRAI FINSI
    
    -- En mode CoalaHttp on arrête tout de suite
    SI sysInfo{'portHttp'} = '0' ALORS SORTIR VRAI FINSI
    
    etatDossier := etatCluster{repertoire + '\dp\dp'}
    SI etatDossier <> 'ouvert' ET etatDossier <> 'libre' ALORS
    	debug{'Souci SORTIR FAUX : etatDossier : '+etatDossier+ ' '+locker{repertoire+'\dp\dp'}}
    	SORTIR FAUX
    FINSI
    
    jsonContacts := repertoire + '\contacts.json'
    
    ngc	:=	creer{'EditeurNouvelleGestionContacts'}
    
    SI NON contactExportes ALORS
    	ancGuid	:=	sGuid
    	sGuid := chaine{guid{}, 2, 37}
    	ngc.logModifContacts{'Chgt Guid -  Contacts non exportés. Export. '+ancGuid+' - '+sGuid, 'Copier/Coller', RaisonSociale+' ('+CodeDossier+')', ''}
    	ExportNouveauxContacts{}
    	commit{}
    SINON
    	roles := lireObjet{'/mongo/Role?where=type eq ''Dossier'' and idEtablissement eq ''' + sGuid + ''''}
    	SI roles = ? ALORS
    		-- L'accès aux contacts est impossible => ne rien faire
    		SORTIR VRAI
    	FINSI
    	-- Contatener roles + lireObjet{} pour chaque établissement
    	SI reimporterContacts{FAUX} ALORS
    		ngc.logModifContacts{'RéImporter Contacts', 'Copier/Coller', RaisonSociale+' ('+CodeDossier+')', ''}
    
    	SINON SI nbElements{roles} = 0 ALORS
    		SI reimporterContacts{VRAI} ALORS
    		SINON	
    			okCopierColler	:=	FAUX
    			ngc.logModifContacts{'Nombre de rôles = 0', 'Copier/Coller', RaisonSociale+' ('+CodeDossier+')', ''}
    			message{'Les contacts du dossier '+CodeDossier+' ne semblent pas présents. 
Veuillez contacter impérativement l''assistance.'}
    		FIN SI
    	SINON
    		roleDossier := roles.[1]
    
    		--Vu sur le parc le 07/12/12, visiblement la personne attache au role est nulle
    		--Proposition : on réexporte la personne et on l'affecte au role present
    		objPers		:=	roleDossier.personne
    		SI objPers = ? ALORS
    			objPers := creer{'Personne', '/mongo/Personne'}
    		FIN SI
    		objPers.role	:=	roleDossier
    		SI objPers._id = ? ALORS
    			SI enDev{'Contacts'} ALORS
    				info{'Personne nulle...Attention, reexport de la personne'}
    			SINON
    				message{'Personne nulle...Attention, reexport de la personne'}
    			FIN SI
                --On tente une recuperation du contact dossier du fichier contacts.json avant de rejouer un export du dp
                persContactsJson := getContactDossierPersonneJson{}
                SI persContactsJson  = ? ALORS
                    debug {'Reexport depuis le dp'}
    			    roleDossier.majRoleDossier{dossier}
                    objPers :=  roleDossier.personne
                SINON
                    debug {'Personne retrouvée depuis le fichier contacts.json : '+persContactsJson._id+' - '+persContactsJson.fullName+' - '+persContactsJson.siren}
                    roleDossier.personne[1.1.2000] := persContactsJson
                    objPers := roleDossier.personne
                FIN SI
    			SI enDev{'Contacts'} ALORS
    				info{'Fin reexport... Il faudra peut etre reouvrir le dp pour voir les modifs...'}
    			SINON
    				message{'Fin reexport... Il faudra peut etre reouvrir le dp pour voir les modifs...'}
    			FIN SI
    			ngc.logModifContacts{'Mise a jour du role Dossier (personne rejouee)', 'Copier/Coller', RaisonSociale+' ('+CodeDossier+')', ''}
    
    			commit{roleDossier}
    		SINON
    			--Pour pallier au copier/coller d'un groupe de dossiers sur un autre MAESTRO 313938
    			SI objPers.guidDossierOuEtablissement <> sGuid ALORS
    				debug{'MAJ Personne Dossier guidDossierOuEtablissement'}
    				objPers.guidDossierOuEtablissement :=	sGuid
    				commit{objPers}
    			FIN SI
    		FIN SI
    
    
    		-- TODO : copier/coller ou couper/coller ?
    		nomLogiqueRep	:=	'#'+nomLogique{repertoire}
    		ancExternalId	:=	groupe + '/' + CodeDossier 
    		SI roleDossier.externalId = ? OU taille{roleDossier.externalId} = 0 ALORS
    			roleDossier.externalId := nomLogiqueRep
    			ngc.logModifContacts{'ExternalId = ? ou taille 0', 'Copier/Coller', RaisonSociale+' ('+CodeDossier+')', ''}
    			commit{roleDossier}
    
    		SINON
    			SI taille{roleDossier.externalId} >= 1 ALORS
    				SI chaine{roleDossier.externalId, 1, 1} <> '#' ALORS
    					roleDossier.externalId := nomLogiqueRep
    					commit{roleDossier}
    				FIN SI
    			FIN SI
    		FINSI
    
    		SI classe{dossier} = 'Cabinet' ALORS
    			SI roleDossier.estEntite <> VRAI ALORS
    				roleDossier.estEntite	:=	VRAI
    				ngc.logModifContacts{'Renseignement spécificité entite', 'MAJ Entite', RaisonSociale+' ('+CodeDossier+')', ''}
    				commit{roleDossier}
    			FIN SI
    		FIN SI
    		
    		SI roleDossier.externalId = nomLogiqueRep ALORS
    			-- rien à faire
    		SINON
    			-- Dupliquer les rôles du dossier
    			--Blinde le code pour l'acces concurrent
    			SI NON estModifiable{dossier} ALORS 
    				ngc.logModifContacts{'Duplication des rôles impossible car le dossier est déjà en cours de modification.', 'Copier/Coller', RaisonSociale+' ('+CodeDossier+')', ''}
    				SORTIR FAUX 
    			FIN SI
    
    			guidMap := creerDictionnaire{}
    			roles := lireObjet{'/mongo/Role?where=idEtablissement eq ''' + sGuid + ''''}
    			ancGuid	:=	sGuid
    			sGuid := chaine{guid{}, 2, 37}
    			ngc.logModifContacts{'Duplication des rôles. '+ancGuid+' - '+sGuid, 'Copier/Coller', RaisonSociale+' ('+CodeDossier+')', ''}
    debug{'TestCopierColler : Duplication des rôles et des personnes.... Attention aux collaborateurs cabinet et/ou collaborateurs'}
    			POUR TOUT element<Role> DE roles FAIRE
    				clone := creer{'Role', '/mongo/Role'}
    				idSau	:=	clone._id
    				recopierValeurs{element, clone}
    				clone._id 	:=	idSau
    				cleValeur{guidMap, element._id, idSau}
    				clone.idEtablissement := sGuid
    				SI clone.type = 'Dossier' ALORS
    					clone.externalId := nomLogiqueRep
    				FINSI
    
    				datesHisto	:=	datesHistorique{element, 'personne'}
    				SI element.personne[1.1.1901] <> ? ALORS ajouterElement{datesHisto, entier{2.1.1901}, 1} FIN SI 
    				ii	:=	1
    				nb	:=	nbElements{datesHisto}
    				TANT QUE ii <= nb FAIRE
    					dte	:=	elementEntierDIndice{datesHisto, ii}
    					SI element.personne[dte] <> ? ALORS
    						persTmp	:=	element.personne[dte]
    
    						onClone	:=	FAUX--VRAI
    						SI element.type = 'Dossier' ALORS
    							onClone	:=	VRAI
    						FIN SI
    
    						SI onClone ALORS
    							clonePers	:=	creer{'Personne', '/mongo/Personne'}
    							idSau	:=	clonePers._id
    							recopierValeurs{element.personne[dte], clonePers}
    							clonePers._id 	:=	idSau
    							clone.personne[dte]	!=	clonePers
    						SINON
    							clone.personne[dte]	:=	persTmp
    						FIN SI
    					SINON
    						clone.personne[dte]	!=	?
    					FIN SI
    					ii	+=	1
    				FIN FAIRE
    			FIN FAIRE
    			-- Dupliquer les rôles des etablissements
    			POUR TOUT etablissement FAIRE
    				roles := lireObjet{'/mongo/Role?where=idEtablissement eq ''' + etablissement.sGuid + ''''}
    				ancGuid	:=	etablissement.sGuid
    				etablissement.sGuid := chaine{guid{}, 2, 37}
    				ngc.logModifContacts{'Duplication des rôles établissement. '+ancGuid+' - '+etablissement.sGuid, 'Copier/Coller', etablissement.nomEtablissement, ''}
    
    				POUR TOUT element<Role> DE roles FAIRE
    					clone := creer{'Role', '/mongo/Role'}
    					idSau	:=	clone._id
    					recopierValeurs{element, clone}
    					clone._id := idSau
    					cleValeur{guidMap, element._id, clone._id}
    					clone.idEtablissement := etablissement.sGuid
    					SI clone.type = 'Etablissement' ALORS
    						clone.externalId := nomLogiqueRep+'\etab='+etablissement!{'code'}chaine
    					FINSI
    
    					datesHisto	:=	datesHistorique{element, 'personne'}
    					SI element.personne[1.1.1901] <> ? ALORS ajouterElement{datesHisto, entier{2.1.1901}, 1} FIN SI 
    					ii	:=	1
    					nb	:=	nbElements{datesHisto}
    					TANT QUE ii <= nb FAIRE
    						dte	:=	elementEntierDIndice{datesHisto, ii}
    						SI element.personne[dte] <> ? ALORS
    							persTmp	:=	element.personne[dte]
    
    							onClone	:=	FAUX--VRAI
    
    							SI element.type = 'Etablissement' ALORS
    								onClone	:=	VRAI
    							FIN SI
    
    							SI onClone ALORS
    								clonePers	:=	creer{'Personne', '/mongo/Personne'}
    								idSau	:=	clonePers._id
    								recopierValeurs{element.personne[dte], clonePers}
    								clonePers._id 	:=	idSau
    								clone.personne[dte]	!=	clonePers
    							SINON
    								clone.personne[dte]	:=	persTmp
    							FIN SI
    						SINON
    							clone.personne[dte]	!=	?
    						FIN SI
    						ii	+=	1
    					FIN FAIRE
    				FIN FAIRE
    			FIN FAIRE
    			commit{}
    			--Appel de la methode pour migrer l'ancien guid du dossier par le nouveau, car stockage au niveau de la base de donnees Access
    			SI dossier.paye2Presente ALORS
    				paye2	::=	CodeDossier
    				paye2.migrerGuidDossier{guidMap}
    			FIN SI
    			FIN SI
    		FINSI
    	FINSI
    FINSI

    archivageBloque :=  VRAI

    SI NON archivageBloque ALORS
        --ARCHIVAGE des états comptables
        SI lireini{racine{}+'\local\bin\coala.ini', 'ArchivageEtats', 'etatsArchives'} = '1' ET (aEtatsArchives = 0 OU aEtatsArchives = ?)  ALORS
            ecrireini{racine{}+'\local\bin\coala.ini', 'ArchivageEtats' , 'etatsArchives', '0'}
            aEtatsArchives := 0
            info{'Nous constatons que le dossier ' + dossier + ' a été copié ou restauré.
Veuillez relancer le traitement « Archiver les états millésimés de plus de 5 ans », depuis le menu Administration en suivant les pré requis listés dans l''aide en ligne de la mise à jour 6.'}
        FINSI
    FINSI

    SORTIR VRAI
###
'PUT' 'Toutes fonctions'
{req <Objet>}
    --Création : 22/11/2012 16:48:37 gqu-PC15750; Modification : 08/04/2015 18:13:04 llg-PC100391; 
    
    
    | reponse<Objet>uri<Chaine>requete<Objet>
    liste<Objet> |
    
    requete ::= 'RequeteHTTP'
    reponse ::= 'ReponseHTTP'
    requete := req
    uri := requete.url
    
    SI uri#'/compta' ALORS
    	SI dossier.comptabilitePresente ALORS
    		compta	::=	dossier.CodeDossier
    		SI compta <> ? ALORS
    			requete.url := chaine{uri,taille{'/compta'}+1, taille{uri}}
    			SORTIR compta.PUT{req}
    		FIN SI
    	FINSI
    FIN SI
    
    
    reponse := creer{'ReponseHTTP'}
    reponse.NotFound404{}
    
    SORTIR reponse
###
'DELETE' 'Toutes fonctions'
{req <Objet>}
    --Création : 16/01/2009 14:02:30 MLD-MOLED; Modification : 08/04/2015 18:12:22 llg-PC100391; 
    
    
    | reponse<Objet>uri<Chaine>requete<Objet>
    liste<Objet> |
    
    requete ::= 'RequeteHTTP'
    reponse ::= 'ReponseHTTP'
    requete := req
    uri := requete.url
    
    SI uri#'/compta' ALORS
    	SI dossier.comptabilitePresente ALORS
    		compta	::=	dossier.CodeDossier
    		SI compta <> ? ALORS
    			requete.url := chaine{uri,taille{'/compta'}+1, taille{uri}}
    			SORTIR compta.DELETE{req}
    		FIN SI
    	FINSI
    FIN SI
    
    
    reponse := creer{'ReponseHTTP'}
    reponse.NotFound404{}
    
    SORTIR reponse
###
'estActiveLinkUpSilent' 'Toutes fonctions'
    --Création : 18/09/2013 17:41:10 ade-PO101359; Modification : 18/09/2013 17:51:44 ade-PO101359; 
    -- la même chose que "estActiveLinkUp" mais sans info en cas de sortir faux
    
    SI droits{'LinkUp'} < 1 ALORS
    --	info{'Vous n''avez pas  les droits Sage LinkUp Experts.'}
    	SORTIR FAUX
    FIN SI
    
    POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    	SI element.type = 'Dossier' ALORS
    		SI element.estDossierActiveLinkUp ALORS
    			SORTIR VRAI
    		SINON
    /*			info{'Ce dossier n''est pas activé dans Sage LinkUp Experts.
Vous pouvez l''activer dans les paramétrages Contacts du Dossier.'}
*/
    			SORTIR FAUX
    		FINSI
    	FIN SI
    FIN FAIRE
    
    SORTIR FAUX
###
'estDossierActiveLinkUp' 'Toutes fonctions'
    --Création : 19/04/2013 09:24:47 llg-PO36696; Modification : 29/04/2015 14:46:07 llg2-PC100391; 
    --Maestro 309897
    SI droits{'LinkUp'} < 1 ALORS
    	SORTIR FAUX
    FIN SI
    
    POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    	SI element.type = 'Dossier' ALORS
    		SI element.estDossierActiveLinkUp ALORS
    			SORTIR VRAI
    		SINON
    			SORTIR FAUX
    		FINSI
    	FIN SI
    FIN FAIRE
    
    SORTIR FAUX
###
'estDossierEntryLinkUp' 'Toutes fonctions'
    --Création : 19/04/2013 09:24:47 llg-PO36696; Modification : 05/11/2013 10:58:51 llg-PO36696; 
    --Maestro 309897
    SI droits{'LinkUp'} < 1 ALORS
    	SORTIR FAUX
    FIN SI
    
    POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    	SI element.type = 'Dossier' ALORS
    		SI element.estDossierActiveLinkUp ET element.typeContrat = 'ENTRY' ALORS
    			SORTIR VRAI
    		SINON
    			SORTIR FAUX
    		FINSI
    	FIN SI
    FIN FAIRE
    
    SORTIR FAUX
###
'estDossierAdvancedLinkUp' 'Toutes fonctions'
    --Création : 19/04/2013 09:24:47 llg-PO36696; Modification : 29/04/2015 14:46:07 llg2-PC100391; 
    --Maestro 309897
    SI droits{'LinkUp'} < 1 ALORS
    	SORTIR FAUX
    FIN SI
    
    POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    	SI element.type = 'Dossier' ALORS
    		SI element.estDossierActiveLinkUp ET element.typeContrat = 'ADVANCED' ALORS
    			SORTIR VRAI
    		SINON
    			SORTIR FAUX
    		FINSI
    	FIN SI
    FIN FAIRE
    
    SORTIR FAUX
###
'estActiveLinkUp' 'Toutes fonctions'
    --Création : 19/04/2013 09:24:47 llg-PO36696; Modification : 02/05/2013 16:22:05 llg-PO36696; 
    
    SI droits{'LinkUp'} < 1 ALORS
    	info{'Vous n''avez pas  les droits Sage LinkUp Experts.'}
    	SORTIR FAUX
    FIN SI
    
    POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    	SI element.type = 'Dossier' ALORS
    		SI element.estDossierActiveLinkUp ALORS
    			SORTIR VRAI
    		SINON
    			info{'Ce dossier n''est pas activé dans Sage LinkUp Experts.
Vous pouvez l''activer dans les paramétrages Contacts du Dossier.'}
    			SORTIR FAUX
    		FINSI
    	FIN SI
    FIN FAIRE
    
    SORTIR FAUX
###
'estDossierActiveComptaCollaborative' 'Toutes fonctions'
    --Création : 19/04/2013 09:24:47 llg-PO36696; Modification : 29/04/2015 14:46:07 llg2-PC100391; 
    --Maestro 309897
    SI droits{'LinkUp'} < 1 ALORS
    	SORTIR FAUX
    FIN SI
    
    POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    	SI element.type = 'Dossier' ALORS
    		SI element.estDossierActiveComptaCollaborative ALORS
    			SORTIR VRAI
    		SINON
    			SORTIR FAUX
    		FINSI
    	FIN SI
    FIN FAIRE
    
    SORTIR FAUX
###
'Mettre à jour les obligations légales' 'Toutes fonctions'
    --Création : 06/11/2006 16:06:55 ylv-LEVERGE-Y; Modification : 05/09/2014 14:08:17 ylv-PC100383; 
    
    recalculObligationsLegales{dossier.CodeDossier, FAUX}
###
'entrySPCOperatingCompany.old' 'Toutes fonctions'
{flot <Objet> upd <Chaine> fmt <Chaine> destinataire <Chaine>}
    --Création : 14/08/2012 13:01:53 dme-MENEC; Modification : 03/10/2013 14:23:28 sja-PC101042; 
    
    
    
    |
    	ws<Objet> pc<Objet>
    	tmpObjet<Objet>
    	paysCompany<Chaine>
    
    	tmpEntite<Objet>
    	siretEntite<Chaine> address1Entite<Chaine> address2Entite<Chaine> address3Entite<Chaine> zipCodeEntite<Chaine>cityEntite<Chaine> 
    	countryEntite<Chaine> phoneEntite<Chaine> emailEntite<Chaine> websiteEntite<Chaine> faxEntite<Chaine> cellularEntite<Chaine>
    
    	nameCga<Chaine> fullNameCga<Chaine> siretCga<Chaine> address1Cga<Chaine> address2Cga<Chaine> address3Cga<Chaine> zipCodeCga<Chaine>
    	cityCga<Chaine> countryCga<Chaine> phoneCga<Chaine> emailCga<Chaine> websiteCga<Chaine> faxCga<Chaine> cellularCga<Chaine> numeroCga<Chaine> 
    
    	tmpVATSystem<Chaine> tmpVATMethodOnSales<Chaine> tmpVATMethodOnPurchases<Chaine> tmptaxSystem<Chaine>
    
    	tmpVirgule<Booléen> 
    	listeExercices<Objet>
    	dateDebutExercice1<Date> dateFinExercice1<Date>
    	tmpJournal<Chaine>	
    |
    
    ws := flot
    /*
uuid	Identifiant de la société 	Uuid(res : operatingCompany)	Obligatoire			Code société		
name	Nom de la société	String	Obligatoire		Raison sociale 219	Raison sociale		
shortName	Nom court de la société (Numéro dossier SBS)	String	Facultatif			N/A		
identifiers	Identifiants nomenclaturés 	Res : companyIdentifier[]	Facultatif			NAF, RCS, RM, RSEIRL		
reference	Référence de la société	String	Facultatif		N/A	N/A	N/A	
type	Type de la société	String	Facultatif	Forme juridique		Forme juridique	N/A	
address	Adresse postale	Res : postalAddressFacultatifAdresse principale du siège socialAdresse						
currency	Devise de tenue de compte 	String	Obligatoire	Code ISO à 3 caractères	Devise 33	Code monnaie du dossier		
reportingCurrency	Devise de reporting 	String	Facultatif	Code ISO à 3 caractères	N/A	N/A		
phone	Numéro de téléphone principal	Res : phoneNumberFacultatifTéléphone principalTéléphone						
email	Adresse électronique 	Res : emailFacultatifMail principalE-mail 229E-mail						
webSite	Adresse du site web 	String	Facultatif			Site internet		
extras	Données libres 	Res : extra[]	Facultatif		Code Taxe  Langue utilisée	Infos expert-comptable Infos OGA		

*/
    
    ----Recherche des dates de début et fin du 1er exercice
    compta		::=	CodeDossier
    listeExercices		:=	compta.datesFin
    dateFinExercice1	:=	elementEntierDIndice{listeExercices,1}
    listeExercices		:=	compta.datesDebut
    dateDebutExercice1	:=	elementEntierDIndice{listeExercices,1}
    
    exerciceComptable	::=	debutExercice{0}
    tmpObjet		::=	'Personne'
    pc			::=	'PlanComptable'
    pc			:=	exerciceComptable.planComptable
    
    
    -- Recherche informations Dossier
    POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
        	SI element.type = 'Dossier' ALORS
        		tmpObjet	:=	element.personne
    
        		SI tmpObjet <> ? ALORS
        			paysCompany	:=	tmpObjet.nomPays
        		FIN SI
        	FIN SI
    FIN FAIRE
    
    
    -- Recherche informations oga
    POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
        	SI element.type = 'Cga' ALORS
        		tmpObjet	:=	element.personne
    
        		SI tmpObjet <> ? ALORS
    			nameCga	:= tmpObjet.raisonSociale
    			fullNameCga	:= tmpObjet.fullName
    			siretCga 	:= tmpObjet.siret
    			address1Cga 	:= tmpObjet.numero + ' ' + tmpObjet.bister + ' ' + tmpObjet.adresse1
    			address2Cga 	:= tmpObjet.adresse2
    			address3Cga	:= tmpObjet.adresse3
    			zipCodeCga	:= tmpObjet.codePostal
    			cityCga	 	:= tmpObjet.ville
    			countryCga 	:= tmpObjet.nomPays
    			phoneCga 	:= tmpObjet.telephone
    			emailCga 	:= tmpObjet.email
    			websiteCga 	:= tmpObjet.website
    			faxCga	 	:= tmpObjet.fax
    			cellularCga	:= tmpObjet.mobile
    			numeroCga	:= tmpObjet.numeroNational
        		FIN SI
        	FIN SI
    FIN FAIRE
    
    -- Recherche informations entité
    tmpEntite	::=	'Etablissement'
    tmpEntite	:= 	cabinet
    
    POUR TOUT element<Role> DE tmpEntite.lstNouveauxContacts FAIRE
        	SI element.type = 'Dossier' ALORS
        		tmpObjet	:=	element.personne
    
        		SI tmpObjet <> ? ALORS
    			siretEntite 		:=	tmpObjet.siret
    			address1Entite 	:=	tmpObjet.numero + ' ' + tmpObjet.bister + ' ' + tmpObjet.adresse1
    			address2Entite 	:=	tmpObjet.adresse2
    			address3Entite	:=	tmpObjet.adresse3
    			zipCodeEntite		:=	tmpObjet.codePostal
    			cityEntite 		:=	tmpObjet.ville
    			countryEntite 		:=	tmpObjet.nomPays
    			phoneEntite 		:=	tmpObjet.telephone
    			emailEntite 		:=	tmpObjet.email
    			websiteEntite 		:=	tmpObjet.website
    			faxEntite 		:=	tmpObjet.fax
    			cellularEntite		:=	tmpObjet.mobile
        		FIN SI
        	FIN SI
    FIN FAIRE
    
    SI dossier.RegimeTVA # 'Réel Normal*' OU dossier.RegimeTVA # 'Mini-Réel*' ALORS
    	tmpVATSystem	:=	'RR'
    SINON
    	SI dossier.RegimeTVA # 'Réel Simplifié*' OU dossier.RegimeTVA # 'Réel Simpl. Agric.*' ALORS
    		tmpVATSystem	:=	'RS'
    	SINON
    		tmpVATSystem	:=	?
    	FINSI
    FINSI
    
    SI exerciceComptable.typeTVA # 'Débit*' ALORS
    	tmpVATMethodOnSales	:= 'D'
    	tmpVATMethodOnPurchases	:= 'D'
    SINON
    	SI exerciceComptable.typeTVA # 'Encaissement*' ALORS
    		tmpVATMethodOnSales	:= 'E'	
    		tmpVATMethodOnPurchases	:= 'E'
    	SINON
    		SI exerciceComptable.typeTVA # 'Mixte*' ALORS
    			tmpVATMethodOnSales	:= 'D'
    			tmpVATMethodOnPurchases	:= 'D'
    		SINON
    			tmpVATMethodOnSales	:= ?
    			tmpVATMethodOnPurchases	:= ?
    		FINSI
    	FINSI
    FINSI
    
    tmptaxSystem	:=	''
    
    SI StatutFiscal = 'BNC' ALORS
    	tmptaxSystem	:=	'RRBNC'
    SINON
    	SI RegimeFiscal = 'RN'  ALORS
    		tmptaxSystem	:=	'RN'	
    	SINON
    		SI RegimeFiscal = 'RS'  ALORS
    			tmptaxSystem	:=	'RS'
    		FINSI
    	FINSI
    FINSI		
    
    ----------------------------------------------------------
    -- Format json
    ----------------------------------------------------------
    
    SI fmt='json' ALORS
    
    -- $title
    	ws += '{"$title" : "operatingCompany resource",'
    
    -- $updated
    	ws += '"$updated" : '+json{upd}+', '	
    
    -- $uuid
    	-- scr le 12/06/13 : en linkup, pas d'export de l'uuid du dossier pour éviter les interférences avec cute (vu avec Dom et Morgan)
    	SI destinataire <> 'linkup' ALORS
    --info{'LOCAL TEST ALISSA -->'+json{uuid{dossier}}+'<--'}
    		ws += '"$uuid" : '+json{uuid{dossier}}+', '
    	FIN SI
    
    -- $key
    	ws += '"$key" : '+json{dossier.Siren}+', '
    
    -- name
    	ws += '"name" : '+json{codeUTF8{dossier.RaisonSociale}}+', '
    
    -- fullName
    	ws += '"fullName": ' + json{codeUTF8{dossier.RaisonSociale}}+', '
    
    -- address
    	--ws +=  '"address" : " ",'
    
    -- phone
    	SI taille{dossier.Telephone} > 0 ALORS
    		ws += '"phone" : ' + json{dossier.Telephone}+' ,' 
    	FINSI
    
    -- email
    	SI taille{dossier.Email} > 0  ALORS
    		ws += '"email" : ' + json{codeUTF8{dossier.Email}}+','
    	FINSI
    
    -- website
    	SI taille{dossier.SiteWeb} > 0 ALORS
    		ws += '"website" : ' + json{codeUTF8{dossier.SiteWeb}} +','
    	FINSI
    
    -- currency
    	ws += '"currency" : "EUR",'
    
    ---- identifiers
    	tmpVirgule := FAUX
    	SI taille{dossier.Ape} > 0  OU taille{dossier.NumTVAIntra} > 0 OU taille{dossier.Siret} > 0 OU taille{dossier.NumeroRCS} > 0 OU taille{dossier.NumeroRCM} > 0 OU taille{dossier.CGA} > 0 OU taille{dossier.NuméroFrp} > 0 ALORS
    		ws += '"identifiers" : { '
    
    -- identifiers / ape
    		SI taille{dossier.Ape} > 0 ALORS
    			ws += '"ape" : ' + json{dossier.Ape} 
    			tmpVirgule := VRAI
    		FINSI
    		
    -- identifiers / vatNumber
    		SI taille{dossier.NumTVAIntra} > 0 ALORS
    			SI tmpVirgule ALORS
    				ws += ',"vatNumber":  ' + json{dossier.NumTVAIntra}
    			SINON
    				ws += '"vatNumber":  ' + json{dossier.NumTVAIntra}
    			FINSI
    			tmpVirgule := VRAI
    		FINSI
    
    -- identifiers / siret
    		SI taille{dossier.Siret} > 0 ALORS
    			SI tmpVirgule ALORS
    				ws += ',"siret" : ' + json{dossier.Siret}
    			SINON
    				ws += '"siret" : ' + json{dossier.Siret} 
    			FINSI
    			tmpVirgule := VRAI
    		FINSI
    
    -- identifiers / rcs
    		SI taille{dossier.NumeroRCS} > 0 ALORS
    			SI tmpVirgule ALORS 
    				ws +=  ',"rcs" : ' + json{codeUTF8{dossier.NumeroRCS}}
    			SINON
    				ws +=  '"rcs" : ' + json{codeUTF8{dossier.NumeroRCS}}
    			FINSI
    			tmpVirgule := VRAI
    		FINSI
    
    -- identifiers / rm
    		SI taille{dossier.NumeroRCM} > 0 ALORS
    			SI tmpVirgule ALORS 
    				ws += ',"rm" : ' + json{dossier.NumeroRCM} 
    			SINON
    				ws += '"rm" : ' + json{dossier.NumeroRCM}
    			FINSI
    			tmpVirgule := VRAI
    		FINSI
    
    -- identifiers / rseirl
    		--ws += '"rseirl" : " ",'
    
    -- identifiers / oga
    		SI taille{dossier.CGA} > 0 ALORS
    			SI tmpVirgule ALORS 
    				ws +=  ',"oga" : ' + json{dossier.CGA}
    			SINON
    				ws +=  '"oga" : ' + json{dossier.CGA}
    			FINSI
    			tmpVirgule := VRAI
    		FINSI
    
    -- identifiers / frp
    		SI taille{dossier.NuméroFrp} > 0 ALORS
    			SI tmpVirgule ALORS
    				ws += ',"frp" : '  + json{dossier.NuméroFrp}
    			SINON
    				ws += '"frp" : '  + json{dossier.NuméroFrp}
    			FINSI
    		FINSI
    ----  fin identifiers	
    		ws += '},'
    	FINSI
    	
    	-- extras
    	ws += '"extras" : { '
    		-- extras / parameters
    		ws += '"parameters" : { '
    
    		-- extras / parameters / tradingAccountLength
    		ws += '"tradingAccountLength" : ' + exerciceComptable.tailleCodeCompteAux
    		tmpVirgule := VRAI
    
    		-- extras / parameters / financialAccountLentgh
    		ws += ',"financialAccountLength" :' + exerciceComptable.tailleCodeCompte
    
    		-- extras / parameters / financialAccountJournalLength
    		ws += ',"financialAccountJournalLength" : ' + exerciceComptable.tailleCodeJournal
    
    		-- extras / parameters / analyticsAccountLength
    		--ws += ',"analyticsAccountLength" : " "' 
    
    		-- extras / parameters / fiscalDocumentVisibility
    		SI exerciceComptable.fiscalDocumentVisibility ALORS
    			ws += ',"fiscalDocumentVisibility" : 1'
    		SINON
    			ws += ',"fiscalDocumentVisibility" : 0'
    		FINSI
    
    		-- extras / parameters / discountObtainedAccount
    		SI taille{exerciceComptable.discountObtainedAccount} > 0 ALORS
    			ws += ',"discountObtainedAccount" : ' + json{formaterNumeroCompte{pc,exerciceComptable.discountObtainedAccount}}
    		FINSI
    
    		-- extras / parameters / discountGrantedAccount
    		SI taille{exerciceComptable.discountGrantedAccount} > 0 ALORS
    			ws += ',"discountGrantedAccount" : ' + json{formaterNumeroCompte{pc,exerciceComptable.discountGrantedAccount}}
    		FINSI
    
    		-- extras / parameters / extraordinaryIncomes
    		SI taille{exerciceComptable.extraordinaryIncomes} > 0 ALORS
    			ws += ',"extraordinaryIncomes" : ' + json{formaterNumeroCompte{pc,exerciceComptable.extraordinaryIncomes}}
    		FINSI
    
    		-- extras / parameters / extraordinaryCharges
    		SI taille{exerciceComptable.extraordinaryCharges} > 0 ALORS
    			ws += ',"extraordinaryCharges" : ' + json{formaterNumeroCompte{pc,exerciceComptable.extraordinaryCharges}}
    		FINSI
    
    		-- extras / parameters / translationDifferenceAssetAccount
    		--SI taille{exerciceComptable.translationDifferenceAssetAccount} > 0 ALORS
    		--	ws += ',"translationDifferenceAssetAccount" : ' + json{exerciceComptable.translationDifferenceAssetAccount}
    		--FINSI
    
    		-- extras / parameters / translationDifferenceAssetLiabilities
    		--ws += ',"translationDifferenceAssetLiabilities" : " "'
     
    		-- extras / parameters / exchangeGainAccount
    		--ws += '"exchangeGainAccount" : " "'
     
    		-- extras / parameters / exhangeLostAccount
    		--ws += '"exhangeLostAccount" : " "'
    
    		-- extras / parameters / shippingCostPaidAndSubjectAccount
    		SI taille{exerciceComptable.shippingCostPaidAndSubjectAccount} > 0 ALORS
    			ws += ',"shippingCostPaidAndSubjectAccount" : ' + json{formaterNumeroCompte{pc,exerciceComptable.shippingCostPaidAndSubjectAccount}}
    		FINSI
    
    		-- extras / parameters / shippingCostPaidAndNotSubjectAccount
    		SI taille{exerciceComptable.shippingCostPaidAndNotSubjectAccount} > 0 ALORS
    			ws += ',"shippingCostPaidAndNotSubjectAccount" : ' + json{formaterNumeroCompte{pc,exerciceComptable.shippingCostPaidAndNotSubjectAccount}}
    		FINSI
    
    		-- extras / parameters / shippingCostBilledAndSubjectAccount
    		SI taille{exerciceComptable.shippingCostBilledAndSubjectAccount} > 0 ALORS
    			ws += ',"shippingCostBilledAndSubjectAccount" : ' + json{formaterNumeroCompte{pc,exerciceComptable.shippingCostBilledAndSubjectAccount}}
    		FINSI
    
    		-- extras / parameters / shippingCostBilledAndNotSubjectAccount
    		SI taille{exerciceComptable.shippingCostBilledAndNotSubjectAccount} > 0 ALORS
    			ws += ',"shippingCostBilledAndNotSubjectAccount" : ' + json{formaterNumeroCompte{pc,exerciceComptable.shippingCostBilledAndNotSubjectAccount}}
    		FINSI
    
    		-- extras / parameters / defaultPurchaseJournal
    		SI taille{exerciceComptable.defaultPurchaseJournal} > 0 ALORS
    			tmpJournal :=  lire {flotLecture {exerciceComptable.defaultPurchaseJournal}, ' ' }
    			SI exerciceComptable.existeJournal{tmpJournal}  ALORS
    				ws += ',"defaultPurchaseJournal" : ' + json{tmpJournal}
    			FIN SI
    		FINSI
    
    		-- extras / parameters / defaultSalesJournal
    		SI taille{exerciceComptable.defaultSalesJournal} > 0 ALORS
    			tmpJournal :=  lire {flotLecture {exerciceComptable.defaultSalesJournal}, ' ' }
    			SI exerciceComptable.existeJournal{tmpJournal}  ALORS
    				ws += ',"defaultSalesJournal" : ' + json{tmpJournal}
    			FIN SI
    		FINSI
    
    		-- extras / parameters / defaultBankJournal
    		SI taille{exerciceComptable.defaultBankJournal} > 0 ALORS
    			tmpJournal :=  lire {flotLecture {exerciceComptable.defaultBankJournal}, ' ' }
    			SI exerciceComptable.existeJournal{tmpJournal}  ALORS
    				ws +=  ',"defaultBankJournal" : ' + json{tmpJournal}
    			FIN SI
    		FINSI
    
    		-- extras / parameters / defaultJournal
    		SI taille{exerciceComptable.defaultJournal} > 0 ALORS
    			tmpJournal :=  lire {flotLecture {exerciceComptable.defaultJournal}, ' ' }
    			SI exerciceComptable.existeJournal{tmpJournal}  ALORS
    				ws += ',"defaultJournal" : ' + json{tmpJournal}
    			FIN SI
    		FINSI
    
    		-- extras / parameters / defaultOpeningJournal 
    		SI taille{exerciceComptable.defaultOpeningJournal} > 0 ALORS
    			tmpJournal :=  lire {flotLecture {exerciceComptable.defaultOpeningJournal}, ' ' }
    			SI exerciceComptable.existeJournal{tmpJournal}  ALORS
    				ws +=  ',"defaultOpeningJournal" : ' + json{tmpJournal}
    			FIN SI
    		FINSI
    
    		-- extras / parameters / profitAccount
    		SI taille{exerciceComptable.profitAccount} > 0 ALORS
    			ws += ',"profitAccount" : ' + json{formaterNumeroCompte{pc,exerciceComptable.profitAccount}}
    		FINSI
    
    		-- extras / parameters / lossAccount
    		SI taille{exerciceComptable.lossAccount} > 0 ALORS
    			ws += ',"lossAccount" : ' + json{formaterNumeroCompte{pc,exerciceComptable.lossAccount}}
    		FINSI
    
    		-- extras / parameters / retainedProfitsLossesAccount
    		SI taille{exerciceComptable.retainedProfitsLossesAccount} > 0 ALORS
    			ws += ',"retainedProfitsLossesAccount" : ' + json{formaterNumeroCompte{pc,exerciceComptable.retainedProfitsLossesAccount}}
    		FINSI
    
    		-- extras / parameters / positifDifferenceCashAccount
    		SI taille{exerciceComptable.positifDifferenceCashAccount} > 0 ALORS
    			ws += ',"positifDifferenceCashAccount" : ' + json{formaterNumeroCompte{pc,exerciceComptable.positifDifferenceCashAccount}}
    		FINSI
    
    		-- extras / parameters / negativeDifferenceCashAccount
    		SI taille{exerciceComptable.negativeDifferenceCashAccount} > 0 ALORS
    			ws += ',"negativeDifferenceCashAccount" : ' + json{formaterNumeroCompte{pc,exerciceComptable.negativeDifferenceCashAccount}}
    		FINSI
    
    		-- extras / parameters / suspensAccount
    		SI taille{exerciceComptable.suspensAccount} > 0 ALORS
    			ws += ',"suspensAccount" : ' + json{formaterNumeroCompte{pc,exerciceComptable.suspensAccount}}
    		FINSI
    
    		-- extras / parameters / defaultPurchaseAccount
    		SI taille{exerciceComptable.defaultPurchaseAccount} > 0 ALORS
    			ws += ',"defaultPurchaseAccount" : ' + json{formaterNumeroCompte{pc,exerciceComptable.defaultPurchaseAccount}}
    		FINSI
    
    		-- extras / parameters / defaultSalesAccount
    		SI taille{exerciceComptable.defaultSalesAccount} > 0 ALORS 
    			ws += ',"defaultSalesAccount" : ' + json{formaterNumeroCompte{pc,exerciceComptable.defaultSalesAccount}}
    		FINSI
    
    		-- extras / parameters / defaultCustomerAccount
    		SI taille{exerciceComptable.defaultCustomerAccount} > 0 ALORS
    			ws += ',"defaultCustomerAccount" : ' + json{formaterNumeroCompte{pc,exerciceComptable.defaultCustomerAccount}}
    		FINSI
    
    		-- extras / parameters / defaultSupplierAccount
    		SI taille{exerciceComptable.defaultSupplierAccount} > 0 ALORS
    			ws += ',"defaultSupplierAccount" : ' + json{formaterNumeroCompte{pc,exerciceComptable.defaultSupplierAccount}}
    		FINSI
    
    		-- extras / parameters / creditLossesAccount
    		SI taille{exerciceComptable.creditLossesAccount} > 0 ALORS
    			ws += ',"creditLossesAccount" : ' + json{formaterNumeroCompte{pc,exerciceComptable.creditLossesAccount}}
    		FINSI
    
    		-- extras / parameters / depositPaidAccount
    		SI taille{exerciceComptable.depositPaidAccount} > 0 ALORS
    			ws += ',"depositPaidAccount" : ' + json{formaterNumeroCompte{pc,exerciceComptable.depositPaidAccount}}
    		FINSI
    
    		-- extras / parameters / paymentReceivedAccount
    		SI taille{exerciceComptable.paymentReceivedAccount} > 0 ALORS
    			ws += ',"paymentReceivedAccount" : ' + json{formaterNumeroCompte{pc,exerciceComptable.paymentReceivedAccount}}
    		FINSI
    
    		-- extras / parameters / subjectToVAT
    		--ws += ',"subjectToVAT" : " "'  
    
    		-- extras / parameters / defaultVATRate
    		--ws += ',"defaultVATRate" : " "' 
    
    		-- extras / parameters / VATSystem
    		SI tmpVATSystem <> ? ALORS
    			ws += ',"VATSystem" : ' + json{tmpVATSystem} 
    		FINSI
    
    		-- extras / parameters / VATMethodOnSales
    		SI tmpVATMethodOnSales <> ? ALORS
    			ws += ',"VATMethodOnSales":  ' + json{tmpVATMethodOnSales} 
    		FINSI
    
    		-- extras / parameters / VATMethodOnPurchases
    		SI tmpVATMethodOnPurchases <> ? ALORS
    			ws += ',"VATMethodOnPurchases":' + json{tmpVATMethodOnPurchases}
    		FINSI
    
    		-- extras / parameters / FRP
    		SI taille{dossier.NuméroFrp} > 0 ALORS
    			ws += ',"FRP" : ' + json{dossier.NuméroFrp}
    		FINSI
    
    		-- extras / parameters / VATPaymentAccount
    		SI taille{exerciceComptable.VATPaymentAccount} > 0 ALORS
    			ws += ',"VATPaymentAccount" : ' + json{formaterNumeroCompte{pc,exerciceComptable.VATPaymentAccount}}
    		FINSI
    
    		-- extras / parameters / VATCreditAccount
    		SI taille{exerciceComptable.VATCreditAccount} > 0 ALORS
    			ws += ',"VATCreditAccount" : ' + json{formaterNumeroCompte{pc,exerciceComptable.VATCreditAccount}}
    		FINSI
    
    		-- extras / parameters / VATToBeRegularizedAccount
    		SI taille{exerciceComptable.VATToBeRegularizedAccount} > 0 ALORS
    			ws += ',"VATToBeRegularizedAccount" : ' + json{formaterNumeroCompte{pc,exerciceComptable.VATToBeRegularizedAccount}}
    		FINSI
    
    		-- extras / parameters / VATReimbursementAccount
    		SI taille{exerciceComptable.VATReimbursementAccount} > 0 ALORS
    			ws += ',"VATReimbursementAccount" : ' + json{formaterNumeroCompte{pc,exerciceComptable.VATReimbursementAccount}}
    		FINSI
    
    		-- extras / parameters / VATDepositAccount
    		SI taille{exerciceComptable.VATDepositAccount} > 0 ALORS
    			ws += ',"VATDepositAccount" : ' + json{formaterNumeroCompte{pc,exerciceComptable.VATDepositAccount}}
    		FINSI
    
    		-- extras / parameters / accountOfBookValuesOfDisposedAssets
    		SI taille{exerciceComptable.accountOfBookValuesOfDisposedAssets} > 0 ALORS
    			ws += ',"accountOfBookValuesOfDisposedAssets" : ' + json{formaterNumeroCompte{pc,exerciceComptable.accountOfBookValuesOfDisposedAssets}}
    		FINSI
    
    		-- extras / parameters / accountOfRevenueFromSaleOfAssets
    		SI taille{exerciceComptable.accountOfRevenueFromSaleOfAssets} > 0 ALORS
    			ws	+=	',"accountOfRevenueFromSaleOfAssets" : ' + json{formaterNumeroCompte{pc,exerciceComptable.accountOfRevenueFromSaleOfAssets}}
    		FINSI
    
    		-- déplacés dans le financialPeriod
    		-- extras / parameters / firstFinancialDate
    		-- ws += ',"firstFinancialDate" : '+ json{dateDebutExercice1}
    
    		-- extras / parameters / fiscalEndOfTheFirstFiscalPeriod
    		-- ws += ',"fiscalEndOfTheFirstFiscalPeriod" : '+ json{dateFinExercice1}
    
    		-- extras / parameters / taxSystem
    		--SI tmptaxSystem <> ? ALORS
    		ws	+=	',"taxSystem" : ' + json{tmptaxSystem} 
    		--FINSI
    	----  fin parameters
    	ws	+=	'}'
    
    	----  fin extras	
    	ws += '}'
    	
    ---- company
    	tmpVirgule := FAUX
    	SI taille{dossier.Adresse1} > 0 OU taille{dossier.Adresse2} > 0 OU taille{dossier.Adresse3} > 0 OU taille{dossier.CodePostal} > 0 OU taille{dossier.Ville} > 0 OU
    	     taille{paysCompany} > 0 OU taille{dossier.Fax} > 0 OU taille{dossier.TelephonePortable} > 0 OU taille{dossier.formeJuridique} > 0 OU taille{dossier.Activite} > 0
    	ALORS
    		ws += ',"company" : { '
    
    -- company / address1
    			SI taille{dossier.Adresse1} > 0 ALORS
    				ws += '"address1" : ' + json{codeUTF8{dossier.Adresse1}}
    				tmpVirgule := VRAI
    			FINSI
    
    -- company / address2
    			SI taille{dossier.Adresse2} > 0 ALORS
    				SI tmpVirgule ALORS
    					ws += ',"address2" : ' + json{codeUTF8{dossier.Adresse2}}
    				SINON
    					ws += '"address2" : ' + json{codeUTF8{dossier.Adresse2}}
    				FINSI
    				tmpVirgule := VRAI
    			FINSI
    
    -- company / address3
    			SI taille{dossier.Adresse3} > 0 ALORS
    				SI tmpVirgule ALORS
    					ws += ',"address3" : ' + json{codeUTF8{dossier.Adresse3}}
    				SINON
    					ws += '"address3" : ' + json{codeUTF8{dossier.Adresse3}}
    				FINSI
    				tmpVirgule := VRAI
    			FINSI
    
    -- company / zipCode
    			SI taille{dossier.CodePostal} > 0 ALORS
    				SI tmpVirgule ALORS
    					ws += ',"zipCode" : ' + json{dossier.CodePostal}
    				SINON
    					ws += '"zipCode" : ' + json{dossier.CodePostal}
    				FINSI
    				tmpVirgule := VRAI
    			FINSI
    
    -- company / city
    			SI taille{dossier.Ville} > 0 ALORS
    				SI tmpVirgule ALORS
    					ws += ',"city" : ' + json{codeUTF8{dossier.Ville}}
    				SINON
    					ws += '"city" : ' + json{codeUTF8{dossier.Ville}}
    				FINSI
    				tmpVirgule := VRAI
    			FINSI
    
    -- company / country
    			SI taille{paysCompany} > 0 ALORS
    				SI tmpVirgule ALORS
    					ws += ',"country" : ' + json{codeUTF8{paysCompany}}
    				SINON
    					ws += '"country" : ' + json{codeUTF8{paysCompany}}
    				FINSI
    				tmpVirgule := VRAI
    			FINSI
    
    -- company / fax
    			SI taille{dossier.Fax} > 0 ALORS
    				SI tmpVirgule ALORS
    					ws += ',"fax" : ' + json{dossier.Fax}
    				SINON
    					ws += '"fax" : ' + json{dossier.Fax}
    				FINSI
    				tmpVirgule := VRAI
    			FINSI
    
    -- company / cellular
    			SI taille{dossier.TelephonePortable} > 0 ALORS
    				SI tmpVirgule ALORS
    					ws += ',"cellular" : ' + json{dossier.TelephonePortable}
    				SINON
    					ws += '"cellular" : ' + json{dossier.TelephonePortable}
    				FINSI
    				tmpVirgule := VRAI
    			FINSI
    
    -- company / legalForm
    			SI taille{dossier.formeJuridique} > 0 ALORS
    				SI tmpVirgule ALORS
    					ws += ',"legalForm" : ' + json{codeUTF8{dossier.formeJuridique}}
    				SINON
    					ws += '"legalForm" : ' + json{codeUTF8{dossier.formeJuridique}}
    				FINSI
    				tmpVirgule := VRAI
    			FINSI
    
    -- company / activity
    			SI taille{dossier.Activite} > 0 ALORS
    				SI tmpVirgule ALORS
    					ws += ',"activity": ' + json{codeUTF8{sansEspaceALaFin{dossier.Activite}}}
    				SINON
    					ws += '"activity": ' + json{codeUTF8{sansEspaceALaFin{dossier.Activite}}}
    				FINSI
    				tmpVirgule := VRAI
    			FINSI
    ----  fin company	
    		ws += '}'
    	FINSI
    
    ---- oga
    	tmpVirgule := FAUX
    	SI taille{nameCga} > 0 OU taille{fullNameCga} > 0 OU taille{numeroCga} > 0 OU taille{address1Cga} > 0 OU taille{address2Cga} > 0 OU taille{address3Cga} > 0 OU taille{zipCodeCga} > 0 OU
    	    taille{cityCga} > 0 OU taille{countryCga} > 0 OU taille{phoneCga} > 0 OU taille{faxCga} > 0 OU taille{cellularCga} > 0 OU taille{emailCga} > 0 OU taille{websiteCga} > 0
    	ALORS
    		ws += ',"oga" : { '
    
    -- oga / name
    		SI taille{nameCga} > 0 ALORS
    			ws += '"name":  ' + json{codeUTF8{nameCga}}
    			tmpVirgule := VRAI
    		FINSI
    
    -- oga / fullName
    		SI taille{fullNameCga} > 0 ALORS
    			SI tmpVirgule ALORS
    				ws += ',"fullName" :  ' + json{codeUTF8{fullNameCga}}
    			SINON
    				ws += '"fullName" :  ' + json{codeUTF8{fullNameCga}}
    			FINSI
    			tmpVirgule := VRAI
    		FINSI
    
    -- oga / agreementNumber
    		SI taille{numeroCga} > 0 ALORS
    			SI tmpVirgule ALORS
    				ws += ',"agreementNumber" : ' + json{numeroCga} 
    			SINON
    				ws += '"agreementNumber" : ' + json{numeroCga}
    			FINSI
    			tmpVirgule := VRAI
    		FINSI
    
    -- oga / address1
    		SI taille{address1Cga} > 0 ALORS
    			SI tmpVirgule ALORS
    				ws += ',"address1" : ' + json{codeUTF8{address1Cga}}
    			SINON
    				ws += '"address1" : ' + json{codeUTF8{address1Cga}}
    			FINSI
    			tmpVirgule := VRAI
    		FINSI
    
    -- oga / address2
    		SI taille{address2Cga} > 0 ALORS
    			SI tmpVirgule ALORS
    				ws += ',"address2" : ' + json{codeUTF8{address2Cga}}
    			SINON
    				ws += '"address2" : ' + json{codeUTF8{address2Cga}}
    			FINSI
    			tmpVirgule := VRAI
    		FINSI
    
    -- oga / address3
    		SI taille{address3Cga} > 0 ALORS
    			SI tmpVirgule ALORS
    				ws += ',"address3" : ' + json{codeUTF8{address3Cga}}
    			SINON
    				ws += '"address3" : ' + json{codeUTF8{address3Cga}}
    			FINSI
    			tmpVirgule := VRAI
    		FINSI
    
    -- oga / zipCode
    		SI taille{zipCodeCga} > 0 ALORS
    			SI tmpVirgule ALORS
    				ws += ',"zipCode" : ' + json{zipCodeCga}
    			SINON
    				ws += '"zipCode" : ' + json{zipCodeCga}
    			FINSI
    			tmpVirgule := VRAI
    		FINSI
    
    -- oga / city
    		SI taille{cityCga} > 0 ALORS
    			SI tmpVirgule ALORS
    				ws += ',"city" : ' + json{codeUTF8{cityCga}}
    			SINON
    				ws += '"city" : ' + json{codeUTF8{cityCga}}
    			FINSI
    			tmpVirgule := VRAI
    		FINSI
    
    -- oga / country
    		SI taille{countryCga} > 0 ALORS
    			SI tmpVirgule ALORS
    				ws += ',"country" : ' + json{codeUTF8{countryCga}}
    			SINON
    				ws += '"country" : ' + json{codeUTF8{countryCga}}
    			FINSI
    			tmpVirgule := VRAI
    		FINSI
    
    -- oga / phone
    		SI taille{phoneCga} > 0 ALORS
    			SI tmpVirgule ALORS
    				ws += ',"phone" : ' + json{phoneCga}
    			SINON
    				ws += '"phone" : ' + json{phoneCga}
    			FINSI
    			tmpVirgule := VRAI
    		FINSI
    
    -- oga / fax
    		SI taille{faxCga} > 0 ALORS
    			SI tmpVirgule ALORS
    				ws += ',"fax" : ' + json{faxCga}
    			SINON
    				ws += '"fax" : ' + json{faxCga}
    			FINSI
    			tmpVirgule := VRAI
    		FINSI
    
    -- oga / cellular
    		SI taille{cellularCga} > 0 ALORS
    			SI tmpVirgule ALORS
    				ws += ',"cellular" : ' + json{cellularCga}
    			SINON
    				ws += '"cellular" : ' + json{cellularCga}
    			FINSI
    			tmpVirgule := VRAI
    		FINSI
    
    -- oga / email
    		SI taille{emailCga} > 0 ALORS
    			SI tmpVirgule ALORS
    				ws += ',"email" : ' + json{codeUTF8{emailCga}}
    			SINON
    				ws += '"email" : ' + json{codeUTF8{emailCga}}
    			FINSI
    			tmpVirgule := VRAI
    		FINSI
    
    -- oga / website
    		SI taille{websiteCga} > 0 ALORS
    			SI tmpVirgule ALORS
    				ws += ',"website" : ' + json{codeUTF8{websiteCga}}
    			SINON
    				ws += '"website" : ' + json{codeUTF8{websiteCga}}
    			FINSI
    		FINSI
    ----  fin oga	
    		ws += '}'
    	FINSI
    
    ---- accountant
    	tmpVirgule := FAUX
    	SI taille{cabinet.expertComptableSignataireAvecNom} > 0 OU taille{cabinet.RaisonSociale} > 0 OU taille{siretEntite} > 0 OU taille{address1Entite} > 0 OU taille{address2Entite} > 0 OU 
    	    taille{address3Entite} > 0 OU taille{zipCodeEntite} > 0 OU taille{cityEntite} > 0 OU taille{countryEntite} > 0 OU taille{phoneEntite} > 0 OU 
    	    taille{emailEntite} > 0 OU taille{websiteEntite} > 0 OU taille{faxEntite} > 0 OU taille{cellularEntite} > 0
    	ALORS
    
    		ws += ',"accountant" : { '
    
    -- accountant / name
    		SI taille{cabinet.expertComptableSignataire} > 0  ALORS
    			ws += '"name": ' + json{codeUTF8{cabinet.expertComptableSignataire}}
    			tmpVirgule := VRAI
    		FINSI
    
    -- accountant / fullName
    		SI  taille{cabinet.RaisonSociale} > 0 ALORS
    			SI tmpVirgule ALORS
    				ws += ',"fullName" : ' + json{codeUTF8{cabinet.RaisonSociale}}
    			SINON
    				ws += '"fullName" : ' + json{codeUTF8{cabinet.RaisonSociale}}
    			FINSI
    			tmpVirgule := VRAI
    		FINSI
    
    -- accountant / siret
    		SI taille{siretEntite} > 0 ALORS
    			SI tmpVirgule ALORS
    				ws += ',"siret" : ' + json{siretEntite}
    			SINON
    				ws += '"siret" : ' + json{siretEntite}
    			FINSI
    			tmpVirgule := VRAI
    		FINSI
    
    -- accountant / address1
    		SI taille{address1Entite} > 0 ALORS
    			SI tmpVirgule ALORS
    				ws += ',"address1" : ' + json{codeUTF8{address1Entite}}
    			SINON
    				ws += '"address1" : ' + json{codeUTF8{address1Entite}}
    			FINSI
    			tmpVirgule := VRAI
    		FINSI
    
    -- accountant / address2
    		SI taille{address2Entite} > 0 ALORS
    			SI tmpVirgule ALORS
    				ws += ',"address2" : ' + json{codeUTF8{address2Entite}}
    			SINON
    				ws += '"address2" : ' + json{codeUTF8{address2Entite}}
    			FINSI
    			tmpVirgule := VRAI
    		FINSI
    
    -- accountant / address3
    		SI taille{address3Entite} > 0 ALORS
    			SI tmpVirgule ALORS
    				ws += ',"address3" : ' + json{codeUTF8{address3Entite}}
    			SINON
    				ws += '"address3" : ' + json{codeUTF8{address3Entite}}
    			FINSI
    			tmpVirgule := VRAI
    		FINSI
    
    -- accountant / zipCode
    		SI taille{zipCodeEntite} > 0 ALORS
    			SI tmpVirgule ALORS
    				ws += ',"zipCode" : ' + json{zipCodeEntite}
    			SINON
    				ws += '"zipCode" : ' + json{zipCodeEntite}
    			FINSI
    			tmpVirgule := VRAI
    		FINSI
    
    -- accountant / city
    		SI taille{cityEntite} > 0 ALORS
    			SI tmpVirgule ALORS
    				ws += ',"city" : ' + json{codeUTF8{cityEntite}}
    			SINON
    				ws += '"city" : ' + json{codeUTF8{cityEntite}}
    			FINSI
    			tmpVirgule := VRAI
    		FINSI
    
    -- accountant / country
    		SI taille{countryEntite} > 0 ALORS
    			SI tmpVirgule ALORS
    				ws += ',"country" : ' + json{codeUTF8{countryEntite}}
    			SINON
    				ws += ',"country" : ' + json{codeUTF8{countryEntite}}
    			FINSI
    			tmpVirgule := VRAI
    		FINSI
    
    -- accountant / phone
    		SI taille{phoneEntite} > 0 ALORS
    			SI tmpVirgule ALORS
    				ws += ',"phone" : ' + json{phoneEntite}
    			SINON
    				ws += '"phone" : ' + json{phoneEntite}
    			FINSI
    			tmpVirgule := VRAI
    		FINSI
    
    -- accountant / email
    		SI taille{emailEntite} > 0 ALORS
    			SI tmpVirgule ALORS
    				ws += ',"email" : ' + json{codeUTF8{emailEntite}}
    			SINON
    				ws += '"email" : ' + json{codeUTF8{emailEntite}}
    			FINSI
    			tmpVirgule := VRAI
    		FINSI
    
    -- accountant / website
    		SI taille{websiteEntite} > 0 ALORS
    			SI tmpVirgule ALORS
    				ws += ',"website" : ' + json{codeUTF8{websiteEntite}}
    			SINON
    				ws += '"website" : ' + json{codeUTF8{websiteEntite}}
    			FINSI
    			tmpVirgule := VRAI
    		FINSI
    
    -- accountant / fax
    		SI taille{faxEntite} > 0 ALORS
    			SI tmpVirgule ALORS
    				ws += ',"fax" : ' + json{faxEntite}
    			SINON
    				ws += '"fax" : ' + json{faxEntite}
    			FINSI
    			tmpVirgule := VRAI
    		FINSI
    
    -- accountant / cellular
    		SI taille{cellularEntite} > 0 ALORS
    			SI tmpVirgule ALORS
    				ws += ',"cellular" : ' + json{cellularEntite}
    			SINON
    				ws += '"cellular" : ' + json{cellularEntite}
    			FINSI
    			tmpVirgule := VRAI
    		FINSI
    ----  fin accountant
    		ws += '}'
    	FINSI
    
    	SI taille{exerciceComptable.notesCUTE[aujourdhui{}]} > 0 ALORS
    		ws += ',"notes": {'
    		ws += '"date" : '+ json{date{'AAAA-MM-JJ',aujourdhui{}} +' (' +formaterHeure{'hh:mm:ss',heure{}}+ ')'}
    		ws += ',"description" : ' + json{codeUTF8{exerciceComptable.notesCUTE[aujourdhui{}]}}
    		ws += '}'
    	FINSI
    
    	ws += '}'
    
    SINON
    
    ----------------------------------------------------------
    -- Format xml
    ----------------------------------------------------------
    
    	ws += '<entry><id/><content/><title>operatingCompany resource</title><updated>'+upd+'</updated><sdata:payload><operatingCompany sdata:uuid="'+uuid{dossier}+'" xmlns="http://schemas.sage.com/myContract">'
    
    	-- scr le 12/06/13 : en linkup, pas d'export de l'uuid du dossier pour éviter les interférences avec cute (vu avec Dom et Morgan)
    	SI destinataire <> 'linkup' ALORS
    		ws += '<uuid>'+uuid{dossier}+'</uuid>'
    	FIN SI
    	ws += '<name>'+codeXml{dossier.RaisonSociale}+'</name>'	
    	ws += '<fullName>' + codeXml{dossier.RaisonSociale}+'</fullName>'
    	-- address
    	--ws +=  '<address></address>'
    
    -- phone
    	SI taille{dossier.Telephone} > 0 ALORS
    		ws += '<phone>' + codeXml{dossier.Telephone}+'</phone>' 
    	FINSI
    
    -- email
    	SI taille{dossier.Email} > 0  ALORS
    		ws += '<email>' + codeXml{dossier.Email}+'</email>'
    	FINSI
    
    -- website
    	SI taille{dossier.SiteWeb} > 0 ALORS
    		ws += '<website>' + codeXml{dossier.SiteWeb} +'</website>'
    	FINSI
    
    -- currency
    	ws += '<currency>EUR</currency>'
    
    ---- identifiers
    	SI taille{dossier.Ape} > 0  OU taille{dossier.NumTVAIntra} > 0 OU taille{dossier.Siret} > 0 OU taille{dossier.NumeroRCS} > 0 OU taille{dossier.NumeroRCM} > 0 OU taille{dossier.CGA} > 0 OU taille{dossier.NuméroFrp} > 0 ALORS
    		ws += '<identifiers>'
    
    -- identifiers / ape
    		SI taille{dossier.Ape} > 0 ALORS
    			ws += '<ape>' + codeXml{dossier.Ape}+'</ape>' 
    		FINSI
    		
    -- identifiers / vatNumber
    		SI taille{dossier.NumTVAIntra} > 0 ALORS
    			ws += '<vatNumber>' + codeXml{dossier.NumTVAIntra} +'</vatNumber>'
    		FINSI
    
    -- identifiers / siret
    		SI taille{dossier.Siret} > 0 ALORS
    			ws += '<siret>' + codeXml{dossier.Siret} + '</siret>'
    		FINSI
    
    -- identifiers / rcs
    		SI taille{dossier.NumeroRCS} > 0 ALORS		
    			ws +=  '<rcs>' + codeXml{dossier.NumeroRCS} + '</rcs>'
    		FINSI
    
    -- identifiers / rm
    		SI taille{dossier.NumeroRCM} > 0 ALORS			
    			ws += '<rm>' + codeXml{dossier.NumeroRCM} + '</rm>' 
    		FINSI
    
    -- identifiers / rseirl
    		--ws += '<rseirl></rseirl>'
    
    -- identifiers / oga
    		SI taille{dossier.CGA} > 0 ALORS
    			ws +=  '<oga>' + codeXml{dossier.CGA} + '</oga>'
    		FINSI
    
    -- identifiers / frp
    		SI taille{dossier.NuméroFrp} > 0 ALORS
    			ws += '<frp>'  + codeXml{dossier.NuméroFrp} + '</frp>'
    			
    		FINSI
    ----  fin identifiers	
    		ws += '</identifiers>'
    	FINSI
    	
    -- extras
    	ws += '<extras>'
    -- extras / parameters
    		ws += '<parameters>'
    
    -- extras / parameters / tradingAccountLength
    		ws += '<tradingAccountLength>' + exerciceComptable.tailleCodeCompteAux + '</tradingAccountLength>'
    
    -- extras / parameters / financialAccountLentgh
    		ws += '<financialAccountLentgh>' + exerciceComptable.tailleCodeCompte + '</financialAccountLentgh>'
    
    -- extras / parameters / financialAccountJournalLength
    		ws += '<financialAccountJournalLength>' + exerciceComptable.tailleCodeJournal + '</financialAccountJournalLength>' 
    
    -- extras / parameters / analyticsAccountLength
    		--ws += '<analyticsAccountLength></analyticsAccountLength>' 
    
    -- extras / parameters / fiscalDocumentVisibility
    		SI exerciceComptable.fiscalDocumentVisibility ALORS
    			ws += '<fiscalDocumentVisibility>true</fiscalDocumentVisibility>'
    		SINON
    			ws += '<fiscalDocumentVisibility>false</fiscalDocumentVisibility>'
    		FINSI
    
    
    -- extras / parameters / discountObtainedAccount
    		SI taille{exerciceComptable.discountObtainedAccount} > 0 ALORS
    			ws += '<discountObtainedAccount>' + codeXml{exerciceComptable.discountObtainedAccount} + '</discountObtainedAccount>'
    		FINSI
    
    -- extras / parameters / discountGrantedAccount
    		SI taille{exerciceComptable.discountGrantedAccount} > 0 ALORS
    			ws += '<discountGrantedAccount>' + codeXml{exerciceComptable.discountGrantedAccount} + '</discountGrantedAccount>'
    		FINSI
    
    -- extras / parameters / extraordinaryIncomes
    		SI taille{exerciceComptable.extraordinaryIncomes} > 0 ALORS
    			ws += '<extraordinaryIncomes>' + codeXml{exerciceComptable.extraordinaryIncomes} + '</extraordinaryIncomes>'
    		FINSI
    
    -- extras / parameters / extraordinaryCharges
    		SI taille{exerciceComptable.extraordinaryCharges} > 0 ALORS
    			ws += '<extraordinaryCharges>' + codeXml{exerciceComptable.extraordinaryCharges} + '</extraordinaryCharges>'
    		FINSI
    
    -- extras / parameters / translationDifferenceAssetAccount
    		--SI taille{exerciceComptable.translationDifferenceAssetAccount} > 0 ALORS
    		--	ws += '<translationDifferenceAssetAccount>' + codeXml{exerciceComptable.translationDifferenceAssetAccount} + '</translationDifferenceAssetAccount>'
    		--FINSI
    
    -- extras / parameters / translationDifferenceAssetLiabilities
    		--ws += '<translationDifferenceAssetLiabilities></translationDifferenceAssetLiabilities>'
     
    -- extras / parameters / exchangeGainAccount
    		--ws += '<exchangeGainAccount></exchangeGainAccount>'
     
    -- extras / parameters / exhangeLostAccount
    		--ws += '<exhangeLostAccount></exhangeLostAccount>'
    
    -- extras / parameters / shippingCostPaidAndSubjectAccount
    		SI taille{exerciceComptable.shippingCostPaidAndSubjectAccount} > 0 ALORS
    			ws += '<shippingCostPaidAndSubjectAccount>' + codeXml{exerciceComptable.shippingCostPaidAndSubjectAccount} + '</shippingCostPaidAndSubjectAccount>'
    		FINSI
    
    -- extras / parameters / shippingCostPaidAndNotSubjectAccount
    		SI taille{exerciceComptable.shippingCostPaidAndNotSubjectAccount} > 0 ALORS
    			ws += '<shippingCostPaidAndNotSubjectAccount>' + codeXml{exerciceComptable.shippingCostPaidAndNotSubjectAccount} + '</shippingCostPaidAndNotSubjectAccount>'
    		FINSI
    
    -- extras / parameters / shippingCostBilledAndSubjectAccount
    		SI taille{exerciceComptable.shippingCostBilledAndSubjectAccount} > 0 ALORS
    			ws += '<shippingCostBilledAndSubjectAccount>' + codeXml{exerciceComptable.shippingCostBilledAndSubjectAccount} + '</shippingCostBilledAndSubjectAccount>'
    		FINSI
    
    -- extras / parameters / shippingCostBilledAndNotSubjectAccount
    		SI taille{exerciceComptable.shippingCostBilledAndNotSubjectAccount} > 0 ALORS
    			ws += '<shippingCostBilledAndNotSubjectAccount >' + codeXml{exerciceComptable.shippingCostBilledAndNotSubjectAccount} + '</shippingCostBilledAndNotSubjectAccount >'
    		FINSI
    
    -- extras / parameters / defaultPurchaseJournal
    		SI taille{exerciceComptable.defaultPurchaseJournal} > 0 ALORS
    			tmpJournal :=  lire {flotLecture {exerciceComptable.defaultPurchaseJournal}, ' ' }
    			ws += '<defaultPurchaseJournal>' + json{tmpJournal} + '</defaultPurchaseJournal>'
    		FINSI
    
    -- extras / parameters / defaultSalesJournal
    		SI taille{exerciceComptable.defaultSalesJournal} > 0 ALORS
    			tmpJournal :=  lire {flotLecture {exerciceComptable.defaultSalesJournal}, ' ' }
    			ws += '<defaultSalesJournal>' + json{tmpJournal} + '</defaultSalesJournal>'
    		FINSI
    
    -- extras / parameters / defaultBankJournal
    		SI taille{exerciceComptable.defaultBankJournal} > 0 ALORS
    			tmpJournal :=  lire {flotLecture {exerciceComptable.defaultBankJournal}, ' ' }
    			ws +=  '<defaultBankJournal>' + json{tmpJournal} + '</defaultBankJournal>'
    		FINSI
    
    -- extras / parameters / defaultJournal
    		SI taille{exerciceComptable.defaultJournal} > 0 ALORS
    			tmpJournal :=  lire {flotLecture {exerciceComptable.defaultJournal}, ' ' }
    			ws += '<defaultJournal>' + json{tmpJournal} + '</defaultJournal>'
    		FINSI
    
    -- extras / parameters / defaultOpeningJournal 
    		SI taille{exerciceComptable.defaultOpeningJournal} > 0 ALORS
    			tmpJournal :=  lire {flotLecture {exerciceComptable.defaultOpeningJournal}, ' ' }
    			ws +=  '<defaultOpeningJournal>' + json{tmpJournal} + '</defaultOpeningJournal>'
    		FINSI
    
    -- extras / parameters / profitAccount
    		SI taille{exerciceComptable.profitAccount} > 0 ALORS
    			ws += '<profitAccount>' + codeXml{exerciceComptable.profitAccount} + '</profitAccount>'
    		FINSI
    
    -- extras / parameters / lossAccount
    		SI taille{exerciceComptable.lossAccount} > 0 ALORS
    			ws += '<lossAccount>' + codeXml{exerciceComptable.lossAccount} + '</lossAccount>'
    		FINSI
    
    -- extras / parameters / retainedProfitsLossesAccount
    		SI taille{exerciceComptable.retainedProfitsLossesAccount} > 0 ALORS
    			ws += '<retainedProfitsLossesAccount>' + codeXml{exerciceComptable.retainedProfitsLossesAccount} + '</retainedProfitsLossesAccount>'
    		FINSI
    
    -- extras / parameters / positifDifferenceCashAccount
    		SI taille{exerciceComptable.positifDifferenceCashAccount} > 0 ALORS
    			ws += '<positifDifferenceCashAccount>' + codeXml{exerciceComptable.positifDifferenceCashAccount} + '</positifDifferenceCashAccount>'
    		FINSI
    
    -- extras / parameters / negativeDifferenceCashAccount
    		SI taille{exerciceComptable.negativeDifferenceCashAccount} > 0 ALORS
    			ws += '<negativeDifferenceCashAccount>' + codeXml{exerciceComptable.negativeDifferenceCashAccount} + '</negativeDifferenceCashAccount>'
    		FINSI
    
    -- extras / parameters / suspensAccount
    		SI taille{exerciceComptable.suspensAccount} > 0 ALORS
    			ws += '<suspensAccount>' + codeXml{exerciceComptable.suspensAccount} + '</suspensAccount>'
    		FINSI
    
    -- extras / parameters / defaultPurchaseAccount
    		SI taille{exerciceComptable.defaultPurchaseAccount} > 0 ALORS
    			ws += '<defaultPurchaseAccount>' + codeXml{exerciceComptable.defaultPurchaseAccount} + '</defaultPurchaseAccount>'
    		FINSI
    
    -- extras / parameters / defaultSalesAccount
    		SI taille{exerciceComptable.defaultSalesAccount} > 0 ALORS 
    			ws += '<defaultSalesAccount>' + codeXml{exerciceComptable.defaultSalesAccount} + '</defaultSalesAccount>'
    		FINSI
    
    -- extras / parameters / defaultCustomerAccount
    		SI taille{exerciceComptable.defaultCustomerAccount} > 0 ALORS
    			ws += '<defaultCustomerAccount>' + codeXml{exerciceComptable.defaultCustomerAccount} + '</defaultCustomerAccount>'
    		FINSI
    
    -- extras / parameters / defaultSupplierAccount
    		SI taille{exerciceComptable.defaultSupplierAccount} > 0 ALORS
    			ws += '<defaultSupplierAccount>' + codeXml{exerciceComptable.defaultSupplierAccount} + '</defaultSupplierAccount>'
    		FINSI
    
    -- extras / parameters / creditLossesAccount
    		SI taille{exerciceComptable.creditLossesAccount} > 0 ALORS
    			ws += '<creditLossesAccount>' + codeXml{exerciceComptable.creditLossesAccount} + '</creditLossesAccount>'
    		FINSI
    
    -- extras / parameters / depositPaidAccount
    		SI taille{exerciceComptable.depositPaidAccount} > 0 ALORS
    			ws += '<depositPaidAccount>' + codeXml{exerciceComptable.depositPaidAccount} + '</depositPaidAccount>'
    		FINSI
    
    -- extras / parameters / paymentReceivedAccount
    		SI taille{exerciceComptable.paymentReceivedAccount} > 0 ALORS
    			ws += '<paymentReceivedAccount>' + codeXml{exerciceComptable.paymentReceivedAccount} + '</paymentReceivedAccount>'
    		FINSI
    
    -- extras / parameters / subjectToVAT
    		--ws += '<subjectToVAT></subjectToVAT>'  
    
    -- extras / parameters / defaultVATRate
    		--ws += '<defaultVATRate></defaultVATRate>' 
    
    -- extras / parameters / VATSystem
    		SI tmpVATSystem <> ? ALORS
    			ws += '<VATSystem>' + codeXml{tmpVATSystem} + '</VATSystem>' 
    		FINSI
    
    -- extras / parameters / VATMethodOnSales
    		SI tmpVATMethodOnSales <> ? ALORS
    			ws += '<VATMethodOnSales>' + codeXml{tmpVATMethodOnSales} + '</VATMethodOnSales>' 
    		FINSI
    
    -- extras / parameters / VATMethodOnPurchases
    		SI tmpVATMethodOnPurchases <> ? ALORS
    			ws += '<VATMethodOnPurchases>' + codeXml{tmpVATMethodOnPurchases} + '</VATMethodOnPurchases>'
    		FINSI
    
    -- extras / parameters / FRP
    		SI taille{dossier.NuméroFrp} > 0 ALORS
    			ws += '<FRP>' + codeXml{dossier.NuméroFrp} + '</FRP>'
    		FINSI
    
    -- extras / parameters / VATPaymentAccount
    		SI taille{exerciceComptable.VATPaymentAccount} > 0 ALORS
    			ws += '<VATPaymentAccount>' + codeXml{exerciceComptable.VATPaymentAccount} + '</VATPaymentAccount>'
    		FINSI
    
    -- extras / parameters / VATCreditAccount
    		SI taille{exerciceComptable.VATCreditAccount} > 0 ALORS
    			ws += '<VATCreditAccount>' + codeXml{exerciceComptable.VATCreditAccount} + '</VATCreditAccount>'
    		FINSI
    
    -- extras / parameters / VATToBeRegularizedAccount
    		SI taille{exerciceComptable.VATToBeRegularizedAccount} > 0 ALORS
    			ws += '<VATToBeRegularizedAccount>' + codeXml{exerciceComptable.VATToBeRegularizedAccount} + '</VATToBeRegularizedAccount>'
    		FINSI
    
    -- extras / parameters / VATReimbursementAccount
    		SI taille{exerciceComptable.VATReimbursementAccount} > 0 ALORS
    			ws += '<VATReimbursementAccount>' + codeXml{exerciceComptable.VATReimbursementAccount} + '</VATReimbursementAccount>'
    		FINSI
    
    -- extras / parameters / VATDepositAccount
    		SI taille{exerciceComptable.VATDepositAccount} > 0 ALORS
    			ws += '<VATDepositAccount>' + codeXml{exerciceComptable.VATDepositAccount} + '</VATDepositAccount>'
    		FINSI
    
    -- extras / parameters / accountOfBookValuesOfDisposedAssets
    		SI taille{exerciceComptable.accountOfBookValuesOfDisposedAssets} > 0 ALORS
    			ws += '<accountOfBookValuesOfDisposedAssets>' + codeXml{exerciceComptable.accountOfBookValuesOfDisposedAssets} + '</accountOfBookValuesOfDisposedAssets>'
    		FINSI
    
    -- extras / parameters / accountOfRevenueFromSaleOfAssets
    		SI taille{exerciceComptable.accountOfRevenueFromSaleOfAssets} > 0 ALORS
    			ws += '<accountOfRevenueFromSaleOfAssets>' + codeXml{exerciceComptable.accountOfRevenueFromSaleOfAssets} + '</accountOfRevenueFromSaleOfAssets>'
    		FINSI
    
    -- extras / parameters / firstFinancialDate
    		ws += '<firstFinancialDate>'+ codeXml{''+dateDebutExercice1} + '</firstFinancialDate>'
    
    -- extras / parameters / fiscalEndOfTheFirstFiscalPeriod
    		ws += '<fiscalEndOfTheFirstFiscalPeriod>'+ codeXml{''+dateFinExercice1} + '</fiscalEndOfTheFirstFiscalPeriod>'
    
    -- extras / parameters / taxSystem
    		SI tmptaxSystem <> ? ALORS
    			ws += '<taxSystem>' + codeXml{tmptaxSystem} + '</taxSystem>' 
    		FINSI
    	----  fin parameters
    	ws += '</parameters>'
    
    ----  fin extras	
    	ws += '</extras>'
    	
    ---- company
    	SI taille{dossier.Adresse1} > 0 OU taille{dossier.Adresse2} > 0 OU taille{dossier.Adresse3} > 0 OU taille{dossier.CodePostal} > 0 OU taille{dossier.Ville} > 0 OU
    	     taille{paysCompany} > 0 OU taille{dossier.Fax} > 0 OU taille{dossier.TelephonePortable} > 0 OU taille{dossier.formeJuridique} > 0 OU taille{dossier.Activite} > 0
    	ALORS
    		ws += '<company>'
    
    -- company / address1
    			SI taille{dossier.Adresse1} > 0 ALORS
    				ws += '<address1>' + codeXml{dossier.Adresse1} + '</address1>'
    			FINSI
    
    -- company / address2
    			SI taille{dossier.Adresse2} > 0 ALORS			
    				ws += '<address2>' + codeXml{dossier.Adresse2} + '</address2>'
    			FINSI
    
    -- company / address3
    			SI taille{dossier.Adresse3} > 0 ALORS			
    				ws += '<address3>' + codeXml{dossier.Adresse3} + '</address3>'			
    			FINSI
    
    -- company / zipCode
    			SI taille{dossier.CodePostal} > 0 ALORS				
    				ws += '<zipCode>' + codeXml{dossier.CodePostal} + '</zipCode>'
    			FINSI
    
    -- company / city
    			SI taille{dossier.Ville} > 0 ALORS			
    				ws += '<city>' + codeXml{dossier.Ville} + '</city>'
    			FINSI
    
    -- company / country
    			SI taille{paysCompany} > 0 ALORS				
    				ws += '<country>' + codeXml{paysCompany} + '</country>'
    			FINSI
    
    -- company / fax
    			SI taille{dossier.Fax} > 0 ALORS
    				ws += '<fax>' + codeXml{dossier.Fax} + '</fax>'	
    			FINSI
    
    -- company / cellular
    			SI taille{dossier.TelephonePortable} > 0 ALORS			
    				ws += '<cellular>' + codeXml{dossier.TelephonePortable} + '</cellular>'
    			FINSI
    
    -- company / legalForm
    			SI taille{dossier.formeJuridique} > 0 ALORS			
    				ws += '<legalForm>' + codeXml{dossier.formeJuridique} + '</legalForm>'
    			FINSI
    
    -- company / activity
    			SI taille{dossier.Activite} > 0 ALORS				
    				ws += '<activity>' + codeXml{sansEspaceALaFin{dossier.Activite}} + '</activity>'
    			FINSI
    ----  fin company	
    		ws += '</company>'
    	FINSI
    
    ---- oga
    	tmpVirgule := FAUX
    	SI taille{nameCga} > 0 OU taille{fullNameCga} > 0 OU taille{numeroCga} > 0 OU taille{address1Cga} > 0 OU taille{address2Cga} > 0 OU taille{address3Cga} > 0 OU taille{zipCodeCga} > 0 OU
    	    taille{cityCga} > 0 OU taille{countryCga} > 0 OU taille{phoneCga} > 0 OU taille{faxCga} > 0 OU taille{cellularCga} > 0 OU taille{emailCga} > 0 OU taille{websiteCga} > 0
    	ALORS
    		ws += '<oga>'
    
    -- oga / name
    		SI taille{nameCga} > 0 ALORS
    			ws += '<name>' + codeXml{nameCga} + '</name>'
    		FINSI
    
    -- oga / fullName
    		SI taille{fullNameCga} > 0 ALORS			
    			ws += '<fullName>' + codeXml{fullNameCga} + '</fullName>'
    		FINSI
    
    -- oga / agreementNumber
    		SI taille{numeroCga} > 0 ALORS			
    			ws += '<agreementNumber>' + codeXml{numeroCga} + '</agreementNumber>'
    		FINSI
    
    -- oga / address1
    		SI taille{address1Cga} > 0 ALORS			
    			ws += '<address1>' + codeXml{address1Cga} + '</address1>'
    		FINSI
    
    -- oga / address2
    		SI taille{address2Cga} > 0 ALORS			
    			ws += '<address2>' + codeXml{address2Cga} + '</address2>'
    		FINSI
    
    -- oga / address3
    		SI taille{address3Cga} > 0 ALORS			
    			ws += '<address3>' + codeXml{address3Cga} + '</address3>'			
    		FINSI
    
    -- oga / zipCode
    		SI taille{zipCodeCga} > 0 ALORS			
    			ws += '<zipCode>' + codeXml{zipCodeCga} + '</zipCode>'			
    		FINSI
    
    -- oga / city
    		SI taille{cityCga} > 0 ALORS		
    			ws += '<city>' + codeXml{cityCga} + '</city>'
    		FINSI
    
    -- oga / country
    		SI taille{countryCga} > 0 ALORS		
    			ws += '<country>' + codeXml{countryCga} + '</country>'
    		FINSI
    
    -- oga / phone
    		SI taille{phoneCga} > 0 ALORS			
    			ws += '<phone>' + codeXml{phoneCga} + '</phone>'
    		FINSI
    
    -- oga / fax
    		SI taille{faxCga} > 0 ALORS
    			ws += '<fax>' + codeXml{faxCga} + '</fax>'
    		FINSI
    
    -- oga / cellular
    		SI taille{cellularCga} > 0 ALORS			
    			ws += '<cellular>' + codeXml{cellularCga} + '</cellular>'
    		FINSI
    
    -- oga / email
    		SI taille{emailCga} > 0 ALORS
    			ws += '<email>' + codeXml{emailCga} + '</email>'
    		FINSI
    
    -- oga / website
    		SI taille{websiteCga} > 0 ALORS		
    			ws += '<website>' + codeXml{websiteCga} + '</website>'			
    		FINSI
    ----  fin oga	
    		ws += '</oga>'
    	FINSI
    
    ---- accountant
    	tmpVirgule := FAUX
    	SI taille{cabinet.expertComptableSignataireAvecNom} > 0 OU taille{cabinet.RaisonSociale} > 0 OU taille{siretEntite} > 0 OU taille{address1Entite} > 0 OU taille{address2Entite} > 0 OU 
    	    taille{address3Entite} > 0 OU taille{zipCodeEntite} > 0 OU taille{cityEntite} > 0 OU taille{countryEntite} > 0 OU taille{phoneEntite} > 0 OU 
    	    taille{emailEntite} > 0 OU taille{websiteEntite} > 0 OU taille{faxEntite} > 0 OU taille{cellularEntite} > 0
    	ALORS
    
    		ws += '<accountant>'
    
    -- accountant / name
    		SI taille{cabinet.expertComptableSignataire} > 0  ALORS
    			ws += '<name>' + codeXml{cabinet.expertComptableSignataire} + '</name>' 
    		FINSI
    
    -- accountant / fullName
    		SI  taille{cabinet.RaisonSociale} > 0 ALORS			
    			ws += '<fullName>' + codeXml{cabinet.RaisonSociale} + '</fullName>'
    		FINSI
    
    -- accountant / siret
    		SI taille{siretEntite} > 0 ALORS			
    			ws += '<siret>' + codeXml{siretEntite} + '</siret>'
    		FINSI
    
    -- accountant / address1
    		SI taille{address1Entite} > 0 ALORS			
    			ws += '<address1>' + codeXml{address1Entite} + '</address1>'			
    		FINSI
    
    -- accountant / address2
    		SI taille{address2Entite} > 0 ALORS			
    			ws += '<address2>' + codeXml{address2Entite} + '</address2>'			
    		FINSI
    
    -- accountant / address3
    		SI taille{address3Entite} > 0 ALORS			
    			ws += '<address3>' + codeXml{address3Entite} + '</address3>'
    		FINSI
    
    -- accountant / zipCode
    		SI taille{zipCodeEntite} > 0 ALORS			
    			ws += '<zipCode>' + codeXml{zipCodeEntite} + '</zipCode>'
    		FINSI
    
    -- accountant / city
    		SI taille{cityEntite} > 0 ALORS		
    			ws += '<city>' + codeXml{cityEntite} + '</city>'
    		FINSI
    
    -- accountant / country
    		SI taille{countryEntite} > 0 ALORS			
    			ws += '<country>' + codeXml{countryEntite} + '</country>'
    		FINSI
    
    -- accountant / phone
    		SI taille{phoneEntite} > 0 ALORS			
    			ws += '<phone>' + codeXml{phoneEntite} + '</phone>'
    		FINSI
    
    -- accountant / email
    		SI taille{emailEntite} > 0 ALORS			
    			ws += '<email>' + codeXml{emailEntite} + '</email>'
    		FINSI
    
    -- accountant / website
    		SI taille{websiteEntite} > 0 ALORS			
    			ws += '<website>' + codeXml{websiteEntite} + '</website>'			
    		FINSI
    
    -- accountant / fax
    		SI taille{faxEntite} > 0 ALORS
    			ws += '<fax>' + codeXml{faxEntite} + '</fax>'
    		FINSI
    
    -- accountant / cellular
    		SI taille{cellularEntite} > 0 ALORS			
    			ws += '<cellular>' + codeXml{cellularEntite} + '</cellular>'
    		FINSI
    ----  fin accountant
    		ws += '</accountant>'
    	FINSI
    
    	SI taille{exerciceComptable.notesCUTE[aujourdhui{}]} > 0 ALORS
    		ws += '<notes>'
    		ws += '<date>'+ codeXml{date{'AAAA-MM-JJ',aujourdhui{}} +' (' +formaterHeure{'hh:mm:ss',heure{}}+ ')'} +  '</date>'
    		ws += '<description>' + json{exerciceComptable.notesCUTE[aujourdhui{}]} + '</description>'
    		ws += '</notes>'
    	FINSI
    
    
    	ws += '</operatingCompany></sdata:payload></entry>'
    FINSI
###
'CorrigerDoubles' 'Toutes fonctions'
{typeContact <Chaine>}
    --Création : 15/01/2014 14:51:15 sav-PO36696; Modification : 20/01/2014 16:12:46 llg-PO36696; 
    
    |
    	lst<Objet>doss<Objet>first<Booléen>pers<Objet>
    |
    
    pers	::=	'Personne'
    
    first	:=	VRAI
    
    POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    	SI element.type = typeContact ALORS
    		pers	:=	element.personne
    		SI pers <> ? ALORS
    			SI NON first ALORS
    				loggerContactsDouble{'Suppression du contact '+pers.fullName+' ( '+typeContact+' ) car en double'}
    				supprimer{element}
    			FIN SI
    			SI first ALORS 
    				first	:=	FAUX 
    			FIN SI
    		FIN SI
    
    	FIN SI
    FIN FAIRE
    
    SORTIR VRAI
###
'CorrigerContactsDoubles' 'Toutes fonctions'
    --Création : 20/01/2014 12:47:20 llg-PO36696; Modification : 18/06/2014 15:07:14 llg-PO36696; 
    |
    	lstRolesUniques<Objet>i<Entier>strRole<Chaine>
    |
    
    lstRolesUniques	:=	creerListe{}
    ajouterElement{lstRolesUniques, 'Dossier'}
    ajouterElement{lstRolesUniques, 'Recette des impôts'}
    ajouterElement{lstRolesUniques, 'SIE'}
    ajouterElement{lstRolesUniques, 'Centre des impôts'}
    ajouterElement{lstRolesUniques, 'Aga'}
    ajouterElement{lstRolesUniques, 'Cga'}
    ajouterElement{lstRolesUniques, 'Société intégrante'}
    ajouterElement{lstRolesUniques, 'Service des tiers déclarants'}
    ajouterElement{lstRolesUniques, 'Responsable dossier'}
    ajouterElement{lstRolesUniques, 'Représentant légal'}
    ajouterElement{lstRolesUniques, 'Responsable entreprise'}
    ajouterElement{lstRolesUniques, 'Responsable paye'}
    
    debug{'Correction des doubles'}
    
    i	:=	1
    TANT QUE i <= nbElements{lstRolesUniques} FAIRE
    	strRole	:=	chaine{elementDIndice{lstRolesUniques, i}}
    	CorrigerDoubles{strRole}
    	i	+=	1
    FIN FAIRE
    info{'Traitement terminé'}
    
    SORTIR VRAI
###
'loggerContactsDouble' 'Toutes fonctions'
{msg <Chaine>}
    --Création : 20/01/2014 16:08:37 llg-PO36696; Modification : 20/01/2014 16:22:58 llg-PO36696; 
    
    |
    	fic<Chaine>dteHeure<Chaine>
    |
    
    collaborateur	::=	''
    dteHeure	:=	aujourdhui{}+' - '+formaterHeure{'hh:mm:ss', heure{}}
    fichierEcriture{racine{}+'\local\contacts\contactsEnDouble.txt', 3}
    
    ecrire{dteHeure+'	'+CodeDossier+'	'+collaborateur.nom+'	'+msg+'
'}
    
    fichierEcriture{''}
###
'estUnContactUtiliseViaApplication' 'Toutes fonctions'
{unTypeDeContact <Chaine> nomAfficheDeContact <Chaine> uneApplication <Chaine>}
    --Création : 20/11/2014 15:44:11 llg-PC100391; Modification : 24/11/2014 13:15:08 llg-PC100391; 
    
    
    |
    	ok<Booléen>unElem<Objet>
    |
    
    unElem	::=	'Role'
    unElem	:=	?
    
    ok	:=	FAUX
    POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    	SI element.type = unTypeDeContact ET element.nomAffiche = nomAfficheDeContact ALORS
    		SI element.estUtilisePar # ('*'+uneApplication+'*') ALORS
    			ok	:=	VRAI
    		FIN SI
    	FIN SI
    FIN FAIRE
    
    SORTIR ok
###
'unselectContactViaApplication' 'Toutes fonctions'
{unTypeDeContact <Chaine> nomAfficheDeContact <Chaine> uneApplication <Chaine>}
    --Création : 20/11/2014 15:44:11 llg-PC100391; Modification : 24/11/2014 11:52:06 llg-PC100391; 
    
    
    |
    	ok<Booléen>unElem<Objet>
    |
    
    unElem	::=	'Role'
    unElem	:=	?
    
    ok	:=	FAUX
    POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    	SI element.type = unTypeDeContact ET element.nomAffiche = nomAfficheDeContact ALORS
    		SI element.estUtilisePar # ('*'+uneApplication+'*') ALORS
    			element.estUtilisePar := substituerChaine{element.estUtilisePar, uneApplication+';', ''}
    			unElem	:=	element
    		FIN SI
    		ok	:=	VRAI
    	FIN SI
    FIN FAIRE
    
    SI NON ok ALORS
    	info{'Aucune correspondance de contact de nom '+nomAfficheDeContact +' et de type '+unTypeDeContact +'.
Traitement annulé.'}
    	SORTIR FAUX
    FIN SI
    			
    SI unElem <> ? ALORS
    	commit{unElem}
    FIN SI
    
    SORTIR VRAI
###
'selectionContactViaApplication' 'Toutes fonctions'
{unTypeDeContact <Chaine> uneApplication <Chaine>}
    --Création : 20/11/2014 15:44:11 llg-PC100391; Modification : 23/01/2015 18:06:52 llg-PC100391; 
    
    
    |
    	lst<Objet>unElem<Objet>pers<Objet>lstStr<Objet>strSel<Chaine> roleNull <Objet>
    |
    
    pers	::=	'Personne'
    unElem	::=	'Role'
    unElem := ?
    roleNull ::= 	'Role'
    roleNull := ?
    lst	:=	creerListe{}
    
    roleNull := creer{'Role'}
    roleNull.nomAffiche := '?'

    POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    	SI element.type = unTypeDeContact ALORS
    		SI element.personne <> ? ALORS
    			element.getNomAffiche{}
    			ajouterElement{lst, element}    			
    		FIN SI
    	FIN SI
    FIN FAIRE
    
    SI nbElements{lst} = 0 ALORS
    	info{'Aucune correspondance de contact de type '+unTypeDeContact+'
Traitement annulé'}
    	SORTIR unElem
    FIN SI

    -- Ajout d'un élément indéfini
	ajouterElement{lst, roleNull}

    trierListe{lst, 'nomAffiche'}
    
    unElem	:=	choixListe{'Sélectionner un(e) '+unTypeDeContact, lst, 'nomAffiche'}
    SI unElem = ? ALORS
    	SI NON (unElem.nomAffiche = '?' OU unElem.nomAffiche = ?) ALORS
    		info{'Souci lors de la sélection du contact.
Traitement annulé.'}
    		SORTIR unElem
    	FIN SI
    	SORTIR unElem
    FIN SI
    
    SI NON unElem.estUtilisePar # ('*'+uneApplication+'*') ALORS
    	unElem.estUtilisePar += uneApplication+';'
    	commit{unElem}
    FIN SI
    
    SORTIR unElem
###
'selectionContactViaApplicationBanquePaye' 'Toutes fonctions'
{unTypeDeContact <Chaine> uneApplication <Chaine>}
    --Création : 20/11/2014 15:44:11 llg-PC100391; Modification : 23/01/2015 18:06:52 llg-PC100391; 
    
    
    |
    	lst<Objet>unElem<Objet>pers<Objet>lstStr<Objet>strSel<Chaine> roleNull <Objet>
    	dicoBanque<Objet> objDico<Objet> sBanque<Chaine> iBanque<Entier>
    |
    
    pers	::=	'Personne'
    unElem	::=	'Role'
    unElem := ?
    roleNull ::= 	'Role'
    roleNull := ?
    lst	:=	creerListe{}
    
    roleNull := creer{'Role'}
    roleNull.nomAffiche := '?'

    dicoBanque := creerDictionnaire{}
    iBanque := 1

    POUR TOUT element<Role> DE lstTousContacts FAIRE
    	pers := element.personne
    	SI element.type = unTypeDeContact ALORS
    		SI element.personne <> ? ALORS
    			sBanque := chaine{element.getNomAffiche{}}
    			objDico := cleValeur{dicoBanque, sBanque}
				SI objDico = ? ALORS
					ajouterElement{lst, element}
					cleValeur{dicoBanque, sBanque, iBanque}
					iBanque += 1
				FINSI
    		FIN SI
    	FIN SI
    FIN FAIRE
    
    SI nbElements{lst} = 0 ALORS
    	info{'Aucune correspondance de contact de type '+unTypeDeContact+'
Traitement annulé'}
    	SORTIR unElem
    FIN SI

    -- Ajout d'un élément indéfini
	ajouterElement{lst, roleNull}

    trierListe{lst, 'nomAffiche'}
    
    unElem	:=	choixListe{'Sélectionner un(e) '+unTypeDeContact, lst, 'nomAffiche'}
    SI unElem = ? ALORS
    	SI NON (unElem.nomAffiche = '?' OU unElem.nomAffiche = ?) ALORS
    		info{'Souci lors de la sélection du contact.
Traitement annulé.'}
    		SORTIR unElem
    	FIN SI
    	SORTIR unElem
    FIN SI
    
    SI NON unElem.estUtilisePar # ('*'+uneApplication+'*') ALORS
    	unElem.estUtilisePar += uneApplication+';'
    	commit{unElem}
    FIN SI
    
    SORTIR unElem
###
'RofEDITDFC_FILLE_MODIF' 'Toutes fonctions'
    --Création : 09/05/2011 11:46:57 scr-PC15753; Modification : 27/03/2015 13:22:10 scr-PC101399; 
    
    |
    	mauvaiseROF<Booléen>
    |
    
    mauvaiseROF	:=	FAUX
    
    SI RofEDITDFC = ? ALORS
    	SORTIR VRAI
    FIN SI
    
    SI NON valider{RofEDITDFC, '^IS([1-9][0-9]?[0-9]?[0-9]?[0-9]?)$'} 
    ET NON valider{RofEDITDFC, '^BIC([1-9][0-9]?[0-9]?[0-9]?[0-9]?)$'} 
    ET NON valider{RofEDITDFC, '^ISGROUPE([1-9][0-9]?[0-9]?[0-9]?[0-9]?)$'} 
    ALORS
    	mauvaiseROF	:=	VRAI
    FIN SI
    
    SI mauvaiseROF ALORS	
    	SI NON ouiNon{'Attention : la ROF doit être BIC, IS, ISGROUPE 1 à 5 numériques.
Validez-vous quand même votre saisie ?'} ALORS SORTIR FAUX FIN SI
    FIN SI
    
    SORTIR VRAI
###
'RofEDITDFC_MERE_MODIF' 'Toutes fonctions'
    --Création : 09/05/2011 11:46:57 scr-PC15753; Modification : 27/03/2015 13:22:10 scr-PC101399; 
    
    |
    	mauvaiseROF<Booléen>
    |
    
    mauvaiseROF	:=	FAUX
    
    SI RofEDITDFC = ? ALORS
    	SORTIR VRAI
    FIN SI
    
    SI NON valider{RofEDITDFC, '^IS([1-9][0-9]?[0-9]?[0-9]?[0-9]?)$'} 
    ET NON valider{RofEDITDFC, '^BIC([1-9][0-9]?[0-9]?[0-9]?[0-9]?)$'} 
    ET NON valider{RofEDITDFC, '^ISGROUPE([1-9][0-9]?[0-9]?[0-9]?[0-9]?)$'} 
    ALORS
    	mauvaiseROF	:=	VRAI
    FIN SI
    
    SI mauvaiseROF ALORS	
    	SI NON ouiNon{'Attention : la ROF doit être BIC, IS, ISGROUPE 1 à 5 numériques.
Validez-vous quand même votre saisie ?'} ALORS SORTIR FAUX FIN SI
    FIN SI
    
    SORTIR VRAI
###
'substituerCharPortail' 'Iban'
{maChaine <Chaine>}
    --Création : 28/05/2010 14:21:32 lgu-PC15747; Modification : 02/05/2013 16:21:32 llg-PO36696; 
    |
    maSubstitution <Chaine> CR <Chaine>
    |
    CR := '
'
    maSubstitution := maChaine
    SI maSubstitution <> ?
    ALORS
    	maSubstitution := substituerChaine{maSubstitution, '?', '??'}
    	maSubstitution := substituerChaine{maSubstitution, '+', '?+'}
    	maSubstitution := substituerChaine{maSubstitution,'''', '?'''}
    	maSubstitution := substituerChaine{maSubstitution,':', '?:'}
    	maSubstitution := substituerCaracteres{maSubstitution, CR, ''}
    FINSI
    SORTIR maSubstitution
###
'sansValeur' 'Iban'
{variable <Chaine>}
    --Création : 28/05/2010 14:27:25 lgu-PC15747; Modification : 02/05/2013 16:21:32 llg-PO36696; 
    SI variable = '' OU sansEspace{variable} = '' OU variable = ?	
    	ALORS	SORTIR VRAI	
    	SINON	SORTIR FAUX
    FINSI
###
'sansEspace' 'Iban'
{variable <Chaine>}
    --Création : 28/05/2010 14:28:19 lgu-PC15747; Modification : 02/05/2013 16:21:32 llg-PO36696; 
    
    
    
    
    
    
    
    
    | newVariable <Chaine> car <Chaine> i <Entier> taille <Entier> |
    
    taille := taille {variable}
    i := 1
    
    TANTQUE i <= taille FAIRE
    	car := chaine {variable , i , i}
    	SI car = ' ' ALORS
    		newVariable += ''
    	SINON
    		newVariable += car
    	FINSI
    	i += 1
    FINFAIRE
    
    SORTIR newVariable
###
'controleSiret' 'Iban'
{siretPasse <Chaine>}
    --Création : 28/05/2010 14:38:16 lgu-PC15747; Modification : 02/05/2013 16:21:32 llg-PO36696; 
    
    
    
    
    
    
    
    
    | flotL <Objet> n1 <Entier> n2 <Entier> n3<Entier> n4 <Entier> n5 <Entier> n6 <Entier> n7 <Entier> n8 <Entier> n9 <Entier> n10 <Entier>	 
    n11 <Entier> n12 <Entier> n13 <Entier> n14 <Entier> total <Entier> |
    
    
    SI siretPasse = '00000000000000'		ALORS	SORTIR FAUX	FINSI		-- Ajout TGO 19/03/2007 (maj en EP le 23/08/2007)
    
    SI taille {siretPasse } <> 14	ALORS
    	--message {'Le siret <' + siretPasse + '> ne comprend pas 14 caractères.'}
    	SORTIR FAUX
    SINON
    	flotL := flotLecture{siretPasse}	
    	n1 := entier {lire {flotL, 1}} * 2
    	SI n1 > 9 ALORS n1 := 1 + (n1-10)	FINSI
    	n2 := entier {lire {flotL, 1}} 
    	n3 := entier {lire {flotL, 1}} * 2
    	SI n3 > 9 ALORS n3 := 1 + (n3-10)	FINSI
    	n4 := entier {lire {flotL, 1}} 
    	n5 := entier {lire {flotL, 1}} * 2
    	SI n5 > 9 ALORS n5 := 1 + (n5-10)	FINSI
    	n6 := entier {lire {flotL, 1}} 
    	n7 := entier {lire {flotL, 1}} * 2 
    	SI n7 > 9 ALORS n7 := 1 + (n7-10)	FINSI
    	n8 := entier {lire {flotL, 1}} 
    	n9 := entier {lire {flotL, 1}} * 2
    	SI n9 > 9 ALORS n9 := 1 + (n9-10)	FINSI
    	n10 := entier {lire {flotL, 1}} 
    	n11 := entier {lire {flotL, 1}} * 2
    	SI n11 > 9 ALORS n11 := 1 + (n11-10)	FINSI
    	n12 := entier {lire {flotL, 1}} 
    	n13 := entier {lire {flotL, 1}} * 2
    	SI n13 > 9 ALORS n13 := 1 + (n13-10)	FINSI
    	n14 := entier {lire {flotL, 1}} 
    
    	total := n1 + n2 + n3 + n4 + n5 + n6 + n7 + n8 + n9 + n10 + n11 + n12 + n13 + n14
    	SI modulo{total, 10} > 0
    		ALORS	SORTIR FAUX		
    		SINON 	SORTIR VRAI
    	FINSI	
    
    	
    FINSI
###
'ecrireSegDoc' 'Iban'
    --Création : 28/05/2010 14:23:50 lgu-PC15747; Modification : 02/05/2013 16:21:32 llg-PO36696; 
    
    |
    CR <Chaine> COTE <Chaine> hre <Chaine>
    maRaisonSociale <Chaine> monCodeDossier <Chaine> emailNotification <Chaine>
    monType <Chaine> monCoolID <Chaine> monDestinataire <Chaine>
    datePreparation <Date>
    wStreamDoc <Objet>
    segDoc <Chaine>
    |
    
    CR	:=	'
'
    COTE		:=	''''
    
    collaborateur	::=	''
    wStreamDoc	:=	flotEcriture{}
    
    SI sansValeur{RaisonSociale} ALORS
    	message{'Dossier '+nomDossier+' : Raison sociale non renseignée.'}
    	SORTIR ''
    FINSI
    SI NON controleSiret{Siret}	ALORS
    	message{'Dossier '+nomDossier+' : le numéro SIRET n''est pas renseigné ou est incorrect.'}
    	SORTIR ''
    FINSI
    
    monCodeDossier	:=	CodeDossier
    maRaisonSociale	:=	substituerCharPortail{RaisonSociale}
    
    SI collaborateur.email <> ? ALORS	
    	emailNotification := collaborateur.email
    FINSI
    
    datePreparation :=	aujourdhui {}
    monCoolID	:=	''+coolid{}
    
    SI sansValeur{monCoolID} ALORS
    	message{'CABINET : le Coolid n''est pas renseigné !'}
    	SORTIR ''
    FINSI
    
    hre := formaterHeure { 'hh:mm:ss' , heure{}}
    hre 		:= substituerCaracteres{hre , ':' , ''}
    
    monType	:=	'RibToIban'
    monDestinataire := 'SageEdi'
    
    wStreamDoc	+=	'DOC'
    wStreamDoc	+=	'+01=' + nomLogique {repertoire}
    wStreamDoc	+=	'++03=' + datePreparation
    
    --MILLESIME
    wStreamDoc	+=	'+04=2010'
    
    --PERIODE
    wStreamDoc	+=	'+05='
    
    --DESTINATAIRE
    wStreamDoc	+=	'+06='+monDestinataire
    
    wStreamDoc	+=	'+07=EdiSageRTI' 
    wStreamDoc	+=	'+08='+ monCoolID
    wStreamDoc	+=	'++10='+ monCodeDossier
    wStreamDoc	+=	'+11='+ maRaisonSociale
    wStreamDoc	+=	'+12='+ Siret
    wStreamDoc	+=	'+++15='+ substituerCharPortail{collaborateur.nom}
    
    --NATURE
    wStreamDoc	+=	'+16='+ monType
    
    wStreamDoc	+=	'+17=01/06/2010'
    wStreamDoc	+=	'+18=01/06/2011'
    wStreamDoc	+=	'+19=100601'
    wStreamDoc	+=	'+++++24='+ hre
    wStreamDoc	+=	'++26='+ substituerCharPortail{emailNotification}+COTE
    
    wStreamDoc	+=	CR
    
    segDoc := contenuFlot{wStreamDoc}
    
    SORTIR segDoc
###
'NbCoordBanc' 'Iban'
    --Création : 20/05/2010 15:48:13 dme-MENECD; Modification : 01/10/2013 16:46:21 llg-PO36696; 
    
    | rib<Chaine> nb<Entier> lst2<Objet> dte<Date> |
    
    nb := 0
    
    
    lst2 := datesHistorique{dossier, 'CleRIBGesCab'}
    SI (nbElements{lst2} > 0)	ALORS
    dte := elementEntierDIndice{lst2, nbElements{lst2}}
    rib := CodeBanqueGesCab[dte]+CodeGuichetGesCab[dte]+NumeroCompteGesCab[dte]+CleRIBGesCab[dte]
    SI taille{rib}=23 ET (taille{IBANGesCab[dte]}<1 OU taille{CodeBICGesCab[dte]}<1) ALORS
    	nb += 1
    FIN SI
    FIN SI
    
    lst2 := datesHistorique{dossier, 'CleRIBDossier'}
    SI (nbElements{lst2} > 0)	ALORS
    dte := elementEntierDIndice{lst2, nbElements{lst2}}
    rib := CodeBanqueDossier[dte]+CodeGuichetDossier[dte]+NumeroCompteDossier[dte]+CleRIBDossier[dte]
    SI taille{rib}=23 ET (taille{IBANPaye[dte]}<1 OU taille{CodeBICPaye[dte]}<1) ALORS
    	nb += 1
    FIN SI
    FIN SI
    
    rib := URScodeEtab+URScodeGuichet+URSnumCompte+URScle
    SI taille{rib}=23 ET (taille{URSIBAN}<1 OU taille{URSCodeBIC}<1) ALORS
    	nb += 1
    FINSI
    
    POUR TOUT etablissement FAIRE
    	lst2 := datesHistorique{etablissement, 'CleRIBGesCab'}
    	SI (nbElements{lst2} > 0)	ALORS
    	dte := elementEntierDIndice{lst2, nbElements{lst2}}
    	rib := etablissement.CodeBanqueGesCab[dte]+etablissement.CodeGuichetGesCab[dte]+etablissement.NumeroCompteGesCab[dte]+etablissement.CleRIBGesCab[dte]
    	SI taille{rib}=23 ET (taille{etablissement.IBANGesCab[dte]}<1 OU taille{etablissement.CodeBICGesCab[dte]}<1) ALORS
    		nb += 1
    	FIN SI
    	FIN SI
    
    	lst2 := datesHistorique{etablissement, 'CleRIBDossier'}
    	SI (nbElements{lst2} > 0)	ALORS
    	dte := elementEntierDIndice{lst2, nbElements{lst2}}
    	rib := etablissement.CodeBanqueDossier[dte]+etablissement.CodeGuichetDossier[dte]+etablissement.NumeroCompteDossier[dte]+etablissement.CleRIBDossier[dte]
                    SI taille{rib}=23 ET (taille{etablissement.IBANPaye[dte]}<1 OU taille{etablissement.CodeBICPaye[dte]}<1 ) ALORS
                                   nb += 1
                    FIN SI
    	FIN SI
    
    	rib := etablissement.URScodeEtab+etablissement.URScodeGuichet+etablissement.URSnumCompte+etablissement.URScle
    	SI taille{rib}=23 ET (taille{etablissement.URSIBAN}<1 OU taille{etablissement.URSCodeBIC}<1) ALORS
    		nb += 1
    	FINSI
    FIN FAIRE
    
    rib := TLR1_etab+TLR1_guichet+TLR1_compte+TLR1_cle
    SI taille{rib}=23 ET (taille{TLR1_IBAN}<1 OU taille{TLR1_CodeBIC}<1) ALORS
    	nb += 1
    FINSI
    rib := TLR2_etab+TLR2_guichet+TLR2_compte+TLR2_cle
    SI taille{rib}=23 ET (taille{TLR2_IBAN}<1 OU taille{TLR2_CodeBIC}<1) ALORS
    	nb += 1
    FINSI
    rib := TLR3_etab+TLR3_guichet+TLR3_compte+TLR3_cle
    SI taille{rib}=23 ET (taille{TLR3_IBAN}<1 OU taille{TLR3_CodeBIC}<1) ALORS
    	nb += 1
    FINSI
    
    SORTIR nb
###
'trouverDebutExo' 'IFRS'
{argDate <Date>}
    --Création : 29/06/2004 15:49:16 SJA-SJA; Modification : 02/05/2013 16:21:33 llg-PO36696; 
    
    
    
    
    
    -- recherche le début de l'exercice courant en fonction de la date sélectionnée.
    
    
    |
    	lstDatesDebut<Objet> lstDatesFin<Objet>  i<Entier> dteTrouvee<Date>
    	dd<Date> df<Date>
    |
    
    -- Recherche de la compta
    compta	::=	CodeDossier
    
    -- Pas de compta
    SI compta = ? ALORS 
    	info{'Comptabilité non créée.'} 
    	SORTIR date{'01/01/1901'} 
    FINSI
    
    -- Trouver la date de début et fin d'exo correspondant à la date sélectionnée dp
    lstDatesDebut 	:= 	compta.datesDebut
    lstDatesFin 	:= 	compta.datesFin
    i	 := 	1 
    dteTrouvee 	:= 	?
    
    -- toutes les dates de deb des exo sont dans la table dateDebut. 
    -- Ils suffit donc de trouver la date correspondante à la période sélectionnée pour savoir dans quel exo on est.
    TANT QUE i <= nbElements{lstDatesDebut} FAIRE
    	dd := elementEntierDIndice{lstDatesDebut, i}
    	df := elementEntierDIndice{lstDatesFin, i}
    
    	SI (dd<= argDate) ET (df >= argDate) ALORS 
    		dteTrouvee := dd 
    		exoFin	:=	df
    	FINSI
    
    	i += 1
    FIN FAIRE
    
    -- Pas d"exo créer à la date sélectionnée
    SI dteTrouvee = ? ALORS 
    	info{'Pas d''exercice comptable au : '+argDate} 
    	SORTIR date{'01/01/1901'} 
    FINSI
    
    SORTIR dteTrouvee
###
'majComptes' 'IFRS'
{argCode <Chaine> argType <Chaine> argDate <Date>}
    --Création : 28/09/2004 12:52:10 SJA-SJA; Modification : 02/05/2013 16:21:33 llg-PO36696; 
    
    
    
    
    
    
    
    
    |
    	dteTrouvee<Date>
    |
    
    bonMaj	:=	VRAI
    
    -- recherche le début de l'exercice courant en fonction de la date sélectionnée.
    dteTrouvee	:=	trouverDebutExo{argDate}
    
    SI dteTrouvee = date{'01/01/1901'} ALORS
    	info{'Aucun exercice n''a été trouvé.'}
    	bonMaj	:=	FAUX
    	SORTIR bonMaj
    FINSI
    
    exerciceComptable	::=	dteTrouvee
    
    exerciceComptable.majIFRSComptes{argCode, argType}
    
    SORTIR VRAI
###
'IFRS_MODIF' 'IFRS'
    --Création : 18/06/2004 12:13:21 SJA-SJA; Modification : 02/05/2013 16:21:33 llg-PO36696; 
    -- IFRS ne peut être qu'en début d'exercice.
    
    |
    	dteTrouvee<Date> pc<Objet>
    |
    
    -- recherche le début de l'exercice courant en fonction de la date sélectionnée.
    dteTrouvee	:=	trouverDebutExo{p.debut}
    
    SI dteTrouvee = date{'01/01/1901'} ALORS
    	IFRS	:=	NON IFRS
    	SORTIR FAUX
    FINSI
    
    -- Il faut être sur le début d'exercice pour cocher IFRS
    SI dteTrouvee<> p.debut ALORS 
    --	MODIF 31/12/09 ade : Maestro 214792
    	info{'Vous devez vous positionner sur le ' + dteTrouvee + ', début de l''exercice comptable, pour modifier l''option IFRS.'} 
    	IFRS	:=	NON IFRS
    	SORTIR FAUX 
    FINSI
    
    exerciceComptable	::=	dteTrouvee
    pc	::=	'PlanComptable'
    pc	:=	exerciceComptable.planComptable
    
    -- Décoche
    SI NON IFRS ALORS 
    	-- l'utilisateur ne souhaite pas décocher l'IFRS.
    	SI NON ouiNon{'Si vous annulez l''option IFRS alors toutes les saisies liées à cette option seront détruites.
Souhaitez-vous vraiment désactiver cette option ? '} ALORS 
    		IFRS	:=	VRAI 
    		SORTIR FAUX 
    	FINSI
    
    	exerciceComptable.finJournalIFRS{}
    
    	SI exerciceComptable.modeleJournalUtil ALORS
    		IFRS	:=	VRAI 
    		SORTIR FAUX 
    	FINSI
    
    	-- IFRS décoché
    	viderListe{tableauParam}
    	IFRSSecteur[date{1,1,1}]	!=	?
    	IFRSUGT[date{1,1,1}]		!=	?
    	IFRSCategorie[date{1,1,1}]	!=	?
    	IFRSRetraitement[date{1,1,1}]	!=	?
    	IFRSAjustement			:=	?
    	IFRSElimination			:=	?
    	dateIFRS			:=	?
    	pc.stopIFRS{}
    	affichage{'IFRS'}
    SINON
    	status{'Initialisation IFRS'}
    	-- IFRS coché
    	dateIFRS	:=	dteTrouvee
    
    	-- maj à jours de la  compta pour qu'elle soit IFRS.
    	pc.typerTousComptes{}
    	exerciceComptable.creerJournalIFRS{}
    
    	info{'Votre dossier est désormais soumis aux normes IAS-IFRS.
Vous pouvez compléter et/ou modifier le paramétrage IFRS par défaut sur le plan comptable.
Si besoin, vous pouvez définir des secteurs et des UGT dans l''éditeur de paramétrage IFRS.
Ces changements seront pris en compte à la prochaine ouverture de la comptabilité.'}
    	affichage{'IFRS'}
    
    	--	- Les paramètres de gestion des immobilisations
    
    	status{''}
    	SORTIR VRAI
    FINSI
    
    SORTIR VRAI
###
'Parametrage IFRS...' 'IFRS'
    --Création : 18/06/2004 17:05:22 SJA-SJA; Modification : 02/05/2013 16:21:33 llg-PO36696; 
    -- lanceur d'éditeur de param.
    
    |
    	ed<Objet> date1<Date>
    |
    
    date1	:=	trouverDebutExo{p.debut}
    
    SI date1 = date{'01/01/1901'}  ALORS
    	SORTIR FAUX
    FINSI
    
    SI tableauParam = ? ALORS
    	tableauParam	:=	creerListe{VRAI}
    FINSI
    
    ed	::=	'EditeurIFRS'
    ed	:=	creer{'EditeurIFRS'}
    ed.dossierCourant	:=	CodeDossier
    ed.finExo	:=	exoFin
    ed.ouvrir{date1}
    
    SORTIR VRAI
###
'verifLibelle' 'IFRS'
{argLigne <Objet>}
    --Création : 01/07/2004 16:20:28 SJA-SJA; Modification : 02/05/2013 16:21:33 llg-PO36696; 
    
    
    
    
    
    -- Il ne doit pas avoir de doublon dans les libellés d'une même catégorie IFRS.
    
    
    -- Argument :
    --	argLigne : ligne saisie à vérifier.
    
    -- Variable :
    --	ligneI : ligne testée.
    
    |
    	ligneI<Objet>
    |
    
    -- récuparation de la ligne contenant le libellé à tester.
    ligneI	::=	'LigneIFRS'
    ligneI	:=	argLigne
    
    -- par défaut, le libellé est validé.
    validation	:=	VRAI
    
    -- Parcour les lignes pour savoir si le libellé n'existe pas déjà.
    POUR TOUT element<LigneIFRS> DE tableauParam FAIRE
    
    	-- La comparaison ne doit évidemment pas se faire avec la ligne à tester.
    	SI  NON ligneI = element ALORS
    		-- Si le libellé saisi existe déjà dans la même catégorie, il n'est pas validé.
    		SI ligneI.libelle = element.libelle ET ligneI.categorie = element.categorie ALORS
    			validation	:=	FAUX
    		FINSI
    	FINSI
    FINFAIRE
###
'verifNumero' 'IFRS'
{argLigne <Objet>}
    --Création : 01/07/2004 15:03:05 SJA-SJA; Modification : 02/05/2013 16:21:33 llg-PO36696; 
    
    
    
    
    
    -- Il ne doit pas avoir de doublon dans les numéros d'une même catégorie IFRS.
    
    
    -- Argument :
    --	argLigne : ligne saisie à vérifier.
    
    -- Variable :
    --	ligneI : ligne testée.
    
    |
    	ligneI<Objet>
    |
    
    -- récuparation de la ligne contenant le numéro à tester.
    ligneI	::=	'LigneIFRS'
    ligneI	:=	argLigne
    
    -- par défaut, le numéro est validé.
    validation	:=	VRAI
    
    -- Parcour les lignes pour savoir si le numéro n'existe pas déjà.
    POUR TOUT element<LigneIFRS> DE tableauParam FAIRE
    
    	-- La comparaison ne doit évidemment pas se faire avec la ligne à tester.
    	SI  NON ligneI = element ALORS
    		-- Si le numéro saisi existe déjà dans la même catégorie, il n'est pas validé.
    		SI ligneI.code = element.code ET ligneI.categorie = element.categorie ALORS
    			validation	:=	FAUX
    		FINSI
    	FINSI
    FINFAIRE
###
'marquerIFRS' 'IFRS'
{argLib <Chaine> argCat <Chaine> argMarque <Chaine>}
    --Création : 24/05/2005 11:30:58 SJA-SJAMIN; Modification : 02/05/2013 16:21:33 llg-PO36696; 
    
    
    
    
    
    -- Fonction qui marque ou démarque les paramètres IFRS suivant les différentes applications.
    
    
    -- Arguments :
    --	argLib :  Libellé du paramétrage à marquer.
    --	argCat : Catégorie du paramétrage à trouver.
    
    POUR TOUT element<LigneIFRS> DE tableauParam FAIRE
    	SI element.categorie = argCat ET element.libelle = argLib ALORS
    		SI argMarque = '+' ALORS
    			element.util	+=	1
    		FINSI
    		SI argMarque = '-' ALORS
    			element.util	-=	1
    		FINSI
    	FIN SI
    FIN FAIRE
###
'SELECTIONIFRS' 'IFRS'
    --Modification : 29/04/2015 14:45:42 llg2-PC100391; 
    -- SELECTION du dossier: dans ce cas il faut tester la date de passage à l'IFRS pour afficher la coche IFRS.
    
    -- Par défaut, le dossier n'est pas IFRS.
    IFRS	:=	FAUX
    
    -- Teste s'il y a bien une date IFRS
    SI NON dateIFRS = ? ALORS
    	-- Teste si l'utilisateur est sur une période postérieur au passage IFRS.
    	SI periode.debut >= dateIFRS ALORS
    		IFRS	:=	VRAI
    	FINSI
    FINSI
###
'dansEntreprise_MODIF' 'Lettre de mission'
    --Création : 05/07/2006 15:53:06 fpo-FRPOU3; Modification : 02/05/2013 16:21:33 llg-PO36696; 
    
    membreOec := NON dansEntreprise
    
    editeur.majAttributs
    
    SORTIR VRAI
###
'membreOec_MODIF' 'Lettre de mission'
    --Création : 05/07/2006 15:53:06 fpo-FRPOU3; Modification : 02/05/2013 16:21:33 llg-PO36696; 
    
    dansEntreprise := NON membreOec
    
    editeur.majAttributs
    
    SORTIR VRAI
###
'lancerEditeurLettreDeMission' 'Lettre de mission'
    --Création : 11/07/2006 14:32:00 fpo-FRPOU3; Modification : 02/05/2013 16:21:33 llg-PO36696; 
    
    |
    	objLibrairieGI2<Objet>droitLettreDeMission <Entier>
    |
    
    
    objLibrairieGI2 ::= 'LibrairieGI2'
    objLibrairieGI2 := creer{'LibrairieGI2'}
    
    
    editeurLettMiss ::= 'EditeurLettreMission'
    SI editeurLettMiss = ? ALORS
    	editeurLettMiss := creer{'EditeurLettreMission'}
    FINSI
    
    objLibrairieGI2.bTesterAvantOuvrirSqlSrvr{FAUX, FAUX}
    SI objLibrairieGI2.abOk = VRAI ALORS 
    	collaborateur ::= ''
    	droitLettreDeMission := objLibrairieGI2.lVerifierDroitApplication{'Lettre de mission',''}
    	SI droitLettreDeMission = 2 OU droitLettreDeMission = 1 OU bDroitsSuperUtilisateur{FAUX, FAUX} = VRAI ALORS
    		editeurLettMiss.aszCodeDossierLettMiss := CodeDossier
    		editeurLettMiss.aszNomDossierLettMiss := nomDossier
    		editeurLettMiss.OUVRIR{}
    	SINON
    		info{'Vous n''avez pas les droits pour accéder à la lettre de mission'}
    	FIN SI
    SINON
    	info{'La base SqlServer n''est pas installée.
Vous ne pouvez pas accéder à la lettre de mission'}
    FIN SI
###
'Ouvrir les missions de conseil...' 'Menus'
    --Création : 17/09/2003 16:49:54 DME-DOMINIQUE; Modification : 02/05/2013 16:21:33 llg-PO36696; 
    ouvrirConseil{CodeDossier}
###
'Ouvrir la comptabilité analytique...' 'Menus'
    --Création : 17/09/2003 16:50:03 DME-DOMINIQUE; Modification : 02/05/2013 16:21:33 llg-PO36696; 
    ouvrirComptaAna{CodeDossier}
###
'Ouvrir les budgets temps...' 'Menus'
    --Création : 17/09/2003 17:28:23 DME-DOMINIQUE; Modification : 02/05/2013 16:21:33 llg-PO36696; 
    
    OUVRIRBUDGET{}
###
'Année précédente' 'Menus'
    --Création : 18/09/2003 11:42:58 DME-DOMINIQUE; Modification : 02/05/2013 16:21:33 llg-PO36696; 
    periodePrecedente{}
###
'Année suivante' 'Menus'
    --Création : 18/09/2003 11:42:58 DME-DOMINIQUE; Modification : 02/05/2013 16:21:33 llg-PO36696; 
    periodeSuivante{}
###
'OuvrirCoala' 'Menus'
    --Création : 18/09/2003 16:36:14 DME-DOMINIQUE; Modification : 02/05/2013 16:21:33 llg-PO36696; 
    fenetreEntree{}
###
'BARREOUTIL' 'Menus'
    --Création : 16/10/2003 11:38:36 DME-DOMINIQUE; Modification : 02/05/2013 16:21:33 llg-PO36696; 
    
    |
    	ws<Objet> CR<Chaine>
    |
    
    CR := '
'
    ws := flotEcriture{}
    ws += 'precedent.bmp	Année précédente	--Atteindre l''année précédente
suivant.bmp	Année suivante	--Atteindre l''année suivante'+CR
    ws += '--'+CR
    ws += 'coala.bmp	OuvrirCoala	--Mise au premier plan de la fenêtre d''entrée de Coala'+CR
    ws += '--'+CR
    
    SI budgetsPresent ALORS 
    	SI droitsUtilisateur{'Budgets Planning', CodeDossier}>=1 ALORS 
    		ws += 'budgets.bmp	Ouvrir les budgets temps...	--Ouverture des budgets temps'+CR 
    	FINSI 
    FINSI
    
    SI comptabilitePresente ALORS 
    	SI droitsUtilisateur{'Comptabilité', CodeDossier}>=1 ALORS 
    		ws += 'compta.bmp	Ouvrir la comptabilité...	--Ouverture de la comptabilité générale'+CR 
    	FINSI 
    FINSI
    
    SI comptabilitePresente ET analytiquePresente ALORS 
    	SI droitsUtilisateur{'Comptabilité', CodeDossier}>=1 ALORS 
    		ws += 'comptana.bmp	Ouvrir la comptabilité analytique...	--Ouverture de la comptabilité analytique'+CR 
    	FINSI 
    FINSI 
    
    SI comptabilitePresente ET (immobilisationsPresentes OU espaceImmosPresent) ALORS 
    	SI droitsUtilisateur{'Immobilisations', CodeDossier}>=1 ALORS 
    		SI dossier.espaceImmosPresent ALORS
    			ws += 'immos.bmp	Ouvrir les immobilisations...	--Ouverture des investissements & financements'+CR 
    		SINON
    			ws += 'immos.bmp	Ouvrir les immobilisations...	--Ouverture des immobilisations'+CR 
    		FIN SI
    	FINSI 
    FINSI
    
    SI paye2Presente ALORS	
    	SI droitsUtilisateur{'Paye Cabinet', CodeDossier}>=1 ALORS 
    		ws += 'paye2.bmp	Ouvrir l''espace paye...	--Ouverture de l''espace paye'+CR 
    	FINSI
    SINON 
    	SI payePresente ALORS 
    		SI droitsUtilisateur{'Gestion Personnel', CodeDossier}>=1 ALORS 
    			ws += 'paye.bmp	Ouvrir la paye...	--Ouverture de la gestion du personnel'+CR 
    		FINSI 
    	FINSI
    FINSI
    
    SI conseilsPresents ALORS 
    	ws += 'gescap.bmp	Ouvrir les missions de conseil...	--Ouverture des missions de conseil'+CR 
    FINSI
    
    ws+='--'+CR
    ws +='aide.bmp	Aide...	--Aide contextuelle'
    
    SORTIR contenuFlot{ws}
###
'Ouvrir les immobilisations...' 'Menus'
    --Création : 16/09/2003 17:17:16 DME-DOMINIQUE; Modification : 02/05/2013 16:21:33 llg-PO36696; 
    
    |
    	esp<Objet>
    |
    
    SI espaceImmosPresent ALORS
    	-- Investissements et Financements
    	esp	::=	'EspaceImmos'
    	esp	:=	espaceImmos
    	esp.OUVRIR{}
    SINON
    	ouvrirImmos {dossier.CodeDossier }
    FIN SI
###
'Ouvrir la comptabilité...' 'Menus'
    --Création : 16/09/2003 17:17:33 DME-DOMINIQUE; Modification : 02/05/2013 16:21:33 llg-PO36696; 
    ouvrirCompta { dossier.CodeDossier }
###
'Ouvrir l'espace paye...' 'Menus'
    --Création : 16/09/2003 17:17:44 DME-DOMINIQUE; Modification : 02/05/2013 16:21:33 llg-PO36696; 
    ouvrirPaye2{dossier.CodeDossier }
###
'Ouvrir la paye...' 'Menus'
    --Création : 16/09/2003 17:17:44 DME-DOMINIQUE; Modification : 02/05/2013 16:21:33 llg-PO36696; 
    editeur.reset
    ouvrirPaye {dossier.CodeDossier }
###
'MENU_NAVIGATION' 'Menus'
    --Création : 06/08/2003 16:22:58 DME-DOMINIQUE; Modification : 02/05/2013 16:21:34 llg-PO36696; 
    SORTIR
    '
Ouvrir la comptabilité...
Ouvrir les immobilisations...
Ouvrir la paye'
###
'Aide...' 'Menus'
    --Création : 17/09/2003 16:45:51 DME-DOMINIQUE; Modification : 02/05/2013 16:21:34 llg-PO36696; 
    aide{}
###
'voirNotifs' 'Notifications'
    --Création : 19/09/2000 19:22:44 TGU-THIERRY; Modification : 02/05/2013 16:21:34 llg-PO36696; 
    lstNotifs	:=	?
    editeur{ dossier, 'lstNotifs' , 'Historique des notifications du dossier ' + dossier.RaisonSociale , 600 }
    notification {}
###
'notifsC_MODIF' 'Notifications'
    --Création : 30/08/2000 11:24:26 TNI-THIERRY; Modification : 02/05/2013 16:21:34 llg-PO36696; 
    
    |
    oFlot<Objet> oFlotE<Objet>
    CR <Chaine> sCollaborateur<Chaine>
    |
    
    CR	:=	'
'
    
    oFlot	:=	flotLecture{notifsC}
    oFlotE	:=	flotEcriture{}
    
    TANT QUE NON lectureFinie{oFlot}		FAIRE
    	sCollaborateur	:=	lire{oFlot , CR}
    	collaborateur	::=	sCollaborateur
    	SI (collaborateur.nom = ?)		ALORS
    		info{'Attention, le collaborateur ' + sCollaborateur + ' est inconnu '}
    	SINON
    		oFlotE	+=	sCollaborateur + CR
    	FIN SI
    FIN FAIRE
    
    notifsC	:=	contenuFlot{oFlotE}
    
    SORTIR VRAI
###
'notifsI_MODIF' 'Notifications'
    --Création : 30/08/2000 11:24:26 TNI-THIERRY; Modification : 02/05/2013 16:21:34 llg-PO36696; 
    
    |
    oFlot<Objet> oFlotE<Objet>
    CR <Chaine> sCollaborateur<Chaine>
    |
    
    CR	:=	'
'
    
    oFlot	:=	flotLecture{notifsI}
    oFlotE	:=	flotEcriture{}
    
    TANT QUE NON lectureFinie{oFlot}		FAIRE
    	sCollaborateur	:=	lire{oFlot , CR}
    	collaborateur	::=	sCollaborateur
    	SI (collaborateur.nom = ?)		ALORS
    		info{'Attention, le collaborateur ' + sCollaborateur + ' est inconnu '}
    	SINON
    		oFlotE	+=	sCollaborateur + CR
    	FIN SI
    FIN FAIRE
    
    notifsI	:=	contenuFlot{oFlotE}
    
    SORTIR VRAI
###
'notifsP_MODIF' 'Notifications'
    --Création : 30/08/2000 11:24:26 TNI-THIERRY; Modification : 02/05/2013 16:21:34 llg-PO36696; 
    
    |
    oFlot<Objet> oFlotE<Objet>
    CR <Chaine> sCollaborateur<Chaine>
    |
    
    CR	:=	'
'
    
    oFlot	:=	flotLecture{notifsP}
    oFlotE	:=	flotEcriture{}
    
    TANT QUE NON lectureFinie{oFlot}		FAIRE
    	sCollaborateur	:=	lire{oFlot , CR}
    	collaborateur	::=	sCollaborateur
    	SI (collaborateur.nom = ?)		ALORS
    		info{'Attention, le collaborateur ' + sCollaborateur + ' est inconnu '}
    	SINON
    		oFlotE	+=	sCollaborateur + CR
    	FIN SI
    FIN FAIRE
    
    notifsP	:=	contenuFlot{oFlotE}
    
    SORTIR VRAI
###
'lstNotifs_FERMETURE' 'Notifications'
    --Création : 01/09/2000 09:36:22 TGU-THIERRY; Modification : 02/05/2013 16:21:34 llg-PO36696; 
    | CR <Chaine> TAB <Chaine> fic <Chaine> ok <Booléen> dte <Date> heure <Chaine> |
    CR		:=	'
'
    TAB		:=	'	'
    collaborateur	::=	''
    
    POUR TOUT element DE 'dossier.lstNotifs:Notification'
    TRI element.appli
    	PRE CODE
    		ok	:=	FAUX
    		fic	:=	racine {} + '/notifs/dp/' + dossier.CodeDossier + '.' + collaborateur.nom
    		fichierEcriture { fic }
    	FIN CODE
    	POST CODE
    		fichierEcriture {}
    		SI NON ok ALORS
    			detruireFichier {fic}
    		FINSI
    	FIN CODE
    --TEL QUE element.lu = FAUX
    FAIRE
    	SI NON element.lu ALORS
    		ok	:=	VRAI
    
    		ecrire { ''+ element.date }
    		ecrire { TAB }
    		ecrire { element.heure }
    		ecrire { TAB }
    --		ecrire { element.appli }
    		ecrire { 'dp'}
    
    		ecrire { TAB }
    		ecrire{ element.module} ecrire{ ':'}
    		ecrire{ element.destinataire} ecrire{ ':'}
    		ecrire{ dossier.CodeDossier } ecrire{ ':'}
    		ecrire{ element.type} ecrire{ ':'}
    		ecrire{ element.statut} ecrire{ ':'}
    		ecrire { element.libelle }
    		ecrire { CR }
    	FINSI
    FIN FAIRE
    dte	:=	aujourdhui {}
    
    heure := 'hh:mm'
    heure := formaterHeure{heure, heure{}}
    
    fichierEcriture { racine {} + '/notifs/_estamp_' }
    ecrire { '' + dte + ' ' + heure }
    fichierEcriture {}
    
    notification {}
    
    SORTIR VRAI
###
'lstNotifs_LISTE' 'Notifications'
    --Création : 31/08/2000 19:47:02 COALA-THIERRY; Modification : 02/05/2013 16:21:34 llg-PO36696; 
    | CR <Chaine> TAB <Chaine> dte <Chaine> hre <Chaine> appli <Chaine> lib <Chaine> fini <Booléen> obj <Objet> fic <Chaine> lstTemp <Liste> p2 <Entier> p3<Entier>
    sStatut<Chaine> sDestinataire<Chaine> sLibelle<Chaine> sModule <Chaine> sCodeDossier<Chaine> sType<Chaine>
    oFlotL<Objet>
    coulEc<Entier> coulOk<Entier> coulKo<Entier> coulPartiellementKo<Entier> 
    |
    
    coulEc			:= 	RVB{0,0,132}
    coulOk			:=	RVB{ 0,128, 0 }		
    coulPartiellementKo	:=	RVB{220, 156, 0 }
    coulKo			:=	RVB{ 255, 0, 0 }
    
    SI lstNotifs = ? ALORS
    CR		:=	'
'
    TAB		:=	'	'
    
    fini		:=	FAUX
    --fic		:=	dossier.repertoire + '/dp/doc/notifs'
    
    lstNotifs		:=	creerListe {}
    --fichierLecture { fic }
    fichierLecture { racine {} + '/notifs/dp/' + dossier.CodeDossier + '.' + collaborateur.nom }
    
    TANT QUE NON fini FAIRE
    	dte	:=	lire { TAB }
    	hre	:=	lire { TAB }
    	appli	:=	lire { TAB}
    	lib 	:=	lire { CR }
    
    	--Dans le cas de l'Edi on formatte des infos entre des :
    	SI lib # '*:*:*' ALORS
    		oFlotL := flotLecture{ lib}
    		sModule := lire{ oFlotL, ':'}
    		sDestinataire := lire{ oFlotL, ':'}
    		sCodeDossier := lire{ oFlotL, ':'}
    		sType := lire{ oFlotL, ':'}
    		sStatut := lire{ oFlotL, ':'}
    		sLibelle := lire{ oFlotL, CR}
    	FIN SI
    
    	SI taille { dte } = 0 ALORS 
    		fini	:=	VRAI
    	SINON
    		obj	::=	'Notification'
    		obj	:=	creer { 'Notification'}
    		obj.date	:=	date { dte }
    		obj.heure	:=	hre
    		obj.dateHeureTri	:=	''+ chaine { dte, 7 , 10 } + chaine { dte, 4 , 5 } + chaine { dte, 1 , 2} + hre
    		obj.appli	:=	appli
    		--obj.libelle	:=	lib
    
    		obj.module	:= 	sModule
    		obj.destinataire	:=	sDestinataire
    		obj.type		:=	Minuscule{ sType}
    		obj.statut	:=	sStatut
    		obj.libelle	:=	sLibelle
    
    		obj.info_ICONE := ?
    		SI obj.statut # 'EC*' ALORS
    					obj.COULEURTEXTE := coulEc
    					obj.info_ICONE := 'unselect.bmp'
    		SINON	SI obj.statut # 'A*' ALORS
    					obj.COULEURTEXTE := coulOk
    					obj.info_ICONE := 'select.bmp'
    			SINON	SI obj.statut # 'R*' ALORS
    					obj.COULEURTEXTE := coulKo
    					obj.info_ICONE := 'selectlight.bmp'
    				SINON	SI obj.statut # '*STOP*' ALORS
    						obj.COULEURTEXTE := coulKo
    						obj.info_ICONE := 'cadena1b.bmp'
    					SINON 	SI obj.statut # 'PR*' ALORS
    							obj.COULEURTEXTE := coulPartiellementKo
    							obj.info_ICONE := 'selectlight.bmp'
    						FIN SI
    					FIN SI
    				FIN SI
    			FIN SI
    		FIN SI
    
    
    
    		ajouterElement { lstNotifs, obj }	
    	FINSI
    FIN FAIRE
    fichierLecture {''}
    FINSI
    
    lstTemp	:=	lstNotifs
    
    lstNotifs	:=	creerListe {}
    
    SI triDte ALORS	
    	p2	:=	1
    	p3	:=	2
    FINSI
    SI triAppli ALORS	
    	p3	:=	1
    	p2	:=	2
    FINSI
    
    POUR TOUT element DE 'temporaire.lstTemp:Notification'
    
    TRI dateHeureTri POSITION p2
    TRI appli POSITION p3
    FAIRE
    	ajouterElement { lstNotifs, element }
    
    FIN FAIRE
    SORTIR lstNotifs
###
'notifsE_GRIS' 'Notifications'
    --Création : 21/07/2006 16:01:08 spi-TEZE-S; Modification : 02/05/2013 16:21:34 llg-PO36696; 
    SORTIR VRAI
###
'get_FaxNotaires' 'Nouveaux Contacts'
    --Création : 10/05/2011 16:23:57 llg-PO15890; Modification : 02/05/2013 16:21:34 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	?
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Notaire' ALORS
    			pers	:=	element.personne
    			SI pers <> ? ALORS
    				SI element.notairePrincipal ALORS
    					SORTIR pers.fax
    				FIN SI
    				SI first ALORS
    					tmpCh	:=	pers.fax
    					first	:=	FAUX
    				FIN SI
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    SINON
    	SORTIR dossier.{'FaxNotaires'}chaine
    FIN SI
###
'get_FaxAvocat' 'Nouveaux Contacts'
    --Création : 10/05/2011 16:23:57 llg-PO15890; Modification : 02/05/2013 16:21:34 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	?
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Avocat' ALORS
    			pers	:=	element.personne	
    			SI pers <> ? ALORS
    				SI element.avocatPrincipal ALORS	
    					SORTIR pers.fax
    				FIN SI
    				SI first ALORS
    					tmpCh	:=	pers.fax
    					first	:=	FAUX
    				FIN SI
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    SINON
    	SORTIR dossier.{'FaxAvocat'}chaine
    FIN SI
###
'get_TelNotaires' 'Nouveaux Contacts'
    --Création : 10/05/2011 16:23:47 llg-PO15890; Modification : 02/05/2013 16:21:34 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	?
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Notaire' ALORS
    			pers	:=	element.personne
    			SI pers <> ? ALORS
    				SI element.notairePrincipal ALORS
    					SORTIR pers.telephone
    				FIN SI
    				SI first ALORS
    					tmpCh	:=	pers.telephone
    					first	:=	FAUX
    				FIN SI
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    SINON
    	SORTIR dossier.{'TelNotaires'}chaine
    FIN SI
###
'get_TelAvocat' 'Nouveaux Contacts'
    --Création : 10/05/2011 16:23:47 llg-PO15890; Modification : 02/05/2013 16:21:34 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	?
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Avocat' ALORS
    			pers	:=	element.personne
    			SI pers <> ? ALORS
    				SI element.avocatPrincipal ALORS	
    					SORTIR pers.telephone
    				FIN SI
    				SI first ALORS
    					tmpCh	:=	pers.telephone
    					first	:=	FAUX
    				FIN SI
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    SINON
    	SORTIR dossier.{'TelAvocat'}chaine
    FIN SI
###
'get_AdrNotaires' 'Nouveaux Contacts'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 02/05/2013 16:21:34 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	?
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Notaire' ALORS
    			pers	:=	element.personne
    			SI pers <> ? ALORS
    				SI element.notairePrincipal ALORS
    					SORTIR pers.fullName
    				FIN SI
    				SI first ALORS
    					tmpCh	:=	pers.fullName
    					first	:=	FAUX
    				FIN SI
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    SINON
    	SORTIR dossier.{'AdrNotaires'}chaine
    FIN SI
###
'get_AdrAvocat' 'Nouveaux Contacts'
    --Création : 10/05/2011 16:18:07 llg-PO15890; Modification : 02/05/2013 16:21:34 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Avocat' ALORS
    			pers	:=	element.personne	
    			SI element.avocatPrincipal ALORS	
    				SORTIR pers.fullName
    			FIN SI
    			SI first ALORS
    				tmpCh	:=	pers.fullName
    				first	:=	FAUX
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    FIN SI
    
    SORTIR dossier.{'AdrAvocat'}chaine
###
'get_NomAGA' 'Nouveaux Contacts'
    --Création : 31/05/2011 17:03:36 llg-PO15890; Modification : 02/05/2013 16:21:34 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    |
    
    tmpCh	:=	?
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Aga' ALORS
    			pers	:=	element.personne
    			SI pers <> ? ALORS
    				SORTIR pers.fullName
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    SINON
    	SORTIR dossier.{'NomAGA'}chaine
    FIN SI
###
'get_NumAgremAGA' 'Nouveaux Contacts'
    --Création : 31/05/2011 17:03:46 llg-PO15890; Modification : 02/05/2013 16:21:34 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    |
    
    tmpCh	:=	?
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Aga' ALORS
    			pers	:=	element.personne
    			SI pers <> ? ALORS
    				SORTIR pers.numeroNational
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    SINON
    	SORTIR dossier.{'NumAgremAGA'}chaine
    FIN SI
###
'get_TelAGA' 'Nouveaux Contacts'
    --Création : 31/05/2011 17:03:54 llg-PO15890; Modification : 02/05/2013 16:21:34 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    |
    
    tmpCh	:=	?
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Aga' ALORS
    			pers	:=	element.personne
    			SI pers <> ? ALORS
    				SORTIR pers.telephone
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    SINON
    	SORTIR dossier.{'TelAGA'}chaine
    FIN SI
###
'get_FaxAGA' 'Nouveaux Contacts'
    --Création : 31/05/2011 17:05:10 llg-PO15890; Modification : 02/05/2013 16:21:34 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    |
    
    tmpCh	:=	?
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Aga' ALORS
    			pers	:=	element.personne
    			SI pers <> ? ALORS
    				SORTIR pers.fax
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    SINON
    	SORTIR dossier.{'FaxAGA'}chaine
    FIN SI
###
'get_AdresAGA1' 'Nouveaux Contacts'
    --Création : 31/05/2011 17:05:02 llg-PO15890; Modification : 02/05/2013 16:21:34 llg-PO36696; 
    |
    	pers<Objet>
    	adr<Chaine>
    |
    
    adr	:=	?
    
    SI contactExportes ALORS		
    	pers	::=	'Personne'
    
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Aga' ALORS
    			pers	:=	element.personne
    			SI pers <> ? ALORS
    				--SORTIR pers.adresse1
    				SI pers.numero <> ? ET pers.numero <> '' ALORS adr	+=	pers.numero+' ' FIN SI
    				SI pers.bister <> ? ET pers.bister <> '' ALORS adr	+=	pers.bister +' ' FIN SI
    				adr	+=	pers.adresse1
    				SORTIR adr
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR adr
    SINON
    	SORTIR dossier.{'AdresAGA1'}chaine
    FIN SI
###
'get_AdresAGA2' 'Nouveaux Contacts'
    --Création : 31/05/2011 17:04:52 llg-PO15890; Modification : 02/05/2013 16:21:34 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    |
    
    tmpCh	:=	?
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Aga' ALORS
    			pers	:=	element.personne
    			SI pers <> ? ALORS
    				SORTIR pers.adresse2
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    SINON
    	SORTIR dossier.{'AdresAGA2'}chaine
    FIN SI
###
'get_CPAGA' 'Nouveaux Contacts'
    --Création : 31/05/2011 17:04:43 llg-PO15890; Modification : 02/05/2013 16:21:34 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    |
    
    tmpCh	:=	?
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Aga' ALORS
    			pers	:=	element.personne
    			SI pers <> ? ALORS
    				SORTIR pers.codePostal
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    SINON
    	SORTIR dossier.{'CPAGA'}chaine
    FIN SI
###
'get_VilleAGA' 'Nouveaux Contacts'
    --Création : 31/05/2011 17:04:36 llg-PO15890; Modification : 02/05/2013 16:21:34 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    |
    
    tmpCh	:=	?
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Aga' ALORS
    			pers	:=	element.personne
    			SI pers <> ? ALORS
    				SORTIR pers.ville
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    SINON
    	SORTIR dossier.{'VilleAGA'}chaine
    FIN SI
###
'get_siretAGA' 'Nouveaux Contacts'
    --Création : 31/05/2011 17:04:27 llg-PO15890; Modification : 02/05/2013 16:21:34 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    |
    
    tmpCh	:=	?
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Aga' ALORS
    			pers	:=	element.personne
    			SI pers <> ? ALORS
    				SORTIR pers.siret
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    SINON
    	SORTIR dossier.{'siretAGA'}chaine
    FIN SI
###
'get_AdhesAGA' 'Nouveaux Contacts'
    --Création : 31/05/2011 17:04:22 llg-PO15890; Modification : 02/05/2013 16:21:34 llg-PO36696; 
    |
    	dte<Date>
    |
    
    dte	:=	?
    
    SI contactExportes ALORS
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Aga' ALORS
    			SORTIR element.Adhes
    		FIN SI
    	FIN FAIRE
    
    	SORTIR dte
    SINON
    	SORTIR dossier.{'AdhesAGA'}date
    FIN SI
###
'get_NumAdhesAGA' 'Nouveaux Contacts'
    --Création : 31/05/2011 17:04:15 llg-PO15890; Modification : 02/05/2013 16:21:34 llg-PO36696; 
    |
    	tmpCh<Chaine>
    |
    
    tmpCh	:=	?
    
    SI contactExportes ALORS
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Aga' ALORS
    			SORTIR element.NumAdhes
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    SINON
    	SORTIR dossier.{'NumAdhesAGA'}chaine
    FIN SI
###
'get_DateRadiationAGA' 'Nouveaux Contacts'
    --Création : 31/05/2011 17:04:07 llg-PO15890; Modification : 02/05/2013 16:21:34 llg-PO36696; 
    |
    	dte<Date>
    |
    dte	:=	?
    SI contactExportes ALORS
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Aga' ALORS
    			SORTIR element.DateRadiation
    		FIN SI
    	FIN FAIRE
    
    	SORTIR dte
    SINON
    	SORTIR dossier.{'DateRadiationAGA'}date
    FIN SI
###
'get_NomDuCentre' 'Nouveaux Contacts'
    --Création : 31/05/2011 17:19:54 llg-PO15890; Modification : 02/05/2013 16:21:35 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    |
    
    tmpCh	:=	?
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Cga' ALORS
    			pers	:=	element.personne
    			SI pers <> ? ALORS
    				SORTIR pers.fullName
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    SINON
    	SORTIR dossier.{'NomDuCentre'}chaine
    FIN SI
###
'get_NCentre' 'Nouveaux Contacts'
    --Création : 31/05/2011 17:19:48 llg-PO15890; Modification : 02/05/2013 16:21:35 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    |
    
    tmpCh	:=	?
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Cga' ALORS
    			pers	:=	element.personne
    			SI pers <> ? ALORS
    				SORTIR pers.numeroNational
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    SINON
    	SORTIR dossier.{'NCentre'}chaine
    FIN SI
###
'get_TelCGA' 'Nouveaux Contacts'
    --Création : 31/05/2011 17:19:39 llg-PO15890; Modification : 02/05/2013 16:21:35 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    |
    
    tmpCh	:=	?
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Cga' ALORS
    			pers	:=	element.personne
    			SI pers <> ? ALORS
    				SORTIR pers.telephone
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    SINON
    	SORTIR dossier.{'TelCGA'}chaine
    FIN SI
###
'get_FaxCGA' 'Nouveaux Contacts'
    --Création : 31/05/2011 17:19:33 llg-PO15890; Modification : 02/05/2013 16:21:35 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    |
    
    tmpCh	:=	?
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Cga' ALORS
    			pers	:=	element.personne
    			SI pers <> ? ALORS
    				SORTIR pers.fax
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    SINON
    	SORTIR dossier.{'FaxCGA'}chaine
    FIN SI
###
'get_AdrC1' 'Nouveaux Contacts'
    --Création : 31/05/2011 17:19:26 llg-PO15890; Modification : 02/05/2013 16:21:35 llg-PO36696; 
    |
    	pers<Objet>
    	adr<Chaine>
    |
    
    adr	:=	?
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Cga' ALORS
    			pers	:=	element.personne
    			SI pers <> ? ALORS
    				--SORTIR pers.adresse1
    				SI pers.numero <> ? ET pers.numero <> '' ALORS adr	+=	pers.numero+' ' FIN SI
    				SI pers.bister <> ? ET pers.bister <> '' ALORS adr	+=	pers.bister +' ' FIN SI
    				adr	+=	pers.adresse1
    				SORTIR adr
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR adr
    SINON
    	SORTIR dossier.{'AdrC1'}chaine
    FIN SI
###
'get_AdrC2' 'Nouveaux Contacts'
    --Création : 31/05/2011 17:19:21 llg-PO15890; Modification : 02/05/2013 16:21:35 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    |
    
    tmpCh	:=	?
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Cga' ALORS
    			pers	:=	element.personne
    			SI pers <> ? ALORS
    				SORTIR pers.adresse2
    			FIN SI
    		FIN SI
    	FIN FAIRE
    	SORTIR tmpCh
    SINON
    	SORTIR dossier.{'AdrC2'}chaine
    FIN SI
###
'get_CPCGA' 'Nouveaux Contacts'
    --Création : 31/05/2011 17:19:13 llg-PO15890; Modification : 02/05/2013 16:21:35 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    |
    
    tmpCh	:=	?
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Cga' ALORS
    			pers	:=	element.personne
    			SI pers <> ? ALORS
    				SORTIR pers.codePostal
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    SINON
    	SORTIR dossier.{'CPCGA'}chaine
    FIN SI
###
'get_VilleCGA' 'Nouveaux Contacts'
    --Création : 31/05/2011 17:19:07 llg-PO15890; Modification : 02/05/2013 16:21:35 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    |
    
    tmpCh	:=	?
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Cga' ALORS
    			pers	:=	element.personne
    			SI pers <> ? ALORS
    				SORTIR pers.ville
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    SINON
    	SORTIR dossier.{'VilleCGA'}chaine
    FIN SI
###
'get_siretCGA' 'Nouveaux Contacts'
    --Création : 31/05/2011 17:19:00 llg-PO15890; Modification : 02/05/2013 16:21:35 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    |
    
    tmpCh	:=	?
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Cga' ALORS
    			pers	:=	element.personne
    			SI pers <> ? ALORS
    				SORTIR pers.siret	
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    SINON
    	SORTIR dossier.{'siretCGA'}chaine
    FIN SI
###
'get_DateAdhesion' 'Nouveaux Contacts'
    --Création : 31/05/2011 17:18:52 llg-PO15890; Modification : 02/05/2013 16:21:35 llg-PO36696; 
    |
    	dte<Date>
    |
    dte	:=	?
    SI contactExportes ALORS
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Cga' ALORS
    			SORTIR element.Adhes
    		FIN SI
    	FIN FAIRE
    
    	SORTIR dte
    SINON
    	SORTIR dossier.{'DateAdhesion'}date
    FIN SI
###
'get_CGA' 'Nouveaux Contacts'
    --Création : 31/05/2011 17:18:42 llg-PO15890; Modification : 02/05/2013 16:21:35 llg-PO36696; 
    |
    	tmpCh<Chaine>
    |
    
    tmpCh	:=	?
    
    SI contactExportes ALORS
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Cga' ALORS
    			SORTIR element.NumAdhes
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    SINON
    	SORTIR dossier.{'CGA'}chaine
    FIN SI
###
'get_DateRadiationCGA' 'Nouveaux Contacts'
    --Création : 31/05/2011 17:18:36 llg-PO15890; Modification : 02/05/2013 16:21:35 llg-PO36696; 
    |
    	dte<Date>
    |
    dte	:=	?
    SI contactExportes ALORS
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Cga' ALORS
    			SORTIR element.DateRadiation
    		FIN SI
    	FIN FAIRE
    
    	SORTIR dte
    SINON
    	SORTIR dossier.{'DateRadiationCGA'}date
    FIN SI
###
'get_NumRecette' 'Nouveaux Contacts'
    --Création : 06/06/2011 10:20:43 llg-PO15890; Modification : 03/10/2013 17:01:48 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    |
    
    tmpCh	:=	?
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'SIE' ALORS
    			pers	:=	element.personne
    			SI pers <> ? ALORS
    				SORTIR pers.NumRecette
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    SINON
    	SORTIR dossier.{'NumRecette'}chaine
    FIN SI
###
'get_Ndoss' 'Nouveaux Contacts'
    --Création : 06/06/2011 10:23:11 llg-PO15890; Modification : 20/12/2013 15:38:45 llg-PO36696; 
    |
    	tmpCh<Chaine>
    |
    
    tmpCh	:=	?
    
    SI contactExportes ALORS
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'SIE' ALORS
    			SI element.personne <> ? ALORS
    				SORTIR element.Ndoss
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    SINON
    	SORTIR dossier.{'Ndoss'}chaine
    FIN SI
###
'get_CleRecette' 'Nouveaux Contacts'
    --Création : 06/06/2011 10:23:04 llg-PO15890; Modification : 20/12/2013 15:39:13 llg-PO36696; 
    |
    	tmpCh<Chaine>
    |
    
    tmpCh	:=	?
    
    SI contactExportes ALORS
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'SIE' ALORS
    			SI element.personne <> ? ALORS
    				SORTIR element.CleRecette
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    SINON
    	SORTIR dossier.{'CleRecette'}chaine
    FIN SI
###
'get_NumCDI' 'Nouveaux Contacts'
    --Création : 06/06/2011 10:22:51 llg-PO15890; Modification : 03/10/2013 17:04:57 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    |
    
    tmpCh	:=	?
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'SIE' ALORS
    			pers	:=	element.personne
    			SI pers <> ? ALORS
    				SORTIR pers.NumCDI
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    SINON
    	SORTIR dossier.{'NumCDI'}chaine
    FIN SI
###
'get_Insp' 'Nouveaux Contacts'
    --Création : 06/06/2011 10:22:42 llg-PO15890; Modification : 03/10/2013 17:04:44 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    |
    
    tmpCh	:=	?
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'SIE' ALORS
    			pers	:=	element.personne
    			SI pers <> ? ALORS
    				SORTIR pers.Insp
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    SINON
    	SORTIR dossier.{'Insp'}chaine
    FIN SI
###
'get_CodeRegime' 'Nouveaux Contacts'
    --Création : 06/06/2011 10:22:35 llg-PO15890; Modification : 20/12/2013 15:39:40 llg-PO36696; 
    |
    	tmpCh<Chaine>
    |
    
    tmpCh	:=	?
    
    SI contactExportes ALORS
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'SIE' ALORS
    			SI element.personne <> ? ALORS
    				SORTIR element.CodeRegime
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    SINON
    	SORTIR dossier.{'CodeRegime'}chaine
    FIN SI
###
'get_NumTVAIntra' 'Nouveaux Contacts'
    --Création : 06/06/2011 10:22:29 llg-PO15890; Modification : 13/01/2014 15:44:17 llg-PO36696; 
    |	
    	pers<Objet>
    	tmpCh<Chaine>
    |
    
    tmpCh	:=	?
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'SIE' ALORS
    			pers	:=	element.personne
    			SI pers <> ? ALORS
    				SORTIR element.NumTVAIntra
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    SINON
    	SORTIR dossier!{'NumTVAIntra'}chaine
    FIN SI
###
'get_NuméroFrp' 'Nouveaux Contacts'
    --Création : 06/06/2011 10:22:21 llg-PO15890; Modification : 20/12/2013 15:40:20 llg-PO36696; 
    |
    	tmpCh<Chaine>
    |
    
    tmpCh	:=	?
    
    SI contactExportes ALORS
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'SIE' ALORS
    			SI element.personne <> ? ALORS
    				SORTIR element.NuméroFrp
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    SINON
    	SORTIR dossier.{'NuméroFrp'}chaine
    FIN SI
###
'get_SiretTva' 'Nouveaux Contacts'
    --Création : 06/06/2011 10:22:12 llg-PO15890; Modification : 20/12/2013 15:40:59 llg-PO36696; 
    |
    	tmpCh<Chaine>
    |
    
    tmpCh	:=	?
    
    SI contactExportes ALORS
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'SIE' ALORS
    			SI element.personne <> ? ALORS
    				SORTIR element.SiretTva
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    SINON
    	SORTIR dossier.{'SiretTva'}chaine
    FIN SI
###
'get_JourLimite' 'Nouveaux Contacts'
    --Création : 06/06/2011 10:22:04 llg-PO15890; Modification : 20/12/2013 15:41:22 llg-PO36696; 
    |
    	unEntier<Entier>
    |
    unEntier	:=	?
    SI contactExportes ALORS
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'SIE' ALORS
    			SI element.personne <> ? ALORS
    				SORTIR element.JourLimite
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR unEntier
    SINON
    	SORTIR dossier.{'JourLimite'}entier
    FIN SI
###
'get_AdrRec1' 'Nouveaux Contacts'
    --Création : 06/06/2011 10:21:56 llg-PO15890; Modification : 03/10/2013 17:03:25 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    |
    
    tmpCh	:=	?
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'SIE' ALORS
    			pers	:=	element.personne
    			SI pers <> ? ALORS
    				SORTIR pers.fullName
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    SINON
    	SORTIR dossier.{'AdrRec1'}chaine
    FIN SI
###
'get_AdrRec2' 'Nouveaux Contacts'
    --Création : 06/06/2011 10:21:51 llg-PO15890; Modification : 03/10/2013 17:03:18 llg-PO36696; 
    |
    	pers<Objet>
    	adresseComplete<Chaine> espace<Chaine>
    |
    
    adresseComplete	:=	?
    espace			:=	' ' 
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'SIE' ALORS
    			pers	:=	element.personne
    
    			SI taille{pers.numero} > 0 ALORS
    				adresseComplete	+=	pers.numero
    			FINSI
    
    			SI taille{pers.bister} > 0 ALORS
    				SI taille{adresseComplete} > 0 ALORS
    					adresseComplete	+=	espace
    				FINSI
    
    				adresseComplete	+=	pers.bister
    			FINSI
    
    			SI taille{pers.adresse1} > 0 ALORS
    				SI taille{adresseComplete} > 0 ALORS
    					adresseComplete	+=	espace
    				FINSI
    
    				adresseComplete	+=	pers.adresse1
    			FINSI
    
    			SORTIR adresseComplete
    		FIN SI
    	FIN FAIRE
    
    	SORTIR adresseComplete
    SINON
    	SORTIR dossier.{'AdrRec2'}chaine
    FIN SI
###
'get_AdrRec3' 'Nouveaux Contacts'
    --Création : 06/06/2011 10:21:45 llg-PO15890; Modification : 03/10/2013 17:03:08 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    |
    
    tmpCh	:=	?
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'SIE' ALORS
    			pers	:=	element.personne
    			SI pers <> ? ALORS
    				-- modif scr le 08/01/13 : ajout de l'adresse 3
    				SORTIR pers.adresse2 +' '+pers.adresse3
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    SINON
    	SORTIR dossier.{'AdrRec3'}chaine
    FIN SI
###
'get_CPRec' 'Nouveaux Contacts'
    --Création : 06/06/2011 10:21:38 llg-PO15890; Modification : 03/10/2013 17:04:27 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    |
    
    tmpCh	:=	?
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'SIE' ALORS
    			pers	:=	element.personne
    			SI pers <> ? ALORS
    				SORTIR pers.codePostal
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    SINON
    	SORTIR dossier.{'CPRec'}chaine
    FIN SI
###
'get_VilleRec' 'Nouveaux Contacts'
    --Création : 06/06/2011 10:21:28 llg-PO15890; Modification : 03/10/2013 17:06:20 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    |
    
    tmpCh	:=	?
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'SIE' ALORS
    			pers	:=	element.personne
    			SI pers <> ? ALORS
    				SORTIR pers.ville
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    SINON
    	SORTIR dossier.{'VilleRec'}chaine
    FIN SI
###
'get_TelRec' 'Nouveaux Contacts'
    --Création : 06/06/2011 10:21:20 llg-PO15890; Modification : 03/10/2013 17:06:10 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    |
    
    tmpCh	:=	?
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'SIE' ALORS
    			pers	:=	element.personne
    			SI pers <> ? ALORS
    				SORTIR pers.telephone
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    SINON
    	SORTIR dossier.{'TelRec'}chaine
    FIN SI
###
'get_FaxRec' 'Nouveaux Contacts'
    --Création : 06/06/2011 10:21:15 llg-PO15890; Modification : 03/10/2013 17:04:15 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    |
    
    tmpCh	:=	?
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'SIE' ALORS
    			pers	:=	element.personne
    			SI pers <>  ? ALORS
    				SORTIR pers.fax
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    SINON
    	SORTIR dossier.{'FaxRec'}chaine
    FIN SI
###
'get_adhesionEditva' 'Nouveaux Contacts'
    --Création : 06/06/2011 10:21:02 llg-PO15890; Modification : 20/12/2013 15:42:13 llg-PO36696; 
    |
    	dte<Date>
    |
    
    dte	:=	?
    SI contactExportes ALORS
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'SIE' ALORS
    			SI element.personne <> ? ALORS
    				SORTIR element.adhesionEditva
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR dte
    SINON
    	SORTIR dossier!{'adhesionEditva'}date
    FIN SI
###
'get_AdrCdi1' 'Nouveaux Contacts'
    --Création : 06/06/2011 11:12:35 llg-PO15890; Modification : 11/10/2013 10:44:43 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    |
    
    tmpCh	:=	?
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    
    --On retourne désormais la valeur du SIE
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'SIE' ALORS
    			pers	:=	element.personne
    			SI pers <> ? ALORS
    				SORTIR pers.fullName
    			FIN SI
    		FIN SI
    	FIN FAIRE
    	SORTIR tmpCh
    SINON
    	SORTIR dossier.{'AdrCdi1'}chaine
    FIN SI
###
'get_AdrCdi2' 'Nouveaux Contacts'
    --Création : 06/06/2011 11:12:27 llg-PO15890; Modification : 11/10/2013 10:45:18 llg-PO36696; 
    |
    	pers<Objet>
    	adr<Chaine>
    |
    
    adr	:=	?
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    --On retourne désormais la valeur du SIE
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'SIE' ALORS
    			pers	:=	element.personne
    			SI pers <> ? ALORS
    				--SORTIR pers.adresse1
    				SI pers.numero <> ? ET pers.numero <> '' ALORS adr	+=	pers.numero+' ' FIN SI
    				SI pers.bister <> ? ET pers.bister <> '' ALORS adr	+=	pers.bister +' ' FIN SI
    				adr	+=	pers.adresse1
    				SORTIR adr
    			FIN SI
    		FIN SI
    	FIN FAIRE
    	SORTIR adr
    SINON
    	SORTIR dossier.{'AdrCdi2'}chaine
    FIN SI
###
'get_CPCdi' 'Nouveaux Contacts'
    --Création : 06/06/2011 11:12:20 llg-PO15890; Modification : 11/10/2013 10:45:48 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    |
    
    tmpCh	:=	?
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    --On retourne désormais la valeur du SIE
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'SIE' ALORS
    			pers	:=	element.personne
    			SI pers <> ? ALORS
    				SORTIR pers.codePostal
    			FIN SI
    		FIN SI
    	FIN FAIRE
    	SORTIR tmpCh
    SINON
    	SORTIR dossier.{'CPCdi'}chaine
    FIN SI
###
'get_VilleCdi' 'Nouveaux Contacts'
    --Création : 06/06/2011 11:12:10 llg-PO15890; Modification : 11/10/2013 10:46:42 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    |
    
    tmpCh	:=	?
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    --On retourne désormais la valeur du SIE
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'SIE' ALORS
    			pers	:=	element.personne
    			SI pers <> ? ALORS
    				SORTIR pers.ville
    			FIN SI
    		FIN SI
    	FIN FAIRE
    	SORTIR tmpCh
    SINON
    	SORTIR dossier.{'VilleCdi'}chaine
    FIN SI
###
'get_TelCdi' 'Nouveaux Contacts'
    --Création : 06/06/2011 11:12:03 llg-PO15890; Modification : 11/10/2013 10:47:06 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    |
    
    tmpCh	:=	?
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    --On retourne désormais la valeur du SIE 
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'SIE' ALORS
    			pers	:=	element.personne
    			SI pers <> ? ALORS
    				SORTIR pers.telephone
    			FIN SI
    		FIN SI
    	FIN FAIRE
    	SORTIR tmpCh
    SINON
    	SORTIR dossier.{'TelCdi'}chaine
    FIN SI
###
'get_FaxCdi' 'Nouveaux Contacts'
    --Création : 06/06/2011 11:11:57 llg-PO15890; Modification : 11/10/2013 10:47:30 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    |
    
    tmpCh	:=	?
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    --On retourne désormais la valeur du SIE
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'SIE' ALORS
    			pers	:=	element.personne
    			SI pers <> ? ALORS
    				SORTIR pers.fax
    			FIN SI
    		FIN SI
    	FIN FAIRE
    	SORTIR tmpCh
    SINON
    	SORTIR dossier.{'FaxCdi'}chaine
    FIN SI
###
'get_TypeCacTitre' 'Nouveaux Contacts'
    --Création : 06/06/2011 11:45:07 llg-PO15890; Modification : 02/05/2013 16:21:36 llg-PO36696; 
    
    |
    	tmpCh<Chaine>
    	first<Booléen>
    	pers<Objet>
    |
    
    tmpCh	:=	?
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Commissaire aux comptes' ALORS
    			pers	:=	element.personne
    			SI pers <> ? ALORS
    				SI element.cacPrincipal ALORS
    					SORTIR pers.personnePhysique
    				FIN SI
    				SI first ALORS
    					tmpCh	:=	pers.personnePhysique
    				FIN SI
    			FIN SI
    		FIN SI
    	FIN FAIRE
    	SORTIR tmpCh
    SINON
    	SORTIR dossier.{'TypeCacTitre'}chaine
    FIN SI
###
'get_CiviliteCacTitre' 'Nouveaux Contacts'
    --Création : 06/06/2011 11:44:55 llg-PO15890; Modification : 02/05/2013 16:21:36 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	?
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Commissaire aux comptes' ALORS
    			pers	:=	element.personne
    			SI pers <> ? ALORS
    				SI element.cacPrincipal ALORS
    					SORTIR afficherCivilite{pers.civilite}
    				FIN SI
    				SI first ALORS
    					tmpCh	:=	afficherCivilite{pers.civilite}
    					first	:=	FAUX
    				FIN SI
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    SINON
    	SORTIR dossier.{'CiviliteCacTitre'}chaine
    FIN SI
###
'get_FormJurCacTitre' 'Nouveaux Contacts'
    --Création : 06/06/2011 11:44:45 llg-PO15890; Modification : 02/05/2013 16:21:36 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	?
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Commissaire aux comptes' ALORS
    			pers	:=	element.personne
    			SI pers <> ? ALORS
    				SI element.cacPrincipal ALORS
    					SORTIR pers.typeJuridique
    				FIN SI
    				SI first ALORS
    					tmpCh	:=	pers.typeJuridique
    					first	:=	FAUX
    				FIN SI
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    SINON
    	SORTIR dossier.{'FormJurCacTitre'}chaine
    FIN SI
###
'get_NomCacTitre' 'Nouveaux Contacts'
    --Création : 06/06/2011 11:44:31 llg-PO15890; Modification : 02/05/2013 16:21:36 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	?
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Commissaire aux comptes' ALORS
    			pers	:=	element.personne
    			SI pers <> ? ALORS
    				SI element.cacPrincipal ALORS
    					SORTIR pers.fullName
    				FIN SI
    				SI first ALORS
    					tmpCh	:=	pers.fullName
    					first	:=	FAUX
    				FIN SI
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    SINON
    	SORTIR dossier.{'NomCacTitre'}chaine
    FIN SI
###
'get_NomSeulCacTitre' 'Nouveaux Contacts'
    --Création : 06/06/2011 11:44:24 llg-PO15890; Modification : 02/05/2013 16:21:36 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	?
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Commissaire aux comptes' ALORS
    			pers	:=	element.personne
    			SI pers <> ? ALORS
    				SI element.cacPrincipal ALORS
    					SORTIR pers.lastName
    				FIN SI
    				SI first ALORS
    					tmpCh	:=	pers.lastName
    					first	:=	FAUX
    				FIN SI
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    SINON
    	SORTIR dossier.{'NomSeulCacTitre'}chaine
    FIN SI
###
'get_PrenomCacTitre' 'Nouveaux Contacts'
    --Création : 06/06/2011 11:44:13 llg-PO15890; Modification : 02/05/2013 16:21:36 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	?
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Commissaire aux comptes' ALORS
    			pers	:=	element.personne
    			SI pers <> ? ALORS
    				SI element.cacPrincipal ALORS
    					SORTIR pers.firstName
    				FIN SI
    				SI first ALORS
    					tmpCh	:=	pers.firstName
    					first	:=	FAUX
    				FIN SI
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    SINON
    	SORTIR dossier.{'PrenomCacTitre'}chaine
    FIN SI
###
'get_CiviliteRepCacTitre' 'Nouveaux Contacts'
    --Création : 06/06/2011 11:43:50 llg-PO15890; Modification : 02/05/2013 16:21:36 llg-PO36696; 
    
    |
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	?
    first	:=	VRAI
    
    SI contactExportes ALORS
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Commissaire aux comptes' ALORS
    
    			SI element.cacPrincipal ALORS
    				SORTIR afficherCivilite{element.CiviliteRepCac}
    			FIN SI
    			SI first ALORS
    				tmpCh	:=	afficherCivilite{element.CiviliteRepCac}
    				first	:=	FAUX
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    SINON
    	SORTIR dossier.{'CiviliteRepCacTitre'}chaine
    FIN SI
###
'get_RepCacTitre' 'Nouveaux Contacts'
    --Création : 06/06/2011 11:43:39 llg-PO15890; Modification : 02/05/2013 16:21:36 llg-PO36696; 
    |
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	?
    first	:=	VRAI
    
    SI contactExportes ALORS
    
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Commissaire aux comptes' ALORS
    			SI element.cacPrincipal ALORS
    				SORTIR element.RepresentantCac
    			FIN SI
    			SI first ALORS
    				tmpCh	:=	element.RepresentantCac
    				first	:=	FAUX
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    SINON
    	SORTIR dossier.{'RepCacTitre'}chaine
    FIN SI
###
'get_Adr1CacTitre' 'Nouveaux Contacts'
    --Création : 06/06/2011 11:43:30 llg-PO15890; Modification : 13/07/2015 14:28:41 ima-WINSRV2012R2; 
    |
        pers<Objet>
        tmpCh<Chaine>
        first<Booléen>
    |
    
    tmpCh   :=  ''
    first   :=  VRAI
    
    SI contactExportes ALORS
        pers    ::= 'Personne'
    
        POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
            SI element.type = 'Commissaire aux comptes' ALORS
                pers    :=  element.personne
                SI element.cacPrincipal ALORS
                    SORTIR pers.numero + ' ' + pers.adresse1
                FIN SI
                SI first ALORS
                    tmpCh   :=  pers.numero + ' ' + pers.adresse1
                    first   :=  FAUX
                FIN SI
            FIN SI
        FIN FAIRE
    
        SORTIR tmpCh
    SINON
        SORTIR dossier.{'Adr1CacTitre'}chaine
    FIN SI
###
'get_Adr2CacTitre' 'Nouveaux Contacts'
    --Création : 06/06/2011 11:43:22 llg-PO15890; Modification : 02/05/2013 16:21:36 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Commissaire aux comptes' ALORS
    			pers	:=	element.personne
    			SI element.cacPrincipal ALORS
    				SORTIR pers.adresse2
    			FIN SI
    			SI first ALORS
    				tmpCh	:=	pers.adresse2
    				first	:=	FAUX
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    SINON
    	SORTIR dossier.{'Adr2CacTitre'}chaine
    FIN SI
###
'get_CPCacTitre' 'Nouveaux Contacts'
    --Création : 06/06/2011 11:43:14 llg-PO15890; Modification : 02/05/2013 16:21:36 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	?
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Commissaire aux comptes' ALORS
    			pers	:=	element.personne
    			SI pers <> ? ALORS
    				SI element.cacPrincipal ALORS
    					SORTIR pers.codePostal
    				FIN SI
    				SI first ALORS
    					tmpCh	:=	pers.codePostal
    					first	:=	FAUX
    				FIN SI
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    SINON
    	SORTIR dossier.{'CPCacTitre'}chaine
    FIN SI
###
'get_VilleCacTitre' 'Nouveaux Contacts'
    --Création : 06/06/2011 11:43:05 llg-PO15890; Modification : 02/05/2013 16:21:36 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	?
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Commissaire aux comptes' ALORS
    			pers	:=	element.personne
    			SI pers <> ? ALORS
    				SI element.cacPrincipal ALORS
    					SORTIR pers.ville
    				FIN SI
    				SI first ALORS
    					tmpCh	:=	pers.ville
    					first	:=	FAUX
    				FIN SI
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    SINON
    	SORTIR dossier.{'VilleCacTitre'}chaine
    FIN SI
###
'get_TelCacTitre' 'Nouveaux Contacts'
    --Création : 06/06/2011 11:42:57 llg-PO15890; Modification : 02/05/2013 16:21:36 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	?
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Commissaire aux comptes' ALORS
    			pers	:=	element.personne
    			SI pers <> ? ALORS
    				SI element.cacPrincipal ALORS
    					SORTIR pers.telephone
    				FIN SI
    				SI first ALORS
    					tmpCh	:=	pers.telephone
    					first	:=	FAUX
    				FIN SI
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    SINON
    	SORTIR dossier.{'TelCacTitre'}chaine
    FIN SI
###
'get_FaxCacTitre' 'Nouveaux Contacts'
    --Création : 06/06/2011 11:42:44 llg-PO15890; Modification : 02/05/2013 16:21:36 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	?
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Commissaire aux comptes' ALORS
    			pers	:=	element.personne
    			SI pers <> ? ALORS
    				SI element.cacPrincipal ALORS
    					SORTIR pers.fax
    				FIN SI
    				SI first ALORS
    					tmpCh	:=	pers.fax
    					first	:=	FAUX
    				FIN SI
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    SINON
    	SORTIR dossier.{'FaxCacTitre'}chaine
    FIN SI
###
'get_DurMandCacTitre' 'Nouveaux Contacts'
    --Création : 06/06/2011 11:42:37 llg-PO15890; Modification : 02/05/2013 16:21:36 llg-PO36696; 
    
    |
    	tmpEntier<Entier>
    	first<Booléen>
    |
    
    tmpEntier	:=	?
    first	:=	VRAI
    
    SI contactExportes ALORS
    
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Commissaire aux comptes' ALORS
    			SI element.cacPrincipal ALORS
    				SORTIR element.DurMandCac
    			FIN SI
    			SI first ALORS
    				tmpEntier	:=	element.DurMandCac
    				first	:=	FAUX
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpEntier
    SINON
    	SORTIR dossier.{'DurMandCacTitre'}entier
    FIN SI
###
'get_DebMandCacTitre' 'Nouveaux Contacts'
    --Création : 06/06/2011 11:42:25 llg-PO15890; Modification : 02/05/2013 16:21:36 llg-PO36696; 
    
    |
    	tmpDate<Date>
    	first<Booléen>
    |
    
    tmpDate	:=	?
    first	:=	VRAI
    
    SI contactExportes ALORS
    
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Commissaire aux comptes' ALORS
    			SI element.cacPrincipal ALORS
    				SORTIR element.DebMandCac
    			FIN SI
    			SI first ALORS
    				tmpDate	:=	element.DebMandCac
    				first	:=	FAUX
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpDate
    SINON
    	SORTIR dossier.{'DebMandCacTitre'}date
    FIN SI
###
'get_FinMandCacTitre' 'Nouveaux Contacts'
    --Création : 06/06/2011 11:42:10 llg-PO15890; Modification : 02/05/2013 16:21:36 llg-PO36696; 
    
    |
    	tmpDate<Date>
    	first<Booléen>
    |
    
    tmpDate	:=	?
    first	:=	VRAI
    
    SI contactExportes ALORS
    
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Commissaire aux comptes' ALORS
    			SI element.cacPrincipal ALORS
    				SORTIR element.FinMandCac
    			FIN SI
    			SI first ALORS
    				tmpDate	:=	element.FinMandCac
    				first	:=	FAUX
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpDate
    SINON
    	SORTIR dossier.{'FinMandCacTitre'}date
    FIN SI
###
'get_TypeCACSup' 'Nouveaux Contacts'
    --Création : 06/06/2011 14:02:59 llg-PO15890; Modification : 02/05/2013 16:21:37 llg-PO36696; 
    
    |
    	tmpCh<Chaine>
    	first<Booléen>
    	pers<Objet>
    |
    
    tmpCh	:=	?
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Commissaire aux comptes suppléant' ALORS
    			pers	:=	element.personne
    			SI pers <> ? ALORS
    				SI element.cacSuppleantPrincipal ALORS
    					SORTIR pers.personnePhysique
    				FIN SI
    				SI first ALORS
    					tmpCh	:=	pers.personnePhysique
    				FIN SI
    			FIN SI
    		FIN SI
    	FIN FAIRE
    	SORTIR tmpCh
    SINON
    	SORTIR dossier.{'TypeCACSup'}chaine
    FIN SI
###
'get_CiviliteCACSup' 'Nouveaux Contacts'
    --Création : 06/06/2011 14:02:50 llg-PO15890; Modification : 02/05/2013 16:21:37 llg-PO36696; 
    
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	?
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Commissaire aux comptes suppléant' ALORS
    			pers	:=	element.personne
    			SI pers <> ? ALORS
    				SI element.cacSuppleantPrincipal ALORS
    					SORTIR afficherCivilite{pers.civilite}
    				FIN SI
    				SI first ALORS
    					tmpCh	:=	afficherCivilite{pers.civilite}
    					first	:=	FAUX
    				FIN SI
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    SINON
    	SORTIR dossier.{'CiviliteCACSup'}chaine
    FIN SI
###
'get_FormJurCACSup' 'Nouveaux Contacts'
    --Création : 06/06/2011 14:02:31 llg-PO15890; Modification : 02/05/2013 16:21:37 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	?
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Commissaire aux comptes suppléant' ALORS
    			pers	:=	element.personne
    			SI pers <> ? ALORS
    				SI element.cacSuppleantPrincipal ALORS
    					SORTIR pers.typeJuridique
    				FIN SI
    				SI first ALORS
    					tmpCh	:=	pers.typeJuridique
    					first	:=	FAUX
    				FIN SI
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    SINON
    	SORTIR dossier.{'FormJurCACSup'}chaine
    FIN SI
###
'get_NomCacSup' 'Nouveaux Contacts'
    --Création : 06/06/2011 14:02:23 llg-PO15890; Modification : 02/05/2013 16:21:37 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	?
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Commissaire aux comptes suppléant' ALORS
    			pers	:=	element.personne
    			SI pers <> ? ALORS
    				SI element.cacSuppleantPrincipal ALORS
    					SORTIR pers.fullName
    				FIN SI
    				SI first ALORS
    					tmpCh	:=	pers.fullName
    					first	:=	FAUX
    				FIN SI
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    SINON
    	SORTIR dossier.{'NomCacSup'}chaine
    FIN SI
###
'get_NomSeulCacSup' 'Nouveaux Contacts'
    --Création : 06/06/2011 14:02:17 llg-PO15890; Modification : 02/05/2013 16:21:37 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	?
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Commissaire aux comptes suppléant' ALORS
    			pers	:=	element.personne
    			SI pers <> ? ALORS
    				SI element.cacSuppleantPrincipal ALORS
    					SORTIR pers.lastName
    				FIN SI
    				SI first ALORS
    					tmpCh	:=	pers.lastName
    					first	:=	FAUX
    				FIN SI
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    SINON
    	SORTIR dossier.{'NomSeulCacSup'}chaine
    FIN SI
###
'get_PrenomCacSup' 'Nouveaux Contacts'
    --Création : 06/06/2011 14:02:11 llg-PO15890; Modification : 02/05/2013 16:21:37 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	?
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Commissaire aux comptes suppléant' ALORS
    			pers	:=	element.personne
    			SI pers <> ? ALORS
    				SI element.cacSuppleantPrincipal ALORS
    					SORTIR pers.firstName
    				FIN SI
    				SI first ALORS
    					tmpCh	:=	pers.firstName
    					first	:=	FAUX
    				FIN SI
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    SINON
    	SORTIR dossier.{'PrenomCacSup'}chaine
    FIN SI
###
'get_CiviliteRepCacSup' 'Nouveaux Contacts'
    --Création : 06/06/2011 14:02:05 llg-PO15890; Modification : 02/05/2013 16:21:37 llg-PO36696; 
    
    |
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	?
    first	:=	VRAI
    
    SI contactExportes ALORS
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Commissaire aux comptes suppléant' ALORS
    			SI element.cacSuppleantPrincipal ALORS
    				SORTIR afficherCivilite{element.CiviliteRepCac}
    			FIN SI
    			SI first ALORS
    				tmpCh	:=	afficherCivilite{element.CiviliteRepCac}
    				first	:=	FAUX
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    SINON
    	SORTIR dossier.{'CiviliteRepCacSup'}chaine
    FIN SI
###
'get_RepCacSup' 'Nouveaux Contacts'
    --Création : 06/06/2011 14:01:54 llg-PO15890; Modification : 02/05/2013 16:21:37 llg-PO36696; 
    |
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	?
    first	:=	VRAI
    
    SI contactExportes ALORS
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Commissaire aux comptes suppléant' ALORS
    			SI element.cacSuppleantPrincipal ALORS
    				SORTIR element.RepresentantCac
    			FIN SI
    			SI first ALORS
    				tmpCh	:=	element.RepresentantCac
    				first	:=	FAUX
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    SINON
    	SORTIR dossier.{'RepCacSup'}chaine
    FIN SI
###
'get_Adr1CacSup' 'Nouveaux Contacts'
    --Création : 06/06/2011 14:01:48 llg-PO15890; Modification : 02/05/2013 16:21:37 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Commissaire aux comptes suppléant' ALORS
    			pers	:=	element.personne
    			SI element.cacSuppleantPrincipal ALORS
    				SORTIR pers.adresse1
    			FIN SI
    			SI first ALORS
    				tmpCh	:=	pers.adresse1
    				first	:=	FAUX
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    SINON
    	SORTIR dossier.{'Adr1CacSup'}chaine
    FIN SI
###
'get_Adr2CacSup' 'Nouveaux Contacts'
    --Création : 06/06/2011 14:01:43 llg-PO15890; Modification : 02/05/2013 16:21:37 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Commissaire aux comptes suppléant' ALORS
    			pers	:=	element.personne
    			SI element.cacSuppleantPrincipal ALORS
    				SORTIR pers.adresse2
    			FIN SI
    			SI first ALORS
    				tmpCh	:=	pers.adresse2
    				first	:=	FAUX
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    SINON
    	SORTIR dossier.{'Adr2CacSup'}chaine
    FIN SI
###
'get_CPCacSup' 'Nouveaux Contacts'
    --Création : 06/06/2011 14:01:34 llg-PO15890; Modification : 02/05/2013 16:21:37 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	?
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Commissaire aux comptes suppléant' ALORS
    			pers	:=	element.personne
    			SI pers <> ? ALORS
    				SI element.cacSuppleantPrincipal ALORS
    					SORTIR pers.codePostal
    				FIN SI
    				SI first ALORS
    					tmpCh	:=	pers.codePostal
    					first	:=	FAUX
    				FIN SI
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    SINON
    	SORTIR dossier.{'CPCacSup'}chaine
    FIN SI
###
'get_VilleCacSup' 'Nouveaux Contacts'
    --Création : 06/06/2011 14:01:29 llg-PO15890; Modification : 02/05/2013 16:21:37 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	?
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Commissaire aux comptes suppléant' ALORS
    			pers	:=	element.personne
    			SI pers <> ? ALORS
    				SI element.cacSuppleantPrincipal ALORS
    					SORTIR pers.ville
    				FIN SI
    				SI first ALORS
    					tmpCh	:=	pers.ville
    					first	:=	FAUX
    				FIN SI
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    SINON
    	SORTIR dossier.{'VilleCacSup'}chaine
    FIN SI
###
'get_TelCacSup' 'Nouveaux Contacts'
    --Création : 06/06/2011 14:01:23 llg-PO15890; Modification : 02/05/2013 16:21:37 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	?
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Commissaire aux comptes suppléant' ALORS
    			pers	:=	element.personne
    			SI pers <> ? ALORS
    				SI element.cacSuppleantPrincipal ALORS
    					SORTIR pers.telephone
    				FIN SI
    				SI first ALORS
    					tmpCh	:=	pers.telephone
    					first	:=	FAUX
    				FIN SI
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    SINON
    	SORTIR dossier.{'TelCacSup'}chaine
    FIN SI
###
'get_FaxCacSup' 'Nouveaux Contacts'
    --Création : 06/06/2011 14:01:17 llg-PO15890; Modification : 02/05/2013 16:21:37 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	?
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Commissaire aux comptes suppléant' ALORS
    			pers	:=	element.personne
    			SI pers <> ? ALORS
    				SI element.cacSuppleantPrincipal ALORS
    					SORTIR pers.fax
    				FIN SI
    				SI first ALORS
    					tmpCh	:=	pers.fax
    					first	:=	FAUX
    				FIN SI
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    SINON
    	SORTIR dossier.{'FaxCacSup'}chaine
    FIN SI
###
'get_DurMandCacSup' 'Nouveaux Contacts'
    --Création : 06/06/2011 14:01:10 llg-PO15890; Modification : 02/05/2013 16:21:37 llg-PO36696; 
    
    |
    	tmpEntier<Entier>
    	first<Booléen>
    |
    
    tmpEntier	:=	?
    first	:=	VRAI
    
    SI contactExportes ALORS
    
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Commissaire aux comptes suppléant' ALORS
    			SI element.cacSuppleantPrincipal ALORS
    				SORTIR element.DurMandCac
    			FIN SI
    			SI first ALORS
    				tmpEntier	:=	element.DurMandCac
    				first	:=	FAUX
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpEntier
    SINON
    	SORTIR dossier.{'DurMandCacSup'}entier
    FIN SI
###
'get_DebMandCacSup' 'Nouveaux Contacts'
    --Création : 06/06/2011 14:01:03 llg-PO15890; Modification : 02/05/2013 16:21:37 llg-PO36696; 
    
    |
    	tmpDate<Date>
    	first<Booléen>
    |
    
    tmpDate	:=	?
    first	:=	VRAI
    
    SI contactExportes ALORS
    
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Commissaire aux comptes suppléant' ALORS
    			SI element.cacSuppleantPrincipal ALORS
    				SORTIR element.DebMandCac
    			FIN SI
    			SI first ALORS
    				tmpDate	:=	element.DebMandCac
    				first	:=	FAUX
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpDate
    SINON
    	SORTIR dossier.{'DebMandCacSup'}date
    FIN SI
###
'get_FinMandCacSup' 'Nouveaux Contacts'
    --Création : 06/06/2011 14:00:50 llg-PO15890; Modification : 02/05/2013 16:21:37 llg-PO36696; 
    
    |
    	tmpDate<Date>
    	first<Booléen>
    |
    
    tmpDate	:=	?
    first	:=	VRAI
    
    SI contactExportes ALORS
    
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Commissaire aux comptes suppléant' ALORS
    			SI element.cacSuppleantPrincipal ALORS
    				SORTIR element.FinMandCac
    			FIN SI
    			SI first ALORS
    				tmpDate	:=	element.FinMandCac
    				first	:=	FAUX
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpDate
    SINON
    	SORTIR dossier.{'FinMandCacSup'}date
    FIN SI
###
'get_Greffe2' 'Nouveaux Contacts'
    --Création : 06/06/2011 14:33:24 llg-PO15890; Modification : 02/05/2013 16:21:37 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	?
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Greffe' ALORS
    			pers	:=	element.personne
    			SI pers <> ? ALORS
    				SI element.greffePrincipal ALORS
    					SORTIR pers.raisonSociale
    				FIN SI
    				SI first ALORS
    					tmpCh	:=	pers.raisonSociale
    					first	:=	FAUX
    				FIN SI
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    SINON
    	SORTIR dossier.{'Greffe2'}chaine
    FIN SI
###
'get_Adr1Greffe' 'Nouveaux Contacts'
    --Création : 06/06/2011 14:33:17 llg-PO15890; Modification : 13/07/2015 11:53:38 ima-WINSRV2012R2; 
    |
        pers<Objet>
        tmpCh<Chaine>
        first<Booléen>
    |
    
    tmpCh   :=  ''
    first   :=  VRAI
    
    SI contactExportes ALORS
        pers    ::= 'Personne'
    
        POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
            SI element.type = 'Greffe' ALORS
                pers    :=  element.personne
                SI element.greffePrincipal ALORS
                    SORTIR pers.numero +' ' + pers.adresse1
                FIN SI
                SI first ALORS
    
                    tmpCh   :=  pers.numero +' ' + pers.adresse1
                    first   :=  FAUX
                FIN SI
            FIN SI
        FIN FAIRE
    
        SORTIR tmpCh
    SINON
        SORTIR dossier.{'Adr1Greffe'}chaine
    FIN SI
###
'get_Adr2Greffe' 'Nouveaux Contacts'
    --Création : 06/06/2011 14:33:11 llg-PO15890; Modification : 02/05/2013 16:21:37 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	''
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Greffe' ALORS
    			pers	:=	element.personne
    			SI element.greffePrincipal ALORS
    				SORTIR pers.adresse2
    			FIN SI
    			SI first ALORS
    				tmpCh	:=	pers.adresse2
    				first	:=	FAUX
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    SINON
    	SORTIR dossier.{'Adr2Greffe'}chaine
    FIN SI
###
'get_CPGreffe' 'Nouveaux Contacts'
    --Création : 06/06/2011 14:33:03 llg-PO15890; Modification : 02/05/2013 16:21:37 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	?
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Greffe' ALORS
    			pers	:=	element.personne
    			SI pers <> ? ALORS
    				SI element.greffePrincipal ALORS
    					SORTIR pers.codePostal
    				FIN SI
    				SI first ALORS
    					tmpCh	:=	pers.codePostal
    					first	:=	FAUX
    				FIN SI
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    SINON
    	SORTIR dossier.{'CPGreffe'}chaine
    FIN SI
###
'get_VilleGreffe' 'Nouveaux Contacts'
    --Création : 06/06/2011 14:32:57 llg-PO15890; Modification : 02/05/2013 16:21:37 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    	first<Booléen>
    |
    
    tmpCh	:=	?
    first	:=	VRAI
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Greffe' ALORS
    			pers	:=	element.personne
    			SI pers <> ? ALORS
    				SI element.greffePrincipal ALORS
    					SORTIR pers.ville
    				FIN SI
    				SI first ALORS
    					tmpCh	:=	pers.ville
    					first	:=	FAUX
    				FIN SI
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    SINON
    	SORTIR dossier.{'VilleGreffe'}chaine
    FIN SI
###
'get_NomJuridiqueExterne' 'Nouveaux Contacts'
    --Création : 06/06/2011 14:41:27 llg-PO15890; Modification : 02/05/2013 16:21:37 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    |
    
    tmpCh	:=	?
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Juridique externe' ALORS
    			pers	:=	element.personne
    			SI pers <> ? ALORS
    				SORTIR pers.fullName
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    SINON
    	SORTIR dossier.{'NomJuridiqueExterne'}chaine
    FIN SI
###
'get_AdrJuridiqueExterne' 'Nouveaux Contacts'
    --Création : 06/06/2011 14:41:21 llg-PO15890; Modification : 02/05/2013 16:21:37 llg-PO36696; 
    |
    	pers<Objet>tmpCh<Chaine>CR<Chaine>
    |
    
    tmpCh	:=	?
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    	CR	:=	'
'
    
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Juridique externe' ALORS
    			pers	:=	element.personne
    			SI pers <> ? ALORS
    				SI pers.adresse1 <> ? ALORS tmpCh	+=	pers.adresse1 FIN SI
    				SI pers.adresse2 <> ? ALORS tmpCh	+=	CR+pers.adresse2 FIN SI
    				SI pers.adresse3 <> ? ALORS tmpCh	+=	CR+pers.adresse3 FIN SI
    
    				SORTIR tmpCh
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    SINON
    	SORTIR dossier.{'AdrJuridiqueExterne'}chaine
    FIN SI
###
'get_CodePostalJuridiqueExterne' 'Nouveaux Contacts'
    --Création : 06/06/2011 14:41:14 llg-PO15890; Modification : 02/05/2013 16:21:37 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    |
    
    tmpCh	:=	?
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Juridique externe' ALORS
    			pers	:=	element.personne
    			SI pers <> ? ALORS
    				SORTIR pers.codePostal
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    SINON
    	SORTIR dossier.{'CodePostalJuridiqueExterne'}chaine
    FIN SI
###
'get_VilleJuridiqueExterne' 'Nouveaux Contacts'
    --Création : 06/06/2011 14:41:05 llg-PO15890; Modification : 02/05/2013 16:21:37 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    |
    
    tmpCh	:=	?
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Juridique externe' ALORS
    			pers	:=	element.personne
    			SI pers <> ? ALORS
    				SORTIR pers.ville
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    SINON
    	SORTIR dossier.{'VilleJuridiqueExterne'}chaine
    FIN SI
###
'get_TelJuridiqueExterne' 'Nouveaux Contacts'
    --Création : 06/06/2011 14:40:59 llg-PO15890; Modification : 02/05/2013 16:21:38 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    |
    
    tmpCh	:=	?
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Juridique externe' ALORS
    			pers	:=	element.personne
    			SI pers <> ? ALORS
    				SORTIR pers.telephone
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    SINON
    	SORTIR dossier.{'TelJuridiqueExterne'}chaine
    FIN SI
###
'get_FaxJuridiqueExterne' 'Nouveaux Contacts'
    --Création : 06/06/2011 14:40:53 llg-PO15890; Modification : 02/05/2013 16:21:38 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    |
    
    tmpCh	:=	?
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Juridique externe' ALORS
    			pers	:=	element.personne
    			SI pers <> ? ALORS
    				SORTIR pers.fax
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    SINON
    	SORTIR dossier.{'FaxJuridiqueExterne'}chaine
    FIN SI
###
'get_TelBanque1' 'Nouveaux Contacts'
    --Création : 06/06/2011 15:00:35 llg-PO15890; Modification : 02/05/2013 16:21:38 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    |
    
    tmpCh	:=	?
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ET element.estBanque1 ALORS
    			pers	:=	element.personne
    			SI pers <> ? ALORS
    				SORTIR pers.telephone
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    SINON
    	SORTIR dossier.{'TelBanque1'}chaine
    FIN SI
###
'get_FaxBanque1' 'Nouveaux Contacts'
    --Création : 06/06/2011 15:00:29 llg-PO15890; Modification : 02/05/2013 16:21:38 llg-PO36696; 
    |
    	pers<Objet>
    	tmpCh<Chaine>
    |
    
    tmpCh	:=	?
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ET element.estBanque1 ALORS
    			pers	:=	element.personne
    			SI pers <> ? ALORS
    				SORTIR pers.fax
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    SINON
    	SORTIR dossier.{'FaxBanque1'}chaine
    FIN SI
###
'get_AdrBanque2' 'Nouveaux Contacts'
    --Création : 06/06/2011 15:00:23 llg-PO15890; Modification : 02/05/2013 16:21:38 llg-PO36696; 
    |
    	pers<Objet>adr<Chaine>
    |
    adr	:=	?
    SI contactExportes ALORS
    	pers	::=	'Personne'
    
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ET element.estBanque2 ALORS
    			pers	:=	element.personne
    			SI pers <> ? ALORS
    				SORTIR pers.adresse1
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR adr
    SINON
    	SORTIR dossier.{'AdrBanque2'}chaine
    FIN SI
###
'get_TelBanque2' 'Nouveaux Contacts'
    --Création : 06/06/2011 15:00:15 llg-PO15890; Modification : 02/05/2013 16:21:38 llg-PO36696; 
    |
    	pers<Objet>tmpCh<Chaine>
    |
    
    tmpCh	:=	?
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ET element.estBanque2 ALORS
    			pers	:=	element.personne
    			SI pers <> ? ALORS
    				SORTIR pers.telephone
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    SINON
    	SORTIR dossier.{'TelBanque2'}chaine
    FIN SI
###
'get_FaxBanque2' 'Nouveaux Contacts'
    --Création : 06/06/2011 15:00:07 llg-PO15890; Modification : 02/05/2013 16:21:38 llg-PO36696; 
    
    |
    	pers<Objet>
    	tmpCh<Chaine>
    |
    
    tmpCh	:=	?
    
    SI contactExportes ALORS
    	pers	::=	'Personne'
    
    	POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    		SI element.type = 'Banque' ET element.estBanque2 ALORS
    			pers	:=	element.personne
    			SI pers <> ? ALORS
    				SORTIR pers.fax
    			FIN SI
    		FIN SI
    	FIN FAIRE
    
    	SORTIR tmpCh
    SINON
    	SORTIR dossier.{'FaxBanque2'}chaine
    FIN SI
###
'CreerAga' 'Nouveaux Contacts'
{idAncienContact <Chaine>}
    --Création : 09/06/2011 17:02:21 llg-PO15890; Modification : 02/05/2013 16:21:38 llg-PO36696; 
    
    
    
    
    
    
    |
    	pers<Objet>ii<Entier>lst<Objet>role<Objet>tmpRole<Objet>
    	nb<Entier> dteDeb<Date> dteFin<Date>
    |
    
    tmpRole	::=	'Role'
    role	::=	'Role'
    
    tmpRole	:=	creer{'Role'}
    role	:=	tmpRole.new{dossier, 'Aga', VRAI}
    
    pers		::=	'Personne'
    
    lst	:=	datesHistorique{dossier , 'NomAGA'}
    SI (dossier.{'NomAGA'}chaine[2.1.1901] <> ?)	ALORS
    	ajouterElement{lst, entier{2.1.1901}, 1}
    FIN SI
    
    ii	:=	1
    nb	:=	nbElements{lst}
    TANT QUE ii <= nb FAIRE	
    	dteDeb			:=	elementEntierDIndice{lst, ii}
    	SI ii = nb ALORS
    		dteFin	:=	31.12.2050
    	SINON
    		dteFin	:=	elementEntierDIndice{lst, ii+1} - 1
    	FIN SI
    
    	pers			:=	creer{'Personne', '/mongo/Personne'}
    	pers.initAga{dossier, dteDeb, dteFin}
    	role.personne[dteDeb]	!=	pers
    
    	ii			+=	1
    FIN FAIRE
    SI pers <> ? ET idAncienContact <> ? ALORS
    	pers.idEE	:=	idAncienContact
    FIN SI
    
    SORTIR role
###
'CreerAllocationsFamilialesTravailleurIndependant' 'Nouveaux Contacts'
{objSource <Objet>}
    --Création : 15/06/2011 11:30:02 llg-PO15890; Modification : 02/05/2013 16:21:38 llg-PO36696; 
    
    
    
    
    
    
    |
    	pers<Objet>ii<Entier>lst<Objet>role<Objet>tmpRole<Objet>etab<Objet>
    	nb<Entier> dteDeb<Date> dteFin<Date>
    |
    
    etab	::=	'Etablissement'
    etab	:=	objSource
    
    tmpRole	::=	'Role'
    role	::=	'Role'
    tmpRole	:=	creer{'Role'}
    role	:=	tmpRole.new{etab, 'Allocations familiales travailleur indépendant', VRAI}
    
    pers		::=	'Personne'
    
    lst	:=	datesHistorique{etab , 'OrgAlloc'}
    SI (etab.{'OrgAlloc'}chaine[2.1.1901] <> ?)	ALORS
    	ajouterElement{lst, entier{2.1.1901}, 1}
    FIN SI
    
    ii	:=	1
    nb	:=	nbElements{lst}
    TANT QUE ii <= nb FAIRE	
    	dteDeb			:=	elementEntierDIndice{lst, ii}
    	SI ii = nb ALORS
    		dteFin	:=	31.12.2050
    	SINON
    		dteFin	:=	elementEntierDIndice{lst, ii+1} - 1
    	FIN SI
    	pers			:=	creer{'Personne', '/mongo/Personne'}
    	pers.initAllocationsFamilialesTravailleurIndependant{etab, dteDeb, dteFin}
    	role.personne[dteDeb]	!=	pers
    	ii			+=	1
    FIN FAIRE
    
    SORTIR role
###
'CreerAutreCaisseChomage' 'Nouveaux Contacts'
{objSource <Objet>}
    --Création : 15/06/2011 11:31:54 llg-PO15890; Modification : 02/05/2013 16:21:38 llg-PO36696; 
    
    
    
    
    
    
    |
    	pers<Objet>ii<Entier>lst<Objet>role<Objet>tmpRole<Objet>etab<Objet>
    	nb<Entier> dteDeb<Date> dteFin<Date>
    |
    
    etab	::=	'Etablissement'
    etab	:=	objSource
    
    tmpRole	::=	'Role'
    role	::=	'Role'
    tmpRole	:=	creer{'Role'}
    role	:=	tmpRole.new{etab, 'Autre caisse chômage', VRAI}
    
    pers		::=	'Personne'
    
    lst	:=	datesHistorique{etab , 'AdrAutCaisChom'}
    SI (etab.{'AdrAutCaisChom'}chaine[2.1.1901] <> ?)	ALORS
    	ajouterElement{lst, entier{2.1.1901}, 1}
    FIN SI
    
    ii	:=	1
    nb	:=	nbElements{lst}
    TANT QUE ii <= nb FAIRE	
    	dteDeb			:=	elementEntierDIndice{lst, ii}
    	SI ii = nb ALORS
    		dteFin	:=	31.12.2050
    	SINON
    		dteFin	:=	elementEntierDIndice{lst, ii+1} - 1
    	FIN SI
    	pers			:=	creer{'Personne', '/mongo/Personne'}
    	pers.initAutreCaisseChomage{etab, dteDeb, dteFin}
    	role.personne[dteDeb]	!=	pers
    	ii			+=	1
    FIN FAIRE
    
    SORTIR role
###
'CreerAvocat' 'Nouveaux Contacts'
{idAncienContact <Chaine>}
    --Création : 09/06/2011 17:02:21 llg-PO15890; Modification : 02/05/2013 16:21:38 llg-PO36696; 
    
    
    
    
    
    
    |
    	pers<Objet>ii<Entier>lst<Objet>role<Objet>tmpRole<Objet>
    	nb<Entier> dteDeb<Date> dteFin<Date>
    |
    
    tmpRole	::=	'Role'
    role	::=	'Role'
    
    tmpRole	:=	creer{'Role'}
    role	:=	tmpRole.new{dossier, 'Avocat', VRAI}
    
    pers		::=	'Personne'
    
    lst	:=	datesHistorique{dossier , 'AdrAvocat'}
    SI (dossier.{'AdrAvocat'}chaine[2.1.1901] <> ?)	ALORS
    	ajouterElement{lst, entier{2.1.1901}, 1}
    FIN SI
    
    ii	:=	1
    nb	:=	nbElements{lst}
    TANT QUE ii <= nb FAIRE	
    	dteDeb			:=	elementEntierDIndice{lst, ii}
    	SI ii = nb ALORS
    		dteFin	:=	31.12.2050
    	SINON
    		dteFin	:=	elementEntierDIndice{lst, ii+1} - 1
    	FIN SI
    	pers			:=	creer{'Personne', '/mongo/Personne'}
    	pers.initAvocat{dossier, dteDeb, dteFin}
    	role.personne[dteDeb]	!=	pers	
    	ii			+=	1
    FIN FAIRE
    SI pers <> ? ET idAncienContact <> ? ALORS
    	pers.idEE	:=	idAncienContact
    FIN SI
    
    SORTIR role
###
'CreerBanque1' 'Nouveaux Contacts'
{idAncienContact <Chaine>}
    --Création : 09/06/2011 17:02:21 llg-PO15890; Modification : 02/05/2013 16:21:38 llg-PO36696; 
    
    
    
    
    
    
    |
    	pers<Objet>ii<Entier>lst<Objet>role<Objet>tmpRole<Objet>
    	nb<Entier> dteDeb<Date> dteFin<Date>
    |
    
    tmpRole	::=	'Role'
    role	::=	'Role'
    
    tmpRole	:=	creer{'Role'}
    role	:=	tmpRole.new{dossier, 'Banque1', FAUX}
    
    pers		::=	'Personne'
    
    lst	:=	datesHistorique{dossier , 'AdrBanque1'}
    SI (dossier.{'AdrBanque1'}chaine[2.1.1901] <> ?)	ALORS
    	ajouterElement{lst, entier{2.1.1901}, 1}
    FIN SI
    
    ii	:=	1
    nb	:=	nbElements{lst}
    TANT QUE ii <= nb FAIRE	
    	dteDeb			:=	elementEntierDIndice{lst, ii}
    	SI ii = nb ALORS
    		dteFin	:=	31.12.2050
    	SINON
    		dteFin	:=	elementEntierDIndice{lst, ii+1} - 1
    	FIN SI
    	pers			:=	creer{'Personne', '/mongo/Personne'}
    	pers.initBanque1{dossier, dteDeb, dteFin}
    	role.personne[dteDeb]	!=	pers
    	ii			+=	1
    FIN FAIRE
    SI pers <> ? ET idAncienContact <> ? ALORS
    	pers.idEE	:=	idAncienContact
    FIN SI
    
    SORTIR role
###
'CreerBanque2' 'Nouveaux Contacts'
{idAncienContact <Chaine>}
    --Création : 09/06/2011 17:02:21 llg-PO15890; Modification : 02/05/2013 16:21:38 llg-PO36696; 
    
    
    
    
    
    
    |
    	pers<Objet>ii<Entier>lst<Objet>role<Objet>tmpRole<Objet>
    	nb<Entier> dteDeb<Date> dteFin<Date>
    |
    
    tmpRole	::=	'Role'
    role	::=	'Role'
    
    tmpRole	:=	creer{'Role'}
    role	:=	tmpRole.new{dossier, 'Banque2', FAUX}
    
    pers		::=	'Personne'
    
    lst	:=	datesHistorique{dossier , 'AdrBanque2'}
    SI (dossier.{'AdrBanque2'}chaine[2.1.1901] <> ?)	ALORS
    	ajouterElement{lst, entier{2.1.1901}, 1}
    FIN SI
    
    ii	:=	1
    nb	:=	nbElements{lst}
    TANT QUE ii <= nb FAIRE	
    	dteDeb			:=	elementEntierDIndice{lst, ii}
    	SI ii = nb ALORS
    		dteFin	:=	31.12.2050
    	SINON
    		dteFin	:=	elementEntierDIndice{lst, ii+1} - 1
    	FIN SI
    	pers			:=	creer{'Personne', '/mongo/Personne'}
    	pers.initBanque2{dossier, dteDeb, dteFin}
    	role.personne[dteDeb]	!=	pers
    	ii			+=	1
    FIN FAIRE
    SI pers <> ? ET idAncienContact <> ? ALORS
    	pers.idEE	:=	idAncienContact
    FIN SI
    
    SORTIR role
###
'CreerBanqueDossier' 'Nouveaux Contacts'
{objSource <Objet>}
    --Création : 09/06/2011 17:02:21 llg-PO15890; Modification : 02/05/2013 16:21:38 llg-PO36696; 
    
    
    
    
    
    
    |
    	pers<Objet>ii<Entier>lst<Objet>role<Objet>tmpRole<Objet>etab<Objet>
    	nb<Entier> dteDeb<Date> dteFin<Date>
    |
    etab	::=	'Etablissement'
    etab	:=	objSource
    
    tmpRole	::=	'Role'
    role	::=	'Role'
    tmpRole	:=	creer{'Role'}
    role	:=	tmpRole.new{etab, 'BanquePaye', FAUX}
    
    pers		::=	'Personne'
    
    lst	:=	datesHistorique{etab , 'NomBanqueDossier'}
    SI (etab.{'NomBanqueDossier'}chaine[2.1.1901] <> ?)	ALORS
    	ajouterElement{lst, entier{2.1.1901}, 1}
    FIN SI
    
    ii	:=	1
    nb	:=	nbElements{lst}
    TANT QUE ii <= nb FAIRE	
    	dteDeb			:=	elementEntierDIndice{lst, ii}
    	SI ii = nb ALORS
    		dteFin	:=	31.12.2050
    	SINON
    		dteFin	:=	elementEntierDIndice{lst, ii+1} - 1
    	FIN SI
    	pers			:=	creer{'Personne', '/mongo/Personne'}
    	pers.initBanqueDossier{etab, dteDeb, dteFin}
    	role.personne[dteDeb]	!=	pers
    	ii			+=	1
    FIN FAIRE
    
    SORTIR role
###
'CreerBanqueGestionCabinet' 'Nouveaux Contacts'
{objSource <Objet>}
    --Création : 09/06/2011 17:02:21 llg-PO15890; Modification : 02/05/2013 16:21:38 llg-PO36696; 
    
    
    
    
    
    
    |
    	pers<Objet>ii<Entier>lst<Objet>role<Objet>tmpRole<Objet>etab<Objet>
    	nb<Entier> dteDeb<Date> dteFin<Date>
    |
    
    etab	::=	'Etablissement'
    etab	:=	objSource
    
    tmpRole	::=	'Role'
    role	::=	'Role'
    tmpRole	:=	creer{'Role'}
    role	:=	tmpRole.new{etab, 'BanqueGestionCabinet', FAUX}
    
    pers		::=	'Personne'
    
    lst	:=	datesHistorique{etab , 'NomBanqueGesCab'}
    SI (etab.{'NomBanqueGesCab'}chaine[2.1.1901] <> ?)	ALORS
    	ajouterElement{lst, entier{2.1.1901}, 1}
    FIN SI
    
    ii	:=	1
    nb	:=	nbElements{lst}
    TANT QUE ii <= nb FAIRE	
    	dteDeb			:=	elementEntierDIndice{lst, ii}
    	SI ii = nb ALORS
    		dteFin	:=	31.12.2050
    	SINON
    		dteFin	:=	elementEntierDIndice{lst, ii+1} - 1
    	FIN SI
    	pers			:=	creer{'Personne', '/mongo/Personne'}
    	pers.initBanqueGesCab{etab, dteDeb, dteFin}
    	role.personne[dteDeb]	!=	pers
    	ii			+=	1
    FIN FAIRE
    
    SORTIR role
###
'CreerCac' 'Nouveaux Contacts'
{idAncienContact <Chaine>}
    --Création : 09/06/2011 17:02:21 llg-PO15890; Modification : 02/05/2013 16:21:38 llg-PO36696; 
    
    
    
    
    
    
    |
    	pers<Objet>ii<Entier>lst<Objet>role<Objet>tmpRole<Objet>
    	nb<Entier> dteDeb<Date> dteFin<Date>
    |
    
    tmpRole	::=	'Role'
    role	::=	'Role'
    
    tmpRole	:=	creer{'Role'}
    role	:=	tmpRole.new{dossier, 'Commissaire aux comptes', VRAI}
    
    pers		::=	'Personne'
    
    lst	:=	datesHistorique{dossier , 'NomCacTitre'}
    SI (dossier.{'NomCacTitre'}chaine[2.1.1901] <> ?)	ALORS
    	ajouterElement{lst, entier{2.1.1901}, 1}
    FIN SI
    
    ii	:=	1
    nb	:=	nbElements{lst}
    TANT QUE ii <= nb FAIRE	
    	dteDeb			:=	elementEntierDIndice{lst, ii}
    	SI ii = nb ALORS
    		dteFin	:=	31.12.2050
    	SINON
    		dteFin	:=	elementEntierDIndice{lst, ii+1} - 1
    	FIN SI
    	pers			:=	creer{'Personne', '/mongo/Personne'}
    	pers.initCac{dossier, dteDeb, dteFin}
    	role.personne[dteDeb]	!=	pers
    	ii			+=	1
    FIN FAIRE
    SI pers <> ? ET idAncienContact <> ? ALORS
    	pers.idEE	:=	idAncienContact
    FIN SI
    
    SORTIR role
###
'CreerCacSuppleant' 'Nouveaux Contacts'
{idAncienContact <Chaine>}
    --Création : 09/06/2011 17:02:21 llg-PO15890; Modification : 02/05/2013 16:21:38 llg-PO36696; 
    
    
    
    
    
    
    |
    	pers<Objet>ii<Entier>lst<Objet>role<Objet>tmpRole<Objet>
    	nb<Entier> dteDeb<Date> dteFin<Date>
    |
    
    tmpRole	::=	'Role'
    role	::=	'Role'
    
    tmpRole	:=	creer{'Role'}
    role	:=	tmpRole.new{dossier, 'Commissaire aux comptes suppléant', VRAI}
    
    pers		::=	'Personne'
    
    lst	:=	datesHistorique{dossier , 'NomCacSup'}
    SI (dossier.{'NomCacSup'}chaine[2.1.1901] <> ?)	ALORS
    	ajouterElement{lst, entier{2.1.1901}, 1}
    FIN SI
    
    ii	:=	1
    nb	:=	nbElements{lst}
    TANT QUE ii <= nb FAIRE	
    	dteDeb			:=	elementEntierDIndice{lst, ii}
    	SI ii = nb ALORS
    		dteFin	:=	31.12.2050
    	SINON
    		dteFin	:=	elementEntierDIndice{lst, ii+1} - 1
    	FIN SI
    	pers			:=	creer{'Personne', '/mongo/Personne'}
    	pers.initCacSuppleant{dossier, dteDeb, dteFin}
    	role.personne[dteDeb]	!=	pers
    	ii			+=	1
    FIN FAIRE
    SI pers <> ? ET idAncienContact <> ? ALORS
    	pers.idEE	:=	idAncienContact
    FIN SI
    
    SORTIR role
###
'CreerCentreImpots' 'Nouveaux Contacts'
{idAncienContact <Chaine>}
    --Création : 09/06/2011 17:02:21 llg-PO15890; Modification : 02/05/2013 16:21:38 llg-PO36696; 
    
    
    
    
    
    
    |
    	pers<Objet>ii<Entier>lst<Objet>role<Objet>tmpRole<Objet>
    	nb<Entier> dteDeb<Date> dteFin<Date>
    |
    
    tmpRole	::=	'Role'
    role	::=	'Role'
    
    tmpRole	:=	creer{'Role'}
    role	:=	tmpRole.new{dossier, 'Centre des impôts', VRAI}
    
    pers		::=	'Personne'
    
    lst	:=	datesHistorique{dossier , 'AdrCdi1'}
    SI (dossier.{'AdrCdi1'}chaine[2.1.1901] <> ?)	ALORS
    	ajouterElement{lst, entier{2.1.1901}, 1}
    FIN SI
    
    ii	:=	1
    nb	:=	nbElements{lst}
    TANT QUE ii <= nb FAIRE	
    	dteDeb			:=	elementEntierDIndice{lst, ii}
    	SI ii = nb ALORS
    		dteFin	:=	31.12.2050
    	SINON
    		dteFin	:=	elementEntierDIndice{lst, ii+1} - 1
    	FIN SI
    	pers			:=	creer{'Personne', '/mongo/Personne'}
    	pers.initCentreImpots{dossier, dteDeb, dteFin}
    	role.personne[dteDeb]	!=	pers
    	ii			+=	1
    FIN FAIRE
    SI pers <> ? ET idAncienContact <> ? ALORS
    	pers.idEE	:=	idAncienContact
    FIN SI
    
    SORTIR role
###
'CreerCga' 'Nouveaux Contacts'
{idAncienContact <Chaine>}
    --Création : 09/06/2011 17:02:21 llg-PO15890; Modification : 02/05/2013 16:21:38 llg-PO36696; 
    
    
    
    
    
    
    |
    	pers<Objet>ii<Entier>lst<Objet>role<Objet>tmpRole<Objet>
    	nb<Entier> dteDeb<Date> dteFin<Date>
    |
    
    tmpRole	::=	'Role'
    role	::=	'Role'
    
    tmpRole	:=	creer{'Role'}
    role	:=	tmpRole.new{dossier, 'Cga', VRAI}
    
    pers		::=	'Personne'
    
    lst	:=	datesHistorique{dossier , 'NomDuCentre'}
    SI (dossier.{'NomDuCentre'}chaine[2.1.1901] <> ?)	ALORS
    	ajouterElement{lst, entier{2.1.1901}, 1}
    FIN SI
    
    ii	:=	1
    nb	:=	nbElements{lst}
    TANT QUE ii <= nb FAIRE	
    	dteDeb			:=	elementEntierDIndice{lst, ii}
    	SI ii = nb ALORS
    		dteFin	:=	31.12.2050
    	SINON
    		dteFin	:=	elementEntierDIndice{lst, ii+1} - 1
    	FIN SI
    	pers			:=	creer{'Personne', '/mongo/Personne'}
    	pers.initCga{dossier, dteDeb, dteFin}
    	role.personne[dteDeb]	!=	pers
    	ii			+=	1
    FIN FAIRE
    SI pers <> ? ET idAncienContact <> ? ALORS
    	pers.idEE	:=	idAncienContact
    FIN SI
    
    SORTIR role
###
'CreerChefDEntreprise' 'Nouveaux Contacts'
{objSource <Objet>}
    --Création : 09/06/2011 17:02:21 llg-PO15890; Modification : 02/05/2013 16:21:38 llg-PO36696; 
    
    
    
    
    
    
    |
    	pers<Objet>ii<Entier>dte<Date>lst<Objet>role<Objet>tmpRole<Objet>dteDeb<Date>etab<Objet>
    |
    
    etab	::=	'Etablissement'
    
    etab	:=	objSource
    
    tmpRole	::=	'Role'
    role	::=	'Role'
    tmpRole	:=	creer{'Role'}
    role	:=	tmpRole.new{etab, 'Chef d''entreprise', VRAI}
    
    pers		::=	'Personne'
    
    SI NomChefEntr <> '' ET NomChefEntr <> ? ALORS
    	pers			:=	creer{'Personne', '/mongo/Personne'}
    	pers.initChefDEntreprise{etab, 1.1.1995, 31.12.2050}
    	role.personne[1.1.1995]	!=	pers
    FIN SI
    
    
    SORTIR role
###
'CreerDirectionDepartementaleDuTravail' 'Nouveaux Contacts'
{objSource <Objet>}
    --Création : 15/06/2011 11:30:02 llg-PO15890; Modification : 02/05/2013 16:21:38 llg-PO36696; 
    
    
    
    
    
    
    |
    	pers<Objet>ii<Entier>lst<Objet>role<Objet>tmpRole<Objet>etab<Objet>aDoss<Objet>
    	nb<Entier> dteDeb<Date> dteFin<Date>
    |
    
    etab	::=	'Etablissement'
    aDoss	::=	'Dossier'
    pers	::=	'Personne'
    
    tmpRole	::=	'Role'
    role	::=	'Role'
    tmpRole	:=	creer{'Role'}
    
    SI classe{objSource} = 'Etablissement' ALORS
    	etab	:=	objSource
    	role	:=	tmpRole.new{etab, 'Direction départementale du travail', VRAI}
    	lst	:=	datesHistorique{etab , 'DirDepTrav'}
    	SI (etab.{'DirDepTrav'}chaine[2.1.1901] <> ?)	ALORS
    		ajouterElement{lst, entier{2.1.1901}, 1}
    	FIN SI
    SINON
    	aDoss	:=	objSource
    	role	:=	tmpRole.new{aDoss, 'Direction départementale du travail', VRAI}
    	lst	:=	datesHistorique{aDoss, 'DirDepTrav'}
    	SI (aDoss.{'DirDepTrav'}chaine[2.1.1901] <> ?)	ALORS
    		ajouterElement{lst, entier{2.1.1901}, 1}
    	FIN SI
    FIN SI
    
    ii	:=	1
    nb	:=	nbElements{lst}
    TANT QUE ii <= nb FAIRE	
    	dteDeb			:=	elementEntierDIndice{lst, ii}
    	SI ii = nb ALORS
    		dteFin	:=	31.12.2050
    	SINON
    		dteFin	:=	elementEntierDIndice{lst, ii+1} - 1
    	FIN SI
    debug{'Creation personne Direction Depart au '+dteDeb+' : '+dteFin}
    	pers			:=	creer{'Personne', '/mongo/Personne'}
    	pers.initDirectionDepartementaleDuTravail{objSource, dteDeb, dteFin}
    	role.personne[dteDeb]	!=	pers
    	ii			+=	1
    FIN FAIRE
    
    SORTIR role
###
'CreerGreffe' 'Nouveaux Contacts'
{idAncienContact <Chaine>}
    --Création : 09/06/2011 17:02:21 llg-PO15890; Modification : 02/05/2013 16:21:39 llg-PO36696; 
    
    
    
    
    
    
    |
    	pers<Objet>ii<Entier>lst<Objet>role<Objet>tmpRole<Objet>
    	nb<Entier> dteDeb<Date> dteFin<Date>
    |
    
    tmpRole	::=	'Role'
    role	::=	'Role'
    
    tmpRole	:=	creer{'Role'}
    role	:=	tmpRole.new{dossier, 'Greffe', VRAI}
    
    pers		::=	'Personne'
    
    lst	:=	datesHistorique{dossier , 'Greffe2'}
    SI (dossier.{'Greffe2'}chaine[2.1.1901] <> ?)	ALORS
    	ajouterElement{lst, entier{2.1.1901}, 1}
    FIN SI
    
    ii	:=	1
    nb	:=	nbElements{lst}
    TANT QUE ii <= nb FAIRE	
    	dteDeb			:=	elementEntierDIndice{lst, ii}
    	SI ii = nb ALORS
    		dteFin	:=	31.12.2050
    	SINON
    		dteFin	:=	elementEntierDIndice{lst, ii+1} - 1
    	FIN SI
    	pers			:=	creer{'Personne', '/mongo/Personne'}
    	pers.initGreffe{dossier, dteDeb, dteFin}
    	role.personne[dteDeb]	!=	pers
    	ii			+=	1
    FIN FAIRE
    SI pers <> ? ET idAncienContact <> ? ALORS
    	pers.idEE	:=	idAncienContact
    FIN SI
    
    SORTIR role
###
'CreerInspectionDuTravail' 'Nouveaux Contacts'
{objSource <Objet>}
    --Création : 15/06/2011 11:30:02 llg-PO15890; Modification : 02/05/2013 16:21:39 llg-PO36696; 
    
    
    
    
    
    
    |
    	pers<Objet>ii<Entier>lst<Objet>role<Objet>tmpRole<Objet>etab<Objet>aDoss<Objet>
    	nb<Entier> dteDeb<Date> dteFin<Date>
    |
    
    etab	::=	'Etablissement'
    aDoss	::=	'Dossier'
    pers	::=	'Personne'
    
    tmpRole	::=	'Role'
    role	::=	'Role'
    
    tmpRole	:=	creer{'Role'}
    SI classe{objSource} = 'Etablissement' ALORS
    	etab	:=	objSource
    	role	:=	tmpRole.new{etab, 'Inspection du travail', VRAI}
    	lst	:=	datesHistorique{etab , 'InspTrav'}
    	SI (etab.{'InspTrav'}chaine[2.1.1901] <> ?)	ALORS
    		ajouterElement{lst, entier{2.1.1901}, 1}
    	FIN SI
    SINON
    	aDoss	:=	objSource
    	role	:=	tmpRole.new{aDoss, 'Inspection du travail', VRAI}
    	lst	:=	datesHistorique{aDoss , 'InspTrav'}
    	SI (aDoss.{'InspTrav'}chaine[2.1.1901] <> ?)	ALORS
    		ajouterElement{lst, entier{2.1.1901}, 1}
    	FIN SI
    FIN SI
    
    ii	:=	1
    nb	:=	nbElements{lst}
    TANT QUE ii <= nb FAIRE	
    	dteDeb			:=	elementEntierDIndice{lst, ii}
    	SI ii = nb ALORS
    		dteFin	:=	31.12.2050
    	SINON
    		dteFin	:=	elementEntierDIndice{lst, ii+1} - 1
    	FIN SI
    	pers			:=	creer{'Personne', '/mongo/Personne'}
    	pers.initInspectionDuTravail{objSource, dteDeb, dteFin}
    	role.personne[dteDeb]	!=	pers
    	ii	+=	1
    FIN FAIRE
    
    SORTIR role
###
'CreerJuridiqueExterne' 'Nouveaux Contacts'
{idAncienContact <Chaine>}
    --Création : 09/06/2011 17:02:21 llg-PO15890; Modification : 02/05/2013 16:21:39 llg-PO36696; 
    
    
    
    
    
    
    |
    	pers<Objet>ii<Entier>lst<Objet>role<Objet>tmpRole<Objet>
    	nb<Entier> dteDeb<Date> dteFin<Date>
    |
    
    tmpRole	::=	'Role'
    role	::=	'Role'
    
    tmpRole	:=	creer{'Role'}
    role	:=	tmpRole.new{dossier, 'Juridique externe', VRAI}
    
    pers		::=	'Personne'
    
    lst	:=	datesHistorique{dossier , 'AdrJuridiqueExterne'}
    SI (dossier.{'AdrJuridiqueExterne'}chaine[2.1.1901] <> ?)	ALORS
    	ajouterElement{lst, entier{2.1.1901}, 1}
    FIN SI
    
    ii	:=	1
    nb	:=	nbElements{lst}
    TANT QUE ii <= nb FAIRE	
    	dteDeb			:=	elementEntierDIndice{lst, ii}
    	SI ii = nb ALORS
    		dteFin	:=	31.12.2050
    	SINON
    		dteFin	:=	elementEntierDIndice{lst, ii+1} - 1
    	FIN SI
    	pers			:=	creer{'Personne', '/mongo/Personne'}
    	pers.initJuridiqueExterne{dossier, dteDeb, dteFin}
    	role.personne[dteDeb]	!=	pers
    	ii			+=	1
    FIN FAIRE
    SI pers <> ? ET idAncienContact <> ? ALORS
    	pers.idEE	:=	idAncienContact
    FIN SI
    
    SORTIR role
###
'CreerMaladieTravailleurIndependant' 'Nouveaux Contacts'
{objSource <Objet>}
    --Création : 15/06/2011 11:30:02 llg-PO15890; Modification : 02/05/2013 16:21:39 llg-PO36696; 
    
    
    
    
    
    
    |
    	pers<Objet>ii<Entier>lst<Objet>role<Objet>tmpRole<Objet>etab<Objet>
    	nb<Entier> dteDeb<Date> dteFin<Date>
    |
    
    etab	::=	'Etablissement'
    etab	:=	objSource
    
    tmpRole	::=	'Role'
    role	::=	'Role'
    tmpRole	:=	creer{'Role'}
    role	:=	tmpRole.new{etab, 'Maladie travailleur indépendant', VRAI}
    
    pers		::=	'Personne'
    
    lst	:=	datesHistorique{etab , 'OrgMal'}
    SI (etab.{'OrgMal'}chaine[2.1.1901] <> ?)	ALORS
    	ajouterElement{lst, entier{2.1.1901}, 1}
    FIN SI
    
    ii	:=	1
    nb	:=	nbElements{lst}
    TANT QUE ii <= nb FAIRE	
    	dteDeb			:=	elementEntierDIndice{lst, ii}
    	SI ii = nb ALORS
    		dteFin	:=	31.12.2050
    	SINON
    		dteFin	:=	elementEntierDIndice{lst, ii+1} - 1
    	FIN SI
    	pers			:=	creer{'Personne', '/mongo/Personne'}
    	pers.initMaladieTravailleurIndependant{etab, dteDeb, dteFin}
    	role.personne[dteDeb]	!=	pers
    	ii			+=	1
    FIN FAIRE
    
    SORTIR role
###
'CreerNotaire' 'Nouveaux Contacts'
{idAncienContact <Chaine>}
    --Création : 09/06/2011 17:02:21 llg-PO15890; Modification : 02/05/2013 16:21:39 llg-PO36696; 
    
    
    
    
    
    
    |
    	pers<Objet>ii<Entier>dte<Date>lst<Objet>role<Objet>tmpRole<Objet>
    	nb<Entier> dteDeb<Date> dteFin<Date>
    |
    
    tmpRole	::=	'Role'
    role	::=	'Role'
    
    tmpRole	:=	creer{'Role'}
    role	:=	tmpRole.new{dossier, 'Notaire', VRAI}
    
    pers		::=	'Personne'
    
    lst	:=	datesHistorique{dossier , 'AdrNotaires'}
    SI (dossier.{'AdrNotaires'}chaine[2.1.1901] <> ?)	ALORS
    	ajouterElement{lst, entier{2.1.1901}, 1}
    FIN SI
    
    ii	:=	1
    nb	:=	nbElements{lst}
    TANT QUE ii <= nb FAIRE	
    	dteDeb			:=	elementEntierDIndice{lst, ii}
    	SI ii = nb ALORS
    		dteFin	:=	31.12.2050
    	SINON
    		dteFin	:=	elementEntierDIndice{lst, ii+1} - 1
    	FIN SI
    	pers			:=	creer{'Personne', '/mongo/Personne'}
    	pers.initNotaire{dossier, dteDeb, dteFin}
    	role.personne[dteDeb]	!=	pers
    	ii			+=	1
    FIN FAIRE
    SI pers <> ? ET idAncienContact <> ? ALORS
    	pers.idEE	:=	idAncienContact
    FIN SI
    
    SORTIR role
###
'CreerOfficeNationalDImmigration' 'Nouveaux Contacts'
{objSource <Objet>}
    --Création : 15/06/2011 11:30:02 llg-PO15890; Modification : 02/05/2013 16:21:39 llg-PO36696; 
    
    
    
    
    
    
    |
    	pers<Objet>ii<Entier>lst<Objet>role<Objet>tmpRole<Objet>etab<Objet>aDoss<Objet>
    	nb<Entier> dteDeb<Date> dteFin<Date>
    |
    
    etab	::=	'Etablissement'
    aDoss	::=	'Dossier'
    pers	::=	'Personne'
    
    tmpRole	::=	'Role'
    role	::=	'Role'
    tmpRole	:=	creer{'Role'}
    
    SI classe{objSource} = 'Etablissement' ALORS
    debug{'Creation Etablissement Office National Immigration'}
    	etab	:=	objSource
    	role	:=	tmpRole.new{etab, 'Office national d''immigration', VRAI}
    	lst	:=	datesHistorique{etab , 'OffNatImm'}
    	SI (etab.{'OffNatImm'}chaine[2.1.1901] <> ?)	ALORS
    		ajouterElement{lst, entier{2.1.1901}, 1}
    	FIN SI
    SINON
    debug{'Creation Dossier Office National Immigration'}
    	aDoss	:=	objSource
    	role	:=	tmpRole.new{aDoss, 'Office national d''immigration', VRAI}
    	lst	:=	datesHistorique{aDoss, 'OffNatImm'}
    	SI (aDoss.{'OffNatImm'}chaine[2.1.1901] <> ?)	ALORS
    		ajouterElement{lst, entier{2.1.1901}, 1}
    	FIN SI
    FIN SI
    
    ii	:=	1
    nb	:=	nbElements{lst}
    TANT QUE ii <= nb FAIRE	
    	dteDeb			:=	elementEntierDIndice{lst, ii}
    	SI ii = nb ALORS
    		dteFin	:=	31.12.2050
    	SINON
    		dteFin	:=	elementEntierDIndice{lst, ii+1} - 1
    	FIN SI
    	pers			:=	creer{'Personne', '/mongo/Personne'}
    	pers.initOfficeNationalDImmigration{objSource, dteDeb, dteFin}
    	role.personne[dteDeb]	!=	pers
    	ii			+=	1
    FIN FAIRE
    
    SORTIR role
###
'CreerRecetteImpots' 'Nouveaux Contacts'
{idAncienContact <Chaine>}
    --Création : 09/06/2011 17:02:21 llg-PO15890; Modification : 02/05/2013 16:21:39 llg-PO36696; 
    
    
    
    
    
    
    |
    	pers<Objet>ii<Entier>lst<Objet>role<Objet>tmpRole<Objet>
    	nb<Entier> dteDeb<Date> dteFin<Date>
    |
    
    tmpRole	::=	'Role'
    role	::=	'Role'
    
    tmpRole	:=	creer{'Role'}
    role	:=	tmpRole.new{dossier, 'Recette des impôts', VRAI}
    
    pers		::=	'Personne'
    
    SI taille{AdrRec1} > 0 ALORS
    	lst	:=	datesHistorique{dossier , 'AdrRec1'}
    	SI (dossier.{'AdrRec1'}chaine[2.1.1901] <> ?)	ALORS
    		ajouterElement{lst, entier{2.1.1901}, 1}
    	FIN SI
    SINON
    	lst	:=	datesHistorique{dossier , 'NumRecette'}
    	-- ajout scr
    	SI nbElements{lst} > 0 ALORS
    		dteDeb	:=	elementEntierDIndice{lst, 1}
    		dossier.AdrRec1[dteDeb]	!=	'Recette '+NumRecette
    	FIN SI
    	SI (dossier.{'NumRecette'}chaine[2.1.1901] <> ?)	ALORS
    		ajouterElement{lst, entier{2.1.1901}, 1}
    	FIN SI
    FIN SI
    
    ii	:=	1
    nb	:=	nbElements{lst}
    TANT QUE ii <= nb FAIRE	
    	dteDeb			:=	elementEntierDIndice{lst, ii}
    	SI ii = nb ALORS
    		dteFin	:=	31.12.2050
    	SINON
    		dteFin	:=	elementEntierDIndice{lst, ii+1} - 1
    	FIN SI
    
    	pers			:=	creer{'Personne', '/mongo/Personne'}
    	pers.initRecetteImpots{dossier, dteDeb, dteFin}
    	role.personne[dteDeb]	!=	pers
    
    	ii			+=	1
    FIN FAIRE
    SI pers <> ? ET idAncienContact <> ? ALORS
    	pers.idEE	:=	idAncienContact
    FIN SI
    
    SORTIR role
###
'CreerRetraiteTravailleurIndependant' 'Nouveaux Contacts'
{objSource <Objet>}
    --Création : 15/06/2011 11:30:02 llg-PO15890; Modification : 02/05/2013 16:21:39 llg-PO36696; 
    
    
    
    
    
    
    |
    	pers<Objet>ii<Entier>lst<Objet>role<Objet>tmpRole<Objet>etab<Objet>
    	nb<Entier> dteDeb<Date> dteFin<Date>
    |
    
    etab	::=	'Etablissement'
    etab	:=	objSource
    
    tmpRole	::=	'Role'
    role	::=	'Role'
    tmpRole	:=	creer{'Role'}
    role	:=	tmpRole.new{etab, 'Retraite travailleur indépendant', VRAI}
    
    pers		::=	'Personne'
    
    lst	:=	datesHistorique{etab , 'OrgRet'}
    SI (etab.{'OrgRet'}chaine[2.1.1901] <> ?)	ALORS
    	ajouterElement{lst, entier{2.1.1901}, 1}
    FIN SI
    
    ii	:=	1
    nb	:=	nbElements{lst}
    TANT QUE ii <= nb FAIRE	
    	dteDeb			:=	elementEntierDIndice{lst, ii}
    	SI ii = nb ALORS
    		dteFin	:=	31.12.2050
    	SINON
    		dteFin	:=	elementEntierDIndice{lst, ii+1} - 1
    	FIN SI
    	pers			:=	creer{'Personne', '/mongo/Personne'}
    	pers.initRetraiteTravailleurIndependant{etab, dteDeb, dteFin}
    	role.personne[dteDeb]	!=	pers
    	ii			+=	1
    FIN FAIRE
    
    SORTIR role
###
'UpdateContactsDossier' 'Nouveaux Contacts'

POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
	element.calculerNomAffiche{}
FIN FAIRE
	
commit{}
VoirNouveauxContacts{}
editeur.majObjets

###
'CreerAssocie' 'Nouveaux Contacts'
{objAssocie <Objet> objSource <Objet>}
    --Création : 15/06/2011 11:30:02 llg-PO15890; Modification : 02/05/2013 16:21:39 llg-PO36696; 
    
    |
    	pers<Objet>ii<Entier>dte<Date>lst<Objet>role<Objet>tmpRole<Objet>dteDeb<Date>dos<Objet>
    |
    
    dos	::=	'Dossier'
    dos	:=	objSource
    
    tmpRole	::=	'Role'
    role	::=	'Role'
    tmpRole	:=	creer{'Role'}
    role	:=	tmpRole.newAssocie{dos, objAssocie}
    
    pers		::=	'Personne'
    pers		:=	creer{'Personne', '/mongo/Personne'}
    
    -- modif scr le 27/06/12
    --pers.initAssocie{objAssocie, dos}
    pers.initAssocie{objAssocie, dos, 1.1.1970, 31.12.2050}
    
    role.personne[01.01.1970]	!=	pers
    
    SORTIR role
###
'VoirNouveauxContacts' 'Nouveaux Contacts'
    --Création : 11/04/2011 09:11:25 llg-PO15890; Modification : 02/05/2013 16:21:39 llg-PO36696; 
    VoirContactsMongo{VRAI}
###
'ExporterNouveauxContacts' 'Nouveaux Contacts'
    --Création : 06/07/2011 09:39:02 llg-PO15890; Modification : 02/05/2013 16:21:39 llg-PO36696; 
    
    SI ouiNon{'Attention, si des contacts existent déjà dans l''onglet "Contacts Dossier", ces derniers seront potentiellement doublés.
Souhaitez-vous continuer'} ALORS
    
    	ExportNouveauxContacts{}
    	commit{}
    	info{'Traitement terminé...'}
    	VoirNouveauxContacts{}
    FIN SI
    
    SORTIR VRAI
###
'ExportNouveauxContacts' 'Nouveaux Contacts'
    --Modification : 15/12/2014 15:09:54 llg-PC100391; 
    |
    	pers<Objet>aRole<Objet>avecAnciensContacts<Booléen>idContact<Chaine>
    	tmpDateOuverture<Date>
    	etatDossier<Chaine>
    |
    
    etatDossier := etatCluster{repertoire + '\dp\dp'}
    SI etatDossier <> 'ouvert' ET etatDossier <> 'libre' ALORS
    	SORTIR FAUX
    FINSI
    
    
    --Initialisation de contactExportes
    contactExportes	:=	FAUX
    
    pers		::=	'Personne'
    aRole		::=	'Role'
    
    pers := creer{'Personne', '/mongo/Personne'}
    pers.initDossier{dossier}
    idContact	:=	?
    
    SI dossier.{'NomAGA'}chaine <> ? ALORS
    	aRole	:=	CreerAga{idContact}
    	aRole.logExport{dossier}
    FINSI
    SI dossier.{'OrgAlloc'}chaine <> ? ALORS
    	aRole	:=	CreerAllocationsFamilialesTravailleurIndependant{dossier}
    	aRole.logExport{dossier}
    FINSI
    SI dossier.{'NomSteIntegrte'}chaine <> ? ALORS
    	aRole	:=	CreerSocieteIntegrante{dossier}
    	aRole.logExport{dossier}
    FINSI
    -- ajout scr le 27/06/12
    SI dossier.{'NomChefEntr'}chaine <> ? ALORS
    	aRole	:=	CreerChefDEntreprise{dossier}
    	aRole.logExport{dossier}
    FINSI
    SI dossier.{'ResponsableEntreprise'}chaine <> ? ALORS
    	aRole	:=	CreerInterlocuteur{dossier, 'ResponsableEntreprise', 'Responsable entreprise', idContact}
    	aRole.logExport{dossier}
    FINSI
    SI dossier.{'ResponsableDossier'}chaine <> ? ALORS
    	aRole	:=	CreerInterlocuteur{dossier, 'ResponsableDossier', 'Responsable dossier', idContact}
    	aRole.logExport{dossier}
    FINSI
    SI dossier.{'RespPaye'}chaine <> ? ALORS
    	aRole	:=	CreerInterlocuteur{dossier, 'RespPaye', 'Responsable paye', idContact}
    	aRole.logExport{dossier}
    FINSI
    SI dossier.{'RespInformatique'}chaine <> ? ALORS
    	aRole	:=	CreerInterlocuteur{dossier, 'RespInformatique', 'Responsable informatique', idContact}
    	aRole.logExport{dossier}
    FINSI
    SI dossier.{'RepresentantLegal'}chaine <> ? ALORS
    	aRole	:=	CreerInterlocuteur{dossier, 'RepresentantLegal', 'Représentant légal', idContact}
    	aRole.logExport{dossier}
    FINSI
    SI dossier.{'ChefDeService'}chaine <> ? ALORS
    	aRole	:=	CreerInterlocuteur{dossier, 'ChefDeService', 'Chef de service', idContact}
    	aRole.logExport{dossier}
    FINSI
    SI dossier.{'ServiceDuPersonnel'}chaine <> ? ALORS
    	aRole	:=	CreerInterlocuteur{dossier, 'ServiceDuPersonnel', 'Service du personnel', idContact}
    	aRole.logExport{dossier}
    FINSI
    SI dossier.{'AutresInterlocuteurs'}chaine <> ? ALORS
    	aRole	:=	CreerInterlocuteur{dossier, 'AutresInterlocuteurs', 'Autre conseil extérieur', idContact}
    	aRole.logExport{dossier}
    FINSI
    
    SI dossier.{'AdrAutCaisChom'}chaine <> ? ALORS
    	aRole	:=	CreerAutreCaisseChomage{dossier}
    	aRole.logExport{dossier}
    FINSI
    SI dossier.{'AdrAvocat'}chaine<>? ALORS
    	aRole	:=	CreerAvocat{idContact}
    	aRole.logExport{dossier}
    FINSI
    SI dossier.{'AdrBanque1'}chaine<> ? ALORS
    	aRole	:=	CreerBanque1{idContact}
    	aRole.logExport{dossier}
    FINSI
    SI dossier.{'AdrBanque2'}chaine<>? ALORS
    	aRole	:=	CreerBanque2{idContact}
    	aRole.logExport{dossier}
    FINSI
    SI dossier.{'NomCacTitre'}chaine<>? ALORS
    	aRole	:=	CreerCac{idContact}
    	aRole.logExport{dossier}
    FINSI
    SI dossier.{'NomCacSup'}chaine<>? ALORS
    	aRole	:=	CreerCacSuppleant{idContact}
    	aRole.logExport{dossier}
    FINSI
    SI dossier.{'AdrCdi1'}chaine<>? ALORS
    	aRole	:=	CreerCentreImpots{idContact}
    	aRole.logExport{dossier}
    FINSI
    SI dossier.{'NomDuCentre'}chaine<>? ALORS
    	aRole	:=	CreerCga{idContact}
    	aRole.logExport{dossier}
    FINSI
    SI dossier.{'DirDepTrav'}chaine<>? ALORS
    	aRole	:=	CreerDirectionDepartementaleDuTravail{dossier}
    	aRole.logExport{dossier}
    FINSI
    SI dossier.{'Greffe2'}chaine<>? ALORS
    	aRole	:=	CreerGreffe{idContact}
    	aRole.logExport{dossier}
    FINSI
    SI dossier.{'InspTrav'}chaine<>? ALORS
    	aRole	:=	CreerInspectionDuTravail{dossier}
    	aRole.logExport{dossier}
    FINSI
    SI dossier.{'OrgMal'}chaine<>? ALORS
    	aRole	:=	CreerMaladieTravailleurIndependant{dossier}
    	aRole.logExport{dossier}
    FINSI
    SI dossier.{'AdrNotaires'}chaine<>? ALORS
    	aRole	:=	CreerNotaire{idContact}
    	aRole.logExport{dossier}
    FINSI
    SI dossier.{'OffNatImm'}chaine<>? ALORS
    	aRole	:=	CreerOfficeNationalDImmigration{dossier}
    	aRole.logExport{dossier}
    FINSI
    
    SI dossier.{'AdrRec1'}chaine<>? OU dossier.{'NumRecette'}chaine <> ? ALORS
    	aRole	:=	CreerSIE{idContact}
    	aRole.logExport{dossier}
    FINSI
    
    SI dossier.{'OrgRet'}chaine<>? ALORS
    	aRole	:=	CreerRetraiteTravailleurIndependant{dossier}
    	aRole.logExport{dossier}
    FINSI
    
    SI dossier.{'NomJuridiqueExterne'}chaine <> ? ALORS
    	aRole	:=	CreerJuridiqueExterne{idContact}	
    	aRole.logExport{dossier}
    FIN SI
    SI dossier.{'NomBanqueGesCab'}chaine<>? ALORS
    	aRole	:=	CreerBanqueGestionCabinet{dossier}
    	aRole.logExport{dossier}
    FIN SI
    SI dossier.{'NomBanqueDossier'}chaine<>? ALORS
    	aRole	:=	CreerBanqueDossier{dossier}
    	aRole.logExport{dossier}
    FIN SI
    
    --SI dossier!{'TLR1_libelle'}chaine <> ? ALORS
    SI dossier!{'TLR1'}booleen = VRAI ALORS
    	SI taille{TLR1_libelle} < 1 ALORS
    		TLR1_libelle	:=	'Banque TLR1'
    	FIN SI
    	aRole	:=	CreerBanqueTLR1{dossier}
    	aRole.logExport{dossier}
    FIN SI
    --SI dossier!{'TLR2_libelle'}chaine <> ? ALORS
    SI dossier!{'TLR2'}booleen = VRAI ALORS
    	SI taille{TLR2_libelle} < 1 ALORS
    		TLR2_libelle	:=	'Banque TLR2'
    	FIN SI
    	aRole	:=	CreerBanqueTLR2{dossier}
    	aRole.logExport{dossier}
    FIN SI
    --SI dossier!{'TLR3_libelle'}chaine <> ? ALORS
    SI dossier!{'TLR3'}booleen = VRAI ALORS
    	SI taille{TLR3_libelle} < 1 ALORS
    		TLR3_libelle	:=	'Banque TLR3'
    	FIN SI
    	aRole	:=	CreerBanqueTLR3{dossier}
    	aRole.logExport{dossier}
    FIN SI
    SI dossier!{'URScodeEtab'}chaine<>? ALORS
    	aRole	:=	CreerBanqueUrssafDucsEdi{dossier}
    	aRole.logExport{dossier}
    FIN SI
    SI dossier!{'ASScodeEtab'}chaine<>? ALORS
    	aRole	:=	CreerBanqueAssedicDucsEdi{dossier}
    	aRole.logExport{dossier}
    FIN SI
    
    SI dossier.{'adrCda'}chaine <> ? ALORS
    	aRole	:=	CreerServiceTiersDeclarant{dossier}
    	aRole.logExport{dossier}
    FIN SI
    
    POUR TOUT associe FAIRE
    	debug{'Creation associe : '+associe.nom}
    	aRole	:=	CreerAssocie{associe, dossier}
    	aRole.logExport{dossier}
    FIN FAIRE
    
    POUR TOUT etablissement FAIRE
    	etablissement.contactExportes	:=	FAUX
    	pers := creer{'Personne', '/mongo/Personne'}
    
    	pers.initEtablissement{etablissement, dossier, 1.1.1995, 31.12.2050}
    
    	SI etablissement.{'OrgAlloc'}chaine <> ? ALORS
    		aRole	:=	CreerAllocationsFamilialesTravailleurIndependant{etablissement}
    		aRole.logExport{etablissement}
    	FINSI
    	SI etablissement.{'NomSteIntegrte'}chaine <> ? ALORS
    		aRole	:=	CreerSocieteIntegrante{etablissement}
    		aRole.logExport{etablissement}
    	FINSI
    	SI etablissement.{'AdrAutCaisChom'}chaine <> ? ALORS
    		aRole	:=			CreerAutreCaisseChomage{etablissement }
    		aRole.logExport{etablissement}
    	FINSI
    	SI etablissement.{'DirDepTrav'}chaine<>? ALORS
    		aRole	:=	CreerDirectionDepartementaleDuTravail{etablissement }
    		aRole.logExport{etablissement}
    	FINSI
    	SI etablissement.{'InspTrav'}chaine<>? ALORS
    		aRole	:=	CreerInspectionDuTravail{etablissement }
    		aRole.logExport{etablissement}
    	FINSI
    	SI etablissement.{'OrgMal'}chaine<>? ALORS
    		aRole	:=	CreerMaladieTravailleurIndependant{etablissement }
    		aRole.logExport{etablissement}
    	FINSI
    	SI etablissement.{'OffNatImm'}chaine<>? ALORS
    		aRole	:=	CreerOfficeNationalDImmigration{etablissement }
    		aRole.logExport{etablissement}
    	FINSI
    	SI etablissement.{'OrgRet'}chaine<>? ALORS
    		aRole	:=	CreerRetraiteTravailleurIndependant{etablissement }
    		aRole.logExport{etablissement}
    	FINSI
    	SI etablissement.{'NomBanqueGesCab'}chaine<>? ALORS
    		aRole	:=	CreerBanqueGestionCabinet{etablissement }
    		aRole.logExport{etablissement}
    	FIN SI
    	SI etablissement.{'NomBanqueDossier'}chaine<>? ALORS
    		aRole	:=	CreerBanqueDossier{etablissement }
    		aRole.logExport{etablissement}
    	FIN SI
    	SI etablissement!{'URScodeEtab'}chaine<>? ALORS
    		aRole	:=	CreerBanqueUrssafDucsEdi{etablissement }
    		aRole.logExport{etablissement}
    	FIN SI
    	SI etablissement!{'ASScodeEtab'}chaine<>? ALORS
    		aRole	:=	CreerBanqueAssedicDucsEdi{etablissement }
    		aRole.logExport{etablissement}
    	FIN SI
    	SI etablissement.{'adrCda'}chaine <> ? ALORS
    		aRole	:=	CreerServiceTiersDeclarant{etablissement}
    		aRole.logExport{etablissement}
    	FIN SI
    	etablissement.contactExportes	:=	VRAI
    FIN FAIRE
    
    collaborateur	::=	''
    SI enDev{'ExportContacts'} ET collaborateur.nom = 'llg2' ALORS
    	ExportDeleteDpContacts{}
    FIN SI
    
    contactExportes	:=	VRAI
    
    SI lireini{racine{}+'\local\bin\coala.ini', 'Configuration', 'TESTAUTOGCPS'} = '1' ALORS
    	SI paye2Presente ALORS
    		paye2	::=	CodeDossier
    		--- Recherche du dernier mois calculé
    		paye2.ouvrirBaseDossier{}
    		tmpDateOuverture := finDeMois {paye2.majDernierMoisCalcule {aujourdhui{}} }
    
    		SI paye2 <> ? ALORS
    
    			---- GESTION DES CONTACTS
    			SI paye2.contactDesactives <> VRAI ALORS
    				paye2.majDateActivationGC {CodeDossier , FAUX , FAUX , tmpDateOuverture}
    			FINSI
    		FINSI
    	FINSI
    FINSI
    
    SORTIR VRAI
###
'lstNouveauxContacts_TITRE' 'Nouveaux Contacts'
    SORTIR 'Liste des nouveaux contacts'
###
'RELOAD_CONTACTSASSOCIES' 'Nouveaux Contacts'
	VoirNouveauxContacts{}
	CONTACTSASSOCIES{}
###
'CONTACTSASSOCIES' 'Nouveaux Contacts'

    |
    	lst<Objet>asso<Objet>pers<Objet>unRole<Objet>
    	lstAss<Objet> lstPers<Objet>
    	iAss<Entier> iPers<Entier>
    	dateAss<Date> datePers<Date> 
    |
    
    asso	::=	'Associe'
    pers	::=	'Personne'
    unRole	::=	'Role'
    
    lst	:=	creerListe{}
    
    POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
    	SI element.type = 'Associe' ALORS
    		asso		:=	creer{'Associe'}
    		--asso.deviseStockage := 'E'
    		unRole		:=	element
    		pers		:=	element.personne
    		SI pers <> ? ALORS
    			SI pers.idEE = ? ALORS
    				pers.idEE	:=	chaine{guid{}, 2, 37}
    				commit{pers}
    			FIN SI
    			SI pers.personnePhysique = 'Personne morale' ALORS
    				recopierValeurs{pers, asso,
     '{"civilite":"Mr",
"personnePhysique":"TypeAss",
"fullName":"nom",
"raisonSociale":"nomP",
"firstName":"prenomP",
"nomDeJeuneFille":"nomJFille",
"numeroSecuriteSociale":"assNumeroSS",
"dateDeNaissance":"dateNaiss",
"adresseDeNaissance":"adNaiss",
"profession":"profAssocie",
"lieuProfession":"lieuProfAssocie",
"departementDeNaissance":"depNaiss",
"numero":"Adresse1",
"adresse1":"Adresse2",
"adresse2":"Adresse3",
"bister":"voieExtension",
"codePostal":"CodePostal",
"siret":"siret",
"ville":"Ville",
"telephone":"Tel",
"typeJuridique":"formJur",
"bureauDistributeur":"bureauDistributeur",
"nomPays":"Pays",
"externalId":"guid",
"idEE":"associeId"}'}
    		SINON
    			recopierValeurs{pers, asso,
     '{"civilite":"Mr",
"personnePhysique":"TypeAss",
"fullName":"nom",
"firstName":"prenomP",
"lastName":"nomP",
"nomDeJeuneFille":"nomJFille",
"numeroSecuriteSociale":"assNumeroSS",
"numeroFiscal":"numFiscal",
"dateDeNaissance":"dateNaiss",
"adresseDeNaissance":"adNaiss",
"profession":"profAssocie",
"lieuProfession":"lieuProfAssocie",
"departementDeNaissance":"depNaiss",
"numero":"Adresse1",
"adresse1":"Adresse2",
"adresse2":"Adresse3",
"bister":"voieExtension",
"codePostal":"CodePostal",
"siret":"siret",
"ville":"Ville",
"telephone":"Tel",
"typeJuridique":"formJur",
"bureauDistributeur":"bureauDistributeur",
"nomPays":"Pays",
"idEE":"associeId"}'}
    
    		FINSI
    
    
    --ATTENTION HISTORIQUE
    SI pers.civilite = 'M' ALORS
    	asso.Mr	:=	'Monsieur'
    SINON
    	SI pers.civilite = 'Mme' ALORS
    		asso.Mr	:=	'Madame'
    	SINON
    		SI pers.civilite = 'Melle' ALORS
    			asso.Mr	:=	'Mademoiselle'
    		FIN SI
    	FIN SI
    FIN SI
    
    --Recopie des valeurs de Adresse3 de Associé vers adresse1 de Personne
    lstPers	:=	datesHistorique{pers, 'bister'}
    iPers	:=	1
    --Reinitialisation de Adresse1 de associe si au moins 1 adresse3 de associe
    SI nbElements{lstPers} >= iPers ALORS
    	asso.Adresse1[1.1.1970] != ?
    FIN SI
    TANT QUE iPers<= nbElements{lstPers} FAIRE
    	datePers	:=	elementEntierDIndice{lstPers,  iPers}
    		
    	SI taille{pers.bister[datePers]} > 0 ALORS
    		asso.Adresse1[datePers]	!=	pers.numero[datePers]+' '+pers.bister[datePers]
    	FIN SI
    	iPers	+=	1
    
    FIN FAIRE
    
    --Recopie des valeurs de Adresse3 de Associé vers adresse1 de Personne
    lstPers	:=	datesHistorique{pers, 'adresse3'}
    iPers	:=	1
    --Reinitialisation de Adresse1 de associe si au moins 1 adresse3 de associe
    SI nbElements{lstPers} >= iPers ALORS
    	asso.Adresse3[1.1.1970] != ?
    FIN SI
    TANT QUE iPers<= nbElements{lstPers} FAIRE
    	datePers	:=	elementEntierDIndice{lstPers,  iPers}
    		
    	SI taille{pers.adresse3[datePers]} > 0 ALORS
    		asso.Adresse3[datePers]	!=	pers.adresse2[datePers]+' '+pers.adresse3[datePers]
    	FIN SI
    	iPers	+=	1
    
    FIN FAIRE
    
    debug{'Associe : '+asso.nomP+' * '+asso.prenomP+' * '+asso.Adresse1+' * '+pers.civilite+' * '+asso.Adresse2+' * '+asso.Adresse3+ ' *numFiscal: '+ asso.numFiscal}
    
    		recopierValeurs{unRole, asso, 
    '{"administrateur":"administrateur",
"_id":"_id",
"dirigeant":"dirigeant",
"fonctionLimitée":"fonctionLimitée",
"typeTitresAss":"typeTitresAss",
"nbTitres":"nbTitres",
"nbDroitsVote":"nbDroitsVote",
"pcTitres":"pcTitres",
"PProp":"PProp",
"NProp":"NProp",
"Usuf":"Usuf",
"PIndiv":"PIndiv",
"numero":"voieNumero",
"admDurMandat":"admDurMandat",
"admDebut":"admDebut",
"admFin":"admFin",
"nbActionsGarantie":"nbActionsGarantie",
"AdmComment":"AdmComment",
"fonction":"fonction",
"fonctionNonLimitée":"fonctionNonLimitée",
"Dureefonct":"Dureefonct",
"dateFinFonction":"dateFinFonction",
"absent":"absent",
"remN":"remN",
"remN1":"remN1",
"indemN":"indemN",
"indemN1":"indemN1",
"intCCN":"intCCN",
"baseIntCC1":"baseIntCC1",
"blocCC":"blocCC",
"ccPN":"ccPN",
"ccPAr":"ccPAr",
"ccBN":"ccBN",
"ccBAr":"ccBAr",
"optionPrise":"optionPrise",
"CCPrincipal":"CCPrincipal",
"LibCCPrincipal":"LibCCPrincipal",
"TxRemCCPrincipal":"TxRemCCPrincipal",
"CCBloque":"CCBloque",
"LibCCBloque":"LibCCBloque",
"DateBlocage":"DateBlocage",
"TxRemCCBloque":"TxRemCCBloque",
"repartN":"repartN",
"repartNB":"repartNB",
"pcResul":"pcResul",
"terres":"terres",
"vignes":"vignes",
"batiments":"batiments",
"impositionSCM":"impositionSCM",
"impositionSCI":"impositionSCI",
"RepPerm":"RepPerm",
"NomRepPerm":"NomRepPerm",
"PrenomRepPerm":"PrenomRepPerm",
"RepLegal":"RepLegal",
"NomRepLegal":"NomRepLegal",
"PrenomRepLegal":"PrenomRepLegal",
"NomDuCentre":"NomDuCentre",
"NCentre":"NCentre",
"TelCGA":"TelCGA",
"FaxCGA":"FaxCGA",
"AdrC1":"AdrC1",
"AdrC2":"AdrC2",
"CPCGA":"CPCGA",
"VilleCGA":"VilleCGA",
"siretCGA":"siretCGA",
"DateAdhesion":"DateAdhesion",
"regFisc": "regFisc",
"regSoc": "regSoc",
"finSoc": "finSoc",
"assExploitant": "assExploitant",
"PP": "PP",
"NP": "NP",
"Usufruit": "Usufruit",
"CGA":"CGA"}'}
    
    debug{'Associe2 : '+asso.nomP+' - '+asso.prenomP+' - '+asso.Adresse1+'	 - '+asso.Mr+' * '+pers.civilite+' * '+asso.Adresse2+' * '+asso.Adresse3}
    		ajouterElement{lst, asso}
    		FIN SI
    	FIN SI
    FIN FAIRE
    
    --trierListe{lst, 'nomP'}
    SORTIR lst
###
'extraireContacts' 'Nouveaux Contacts'
    --Création : 26/10/2012 10:55:27 mld-PC016496BIS; Modification : 13/05/2015 09:24:20 llg-PC100391; 
    
    | l<Objet> l2<Objet> i<Entier> k<Entier> o<Objet> idConcatenes<Chaine>|
    
    SI NON contactExportes ALORS
    	SORTIR FAUX
    FIN SI
    
    --LLG CORRECTION REMONTEE CIAGEC
    collaborateur	::=	''
    SI collaborateur.estDeconnecte ALORS
    	SORTIR FAUX
    FIN SI
    
    idConcatenes := sGuid
    POUR TOUT etablissement FAIRE
                    idConcatenes += ';' + etablissement.sGuid
    FIN FAIRE
    
    l := lireObjet{'/sdata/coala/dossiers(''' + idConcatenes + ''')/roles/$service/extract?avecSocial=false'}
    l2 := lireObjet{'/mongo/Uid?count=1'}
    SI nbElements{l}<1 ALORS
    	LogContacts{'Pas de contacts à sérialiser', 'extraireContacts', RaisonSociale + '(' + CodeDossier + ')'}
    	SORTIR FAUX
    FINSI
    fichierEcriture{repertoire + '\contacts.json'}
    i := 1
    ecrire{'['}
    TANT QUE i <= nbElements{l} FAIRE
    	o := l.[i]
    	SI i > 1 ALORS
    		ecrire{', '}
    	FINSI
    	ecrire{json{o}}
    	i += 1
    FIN FAIRE
    k := 1
    TANT QUE k <= nbElements{l2} FAIRE
    	SI i > 1 ALORS ecrire{', '} FINSI
    	o := l2.[k]
    	ecrire{json{o}}
    	k += 1
    FIN FAIRE
    ecrire{']'}
    fichierEcriture{}
    
    SORTIR VRAI
###
'exporterCodeInsee' 'Nouveaux Contacts'
{avecMsg <Booléen>}
    --Création : 24/03/2015 09:36:25 llg-PC100391; Modification : 29/04/2015 14:45:13 llg2-PC100391; 
    
    dossier.codeInseeBascule := FAUX
    dossier.exporterCodeInseeCommune{dossier, avecMsg}
    dossier.codeInseeBascule	:=	VRAI
    
    POUR TOUT etablissement FAIRE
    	etablissement.codeInseeBascule := FAUX
    	etablissement.exporterCodeInseeCommune{etablissement, avecMsg}
    	etablissement.codeInseeBascule	:=	VRAI
    FIN FAIRE
    
    SORTIR VRAI
###
'ouvrirLesImmos' 'Ouvertures'
    --Création : 16/09/2003 17:17:16 DME-DOMINIQUE; Modification : 02/05/2013 16:21:40 llg-PO36696; 
    
    |
    	esp<Objet>
    |
    
    SI espaceImmosPresent ALORS
    	-- Investissements et Financements
    	esp	::=	'EspaceImmos'
    	esp	:=	espaceImmos
    	esp.OUVRIR{}
    SINON
    	ouvrirImmos {dossier.CodeDossier }
    FIN SI
###
'ouvrirLaPaye' 'Ouvertures'
    --Création : 16/09/2003 17:17:44 DME-DOMINIQUE; Modification : 02/05/2013 16:21:40 llg-PO36696; 
    ouvrirPaye {dossier.CodeDossier }
###
'lireLigneDp' 'Sage'
    --Création : 14/01/2002 16:33:19 DME-DOMINIQUE-CPQ; Modification : 02/05/2013 16:21:40 llg-PO36696; 
    |ch<Chaine>|
    ch := lire{'
'}
    ch := substituerCaracteres{ch, 'Š‚‡–…"', 'èéçûàô'}
    ch := substituerChaine{ch, '\#', '#'}
    ch := substituerChaine{ch, '\\', '\'}
    SORTIR ch
###
'importer_dossier_permanent_Sage' 'Sage'
{fic <Chaine>}
    --Création : 18/01/2002 12:34:05 DME-VRP2; Modification : 02/05/2013 16:21:40 llg-PO36696; 
    
    
    
    
    
    --1/ Choix du fichier
    --2/ Contrôle de validité
    --3/Importation effective au 1/1/90
    
    |i<Entier>strDebExo<Chaine> strFinExo<Chaine> chExo<Chaine> dev<Chaine>|
    SI NON fichierLecture{fic} ALORS SORTIR FAUX FINSI
    --1 : FLG
    SI NON lireLigneDp{}# '*FLG*' ALORS info{'Mauvais type de fichier'}SORTIR FAUX FINSI
    --2 : VER
    lireLigneDp{}
    --3 : DEV
    SI lireLigneDp{}# '*FRF*' ALORS dev := 'F' SINON dev := 'E' FINSI
    --4 : MDOS
    lireLigneDp{}
    --5 : Raison sociale
    dossier.RaisonSociale[1.1.1990] != lireLigneDp{}
    --6 : Activité
    dossier.Activite[1.1.1990] != lireLigneDp{}
    --7 : Adresse
    dossier.Adresse1[1.1.1990] !=  lireLigneDp{}
    --8 : Complément
    dossier.Adresse2[1.1.1990] !=  lireLigneDp{}
    --9 : C.P.
    dossier.CodePostal[1.1.1990] !=  lireLigneDp{}
    --10 : Ville
    dossier.Ville[1.1.1990] !=  lireLigneDp{}
    --11 : Région
    lireLigneDp{}
    --12 : Pays
    lireLigneDp{}
    --13 : Commentaire
    lireLigneDp{}
    --14 : SIRET
    dossier.Siret[1.1.1990] !=  lireLigneDp{}
    --15 : NAF
    dossier.Ape[1.1.1990] !=  lireLigneDp{}
    --16 : N° d'identifiant (TVA intra communautaire)
    dossier.NumTVAIntra :=  lireLigneDp{}
    --17 : Dte deb exo
    strDebExo := lireLigneDp{}
    --18.. 21 => on saute
    i := 18
    TANT QUE i < 22 FAIRE lireLigneDp{} i+=1 FIN FAIRE
    --22 : DteFinExo
    strFinExo := lireLigneDp{}
    --23::65 => on saute
    i := 23
    TANT QUE i < 66 FAIRE lireLigneDp{} i+=1 FIN FAIRE
    --66 : Numéro de dossier
    dossier.codeRecup[1.1.1990] != lireLigneDp{}
    --67 : Email Client
    --dossier.Email[1.1.1990]  := 
    lireLigneDp{}
    --68 : eMail EC
    lireLigneDp{}
    --69 : intitulé EC
    lireLigneDp{}
    --70 : Téléphone
    dossier.Telephone[1.1.1990] != lireLigneDp{}
    --71 : Télécopie
    dossier.Fax[1.1.1990]  != lireLigneDp{}
    --72 : E-mail
    dossier.Email := lireLigneDp{}
    
    SI (taille{strDebExo}=6) ET (taille{strFinExo}=6) ALORS
    	message{strDebExo+':'+strFinExo}
    	chExo := ''+date{1, entier{chaine{strDebExo, 3, 4}}, entier{chaine{strDebExo, 5, 6}}}+':'+date{1, entier{chaine{strFinExo, 3, 4}}, entier{chaine{strFinExo, 5, 6}}}
    	message{chExo}
    	exerciceComptable ::= chExo
    	SI exerciceComptable = ? ALORS exerciceComptable +:= chExo FIN SI
    	SI exerciceComptable = ? ALORS SORTIR FAUX SINON exerciceComptable.monnaieDefaut := dev FIN SI
    FINSI
    
    SORTIR VRAI
###
'GetApplications' 'ServeurHTTP'
    --Création : 28/07/2011 10:36:00 gpa-PC016495; Modification : 02/05/2013 16:21:40 llg-PO36696;  
    |
    	reponse<Objet>CR<Chaine>oFlot<Objet>lstApps<Objet>i<Entier>nbTot<Entier>ch<Chaine>bExists<Chaine>title<Chaine>
    |
    
    lstApps	:=	creerListe{}
    ajouterElement{lstApps, 'dossierPermanent'}
    ajouterElement{lstApps, 'analytiquePresente'}
    ajouterElement{lstApps, 'comptabilitePresente'}
    ajouterElement{lstApps, 'budgetsPresents'}
    ajouterElement{lstApps, 'conseilsPresents'}
    ajouterElement{lstApps, 'paye2Presente'}
    ajouterElement{lstApps, 'espaceImmosPresent'}
    
    CR	:=	'
'
    oFlot	:=	flotEcriture{}
    oFlot	+=	'['
    i	:=	1
    nbTot	:=	nbElements{lstApps}
    TANT QUE i <= nbTot FAIRE
    	ch	:=	chaine{elementDIndice{lstApps, i}}
    
    	oFlot	+=	'{
	"Name" : '+json{ch}+','+CR
    	SI i = 1 ALORS
    		oFlot	+=	'	"Exists" : '+json{'1'}+','+CR
    		title	:=	'Dossier Permanent'
    	SINON
    		bExists	:=	'0'
    		SI ch = 'analytiquePresente' ALORS 
    			bExists := ''+dossier.analytiquePresente 
    			title	:=	'Comptabilité Analytique'
    		FIN SI
    		SI ch = 'comptabilitePresente' ALORS 
    			bExists := ''+dossier.comptabilitePresente 
    			title	:=	'Comptabilité'
    		FIN SI
    		/*SI ch = 'budgetsPresents' ALORS 
			bExists := ''+dossier.budgetsPresents 
			title	:=	'Budgets des Temps'
		FIN SI*/
    		SI ch = 'conseilsPresents' ALORS 
    			bExists := ''+dossier.conseilsPresents 
    			title	:=	'Conseil'
    		FIN SI
    		SI ch = 'paye2Presente' ALORS 
    			bExists := ''+dossier.paye2Presente
    			title	:=	'Production Sociale'
    		FIN SI
    		SI ch = 'espaceImmosPresent' ALORS 
    			bExists := ''+dossier.espaceImmosPresent 
    			title	:=	'Investissements et Financements'
    		FIN SI
    
    		oFlot	+=	'	"Exists" : '+json{bExists}+','+CR
    	FIN SI
    	oFlot	+=	'	"Title" : '+json{title}+','+CR
    	oFlot	+=	'	"IsLocked" : '+json{'0'}+CR
    	oFlot	+=	'}'
    	SI i < nbTot ALORS
    		oFlot	+=	','+CR
    	FIN SI
    	i	+=	1
    FIN FAIRE
    oFlot	+=	']'
    
    reponse ::= 'ReponseHTTP'
    reponse := creer{'ReponseHTTP'}
    reponse.OK200Json{contenuFlot{oFlot}}
    
    SORTIR reponse
###
'GetInfosDp' 'ServeurHTTP'
    --Création : 28/07/2011 10:36:00 gpa-PC016495; Modification : 02/05/2013 16:21:40 llg-PO36696;  
    |reponse<Objet> oFlot<Objet>CR<Chaine>|
    
    CR	:=	'
'
    oFlot	:=	flotEcriture{}
    oFlot	+=	'{	"CodeDossier" : '+json{CodeDossier}+','+CR
    oFlot	+=	'	"RaisonSociale" : '+json{RaisonSociale}+','+CR
    oFlot	+=	'	"Groupe" : '+json{groupe}+','+CR
    oFlot	+=	'	"nomDossier" : '+json{nomDossier}+','+CR   
    oFlot	+=	'	"ResponsableEntreprise" : '+json{ResponsableEntreprise}+','+CR
    oFlot	+=	'	"expertComptableSignataireAvecNom" : '+json{expertComptableSignataireAvecNom}+','+CR
    oFlot	+=	'	"ResponsableDossier" : '+json{ResponsableDossier}+','+CR
    oFlot	+=	'	"formeJuridique" : '+json{formeJuridique}+','+CR
    oFlot	+=	'	"Adresse1" : '+json{Adresse1}+','+CR
    oFlot	+=	'	"Adresse2" : '+json{Adresse2}+','+CR
    oFlot	+=	'	"Adresse3" : '+json{Adresse3}+','+CR
    oFlot	+=	'	"CodePostal" : '+json{CodePostal}+','+CR
    oFlot	+=	'	"Ville" : '+json{Ville}+','+CR
    oFlot	+=	'	"Telephone" : '+json{Telephone}+','+CR
    oFlot	+=	'	"Fax" : '+json{Fax}+','+CR
    oFlot	+=	'	"Email" : '+json{Email}+CR
    oFlot	+=	'}'
    
    reponse ::= 'ReponseHTTP'
    reponse := creer{'ReponseHTTP'}
    reponse.OK200Json{contenuFlot{oFlot}}
    
    SORTIR reponse
###
'GET' 'ServeurHTTP'
{req <Objet>}
    --Création : 28/07/2011 11:45:48 gpa-PC016495; Modification : 08/04/2015 18:11:53 llg-PC100391; 
    
    
    | 
    	requete<Objet> reponse<Objet>
    	esp<Objet>
    	serveurOle <Objet> uri<Chaine> liste<Objet> monEtat<Objet> nomEtat<Chaine>
    |
    
    requete ::= 'RequeteHTTP'
    serveurOle ::= 'ServeurOLE'
    
    requete := req
    uri := requete.url
    
    esp	::=	'EspaceImmos';
    
    monEtat	::=	'EtatDossier'
    SI uri #'/dp' ALORS
    	SORTIR GetInfosDp{}
    FIN SI
    
    SI uri #'/applications' ALORS
    	SORTIR GetApplications{}
    FIN SI
    
    SI uri#'/immos' ALORS
                    SI dossier.espaceImmosPresent ALORS
                                   esp         :=            espaceImmos
                                   SI esp <> ? ALORS
                                                   requete.url := chaine{uri,taille{'/immos'}+1, taille{uri}}
                                                   SORTIR esp.GET{requete}
                                   FIN SI
                    FINSI
    FIN SI
    
    
    SI uri#'/paye' ALORS
    	SI dossier.paye2Presente ALORS
    		paye2 ::= ''
    		SI paye2 <> ? ALORS
    			requete.url := chaine{uri,taille{'/paye'}+1, taille{uri}}
    			SORTIR paye2.GET{requete}
    		FINSI
    	FINSI
    FIN SI
    
    SI uri#'/compta' ALORS
    	SI dossier.comptabilitePresente ALORS
    		compta	::=	dossier.CodeDossier
    		SI compta <> ? ALORS
    			requete.url := chaine{uri,taille{'/compta'}+1, taille{uri}}
    			SORTIR compta.GET{req}
    		FIN SI
    	FINSI
    FIN SI
    
    SI uri#'/ole' ALORS
    	serveurOle := creer{'ServeurOLE'}
    	SI serveurOle <> ? ALORS
    	 	SORTIR serveurOle .GET{chaine{uri,taille{'/ole'}+1, taille{uri}}}
    	FIN SI
    FIN SI
    
    SI uri='/etats' ALORS 
    	SORTIR GetListeEtats{}
    FINSI
    
    SI valider{uri, '^/etats\(''((?:[^'']|(?:''[^)]))*)''\)'}	ALORS
    	liste := capturer{uri, '^/etats\(''((?:[^'']|(?:''[^)]))*)''\)'}
    	SI nbElements{liste}=1 ALORS
    		nomEtat	:=	chaine{liste.[1]}
    		monEtat := TrouverEtat{nomEtat}
    		SI (monEtat = ?)	ALORS
    			reponse.NotFound404{}
    			SORTIR reponse
    		FIN SI
    		requete.url := chaine{uri, taille{nomEtat} + 11 , taille{uri}}
    		SORTIR monEtat.GET{requete}
    	FIN SI
    FIN SI
    
    reponse ::= 'ReponseHTTP'
    reponse := creer{'ReponseHTTP'}
    reponse.NotFound404{}
    
    SORTIR reponse
###
'genererEdiRequete' 'EDI REQUETE'
{argType <Chaine> argMillesime <Entier>}
    --Création : 22/09/2011 11:36:04 scr-PC15753; Modification : 27/04/2015 18:30:58 scr-PC101399; 
    
    
    -- création d'un état comptable pour faire l'EDIREQUETE
    
    
    
    |
             monEtatComptable<Objet> k<Entier> chercher<Booléen>
    |
    
    monEtatComptable   ::=     'Edi_Requete_2015'
    
    millesimeEDI  :=     ''+argMillesime
    
    compta         ::=     dossier.CodeDossier
    chercher :=VRAI
    k:=1
    TANT QUE k<=12 ET chercher FAIRE
    	exerciceComptable	::=	date{1,k,argMillesime-1}
    	SI exerciceComptable=? ALORS
    		k+=1
    	SINON
    		chercher:=FAUX
    	FINSI
    FINFAIRE
    
    debug{'exerciceComptable dateFin : '+exerciceComptable.dateFin}
    SI exerciceComptable = ? ALORS
             SI droits{'Comptabilité'} <1 OU droitsUtilisateur{'Comptabilité'} < 2 ALORS
                       -- création automatique de l'exercice
                       exerciceComptable   +:=    ''+date{1, 1, argMillesime-1}+':'+date{31, 12, argMillesime-1}
                       SI exerciceComptable = ? ALORS
                                message{'Exercice non créé'}
                                SORTIR FAUX
                       FIN SI          
             SINON
                       info{'La période pour l''EDI REQUETE ne correspond à aucun exercice comptable,
Vous devez créer l''exercice comptable correspondant dans la Production Comptable pour pouvoir générer l''EDIREQUETE.'}
                       SORTIR FAUX
             FIN SI
    FIN SI
    
    exerciceComptable.ajouterREQUETE{}
    monEtatComptable   :=      exerciceComptable.liasseREQUETE
    
    -- transférer les données de la TS sur monEtatComptable
    monEtatComptable.etatDossier        :=      etat
    monEtatComptable.periodeReference       :=      periode.fin
    monEtatComptable.EstCalcule        :=      VRAI
    monEtatComptable.codeDemande	:=	argType
    
    SI NON monEtatComptable.EDIREQUETE{} ALORS
    	SORTIR FAUX
    FIN SI
    
    SI argType = 'LOC' ALORS
    	dateEdiRequeteLOC	:=	aujourdhui{}
    FIN SI
    
    supprimerElement{exerciceComptable.etats, monEtatComptable}
    
    SORTIR VRAI
###
'Voir le compte client (gestion cabinet)' 'Traitements'
    --Création : 04/07/2002 16:49:19 llg-LAURENTNEW; Modification : 02/05/2013 16:22:05 llg-PO36696; 
    
    |
    	objDiversGI2<Objet>
    |
    
    objDiversGI2 ::= 'DiversGI2'
    objDiversGI2 := creer{'DiversGI2'}
    
    editeur.reset
    
    objDiversGI2.voirLeCompteClient{CodeDossier}
###
' Importer dossier permanent Sage' 'Traitements'
    --Création : 18/01/2002 12:34:05 DME-VRP2; Modification : 02/05/2013 16:22:05 llg-PO36696; 
    --1/ Choix du fichier
    --2/ Contrôle de validité
    --3/Importation effective au 1/1/90
    |fic<Chaine>|
    fic := donnerNomFichier{'*.txt', VRAI}
    SI fic=? ALORS SORTIR FAUX FINSI 
    importer_dossier_permanent_Sage{fic}
    
    SORTIR VRAI
###
'Générer_les_fichiers_BU_et_LI_Gestion_Cabinet' 'Traitements'
    --Création : 04/07/2002 16:49:19 llg-LAURENTNEW; Modification : 02/05/2013 16:22:05 llg-PO36696; 
    
    |
    	objDiversGI2<Objet>
    |
    
    objDiversGI2 ::= 'DiversGI2'
    objDiversGI2 := creer{'DiversGI2'}
    
    objDiversGI2.genererFichierBULINew{CodeDossier, repertoire}
###
'Budgets des temps' 'Traitements'
    --Création : 07/07/2011 15:12:06 aaa-PC15749; Modification : 02/05/2013 16:22:05 llg-PO36696; 
    
    |
    	objDiversGI2<Objet>
    |
    
    objDiversGI2 ::= 'DiversGI2'
    objDiversGI2 := creer{'DiversGI2'}
    
    objDiversGI2.bTesterOuvrirBudgetsDesTemps{CodeDossier}
###
'Lettre de mission' 'Traitements'
    --Création : 24/07/2006 15:49:21 ylv-LEVERGE-Y; Modification : 02/05/2013 16:22:05 llg-PO36696; 
    
    lancerEditeurLettreDeMission{}
###
'Recalculer les obligations légales' 'Traitements'
    --Création : 06/11/2006 16:06:55 ylv-LEVERGE-Y; Modification : 05/09/2014 12:00:46 ylv-PC100383; 
    
    recalculObligationsLegales{dossier.CodeDossier, VRAI}
###
'Activité et nature des travaux de la mission' 'Traitements'
    --Création : 17/03/2010 09:04:03 ylv-PC15749; Modification : 02/05/2013 16:22:05 llg-PO36696; 
    
    lancerEditeurActivNatureTravMiss{dossier.CodeDossier}
###
'Imprimer le mandat SEPA' 'Traitements'
    --Création : 30/09/2013 10:16:26 ylv-PC100383; Modification : 30/09/2013 10:20:19 ylv-PC100383; 
    
    ImprimerPreImprimeSepa{}
###
'entrySPCOperatingPremise' 'SPC'
{flot <Objet> upd <Chaine> fmt <Chaine>}
    --Création : 16/08/2012 11:46:16 dme-MENEC; Modification : 21/05/2013 13:52:39 gqu-PC15750; 
    --Création : 14/08/2012 13:01:53 dme-MENEC; Modification : 14/08/2012 18:03:54 dme-MENEC; 
    
    |ws<Objet>|
    ws := flot
    /*
uuid	Identifiant de l'établissement 	Uuid(res : operatingPremise)	Obligatoire		N/A	« 01 »		
operatingCompanyReference	Identifiant de la société 	Uuid(res : operatingCompany)	Obligatoire		N/A	Code société		
name	Intitulé de l'établissement	String	Obligatoire		N/A	Etablissement		
shortName	Nom court de l'établissement	String	Facultatif		N/A	N/A		
identifiers	Identifiants nomenclaturés de l'établissement	Res : companyIdentifier[]	Facultatif	Identifiant de l'établissement	N/A	SIRET, NII		
address	Adresse postale	Res : postalAddressFacultatifAdresse principale	N/A					
phone	Numéro de téléphone principal de l'établissement	Res : phoneNumberFacultatif	N/A	N/A				
email	Adresse électronique 	Res : emailFacultatifMail principal	N/A					
extras	Données libres 	Res : extra[]	Facultatif		N/A			
*/
    SI fmt='json' ALORS
    	ws += '{"operatingCompanyReference" : '+json{uuid{dossier}}+', '
    	ws += '"name" : '+json{codeUTF8{dossier.RaisonSociale}}+'}'
    SINON
    	ws += '<entry><sdata:payload><operatingPremise sdata:uuid="'+uuid{dossier}+'" xmlns="http://schemas.sage.com/myContract">'
    	ws += '<operatingCompanyReference>'+uuid{dossier}+'</operatingCompanyReference>'
    	ws += '<name>'+codeXml{dossier.RaisonSociale}+'</name>'
    	ws += '</operatingPremise></sdata:payload></entry>'
    FINSI
###
'sansEspaceALaFin' 'SPC'
{string <Chaine>}
    --Création : 29/08/2013 14:29:42 gqu-PC101402; Modification : 29/08/2013 14:30:46 gqu-PC101402; 
    
    
    
    | 
    	fin <Entier>  
    	car <Chaine> 
    
    |
    
    
    fin := taille {string}
    car := chaine {string , fin , fin}
    TANTQUE (fin > 0) ET (car = ' ' OU car = '	')  FAIRE
      	fin -= 1
        	SI fin > 0 ALORS
        		car := chaine {string, fin , fin}
        	FIN SI
    FINFAIRE
        
    SORTIR chaine {string , 0 , fin}
###
'entrySPCOperatingCompany' 'SPC'
{flot <Objet> upd <Chaine> fmt <Chaine> destinataire <Chaine>}
    --Création : 14/08/2012 13:01:53 dme-MENEC; Modification : 24/01/2014 11:40:36 ade-PO101359; 
    
    
    
    |
    	ws<Objet> pc<Objet>
    	tmpObjet<Objet>
    	paysCompany<Chaine>
    
    	tmpEntite<Objet>
    	siretEntite<Chaine> address1Entite<Chaine> address2Entite<Chaine> address3Entite<Chaine> zipCodeEntite<Chaine>cityEntite<Chaine> 
    	countryEntite<Chaine> phoneEntite<Chaine> emailEntite<Chaine> websiteEntite<Chaine> faxEntite<Chaine> cellularEntite<Chaine>
    
    	nameCga<Chaine> fullNameCga<Chaine> siretCga<Chaine> address1Cga<Chaine> address2Cga<Chaine> address3Cga<Chaine> zipCodeCga<Chaine>
    	cityCga<Chaine> countryCga<Chaine> phoneCga<Chaine> emailCga<Chaine> websiteCga<Chaine> faxCga<Chaine> cellularCga<Chaine> numeroCga<Chaine> 
    
    	tmpVATSystem<Chaine> tmpVATMethodOnSales<Chaine> tmpVATMethodOnPurchases<Chaine> tmptaxSystem<Chaine>
    
    	tmpVirgule<Booléen> 
    	listeExercices<Objet>
    	dateDebutExercice1<Date> dateFinExercice1<Date>
    	tmpJournal<Chaine>	
    |
    
    ws := flot
    /*
uuid	Identifiant de la société 	Uuid(res : operatingCompany)	Obligatoire			Code société		
name	Nom de la société	String	Obligatoire		Raison sociale 219	Raison sociale		
shortName	Nom court de la société (Numéro dossier SBS)	String	Facultatif			N/A		
identifiers	Identifiants nomenclaturés 	Res : companyIdentifier[]	Facultatif			NAF, RCS, RM, RSEIRL		
reference	Référence de la société	String	Facultatif		N/A	N/A	N/A	
type	Type de la société	String	Facultatif	Forme juridique		Forme juridique	N/A	
address	Adresse postale	Res : postalAddressFacultatifAdresse principale du siège socialAdresse						
currency	Devise de tenue de compte 	String	Obligatoire	Code ISO à 3 caractères	Devise 33	Code monnaie du dossier		
reportingCurrency	Devise de reporting 	String	Facultatif	Code ISO à 3 caractères	N/A	N/A		
phone	Numéro de téléphone principal	Res : phoneNumberFacultatifTéléphone principalTéléphone						
email	Adresse électronique 	Res : emailFacultatifMail principalE-mail 229E-mail						
webSite	Adresse du site web 	String	Facultatif			Site internet		
extras	Données libres 	Res : extra[]	Facultatif		Code Taxe  Langue utilisée	Infos expert-comptable Infos OGA		

*/
    
    ----Recherche des dates de début et fin du 1er exercice
    compta		::=	CodeDossier
    listeExercices		:=	compta.datesFin
    dateFinExercice1	:=	elementEntierDIndice{listeExercices,1}
    listeExercices		:=	compta.datesDebut
    dateDebutExercice1	:=	elementEntierDIndice{listeExercices,1}
    
    exerciceComptable	::=	debutExercice{0}
    tmpObjet		::=	'Personne'
    pc			::=	'PlanComptable'
    pc			:=	exerciceComptable.planComptable
    
    
    -- Recherche informations Dossier
    POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
        	SI element.type = 'Dossier' ALORS
        		tmpObjet	:=	element.personne
    
        		SI tmpObjet <> ? ALORS
        			paysCompany	:=	tmpObjet.nomPays
        		FIN SI
        	FIN SI
    FIN FAIRE
    
    
    -- Recherche informations oga
    POUR TOUT element<Role> DE lstNouveauxContacts FAIRE
        	SI element.type = 'Cga' ALORS
        		tmpObjet	:=	element.personne
    
        		SI tmpObjet <> ? ALORS
    			nameCga	:=	tmpObjet.raisonSociale
    			fullNameCga	:=	tmpObjet.fullName
    			siretCga 	:=	tmpObjet.siret
    			address1Cga 	:=	tmpObjet.numero + ' ' + tmpObjet.bister + ' ' + tmpObjet.adresse1
    			address2Cga 	:=	tmpObjet.adresse2
    			address3Cga	:=	tmpObjet.adresse3
    			zipCodeCga	:=	tmpObjet.codePostal
    			cityCga	:=	tmpObjet.ville
    			countryCga 	:=	tmpObjet.nomPays
    			phoneCga 	:=	tmpObjet.telephone
    			emailCga 	:=	tmpObjet.email
    			websiteCga 	:=	tmpObjet.website
    			faxCga	 	:=	tmpObjet.fax
    			cellularCga	:=	tmpObjet.mobile
    			numeroCga	:=	tmpObjet.numeroNational
        		FIN SI
        	FIN SI
    FIN FAIRE
    
    -- Recherche informations entité
    tmpEntite	::=	'Etablissement'
    tmpEntite	:= 	cabinet
    
    POUR TOUT element<Role> DE tmpEntite.lstNouveauxContacts FAIRE
        	SI element.type = 'Dossier' ALORS
        		tmpObjet	:=	element.personne
    
        		SI tmpObjet <> ? ALORS
    			siretEntite 		:=	tmpObjet.siret
    			address1Entite 	:=	tmpObjet.numero + ' ' + tmpObjet.bister + ' ' + tmpObjet.adresse1
    			address2Entite 	:=	tmpObjet.adresse2
    			address3Entite	:=	tmpObjet.adresse3
    			zipCodeEntite		:=	tmpObjet.codePostal
    			cityEntite 		:=	tmpObjet.ville
    			countryEntite 		:=	tmpObjet.nomPays
    			phoneEntite 		:=	tmpObjet.telephone
    			emailEntite 		:=	tmpObjet.email
    			websiteEntite 		:=	tmpObjet.website
    			faxEntite 		:=	tmpObjet.fax
    			cellularEntite		:=	tmpObjet.mobile
        		FIN SI
        	FIN SI
    FIN FAIRE
    
    SI dossier.RegimeTVA # 'Réel Normal*' OU dossier.RegimeTVA # 'Mini-Réel*' ALORS
    	tmpVATSystem	:=	'RR'
    SINON
    	SI dossier.RegimeTVA # 'Réel Simplifié*' OU dossier.RegimeTVA # 'Réel Simpl. Agric.*' ALORS
    		tmpVATSystem	:=	'RS'
    	SINON
    		tmpVATSystem	:=	?
    	FINSI
    FINSI
    
    SI exerciceComptable.typeTVA # 'Débit*' ALORS
    	tmpVATMethodOnSales	:=	'D'
    	tmpVATMethodOnPurchases	:=	'D'
    SINON
    	SI exerciceComptable.typeTVA # 'Encaissement*' ALORS
    		tmpVATMethodOnSales	:=	'E'	
    		tmpVATMethodOnPurchases	:=	'E'
    	SINON
    		SI exerciceComptable.typeTVA # 'Mixte*' ALORS
    			tmpVATMethodOnSales	:=	'D'
    			tmpVATMethodOnPurchases	:=	'D'
    		SINON
    			tmpVATMethodOnSales	:=	?
    			tmpVATMethodOnPurchases	:=	?
    		FINSI
    	FINSI
    FINSI
    
    tmptaxSystem		:=	''
    
    SI StatutFiscal = 'BNC' ALORS
    	tmptaxSystem	:=	'RRBNC'
    SINON
    	SI RegimeFiscal = 'RN'  ALORS
    		tmptaxSystem	:=	'RN'	
    	SINON
    		SI RegimeFiscal = 'RS'  ALORS
    			tmptaxSystem	:=	'RS'
    		FINSI
    	FINSI
    FINSI		
    
    ----------------------------------------------------------
    -- Format json
    ----------------------------------------------------------
    
    SI fmt = 'json' ALORS
    
    -- $title
    	ws	+=	'{"$title" : "operatingCompany resource",'
    
    -- $updated
    	ws	+=	'"$updated" : '+json{upd}+', '	
    
    -- $uuid
    	-- scr le 12/06/13 : en linkup, pas d'export de l'uuid du dossier pour éviter les interférences avec cute (vu avec Dom et Morgan)
    	SI destinataire <> 'linkup' ALORS
    --info{'LOCAL TEST ALISSA -->'+json{uuid{dossier}}+'<--'}
    		ws	+=	'"$uuid" : ' + json{uuid{dossier}} + ', '
    	FIN SI
    
    -- $key
    	ws	+=	'"$key" : ' + json{dossier.Siren} + ', '
    
    -- name
    	ws	+=	'"name" : ' + json{codeUTF8{dossier.RaisonSociale}} + ', '
    
    -- fullName
    	ws	+=	'"fullName": ' + json{codeUTF8{dossier.RaisonSociale}} + ', '
    
    -- address
    	--ws +=  '"address" : " ",'
    
    -- phone
    	SI taille{dossier.Telephone} > 0 ALORS
    		ws	+=	'"phone" : ' + json{dossier.Telephone} + ' ,' 
    	SINON
    		ws	+=	'"phone" : "",' 
    	FINSI
    
    -- email
    	SI taille{dossier.Email} > 0  ALORS
    		ws	+=	'"email" : ' + json{codeUTF8{dossier.Email}} + ','
    	SINON
    		ws	+=	'"email" : "",'
    	FINSI
    
    -- website
    	SI taille{dossier.SiteWeb} > 0 ALORS
    		ws	+=	'"website" : ' + json{codeUTF8{dossier.SiteWeb}} + ','
    	SINON
    		ws	+=	'"website" : "",'
    	FINSI
    
    -- currency
    	ws	+=	'"currency" : "EUR",'
    
    ---- identifiers
    	tmpVirgule	:=	FAUX
    
    --	SI taille{dossier.Ape} > 0  OU taille{dossier.NumTVAIntra} > 0 OU taille{dossier.Siret} > 0 OU taille{dossier.NumeroRCS} > 0 OU taille{dossier.NumeroRCM} > 0 OU taille{dossier.CGA} > 0 OU taille{dossier.NuméroFrp} > 0 ALORS
    		ws	+=	'"identifiers" : { '
    
    -- identifiers / ape
    		SI taille{dossier.Ape} > 0 ALORS
    			ws	+=	'"ape" : ' + json{dossier.Ape} + ',' 
    		SINON
    			ws	+=	'"ape" : "",' 
    		FINSI
    		
    -- identifiers / vatNumber
    		SI taille{dossier.NumTVAIntra} > 0 ALORS
    			ws	+=	'"vatNumber":  ' + json{dossier.NumTVAIntra} + ',' 
    		SINON
    			ws	+=	'"vatNumber":  "",' 
    		FINSI
    
    -- identifiers / siret
    		SI taille{dossier.Siret} > 0 ALORS
    			ws	+=	'"siret" : ' + json{dossier.Siret} + ','
    		SINON
    			ws	+=	'"siret" : "",' 
    		FINSI
    
    -- identifiers / rcs
    		SI taille{dossier.NumeroRCS} > 0 ALORS
    			ws	+=	'"rcs" : ' + json{codeUTF8{dossier.NumeroRCS}} + ','
    		SINON
    			ws	+=	'"rcs" : "",'
    		FINSI
    
    -- identifiers / rm
    		SI taille{dossier.NumeroRCM} > 0 ALORS
    			SI  taille{dossier.CGA} > 0 OU taille{dossier.NuméroFrp} > 0	ALORS
    				ws	+=	'"rm" : ' + json{dossier.NumeroRCM} + ',' 
    			SINON
    				ws	+=	'"rm" : ' + json{dossier.NumeroRCM} 
    			FINSI
    		SINON
    			SI taille{dossier.CGA} > 0 OU taille{dossier.NuméroFrp} > 0	 ALORS
    				ws	+=		'"rm" : ""' + ',' 
    			SINON
    				ws	+=	'"rm" : ""'
    			FINSI
    
    		FINSI
    
    -- identifiers / rseirl
    		--ws += '"rseirl" : " ",'
    
    -- identifiers / oga
    		SI taille{dossier.CGA} > 0 ALORS
    			ws		+=	'"oga" : ' + json{dossier.CGA} + ','
    		FINSI
    
    -- identifiers / frp
    		SI taille{dossier.NuméroFrp} > 0 ALORS
    			SI tmpVirgule ALORS
    				ws	+=	'"frp" : '  + json{dossier.NuméroFrp}
    			SINON
    				ws	+=	'"frp" : ""'
    			FINSI
    		FINSI
    ----  fin identifiers	
    		ws	+=	'},'
    --	FINSI
    	
    	-- extras
    	ws += '"extras" : { '
    		-- extras / parameters
    		ws += '"parameters" : { '
    
    		-- extras / parameters / tradingAccountLength
    		ws += '"tradingAccountLength" : ' + exerciceComptable.tailleCodeCompteAux
    		tmpVirgule := VRAI
    
    		-- extras / parameters / financialAccountLentgh
    		ws += ',"financialAccountLength" :' + exerciceComptable.tailleCodeCompte
    
    		-- extras / parameters / financialAccountJournalLength
    		ws += ',"financialAccountJournalLength" : ' + exerciceComptable.tailleCodeJournal
    
    		-- extras / parameters / analyticsAccountLength
    		--ws += ',"analyticsAccountLength" : " "' 
    
    		-- extras / parameters / fiscalDocumentVisibility
    		SI exerciceComptable.fiscalDocumentVisibility ALORS
    			ws += ',"fiscalDocumentVisibility" : 1'
    		SINON
    			ws += ',"fiscalDocumentVisibility" : 0'
    		FINSI
    
    		-- extras / parameters / discountObtainedAccount
    		SI taille{exerciceComptable.discountObtainedAccount} > 0 ALORS
    			ws += ',"discountObtainedAccount" : ' + json{formaterNumeroCompte{pc,exerciceComptable.discountObtainedAccount}}
    		FINSI
    
    		-- extras / parameters / discountGrantedAccount
    		SI taille{exerciceComptable.discountGrantedAccount} > 0 ALORS
    			ws += ',"discountGrantedAccount" : ' + json{formaterNumeroCompte{pc,exerciceComptable.discountGrantedAccount}}
    		FINSI
    
    		-- extras / parameters / extraordinaryIncomes
    		SI taille{exerciceComptable.extraordinaryIncomes} > 0 ALORS
    			ws += ',"extraordinaryIncomes" : ' + json{formaterNumeroCompte{pc,exerciceComptable.extraordinaryIncomes}}
    		FINSI
    
    		-- extras / parameters / extraordinaryCharges
    		SI taille{exerciceComptable.extraordinaryCharges} > 0 ALORS
    			ws += ',"extraordinaryCharges" : ' + json{formaterNumeroCompte{pc,exerciceComptable.extraordinaryCharges}}
    		FINSI
    
    		-- extras / parameters / translationDifferenceAssetAccount
    		--SI taille{exerciceComptable.translationDifferenceAssetAccount} > 0 ALORS
    		--	ws += ',"translationDifferenceAssetAccount" : ' + json{exerciceComptable.translationDifferenceAssetAccount}
    		--FINSI
    
    		-- extras / parameters / translationDifferenceAssetLiabilities
    		--ws += ',"translationDifferenceAssetLiabilities" : " "'
     
    		-- extras / parameters / exchangeGainAccount
    		--ws += '"exchangeGainAccount" : " "'
     
    		-- extras / parameters / exhangeLostAccount
    		--ws += '"exhangeLostAccount" : " "'
    
    		-- extras / parameters / shippingCostPaidAndSubjectAccount
    		SI taille{exerciceComptable.shippingCostPaidAndSubjectAccount} > 0 ALORS
    			ws += ',"shippingCostPaidAndSubjectAccount" : ' + json{formaterNumeroCompte{pc,exerciceComptable.shippingCostPaidAndSubjectAccount}}
    		FINSI
    
    		-- extras / parameters / shippingCostPaidAndNotSubjectAccount
    		SI taille{exerciceComptable.shippingCostPaidAndNotSubjectAccount} > 0 ALORS
    			ws += ',"shippingCostPaidAndNotSubjectAccount" : ' + json{formaterNumeroCompte{pc,exerciceComptable.shippingCostPaidAndNotSubjectAccount}}
    		FINSI
    
    		-- extras / parameters / shippingCostBilledAndSubjectAccount
    		SI taille{exerciceComptable.shippingCostBilledAndSubjectAccount} > 0 ALORS
    			ws += ',"shippingCostBilledAndSubjectAccount" : ' + json{formaterNumeroCompte{pc,exerciceComptable.shippingCostBilledAndSubjectAccount}}
    		FINSI
    
    		-- extras / parameters / shippingCostBilledAndNotSubjectAccount
    		SI taille{exerciceComptable.shippingCostBilledAndNotSubjectAccount} > 0 ALORS
    			ws += ',"shippingCostBilledAndNotSubjectAccount" : ' + json{formaterNumeroCompte{pc,exerciceComptable.shippingCostBilledAndNotSubjectAccount}}
    		FINSI
    
    		-- extras / parameters / defaultPurchaseJournal
    		SI taille{exerciceComptable.defaultPurchaseJournal} > 0 ALORS
    			tmpJournal :=  lire {flotLecture {exerciceComptable.defaultPurchaseJournal}, ' ' }
    			SI exerciceComptable.existeJournal{tmpJournal}  ALORS
    				ws += ',"defaultPurchaseJournal" : ' + json{tmpJournal}
    			FIN SI
    		FINSI
    
    
    		-- extras / parameters / defaultSalesJournal
    		SI taille{exerciceComptable.defaultSalesJournal} > 0 ALORS
    			tmpJournal :=  lire {flotLecture {exerciceComptable.defaultSalesJournal}, ' ' }
    			SI exerciceComptable.existeJournal{tmpJournal}  ALORS
    				ws += ',"defaultSalesJournal" : ' + json{tmpJournal}
    			FIN SI
    		FINSI
    
    		-- extras / parameters / defaultBankJournal
    		SI taille{exerciceComptable.defaultBankJournal} > 0 ALORS
    			tmpJournal :=  lire {flotLecture {exerciceComptable.defaultBankJournal}, ' ' }
    			SI exerciceComptable.existeJournal{tmpJournal}  ALORS
    				ws +=  ',"defaultBankJournal" : ' + json{tmpJournal}
    			FIN SI
    		FINSI
    
    		-- extras / parameters / defaultJournal
    		SI taille{exerciceComptable.defaultJournal} > 0 ALORS
    			tmpJournal :=  lire {flotLecture {exerciceComptable.defaultJournal}, ' ' }
    			SI exerciceComptable.existeJournal{tmpJournal}  ALORS
    				ws += ',"defaultJournal" : ' + json{tmpJournal}
    			FIN SI
    		FINSI
    
    		-- extras / parameters / defaultOpeningJournal 
    		SI taille{exerciceComptable.defaultOpeningJournal} > 0 ALORS
    			tmpJournal :=  lire {flotLecture {exerciceComptable.defaultOpeningJournal}, ' ' }
    			SI exerciceComptable.existeJournal{tmpJournal}  ALORS
    				ws +=  ',"defaultOpeningJournal" : ' + json{tmpJournal}
    			FIN SI
    		FINSI
    
    		-- extras / parameters / profitAccount
    		SI taille{exerciceComptable.profitAccount} > 0 ALORS
    			ws += ',"profitAccount" : ' + json{formaterNumeroCompte{pc,exerciceComptable.profitAccount}}
    		FINSI
    
    		-- extras / parameters / lossAccount
    		SI taille{exerciceComptable.lossAccount} > 0 ALORS
    			ws += ',"lossAccount" : ' + json{formaterNumeroCompte{pc,exerciceComptable.lossAccount}}
    		FINSI
    
    		-- extras / parameters / retainedProfitsLossesAccount
    		SI taille{exerciceComptable.retainedProfitsLossesAccount} > 0 ALORS
    			ws += ',"retainedProfitsLossesAccount" : ' + json{formaterNumeroCompte{pc,exerciceComptable.retainedProfitsLossesAccount}}
    		FINSI
    
    		-- extras / parameters / positifDifferenceCashAccount
    		SI taille{exerciceComptable.positifDifferenceCashAccount} > 0 ALORS
    			ws += ',"positifDifferenceCashAccount" : ' + json{formaterNumeroCompte{pc,exerciceComptable.positifDifferenceCashAccount}}
    		FINSI
    
    		-- extras / parameters / negativeDifferenceCashAccount
    		SI taille{exerciceComptable.negativeDifferenceCashAccount} > 0 ALORS
    			ws += ',"negativeDifferenceCashAccount" : ' + json{formaterNumeroCompte{pc,exerciceComptable.negativeDifferenceCashAccount}}
    		FINSI
    
    		-- extras / parameters / suspensAccount
    		SI taille{exerciceComptable.suspensAccount} > 0 ALORS
    			ws += ',"suspensAccount" : ' + json{formaterNumeroCompte{pc,exerciceComptable.suspensAccount}}
    		FINSI
    
    		-- extras / parameters / defaultPurchaseAccount
    		SI taille{exerciceComptable.defaultPurchaseAccount} > 0 ALORS
    			ws += ',"defaultPurchaseAccount" : ' + json{formaterNumeroCompte{pc,exerciceComptable.defaultPurchaseAccount}}
    		FINSI
    
    		-- extras / parameters / defaultSalesAccount
    		SI taille{exerciceComptable.defaultSalesAccount} > 0 ALORS 
    			ws += ',"defaultSalesAccount" : ' + json{formaterNumeroCompte{pc,exerciceComptable.defaultSalesAccount}}
    		FINSI
    
    		-- extras / parameters / defaultCustomerAccount
    		SI taille{exerciceComptable.defaultCustomerAccount} > 0 ALORS
    			ws += ',"defaultCustomerAccount" : ' + json{formaterNumeroCompte{pc,exerciceComptable.defaultCustomerAccount}}
    		FINSI
    
    		-- extras / parameters / defaultSupplierAccount
    		SI taille{exerciceComptable.defaultSupplierAccount} > 0 ALORS
    			ws += ',"defaultSupplierAccount" : ' + json{formaterNumeroCompte{pc,exerciceComptable.defaultSupplierAccount}}
    		FINSI
    
    		-- extras / parameters / creditLossesAccount
    		SI taille{exerciceComptable.creditLossesAccount} > 0 ALORS
    			ws += ',"creditLossesAccount" : ' + json{formaterNumeroCompte{pc,exerciceComptable.creditLossesAccount}}
    		FINSI
    
    
    		-- extras / parameters / depositPaidAccount
    		SI taille{exerciceComptable.depositPaidAccount} > 0 ALORS
    			ws += ',"depositPaidAccount" : ' + json{formaterNumeroCompte{pc,exerciceComptable.depositPaidAccount}}
    		FINSI
    
    		-- extras / parameters / paymentReceivedAccount
    		SI taille{exerciceComptable.paymentReceivedAccount} > 0 ALORS
    			ws += ',"paymentReceivedAccount" : ' + json{formaterNumeroCompte{pc,exerciceComptable.paymentReceivedAccount}}
    		FINSI
    
    		-- extras / parameters / subjectToVAT
    		--ws += ',"subjectToVAT" : " "'  
    
    		-- extras / parameters / defaultVATRate
    		--ws += ',"defaultVATRate" : " "' 
    
    		-- extras / parameters / VATSystem
    		SI tmpVATSystem <> ? ALORS
    			ws += ',"VATSystem" : ' + json{tmpVATSystem} 
    		FINSI
    
    		-- extras / parameters / VATMethodOnSales
    		SI tmpVATMethodOnSales <> ? ALORS
    			ws += ',"VATMethodOnSales":  ' + json{tmpVATMethodOnSales} 
    		FINSI
    
    		-- extras / parameters / VATMethodOnPurchases
    		SI tmpVATMethodOnPurchases <> ? ALORS
    			ws += ',"VATMethodOnPurchases":' + json{tmpVATMethodOnPurchases}
    		FINSI
    
    		-- extras / parameters / FRP
    		SI taille{dossier.NuméroFrp} > 0 ALORS
    			ws += ',"FRP" : ' + json{dossier.NuméroFrp}
    		FINSI
    
    		-- extras / parameters / VATPaymentAccount
    		SI taille{exerciceComptable.VATPaymentAccount} > 0 ALORS
    			ws += ',"VATPaymentAccount" : ' + json{formaterNumeroCompte{pc,exerciceComptable.VATPaymentAccount}}
    		FINSI
    
    		-- extras / parameters / VATCreditAccount
    		SI taille{exerciceComptable.VATCreditAccount} > 0 ALORS
    			ws += ',"VATCreditAccount" : ' + json{formaterNumeroCompte{pc,exerciceComptable.VATCreditAccount}}
    		FINSI
    
    		-- extras / parameters / VATToBeRegularizedAccount
    		SI taille{exerciceComptable.VATToBeRegularizedAccount} > 0 ALORS
    			ws += ',"VATToBeRegularizedAccount" : ' + json{formaterNumeroCompte{pc,exerciceComptable.VATToBeRegularizedAccount}}
    		FINSI
    
    		-- extras / parameters / VATReimbursementAccount
    		SI taille{exerciceComptable.VATReimbursementAccount} > 0 ALORS
    			ws += ',"VATReimbursementAccount" : ' + json{formaterNumeroCompte{pc,exerciceComptable.VATReimbursementAccount}}
    		FINSI
    
    		-- extras / parameters / VATDepositAccount
    		SI taille{exerciceComptable.VATDepositAccount} > 0 ALORS
    			ws += ',"VATDepositAccount" : ' + json{formaterNumeroCompte{pc,exerciceComptable.VATDepositAccount}}
    		FINSI
    
    		-- extras / parameters / accountOfBookValuesOfDisposedAssets
    		SI taille{exerciceComptable.accountOfBookValuesOfDisposedAssets} > 0 ALORS
    			ws += ',"accountOfBookValuesOfDisposedAssets" : ' + json{formaterNumeroCompte{pc,exerciceComptable.accountOfBookValuesOfDisposedAssets}}
    		FINSI
    
    		-- extras / parameters / accountOfRevenueFromSaleOfAssets
    		SI taille{exerciceComptable.accountOfRevenueFromSaleOfAssets} > 0 ALORS
    			ws	+=	',"accountOfRevenueFromSaleOfAssets" : ' + json{formaterNumeroCompte{pc,exerciceComptable.accountOfRevenueFromSaleOfAssets}}
    		FINSI
    
    		-- déplacés dans le financialPeriod
    		-- extras / parameters / firstFinancialDate
    		-- ws += ',"firstFinancialDate" : '+ json{dateDebutExercice1}
    
    		-- extras / parameters / fiscalEndOfTheFirstFiscalPeriod
    		-- ws += ',"fiscalEndOfTheFirstFiscalPeriod" : '+ json{dateFinExercice1}
    
    		-- extras / parameters / taxSystem
    		--SI tmptaxSystem <> ? ALORS
    		ws	+=	',"taxSystem" : ' + json{tmptaxSystem} 
    		--FINSI
    	----  fin parameters
    	ws	+=	'}'
    
    	----  fin extras	
    	ws += '}'
    	
    ---- company
    	tmpVirgule	:=	FAUX
    
    --	SI taille{dossier.Adresse1} > 0 OU taille{dossier.Adresse2} > 0 OU taille{dossier.Adresse3} > 0 OU taille{dossier.CodePostal} > 0 OU taille{dossier.Ville} > 0 OU
    --	     taille{paysCompany} > 0 OU taille{dossier.Fax} > 0 OU taille{dossier.TelephonePortable} > 0 OU taille{dossier.formeJuridique} > 0 OU taille{dossier.Activite} > 0
    --	ALORS
    		ws += ',"company" : { '
    
    -- company / address1
    			SI taille{dossier.Adresse1} > 0 ALORS
    				ws	+=	'"address1" : ' + json{codeUTF8{dossier.Adresse1}} + ','
    			SINON
    				ws	+=	'"address1" : "",'
    			FINSI
    
    -- company / address2
    			SI taille{dossier.Adresse2} > 0 ALORS
    				ws	+=	'"address2" : ' + json{codeUTF8{dossier.Adresse2}} + ','
    			SINON
    				ws	+=	'"address2" : "",'
    			FINSI
    
    -- company / address3
    			SI taille{dossier.Adresse3} > 0 ALORS
    				ws	+=	'"address3" : ' + json{codeUTF8{dossier.Adresse3}} + ','
    			SINON
    				ws	+=	'"address3" : "",'
    			FINSI
    
    -- company / zipCode
    			SI taille{dossier.CodePostal} > 0 ALORS
    				ws	+=	'"zipCode" : ' + json{dossier.CodePostal} + ','
    			SINON
    				ws 	+= 	'"zipCode" : "",'
    			FINSI
    
    -- company / city
    			SI taille{dossier.Ville} > 0 ALORS
    				ws	+=	'"city" : ' + json{codeUTF8{dossier.Ville}} + ','
    			SINON
    				ws	+=	'"city" : "",'
    			FINSI
    
    -- company / country
    			SI taille{paysCompany} > 0 ALORS
    				ws	+=	'"country" : ' + json{codeUTF8{paysCompany}} + ','
    			SINON
    				ws	+=	'"country" : "",'
    			FINSI
    
    -- company / fax
    			SI taille{dossier.Fax} > 0 ALORS
    				ws	+=	'"fax" : ' + json{dossier.Fax} + ','
    			SINON
    				ws	+=	'"fax" : "",'
    			FINSI
    
    -- company / cellular
    			SI taille{dossier.TelephonePortable} > 0 ALORS
    				ws	+=	'"cellular" : ' + json{dossier.TelephonePortable} + ','
    			SINON
    				ws	+=	'"cellular" : "",'
    			FINSI
    
    -- company / legalForm
    			SI taille{dossier.formeJuridique} > 0 ALORS
    				ws	+=	'"legalForm" : ' + json{codeUTF8{dossier.formeJuridique}} + ','
    			FINSI
    
    -- company / activity
    			SI taille{dossier.Activite} > 0 ALORS
    				ws	+=	'"activity": ' + json{codeUTF8{sansEspaceALaFin{dossier.Activite}}}
    			SINON
    				ws	+=	'"activity": ""'
    			FINSI
    ----  fin company	
    		ws += '}'
    --	FINSI
    
    ---- oga
    	tmpVirgule := FAUX
    	SI taille{nameCga} > 0 OU taille{fullNameCga} > 0 OU taille{numeroCga} > 0 OU taille{address1Cga} > 0 OU taille{address2Cga} > 0 OU taille{address3Cga} > 0 OU taille{zipCodeCga} > 0 OU
    	    taille{cityCga} > 0 OU taille{countryCga} > 0 OU taille{phoneCga} > 0 OU taille{faxCga} > 0 OU taille{cellularCga} > 0 OU taille{emailCga} > 0 OU taille{websiteCga} > 0
    	ALORS
    		ws += ',"oga" : { '
    
    -- oga / name
    		SI taille{nameCga} > 0 ALORS
    			ws += '"name":  ' + json{codeUTF8{nameCga}}
    			tmpVirgule := VRAI
    		FINSI
    
    -- oga / fullName
    		SI taille{fullNameCga} > 0 ALORS
    			SI tmpVirgule ALORS
    				ws += ',"fullName" :  ' + json{codeUTF8{fullNameCga}}
    			SINON
    				ws += '"fullName" :  ' + json{codeUTF8{fullNameCga}}
    			FINSI
    			tmpVirgule := VRAI
    		FINSI
    
    -- oga / agreementNumber
    		SI taille{numeroCga} > 0 ALORS
    			SI tmpVirgule ALORS
    				ws += ',"agreementNumber" : ' + json{numeroCga} 
    			SINON
    				ws += '"agreementNumber" : ' + json{numeroCga}
    			FINSI
    			tmpVirgule := VRAI
    		FINSI
    
    -- oga / address1
    		SI taille{address1Cga} > 0 ALORS
    			SI tmpVirgule ALORS
    				ws += ',"address1" : ' + json{codeUTF8{address1Cga}}
    			SINON
    				ws += '"address1" : ' + json{codeUTF8{address1Cga}}
    			FINSI
    			tmpVirgule := VRAI
    		FINSI
    
    -- oga / address2
    		SI taille{address2Cga} > 0 ALORS
    			SI tmpVirgule ALORS
    				ws += ',"address2" : ' + json{codeUTF8{address2Cga}}
    			SINON
    				ws += '"address2" : ' + json{codeUTF8{address2Cga}}
    			FINSI
    			tmpVirgule := VRAI
    		FINSI
    
    -- oga / address3
    		SI taille{address3Cga} > 0 ALORS
    			SI tmpVirgule ALORS
    				ws += ',"address3" : ' + json{codeUTF8{address3Cga}}
    			SINON
    				ws += '"address3" : ' + json{codeUTF8{address3Cga}}
    			FINSI
    			tmpVirgule := VRAI
    		FINSI
    
    -- oga / zipCode
    		SI taille{zipCodeCga} > 0 ALORS
    			SI tmpVirgule ALORS
    				ws += ',"zipCode" : ' + json{zipCodeCga}
    			SINON
    				ws += '"zipCode" : ' + json{zipCodeCga}
    			FINSI
    			tmpVirgule := VRAI
    		FINSI
    
    -- oga / city
    		SI taille{cityCga} > 0 ALORS
    			SI tmpVirgule ALORS
    				ws += ',"city" : ' + json{codeUTF8{cityCga}}
    			SINON
    				ws += '"city" : ' + json{codeUTF8{cityCga}}
    			FINSI
    			tmpVirgule := VRAI
    		FINSI
    
    -- oga / country
    		SI taille{countryCga} > 0 ALORS
    			SI tmpVirgule ALORS
    				ws += ',"country" : ' + json{codeUTF8{countryCga}}
    			SINON
    				ws += '"country" : ' + json{codeUTF8{countryCga}}
    			FINSI
    			tmpVirgule := VRAI
    		FINSI
    
    -- oga / phone
    		SI taille{phoneCga} > 0 ALORS
    			SI tmpVirgule ALORS
    				ws += ',"phone" : ' + json{phoneCga}
    			SINON
    				ws += '"phone" : ' + json{phoneCga}
    			FINSI
    			tmpVirgule := VRAI
    		FINSI
    
    -- oga / fax
    		SI taille{faxCga} > 0 ALORS
    			SI tmpVirgule ALORS
    				ws += ',"fax" : ' + json{faxCga}
    			SINON
    				ws += '"fax" : ' + json{faxCga}
    			FINSI
    			tmpVirgule := VRAI
    		FINSI
    
    -- oga / cellular
    		SI taille{cellularCga} > 0 ALORS
    			SI tmpVirgule ALORS
    				ws += ',"cellular" : ' + json{cellularCga}
    			SINON
    				ws += '"cellular" : ' + json{cellularCga}
    			FINSI
    			tmpVirgule := VRAI
    		FINSI
    
    -- oga / email
    		SI taille{emailCga} > 0 ALORS
    			SI tmpVirgule ALORS
    				ws += ',"email" : ' + json{codeUTF8{emailCga}}
    			SINON
    				ws += '"email" : ' + json{codeUTF8{emailCga}}
    			FINSI
    			tmpVirgule := VRAI
    		FINSI
    
    -- oga / website
    		SI taille{websiteCga} > 0 ALORS
    			SI tmpVirgule ALORS
    				ws += ',"website" : ' + json{codeUTF8{websiteCga}}
    			SINON
    				ws += '"website" : ' + json{codeUTF8{websiteCga}}
    			FINSI
    		FINSI
    ----  fin oga	
    		ws += '}'
    	FINSI
    
    ---- accountant
    	tmpVirgule := FAUX
    	SI taille{cabinet.expertComptableSignataireAvecNom} > 0 OU taille{cabinet.RaisonSociale} > 0 OU taille{siretEntite} > 0 OU taille{address1Entite} > 0 OU taille{address2Entite} > 0 OU 
    	    taille{address3Entite} > 0 OU taille{zipCodeEntite} > 0 OU taille{cityEntite} > 0 OU taille{countryEntite} > 0 OU taille{phoneEntite} > 0 OU 
    	    taille{emailEntite} > 0 OU taille{websiteEntite} > 0 OU taille{faxEntite} > 0 OU taille{cellularEntite} > 0
    	ALORS
    
    		ws += ',"accountant" : { '
    
    -- accountant / name
    		SI taille{cabinet.expertComptableSignataire} > 0  ALORS
    			ws += '"name": ' + json{codeUTF8{cabinet.expertComptableSignataire}}
    			tmpVirgule := VRAI
    		FINSI
    
    -- accountant / fullName
    		SI  taille{cabinet.RaisonSociale} > 0 ALORS
    			SI tmpVirgule ALORS
    				ws += ',"fullName" : ' + json{codeUTF8{cabinet.RaisonSociale}}
    			SINON
    				ws += '"fullName" : ' + json{codeUTF8{cabinet.RaisonSociale}}
    			FINSI
    			tmpVirgule := VRAI
    		FINSI
    
    -- accountant / siret
    		SI taille{siretEntite} > 0 ALORS
    			SI tmpVirgule ALORS
    				ws += ',"siret" : ' + json{siretEntite}
    			SINON
    				ws += '"siret" : ' + json{siretEntite}
    			FINSI
    			tmpVirgule := VRAI
    		FINSI
    
    -- accountant / address1
    		SI taille{address1Entite} > 0 ALORS
    			SI tmpVirgule ALORS
    				ws += ',"address1" : ' + json{codeUTF8{address1Entite}}
    			SINON
    				ws += '"address1" : ' + json{codeUTF8{address1Entite}}
    			FINSI
    			tmpVirgule := VRAI
    		FINSI
    
    -- accountant / address2
    		SI taille{address2Entite} > 0 ALORS
    			SI tmpVirgule ALORS
    				ws += ',"address2" : ' + json{codeUTF8{address2Entite}}
    			SINON
    				ws += '"address2" : ' + json{codeUTF8{address2Entite}}
    			FINSI
    			tmpVirgule := VRAI
    		FINSI
    
    -- accountant / address3
    		SI taille{address3Entite} > 0 ALORS
    			SI tmpVirgule ALORS
    				ws += ',"address3" : ' + json{codeUTF8{address3Entite}}
    			SINON
    				ws += '"address3" : ' + json{codeUTF8{address3Entite}}
    			FINSI
    			tmpVirgule := VRAI
    		FINSI
    
    -- accountant / zipCode
    		SI taille{zipCodeEntite} > 0 ALORS
    			SI tmpVirgule ALORS
    				ws += ',"zipCode" : ' + json{zipCodeEntite}
    			SINON
    				ws += '"zipCode" : ' + json{zipCodeEntite}
    			FINSI
    			tmpVirgule := VRAI
    		FINSI
    
    -- accountant / city
    		SI taille{cityEntite} > 0 ALORS
    			SI tmpVirgule ALORS
    				ws += ',"city" : ' + json{codeUTF8{cityEntite}}
    			SINON
    				ws += '"city" : ' + json{codeUTF8{cityEntite}}
    			FINSI
    			tmpVirgule := VRAI
    		FINSI
    
    -- accountant / country
    		SI taille{countryEntite} > 0 ALORS
    			SI tmpVirgule ALORS
    				ws += ',"country" : ' + json{codeUTF8{countryEntite}}
    			SINON
    				ws += ',"country" : ' + json{codeUTF8{countryEntite}}
    			FINSI
    			tmpVirgule := VRAI
    		FINSI
    
    -- accountant / phone
    		SI taille{phoneEntite} > 0 ALORS
    			SI tmpVirgule ALORS
    				ws += ',"phone" : ' + json{phoneEntite}
    			SINON
    				ws += '"phone" : ' + json{phoneEntite}
    			FINSI
    			tmpVirgule := VRAI
    		FINSI
    
    -- accountant / email
    		SI taille{emailEntite} > 0 ALORS
    			SI tmpVirgule ALORS
    				ws += ',"email" : ' + json{codeUTF8{emailEntite}}
    			SINON
    				ws += '"email" : ' + json{codeUTF8{emailEntite}}
    			FINSI
    			tmpVirgule := VRAI
    		FINSI
    
    -- accountant / website
    		SI taille{websiteEntite} > 0 ALORS
    			SI tmpVirgule ALORS
    				ws += ',"website" : ' + json{codeUTF8{websiteEntite}}
    			SINON
    				ws += '"website" : ' + json{codeUTF8{websiteEntite}}
    			FINSI
    			tmpVirgule := VRAI
    		FINSI
    
    -- accountant / fax
    		SI taille{faxEntite} > 0 ALORS
    			SI tmpVirgule ALORS
    				ws += ',"fax" : ' + json{faxEntite}
    			SINON
    				ws += '"fax" : ' + json{faxEntite}
    			FINSI
    			tmpVirgule := VRAI
    		FINSI
    
    -- accountant / cellular
    		SI taille{cellularEntite} > 0 ALORS
    			SI tmpVirgule ALORS
    				ws += ',"cellular" : ' + json{cellularEntite}
    			SINON
    				ws += '"cellular" : ' + json{cellularEntite}
    			FINSI
    			tmpVirgule := VRAI
    		FINSI
    ----  fin accountant
    		ws += '}'
    	FINSI
    
    	SI taille{exerciceComptable.notesCUTE[aujourdhui{}]} > 0 ALORS
    		ws += ',"notes": {'
    		ws += '"date" : '+ json{date{'AAAA-MM-JJ',aujourdhui{}} +' (' +formaterHeure{'hh:mm:ss',heure{}}+ ')'}
    		ws += ',"description" : ' + json{codeUTF8{exerciceComptable.notesCUTE[aujourdhui{}]}}
    		ws += '}'
    	FINSI
    
    	ws += '}'
    
    SINON
    
    ----------------------------------------------------------
    -- Format xml
    ----------------------------------------------------------
    
    	ws += '<entry><id/><content/><title>operatingCompany resource</title><updated>'+upd+'</updated><sdata:payload><operatingCompany sdata:uuid="'+uuid{dossier}+'" xmlns="http://schemas.sage.com/myContract">'
    
    	-- scr le 12/06/13 : en linkup, pas d'export de l'uuid du dossier pour éviter les interférences avec cute (vu avec Dom et Morgan)
    	SI destinataire <> 'linkup' ALORS
    		ws += '<uuid>'+uuid{dossier}+'</uuid>'
    	FIN SI
    	ws += '<name>'+codeXml{dossier.RaisonSociale}+'</name>'	
    	ws += '<fullName>' + codeXml{dossier.RaisonSociale}+'</fullName>'
    	-- address
    	--ws +=  '<address></address>'
    
    -- phone
    	SI taille{dossier.Telephone} > 0 ALORS
    		ws += '<phone>' + codeXml{dossier.Telephone}+'</phone>' 
    	FINSI
    
    -- email
    	SI taille{dossier.Email} > 0  ALORS
    		ws += '<email>' + codeXml{dossier.Email}+'</email>'
    	FINSI
    
    -- website
    	SI taille{dossier.SiteWeb} > 0 ALORS
    		ws += '<website>' + codeXml{dossier.SiteWeb} +'</website>'
    	FINSI
    
    -- currency
    	ws += '<currency>EUR</currency>'
    
    ---- identifiers
    --	SI taille{dossier.Ape} > 0  OU taille{dossier.NumTVAIntra} > 0 OU taille{dossier.Siret} > 0 OU taille{dossier.NumeroRCS} > 0 OU taille{dossier.NumeroRCM} > 0 OU taille{dossier.CGA} > 0 OU taille{dossier.NuméroFrp} > 0 ALORS
    		ws += '<identifiers>'
    
    -- identifiers / ape
    --		SI taille{dossier.Ape} > 0 ALORS
    			ws += '<ape>' + codeXml{dossier.Ape}+'</ape>' 
    --		FINSI
    		
    -- identifiers / vatNumber
    --		SI taille{dossier.NumTVAIntra} > 0 ALORS
    			ws += '<vatNumber>' + codeXml{dossier.NumTVAIntra} +'</vatNumber>'
    --		FINSI
    
    -- identifiers / siret
    --		SI taille{dossier.Siret} > 0 ALORS
    			ws += '<siret>' + codeXml{dossier.Siret} + '</siret>'
    --		FINSI
    
    -- identifiers / rcs
    --		SI taille{dossier.NumeroRCS} > 0 ALORS		
    			ws +=  '<rcs>' + codeXml{dossier.NumeroRCS} + '</rcs>'
    --		FINSI
    
    -- identifiers / rm
    --		SI taille{dossier.NumeroRCM} > 0 ALORS			
    			ws += '<rm>' + codeXml{dossier.NumeroRCM} + '</rm>' 
    --		FINSI
    
    -- identifiers / rseirl
    		--ws += '<rseirl></rseirl>'
    
    -- identifiers / oga
    		SI taille{dossier.CGA} > 0 ALORS
    			ws +=  '<oga>' + codeXml{dossier.CGA} + '</oga>'
    		FINSI
    
    -- identifiers / frp
    		SI taille{dossier.NuméroFrp} > 0 ALORS
    			ws += '<frp>'  + codeXml{dossier.NuméroFrp} + '</frp>'
    			
    		FINSI
    ----  fin identifiers	
    		ws += '</identifiers>'
    --	FINSI
    	
    -- extras
    	ws += '<extras>'
    -- extras / parameters
    		ws += '<parameters>'
    
    -- extras / parameters / tradingAccountLength
    		ws += '<tradingAccountLength>' + exerciceComptable.tailleCodeCompteAux + '</tradingAccountLength>'
    
    -- extras / parameters / financialAccountLentgh
    		ws += '<financialAccountLentgh>' + exerciceComptable.tailleCodeCompte + '</financialAccountLentgh>'
    
    -- extras / parameters / financialAccountJournalLength
    		ws += '<financialAccountJournalLength>' + exerciceComptable.tailleCodeJournal + '</financialAccountJournalLength>' 
    
    -- extras / parameters / analyticsAccountLength
    		--ws += '<analyticsAccountLength></analyticsAccountLength>' 
    
    -- extras / parameters / fiscalDocumentVisibility
    		SI exerciceComptable.fiscalDocumentVisibility ALORS
    			ws += '<fiscalDocumentVisibility>true</fiscalDocumentVisibility>'
    		SINON
    			ws += '<fiscalDocumentVisibility>false</fiscalDocumentVisibility>'
    		FINSI
    
    
    -- extras / parameters / discountObtainedAccount
    		SI taille{exerciceComptable.discountObtainedAccount} > 0 ALORS
    			ws += '<discountObtainedAccount>' + codeXml{exerciceComptable.discountObtainedAccount} + '</discountObtainedAccount>'
    		FINSI
    
    -- extras / parameters / discountGrantedAccount
    		SI taille{exerciceComptable.discountGrantedAccount} > 0 ALORS
    			ws += '<discountGrantedAccount>' + codeXml{exerciceComptable.discountGrantedAccount} + '</discountGrantedAccount>'
    		FINSI
    
    -- extras / parameters / extraordinaryIncomes
    		SI taille{exerciceComptable.extraordinaryIncomes} > 0 ALORS
    			ws += '<extraordinaryIncomes>' + codeXml{exerciceComptable.extraordinaryIncomes} + '</extraordinaryIncomes>'
    		FINSI
    
    -- extras / parameters / extraordinaryCharges
    		SI taille{exerciceComptable.extraordinaryCharges} > 0 ALORS
    			ws += '<extraordinaryCharges>' + codeXml{exerciceComptable.extraordinaryCharges} + '</extraordinaryCharges>'
    		FINSI
    
    -- extras / parameters / translationDifferenceAssetAccount
    		--SI taille{exerciceComptable.translationDifferenceAssetAccount} > 0 ALORS
    		--	ws += '<translationDifferenceAssetAccount>' + codeXml{exerciceComptable.translationDifferenceAssetAccount} + '</translationDifferenceAssetAccount>'
    		--FINSI
    
    -- extras / parameters / translationDifferenceAssetLiabilities
    		--ws += '<translationDifferenceAssetLiabilities></translationDifferenceAssetLiabilities>'
     
    -- extras / parameters / exchangeGainAccount
    		--ws += '<exchangeGainAccount></exchangeGainAccount>'
     
    -- extras / parameters / exhangeLostAccount
    		--ws += '<exhangeLostAccount></exhangeLostAccount>'
    
    -- extras / parameters / shippingCostPaidAndSubjectAccount
    		SI taille{exerciceComptable.shippingCostPaidAndSubjectAccount} > 0 ALORS
    			ws += '<shippingCostPaidAndSubjectAccount>' + codeXml{exerciceComptable.shippingCostPaidAndSubjectAccount} + '</shippingCostPaidAndSubjectAccount>'
    		FINSI
    
    -- extras / parameters / shippingCostPaidAndNotSubjectAccount
    		SI taille{exerciceComptable.shippingCostPaidAndNotSubjectAccount} > 0 ALORS
    			ws += '<shippingCostPaidAndNotSubjectAccount>' + codeXml{exerciceComptable.shippingCostPaidAndNotSubjectAccount} + '</shippingCostPaidAndNotSubjectAccount>'
    		FINSI
    
    -- extras / parameters / shippingCostBilledAndSubjectAccount
    		SI taille{exerciceComptable.shippingCostBilledAndSubjectAccount} > 0 ALORS
    			ws += '<shippingCostBilledAndSubjectAccount>' + codeXml{exerciceComptable.shippingCostBilledAndSubjectAccount} + '</shippingCostBilledAndSubjectAccount>'
    		FINSI
    
    -- extras / parameters / shippingCostBilledAndNotSubjectAccount
    		SI taille{exerciceComptable.shippingCostBilledAndNotSubjectAccount} > 0 ALORS
    			ws += '<shippingCostBilledAndNotSubjectAccount >' + codeXml{exerciceComptable.shippingCostBilledAndNotSubjectAccount} + '</shippingCostBilledAndNotSubjectAccount >'
    		FINSI
    
    -- extras / parameters / defaultPurchaseJournal
    		SI taille{exerciceComptable.defaultPurchaseJournal} > 0 ALORS
    			tmpJournal :=  lire {flotLecture {exerciceComptable.defaultPurchaseJournal}, ' ' }
    			ws += '<defaultPurchaseJournal>' + json{tmpJournal} + '</defaultPurchaseJournal>'
    		FINSI
    
    -- extras / parameters / defaultSalesJournal
    		SI taille{exerciceComptable.defaultSalesJournal} > 0 ALORS
    			tmpJournal :=  lire {flotLecture {exerciceComptable.defaultSalesJournal}, ' ' }
    			ws += '<defaultSalesJournal>' + json{tmpJournal} + '</defaultSalesJournal>'
    		FINSI
    
    -- extras / parameters / defaultBankJournal
    		SI taille{exerciceComptable.defaultBankJournal} > 0 ALORS
    			tmpJournal :=  lire {flotLecture {exerciceComptable.defaultBankJournal}, ' ' }
    			ws +=  '<defaultBankJournal>' + json{tmpJournal} + '</defaultBankJournal>'
    		FINSI
    
    -- extras / parameters / defaultJournal
    		SI taille{exerciceComptable.defaultJournal} > 0 ALORS
    			tmpJournal :=  lire {flotLecture {exerciceComptable.defaultJournal}, ' ' }
    			ws += '<defaultJournal>' + json{tmpJournal} + '</defaultJournal>'
    		FINSI
    
    -- extras / parameters / defaultOpeningJournal 
    		SI taille{exerciceComptable.defaultOpeningJournal} > 0 ALORS
    			tmpJournal :=  lire {flotLecture {exerciceComptable.defaultOpeningJournal}, ' ' }
    			ws +=  '<defaultOpeningJournal>' + json{tmpJournal} + '</defaultOpeningJournal>'
    		FINSI
    
    -- extras / parameters / profitAccount
    		SI taille{exerciceComptable.profitAccount} > 0 ALORS
    			ws += '<profitAccount>' + codeXml{exerciceComptable.profitAccount} + '</profitAccount>'
    		FINSI
    
    -- extras / parameters / lossAccount
    		SI taille{exerciceComptable.lossAccount} > 0 ALORS
    			ws += '<lossAccount>' + codeXml{exerciceComptable.lossAccount} + '</lossAccount>'
    		FINSI
    
    -- extras / parameters / retainedProfitsLossesAccount
    		SI taille{exerciceComptable.retainedProfitsLossesAccount} > 0 ALORS
    			ws += '<retainedProfitsLossesAccount>' + codeXml{exerciceComptable.retainedProfitsLossesAccount} + '</retainedProfitsLossesAccount>'
    		FINSI
    
    -- extras / parameters / positifDifferenceCashAccount
    		SI taille{exerciceComptable.positifDifferenceCashAccount} > 0 ALORS
    			ws += '<positifDifferenceCashAccount>' + codeXml{exerciceComptable.positifDifferenceCashAccount} + '</positifDifferenceCashAccount>'
    		FINSI
    
    -- extras / parameters / negativeDifferenceCashAccount
    		SI taille{exerciceComptable.negativeDifferenceCashAccount} > 0 ALORS
    			ws += '<negativeDifferenceCashAccount>' + codeXml{exerciceComptable.negativeDifferenceCashAccount} + '</negativeDifferenceCashAccount>'
    		FINSI
    
    -- extras / parameters / suspensAccount
    		SI taille{exerciceComptable.suspensAccount} > 0 ALORS
    			ws += '<suspensAccount>' + codeXml{exerciceComptable.suspensAccount} + '</suspensAccount>'
    		FINSI
    
    -- extras / parameters / defaultPurchaseAccount
    		SI taille{exerciceComptable.defaultPurchaseAccount} > 0 ALORS
    			ws += '<defaultPurchaseAccount>' + codeXml{exerciceComptable.defaultPurchaseAccount} + '</defaultPurchaseAccount>'
    		FINSI
    
    -- extras / parameters / defaultSalesAccount
    		SI taille{exerciceComptable.defaultSalesAccount} > 0 ALORS 
    			ws += '<defaultSalesAccount>' + codeXml{exerciceComptable.defaultSalesAccount} + '</defaultSalesAccount>'
    		FINSI
    
    -- extras / parameters / defaultCustomerAccount
    		SI taille{exerciceComptable.defaultCustomerAccount} > 0 ALORS
    			ws += '<defaultCustomerAccount>' + codeXml{exerciceComptable.defaultCustomerAccount} + '</defaultCustomerAccount>'
    		FINSI
    
    -- extras / parameters / defaultSupplierAccount
    		SI taille{exerciceComptable.defaultSupplierAccount} > 0 ALORS
    			ws += '<defaultSupplierAccount>' + codeXml{exerciceComptable.defaultSupplierAccount} + '</defaultSupplierAccount>'
    		FINSI
    
    -- extras / parameters / creditLossesAccount
    		SI taille{exerciceComptable.creditLossesAccount} > 0 ALORS
    			ws += '<creditLossesAccount>' + codeXml{exerciceComptable.creditLossesAccount} + '</creditLossesAccount>'
    		FINSI
    
    -- extras / parameters / depositPaidAccount
    		SI taille{exerciceComptable.depositPaidAccount} > 0 ALORS
    			ws += '<depositPaidAccount>' + codeXml{exerciceComptable.depositPaidAccount} + '</depositPaidAccount>'
    		FINSI
    
    -- extras / parameters / paymentReceivedAccount
    		SI taille{exerciceComptable.paymentReceivedAccount} > 0 ALORS
    			ws += '<paymentReceivedAccount>' + codeXml{exerciceComptable.paymentReceivedAccount} + '</paymentReceivedAccount>'
    		FINSI
    
    -- extras / parameters / subjectToVAT
    		--ws += '<subjectToVAT></subjectToVAT>'  
    
    -- extras / parameters / defaultVATRate
    		--ws += '<defaultVATRate></defaultVATRate>' 
    
    -- extras / parameters / VATSystem
    		SI tmpVATSystem <> ? ALORS
    			ws += '<VATSystem>' + codeXml{tmpVATSystem} + '</VATSystem>' 
    		FINSI
    
    -- extras / parameters / VATMethodOnSales
    		SI tmpVATMethodOnSales <> ? ALORS
    			ws += '<VATMethodOnSales>' + codeXml{tmpVATMethodOnSales} + '</VATMethodOnSales>' 
    		FINSI
    
    -- extras / parameters / VATMethodOnPurchases
    		SI tmpVATMethodOnPurchases <> ? ALORS
    			ws += '<VATMethodOnPurchases>' + codeXml{tmpVATMethodOnPurchases} + '</VATMethodOnPurchases>'
    		FINSI
    
    -- extras / parameters / FRP
    		SI taille{dossier.NuméroFrp} > 0 ALORS
    			ws += '<FRP>' + codeXml{dossier.NuméroFrp} + '</FRP>'
    		FINSI
    
    -- extras / parameters / VATPaymentAccount
    		SI taille{exerciceComptable.VATPaymentAccount} > 0 ALORS
    			ws += '<VATPaymentAccount>' + codeXml{exerciceComptable.VATPaymentAccount} + '</VATPaymentAccount>'
    		FINSI
    
    -- extras / parameters / VATCreditAccount
    		SI taille{exerciceComptable.VATCreditAccount} > 0 ALORS
    			ws += '<VATCreditAccount>' + codeXml{exerciceComptable.VATCreditAccount} + '</VATCreditAccount>'
    		FINSI
    
    -- extras / parameters / VATToBeRegularizedAccount
    		SI taille{exerciceComptable.VATToBeRegularizedAccount} > 0 ALORS
    			ws += '<VATToBeRegularizedAccount>' + codeXml{exerciceComptable.VATToBeRegularizedAccount} + '</VATToBeRegularizedAccount>'
    		FINSI
    
    -- extras / parameters / VATReimbursementAccount
    		SI taille{exerciceComptable.VATReimbursementAccount} > 0 ALORS
    			ws += '<VATReimbursementAccount>' + codeXml{exerciceComptable.VATReimbursementAccount} + '</VATReimbursementAccount>'
    		FINSI
    
    -- extras / parameters / VATDepositAccount
    		SI taille{exerciceComptable.VATDepositAccount} > 0 ALORS
    			ws += '<VATDepositAccount>' + codeXml{exerciceComptable.VATDepositAccount} + '</VATDepositAccount>'
    		FINSI
    
    -- extras / parameters / accountOfBookValuesOfDisposedAssets
    		SI taille{exerciceComptable.accountOfBookValuesOfDisposedAssets} > 0 ALORS
    			ws += '<accountOfBookValuesOfDisposedAssets>' + codeXml{exerciceComptable.accountOfBookValuesOfDisposedAssets} + '</accountOfBookValuesOfDisposedAssets>'
    		FINSI
    
    -- extras / parameters / accountOfRevenueFromSaleOfAssets
    		SI taille{exerciceComptable.accountOfRevenueFromSaleOfAssets} > 0 ALORS
    			ws += '<accountOfRevenueFromSaleOfAssets>' + codeXml{exerciceComptable.accountOfRevenueFromSaleOfAssets} + '</accountOfRevenueFromSaleOfAssets>'
    		FINSI
    
    -- extras / parameters / firstFinancialDate
    		ws += '<firstFinancialDate>'+ codeXml{''+dateDebutExercice1} + '</firstFinancialDate>'
    
    -- extras / parameters / fiscalEndOfTheFirstFiscalPeriod
    		ws += '<fiscalEndOfTheFirstFiscalPeriod>'+ codeXml{''+dateFinExercice1} + '</fiscalEndOfTheFirstFiscalPeriod>'
    
    -- extras / parameters / taxSystem
    		SI tmptaxSystem <> ? ALORS
    			ws += '<taxSystem>' + codeXml{tmptaxSystem} + '</taxSystem>' 
    		FINSI
    	----  fin parameters
    	ws += '</parameters>'
    
    ----  fin extras	
    	ws += '</extras>'
    	
    ---- company
    	SI taille{dossier.Adresse1} > 0 OU taille{dossier.Adresse2} > 0 OU taille{dossier.Adresse3} > 0 OU taille{dossier.CodePostal} > 0 OU taille{dossier.Ville} > 0 OU
    	     taille{paysCompany} > 0 OU taille{dossier.Fax} > 0 OU taille{dossier.TelephonePortable} > 0 OU taille{dossier.formeJuridique} > 0 OU taille{dossier.Activite} > 0
    	ALORS
    		ws += '<company>'
    
    -- company / address1
    			SI taille{dossier.Adresse1} > 0 ALORS
    				ws += '<address1>' + codeXml{dossier.Adresse1} + '</address1>'
    			FINSI
    
    -- company / address2
    			SI taille{dossier.Adresse2} > 0 ALORS			
    				ws += '<address2>' + codeXml{dossier.Adresse2} + '</address2>'
    			FINSI
    
    -- company / address3
    			SI taille{dossier.Adresse3} > 0 ALORS			
    				ws += '<address3>' + codeXml{dossier.Adresse3} + '</address3>'			
    			FINSI
    
    -- company / zipCode
    			SI taille{dossier.CodePostal} > 0 ALORS				
    				ws += '<zipCode>' + codeXml{dossier.CodePostal} + '</zipCode>'
    			FINSI
    
    -- company / city
    			SI taille{dossier.Ville} > 0 ALORS			
    				ws += '<city>' + codeXml{dossier.Ville} + '</city>'
    			FINSI
    
    -- company / country
    			SI taille{paysCompany} > 0 ALORS				
    				ws += '<country>' + codeXml{paysCompany} + '</country>'
    			FINSI
    
    -- company / fax
    			SI taille{dossier.Fax} > 0 ALORS
    				ws += '<fax>' + codeXml{dossier.Fax} + '</fax>'	
    			FINSI
    
    -- company / cellular
    			SI taille{dossier.TelephonePortable} > 0 ALORS			
    				ws += '<cellular>' + codeXml{dossier.TelephonePortable} + '</cellular>'
    			FINSI
    
    -- company / legalForm
    			SI taille{dossier.formeJuridique} > 0 ALORS			
    				ws += '<legalForm>' + codeXml{dossier.formeJuridique} + '</legalForm>'
    			FINSI
    
    -- company / activity
    			SI taille{dossier.Activite} > 0 ALORS				
    				ws += '<activity>' + codeXml{sansEspaceALaFin{dossier.Activite}} + '</activity>'
    			FINSI
    ----  fin company	
    		ws += '</company>'
    	FINSI
    
    ---- oga
    	tmpVirgule := FAUX
    	SI taille{nameCga} > 0 OU taille{fullNameCga} > 0 OU taille{numeroCga} > 0 OU taille{address1Cga} > 0 OU taille{address2Cga} > 0 OU taille{address3Cga} > 0 OU taille{zipCodeCga} > 0 OU
    	    taille{cityCga} > 0 OU taille{countryCga} > 0 OU taille{phoneCga} > 0 OU taille{faxCga} > 0 OU taille{cellularCga} > 0 OU taille{emailCga} > 0 OU taille{websiteCga} > 0
    	ALORS
    		ws += '<oga>'
    
    -- oga / name
    		SI taille{nameCga} > 0 ALORS
    			ws += '<name>' + codeXml{nameCga} + '</name>'
    		FINSI
    
    -- oga / fullName
    		SI taille{fullNameCga} > 0 ALORS			
    			ws += '<fullName>' + codeXml{fullNameCga} + '</fullName>'
    		FINSI
    
    -- oga / agreementNumber
    		SI taille{numeroCga} > 0 ALORS			
    			ws += '<agreementNumber>' + codeXml{numeroCga} + '</agreementNumber>'
    		FINSI
    
    -- oga / address1
    		SI taille{address1Cga} > 0 ALORS			
    			ws += '<address1>' + codeXml{address1Cga} + '</address1>'
    		FINSI
    
    -- oga / address2
    		SI taille{address2Cga} > 0 ALORS			
    			ws += '<address2>' + codeXml{address2Cga} + '</address2>'
    		FINSI
    
    -- oga / address3
    		SI taille{address3Cga} > 0 ALORS			
    			ws += '<address3>' + codeXml{address3Cga} + '</address3>'			
    		FINSI
    
    -- oga / zipCode
    		SI taille{zipCodeCga} > 0 ALORS			
    			ws += '<zipCode>' + codeXml{zipCodeCga} + '</zipCode>'			
    		FINSI
    
    -- oga / city
    		SI taille{cityCga} > 0 ALORS		
    			ws += '<city>' + codeXml{cityCga} + '</city>'
    		FINSI
    
    -- oga / country
    		SI taille{countryCga} > 0 ALORS		
    			ws += '<country>' + codeXml{countryCga} + '</country>'
    		FINSI
    
    -- oga / phone
    		SI taille{phoneCga} > 0 ALORS			
    			ws += '<phone>' + codeXml{phoneCga} + '</phone>'
    		FINSI
    
    -- oga / fax
    		SI taille{faxCga} > 0 ALORS
    			ws += '<fax>' + codeXml{faxCga} + '</fax>'
    		FINSI
    
    -- oga / cellular
    		SI taille{cellularCga} > 0 ALORS			
    			ws += '<cellular>' + codeXml{cellularCga} + '</cellular>'
    		FINSI
    
    -- oga / email
    		SI taille{emailCga} > 0 ALORS
    			ws += '<email>' + codeXml{emailCga} + '</email>'
    		FINSI
    
    -- oga / website
    		SI taille{websiteCga} > 0 ALORS		
    			ws += '<website>' + codeXml{websiteCga} + '</website>'			
    		FINSI
    ----  fin oga	
    		ws += '</oga>'
    	FINSI
    
    ---- accountant
    	tmpVirgule := FAUX
    	SI taille{cabinet.expertComptableSignataireAvecNom} > 0 OU taille{cabinet.RaisonSociale} > 0 OU taille{siretEntite} > 0 OU taille{address1Entite} > 0 OU taille{address2Entite} > 0 OU 
    	    taille{address3Entite} > 0 OU taille{zipCodeEntite} > 0 OU taille{cityEntite} > 0 OU taille{countryEntite} > 0 OU taille{phoneEntite} > 0 OU 
    	    taille{emailEntite} > 0 OU taille{websiteEntite} > 0 OU taille{faxEntite} > 0 OU taille{cellularEntite} > 0
    	ALORS
    
    		ws += '<accountant>'
    
    -- accountant / name
    		SI taille{cabinet.expertComptableSignataire} > 0  ALORS
    			ws += '<name>' + codeXml{cabinet.expertComptableSignataire} + '</name>' 
    		FINSI
    
    -- accountant / fullName
    		SI  taille{cabinet.RaisonSociale} > 0 ALORS			
    			ws += '<fullName>' + codeXml{cabinet.RaisonSociale} + '</fullName>'
    		FINSI
    
    -- accountant / siret
    		SI taille{siretEntite} > 0 ALORS			
    			ws += '<siret>' + codeXml{siretEntite} + '</siret>'
    		FINSI
    
    -- accountant / address1
    		SI taille{address1Entite} > 0 ALORS			
    			ws += '<address1>' + codeXml{address1Entite} + '</address1>'			
    		FINSI
    
    -- accountant / address2
    		SI taille{address2Entite} > 0 ALORS			
    			ws += '<address2>' + codeXml{address2Entite} + '</address2>'			
    		FINSI
    
    -- accountant / address3
    		SI taille{address3Entite} > 0 ALORS			
    			ws += '<address3>' + codeXml{address3Entite} + '</address3>'
    		FINSI
    
    -- accountant / zipCode
    		SI taille{zipCodeEntite} > 0 ALORS			
    			ws += '<zipCode>' + codeXml{zipCodeEntite} + '</zipCode>'
    		FINSI
    
    -- accountant / city
    		SI taille{cityEntite} > 0 ALORS		
    			ws += '<city>' + codeXml{cityEntite} + '</city>'
    		FINSI
    
    -- accountant / country
    		SI taille{countryEntite} > 0 ALORS			
    			ws += '<country>' + codeXml{countryEntite} + '</country>'
    		FINSI
    
    -- accountant / phone
    		SI taille{phoneEntite} > 0 ALORS			
    			ws += '<phone>' + codeXml{phoneEntite} + '</phone>'
    		FINSI
    
    -- accountant / email
    		SI taille{emailEntite} > 0 ALORS			
    			ws += '<email>' + codeXml{emailEntite} + '</email>'
    		FINSI
    
    -- accountant / website
    		SI taille{websiteEntite} > 0 ALORS			
    			ws += '<website>' + codeXml{websiteEntite} + '</website>'			
    		FINSI
    
    -- accountant / fax
    		SI taille{faxEntite} > 0 ALORS
    			ws += '<fax>' + codeXml{faxEntite} + '</fax>'
    		FINSI
    
    -- accountant / cellular
    		SI taille{cellularEntite} > 0 ALORS			
    			ws += '<cellular>' + codeXml{cellularEntite} + '</cellular>'
    		FINSI
    ----  fin accountant
    		ws += '</accountant>'
    	FINSI
    
    	SI taille{exerciceComptable.notesCUTE[aujourdhui{}]} > 0 ALORS
    		ws += '<notes>'
    		ws += '<date>'+ codeXml{date{'AAAA-MM-JJ',aujourdhui{}} +' (' +formaterHeure{'hh:mm:ss',heure{}}+ ')'} +  '</date>'
    		ws += '<description>' + json{exerciceComptable.notesCUTE[aujourdhui{}]} + '</description>'
    		ws += '</notes>'
    	FINSI
    
    
    	ws += '</operatingCompany></sdata:payload></entry>'
    FINSI
###
