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

W_RESULTAT=""
W_RAPPROCH=""

	EXECUTE 'SSELECT JOURNAL AVEC 2 = "T"'
	EXECUTE 'SAUVE-LISTE W_RESULTAT'
	EXECUTE "LISTE W_RESULTAT" RETURNING MSGCODE
	
	IF MSGCODE<1> # 209 THEN 
	
		SELECT F.JOURNAL TO W_RESULTAT
		
   		W_Fini="FAUX"
		
   		LOOP 
      			READNEXT W_Cle FROM W_RESULTAT ELSE W_Fini="VRAI"
   		WHILE W_Fini="FAUX" DO
      			READ ENR_JOURNAL FROM F.JOURNAL,W_Cle ELSE ENR_JOURNAL=""
			
			EXECUTE 'SSELECT RAPPROCHDETAIL AVEC 0 = "':W_Cle:']"'
			EXECUTE 'SAUVE-LISTE W_RAPPROCH'
			EXECUTE "LISTE W_RAPPROCH" RETURNING MSGCODE
			
			IF MSGCODE<1> # 209 THEN 
			
				SELECT F.RAPPROCHDETAIL TO W_RAPPROCH
				
   				W_End="FAUX"
				
   				LOOP 
      					READNEXT W_CleRapproch FROM W_RAPPROCH ELSE W_End="VRAI"
   				WHILE W_End="FAUX" DO
      					READ ENR_RAPPROCHDETAIL FROM F.RAPPROCHDETAIL,W_CleRapproch ELSE ENR_RAPPROCHDETAIL=""
      					
					ENR_JOURNAL<18>="1"
					
   					W_End="VRAI"
					
				REPEAT
				
			END

			IF ENR_JOURNAL<18>="" THEN
				ENR_JOURNAL<18>="0"
			END

			WRITE ENR_JOURNAL ON F.JOURNAL,W_Cle

  		REPEAT
		
	END
	
STOP
