*
* GENERATION REGULARISATION DE CHARGES
*
W_TAUXSAL="800"
W_TAUXPAT="1160"
W_PERDEB="200012"
W_PERFIN="200102"
PRINTER ON

EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","REGULCHARGE" TO F.REGULCHARGE ELSE STOP
OPEN "","HISTORCUMUL" TO F.HISTORCUMUL ELSE STOP
OPEN "","ELTSPARTEMP" TO F.ELTSPARTEMP ELSE STOP
OPEN "","CONTRAT" TO F.CONTRAT ELSE STOP
OPEN "","COMPLFACT" TO F.COMPLFACT ELSE STOP
OPEN "","RUBCHARGE" TO F.RUBCHARGE ELSE STOP
OPEN "","CIVILAIDANT" TO F.CIVILAIDANT ELSE STOP
OPEN "","COMPTESPARTICULIERS" TO F.COMPTESPARTICULIERS ELSE STOP

EXECUTE 'TSELECT CONTRAT AVEC 1 = "01" AND AVEC 2 = "001" AND AVEC 65 # "O" AND AVEC DatFinContrat = "" OR >= "01/12/2000"'
 
W_FINI="NON"
CODEAIDANT1=""
NBCONTRAT=0
WCLE1=""
LOOP
 READNEXT W_CLE ELSE
  W_FINI="OUI"
  IF NBCONTRAT>1 THEN GOSUB 100
 END
 UNTIL W_FINI="OUI" DO
  CODEAIDANT=W_CLE[1,5]
  IF CODEAIDANT1="" THEN CODEAIDANT1=CODEAIDANT
  IF CODEAIDANT1#CODEAIDANT THEN
   IF NBCONTRAT>1 THEN GOSUB 100
   CODEAIDANT1=CODEAIDANT
   NBCONTRAT=1
   WCLE1=W_CLE 
  END ELSE
   NBCONTRAT=NBCONTRAT+1
   WCLE1=W_CLE
  END
REPEAT
STOP

100
READ ENR_CONTRAT FROM F.CONTRAT,WCLE1 ELSE ENR_CONTRAT=""
DATFINCONTRAT=EXTRACT(ENR_CONTRAT,8)
IF DATFINCONTRAT#"" THEN
 IF DATFINCONTRAT<12114 THEN RETURN
END
BaseRegChg=0
READ ENR_HISTORCUMUL FROM F.HISTORCUMUL,CODEAIDANT1:"2001":ENR_CONTRAT<2> THEN
 J=1
 W_FINRECH="NON"
 LOOP
  RubChargeCal=ENR_HISTORCUMUL<15,J>
  IF RubChargeCal="" THEN W_FINRECH="OUI"
  UNTIL W_FINRECH="OUI" DO      
   READ ENR_RUBCHARGE FROM F.RUBCHARGE,RubChargeCal ELSE ENR_RUBCHARGE=""
   IF ENR_RUBCHARGE<16>="02" THEN
    W_FINRECH="OUI"
    BaseRegChg=ENR_HISTORCUMUL<16,J>
   END
   J=J+1     
 REPEAT
END
MontSalRegChg=INT(BaseRegChg*W_TAUXSAL/100000+1/2)
MontPatRegChg=INT(BaseRegChg*W_TAUXPAT/100000+1/2)
IF BaseRegChg#0 THEN
 READ ENR_CIVILAIDANT FROM F.CIVILAIDANT,CODEAIDANT1 THEN
  NOMAIDANT=EXTRACT(ENR_CIVILAIDANT,2)
  PRENOMAIDANT=EXTRACT(ENR_CIVILAIDANT,3)
  NOMAIDANT=NOMAIDANT:" ":PRENOMAIDANT
  NOMAIDANT=NOMAIDANT "L(#30)"
  MONTANTSAL=MontSalRegChg "R26,(#7)"
  MONTANTPAT=MontPatRegChg "R26,(#7)"
  PRINT CODEAIDANT1:" ":NOMAIDANT:"   ":MONTANTSAL:" ":MONTANTPAT
 END
END
RETURN

