
*****************************************************
* PROG SORTANT LES AIDANTS PAYES EN-DESSOUS DU SMIC *
* ALAIN LE 30/04/01                                 *
*****************************************************

EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","DETAILCALCUL" TO F.DETAILCALCUL ELSE STOP
OPEN "","CIVILAIDANT" TO F.CIVILAIDANT ELSE STOP
OPEN "","SECTEUR" TO F.SECTEUR ELSE STOP

PRINT "Priode de dbut (AAAAMM) : "
INPUT PERIODE

EXECUTE 'SELECT DETAILCALCUL AVEC 0 = "[':PERIODE:'" AND AVEC 2 = "019" PAR LibSectAidant PAR NomPrenomAidantDetailCalcul'

W_Fini="FAUX"

CLE = ""
SECT = ""
IMP = ""
DEB = "TRUE"

PRINTER ON

LOOP
   READNEXT W_Cle ELSE W_Fini="VRAI"
   CLE = W_Cle[1,5]
WHILE W_Fini="FAUX" DO
	READ ENR_DETAILCALCUL FROM F.DETAILCALCUL ,W_Cle ELSE ENR_DETAILCALCUL = ""
	READ ENR_CIVILAIDANT FROM F.CIVILAIDANT ,CLE ELSE ENR_CIVILAIDANT = ""
	READ ENR_SECTEUR FROM F.SECTEUR ,ENR_CIVILAIDANT<31> ELSE ENR_SECTEUR = ""

	I = 1
	BON = "FALSE"

	LOOP
	WHILE BON = "FALSE" DO
		IF ENR_DETAILCALCUL<2,I> = "019" THEN
			IF ENR_DETAILCALCUL<4,I> < "420201" THEN
				IF SECT = ENR_SECTEUR<1> THEN
					TOT = ENR_DETAILCALCUL<6>/100
					ESP = LEN(TOT)
					IMP = CLE:' ':ENR_CIVILAIDANT<2>:' ':ENR_CIVILAIDANT<3>
					IMP = IMP "L(#60)"
					PRINT IMP:SPACE(10-ESP):TOT
					BON = "TRUE"
				END ELSE
					IF DEB = "TRUE" THEN
						DEB = "FALSE"
						PRINT '	PERIODE : ':PERIODE
						SECT = ENR_SECTEUR<1>
						BON = "TRUE"
						PRINT ' '
						PRINT '	SECTEUR : ':SECT
						PRINT ' '
						TOT = ENR_DETAILCALCUL<6>/100
						ESP = LEN(TOT)
						IMP = CLE:' ':ENR_CIVILAIDANT<2>:' ':ENR_CIVILAIDANT<3>
						IMP = IMP "L(#60)"
						PRINT IMP:SPACE(10-ESP):TOT
					END ELSE
						PAGE
						PRINT '	PERIODE : ':PERIODE
						SECT = ENR_SECTEUR<1>
						BON = "TRUE"
						PRINT ' '
						PRINT '	SECTEUR : ':SECT
						PRINT ' '
						TOT = ENR_DETAILCALCUL<6>/100
						ESP = LEN(TOT)
						IMP = CLE:' ':ENR_CIVILAIDANT<2>:' ':ENR_CIVILAIDANT<3>
						IMP = IMP "L(#60)"
						PRINT IMP:SPACE(10-ESP):TOT
					END
				END
			END
		END ELSE
			IF ENR_DETAILCALCUL<2,I> = "" THEN
				BON = "TRUE"
			END
		END
		I = I + 1
	REPEAT
REPEAT

STOP
