*********************************************************
* STAT UNASSAD                                          *
* PERSONNEL DES SERVICES PRESTATAIRES D'AIDE A DOMICILE *
*********************************************************

EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","DETAILCALCUL" TO F.DETAILCALCUL ELSE PRINT "OUVERTURE DETAILCALCUL" ;* en lecture
OPEN "","TABLES" TO F.TABLES ELSE PRINT "OUVERTURE TABLES" ;* en lecture

*   READ ENR_TABLES FROM F.TABLES,"IMPRIMANTE" ELSE ENR_TABLES=""
*   EXECUTE ENR_TABLES<1>

   PRINTER ON


   EXECUTE 'SELECT DETAILCALCUL AVEC ConvColContratDetailCalcul # "02" AND AVEC CodAssoContratDetailCalcul = "001" AND AVEC PeriodeDetailCalcul = "200112" AND AVEC TypePersonnel = "P" PAR 0'

   W_PLUS30H=0
   W_26H30H=0
   W_19H26H=0
   W_Moins19H=0
   W_NbreHre=0
   W_Effectif=0

   
   PRINT "  PERSONNEL DES SERVICES PRESTATAIRES D'AIDE A DOMICILE"
   PRINT " "

   W_End="FAUX"

   LOOP
      READNEXT W_Cle ELSE W_End = "VRAI"
   WHILE W_End = "FAUX" DO
      READ ENR_DETAILCALCUL FROM F.DETAILCALCUL,W_Cle ELSE ENR_DETAILCALCUL=""


      BEGIN CASE
         CASE ENR_DETAILCALCUL<6> >= "13000"
            W_PLUS30H = W_PLUS30H + 1
         CASE ENR_DETAILCALCUL<6> >= "11000" AND ENR_DETAILCALCUL<6> < "13000"
            W_26H30H = W_26H30H + 1
         CASE ENR_DETAILCALCUL<6> >= "8000" AND ENR_DETAILCALCUL<6> < "11000"
            W_19H26H = W_19H26H + 1
         CASE ENR_DETAILCALCUL<6> < "8000"
            W_Moins19H = W_Moins19H + 1
      END CASE

      IF W_NbreHre = "" THEN
         W_NbreHre=0
      END

      W_NbreHre = W_NbreHre + ENR_DETAILCALCUL<6>
      W_Effectif = W_Effectif + 1


   REPEAT


   PRINT "Effectif par tranche d'heures en decembre 2001 (moyenne hebdo)"
   PRINT "30 h et plus  : ":W_PLUS30H
   PRINT "26 h - 30 h   : ":W_26H30H
   PRINT "19 h - 26 h   : ":W_19H26H
   PRINT "moins de 19 h : ":W_Moins19H 
   PRINT " "
   PRINT "Nbre heures payees en decembre 2001 : ":W_NbreHre/100
   PRINT " "
   PRINT "Moyenne heures mensuelles          : ":INT(W_NbreHre/W_Effectif)/100

   PRINTER OFF
   PRINTER CLOSE

STOP
