************************************
* STAT UNASSAD ACTIVITE MANDATAIRE *
* FAIT LE 02/10/2002 POUR SAINT-LO - DIDIER
************************************

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

   EXECUTE 'TSELECT STATACTAIDE AVEC PeriodeAct >= "200101" AND <= "200112" PAR CodeAide'
   EXECUTE 'SAUVE-LISTE LISTSTAT'
   EXECUTE 'LISTE LISTSTAT' RETURNING W_MSG
   IF W_MSG<1>#"209" THEN
    SELECT F.STATACTAIDE TO LISTSTAT
   END ELSE
    STOP
   END
   W_TOTALPRESTSIMPLE=0
   W_TOTALPRESTQUALPLUS70=0
   W_TOTALPRESTQUALMOINS70=0
   W_TOTALMANDSIMPLE=0
   W_TOTALMANDQUALPLUS70=0
   W_TOTALMANDQUALMOINS70=0
   W_TOTALMAND=0
   W_TOTALPREST=0
   W_SauveAide=""
   W_End="FAUX"

   LOOP
      READNEXT W_Cle FROM LISTSTAT ELSE W_End = "VRAI"
   WHILE W_End = "FAUX" DO
      READ ENR_STATACTAIDE FROM F.STATACTAIDE,W_Cle ELSE ENR_STATACTAIDE=""

      IF W_SauveAide # W_Cle[1,5] THEN
         IF W_SauveAide # "" THEN
            GOSUB 100
         END
         W_SauveAide = W_Cle[1,5]
         W_TOTALMAND=0
         W_TOTALPREST=0
      END
      I=1
      LOOP
       ACTIVITE=ENR_STATACTAIDE<1,I>
       UNTIL ACTIVITE="" DO
        IF ACTIVITE="001002" THEN
         W_TOTALMAND=W_TOTALMAND+ENR_STATACTAIDE<2,I>
        END ELSE
         W_TOTALPREST=W_TOTALPREST+ENR_STATACTAIDE<2,I>
        END
        I=I+1
      REPEAT

   REPEAT

   GOSUB 100

   W_TOTALPRESTSIMPLE=W_TOTALPRESTSIMPLE "R26,(#10)"
   W_TOTALMANDSIMPLE=W_TOTALMANDSIMPLE "R26,(#10)"
   W_TOTALPRESTQUALMOINS70=W_TOTALPRESTQUALMOINS70 "R26,(#10)"
   W_TOTALPRESTQUALPLUS70=W_TOTALPRESTQUALPLUS70 "R26,(#10)"
   W_TOTALMANDQUALMOINS70=W_TOTALMANDQUALMOINS70 "R26,(#10)"
   W_TOTALMANDQUALPLUS70=W_TOTALMANDQUALPLUS70 "R26,(#10)"
   PRINT "AGREMENT SIMPLE - HEURES PRESTATAIRES                       : ":W_TOTALPRESTSIMPLE
   PRINT "AGREMENT SIMPLE - HEURES MANDATAIRES                        : ":W_TOTALMANDSIMPLE
   PRINT
   PRINT "AGREMENT QUALITE - HEURES PRESTATAIRES + 70 ANS             : ":W_TOTALPRESTQUALPLUS70
   PRINT "AGREMENT QUALITE - HEURES PRESTATAIRES - 70 ANS DEPENDANTES : ":W_TOTALPRESTQUALMOINS70
   PRINT "AGREMENT QUALITE - HEURES MANDATAIRES + 70 ANS              : ":W_TOTALMANDQUALPLUS70
   PRINT "AGREMENT QUALITE - HEURES MANDATAIRES - 70 ANS DEPENDANTES  : ":W_TOTALMANDQUALMOINS70

STOP

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

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


   IF ENR_CIVILAIDE<20> <= -13149 THEN
    IF W_TOTALMAND#0 THEN
     IF ENR_ELTSPARTEMP<9>="00" THEN
      W_TOTALMANDQUALMOINS70=W_TOTALMANDQUALMOINS70+W_TOTALMAND
     END ELSE
      W_TOTALMANDQUALPLUS70=W_TOTALMANDQUALPLUS70+W_TOTALMAND
     END
    END
    W_TOTALPRESTQUALPLUS70=W_TOTALPRESTQUALPLUS70+W_TOTALPREST
   END ELSE
    W_TOTALMANDSIMPLE=W_TOTALMANDSIMPLE+W_TOTALMAND
    IF W_TOTALPREST#0 THEN
     EXECUTE 'TSELECT ACCORD AVEC CodAideAccord = "':W_SauveAide:'" AND AVEC 1 = "007" OR = "125"'
     EXECUTE 'SAUVE-LISTE LISTACCORD'
     EXECUTE 'LISTE LISTACCORD' RETURNING W_MSG1
     IF W_MSG1<1>#"209" THEN
      W_TOTALPRESTQUALMOINS70=W_TOTALPRESTQUALMOINS70+W_TOTALPREST
     END ELSE
      W_TOTALPRESTSIMPLE=W_TOTALPRESTSIMPLE+W_TOTALPREST
     END
    END
   END

RETURN
