EXECUTE 'UDT.OPTIONS 11 ON'
EXECUTE 'DATE.FORMAT'
EXECUTE 'SET-DEC ,'
EXECUTE "SET-THOUS ."

OPEN "","ACTIVITES" TO F.ACTIVITES ELSE PRINT "FICHIER ACTIVITES"

Date=OCONV(DATE(),"D4/")
W_PeriodeSys=Date[7,4]:Date[4,2]

W_ReqAct=""
W_Act=""
W_NbAct=0
EXECUTE 'SSELECT ACTIVITES AVEC 0 = "001]" AND AVEC 12 = "P" 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_Fin="FAUX"
	LOOP
		READNEXT W_CleAct FROM W_ReqAct ELSE W_Fin="VRAI"
	WHILE W_Fin#"VRAI" DO
		W_NbAct=W_NbAct+1
		W_Act=W_Act:W_CleAct:"|"
	REPEAT
	
	IF W_NbAct=1 THEN
		W_Act=W_Act[1,6]
	END
END

FOR i = 1 TO 3
	IF i # 1 THEN
		W_PeriodeSys=W_PeriodeSys+1
		IF W_PeriodeSys[5,2]="13" THEN
			W_PeriodeSys=W_PeriodeSys[1,4]+1:"01"
		END
	END
	
	PARAMETRES = ""
	W_Str="PrcCalculPreaPrest 001 AVID ":W_PeriodeSys:" ":W_Act:" ":W_NbAct:" 0 0 O"

	* POUR TEST INDIVIDUEL
	* PARAMETRES = "CALCULPREAPRESTPLANNING ||":W_PeriodeSys:"|001|00029|":W_Str

	PARAMETRES = "CALCULPREAPRESTPLANNING ||":W_PeriodeSys:"|001||":W_Str
	EXECUTE PARAMETRES
	
NEXT i

STOP