EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "", "TPSEXCEPTIONS" TO F.TPSEXCEPTIONS ELSE STOP
OPEN "", "TPSTEMPO" TO F.TPSTEMPO ELSE STOP
OPEN "","ASSOCIATION" TO F.ASSOCIATION ELSE STOP
* +++++++++++ ATTENTION : si on lance le traitement trop longtemps a l'avance, les interventions perptuelles cres entre temps 
*seront effectives sur le jour fri... =>A chaque ajout d'intervention, aller suspendre l'interv du JF !

LOOP
PRINT "Association (3N) ?"
INPUT Asso
IF Asso = "" THEN
PRINT "Abandon."
STOP
END
READ ENR_ASSO FROM F.ASSOCIATION, Asso ELSE
 PRINT "Aucune entit juridique correspondant a ce code."
 Asso = ""
END
WHILE Asso = ""
REPEAT
LOOP
PRINT "Date du jour frie (JJ/MM/AAAA) ?"
INPUT W_Date
IF W_Date = "" THEN
PRINT "Abandon."
STOP
END
W_Date = ICONV(W_Date,"D4/")
WHILE W_Date = ""
REPEAT
W_JourFerieProsp=W_Date
GOSUB 4000
IF Ferie = "SEMAI" THEN 
	PRINT "Attention ... Cette date n'est pas frie..."
	PRINT "Abandon."
	STOP
END
LOOP
PRINT "Type d'activit (P/M) ?"
INPUT TypeAct
IF TypeAct = "" THEN
PRINT "Abandon."
STOP
END
IF TypeAct = "p" THEN
	TypeAct = "P"
END ELSE
   IF TypeAct = "m" THEN
	TypeAct = "M"
   END ELSE
     IF TypeAct # "M" AND TypeAct # "P" THEN
	TypeAct= ""
     END
   END
END
WHILE TypeAct = ""
REPEAT
W_CleRetour="EXCEPTJF":TypeAct
W_Params = "AFFICHEPLANNING |" : W_CleRetour : "|":Asso:"|":TypeAct:"|":W_Date:"|":W_Date:"|||" : "|E":"|"
EXECUTE W_Params
READ TabInterv FROM F.TPSTEMPO, "AFFICHEPLANNING":W_CleRetour ELSE
	TabInterv = ""
	TabInterv<1> = "#FIN"
END
ENR = ""
i = 0
W_Jour=0
LOOP
i = i + 1
W_Jour=W_Jour+1
WHILE TabInterv<i>[1,4] # "#FIN"
IF TabInterv<i>[1,1] # "#" THEN
	k = 0
	LOOP
	k = k + 1
	WHILE TabInterv<i,1,k> # ""
		IF TabInterv<i,1,k>[1,6] = "Interv" AND LEN(TabInterv<i,1,k>) = 7 THEN
			ENR<1>=TabInterv<i,4,k>[1,26]
			WRITE ENR ON F.TPSEXCEPTIONS, TabInterv<i,4,k>[1,10]:W_Date:TabInterv<i,4,k>[16,11]
		END
		
	REPEAT
END ELSE
END
REPEAT
STOP
4000 **************************************************************************
*  On dtermine W_RubDefautFerieProsp selon que la date interne		      *
* W_JourFerieProsp soit un dimanche, 1er mai,etc...			      *
*******************************************************************************
* ATTENTION : ne pas utiliser variables i, k, W_NbMv,...
* pour viter tous risques, les variables utilises par cette procdure se nomment toutes [XX]FerieProsp
* + penser en dbut de programme a initialiser W_DerniereAnneeFerieProsp afin d'viter les avertissements d'unidata.
W_JF4000 = "F"
W_JourClairFerieProsp = OCONV(W_JourFerieProsp,"D4/")
W_Param4000=W_JourClairFerieProsp:"|":Asso
CALL DIMJF(RETURNVAL,W_Param4000,Ferie)
RETURN
