**********************************************************************
*      Cration de contrats "blancs" pour viter les erreurs dues   *
*                 l'effacement accidentel d'un contrat               *
* (cela empche de lire les contrats suivants dans le menu Infologis)*
*                                                                    *
*                         MICHAEL 11/05/01                           *
**********************************************************************

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

EXECUTE 'SELECT CONTRAT PAR 0'

W_Fin = "F"

LOOP

	READNEXT W_Cle ELSE W_Fin = "V"

WHILE W_Fin = "F"

	IF W_Tampon # W_Cle[1,5] THEN
		W_Rang = "000"
		IF W_Cle[6,3] # "001" THEN
			W_RangAttendu = "001"
			GOSUB 100
		END
		W_Tampon = W_Cle[1,5]
		W_Rang = W_Cle[6,3]
	END ELSE
		W_RangAttendu = INT(W_Rang) + 1
		W_RangAttendu=W_RangAttendu"R%3"
		IF W_Cle[6,3] # W_RangAttendu THEN
			GOSUB 100
		END
		W_Rang=W_Cle[6,3]
	END

REPEAT

STOP

100 

PRINT "AIDANT : ":W_Cle[1,5]:" - Contrat n ":W_Cle[6,3]:" suit le n ":W_Rang
ENR_CONTRAT<1>="01"
ENR_CONTRAT<65>="O"
WRITE ENR_CONTRAT ON F.CONTRAT, W_Cle[1,5]:W_RangAttendu

RETURN
