*******************************************************************
* CALCUL MASSE FRAIS GESTION SUR AN 2000
*******************************************************************

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

   EXECUTE 'SELECT FACTURAIDE AVEC ActiviteFact = "M" AND AVEC PeriodeCleFactAide = "2000]" PAR-DECR @ID'

   W_End="FAUX"

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

      IF W_ANCIEN<>W_Cle[1,25] THEN
	W_ANCIEN=W_Cle[1,25]
        i=1
        LOOP
	  UNTIL ENR_FACTURAIDE<2,i>="" DO
	  IF ENR_FACTURAIDE<2,i>="FRAIS DE GESTION" THEN
		W_MONTANT=W_MONTANT+ENR_FACTURAIDE<5,i>
	  END
	  i=i+1
        REPEAT
      END
   REPEAT

   PRINT "FRAIS DE GESTION 2000=":W_MONTANT
STOP
