*************************************************
* REGULARISATION SUR JANVIER DE L'ASSEDIC CAR CHANGEMENT
* DE TAUX DOIT S'APPLIQUER POUR LES REMUNERATIONS VERSEES
* A COMPTER DU 1ER JANVIER, DONC DES LA PAIE DE DECEMBRE
*************************************************
EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "", "DETAILCALCUL" TO F.DETAILCALCUL ELSE STOP
OPEN "", "REGULCHARGE" TO F.REGULCHARGE ELSE STOP
W_FIN="NON"
EXECUTE 'SELECT CONTRAT AVEC 1 = "02" AND AVEC 58 >= "200601" OR = "" PAR @ID'
LOOP
   READNEXT W_CleContrat ELSE W_FIN="OUI"
   UNTIL W_FIN="OUI" DO
      READ ENRDETAILCALCUL FROM F.DETAILCALCUL,W_CleContrat:"200601" 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> = "056" THEN
	         W_Trouve = "V"				
		 W_BaseRub = ENRDETAILCALCUL<9,i>
	      END
	REPEAT
        IF W_BaseRub#0 THEN
	   ENR_REGULCHARGE = ""
	   ENR_REGULCHARGE<1> = W_BaseRub
	   ENR_REGULCHARGE<2> = "300"
	   ENR_REGULCHARGE<3> = INT(W_BaseRub * 300 / 100000 + 1/2)
	   ENR_REGULCHARGE<4> = "300"
	   ENR_REGULCHARGE<5> = INT(W_BaseRub * 300 / 100000 + 1/2)
	   WRITE ENR_REGULCHARGE ON F.REGULCHARGE, W_CleContrat
        END   
      END
REPEAT
STOP









