* COMPTE LE NBRE DE BENEFICIAIRE MANDAT SUR UNE PERIODE

EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","DETAILCALCUL" TO F.DETAILCALCUL ELSE STOP
OPEN "","CONTRAT" TO F.CONTRAT ELSE STOP
OPEN "","CIVILAIDE" TO F.CIVILAIDE ELSE STOP
OPEN "","CIVILAIDANT" TO F.CIVILAIDANT ELSE STOP

PRINT "           Comptage des employeurs sur une priode par dpartement"
1
PRINT "PERIODE A TRAITER (AAAAMM) - DEBUT:"
INPUT W_PERIODEDEB
IF W_PERIODEDEB MATCH "6N" ELSE GOSUB 1
2
PRINT "PERIODE A TRAITER (AAAAMM) - FIN:"
INPUT W_PERIODEFIN
IF W_PERIODEFIN MATCH "6N" ELSE GOSUB 2

*PRINTER ON

* MANDATAIRE 
EXECUTE 'SELECT DETAILCALCUL AVEC @ID>="[':W_PERIODEDEB:'" AND <= "[':W_PERIODEFIN:'" AND AVEC CodAssoContratDetailCalcul="001" AND AVEC ConvColContratDetailCalcul="02" PAR CodPosAide PAR CodeAideDetailCalcul PAR @ID'
W_FINI="FAUX"
W_COMPTEUR=0
W_ANCIENCODE=""
W_DEP=""

LOOP
   READNEXT W_CLE ELSE W_FINI="VRAI"
WHILE W_FINI="FAUX" DO

    READ ENR_CONTRAT FROM F.CONTRAT,W_CLE[1,8] ELSE ENR_CONTRAT=""
	READ ENR_CIVILAIDE FROM F.CIVILAIDE,ENR_CONTRAT<3> ELSE ENR_CIVILAIDE= ""
W_Dep1=ENR_CIVILAIDE<10>[1,2]
PRINT "W_Dep1 :"W_Dep1
DEBUG
	IF W_Dep1<>W_DEP THEN
		IF W_DEP= "" THEN
			W_DEP=W_Dep1
		END ELSE
			PRINT "NOMBRE D'EMPLOYEURS DU DEP":W_DEP:" ":W_COMPTEUR
			W_DEP=W_Dep1
			W_COMPTEUR=0
		END
	END
    IF W_ANCIENCODE # ENR_CONTRAT<3> THEN
	W_ANCIENCODE=ENR_CONTRAT<3>
   	W_COMPTEUR=W_COMPTEUR+1
    END
REPEAT
PRINT "NOMBRE D'EMPLOYEURS DU DEP":W_DEP:" ":W_COMPTEUR


STOP



