EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "", "TPSTEMPO" TO F.TPSTEMPO ELSE STOP
W_CleRetour = "Test"
W_DateDeb = ""
LOOP
PRINT "Date de dbut (JJ/MM/AAAA) ?"
INPUT W_DateDeb
IF W_DateDeb = "" THEN
	PRINT "Traitement abandonn."
	STOP
END
W_DateDeb = ICONV(W_DateDeb,"D4/")
WHILE W_DateDeb = ""
REPEAT

W_DateFin = ""
LOOP
PRINT "Date de fin (JJ/MM/AAAA) ?"
INPUT W_DateFin
IF W_DateFin = "" THEN
	PRINT "Traitement abandonn."
	STOP
END
W_DateFin = ICONV(W_DateFin,"D4/")
WHILE W_DateFin = ""
REPEAT

PRINT "Code secteur (3N, facultatif) ?"
INPUT W_CodeSecteur
IF NOT (W_CodeSecteur MATCHES("3N")) THEN
	W_CodeSecteur = ""
END
W_Params = "AFFICHEPLANNING |" : W_CleRetour : "||PMIS|":W_DateDeb:"|":W_DateFin:"|S|":W_CodeSecteur:"|" : "|E" : "|"
EXECUTE W_Params
READ TabInterv FROM F.TPSTEMPO, "AFFICHEPLANNINGTest" ELSE
	TabInterv = ""
	TabInterv<1> = "#FIN"
END
EXECUTE 'COMO ON VerifChevauchAidant.csv'
PRINT "Aidant;Aide1;Jour1;HreDeb1;HreFin1;Aide2;Jour2;HreDeb2;HreFin2;Date"
i = 0
W_Jour=0
LOOP
i = i + 1
W_Jour=W_Jour+1
WHILE TabInterv<i>[1,4] # "#FIN"
IF TabInterv<i>[1,1] # "#" THEN
	W_HreDeb = 2400
	W_HreFin = 0
	W_AncCle = ""
	k = 0
	LOOP
	k = k + 1
	WHILE TabInterv<i,1,k> # ""
		IF TabInterv<i,1,k>[1,6] = "Interv" AND LEN(TabInterv<i,1,k>) = 7 THEN
			IF TabInterv<i,2,k> < W_HreFin AND TabInterv<i,3,k> > W_HreDeb THEN
*				PRINT TabInterv<i,4,k>:" - ":W_AncCle
				PRINT TabInterv<i,4,k>[1,5]:";":TabInterv<i,4,k>[6,5]:";":TabInterv<i,4,k>[22,1]:";":TabInterv<i,2,k>:";":TabInterv<i,3,k>:";":W_AncCle[6,5]:";":W_AncCle[22,1]:";":W_HreDeb:";":W_HreFin:";":OCONV(W_DateDeb+W_Jour,"D4/")
			END
		END
		W_HreDeb = TabInterv<i,2,k>
		W_HreFin = TabInterv<i,3,k>
		W_AncCle = TabInterv<i,4,k>	
	REPEAT
END ELSE
W_Jour = -1
END
REPEAT
EXECUTE 'COMO OFF'
STOP
