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 criture
OPEN "","DETAILECRITUREGENE" TO F.DETAILECRITUREGENE ELSE PRINT "OUVERTURE DETAILECRITUREGENE" ;* en lecture 

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

W_RESULTAT=""
W_RAPPROCH=""
ENR_RAPPROCHDETAIL=""
W_Efface="VRAI"

	EXECUTE 'SSELECT DETAILECRITUREGENE AVEC 2 # "" AND AVEC DateRapprochement = "" AND AVEC TypeJournal = "T" PAR Journal PAR ExerciceDetailEcrGene'
	EXECUTE 'SAUVE-LISTE W_RESULTAT'
	EXECUTE "LISTE W_RESULTAT" RETURNING MSGCODE
	
	IF MSGCODE<1> # 209 THEN
	
		SELECT F.DETAILECRITUREGENE TO W_RESULTAT
		
   		W_Fini="FAUX"
		W_SauveJournal=""
		
   		LOOP
      			READNEXT W_Cle FROM W_RESULTAT ELSE W_Fini="VRAI"
   		WHILE W_Fini="FAUX" DO
      			READ ENR_DETAILECRITUREGENE FROM F.DETAILECRITUREGENE,W_Cle ELSE ENR_DETAILECRITUREGENE=""
			
			IF W_SauveJournal="" THEN
				W_SauveJournal=W_Cle[1,5]
      				READ ENR_JOURNAL FROM F.JOURNAL,W_Cle[1,5] ELSE ENR_JOURNAL=""
				GOSUB 10
			END ELSE
				IF W_SauveJournal=W_Cle[1,5] THEN
					GOSUB 10
				END ELSE
					WRITE ENR_JOURNAL ON F.JOURNAL,W_SauveJournal
					W_SauveJournal=W_Cle[1,5]
      					READ ENR_JOURNAL FROM F.JOURNAL,W_Cle[1,5] ELSE ENR_JOURNAL=""
					GOSUB 10
				END
			END
			
		REPEAT
		WRITE ENR_JOURNAL ON F.JOURNAL,W_SauveJournal
		
	END
	

	W_Efface="FAUX"

	EXECUTE 'SSELECT RAPPROCHDETAIL'
	EXECUTE 'SAUVE-LISTE W_RESULTAT'
	EXECUTE "LISTE W_RESULTAT" RETURNING MSGCODE
	
	IF MSGCODE<1> # 209 THEN 
	
		SELECT F.RAPPROCHDETAIL TO W_RESULTAT
		
   		W_Fini="FAUX"
		
   		LOOP 
      			READNEXT W_Cle FROM W_RESULTAT ELSE W_Fini="VRAI"
   		WHILE W_Fini="FAUX" DO
      			READ ENR_RAPPROCHDETAIL FROM F.RAPPROCHDETAIL,W_Cle ELSE ENR_RAPPROCHDETAIL=""
			READ ENR_DETAILECRITUREGENE FROM F.DETAILECRITUREGENE,W_Cle THEN
      				READ ENR_JOURNAL FROM F.JOURNAL,W_Cle[1,5] ELSE ENR_JOURNAL=""

				ENR_RAPPROCHDETAIL<6>=ENR_RAPPROCHDETAIL<1>
				ENR_RAPPROCHDETAIL<7>=ENR_RAPPROCHDETAIL<2>
				ENR_RAPPROCHDETAIL<8>=ENR_RAPPROCHDETAIL<3>

				GOSUB 10

				WRITE ENR_JOURNAL ON F.JOURNAL,W_Cle[1,5]

            			DELETE F.RAPPROCHDETAIL,W_Cle
			END
  		REPEAT
		
	END
	
STOP

******************************************************************************************
* cration RAPPROCHDETAIL

10

	IF ENR_DETAILECRITUREGENE<3> # ENR_JOURNAL<3> THEN
		W_AnRap=OCONV(ENR_DETAILECRITUREGENE<2>,"D4/")
		W_AnRap=W_AnRap[9,2]

   		iAn=1
   		LOOP
   		UNTIL W_AnRap = ENR_JOURNAL<19,iAn> OR ENR_JOURNAL<19,iAn> = "" DO
     			iAn=iAn+1
	   	REPEAT
		IF ENR_JOURNAL<19,iAn> # "" THEN
			IF ENR_JOURNAL<20,iAn> = "" THEN
				W_CleRapproch=W_Cle[1,5]:W_AnRap:"00001"
				ENR_JOURNAL<20,iAn>="00001"
			END ELSE
				W_CleRapproch=W_Cle[1,5]:W_AnRap:ENR_JOURNAL<20,iAn>+1 "R%5"
				ENR_JOURNAL<20,iAn>=ENR_JOURNAL<20,iAn>+1 "R%5"
			END
		END ELSE
			W_CleRapproch=W_Cle[1,5]:W_AnRap:"00001"
			ENR_JOURNAL<20,iAn>="00001"
			ENR_JOURNAL<19,iAn>=W_AnRap
		END

		ENR_RAPPROCHDETAIL<1>=ENR_DETAILECRITUREGENE<2>
		ENR_RAPPROCHDETAIL<2>=ENR_DETAILECRITUREGENE<4>
		ENR_RAPPROCHDETAIL<3>=ENR_DETAILECRITUREGENE<5>
		ENR_RAPPROCHDETAIL<4>=ENR_DETAILECRITUREGENE<6>
		ENR_RAPPROCHDETAIL<5>=ENR_DETAILECRITUREGENE<7>

		IF W_Efface="VRAI" THEN
			ENR_RAPPROCHDETAIL<6>=""
			ENR_RAPPROCHDETAIL<7>=""
			ENR_RAPPROCHDETAIL<8>=""
		END

		WRITE ENR_RAPPROCHDETAIL ON F.RAPPROCHDETAIL,W_CleRapproch
	END

RETURN
