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

PRINT "DONNEZ LE CODE DE LA CONVENTION COLLECTIVE CONCERNEE ? (2N)":
INPUT W_CODCONV

IF W_CODCONV="" THEN STOP

READ ENR_CONVCOL FROM F.CONVENTIONCOL,W_CODCONV ELSE ENR_CONVCOL = ""
IF ENR_CONVCOL = "" THEN
   PRINT "ERREUR SUR LE CODE DE LA CONVENTION !!!"
   INPUT RC
   STOP
END

PRINT "DONNEZ LE CODE DE LA GRILLE A REMPLACER ? (3N)":
INPUT W_GRILLEAV

PRINT "DONNEZ LE CODE DE LA NOUVELLE GRILLE ? (3N)":
INPUT W_GRILLENOUV

W_GRILLEAV=W_CODCONV:W_GRILLEAV
W_GRILLENOUV=W_CODCONV:W_GRILLENOUV

W_Str = ""
W_RESULTAT = ""

W_Str = 'SELECT CONTRAT AVEC 65 = "" AND AVEC 20 = "':W_GRILLEAV:'"'

EXECUTE W_Str
EXECUTE 'SAUVE-LISTE W_RESULTAT' 
EXECUTE "LISTE W_RESULTAT" RETURNING MSGCODE

IF MSGCODE<1> # 209 THEN

   SELECT F.CONTRAT TO W_RESULTAT 

   W_Fin = "F"

   LOOP
      READNEXT W_Cle FROM W_RESULTAT ELSE W_Fin = "V"
   WHILE  W_Fin # "V"
      READ ENR_CONTRAT FROM F.CONTRAT,W_Cle ELSE ENR_CONTRAT = ""

         j=1
         LOOP
         WHILE ENR_CONTRAT<20,j> # "" DO
         	IF ENR_CONTRAT<20,j> = W_GRILLEAV THEN
            	ENR_CONTRAT<20,j>=W_GRILLENOUV
         	END
            j=j+1
         REPEAT

	 WRITE ENR_CONTRAT ON F.CONTRAT,W_Cle

   REPEAT

END

STOP
