*
* GENERATION REGULARISATION DES BASES RETRAITE
*

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

W_REQDETAIL = ""

EXECUTE 'COMO ON GENERETRAITE'

EXECUTE 'SELECT HISTORCUMUL AVEC 0 = "[2004001" PAR @ID'
EXECUTE 'SAUVE-LISTE W_REQDETAIL'
EXECUTE "LISTE W_REQDETAIL" RETURNING MSGCODE	

W_FINI="NON"

IF MSGCODE<1>#209 THEN
	SELECT F.HISTORCUMUL TO W_REQDETAIL

	LOOP
		READNEXT W_CLE FROM W_REQDETAIL ELSE W_FINI="OUI"
	UNTIL W_FINI="OUI" DO
		READ ENR_HISTORCUMUL FROM F.HISTORCUMUL,W_CLE ELSE ENR_HISTORCUMUL = ""

   		J=1
		W_RUBRETRAITE = "FAUX"
		BaseRegChg=0
   		LOOP
      	UNTIL ENR_HISTORCUMUL<15,J>="" DO 
			READ ENR_RUBCHARGE FROM F.RUBCHARGE,ENR_HISTORCUMUL<15,J> ELSE ENR_RUBCHARGE = ""
			READ ENR_TRANCHE FROM F.TRANCHE,ENR_RUBCHARGE<2> ELSE ENR_TRANCHE = ""

         		IF ENR_RUBCHARGE<16>="03" AND ENR_TRANCHE<10>="02" THEN
				IF W_RUBRETRAITE = "FAUX" THEN
					BaseRegChg = ENR_HISTORCUMUL<17,J>
					W_RUBRETRAITE = "VRAI"
				END ELSE
					ENR_HISTORCUMUL<17,J> = BaseRegChg
				END
         		END
         		J=J+1
   		REPEAT

		IF W_RUBRETRAITE = "VRAI" THEN
			PRINT 'AIDANT : ':W_CLE[1,5]:' BASE RETRAITE : ':BaseRegChg
			WRITE ENR_HISTORCUMUL ON F.HISTORCUMUL,W_CLE
		END

	REPEAT
END

EXECUTE 'COMO OFF'

STOP
