* COMPARE RUBRIQUES DE CHARGES URSSAF plafonnees et Retraite dfinie pour les org de type "retraite salari" ENTRE ELLES DANS HISTORCUMUL
* ET AFFICHE LES DIFFERENCES
EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","HISTORCUMUL" TO F.HISTOR ELSE STOP
OPEN "","CIVILAIDANT" TO F.CIVILAIDANT ELSE STOP
EXECUTE 'SELECT TDSURSSAFPLAFOND'
W_TabPlaf = ""
W_Fin = "F"
LOOP
READNEXT W_Cle ELSE W_Fin = "V"
WHILE W_Fin = "F"
	W_TabPlaf<-1> = W_Cle
REPEAT
EXECUTE 'SELECT TDSRETRAITE AVEC TypeOrgDadsU = "03" 1'
W_TabRet = ""
W_Fin = "F"
LOOP
READNEXT W_Cle ELSE W_Fin = "V"
WHILE W_Fin = "F"
	W_TabRet<-1> = W_Cle
REPEAT
*W_TabRet = ""
*W_TabRet<1> = "012"
*W_TabRet<2> = "010"
*W_TabRet<3> = "087"
EXECUTE 'COMO ON CompRubHistCum.txt'
PRINT "Annee (AAAA)"
INPUT W_An
PRINT "Entit juridique"
INPUT W_Assoc
EXECUTE 'SELECT HISTORCUMUL AVEC 0 = "[':W_An:W_Assoc:'"'
W_FIN=0
W_TOTAL=0
W_TOTAL2=0
W_DIFFTOTALE = 0
LOOP
	READNEXT CLE ELSE W_FIN=1
	UNTIL W_FIN=1 DO

	W_T1=0
	W_T2=0

	READ ENR_HISTORCUMUL FROM F.HISTOR,CLE ELSE ENR_HISTORCUMUL=""
	I=1
	LOOP
		UNTIL ENR_HISTORCUMUL<15,I>="" DO
	
		IF INDEX(W_TabPlaf,ENR_HISTORCUMUL<15,I>,1)#0 THEN 
			W_TOTAL=W_TOTAL+ENR_HISTORCUMUL<17,I>
			W_T1=W_T1+ENR_HISTORCUMUL<17,I>
		END
		IF INDEX(W_TabRet,ENR_HISTORCUMUL<15,I>,1)#0 THEN
			W_TOTAL2=W_TOTAL2+ENR_HISTORCUMUL<17,I>	
			W_T2=W_T2+ENR_HISTORCUMUL<17,I>
		END
 
		I=I+1
	REPEAT

	IF INT(W_T1)#INT(W_T2) THEN 
		READ ENR_CIVILAIDANT FROM F.CIVILAIDANT,CLE[1,5] ELSE ENR_CIVILAIDANT=""
		PRINT CLE[1,5]:" ":ENR_CIVILAIDANT<2>:" ":ENR_CIVILAIDANT<3>
		PRINT "Plafonnee  : ":W_T1/100
		PRINT "Retraite   : ":W_T2/100
		PRINT "DIFF : ":(W_T1-W_T2)/100
		W_DIFFTOTALE = W_DIFFTOTALE + W_T1-W_T2
	END
	 
REPEAT

PRINT " "
PRINT " Total URSSAF plafonnee ":W_RUB1:" : ":W_TOTAL/100
PRINT " Total retraite salarie ":W_RUB2:" : ":W_TOTAL2/100
PRINT "Differences cumulees : ":W_DIFFTOTALE/100

EXECUTE 'COMO OFF'

STOP
