********************************************************************
* RECTIFICATION SUIVI DE CONTRAT DES CONTRATS DE L ASMAD MODIFIER  *
* PAR LE PRMOUL RECUP35ASMAD                                       *
* ALAIN 23/10/2003                                                 *
********************************************************************

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

W_RESULTAT = ""

W_REQ = 'SELECT CONTRAT AVEC 65 # "O" AND AVEC 4 = "I" AND AVEC 6 = "P" AND AVEC 1 = "01" AND AVEC 76 = ""'

EXECUTE W_REQ
EXECUTE 'SAUVE-LISTE W_RESULTAT' 
EXECUTE "LISTE W_RESULTAT" RETURNING MSGCODE
		
IF MSGCODE<1> # 209 THEN

	W_FINI = "FAUX"
	SELECT F.CONTRAT TO W_RESULTAT

    	LOOP
		READNEXT W_CLECONT FROM W_RESULTAT ELSE W_FINI = "VRAI"
	WHILE W_FINI = "FAUX" DO

		READ ENR_CONTRAT FROM F.CONTRAT,W_CLECONT ELSE ENR_CONTRAT = ""
		READ ENR_CONTRATBIS FROM F.CONTRATBIS,W_CLECONT ELSE ENR_CONTRATBIS = ""

		ENR_CONTRAT<71> = ENR_CONTRATBIS<76>
		ENR_CONTRAT<72> = ENR_CONTRATBIS<77>
		ENR_CONTRAT<73> = ENR_CONTRATBIS<78>
		ENR_CONTRAT<74> = ENR_CONTRATBIS<79>
		ENR_CONTRAT<75> = ENR_CONTRATBIS<80>

		WRITE ENR_CONTRAT TO F.CONTRAT,W_CLECONT

	REPEAT
END

STOP
