EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","TABLES" TO F.TABLES ELSE STOP

* Cration de la nouvelle table
ENR_TABLES=""
ENR_TABLES<1,1>="REGROUPEMENT BUDGET"
ENR_TABLES<1,2>="1"
ENR_TABLES<1,3>=""
ENR_TABLES<1,4>=""
ENR_TABLES<1,5>="2N0"
ENR_TABLES<1,6>="40X"
ENR_TABLES<1,7>=""
ENR_TABLES<1,8>="Code"
ENR_TABLES<1,9>="Libell"

ENR_TABLES<2,1>="01"
ENR_TABLES<2,2>="02"
ENR_TABLES<2,3>="03"
ENR_TABLES<2,4>="04"
ENR_TABLES<2,5>="05"
ENR_TABLES<2,6>="06"
ENR_TABLES<2,7>="07"

ENR_TABLES<3,1>="DIRECTION"
ENR_TABLES<3,2>="SERVICES ADMINISTRATIFS"
ENR_TABLES<3,3>="PERSONNEL ENCADREMENT"
ENR_TABLES<3,4>="PERSONNEL COORDINATION SOUTIEN"
ENR_TABLES<3,5>="AIDES ET EMPLOYES A DOMICILE"
ENR_TABLES<3,6>="AUXILIAIRE VIE SOCIALE"
ENR_TABLES<3,7>="TISF"

WRITE ENR_TABLES ON F.TABLES, "REGROUPBUDGET"


* Modification de la table QUALIF pour l'adapter  la nouvelle gestion
READ ENR_TABLES FROM F.TABLES, "QUALIF" THEN
	ENR_TABLES<1,1>="Ajout de QUALIFICATION PROFESSIONNELLE"
	ENR_TABLES<1,2>="1"
	ENR_TABLES<1,3>=""
	ENR_TABLES<1,4>="REGROUPBUDGET"
	ENR_TABLES<1,5>="60X"
	ENR_TABLES<1,6>="0X"
	ENR_TABLES<1,7>="2N0"
	ENR_TABLES<1,8>="Libell"
	ENR_TABLES<1,9>=" "
	ENR_TABLES<1,10>="Code"
	
	I=0
	LOOP
		I=I+1
	WHILE ENR_TABLES<2,I><>"" DO
		ENR_TABLES<3,I>=""
		ENR_TABLES<4,I>="05"
	REPEAT
	
	WRITE ENR_TABLES ON F.TABLES, "QUALIF"
END

STOP
