**************************************************************************
*  moulinette pour mettre  jour attribut 19 dans fichier SSIADELEMGEST  *                                         
*  FANNY                                 	 octobre 2005  			 *
**************************************************************************

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

W_Requete = ""
W_RequeteSsiad =""
W_Code = ""
W_Tableau = ""


W_Requete = 'SELECT SSIADELEMGEST'

EXECUTE W_Requete
EXECUTE 'SAUVE-LISTE W_RequeteSsiad'
EXECUTE 'LISTE W_RequeteSsiad' RETURNING MSGCODE

IF MSGCODE<1> # "209" THEN

	SELECT F.SSIADELEMGEST TO W_RequeteSsiad
	W_Fin = "F"
	LOOP
	   READNEXT W_Code FROM W_RequeteSsiad ELSE W_Fin = "V"
	WHILE W_Fin = "F" DO
	   i=1

	   READ ENR_SSIADELEMGEST FROM F.SSIADELEMGEST, W_Code THEN
	      FOR i=1 TO DCOUNT(ENR_SSIADELEMGEST<19>,CHAR(253))

		   BEGIN CASE
                  CASE ENR_SSIADELEMGEST<19,i> ="01"
			   ENR_SSIADELEMGEST<19,i>= "06"
                  CASE ENR_SSIADELEMGEST<19,i> ="02"
			   ENR_SSIADELEMGEST<19,i> = "01"
                  CASE ENR_SSIADELEMGEST<19,i> ="03"
			   ENR_SSIADELEMGEST<19,i> = "04"
                  CASE ENR_SSIADELEMGEST<19,i> ="04"
			   ENR_SSIADELEMGEST<19,i> = "04"
                  CASE ENR_SSIADELEMGEST<19,i> ="05"
			   ENR_SSIADELEMGEST<19,i> = "03"
                  CASE ENR_SSIADELEMGEST<19,i> ="06"
			   ENR_SSIADELEMGEST<19,i> = "02"
                  CASE ENR_SSIADELEMGEST<19,i> ="07"
			   ENR_SSIADELEMGEST<19,i> = "03"
               END CASE

   	      NEXT i
	   END
  
	   WRITE ENR_SSIADELEMGEST ON F.SSIADELEMGEST ,W_Code
	 
	REPEAT
END

STOP   
