*******************************************
* Objectif :                              *
*        rectifier les clotures de juin   *
*        qui ont t effectues avant la  *
*        mise en place de la CCU          *
*                                         * 
* Grgory -> 11/07/03 -> Cration du prog *
*******************************************

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

*******************************************

W_Entite = ""
W_Conv = ""
W_Requete = ""

*******************************************

	GOSUB 100
	GOSUB 300

STOP
*******************************************
100
	PRINT "Entite ?"
	INPUT W_Entite
	IF W_Entite = "" THEN STOP
	READ ENR_ASSOCIATION FROM F.ASSOCIATION, W_Entite THEN
		GOSUB 200
	END ELSE
		PRINT "Cette entite n'existe pas !"
		GOSUB 100
	END
RETURN
*******************************************
200
	PRINT "Convention collective ?"
	INPUT W_Conv
	IF W_Conv = "" THEN STOP
	READ ENR_CONVENTIONCOL FROM F.CONVENTIONCOL, W_Conv THEN

	END ELSE
		PRINT "Cette convention n'existe pas !"
		GOSUB 200
	END

RETURN
*******************************************
300
	W_Requete = 'SSELECT CONTRAT AVEC DernDateDepGrilleWContrat = "[/07/]" AND AVEC DernDateDepGrilleWContrat # "01/07/]" AND AVEC DernDateDepGrilleWContrat # "[2003" AND AVEC 6 = "P" AND AVEC 3 # "001003" AND AVEC 1 = "':W_Conv:'" AND AVEC 2 = "':W_Entite:'" AND AVEC TypeActivite = "P" AND AVEC 65 # "O" AND AVEC 63 = "200306"'

	CALL MAJCOEFFTXHORBEAUVAIS(W_Requete,"200307")

RETURN
