************************************
* STAT UNASSAD ACTIVITE MANDATAIRE *
************************************

EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","DETAILCALCUL" TO F.DETAILCALCUL ELSE PRINT "OUVERTURE DETAILCALCUL" ;* en lecture
OPEN "","CIVILAIDE" TO F.CIVILAIDE ELSE PRINT "OUVERTURE CIVILAIDE" ;* en lecture
OPEN "","CONTRAT" TO F.CONTRAT ELSE PRINT "OUVERTURE CONTRAT" ;* en lecture
OPEN "","ELTSPARTEMP" TO F.ELTSPARTEMP ELSE PRINT "OUVERTURE ELTSPARTEMP" ;* 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 PeriodeDetailCalcul >= "200101" AND AVEC PeriodeDetailCalcul <= "200112" PAR CodeAideDetailCalcul'

   W_TotalAtt6=0
   W_TotalAtt41=0
   W_NbrePlus70=0
   W_NbreMoins70=0
   W_NbreHrePlus70=0
   W_NbreHreMoins70=0
   W_SauveAide=""
   W_Temp=""
   W_TabDyn=""
   
   PRINT "  ACTIVITE MANDATAIRE"
   PRINT " "

   PRINT SPACE(30):"HRES PAYEES         HRES TRAVAILLEES    NB EMPLOYEURS"
   GOSUB 200
   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=""
      READ ENR_CONTRAT FROM F.CONTRAT,W_Cle[1,8] ELSE ENR_CONTRAT=""

      IF W_SauveAide # ENR_CONTRAT<3> THEN

         IF W_SauveAide # "" THEN
            GOSUB 100
         END

         W_SauveAide = ENR_CONTRAT<3>
         W_TotalAtt41=0
         W_TotalAtt6=0

      END

      W_TotalAtt6=W_TotalAtt6+ENR_DETAILCALCUL<6>

      W_TotalAtt41=W_TotalAtt41+ENR_DETAILCALCUL<41>

   REPEAT

   GOSUB 100


   FOR i=1 TO 11
      W_Temp=W_TabDyn<4,i>:SPACE(30-LEN(W_TabDyn<4,i>))
      W_Temp=W_Temp:W_TabDyn<1,i>/100:SPACE(20-LEN(W_TabDyn<1,i>/100))
      W_Temp=W_Temp:W_TabDyn<2,i>/100:SPACE(20-LEN(W_TabDyn<2,i>/100))
      W_Temp=W_Temp:W_TabDyn<3,i>
      PRINT W_Temp
   NEXT i

   PRINT " "
   PRINT "                 Nbre heures    Nbre aids"
   PRINT "Aides + 70 ans : ":W_NbreHrePlus70/100:SPACE(15-LEN(W_NbreHrePlus70/100)):W_NbrePlus70
   PRINT "Aides - 70 ans : ":W_NbreHreMoins70/100:SPACE(15-LEN(W_NbreHreMoins70/100)):W_NbreMoins70

   PRINTER OFF
   PRINTER CLOSE

STOP

**********************************************************************************
100

   READ ENR_ELTSPARTEMP FROM F.ELTSPARTEMP,W_SauveAide ELSE ENR_ELTSPARTEMP=""
   READ ENR_CIVILAIDE FROM F.CIVILAIDE,W_SauveAide ELSE ENR_CIVILAIDE=""

   BEGIN CASE
      CASE ENR_ELTSPARTEMP<9> = "01"
         W_Mv=1
      CASE ENR_ELTSPARTEMP<9> = "02"
         W_Mv=2
      CASE ENR_ELTSPARTEMP<9> = "03"
         W_Mv=3
      CASE ENR_ELTSPARTEMP<9> = "04" 
         W_Mv=4
      CASE ENR_ELTSPARTEMP<9> = "05"
         W_Mv=5
      CASE ENR_ELTSPARTEMP<9> = "06"
         W_Mv=6
      CASE ENR_ELTSPARTEMP<9> = "07"
         W_Mv=7
      CASE ENR_ELTSPARTEMP<9> = "08"
         W_Mv=8
      CASE ENR_ELTSPARTEMP<9> = "09"
         W_Mv=9
      CASE ENR_ELTSPARTEMP<9> = "10"
         W_Mv=10
      CASE ENR_ELTSPARTEMP<9> = "00"
         W_Mv=11
   END CASE

   FOR i = 1 TO 3
      IF W_TabDyn<i,W_Mv> = "" THEN
         W_TabDyn<i,W_Mv>=0
      END
   NEXT i

   W_TabDyn<1,W_Mv>=W_TabDyn<1,W_Mv>+W_TotalAtt6
   W_TabDyn<2,W_Mv>=W_TabDyn<2,W_Mv>+W_TotalAtt41
   W_TabDyn<3,W_Mv>=W_TabDyn<3,W_Mv>+1

   IF ENR_CIVILAIDE<20> <= -13149 THEN
      W_NbrePlus70=W_NbrePlus70+1 
      W_NbreHrePlus70=W_NbreHrePlus70+W_TotalAtt41
   END ELSE
      W_NbreMoins70=W_NbreMoins70+1
      W_NbreHreMoins70=W_NbreHreMoins70+W_TotalAtt41
   END
   


RETURN

**********************************************************************************
200

   W_TabDyn<4,1>="AGED"
   W_TabDyn<4,2>="PLUS 70 ANS"
   W_TabDyn<4,3>="ALLOC. EDUCATION SPECIALE"
   W_TabDyn<4,4>="TITULAIRE PENSION INVALID."
   W_TabDyn<4,5>="AVANTAGE VIEILLESSE"
   W_TabDyn<4,6>="ALLOC. COMPENS. TIERCE PERS."
   W_TabDyn<4,7>="MAJORATION TIERCE PERS."
   W_TabDyn<4,8>="PSD"
   W_TabDyn<4,9>="DEGRE DE DEPENDANCE"
   W_TabDyn<4,10>="APA"
   W_TabDyn<4,11>="PAS D'EXONERATION"

RETURN
