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

   PRINT "Priode (AAAAMM) : "
   INPUT W_Periode

   EXECUTE 'SELECT FACTURAIDE AVEC CodeSecteurFact = "060" OR = "030" OR = "070" OR = "010" OR = "080" OR = "040" OR = "050" OR = "020" AND AVEC ActiviteFact = "M" AND AVEC PeriodeCleFactAide = "':W_Periode:'" AND AVEC MotifExoAide = "08" OR = "11" PAR MotifExoAide PAR NomPrenomAideFact PAR-DECR @ID'

   PRINTER ON

   W_End="FAUX"
   W_BASEPSD=0
   W_MONTPSD=0
   W_BASEAPA=0
   W_MONTAPA=0
   W_ANCIEN=""
   W_BASE=0
   W_MONT=0
   W_SAUVEEXO=""
   PRINT SPACE(47):"HEURES               MONTANT"
   
   LOOP
      READNEXT W_Cle ELSE W_End = "VRAI"
   WHILE W_End = "FAUX" DO
      READ ENR_FACTURAIDE FROM F.FACTURAIDE,W_Cle ELSE ENR_FACTURAIDE=""
      READ ENR_ELTSPARTEMP FROM F.ELTSPARTEMP,W_Cle[1,5] ELSE ENR_ELTSPARTEMP=""
      READ ENR_CIVILAIDE FROM F.CIVILAIDE,W_Cle[1,5] ELSE ENR_CIVILAIDE=""

      IF W_ANCIEN # W_Cle[1,25] THEN
	 W_ANCIEN=W_Cle[1,25]

         
         IF W_SAUVEEXO # ENR_ELTSPARTEMP<9> AND W_SAUVEEXO # "" THEN
            GOSUB 10
            PRINT " "

         END

         i=1
         W_BASE=0
         W_MONT=0

         LOOP
	 UNTIL ENR_FACTURAIDE<5,i>="" DO
	    IF ENR_ELTSPARTEMP<9>="08" THEN
		W_BASEPSD=W_BASEPSD+ENR_FACTURAIDE<3,i>
		W_MONTPSD=W_MONTPSD+ENR_FACTURAIDE<5,i>
            END ELSE
		W_BASEAPA=W_BASEAPA+ENR_FACTURAIDE<3,i>
		W_MONTAPA=W_MONTAPA+ENR_FACTURAIDE<5,i>
	    END
	    W_BASE=W_BASE+ENR_FACTURAIDE<3,i>
	    W_MONT=W_MONT+ENR_FACTURAIDE<5,i>
	    i=i+1
         REPEAT

         W_Nom=ENR_CIVILAIDE<2>:" ":ENR_CIVILAIDE<3>
         IF LEN(W_Nom) > 40 THEN
            W_Nom=W_Nom[1,40]
         END ELSE
            W_Nom=W_Nom:SPACE(40-LEN(W_Nom))
         END
         W_BASE=W_BASE/100
         W_MONT=W_MONT/100

         W_BASE=SPACE(15-LEN(W_BASE)):W_BASE
         W_MONT=SPACE(15-LEN(W_MONT)):W_MONT

         PRINT W_Cle[1,5]:" ":W_Nom:" ":W_BASE:" ":W_MONT
                 
         W_SAUVEEXO=ENR_ELTSPARTEMP<9>
      END
   REPEAT

   GOSUB 10

   PRINTER OFF
   PRINTER CLOSE

STOP
 
*****************************
* IMPRIME TOTAL

10

   IF W_SAUVEEXO="08" THEN
      W_BASEPSD=W_BASEPSD/100
      W_MONTPSD=W_MONTPSD/100

      W_BASEPSD=SPACE(15-LEN(W_BASEPSD)):W_BASEPSD
      W_MONTPSD=SPACE(15-LEN(W_MONTPSD)):W_MONTPSD

      PRINT SPACE(6):"TOTAL PSD":SPACE(31):" ":W_BASEPSD:" ":W_MONTPSD
   END ELSE
      W_BASEAPA=W_BASEAPA/100
      W_MONTAPA=W_MONTAPA/100

      W_BASEAPA=SPACE(15-LEN(W_BASEAPA)):W_BASEAPA
      W_MONTAPA=SPACE(15-LEN(W_MONTAPA)):W_MONTAPA

      PRINT SPACE(6):"TOTAL APA":SPACE(31):" ":W_BASEAPA:" ":W_MONTAPA
   END

RETURN
