******************************************************
* COMPTE LES HRES TOUS CONTRATS CONFONDUS SUR 1 MOIS *
* ET IMPRIME LES CONTRATS > 151.67                   * 
* 14/03/2001                                STEPHANE *
******************************************************

* OUVERTURE DE FICHIERS
EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","ASSOCIATION" TO F.ASSOCIATION ELSE STOP
OPEN "","CIVILAIDANT" TO F.CIVILAIDANT ELSE STOP
OPEN "","CIVILAIDE" TO F.CIVILAIDE ELSE STOP
OPEN "","CONTRAT" TO F.CONTRAT ELSE STOP
OPEN "","DETAILCALCUL" TO F.DETAILCALCUL ELSE STOP
OPEN "","SECTEUR" TO F.SECTEUR ELSE STOP

0
PRINT "PERIODE A TRAITER (AAAAMM): "
INPUT W_MOIS
IF W_MOIS MATCH "6N" ELSE GOSUB 0

EXECUTE 'SSELECT DETAILCALCUL AVEC PeriodeDetailCalcul = "':W_MOIS:'" PAR SecteurAidantDetailCalcul PAR NomPrenomAidantDetailCalcul PAR CodeAidantDetailCalcul'

W_AIDANT=""
W_NOMAIDANT=""
W_EMPL=""
W_DETAIL=""
W_HRESCOUPLE=0
W_HRESAIDANT=0
W_SECTEUR=""

PRINTER ON

W_FINI=0
LOOP
     READNEXT W_CLE ELSE W_FINI=1
     UNTIL W_FINI=1 DO

     * LECTURE CIVILAIDANT
     READ ENR_CIVILAIDANT FROM F.CIVILAIDANT,W_CLE[1,5] ELSE ENR_CIVILAIDANT=""
     READ ENR_SECTEUR FROM F.SECTEUR,ENR_CIVILAIDANT<31> ELSE ENR_SECTEUR=""

     W_NOMAIDANT=ENR_CIVILAIDANT<2>:" ":ENR_CIVILAIDANT<3>
     W_NOMAIDANT=W_NOMAIDANT[1,25] "L#25"
 
     IF W_SECTEUR<>ENR_CIVILAIDANT<31> AND W_SECTEUR<>"" THEN PAGE
     IF W_SECTEUR<>ENR_CIVILAIDANT<31> THEN 
	  PRINT "*****************************************************************************"
	  PRINT "SECTEUR :":ENR_SECTEUR<1>     
     END

     W_SECTEUR=ENR_CIVILAIDANT<31>

     IF W_AIDANT<>W_CLE[1,5] AND W_AIDANT<>"" THEN
	  * TEST SI HRES > 151.67
	  IF W_HRESAIDANT>151.67 THEN
	       W_HRESAIDANT=W_HRESAIDANT "24"
	       W_HRESAIDANT=W_HRESAIDANT "R#8"
	       PRINT W_DETAIL
	       PRINT SPACE(34):"TOTAL HRES AIDANT=":W_HRESAIDANT
	       PRINT ""
	  END
	  W_AIDANT=W_CLE[1,5]
	
	  W_DETAIL=""
	  W_EMPL=""
	  W_HRESCOUPLE=0
	  W_HRESAIDANT=0
     END ELSE	  
	  W_AIDANT=W_CLE[1,5]	
	  W_NOMAIDANT=SPACE(25)
     END

     READ ENR_DETAILCALCUL FROM F.DETAILCALCUL,W_CLE ELSE ENR_DETAILCALCUL=""
     READ ENR_CONTRAT FROM F.CONTRAT,W_CLE[1,8] ELSE ENR_CONTRAT=""
     IF ENR_CONTRAT<1>="02" THEN
	  READ ENR_CIVILAIDE FROM F.CIVILAIDE,ENR_CONTRAT<3> ELSE ENR_CIVILAIDE=""
	  W_EMPL=ENR_CIVILAIDE<2>:" ":ENR_CIVILAIDE<3>
	  W_EMPL=W_EMPL[1,25] "L#25"
     END ELSE
	  READ ENR_ASSOCIATION FROM F.ASSOCIATION,ENR_CONTRAT<2> ELSE ENR_ASSOCIATION=""
	  W_EMPL=ENR_ASSOCIATION<1> "L#25"
     END

     W_HRESCOUPLE=ENR_DETAILCALCUL<6>/100 "24"
     W_HRESCOUPLE=W_HRESCOUPLE "R#8"
     W_HRESAIDANT=W_HRESAIDANT+ENR_DETAILCALCUL<6>/100

     W_DETAIL=W_DETAIL:W_NOMAIDANT:" ":W_EMPL:" ":W_HRESCOUPLE:CHAR(13):CHAR(10)

REPEAT

PRINTER OFF

STOP
