* NOMBRE DE SALARIES EFFECTIVEMENT INTERVENUS CHEZ LES AIDES SUR UN MOIS DONNE
* PRESTATAIRE ET MANDATAIRE

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

   PRINT "Priode (AAAA) : "
   INPUT W_Periode

   PRINT "Code entit prestataire (3 chiffres) : "
   INPUT W_EntPrest

* PRESTATAIRE
*EXECUTE 'SELECT DETAILCALCUL AVEC PeriodeDetailCalcul="':W_Periode:']" AND AVEC CodAssoContratDetailCalcul="':W_EntPrest:'" AND AVEC ConvColContratDetailCalcul="01" AND AVEC TypePersonnel="P" AND AVEC GrilleDetailCalcul="01002" OR="01001" PAR CodeAidantDetailCalcul'
EXECUTE 'SELECT DETAILCALCUL AVEC PeriodeDetailCalcul="':W_Periode:']" AND AVEC CodAssoContratDetailCalcul="':W_EntPrest:'" AND AVEC ConvColContratDetailCalcul<>"02" AND AVEC TypePersonnel="P" AND AVEC GrilleDetailCalcul="013]" PAR CodeAidantDetailCalcul'
W_FINI="FAUX"
W_COMPTEUR=0
W_ANCIENCODE=""

LOOP
   READNEXT W_CLE ELSE W_FINI="VRAI"
WHILE W_FINI="FAUX" DO
    IF W_ANCIENCODE # W_CLE[1,5] THEN
	W_ANCIENCODE=W_CLE[1,5]
   	W_COMPTEUR=W_COMPTEUR+1
    END
REPEAT
PRINT "NB SALARIES PREST  ":W_COMPTEUR

STOP
