*******************************************************************
* MOULINETTE POUR LE RAPPROCHEMENT DES ECRITURES COMPTABLES       *
*******************************************************************
EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","RAPPROCHDETAIL" TO F.RAPPROCHDETAIL ELSE PRINT "OUVERTURE RAPPROCHDETAIL " ;* en lecture criture

   EXECUTE 'SELECT RAPPROCHDETAIL AVEC DateOpRapproch < "13971"'

   W_End="FAUX"
   
	LOOP
		READNEXT W_Cle ELSE W_End = "VRAI"
		WHILE W_End = "FAUX" DO
			
			READ ENR_RAPPROCHDETAIL FROM F.RAPPROCHDETAIL ,W_Cle ELSE ENR_RAPPROCHDETAIL = ""
			
			ENR_RAPPROCHDETAIL<6>="13970"
			ENR_RAPPROCHDETAIL<7>=OCONV(ENR_RAPPROCHDETAIL<1>, "D4/")[7,4]:OCONV(ENR_RAPPROCHDETAIL<1>, "D4/")[4,2]
			ENR_RAPPROCHDETAIL<8>=""
			ENR_RAPPROCHDETAIL<9>=""
			
			WRITE ENR_RAPPROCHDETAIL ON F.RAPPROCHDETAIL,W_Cle
	REPEAT
STOP
