*************************************************
* MOULINETTE QUI SUPPRIME LE CODE SERVICE   	*
* DANS LA CLE DU FICHIER SSIADHISTACTINTEXT 	*
* VANESSA					*
*************************************************
* PEUT ETRE RELANCER				*
*************************************************

EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","SSIADHISTACTINTEXT" TO F.SSIADHISTACTINTEXT ELSE PRINT "OUVERTURE SSIADHISTACTINTEXT" ;* en lecture criture

	EXECUTE 'SELECT SSIADHISTACTINTEXT' 

	W_End="FAUX"

	LOOP
		READNEXT W_Cle ELSE W_End = "VRAI"
	WHILE W_End = "FAUX" DO
		READ ENR_SSIADHISTACTINTEXT FROM F.SSIADHISTACTINTEXT,W_Cle ELSE ENR_SSIADHISTACTINTEXT=""
     
		IF ENR_SSIADHISTACTINTEXT<7>="P" THEN
			ENR_SSIADHISTACTINTEXT<7>="V"
		END

		IF LEN(W_Cle)=26 THEN
			W_CleNouv=W_Cle[1,18]:W_Cle[22,5]

			WRITE ENR_SSIADHISTACTINTEXT ON F.SSIADHISTACTINTEXT,W_CleNouv
            		DELETE F.SSIADHISTACTINTEXT,W_Cle
		END

	REPEAT

STOP
