********************************************************
* GENERATION DES CONTRAT CAF                           *
* SPECIF TOULOUSE                                      *
* AOUT 2002                            STEPHANE HERVET *
********************************************************

EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","PARAMCAFAIDANT" TO F.PARAMCAFAIDANT ELSE
	EXECUTE 'CREATE.FILE PARAMCAFAIDANT 1'
	OPEN "","PARAMCAFAIDANT" TO F.PARAMCAFAIDANT ELSE 
		PRINT "PB CREATION FICHIER PARAMCAFAIDANT"
		STOP
	END
END

OPEN "","PERIODESPAIE" TO F.PERIODESPAIE ELSE STOP
OPEN "","CONTRAT" TO F.CONTRAT ELSE STOP

********************************************************
* DEBUT TRAITEMENT DES ARTICLES

READ ENR_PERIODESPAIE FROM F.PERIODESPAIE,"1" ELSE ENR_PERIODESPAIE=""

********************************************************
* TRAITEMENT
W_FIN=0

W_DateDebut = "01/":ENR_PERIODESPAIE<1>[5,2]:"/":ENR_PERIODESPAIE<1>[1,4]
W_DateDebut = ICONV(W_DateDebut,"D4/")

EXECUTE 'SELECT CONTRAT AVEC 1 # "02" AND AVEC 65 # "O" AND AVEC 7 <= "':W_DateDebut:'" AND AVEC 8 >= "':W_DateDebut:'" OR = ""' 

LOOP
	READNEXT CLE ELSE W_FIN=1
	UNTIL W_FIN=1 DO

	W_CODEAIDANT=CLE[1,5]

	READ ENR_CONTRAT FROM F.CONTRAT,CLE ELSE ENR_CONTRAT=""
	WRITE ENR_CONTRAT ON F.PARAMCAFAIDANT,W_CODEAIDANT
REPEAT

STOP
