******************************************************
* COMPTE LES HRES TOUS CONTRATS CONFONDUS SUR 1 MOIS *
* MANDATAIRE SUR LE EMPL > 65 SMIC                   * 
* 31/05/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:'" AND AVEC TypeActivite = "M" AND AVEC TypeExoDetailCalcul = "02" PAR CodeAideDetailCalcul PAR CodeAidantDetailCalcul'

W_AIDE=""
W_NOMAIDANT=""
W_EMPL=""
W_DETAIL=""
W_HRESCOUPLE=0
W_HRESAIDE=0

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_CONTRAT FROM F.CONTRAT,W_CLE[1,8] ELSE ENR_CONTRAT=""
     READ ENR_CIVILAIDE FROM F.CIVILAIDE,ENR_CONTRAT<3> ELSE ENR_CIVILAIDE=""

     W_NOMAIDANT=ENR_CIVILAIDANT<2>:" ":ENR_CIVILAIDANT<3>
     W_NOMAIDANT=W_NOMAIDANT[1,25] "L#25"

     IF W_AIDE<>ENR_CONTRAT<3> AND W_AIDE<>"" THEN
	  * TEST SI HRES > 65
	  IF W_HRESAIDE>65 THEN
	       W_HRESAIDE=W_HRESAIDE "24"
	       W_HRESAIDE=W_HRESAIDE "R#8"
	       PRINT W_DETAIL
	       PRINT SPACE(36):"TOTAL HRES AIDE=":W_HRESAIDE
	       PRINT ""
	  END
	  W_AIDE=ENR_CONTRAT<3>
	
	  W_DETAIL=""
	  W_EMPL=""
	  W_HRESCOUPLE=0
	  W_HRESAIDE=0
     END ELSE	  
	  W_AIDE=ENR_CONTRAT<3>
	  W_EMPL=SPACE(25)
     END

     W_EMPL=ENR_CIVILAIDE<2>:" ":ENR_CIVILAIDE<3>
     W_EMPL=W_EMPL[1,25] "L#25"

     READ ENR_DETAILCALCUL FROM F.DETAILCALCUL,W_CLE ELSE ENR_DETAILCALCUL=""

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

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

REPEAT

PRINTER OFF

STOP
