***************************************************
* 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 CodeSecteur'

PRINTER ON

W_TABLEAU=""
W_TABLEAUSECT=""

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 SECTEUR DE L'AIDE
     GOSUB 10

     * 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<J,INT(ENR_ACCORD<14,I>[5,2])>=W_TABLEAU<J,INT(ENR_ACCORD<14,I>[5,2])>+ENR_ACCORD<16,I>
	  END

	  I=I+1
     REPEAT

REPEAT

W_SOMMEGENE=0

K=1
LOOP
     UNTIL W_TABLEAUSECT<K>="" DO

     W_SOMMESECT=0

     IF K<>1 THEN PAGE

     * AFFICHE CODE SECTEUR
     READ ENR_SECTEUR FROM F.SECTEUR,W_TABLEAUSECT<K> ELSE ENR_SECTEUR=""

     PRINT "SECTEUR ":W_TABLEAUSECT<K>:" ":ENR_SECTEUR<1>
     PRINT
     
     * AFFICHE DETAIL
     FOR L=1 TO 12

	  PRINT "MOIS ":L "R%2":" => ":W_TABLEAU<K,L> "R26(#10)":" HEURES"
	  W_SOMMESECT=W_SOMMESECT+W_TABLEAU<K,L>
	  W_SOMMEGENE=W_SOMMEGENE+W_TABLEAU<K,L>

     NEXT L

     PRINT "**********************"
     PRINT "TOTAL     =":W_SOMMESECT "R26(#10)"
     PRINT
     PRINT 
     PRINT 

     K=K+1
REPEAT

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

PRINTER OFF

STOP

******************************************
* RECHERCHE DU SECTEUR DE L'AIDE
10 *

     READ ENR_CIVILAIDE FROM F.CIVILAIDE,CLE[1,5] ELSE ENR_CIVILAIDE=""
 
     J=1
     LOOP
	  UNTIL W_TABLEAUSECT<J>=ENR_CIVILAIDE<40>[1,3] OR W_TABLEAUSECT<J>="" DO
	  J=J+1
     REPEAT

     IF W_TABLEAUSECT<J>="" THEN W_TABLEAUSECT<J>=ENR_CIVILAIDE<40>[1,3]
RETURN
