*************************************************
* REGULARISATION DE LA PREVOYANCE
* SUITE CHGT TAUX COTIS 01/04/2005
* Nb : lePR CALCULPAIE doit avoir t mis  jour 
* afin d'inclure la rgul de charge en haut du bulletin :
* En effet, la rgul applique concernant la prvoyance, 
* + il faut l'inclure dans la base CSG/CRDS
*************************************************

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

W_CodeRub = ""
LOOP
WHILE W_CodeRub = ""
PRINT "Rubrique prvoyance ?"
INPUT W_CodeRub
READ ENR_RUB FROM F.RUBCHARGE, W_CodeRub ELSE W_CodeRub = ""
REPEAT

W_FIN="NON"
EXECUTE 'SELECT CONTRAT AVEC 1 # "02" AND AVEC 58 >= "200505" OR = "" PAR @ID'
LOOP
   READNEXT W_CleContrat ELSE W_FIN="OUI"
   UNTIL W_FIN="OUI" DO
      READ ENRDETAILCALCUL FROM F.DETAILCALCUL,W_CleContrat:"200504" THEN
	i = 0
	W_Trouve = "F"
        W_BaseRub=0
	LOOP
	   i = i + 1
	   WHILE ENRDETAILCALCUL<8,i> # "" AND W_Trouve = "F"		
	      IF ENRDETAILCALCUL<8,i> = W_CodeRub THEN
	         W_Trouve = "V"				
		 W_BaseRub = ENRDETAILCALCUL<9,i>
	      END
	REPEAT
        IF INT(W_BaseRub * 30 / 1000 + 1/2) # 0 THEN
	   ENR_REGULCHARGE = ""
	   ENR_REGULCHARGE<1> = W_BaseRub
	   ENR_REGULCHARGE<2> = "30"
	   ENR_REGULCHARGE<3> = INT(W_BaseRub * 30 / 1000 + 1/2)
	   ENR_REGULCHARGE<4> = "30"
	   ENR_REGULCHARGE<5> = INT(W_BaseRub * 30 / 1000 + 1/2)
	   WRITE ENR_REGULCHARGE ON F.REGULCHARGE, W_CleContrat
        END   
      END
REPEAT
STOP









