**********************************************************
* nouvelle structure pour le fichier RELANCESLETTRESTYPE *	
* ne pas relancer                                        *
**********************************************************

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



   	EXECUTE 'SELECT RELANCESLETTRESTYPE' 
   	W_End="FAUX"

   	LOOP
      		READNEXT W_Cle ELSE W_End = "VRAI"
   	WHILE W_End = "FAUX" DO
      		READ ENR_RELANCESANC FROM F.RELANCESLETTRESTYPE,W_Cle ELSE ENR_RELANCESANC=""
     
		ENR_RELANCESNOUV=""
 		W_CleNouv=ENR_RELANCESANC<11>

		ENR_RELANCESNOUV<1>=W_Cle
		ENR_RELANCESNOUV<2>=ENR_RELANCESANC<1>
		ENR_RELANCESNOUV<3>=ENR_RELANCESANC<2>
		ENR_RELANCESNOUV<4>=ENR_RELANCESANC<3>
		ENR_RELANCESNOUV<5>=ENR_RELANCESANC<4>
		ENR_RELANCESNOUV<6>=ENR_RELANCESANC<5>
		ENR_RELANCESNOUV<7>=""
		ENR_RELANCESNOUV<8>=""
		ENR_RELANCESNOUV<9>=""
		ENR_RELANCESNOUV<10>=""
		ENR_RELANCESNOUV<11>=""
		ENR_RELANCESNOUV<12>=ENR_RELANCESANC<6>
		ENR_RELANCESNOUV<13>=ENR_RELANCESANC<7>
		ENR_RELANCESNOUV<14>=ENR_RELANCESANC<8>
		ENR_RELANCESNOUV<15>=ENR_RELANCESANC<9>
		ENR_RELANCESNOUV<16>=ENR_RELANCESANC<10>
		ENR_RELANCESNOUV<17>=""
		ENR_RELANCESNOUV<18>=""
		ENR_RELANCESNOUV<19>=""
		ENR_RELANCESNOUV<20>=""
		ENR_RELANCESNOUV<21>=""

      		WRITE ENR_RELANCESNOUV ON F.RELANCESLETTRESTYPE,W_CleNouv
            	DELETE F.RELANCESLETTRESTYPE,W_Cle

   	REPEAT

STOP
