******************************************************************************************
* Ce programme supprime les MV 76 77 78 79 80 et 100 de CONTRAT quand la MV 76 est  vide *
*                                                                                        *
* Grgory -> 08/11/04                                                                    *
******************************************************************************************

EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "", "CONTRAT" TO F.CONTRAT ELSE STOP

ENR_CONTRAT=""
W_Contrats=""

	EXECUTE 'SELECT CONTRAT AVEC 65 <> "O"'
	EXECUTE 'SAUVE-LISTE W_Contrats'
	EXECUTE "LISTE W_Contrats" RETURNING MSGCODE

	IF MSGCODE<1> # "209" THEN

		SELECT F.CONTRAT TO W_Contrats

		W_Fin = "F"
		LOOP
			READNEXT W_Cle FROM W_Contrats ELSE W_Fin = "O"
		WHILE W_Fin = "F" DO
			READ ENR_CONTRAT FROM F.CONTRAT, W_Cle THEN
				W_Modif="FAUX"
				J=DCOUNT(ENR_CONTRAT<76>,CHAR(253))+1
				I=0
				W_FIN="FAUX"
				LOOP
					I=I+1
				WHILE I<J AND W_FIN = "FAUX" DO
					IF ENR_CONTRAT<76,I>="" THEN
						LOOP
							J=J-1
						WHILE J>=I DO
							ENR_CONTRAT=DELETE(ENR_CONTRAT,76,J)
							ENR_CONTRAT=DELETE(ENR_CONTRAT,77,J)
							ENR_CONTRAT=DELETE(ENR_CONTRAT,78,J)
							ENR_CONTRAT=DELETE(ENR_CONTRAT,79,J)
							ENR_CONTRAT=DELETE(ENR_CONTRAT,80,J)
							ENR_CONTRAT=DELETE(ENR_CONTRAT,100,J)
						REPEAT
						W_FIN="VRAI"
						W_Modif="VRAI"
					END
				REPEAT
				IF W_Modif="VRAI" THEN
					WRITE ENR_CONTRAT TO F.CONTRAT,W_Cle
				END
			END
		REPEAT
	END
STOP
