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

*******************
* NE PAS RELANCER *
*******************

	ENR_LETTREAUX=""
	ENR_LETTREGENE=""
	W_RESULTAT=""

	EXECUTE 'SSELECT BALANCEAUX'
	EXECUTE 'SAUVE-LISTE W_RESULTAT'
	EXECUTE "LISTE W_RESULTAT" RETURNING MSGCODE
	
	IF MSGCODE<1> # 209 THEN
	
		SELECT F.BALANCEAUX TO W_RESULTAT
		
   		W_Fini="FAUX"
	
   		LOOP
      			READNEXT W_Cle FROM W_RESULTAT ELSE W_Fini="VRAI"
   		WHILE W_Fini="FAUX" DO
      			READ ENR_BALANCEAUX FROM F.BALANCEAUX,W_Cle ELSE ENR_BALANCEAUX=""

			ENR_LETTREAUX=""

			ENR_LETTREAUX<1>=ENR_BALANCEAUX<10>
			ENR_LETTREAUX<2>=ENR_BALANCEAUX<11>
			ENR_BALANCEAUX<10>=""
			ENR_BALANCEAUX<11>=""

			WRITE ENR_BALANCEAUX ON F.BALANCEAUX,W_Cle
			WRITE ENR_LETTREAUX ON F.LETTREAUX,W_Cle
			
		REPEAT
		
	END
	
	EXECUTE 'SSELECT BALANCEGENE'
	EXECUTE 'SAUVE-LISTE W_RESULTAT'
	EXECUTE "LISTE W_RESULTAT" RETURNING MSGCODE
	
	IF MSGCODE<1> # 209 THEN
	
		SELECT F.BALANCEGENE TO W_RESULTAT
		
   		W_Fini="FAUX"
	
   		LOOP
      			READNEXT W_Cle FROM W_RESULTAT ELSE W_Fini="VRAI"
   		WHILE W_Fini="FAUX" DO
      			READ ENR_BALANCEGENE FROM F.BALANCEGENE,W_Cle ELSE ENR_BALANCEGENE=""

			ENR_LETTREGENE=""

			ENR_LETTREGENE<1>=ENR_BALANCEGENE<10>
			ENR_LETTREGENE<2>=ENR_BALANCEGENE<11>
			ENR_BALANCEGENE<10>=""
			ENR_BALANCEGENE<11>=""

			WRITE ENR_BALANCEGENE ON F.BALANCEGENE,W_Cle
			WRITE ENR_LETTREGENE ON F.LETTREGENE,W_Cle
			
		REPEAT
		
	END
	
STOP
