***********************************************************
*  moulinette qui permet d'enregistrer en attribut 9 du   *
*  fichier SSIADHISTACTINTEXT le code de l'activit       *
*  correspondant au code service contenu dans la cle      *
*  FANNY                                 11/05/2005       *
***********************************************************

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


************************************************************
* Selection des activites de type SSIAD et construction du *
* tableau donnant par service le code activite             * 
************************************************************
W_RequeteAct = ""
W_CodeActivite = ""
W_Tableau = ""

W_RequeteAct = 'SELECT ACTIVITES AVEC TypeActivite = "S"'

EXECUTE W_RequeteAct
EXECUTE 'SAUVE-LISTE W_RequeteAct'
EXECUTE 'LISTE W_RequeteAct' RETURNING MSGCODE

IF MSGCODE<1> # "209" THEN

	SELECT F.ACTIVITES TO W_RequeteAct
	W_NbService = 0
	W_Fin = "F"
	LOOP
	   READNEXT W_CodeActivite FROM W_RequeteAct ELSE W_Fin = "V"
	WHILE W_Fin = "F" DO
	   W_NbService = W_NbService + 1
	   READ ENR_ACTIVITES FROM F.ACTIVITES,W_CodeActivite THEN
		W_Tableau<W_NbService,1> = ENR_ACTIVITES<13>
		W_Tableau<W_NbService,2> = W_CodeActivite
	   END   
	REPEAT
END

************************************************************
* Selection des articles du fichier SSIADHISTACTINTEXT et  *
* ajout en attribut 9 du code de l'activit                * 
************************************************************

W_RequeteSsiadHist = ""
W_Activite = ""
W_CodeSsiadHist = ""

W_RequeteSsiadHist = 'SELECT SSIADHISTACTINTEXT PAR 0'

EXECUTE W_RequeteSsiadHist
EXECUTE 'SAUVE-LISTE W_RequeteSsiadHist'
EXECUTE 'LISTE W_RequeteSsiadHist' RETURNING MSGCODE

IF MSGCODE<1> # "209" THEN

	SELECT F.SSIADHISTACTINTEXT TO W_RequeteSsiadHist
	W_Fin = "F"
	LOOP
	   READNEXT W_CodeSsiadHist FROM W_RequeteSsiadHist ELSE W_Fin = "V"
	WHILE W_Fin = "F" DO
	   i=1

	   READ ENR_SSIADHISTACTINTEXT FROM F.SSIADHISTACTINTEXT, W_CodeSsiadHist THEN
	      FOR i=1 TO W_NbService		
   	    	   IF W_CodeSsiadHist[19,3] = W_Tableau<i,1> THEN
	   		W_Activite = W_Tableau<i,2>	
		   END 
   	      NEXT i
	   END

	   j=1
	   k=1
	   
	   FOR j=1 TO DCOUNT(ENR_SSIADHISTACTINTEXT<1>,CHAR(253))
		FOR k=1 TO DCOUNT(ENR_SSIADHISTACTINTEXT<3,j>,CHAR(252))
		   ENR_SSIADHISTACTINTEXT=INSERT(ENR_SSIADHISTACTINTEXT,9,j,k;W_Activite)
		NEXT k  
		
		WRITE ENR_SSIADHISTACTINTEXT ON F.SSIADHISTACTINTEXT ,W_CodeSsiadHist
   	   NEXT j  
	 
	REPEAT
END

STOP   
