****************************
* Copier coller de la procdure de retaillage mensuel
* du batch nocturne pour lancer manuellement un retaillage
* si ncessaire.
*
* Greg - 29/02/16
****************************

OPEN "", "FICARETAILLER" TO F.FICARETAILLER THEN
	READ ENR FROM F.FICARETAILLER, "MENSUEL" THEN

		i2 = 0
		LOOP
		i2 = i2 + 1
		WHILE ENR<i2> # ""
			EXECUTE 'FICSTAT ':ENR<i2> CAPTURING W_Stat
			IF W_Stat<25> # "" THEN
				PRINT ENR<i2>
				W_Long=LEN(W_Stat<25>)-27
				W_Modulo=W_Stat<25>
				W_Modulo=W_Modulo[27,W_Long]
				EXECUTE 'RESIZE ':ENR<i2>:' ':W_Modulo
			END
		REPEAT
		
	END
END
	
STOP