*****************************************************
*	ACTUALISATION DE LA TABLE DES QUALIFICATIONS	*
* Valentin								le 17/08/07 *
*****************************************************

EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"

OPEN "","CONTRAT" TO F.CONTRAT ELSE PRINT "ERREUR OUVERTURE CONTRAT"
OPEN "","TABLES" TO F.TABLES ELSE PRINT "ERREUR OUVERTURE TABLES"

w_fini="non"
W_Req='SELECT CONTRAT AVEC 1 # "02" AND AVEC 8 >= "13881" OR = ""'
W_Result=""

PRINT "ACTUALISATION DE LA TABLE DES QUALIFICATIONS"

EXECUTE W_Req
EXECUTE 'SAUVE-LISTE W_Result'
EXECUTE 'LISTE W_Result' RETURNING MSGCODE

IF MSGCODE<1> # "209" THEN
	SELECT F.CONTRAT TO W_Result
	READ ENR_QUALIF FROM F.TABLES,"QUALIF" ELSE ENR_QUALIF=""
	
	LOOP
		READNEXT W_CLE FROM W_Result ELSE w_fini="oui"
	UNTIL w_fini="oui"
		
		READ ENR_CONTRAT FROM F.CONTRAT,W_CLE ELSE ENR_CONTRAT=""
		
		IF ENR_CONTRAT<16,1> # "" THEN
			
			FOR y=1 TO DCOUNT(ENR_CONTRAT<16>,CHAR(253))
				w_bool="false"
				
				FOR i=1 TO DCOUNT(ENR_QUALIF<2>,CHAR(253))
					IF ENR_QUALIF<2,i>=ENR_CONTRAT<16,y> THEN
						w_bool="true"
					END
				NEXT i
				
				IF w_bool="false" THEN
					
					j=0
					FOR i=1 TO DCOUNT(ENR_QUALIF<2>,CHAR(253))
						IF ENR_CONTRAT<16,y> < ENR_QUALIF<2,i> THEN
							j=i
							i=DCOUNT(ENR_QUALIF<2>,CHAR(253))
						END
					NEXT i
					
					IF j=0 THEN
						j=DCOUNT(ENR_QUALIF<2>,CHAR(253))+1
					END
					
					ENR_QUALIF=INSERT(ENR_QUALIF,2,j;ENR_CONTRAT<16,y>)
					ENR_QUALIF=INSERT(ENR_QUALIF,3,j;"")
					ENR_QUALIF=INSERT(ENR_QUALIF,4,j;"05")
					
				END
			NEXT y
		END
	REPEAT
	
	WRITE ENR_QUALIF ON F.TABLES,"QUALIF"	
END

EXECUTE 'EFFACER-LISTE W_Result'
PRINT "L'ACTUALISATION DE LA TABLE DES QUALIFICATIONS A ETE EFFECTUEE"

STOP