PRINT "Periode debut (AAAAMM) ?"
INPUT W_PerDeb

PRINT "Periode fin (AAAAMM) ?"
INPUT W_PerFin

EXECUTE 'COMO ON ComptagePointages.txt'

FOR I = W_PerDeb TO W_PerFin
	IF W_PerDeb[5,2]="13" THEN W_PerDeb=W_PerDeb[1,4]+1:"01"
	
	W_DateDeb=""
	W_DateFin=""
	
	W_DateDeb=ICONV("01/":I[5,2]:"/":I[1,4],"D4/")
	W_DateFin=W_DateDeb+32
	W_DateFin=OCONV(W_DateFin,"D4/")
	W_DateFin=ICONV("01/":W_DateFin[4,7],"D4/")
	
	PRINT "************************************************"
	PRINT "************************************************"
	PRINT "************************************************"
	PRINT "Periode ":I
	PRINT "************************************************"
	PRINT "************************************************"
	PRINT "************************************************"
	
	PRINT "Pointages PRESTATAIRES - Debut"
	EXECUTE 'COUNT TLGPOINTAGE AVEC TypeActivite = "P" AND AVEC 3 >= "':W_DateDeb:'" AND < "':W_DateFin:'" AND AVEC 1 <> ""'	
	PRINT "------------------------------------------------"
	PRINT "Pointages PRESTATAIRES - Debut - Archives"
	EXECUTE 'COUNT TLGPOINTAGEARCH AVEC TypeActivite = "P" AND AVEC 3 >= "':W_DateDeb:'" AND < "':W_DateFin:'" AND AVEC 1 <> ""'		
	
	PRINT "------------------------------------------------"
	PRINT "------------------------------------------------"
	PRINT "------------------------------------------------"
	
	PRINT "Pointages PRESTATAIRES - Fin"
	EXECUTE 'COUNT TLGPOINTAGE AVEC TypeActivite = "P" AND AVEC 3 >= "':W_DateDeb:'" AND < "':W_DateFin:'" AND AVEC 2 <> ""'	
	PRINT "------------------------------------------------"
	PRINT "Pointages PRESTATAIRES - Fin - Archives"
	EXECUTE 'COUNT TLGPOINTAGEARCH AVEC TypeActivite = "P" AND AVEC 3 >= "':W_DateDeb:'" AND < "':W_DateFin:'" AND AVEC 2 <> ""'	
	
	PRINT "------------------------------------------------"	
	PRINT "------------------------------------------------"
	PRINT "------------------------------------------------"
	
	PRINT "Pointages MANDATAIRES - Debut"
	EXECUTE 'COUNT TLGPOINTAGE AVEC TypeActivite = "M" AND AVEC 3 >= "':W_DateDeb:'" AND < "':W_DateFin:'" AND AVEC 1 <> ""'	
	PRINT "------------------------------------------------"
	PRINT "Pointages MANDATAIRES - Debut - Archives"
	EXECUTE 'COUNT TLGPOINTAGEARCH AVEC TypeActivite = "M" AND AVEC 3 >= "':W_DateDeb:'" AND < "':W_DateFin:'" AND AVEC 1 <> ""'		
	
	PRINT "------------------------------------------------"	
	PRINT "------------------------------------------------"
	PRINT "------------------------------------------------"
	
	PRINT "Pointages MANDATAIRES - Fin"
	EXECUTE 'COUNT TLGPOINTAGE AVEC TypeActivite = "M" AND AVEC 3 >= "':W_DateDeb:'" AND < "':W_DateFin:'" AND AVEC 2 <> ""'	
	PRINT "------------------------------------------------"
	PRINT "Pointages MANDATAIRES - Fin - Archives"
	EXECUTE 'COUNT TLGPOINTAGEARCH AVEC TypeActivite = "M" AND AVEC 3 >= "':W_DateDeb:'" AND < "':W_DateFin:'" AND AVEC 2 <> ""'		
NEXT I

EXECUTE 'COMO OFF'

STOP