* COMPTE LE NBRE DE BENEFICIAIRE MANDAT + PREST AYANT DES HRES (019 OU 018) SUR UNE PERIODE
* STATS CHARTRES DDTE

EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","DETAILCALCUL" TO F.DETAILCALCUL ELSE STOP
OPEN "","CONTRAT" TO F.CONTRAT 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
3
PRINT "ASSOCIATION A TRAITER (XXX) : "
INPUT W_ASSO
IF W_ASSO MATCH "3N" ELSE GOSUB 3

* MANDATAIRE 
EXECUTE 'SELECT DETAILCALCUL AVEC @ID>="[':W_PERIODEDEB:'" AND <= "[':W_PERIODEFIN:'" AND AVEC CodAssoContratDetailCalcul="':W_ASSO:'" AND AVEC ConvColContratDetailCalcul="02" PAR @ID PAR CodeAideDetailCalcul'
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 MANDAT ":W_COMPTEUR

* PRESTATAIRE
EXECUTE 'SELECT DETAILCALCUL AVEC @ID>="[':W_PERIODEDEB:'" AND <= "[':W_PERIODEFIN:'" AND AVEC 2 = "019" OR = "018" AND AVEC CodAssoContratDetailCalcul="':W_ASSO:'" AND AVEC ConvColContratDetailCalcul#"02" PAR @ID'
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 PREST  ":W_COMPTEUR

STOP



