
EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","CONTRAT" TO F.CONTRAT ELSE STOP
OPEN "","HISTORCUMUL" TO F.HISTORCUMUL ELSE STOP
OPEN "","TAMPONDADS" TO F.TAMPONDADS ELSE STOP

W_CODEENTITE="001"
W_DEBUTAN="01/12/1999"
W_DEBUTAN=ICONV(W_DEBUTAN,"D4/")
W_FINAN="30/11/2000"
W_FINAN=ICONV(W_FINAN,"D4/")


** GESTION CONTRAT
EXECUTE 'TSELECT CONTRAT AVEC 1 <> "02" AND AVEC 2 = "':W_CODEENTITE:'" AND AVEC 8 >= "':W_DEBUTAN:'" OR = "" AND AVEC 7 <= "':W_FINAN:'" PAR 0'
EXECUTE "SAUVE-LISTE CONTRATDADS"
EXECUTE "LISTE CONTRATDADS" CAPTURING MSGCODE RETURNING MSGCODE

SELECT F.CONTRAT TO CONTRATDADS

I=1
ENR_TAMPONDADS=""
W_REQVIDE="FAUX"
LOOP
    * LECTURE RESULTAT REQUETE JUSQUE REQUETE = VIDE
    READNEXT CLE FROM CONTRATDADS ELSE W_REQVIDE="VRAI"
    UNTIL W_REQVIDE="VRAI" DO
 
    WRITE ENR_TAMPONDADS ON F.TAMPONDADS,CLE[1,5]
REPEAT

** GESTION HISTORCUMUL
EXECUTE 'TSELECT HISTORCUMUL AVEC PeriodeHistCum = "2000" AND AVEC PrestManda = "P" AND AVEC EmployeurHistCum = "001"'

I=1
ENR_TAMPONDADS=""
W_REQVIDE="FAUX"
LOOP
    * LECTURE RESULTAT REQUETE JUSQUE REQUETE = VIDE
    READNEXT CLE ELSE W_REQVIDE="VRAI" ;**FROM CONTRATDADS2 ELSE W_REQVIDE="VRAI"
    UNTIL W_REQVIDE="VRAI" DO
 
    * TEST SI CONTRAT OK
    READ ENR_TAMPONDADS2 FROM F.TAMPONDADS,CLE[1,5] ELSE
	ENR_TAMPONDADS<I>=CLE[1,5]
	I=I+1
    END
REPEAT

WRITE ENR_TAMPONDADS ON F.TAMPONDADS,"1"

STOP
