EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"

OPEN "","BUDGETDETAILCALCUL" TO F.BUDGETDETAILCALCUL ELSE STOP
OPEN "","FUSION" TO F.FUSION ELSE STOP

W_RequeteDet = ""
W_RESULTAT = ""
W_Fin = "FAUX"
W_Tab=""
W_RequeteDet ='SELECT BUDGETDETAILCALCUL AVEC 0="[2014]" '

EXECUTE W_RequeteDet
EXECUTE 'SAUVE-LISTE W_RESULTAT' 
EXECUTE "LISTE W_RESULTAT" RETURNING MSGCODE

IF MSGCODE<1> # 209 THEN
   W_Tab<1>="code aidant;Brut;Prevoyance inca;Prevoyance inca cadre;Mutuelle;Taxe salaire"
  SELECT F.BUDGETDETAILCALCUL TO W_RESULTAT
  W_Fin = "FAUX"
  LOOP
    READNEXT W_Cle FROM W_RESULTAT ELSE W_Fin = "VRAI"
  WHILE W_Fin = "FAUX" DO
  
    READ ENR_BUDGETDETAILCALCUL FROM F.BUDGETDETAILCALCUL, W_Cle ELSE ENR_BUDGETDETAILCALCUL= ""
	
	W_Base057=""
	W_Base085=""
	W_Base082=""
	W_Base053=""
	
	FOR I =1 TO DCOUNT(ENR_BUDGETDETAILCALCUL<8>,CHAR(253))
		IF ENR_BUDGETDETAILCALCUL<8,I>="057" THEN
			W_Base057=ENR_BUDGETDETAILCALCUL<14,I>
		END
		
		IF ENR_BUDGETDETAILCALCUL<8,I>="085" THEN
			W_Base085=ENR_BUDGETDETAILCALCUL<14,I>
		END
		
		IF ENR_BUDGETDETAILCALCUL<8,I>="082" THEN
			W_Base082=ENR_BUDGETDETAILCALCUL<14,I>
		END
		
		IF ENR_BUDGETDETAILCALCUL<8,I>="053" THEN
			W_Base053=ENR_BUDGETDETAILCALCUL<9,I>
		END
		
		
	NEXT I
	
	W_Mtt=W_Base057+W_Base085+W_Base082+ENR_BUDGETDETAILCALCUL<7>
	
	IF W_Mtt # W_Base053 THEN
		W_Tab<-1>=W_Cle[1,5]:";":ENR_BUDGETDETAILCALCUL<7>:";":W_Base057 "MR2":";":W_Base085 "MR2":";":W_Base082 "MR2":";":W_Base053 "MR2"
	END

  REPEAT
  WRITE W_Tab ON F.FUSION,"DIFFERENCEBASEBUDGET.csv"
END
STOP