*************************************************************************************************
*					Gnration du fichier ACTIVITESBISIDE					*
*																*
* Programme excut par la Mise  niveau 2.1.7 									*
*																*
* 					!!!!!	Excutable plusieurs fois !!!!!					*
*************************************************************************************************

EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","ACTIVITESAIDE" TO F.ACTIVITESAIDE ELSE PRINT "ACTIVITESAIDE"
OPEN "","ACTIVITESBISAIDE" TO F.ACTIVITESBISAIDE ELSE PRINT "ACTIVITESBISAIDE"

EXECUTE 'VIDER-FICHIER ACTIVITESBISAIDE'

EXECUTE 'SELECT ACTIVITESAIDE'

W_Fin = "F"
LOOP
	READNEXT W_Cle ELSE W_Fin = "V"
WHILE W_Fin = "F"
	GOSUB 200
REPEAT


STOP

200
**************************
* Parcours des activits *
**************************
READ ENR_ACTIVITESAIDE FROM F.ACTIVITESAIDE, W_Cle THEN
   W_Att1 = DCOUNT(ENR_ACTIVITESAIDE<1>,CHAR(253))
   i = 0
   LOOP
	i = i + 1
   WHILE i <= W_Att1
   	IF ENR_ACTIVITESAIDE<2,i> # "" THEN	   
	   Activite = ENR_ACTIVITESAIDE<1,i>
	   DateDeb = ENR_ACTIVITESAIDE<2,i>
	   DateFin = ENR_ACTIVITESAIDE<3,i>
	   Motif = ENR_ACTIVITESAIDE<4,i>
	   GOSUB 300	
	END
   REPEAT
END
RETURN


300
***************************
* Gnration des articles *
***************************
ENR_ACTIVITESBISAIDE = ""
ENR_ACTIVITESBISAIDE<1> = DateFin
ENR_ACTIVITESBISAIDE<2> = Motif

WRITE ENR_ACTIVITESBISAIDE ON F.ACTIVITESBISAIDE,W_Cle:Activite:DateDeb

RETURN










