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

W_RequeteMoul=""

EXECUTE 'SELECT ELTSPARTEMP AVEC 16 ="2002]" AND AVEC 14 = "" AND AVEC 1 # ""'

EXECUTE 'SAUVE-LISTE W_RequeteMoul'
EXECUTE "LISTE W_RequeteMoul" RETURNING MSGCODE

IF MSGCODE<1> # 209 THEN
   SELECT F.ELTSPARTEMP TO W_RequeteMoul

   W_Fini="FAUX"
   LOOP
      READNEXT W_Cle FROM W_RequeteMoul ELSE W_Fini="VRAI"
   WHILE W_Fini="FAUX" DO
      READ ENR_ELTSPARTEMP FROM F.ELTSPARTEMP,W_Cle ELSE PRINT "ELTSPARTEMP :":W_Cle
      ENR_ELTSPARTEMP<5>="12510"
      ENR_ELTSPARTEMP<7>="1"
      ENR_ELTSPARTEMP<15>="04"
      WRITE ENR_ELTSPARTEMP ON F.ELTSPARTEMP,W_Cle
      
      EXECUTE 'SELECT CONTRAT AVEC 65 # "O" AND AVEC 3 = "':W_Cle:'" AND AVEC 8 > "12420" OR = ""'
      EXECUTE 'SAUVE-LISTE W_RequeteContrat'
      EXECUTE "LISTE W_RequeteContrat" RETURNING MSGCODE
      W_FiniContrat="FAUX"
      LOOP
         READNEXT W_CleContrat FROM W_RequeteMoul ELSE W_FiniContrat="VRAI"
      WHILE W_FiniContrat="FAUX" DO
         READ ENR_CONTRAT FROM F.CONTRAT,W_CleContrat ELSE PRINT "CONTRAT :":W_CleContrat
         ENR_CONTRAT<29>="04"
         WRITE ENR_CONTRAT ON F.CONTRAT,W_CleContrat
      REPEAT
   REPEAT

END

STOP

* SETPTR 0,,,,,1, "MODE=RAW",DEST \\SERVEURINF\MATRICEPSON,NOHEAD,NOFMT,EJECT,COPIES 1,BRIEF
* PRINTER ON
