************************
* MOULINETTE CIVILAIDE *
************************

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

   EXECUTE 'SSELECT CIVILAIDE AVEC 18 = "" AND AVEC 43 = "" AND AVEC CodeAideElts # ""'

   W_End="FAUX"

   EXECUTE 'SAUVE-LISTE W_RESULTAT'
   EXECUTE "LISTE W_RESULTAT" RETURNING MSGCODE

   LOOP
	READNEXT W_Cle FROM W_RESULTAT ELSE W_End="VRAI"
	READ ENR_CIVILAIDE FROM F.CIVILAIDE ,W_Cle ELSE ENR_CIVILAIDE = ""
   WHILE W_End = "FAUX" DO
	IF ENR_CIVILAIDE<2> # "" THEN
		W_ACT = "FAUX"
		EXECUTE 'SSELECT EMPLOYEURS AVEC 2 = "[':ENR_CIVILAIDE<2>:' ':ENR_CIVILAIDE<3>:']" AND AVEC 5 = "':ENR_CIVILAIDE<10>:'" AND AVEC 9 ="'ENR_CIVILAIDE<20>'"'
		IF MSGCODE<1> # 209 THEN
			READNEXT CLE.EMP ELSE W_ACT = "VRAI"
			IF W_ACT = "FAUX" THEN
				READ ENR_EMPLOYEURS FROM F.EMPLOYEURS,CLE.EMP ELSE ENR_EMPLOYEURS = ""
				NUMSECU = ENR_EMPLOYEURS<10>[1,18]
				ENR_CIVILAIDE<18> = NUMSECU
				NUMSECU = CONVERT(" ","",NUMSECU)
				NUMSECU = 97 - (REM(NUMSECU,97))
				ENR_CIVILAIDE<19> = NUMSECU "R%2"
    				WRITE ENR_CIVILAIDE ON F.CIVILAIDE ,W_Cle
			END
		END
	END	
   REPEAT

STOP
