***************************************************
* LISTE LES ACCORDS D'UNE CAISSE / MOIS / SECTEUR *
*                                                 *
* 27/06/01                               STEPHANE *
***************************************************

EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","ACCORD" TO F.ACCORD ELSE STOP
OPEN "","CIVILAIDE" TO F.CIVILAIDE ELSE STOP
OPEN "","ORGPRISECHARGE" TO F.ORGPRISECHARGE ELSE STOP
OPEN "","SECTEUR" TO F.SECTEUR ELSE STOP

PRINT @(-1)

0
PRINT "ORGANISME DE PRISE EN CHARGE CONCERNE (XXX):"
INPUT W_CAISSE
READ ENR_ORGPRISECHARGE FROM F.ORGPRISECHARGE,W_CAISSE ELSE 
    PRINT "CET ORGANISME N'EXISTE PAS"
    GOSUB 0
END

PRINT
PRINT "LA CAISSE CHOISIE EST : ":ENR_ORGPRISECHARGE<1>
PRINT "CONFIRMEZ-VOUS CE CHOIX (O/N):"
INPUT W_CHOIX

IF W_CHOIX="O" THEN 
    GOSUB 1
END ELSE	
    PRINT @(-1)
    GOSUB 0
END

1
PRINT
PRINT "ANNEE DE REFERENCE (AAAA):"
INPUT W_ANNEE
IF W_ANNEE MATCH "4N" ELSE GOSUB 1

2
* CALCULE DATE DEBUT + DATE FIN
W_DATEDEBUT="01/01/":W_ANNEE
W_DATEFIN="31/12/":W_ANNEE
W_DATEDEBUT=ICONV(W_DATEDEBUT,"D4/")
W_DATEFIN=ICONV(W_DATEFIN,"D4/")

EXECUTE 'SSELECT ACCORD AVEC 1 = "':W_CAISSE:'" AND AVEC 5 <= "':W_DATEFIN:'" AND AVEC 6 >= "':W_DATEDEBUT:'" AND AVEC 18 <> "O" PAR CommuneAide'

PRINTER ON

W_TABLEAU=""
W_TABLEAUSECT=""
W_SOMMECOM=0
W_SOMMEGENE=0
COMMUNEAIDE1=0
W_FIN=0
LOOP
     READNEXT CLE ELSE W_FIN=1 
     UNTIL W_FIN=1 DO

     * LECTURE FICHIER ACCORD
     READ ENR_ACCORD FROM F.ACCORD,CLE ELSE ENR_ACCORD=""

     * RECHERCHE COMMUNE DE L'AIDE
     READ ENR_CIVILAIDE FROM F.CIVILAIDE,CLE[1,5] ELSE ENR_CIVILAIDE=""
     COMMUNEAIDE=ENR_CIVILAIDE<11>
     IF COMMUNEAIDE1=0 THEN
         COMMUNEAIDE1=COMMUNEAIDE
     END
     IF COMMUNEAIDE1#COMMUNEAIDE THEN
       GOSUB 100
     END
     * PARCOURS HISTORIQUE DE L'ACCORD
     * RECHERCHE VALEURS SUR ANNEE SELECTIONNEE
     I=1
     LOOP
          UNTIL ENR_ACCORD<14,I>="" DO
	  IF ENR_ACCORD<14,I>[1,4]=W_ANNEE THEN
		W_TABLEAU<INT(ENR_ACCORD<14,I>[5,2])>=W_TABLEAU<INT(ENR_ACCORD<14,I>[5,2])>+ENR_ACCORD<16,I>
          END
	  I=I+1
     REPEAT

REPEAT
GOSUB 100

PRINT "**********************"
PRINT "**********************"
PRINT "TOTAL GEN.=":W_SOMMEGENE "R26(#10)"

PRINTER OFF

STOP

100 * AFFICHE DETAIL
         PRINT "COMMUNE : ":COMMUNEAIDE1
         FOR L=1 TO 12
      	  PRINT "MOIS ":L "R%2":" => ":W_TABLEAU<L> "R26(#10)":" HEURES"
	  W_SOMMECOM=W_SOMMECOM+W_TABLEAU<L>
	  W_SOMMEGENE=W_SOMMEGENE+W_TABLEAU<L>
         NEXT L
         PRINT
         PRINT "TOTAL     =":W_SOMMECOM "R26(#10)"
         W_SOMMECOM=0
         W_TABLEAU=0
         PRINT
         COMMUNEAIDE1=COMMUNEAIDE
RETURN
