****************************************************
* CALCUL DU RATTRAPAGE EN MANDATAIRE SUR A APPLICATION 
* EN RETARD DE L'AVENANT A LA CCN 02 RELATIF A LA REVISION
* DES GRILLES
****************************************************
EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","CONTRAT" TO F.CONTRAT ELSE STOP
OPEN "","RATTSALANT" TO F.RATTSALANT ELSE STOP
OPEN "","DETAILCALCUL" TO F.DETAILCALCUL ELSE STOP
EXECUTE 'SELECT CONTRAT AVEC 1 = "02" AND AVEC DatFinContrat = "" OR >= "01/12/2003" AND AVEC 20 = "02001" OR = "02002"'
FINI="NON"
LOOP
 READNEXT CLE ELSE FINI="OUI"
 UNTIL FINI="OUI" DO
  READ ENRCONTRAT FROM F.CONTRAT,CLE THEN
   IF ENRCONTRAT<20>="02001" THEN
    IF ENRCONTRAT<23>#"6830" THEN
     READ ENRDETAILCALCUL FROM F.DETAILCALCUL,CLE:"200211" ELSE ENRDETAILCALCUL=""
     BRUT=ENRDETAILCALCUL<7>
     IF BRUT="" THEN BRUT=0
     RATSAL=INT(BRUT*3/100+1/2)
     IF RATSAL>0 THEN
      ENRRATTSALANT=""
      ENRRATTSALANT<1>=RATSAL
      WRITE ENRRATTSALANT ON F.RATTSALANT,CLE
     END
    END
   END
   IF ENRCONTRAT<20>="02002" THEN
    IF ENRCONTRAT<23>="6830" THEN
     READ ENRDETAILCALCUL FROM F.DETAILCALCUL,CLE:"200211" ELSE ENRDETAILCALCUL=""
     BRUT=ENRDETAILCALCUL<7>
     IF BRUT="" THEN BRUT=0
     RATSAL=INT(BRUT/100+1/2)
     IF RATSAL>0 THEN
      ENRRATTSALANT=""
      ENRRATTSALANT<1>=RATSAL
      WRITE ENRRATTSALANT ON F.RATTSALANT,CLE
     END
    END ELSE
     READ ENRDETAILCALCUL FROM F.DETAILCALCUL,CLE:"200211" ELSE ENRDETAILCALCUL=""
     BRUT=ENRDETAILCALCUL<7>
     IF BRUT="" THEN BRUT=0
     RATSAL=INT(BRUT*3/100+1/2)
     IF RATSAL>0 THEN
      ENRRATTSALANT=""
      ENRRATTSALANT<1>=RATSAL
      WRITE ENRRATTSALANT ON F.RATTSALANT,CLE
     END
    END
   END
  END
REPEAT
STOP
