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

PRINT "Type de contrat :":
INPUT W_TypeContrat

PRINT "Convention collective :":
INPUT W_ConvCol

PRINT "Secteur :":
INPUT W_Secteur

EXECUTE 'SELECT DETAILCALCUL AVEC @ID >= "[200008" AND AVEC @ID <= "[200107" AND AVEC ConvColContratDetailCalcul = "':W_ConvCol:'" AND AVEC ContratSupp = "" AND AVEC TypeContrat ="':W_TypeContrat:'" AND AVEC SecteurAidantDetailCalcul # "010" AND AVEC SecteurAidantDetailCalcul # "':W_Secteur:'"'


W_Total=0
W_Fini="FAUX"
LOOP
   READNEXT W_Cle ELSE W_Fini="VRAI"
WHILE W_Fini="FAUX" DO
   READ ENR_DETAILCALCUL FROM F.DETAILCALCUL,W_Cle ELSE PRINT "DETAILCALCUL"
   i=1
   LOOP
   WHILE ENR_DETAILCALCUL<2,i> # "" DO
       READ ENR_RUBSAISIE FROM F.RUBSAISIE,ENR_DETAILCALCUL<2,i> ELSE PRINT "RUBSAISIE"
        IF ENR_RUBSAISIE<2> = "3" OR ENR_RUBSAISIE<2> = "4" OR ENR_DETAILCALCUL<2,i> = "806" OR ENR_DETAILCALCUL<2,i> = "815" THEN 
          W_Total = W_Total + ENR_DETAILCALCUL<3,i>
       END
      i=i+1
   REPEAT

REPEAT

PRINT "TOTAL :":W_Total

STOP
