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

********************************************************
*           changement de gestion des conges :         *
*    payes au mois le mois depuis le 1er juin 2001,    *
* d'o modif des bulletins sur lesquels apparraissent  *
* les conges acquis avant, et effacement de ces congs *
* au niveau des contrats                               *
********************************************************

EXECUTE 'SELECT CONTRAT AVEC 1 = "02"'

W_Fin = "F"

LOOP
	READNEXT W_Cle ELSE W_Fin = "V"
WHILE W_Fin = "F"
	READ ENR_CONTRAT FROM F.CONTRAT, W_Cle ELSE ENR_CONTRAT = ""
		FOR i = 38 TO 48
			ENR_CONTRAT<i>=0
		NEXT i
		ENR_CONTRAT<85>=0
		ENR_CONTRAT<86>=0
		ENR_CONTRAT<84>=""
	WRITE ENR_CONTRAT ON F.CONTRAT, W_Cle

REPEAT

EXECUTE 'SELECT DETAILCALCUL AVEC ConvColContratDetailCalcul = "02" AND AVEC 0 = "[200106"'

W_Fin = "F"

LOOP
	READNEXT W_Cle ELSE W_Fin = "V"
WHILE W_Fin = "F"
	READ ENR_DETAILCALCUL FROM F.DETAILCALCUL, W_Cle ELSE ENR_DETAILCALCUL = ""
	ENR_DETAILCALCUL<43> = "0"
	ENR_DETAILCALCUL<44> = "0"
	ENR_DETAILCALCUL<45> = "0"
	ENR_DETAILCALCUL<46> = "0"

	ENR_DETAILCALCUL<1> = ""
	WRITE ENR_DETAILCALCUL ON F.DETAILCALCUL, W_Cle
REPEAT
STOP
