*************************************************************
* MOULINETTE PERMETTANT DE VIDER L'attribut 21 DE OPPOSITION
* Mikael

OPEN "","OPPOSITION" TO F.OPPOSITION ELSE STOP

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

W_Req=""

PRINT "SAISIR PERIODE (AAAAMM)"
INPUT W_Periode

PRINT "SAISIR ASSO"
INPUT W_Asso


EXECUTE 'SELECT OPPOSITION AVEC 19 = "':W_Periode:'" AND AVEC CodAssoc="':W_Asso:'"'
EXECUTE 'SAUVE-LISTE W_Req'
EXECUTE "LISTE W_Req" RETURNING MSGCODE

IF MSGCODE<1> = 209 THEN
   	PRINT "PAS D'OPPOSITION SUR LA PERIODE"
	STOP
END
	SELECT F.OPPOSITION TO W_Req
	W_Fini="FAUX"
	LOOP
		READNEXT W_Cle FROM W_Req ELSE W_Fini="VRAI"
	WHILE W_Fini="FAUX" DO
		READ ENR_OPPOSITION FROM F.OPPOSITION,W_Cle THEN
			W_MAX=DCOUNT(ENR_OPPOSITION<19>,CHAR(253))
			FOR I= 1 TO W_MAX
				IF ENR_OPPOSITION<19,I>= W_Periode THEN
					ENR_OPPOSITION<21,I>=""
				END
			NEXT	
			WRITE ENR_OPPOSITION ON F.OPPOSITION, W_Cle			
		END
	REPEAT
PRINT "Traitement termin"
EXECUTE 'EFFACER-LISTE W_Req'
STOP