OPEN "","TPSDETAILSINTERV" TO F.TPSDETAILSINTERV ELSE STOP
OPEN "","ABSENCESAIDANT" TO F.ABSENCESAIDANT ELSE STOP
OPEN "","TPSREMPLACEAIDANT" TO F.TPSREMPLACEAIDANT ELSE STOP
EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
PROCREAD PARAMETRES ELSE STOP
W_AncCle = FIELD(PARAMETRES,"|",2)

W_NewCle = W_AncCle[1,5] : "22" : W_AncCle[8,5]
    
ENR_TEMP=""
READ ENR_ABSENCESAIDANT FROM F.ABSENCESAIDANT, W_AncCle THEN
    ENR_TEMP<2> = ENR_ABSENCESAIDANT<2>
    IF W_AncCle[6,2] <= "06" THEN
        ENR_TEMP<1> = "1"
        ENR_TEMP<3> = "2"
    END ELSE
        ENR_TEMP<1> = ENR_ABSENCESAIDANT<1>
        ENR_TEMP<3> = ENR_ABSENCESAIDANT<3>
        ENR_TEMP<21> = ENR_ABSENCESAIDANT<21>
        ENR_TEMP<22> = ENR_ABSENCESAIDANT<22>
        ENR_TEMP<23> = ENR_ABSENCESAIDANT<23>
        ENR_TEMP<24> = ENR_ABSENCESAIDANT<24>
        ENR_TEMP<25> = ENR_ABSENCESAIDANT<25>
        ENR_TEMP<26> = ENR_ABSENCESAIDANT<26>
    END
    WRITE ENR_TEMP ON F.ABSENCESAIDANT, W_NewCle 
    ENR_TEMP = ""
    
    READ ENR_TPSREMPLACEAIDANT FROM F.TPSREMPLACEAIDANT, W_AncCle THEN
	
    ********************************
    * test erreur
        W_Heure = TIMEDATE()[1,8]
		EXECUTE 'GETUSER' RETURNING MSGCODE
		W_User=MSGCODE<2,2>
        W_Entree = W_User:"|":W_Heure:"|MISEENATTENTE|":W_AncCle:"|":ENR_TPSREMPLACEAIDANT
		CALL VERIFREMPL(W_RETURNVAL,W_Entree,W_SORTIE)
    ******************************** 	
	
	WRITE ENR_TPSREMPLACEAIDANT ON F.TPSREMPLACEAIDANT, W_NewCle
	DELETE F.TPSREMPLACEAIDANT,W_AncCle
    END
    
    EXECUTE 'SELECT TPSDETAILSINTERV AVEC 6 = "':W_AncCle:'"'
    W_Fin = "F"
    LOOP
	READNEXT W_Cle ELSE W_Fin = "V"
    WHILE W_Fin = "F"
        READ ENR_TEMP FROM F.TPSDETAILSINTERV, W_Cle THEN
            ENR_TEMP<6> = W_NewCle
            WRITE ENR_TEMP ON F.TPSDETAILSINTERV, W_Cle
	  END
    REPEAT
END
STOP