EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "", "DETAILPREST" TO F.DETAILPREST ELSE STOP

PRINT "Priode de traitement (AAAAMM): "
INPUT W_Periode

EXECUTE 'COMO ON TESTSAISIEVALID.TXT'


W_NBERREUR = 0
EXECUTE 'SELECT DETAILPREST = "[':W_Periode:'"'
W_Fin= "F"
LOOP
   READNEXT CLE ELSE W_Fin = "V"
WHILE W_Fin = "F"
   READ ENR_DETAILPREST FROM F.DETAILPREST, CLE THEN
      W_Count1=DCOUNT(ENR_DETAILPREST<1>,CHAR(253))
      W_Count2=DCOUNT(ENR_DETAILPREST<2>,CHAR(253))
      W_Count3=DCOUNT(ENR_DETAILPREST<3>,CHAR(253))
      W_Count4=DCOUNT(ENR_DETAILPREST<4>,CHAR(253))
      W_Count10=DCOUNT(ENR_DETAILPREST<10>,CHAR(253))
      W_Count11=DCOUNT(ENR_DETAILPREST<11>,CHAR(253))
      W_Count12=DCOUNT(ENR_DETAILPREST<12>,CHAR(253))
      W_Count13=DCOUNT(ENR_DETAILPREST<13>,CHAR(253))

	IF W_Count1 # W_Count2 OR W_Count1 # W_Count3 OR W_Count1 # W_Count4 OR W_Count4 # W_Count3 THEN
		IF W_Count1 = 1 OR W_Count3 = 1 THEN
			IF W_Count2 # 0 AND W_Count4 # 0 THEN 
				PRINT "Erreur dans les MV de la saisie des heures au mois : ":CLE			
			END
		END
	END

	IF W_Count10 # W_Count11 OR W_Count10 # W_Count12 OR W_Count10 # W_Count13 THEN
		PRINT "Erreur dans les MV de la saisie des heures au jour le jour : ":CLE
	END

	IF W_Count10 # 0 THEN
	   IF W_Count1 # W_Count10 OR W_Count4 # W_Count13 THEN
		IF W_Count4 # 0 THEN
			PRINT "Erreur dans les MV entre les saisies (Jour/Mois) : ":CLE
W_NBERREUR= W_NBERREUR+1
		END
	   END
	END 

	FOR i = 1 TO W_Count1
	   IF ENR_DETAILPREST<2,i> = "" THEN
            W_Count10Ms=DCOUNT(ENR_DETAILPREST<10,i>,CHAR(252))
            FOR j=1 TO W_Count10Ms
		   IF ENR_DETAILPREST<10,i,j> ="" OR ENR_DETAILPREST<11,i,j> ="" OR ENR_DETAILPREST<12,i,j> ="" OR ENR_DETAILPREST<13,i,j> ="" THEN
			PRINT "Ms  vide dans la saisie des heures au jour le jour : ":CLE
               END
            NEXT j
         END
	NEXT i


   END

REPEAT
IF W_NBERREUR = 0 THEN
	PRINT "Aucune anomalie"
END ELSE
PRINT W_NBERREUR:" anomalies rencontres"
END
EXECUTE 'COMO OFF'
STOP
