*************************************************************
*	Actualisation priode d'effet dans contrat de travail	*
*															*
*	Valentin								 le 14/07/07 	*
*************************************************************

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

OPEN "","CONTRAT" TO F.CONTRAT ELSE PRINT "ERREUR OUVERTURE CONTRAT"

W_Fini="non"

** DEBUT **
PRINT "PROGRAMME D'ACTUALISATION DE LA PERIODE D'EFFET DANS LE CONTRAT DE TRAVAIL"

W_Req='SELECT CONTRAT AVEC 6 = "A"'

EXECUTE W_Req
EXECUTE 'SAUVE-LISTE W_Result'
EXECUTE 'LISTE W_Result' RETURNING MSGCODE

IF MSGCODE<1> # "209" THEN
	SELECT F.CONTRAT TO W_Result
	
	LOOP
		READNEXT W_Cle FROM W_Result ELSE W_Fini="oui"
	UNTIL W_Fini="oui"
		READ ENR_CONTRAT FROM F.CONTRAT,W_Cle ELSE ENR_CONTRAT=""
		ENR_CONTRAT<104>=OCONV(ENR_CONTRAT<7>,"D4/")[7,4]:OCONV(ENR_CONTRAT<7>,"D4/")[4,2]
		WRITE ENR_CONTRAT ON F.CONTRAT,W_Cle 
	REPEAT
	
END

EXECUTE 'EFFACER-LISTE W_Result'
PRINT "MISE A JOUR DE LA PERIODE D'EFFET DANS LE CONTRAT DE TRAVAIL EFFECTUEE"

STOP