
SUBROUTINE VERIFREMPL(RETURNVAL, ENTREE, SORTIE)

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
OPEN "","_PH_" TO F._PH_ ELSE STOP

W_User=FIELD(ENTREE,"|",1)
W_Heure=FIELD(ENTREE,"|",2)
W_Prog=FIELD(ENTREE,"|",3)
W_Cle=FIELD(ENTREE,"|",4)
W_Tableau=FIELD(ENTREE,"|",5)

SORTIE=""
W_LibAnomalie1=""
W_LibAnomalie2=""

	W_Faire = "F"
	i = 0
	LOOP
	i = i + 1
	WHILE W_Tableau<1,i> # "" AND W_Faire = "F"
		W_Count = DCOUNT(W_Tableau<5,i>,CHAR(252))
		k = 0
		LOOP
		k = k + 1
		WHILE k <= W_Count
			IF W_Tableau<4,i,k> = "" OR W_Tableau<3,i,k> = "" THEN
				W_LibAnomalie1="NOUVEL ARTICLE - DATE A VIDE - MV : ":i:" - SV : ":k
				W_Faire = "V"
			END ELSE
				READ ENR2 FROM F.TPSDETAILSINTERV, W_Tableau<5,i,k> ELSE
					READ ENR2 FROM F.TPSDETAILSINTERVARCH, W_Tableau<5,i,k> ELSE
						W_LibAnomalie1="NOUVEL ARTICLE - CLE INVALIDE - MV : ":i:" - SV : ":k:" - CLE : ":W_Tableau<5,i,k>
						W_Faire = "V"
					END
				END
			END
		REPEAT
	REPEAT
	W_Faire2 = "F"
	IF W_Faire = "V" THEN
	
		READ ENR FROM F.TPSREMPLACEAIDANT, W_Cle THEN
			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
						W_LibAnomalie2="ANCIEN ARTICLE - DATE A VIDE - MV : ":i:" - SV : ":k
					END ELSE
						READ ENR2 FROM F.TPSDETAILSINTERV, ENR<5,i,k> ELSE
							READ ENR2 FROM F.TPSDETAILSINTERVARCH, ENR<5,i,k> ELSE
								W_LibAnomalie2="ANCIEN ARTICLE - CLE INVALIDE - MV : ":i:" - SV : ":k:" - CLE : ":ENR<5,i,k>
							END
						END
					END
				REPEAT
			REPEAT
		END ELSE
			ENR=""
			W_LibAnomalie2="CREATION DE LA CLE"
		END
		IF W_LibAnomalie1# "" AND W_LibAnomalie2= "" THEN
		W_Temp="********":W_User:" * ":W_Heure:" * ":W_Prog:" * ":W_Tableau:" --> "
		READ ENR3 FROM F._PH_, "DEBUGREMPL.TXT" ELSE ENR=""
		ENR3<-1>=W_Temp
		ENR3<-1> = W_LibAnomalie1
		ENR3<-1> = " * ":ENR:" --> "
		ENR3<-1> =W_LibAnomalie2
		WRITE ENR3 ON F._PH_,"DEBUGREMPL.TXT"
		SORTIE="ERREUR"
		END
	END
	
RETURN
