***********************************************************
* MOULINETTE POUR LA REMISE A JOUR DU PAIEMENT DE CONTRAT *
***********************************************************

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

EXECUTE 'SSELECT CONTRAT AVEC 1 = "02" AND AVEC 65 = "" AND AVEC 28 = "1"'

W_End="FAUX"

LOOP
	READNEXT W_Cle ELSE W_End = "VRAI"
	READ ENR_CONTRAT FROM F.CONTRAT ,W_Cle ELSE W_End = "VRAI"
WHILE W_End = "FAUX" DO
	ENR_CONTRAT<28>="0"
      WRITE ENR_CONTRAT ON F.CONTRAT ,W_Cle
REPEAT

STOP
