EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "DICT", "TPSDETAILSINTERV" TO F.DICT THEN
	ENR=""
	ENR<1> = "V"
	ENR<2> = 'OCONV(AbsAidantDetailsInterv,@VM:"TABSENCESAIDANT;X;;2")'
	ENR<3> = ""
	ENR<4> = "Fin absence"
	ENR<5> = "5R"
	ENR<6> = "S"
	WRITE ENR ON F.DICT, "FinAbs"
END
CLOSE F.DICT
RETURNVAL = 0
W_Sortie = ""
* 1er traitement : traitement des articles de TPSREMPLACEAIDANT sous l'ancien format :
OPEN "DICT", "TPSREMPLACEAIDANT" TO F.DICT THEN
	ENR=""
	ENR<1> = "V"
	ENR<2> = 'LEN(FIELD(IntervTitulaire,CHAR(253),1))'
	ENR<3> = ""
	ENR<4> = "Longueur att1"
	ENR<5> = "2R"
	ENR<6> = "S"
	WRITE ENR ON F.DICT, "LEN1"
END
CLOSE F.DICT
OPEN "DICT", "TPSREMPLACEAIDANT" TO F.DICT THEN
	ENR=""
	ENR<1> = "V"
	ENR<2> = 'OCONV(IntervTitulaire,@VM:"TTPSDETAILSINTERV;X;;2")'
	ENR<3> = ""
	ENR<4> = "Hre Fin"
	ENR<5> = "4R"
	ENR<6> = "MV"
	WRITE ENR ON F.DICT, "HreFin"
	ENR=""
	ENR<1> = "V"
	ENR<2> = 'OCONV(IntervTitulaire,@VM:"TTPSDETAILSINTERVARCH;X;;2")'
	ENR<3> = ""
	ENR<4> = "Hre Fin"
	ENR<5> = "4R"
	ENR<6> = "MV"
	WRITE ENR ON F.DICT, "HreFinArch"
END
OPEN "DICT","ABSENCESAIDANT" TO F.DICT THEN
ENR= ""
ENR<1> = "V"
ENR<2> = 'OCONV(@ID,@VM:"TTPSREMPLACEAIDANT;X;;0")' 
ENR<3> = ""
ENR<4> = "Presence TpsRemplaceaidant"
ENR<5> = "12R"
ENR<6> = "S"
WRITE ENR ON F.DICT, "PresenceTps"
END
CLOSE F.DICT
