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

READ ENR_CONTRAT FROM F.CONTRAT,"HeuresJuin2003" ELSE ENR_CONTRAT = ""
ENR_CONTRAT<1>="V"
ENR_CONTRAT<2>='OCONV(@ID:"200306","TDETAILCALCUL;X;;6")'
ENR_CONTRAT<3>="MR2"
ENR_CONTRAT<4>="Heures Payees"
ENR_CONTRAT<5>="7R"
ENR_CONTRAT<6>="S"
WRITE ENR_CONTRAT ON F.CONTRAT,"HeuresJuin2003"

ENR_CONTRAT=""
READ ENR_CONTRAT FROM F.CONTRAT,"DernGrilleWContrat" THEN
   ENR_CONTRAT<5>="23L"
   WRITE ENR_CONTRAT ON F.CONTRAT,"DernGrilleWContrat"
END ELSE
   PRINT "Pas de descripteur DernGrilleWContrat" 
   STOP
END

ENR_CONTRAT=""
READ ENR_CONTRAT FROM F.CONTRAT,"DernCoefWContrat" THEN
   ENR_CONTRAT<2>='FIELD(CoefNivContrat,"",DCOUNT(CoefNivContrat,"")) / 1000'
   ENR_CONTRAT<4>="Coeff."
   WRITE ENR_CONTRAT ON F.CONTRAT,"DernCoefWContrat"
END ELSE
   PRINT "Pas de descripteur DernCoefWContrat" 
   STOP
END

EXECUTE 'LISTER CONTRAT AVEC 65 = "" AND AVEC 6 = "P" AND AVEC TypeActivite1 = "P" AND AVEC HeuresJuin2003 # "" AND AVEC DatDebContrat <= "01/10/2003" AND AVEC DatFinContrat >= "01/10/2003" OR = "" PAR DernGrilleWContrat PAR DernCoefWContrat PAR NomPrenomAidantContrat RUPTURE DernGrilleWContrat RUPTURE DernCoefWContrat NomPrenomAidantContrat TOTAL HeuresJuin2003 SUPP-ENT SUPP-ID (P'


ENR_CONTRAT=""
READ ENR_CONTRAT FROM F.CONTRAT,"DernGrilleWContrat" THEN
   ENR_CONTRAT<5>="50L"
   WRITE ENR_CONTRAT ON F.CONTRAT,"DernGrilleWContrat"
END ELSE
   PRINT "Pas de descripteur DernGrilleWContrat" 
   STOP
END

ENR_CONTRAT=""
READ ENR_CONTRAT FROM F.CONTRAT,"DernCoefWContrat" THEN
   ENR_CONTRAT<2>='FIELD(CoefNivContrat,"",DCOUNT(CoefNivContrat,""))'
   ENR_CONTRAT<4>="coefficent du contrat"
   WRITE ENR_CONTRAT ON F.CONTRAT,"DernCoefWContrat"
END ELSE
   PRINT "Pas de descripteur DernCoefWContrat" 
   STOP
END

STOP
