* COMPTE LE NBRE DE BENEFICIAIRE MANDAT AYANT DES HRES (019 OU 018) 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

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

PRINT "                         STATISTIQUES NBRE EMPLOYEURS                      "
PRINT ""
******************************************************************
*COMPTE LES EMPLOYEURS SUR L'ANNEE
******************************************************************

* MANDATAIRE 
EXECUTE 'SELECT DETAILCALCUL AVEC @ID>="[':W_PERIODEDEB:'" AND <= "[':W_PERIODEFIN:'" AND AVEC ConvColContratDetailCalcul = "02" AND AVEC TypePersonnel = "P" PAR CodeAideDetailCalcul'
W_FINI="FAUX"
W_COMPTEUR=0
W_ANCIENCODE=""
W_DEP=""
W_HRESPAYEES=0
W_NBEMPLOYEUR=0
W_ANCEMPL=0

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= ""
    READ ENR_DETAILCALCUL FROM F.DETAILCALCUL,W_CLE ELSE ENR_DETAILCALCUL= ""

    IF W_ANCEMPL # ENR_CONTRAT<3> THEN
	W_ANCEMPL=ENR_CONTRAT<3>
	W_NBEMPLOYEUR=W_NBEMPLOYEUR+1
    END
REPEAT

PRINT "NOMBRE D'EMPLOYEURS ":W_NBEMPLOYEUR
PRINT ""


STOP



