'ouvrir' 'Toutes fonctions'
    
    |
    	ed<Objet>  edA<Objet>
		monEtat<Objet> maSoc<Objet>
	|

	monEtat ::= 'EtatComptable'
	monEtat := objParent

	dossier ::= monDossier
    
    -- Création d'un editeur
    ed	::=	'Editeur'
    edA	::=	'Editeur_25_2069RCI'
    edA 	:=	etat
    ed 	:=	editeur{edA}
    
    SI ed <> ? ALORS
    	ed.ouvrir
    	SORTIR FAUX
    FIN SI
    
    ed	:=	creer{'Editeur'}
    ed.racine := etat
    ed.objetSelection := etat
    
    -- Titre de la fenêtre
    ed.titre		:=	'Assistant gestion sociétés membres'
    
    -- paramétrage de la fenêtre.
    ed.avecDates	:=	FAUX
    ed.avecObjets	:=	FAUX
    ed.avecOnglets	:=	FAUX
    ed.avecAttributs	:=	FAUX
    
    ed.menu :=
    'Fichier
	Enregistrer
	--
	Fermer
	Fermer sans sauver 
Aide
	Aide
	Message'
    
    
    ed.y1	:=	4000
    
    SI listeSocietesMembres = ? ALORS
    	listeSocietesMembres	:=	creerListe{VRAI}
    FINSI

    SI nbElements{listeSocietesMembres} < 1 ALORS
    	-- on ajoute la société mère
    	SI ouiNon{'Souhaitez-vous ajouter une annexe 2069RCI pour la société mère ?'} ALORS
    		maSoc ::= 'Extension_25_2069RCI'
    		maSoc := creer{'Extension_25_2069RCI'}
    		maSoc.designation := dossier.RaisonSociale
    		maSoc.siren := chaine{dossier.Siret, 1, 9}
    		maSoc.adresse := dossier.Adresse1+' '+dossier.Adresse2+' '+dossier.Adresse3
    		maSoc.cp := dossier.CodePostal
    		maSoc.ville := dossier.Ville
    		ajouterElement{listeSocietesMembres, maSoc}
    	FIN SI
    FIN SI
    
    ed.ouvrir
    
    SORTIR VRAI
###
'_VARIABLE' 'Toutes fonctions'

	|
		var<Objet>colDescr<Chaine>szCR<Chaine>
	|

	var			:= creerVariable{'VariableListe'}
	var			::= 'VariableListe'
	var.nom			:= 'listeSocietesMembres'
	var.nomClasse		:= 'Extension_25_2069RCI'
	var.extensible		:= VRAI
	var.deplaceable		:= VRAI
	var.avecTotaux		:= FAUX
	var.avecFiltres		:= FAUX

	szCR := '
'
	colDescr := ''
	colDescr += 'designation;Désignation;0.2;1' + szCR
	colDescr += 'siren;Siren;0.1;1' + szCR
	colDescr += 'adresse;Adresse;0.2;1' + szCR
	colDescr += 'cp;Code Postal;0.1;1' + szCR
	colDescr += 'ville;Ville;0.15;1' + szCR
	colDescr += 'nbExt1;Ext1;0.05;1' + szCR
	colDescr += 'nbExt2;Ext2;0.05;1' + szCR
	colDescr += 'nbExt3;Ext3;0.05;1' + szCR
	colDescr += 'nbAnnexes;Nb Annexes;0.15;1;select' + szCR

	var.description := colDescr

	SORTIR var
        
###
'Fermer' 'Toutes fonctions'

	FERMETURE{}
   	editeur.fermer

###
'FERMETURE' 'Toutes fonctions'

	|
		monEtat<Objet>maSoc<Objet>unCodeDossier<Chaine>
	|

	maSoc ::= 'Extension_25_2069RCI'
	monEtat ::= 'EtatComptable'
	monEtat := objParent

	unCodeDossier := monEtat.GetCodeDossier{}

	monEtat.GetDesignationAdresseSirenForSocieteIntegrante{unCodeDossier}

	POUR TOUT element<Extension_25_2069RCI> DE listeSocietesMembres FAIRE
		maSoc := element
		maSoc.2069RCI_AA1_prepa := maSoc.designation
		maSoc.2069RCI_AA2_prepa := maSoc.adresse + ' ' +maSoc.cp + ' ' +maSoc.ville
		maSoc.2069RCI_AA3_prepa := maSoc.siren

		SI taille{maSoc.2069RCI_BF1} < 1 ALORS
			maSoc.2069RCI_BF1 := monEtat.designationSocieteIntegrante
		FIN SI
		SI taille{maSoc.2069RCI_BF2} < 1 ALORS
			maSoc.2069RCI_BF2 := monEtat.AdresseCompleteSocieteIntegrante
		FIN SI
		SI taille{maSoc.2069RCI_BF3} < 1 ALORS
			maSoc.2069RCI_BF3 := monEtat.sirenSocieteIntegrante
		FIN SI

	    maSoc.objParent := monEtat
	FIN FAIRE

	monEtat.listeSocietesMembres := listeSocietesMembres
    
    SORTIR VRAI

###
'listeSocietesMembres_AJOUT' 'Toutes fonctions'
{argLigne <Objet>}
    
    |
    	maSoc<Objet> 
    |

    maSoc ::= 'Extension2069RCI'
    maSoc := argLigne

    maSoc.type := classe{objParent}

    SORTIR VRAI
###
