EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","TPSREMPLACEAIDANT" TO F.TPSREMPLACEAIDANT ELSE STOP
OPEN "","TPSDETAILSINTERV" TO F.TPSDETAILSINTERV ELSE STOP
OPEN "","TPSDETAILSINTERVARCH" TO F.TPSDETAILSINTERVARCH ELSE STOP
EXECUTE 'SELECT TPSREMPLACEAIDANT'
EXECUTE 'SAUVE-LISTE W_ReqMoul' 
EXECUTE 'LISTE W_ReqMoul' RETURNING MSGCODE
IF MSGCODE<1> # "209" THEN
SELECT F.TPSREMPLACEAIDANT TO W_ReqMoul
W_Fin = "F"
LOOP
READNEXT W_Cle FROM W_ReqMoul ELSE W_Fin = "V"
WHILE W_Fin ="F"
READ ENR FROM F.TPSREMPLACEAIDANT, W_Cle THEN
	W_Faire = "F"
	i =0
	LOOP
	i = i + 1
	WHILE ENR<1,i> # ""
		W_Count = DCOUNT(ENR<5,i>,CHAR(252))
		k = 0
		LOOP
		k = k + 1
		WHILE k <= W_Count
		  IF ENR<4,i,k> = "" OR ENR<3,i,k> = "" THEN
			* Anomalie
			*DEBUG
			W_Faire = "V"
		  END ELSE
			READ ENR2 FROM F.TPSDETAILSINTERV, ENR<5,i,k> ELSE
				READ ENR2 FROM F.TPSDETAILSINTERVARCH, ENR<5,i,k> ELSE
					* Anomlie
					W_Faire = "V"
				END
			END
		  END
		REPEAT
	REPEAT
	IF W_Faire = "V" THEN
		CALL RECTIFREMPL(RETURNVAL,W_Cle,W_Sortie)
	END
END
REPEAT
END
STOP
