****************************************************
* Aux Familles Rurales de l'Indre, il y a environ  *
* 120 entits, avec chacune 3 activits, rparties *
* sur 20 bases.                                    *
* Dans LogisFil les paramtrages MOD/MOI sont fait *
* par entit et sont normalement saisis  la main. *
* Mais l vu la quantit de manips que cela        *
* reprsente, il a t dcid de faire un PRMOUL.  *
*                                                  *
* Greg - 07/11/16                                  *
****************************************************
EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"

OPEN "","DOMITIMEPARAMINTGR" TO F.DOMITIMEPARAMINTGR ELSE RETURN
OPEN "","ASSOCIATION" TO F.ASSOCIATION ELSE RETURN
OPEN "","ACTIVITES" TO F.ACTIVITES ELSE RETURN

PRINT "Code tlgestion associations ?"
INPUT W_CodeTlgAsso

ENR_DOMITIMEPARAMINTGR=""
ENR_ASSOCIATION=""
ENR_ACTIVITES=""

	W_ReqAss=""
	EXECUTE 'SELECT ASSOCIATION'
	EXECUTE 'SAUVE-LISTE W_ReqAss'
	EXECUTE "LISTE W_ReqAss" RETURNING MSGCODE

	IF MSGCODE<1> # 209 THEN
		SELECT F.ASSOCIATION TO W_ReqAss
		
		W_Fini="FAUX"
		LOOP
			READNEXT W_CleAss FROM W_ReqAss ELSE W_Fini="VRAI"
		WHILE W_Fini="FAUX" DO
			READ ENR_ASSOCIATION FROM F.ASSOCIATION, W_CleAss THEN
				ENR_ASSOCIATION<38>="06"
				ENR_ASSOCIATION<39>=W_CodeTlgAsso
				WRITE ENR_ASSOCIATION ON F.ASSOCIATION, W_CleAss
				
				ENR_DOMITIMEPARAMINTGR=""
				W_IndMOD=0
				W_IndMOI=0
				
				W_ReqAct=""
				EXECUTE 'SELECT ACTIVITES AVEC 0 = "':W_CleAss:']" PAR 0'
				EXECUTE 'SAUVE-LISTE W_ReqAct'
				EXECUTE "LISTE W_ReqAct" RETURNING MSGCODE

				IF MSGCODE<1> # 209 THEN
					SELECT F.ACTIVITES TO W_ReqAct
					
					W_FiniAct="FAUX"
					LOOP
						READNEXT W_CleAct FROM W_ReqAct ELSE W_FiniAct="VRAI"
					WHILE W_FiniAct="FAUX" DO
						W_IndMOD=W_IndMOD+1
						ENR_DOMITIMEPARAMINTGR<1,W_IndMOD>=W_CleAct
						ENR_DOMITIMEPARAMINTGR<2,W_IndMOD>="019"
						
						W_IndMOI=W_IndMOI+1
						ENR_DOMITIMEPARAMINTGR<3,W_IndMOI>=W_CleAct
						ENR_DOMITIMEPARAMINTGR<4,W_IndMOI>="11"
						ENR_DOMITIMEPARAMINTGR<5,W_IndMOI>=""
						ENR_DOMITIMEPARAMINTGR<6,W_IndMOI>="123"
						ENR_DOMITIMEPARAMINTGR<7,W_IndMOI>=""
						ENR_DOMITIMEPARAMINTGR<8,W_IndMOI>=""
						ENR_DOMITIMEPARAMINTGR<9,W_IndMOI>=""
						
						W_IndMOI=W_IndMOI+1
						ENR_DOMITIMEPARAMINTGR<3,W_IndMOI>=W_CleAct
						ENR_DOMITIMEPARAMINTGR<4,W_IndMOI>="12"
						ENR_DOMITIMEPARAMINTGR<5,W_IndMOI>=""
						ENR_DOMITIMEPARAMINTGR<6,W_IndMOI>="012"
						ENR_DOMITIMEPARAMINTGR<7,W_IndMOI>=""
						ENR_DOMITIMEPARAMINTGR<8,W_IndMOI>=""
						ENR_DOMITIMEPARAMINTGR<9,W_IndMOI>=""
						
						W_IndMOI=W_IndMOI+1
						ENR_DOMITIMEPARAMINTGR<3,W_IndMOI>=W_CleAct
						ENR_DOMITIMEPARAMINTGR<4,W_IndMOI>="21"
						ENR_DOMITIMEPARAMINTGR<5,W_IndMOI>=""
						ENR_DOMITIMEPARAMINTGR<6,W_IndMOI>="019"
						ENR_DOMITIMEPARAMINTGR<7,W_IndMOI>=""
						ENR_DOMITIMEPARAMINTGR<8,W_IndMOI>=""
						ENR_DOMITIMEPARAMINTGR<9,W_IndMOI>=""
					REPEAT
				END

				WRITE ENR_DOMITIMEPARAMINTGR ON F.DOMITIMEPARAMINTGR, W_CleAss
				EXECUTE "EFFACER-LISTE W_ReqAct"
			END
		REPEAT
	END

	EXECUTE "EFFACER-LISTE W_ReqAss"
	
STOP