**********************************************************
*  attribution d'un nouveau numro  un compte comptable
*  Vanessa
*  septembre 2007
**********************************************************

* Ouvertures des fichiers

EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"

OPEN "","BALANCEANAL" TO F.BALANCEANAL ELSE PRINT "OUVERTURE BALANCEANAL"
OPEN "","BALANCEANALARCHIVE" TO F.BALANCEANALARCHIVE ELSE PRINT "OUVERTURE BALANCEANALARCHIVE"
OPEN "","BALANCEGENE" TO F.BALANCEGENE ELSE PRINT "OUVERTURE BALANCEGENE"
OPEN "","BALANCEGENEARCHIVE" TO F.BALANCEGENEARCHIVE ELSE PRINT "OUVERTURE BALANCEGENEARCHIVE"
OPEN "","BAREMEFEDEASSO" TO F.BAREMEFEDEASSO ELSE PRINT "OUVERTURE BAREMEFEDEASSO"
OPEN "","BROUILLARDDETAIL" TO F.BROUILLARDDETAIL ELSE PRINT "OUVERTURE BROUILLARDDETAIL"
OPEN "","COMPLFACT" TO F.COMPLFACT ELSE PRINT "OUVERTURE COMPLFACT"
OPEN "","COMPTESPARTICULIERS" TO F.COMPTESPARTICULIERS ELSE PRINT "OUVERTURE COMPTESPARTICULIERS"
OPEN "","DETAILECRITUREGENE" TO F.DETAILECRITUREGENE ELSE PRINT "OUVERTURE DETAILECRITUREGENE"
OPEN "","DETAILECRITUREGENEARCHIVE" TO F.DETAILECRITUREGENEARCHIVE ELSE PRINT "OUVERTURE DETAILECRITUREGENEARCHIVE"
OPEN "","FACTURAIDE" TO F.FACTURAIDE ELSE PRINT "OUVERTURE FACTURAIDE"
OPEN "","FACTURAIDETRIM" TO F.FACTURAIDETRIM ELSE PRINT "OUVERTURE FACTURAIDETRIM"
OPEN "","FEDEASSOC" TO F.FEDEASSOC ELSE PRINT "OUVERTURE FEDEASSOC"
OPEN "","IMMO" TO F.IMMO ELSE PRINT "OUVERTURE IMMO"
OPEN "","INTERVENANTEXT" TO F.INTERVENANTEXT ELSE PRINT "OUVERTURE INTERVENANTEXT"
OPEN "","JOURNAL" TO F.JOURNAL ELSE PRINT "OUVERTURE JOURNAL"
OPEN "","JOURNALARCHIVE" TO F.JOURNALARCHIVE ELSE PRINT "OUVERTURE JOURNALARCHIVE"
OPEN "","LETTREGENE" TO F.LETTREGENE ELSE PRINT "OUVERTURE LETTREGENE"
OPEN "","ORGPRISECHARGE" TO F.ORGPRISECHARGE ELSE PRINT "OUVERTURE ORGPRISECHARGE"
OPEN "","PARAMENTITECOMPTA" TO F.PARAMENTITECOMPTA ELSE PRINT "OUVERTURE PARAMENTITECOMPTA"
OPEN "","PLANCOMPTABLE" TO F.PLANCOMPTABLE ELSE PRINT "OUVERTURE PLANCOMPTABLE"
OPEN "","RUBCHARGE" TO F.RUBCHARGE ELSE PRINT "OUVERTURE RUBCHARGE"
OPEN "","RUBSAISIE" TO F.RUBSAISIE ELSE PRINT "OUVERTURE RUBSAISIE"
OPEN "","SSIADCPTESPART" TO F.SSIADCPTESPART ELSE PRINT "OUVERTURE SSIADCPTESPART"

*********************************************************
* Recuperation des arguments

PROCREAD ARGUMENTS ELSE STOP
W_Entite=FIELD(ARGUMENTS," ",2)
W_CpteAnc=FIELD(ARGUMENTS," ",3)
W_CpteNouv=FIELD(ARGUMENTS," ",4)

*********************************************************

* initialisation des variables

W_ReqBalAnal=""
W_ReqBalAnalArch=""
W_ReqBalGene=""
W_ReqBalGeneArch=""
W_ReqLettreGene=""
W_ReqBrouillard=""
W_ReqDet=""
W_ReqDetArch=""
W_ReqImmo=""
W_ReqJournal=""
W_ReqJournalArch=""
W_ReqComplFact=""
W_ReqFact=""
W_ReqFactTrim=""
W_ReqFedeAssoc=""
W_ReqInterv=""
W_ReqOrg=""
W_ReqRubCha=""
W_ReqRubSai=""
W_ReqBareme=""

*********************************************************

* PROGRAMME PRINCIPAL

*********************************************************
* suppression de l'article de PLANCOMPTABLE             *
*********************************************************

    DELETE F.PLANCOMPTABLE,W_Entite:W_CpteAnc
	
*********************************************************
* fichier des BALANCE (GENE, ANAL et ARCHIVE)        	*
*********************************************************

	EXECUTE 'SELECT BALANCEANAL AVEC EntiteBalAnal = "':W_Entite:'" AND AVEC CompteBalAnal = "':W_CpteAnc:'"'
	EXECUTE 'SAUVE-LISTE W_ReqBalAnal'
	EXECUTE "LISTE W_ReqBalAnal" RETURNING MSGCODE
	
	IF MSGCODE<1> # 209 THEN
	
		SELECT F.BALANCEANAL TO W_ReqBalAnal
		
		W_Fin="FAUX"
		
		LOOP
			READNEXT W_CleBalAnal FROM W_ReqBalAnal ELSE W_Fin = "VRAI"
		WHILE W_Fin = "FAUX" DO
			READ ENR_BALANCEANAL FROM F.BALANCEANAL,W_CleBalAnal THEN
				W_CpteTemp=W_CleBalAnal[1,5]:W_CpteNouv:W_CleBalAnal[16,3]
			    WRITE ENR_BALANCEANAL ON F.BALANCEANAL,W_CpteTemp
			END
			DELETE F.BALANCEANAL,W_CleBalAnal
		REPEAT
	END
	
	EXECUTE 'SELECT BALANCEANALARCHIVE AVEC EntiteBalAnal = "':W_Entite:'" AND AVEC CompteBalAnal = "':W_CpteAnc:'"'
	EXECUTE 'SAUVE-LISTE W_ReqBalAnalArch'
	EXECUTE "LISTE W_ReqBalAnalArch" RETURNING MSGCODE
	
	IF MSGCODE<1> # 209 THEN
	
		SELECT F.BALANCEANALARCHIVE TO W_ReqBalAnalArch
		
		W_Fin="FAUX"
		
		LOOP
			READNEXT W_CleBalAnalArch FROM W_ReqBalAnalArch ELSE W_Fin = "VRAI"
		WHILE W_Fin = "FAUX" DO
			READ ENR_BALANCEANALARCHIVE FROM F.BALANCEANALARCHIVE,W_CleBalAnalArch THEN
				W_CpteTemp=W_CleBalAnalArch[1,5]:W_CpteNouv:W_CleBalAnalArch[16,3]
			    WRITE ENR_BALANCEANALARCHIVE ON F.BALANCEANALARCHIVE,W_CpteTemp
			END
			DELETE F.BALANCEANALARCHIVE,W_CleBalAnalArch
			
		REPEAT
	END
	
	EXECUTE 'SELECT BALANCEGENE AVEC EntiteBalGene = "':W_Entite:'" AND AVEC CpteBalGene = "':W_CpteAnc:'"'
	EXECUTE 'SAUVE-LISTE W_ReqBalGene'
	EXECUTE "LISTE W_ReqBalGene" RETURNING MSGCODE
	
	IF MSGCODE<1> # 209 THEN
	
		SELECT F.BALANCEGENE TO W_ReqBalGene
		
		W_Fin="FAUX"
		
		LOOP
			READNEXT W_CleBalGene FROM W_ReqBalGene ELSE W_Fin = "VRAI"
		WHILE W_Fin = "FAUX" DO
			READ ENR_BALANCEGENE FROM F.BALANCEGENE,W_CleBalGene THEN
				W_CpteTemp=W_CleBalGene[1,5]:W_CpteNouv
			    WRITE ENR_BALANCEGENE ON F.BALANCEGENE,W_CpteTemp
			END
			DELETE F.BALANCEGENE,W_CleBalGene
		REPEAT
	END
	
	EXECUTE 'SELECT BALANCEGENEARCHIVE AVEC EntiteBalGene = "':W_Entite:'" AND AVEC CpteBalGene = "':W_CpteAnc:'"'
	EXECUTE 'SAUVE-LISTE W_ReqBalGeneArch'
	EXECUTE "LISTE W_ReqBalGeneArch" RETURNING MSGCODE
	
	IF MSGCODE<1> # 209 THEN
	
		SELECT F.BALANCEGENEARCHIVE TO W_ReqBalGeneArch
		
		W_Fin="FAUX"
		
		LOOP
			READNEXT W_CleBalGeneArch FROM W_ReqBalGeneArch ELSE W_Fin = "VRAI"
		WHILE W_Fin = "FAUX" DO
			READ ENR_BALANCEGENEARCHIVE FROM F.BALANCEGENEARCHIVE,W_CleBalGeneArch THEN
				W_CpteTemp=W_CleBalGeneArch[1,5]:W_CpteNouv
			    WRITE ENR_BALANCEGENEARCHIVE ON F.BALANCEGENEARCHIVE,W_CpteTemp
			END
			DELETE F.BALANCEGENEARCHIVE,W_CleBalGeneArch
			
		REPEAT
	END
	
	EXECUTE 'SELECT LETTREGENE AVEC 0 = "[':W_Entite:W_CpteAnc:'"'
	EXECUTE 'SAUVE-LISTE W_ReqLettreGene'
	EXECUTE "LISTE W_ReqLettreGene" RETURNING MSGCODE
	
	IF MSGCODE<1> # 209 THEN
	
		SELECT F.LETTREGENE TO W_ReqLettreGene
		
		W_Fin="FAUX"
		
		LOOP
			READNEXT W_CleLettreGene FROM W_ReqLettreGene ELSE W_Fin = "VRAI"
		WHILE W_Fin = "FAUX" DO
			READ ENR_LETTREGENE FROM F.LETTREGENE,W_CleLettreGene THEN
				W_CpteTemp=W_CleLettreGene[1,5]:W_CpteNouv
			    WRITE ENR_LETTREGENE ON F.LETTREGENE,W_CpteTemp
			END
			DELETE F.LETTREGENE,W_CleLettreGene
		REPEAT
	END	
	
*******************************************************
* fichier BROUILLARDDETAIL				              *
*******************************************************

	EXECUTE 'SELECT BROUILLARDDETAIL AVEC 4 = "':W_Entite:W_CpteAnc:'"'
	EXECUTE 'SAUVE-LISTE W_ReqBrouillard'
	EXECUTE "LISTE W_ReqBrouillard" RETURNING MSGCODE
	
	IF MSGCODE<1> # 209 THEN
	
		SELECT F.BROUILLARDDETAIL TO W_ReqBrouillard
		
		W_Fin="FAUX"
		
		LOOP
			READNEXT W_CleBrouillard FROM W_ReqBrouillard ELSE W_Fin = "VRAI"
		WHILE W_Fin = "FAUX" DO
			READ ENR_BROUILLARDDETAIL FROM F.BROUILLARDDETAIL,W_CleBrouillard THEN
				ENR_BROUILLARDDETAIL<4>=W_Entite:W_CpteNouv
				WRITE ENR_BROUILLARDDETAIL ON F.BROUILLARDDETAIL,W_CleBrouillard
			END
		REPEAT
	END
	
*****************************************************
* fichier COMPTESPARTICULIERS		                *
*****************************************************

	READ ENR_COMPTESPARTICULIERS FROM F.COMPTESPARTICULIERS,W_Entite THEN
		FOR i=1 TO 11
			IF ENR_COMPTESPARTICULIERS<i>=W_CpteAnc THEN
				ENR_COMPTESPARTICULIERS<i>=W_CpteNouv
			END
		NEXT i
		WRITE ENR_COMPTESPARTICULIERS ON F.COMPTESPARTICULIERS,W_Entite
	END
	
*********************************************************
* fichier DETAILECRITUREGENE et ARCHIVE  				*
*********************************************************

	EXECUTE 'SELECT DETAILECRITUREGENE AVEC 3 = "':W_Entite:W_CpteAnc:'"'
	EXECUTE 'SAUVE-LISTE W_ReqDet'
	EXECUTE "LISTE W_ReqDet" RETURNING MSGCODE
	
	IF MSGCODE<1> # 209 THEN 
		SELECT F.DETAILECRITUREGENE TO W_ReqDet
		W_Fini="FAUX"
		
		LOOP
			READNEXT W_CleDet FROM W_ReqDet ELSE W_Fini="VRAI"
		WHILE W_Fini="FAUX" DO
			READ ENR_DETAILECRITUREGENE FROM F.DETAILECRITUREGENE,W_CleDet THEN
				ENR_DETAILECRITUREGENE<3>=W_Entite:W_CpteNouv
				WRITE ENR_DETAILECRITUREGENE ON F.DETAILECRITUREGENE,W_CleDet
			END
		REPEAT
	END
	
	EXECUTE 'SELECT DETAILECRITUREGENEARCHIVE AVEC 3 = "':W_Entite:W_CpteAnc:'"'
	EXECUTE 'SAUVE-LISTE W_ReqDetArch'
	EXECUTE "LISTE W_ReqDetArch" RETURNING MSGCODE
	
	IF MSGCODE<1> # 209 THEN 
		SELECT F.DETAILECRITUREGENEARCHIVE TO W_ReqDetArch
		W_Fini="FAUX"
		
		LOOP
			READNEXT W_CleDetArch FROM W_ReqDetArch ELSE W_Fini="VRAI"
		WHILE W_Fini="FAUX" DO
			READ ENR_DETAILECRITUREGENEARCHIVE FROM F.DETAILECRITUREGENEARCHIVE,W_CleDetArch THEN
				ENR_DETAILECRITUREGENEARCHIVE<3>=W_Entite:W_CpteNouv
				WRITE ENR_DETAILECRITUREGENEARCHIVE ON F.DETAILECRITUREGENEARCHIVE,W_CleDetArch
			END
		REPEAT
	END
	
*********************************************************
* fichier IMMO							        		*
*********************************************************

	EXECUTE 'SELECT IMMO AVEC 6 = "':W_Entite:W_CpteAnc:'" OR AVEC 7 = "':W_Entite:W_CpteAnc:'"'
	EXECUTE 'SAUVE-LISTE W_ReqImmo'
	EXECUTE "LISTE W_ReqImmo" RETURNING MSGCODE
	
	IF MSGCODE<1> # 209 THEN
	
		SELECT F.IMMO TO W_ReqImmo
		W_Fin="FAUX"
		
		LOOP
			READNEXT W_CleImmo FROM W_ReqImmo ELSE W_Fin = "VRAI"
		WHILE W_Fin = "FAUX" DO
			READ ENR_IMMO FROM F.IMMO,W_CleImmo THEN
			
				IF ENR_IMMO<6>=W_Entite:W_CpteAnc THEN
					ENR_IMMO<6>=W_Entite:W_CpteNouv
				END ELSE
					ENR_IMMO<7>=W_Entite:W_CpteNouv
				END
				WRITE ENR_IMMO ON F.IMMO,W_CleImmo
			END
		REPEAT
	END
	
*********************************************************
* fichier JOURNAL et ARCHIVE        		            *
*********************************************************

	EXECUTE 'SELECT JOURNAL AVEC 3 = "':W_Entite:W_CpteAnc:'"'
	EXECUTE 'SAUVE-LISTE W_ReqJournal'
	EXECUTE "LISTE W_ReqJournal" RETURNING MSGCODE
	
	IF MSGCODE<1> # 209 THEN 
		SELECT F.JOURNAL TO W_ReqJournal
		W_Fini="FAUX"
		
		LOOP
			READNEXT W_CleJournal FROM W_ReqJournal ELSE W_Fini="VRAI"
		WHILE W_Fini="FAUX" DO
			READ ENR_JOURNAL FROM F.JOURNAL,W_CleJournal THEN
				ENR_JOURNAL<3>=W_Entite:W_CpteNouv
				WRITE ENR_JOURNAL ON F.JOURNAL,W_CleJournal
			END
		REPEAT
	END
	
	EXECUTE 'SELECT JOURNALARCHIVE AVEC 3 = "':W_Entite:W_CpteAnc:'"'
	EXECUTE 'SAUVE-LISTE W_ReqJournalArch'
	EXECUTE "LISTE W_ReqJournalArch" RETURNING MSGCODE
	
	IF MSGCODE<1> # 209 THEN 
		SELECT F.JOURNALARCHIVE TO W_ReqJournalArch
		W_Fini="FAUX"
		
		LOOP
			READNEXT W_CleJournalArch FROM W_ReqJournalArch ELSE W_Fini="VRAI"
		WHILE W_Fini="FAUX" DO
			READ ENR_JOURNALARCHIVE FROM F.JOURNALARCHIVE,W_CleJournalArch THEN
				ENR_JOURNALARCHIVE<3>=W_Entite:W_CpteNouv
				WRITE ENR_JOURNALARCHIVE ON F.JOURNALARCHIVE,W_CleJournalArch
			END
		REPEAT
	END
	
*********************************************************
* fichier PARAMENTITECOMPTA		                      	*
*********************************************************

	READ ENR_PARAMENTITECOMPTA FROM F.PARAMENTITECOMPTA,W_Entite THEN
		FOR i=6 TO 14
			IF ENR_PARAMENTITECOMPTA<i>=W_CpteAnc THEN
				ENR_PARAMENTITECOMPTA<i>=W_CpteNouv
			END
		NEXT i
		WRITE ENR_PARAMENTITECOMPTA ON F.PARAMENTITECOMPTA,W_Entite
	END
	
*********************************************************
* fichier BAREMEFEDEASSO								*
*********************************************************

	EXECUTE 'SELECT BAREMEFEDEASSO AVEC 5 = "':W_CpteAnc:'" OR AVEC 10 = "':W_CpteAnc:'"'
	EXECUTE 'SAUVE-LISTE W_ReqBareme'
	EXECUTE "LISTE W_ReqBareme" RETURNING MSGCODE
	
	IF MSGCODE<1> # 209 THEN 
		SELECT F.BAREMEFEDEASSO TO W_ReqBareme
		W_Fini="FAUX"
		
		LOOP
			READNEXT W_CleBareme FROM W_ReqBareme ELSE W_Fini="VRAI"
		WHILE W_Fini="FAUX" DO
			READ ENR_BAREMEFEDEASSO FROM F.BAREMEFEDEASSO,W_CleBareme THEN
				W_Count=DCOUNT(ENR_BAREMEFEDEASSO<5>,CHAR(253))
				FOR i = 1 TO W_Count
					IF ENR_BAREMEFEDEASSO<5,i>=W_CpteAnc THEN
						ENR_BAREMEFEDEASSO<5,i>=W_CpteNouv
					END
				NEXT i
				W_Count=DCOUNT(ENR_BAREMEFEDEASSO<10>,CHAR(253))
				FOR i = 1 TO W_Count
					IF ENR_BAREMEFEDEASSO<10,i>=W_CpteAnc THEN
						ENR_BAREMEFEDEASSO<10,i>=W_CpteNouv
					END
				NEXT i
				WRITE ENR_BAREMEFEDEASSO ON F.BAREMEFEDEASSO,W_CleBareme
			END
		REPEAT
	END
	
*********************************************************
* fichier COMPLFACT										*
*********************************************************

	EXECUTE 'SELECT COMPLFACT AVEC 5 = "':W_CpteAnc:'" AND AVEC CodAssocComplFact = "':W_Entite:'"'
	EXECUTE 'SAUVE-LISTE W_ReqComplFact'
	EXECUTE "LISTE W_ReqComplFact" RETURNING MSGCODE
	
	IF MSGCODE<1> # 209 THEN 
		SELECT F.COMPLFACT TO W_ReqComplFact
		W_Fini="FAUX"
		
		LOOP
			READNEXT W_CleComplFact FROM W_ReqComplFact ELSE W_Fini="VRAI"
		WHILE W_Fini="FAUX" DO
			READ ENR_COMPLFACT FROM F.COMPLFACT,W_CleComplFact THEN
				W_Count=DCOUNT(ENR_COMPLFACT<5>,CHAR(253))
				FOR i = 1 TO W_Count
					IF ENR_COMPLFACT<5,i>=W_CpteAnc THEN
						ENR_COMPLFACT<5,i>=W_CpteNouv
					END
				NEXT i
				WRITE ENR_COMPLFACT ON F.COMPLFACT,W_CleComplFact
			END
		REPEAT
	END
	
*********************************************************
* fichier FACTURAIDE et TRIM							*
*********************************************************

	IF W_CpteAnc[1,1] = "4" OR  W_CpteAnc[1,1] = "7" THEN
	
		EXECUTE 'SELECT FACTURAIDE AVEC 6 = "':W_CpteAnc:'" AND AVEC CodeEntiteFact = "':W_Entite:'"'
		EXECUTE 'SAUVE-LISTE W_ReqFact'
		EXECUTE "LISTE W_ReqFact" RETURNING MSGCODE
		
		IF MSGCODE<1> # 209 THEN 
			SELECT F.FACTURAIDE TO W_ReqFact
			W_Fini="FAUX"
			
			LOOP
				READNEXT W_CleFact FROM W_ReqFact ELSE W_Fini="VRAI"
			WHILE W_Fini="FAUX" DO
				READ ENR_FACTURAIDE FROM F.FACTURAIDE,W_CleFact THEN
					W_Count=DCOUNT(ENR_FACTURAIDE<6>,CHAR(253))
					FOR i = 1 TO W_Count
						IF ENR_FACTURAIDE<6,i>=W_CpteAnc THEN
							ENR_FACTURAIDE<6,i>=W_CpteNouv
						END
					NEXT i
					WRITE ENR_FACTURAIDE ON F.FACTURAIDE,W_CleFact
				END
			REPEAT
		END
		
		EXECUTE 'SELECT FACTURAIDETRIM AVEC 6 = "':W_CpteAnc:'" AND AVEC CodeEntiteFact = "':W_Entite:'"'
		EXECUTE 'SAUVE-LISTE W_ReqFactTrim'
		EXECUTE "LISTE W_ReqFactTrim" RETURNING MSGCODE
		
		IF MSGCODE<1> # 209 THEN 
			SELECT F.FACTURAIDETRIM TO W_ReqFactTrim
			W_Fini="FAUX"
			
			LOOP
				READNEXT W_CleFactTrim FROM W_ReqFactTrim ELSE W_Fini="VRAI"
			WHILE W_Fini="FAUX" DO
				READ ENR_FACTURAIDETRIM FROM F.FACTURAIDETRIM,W_CleFactTrim THEN
					W_Count=DCOUNT(ENR_FACTURAIDETRIM<6>,CHAR(253))
					FOR i = 1 TO W_Count
						IF ENR_FACTURAIDETRIM<6,i>=W_CpteAnc THEN
							ENR_FACTURAIDETRIM<6,i>=W_CpteNouv
						END
					NEXT i
					WRITE ENR_FACTURAIDETRIM ON F.FACTURAIDETRIM,W_CleFactTrim
				END
			REPEAT
		END	  
		
	END
	
*********************************************************
* fichier FEDEASSOC										*
*********************************************************

	EXECUTE 'SELECT FEDEASSOC AVEC 45 = "':W_Entite:W_CpteAnc:'"'
	EXECUTE 'SAUVE-LISTE W_ReqFedeAssoc'
	EXECUTE "LISTE W_ReqFedeAssoc" RETURNING MSGCODE
	
	IF MSGCODE<1> # 209 THEN 
		SELECT F.FEDEASSOC TO W_ReqFedeAssoc
		W_Fini="FAUX"
		
		LOOP
			READNEXT W_CleFede FROM W_ReqFedeAssoc ELSE W_Fini="VRAI"
		WHILE W_Fini="FAUX" DO
			READ ENR_FEDEASSOC FROM F.FEDEASSOC,W_CleFede THEN
				ENR_FEDEASSOC<45>=W_Entite:W_CpteNouv
				WRITE ENR_FEDEASSOC ON F.FEDEASSOC,W_CleFede
			END
		REPEAT
	END
	
*********************************************************
* fichier INTERVENANTEXT								*
*********************************************************

	EXECUTE 'SELECT INTERVENANTEXT AVEC 26 = "':W_Entite:W_CpteAnc:'"'
	EXECUTE 'SAUVE-LISTE W_ReqInterv'
	EXECUTE "LISTE W_ReqInterv" RETURNING MSGCODE
	
	IF MSGCODE<1> # 209 THEN 
		SELECT F.INTERVENANTEXT TO W_ReqInterv
		W_Fini="FAUX"
		
		LOOP
			READNEXT W_CleInterv FROM W_ReqInterv ELSE W_Fini="VRAI"
		WHILE W_Fini="FAUX" DO
			READ ENR_INTERVENANTEXT FROM F.INTERVENANTEXT,W_CleInterv THEN
				W_Count=DCOUNT(ENR_INTERVENANTEXT<26>,CHAR(253))
				FOR i = 1 TO W_Count
					IF ENR_INTERVENANTEXT<26,i>=W_Entite:W_CpteAnc THEN
						ENR_INTERVENANTEXT<26,i>=W_Entite:W_CpteNouv
					END
				NEXT i
				WRITE ENR_INTERVENANTEXT ON F.INTERVENANTEXT,W_CleInterv
			END
		REPEAT
	END
	
*********************************************************
* fichier ORGPRISECHARGE								*
*********************************************************

	EXECUTE 'SELECT ORGPRISECHARGE AVEC 22 = "':W_CpteAnc:'" OR AVEC 23 = "':W_CpteAnc:'"'
	EXECUTE 'SAUVE-LISTE W_ReqOrg'
	EXECUTE "LISTE W_ReqOrg" RETURNING MSGCODE
	
	IF MSGCODE<1> # 209 THEN 
		SELECT F.ORGPRISECHARGE TO W_ReqOrg
		W_Fini="FAUX"
		
		LOOP
			READNEXT W_CleOrg FROM W_ReqOrg ELSE W_Fini="VRAI"
		WHILE W_Fini="FAUX" DO
			READ ENR_ORGPRISECHARGE FROM F.ORGPRISECHARGE,W_CleOrg THEN
			
				IF ENR_ORGPRISECHARGE<22>=W_CpteAnc THEN
					ENR_ORGPRISECHARGE<22>=W_CpteNouv
				END ELSE
					ENR_ORGPRISECHARGE<23>=W_CpteNouv
				END
				WRITE ENR_ORGPRISECHARGE ON F.ORGPRISECHARGE,W_CleOrg
				
			END
		REPEAT
	END	
	
*********************************************************
* fichier RUBCHARGE										*
*********************************************************

	EXECUTE 'SELECT RUBCHARGE AVEC 20 = "':W_CpteAnc:'" OR AVEC 21 = "':W_CpteAnc:'" OR AVEC 22 = "':W_CpteAnc:'" OR AVEC 23 = "':W_CpteAnc:'"'
	EXECUTE 'SAUVE-LISTE W_ReqRubCha'
	EXECUTE "LISTE W_ReqRubCha" RETURNING MSGCODE
	
	IF MSGCODE<1> # 209 THEN 
		SELECT F.RUBCHARGE TO W_ReqRubCha
		W_Fini="FAUX"
		
		LOOP
			READNEXT W_CleRubCha FROM W_ReqRubCha ELSE W_Fini="VRAI"
		WHILE W_Fini="FAUX" DO
			READ ENR_RUBCHARGE FROM F.RUBCHARGE,W_CleRubCha THEN
			
				IF ENR_RUBCHARGE<20>=W_CpteAnc THEN
					ENR_RUBCHARGE<20>=W_CpteNouv
				END ELSE
					IF ENR_RUBCHARGE<21>=W_CpteAnc THEN
						ENR_RUBCHARGE<21>=W_CpteNouv
					END ELSE
						IF ENR_RUBCHARGE<22>=W_CpteAnc THEN
							ENR_RUBCHARGE<22>=W_CpteNouv
						END ELSE
							ENR_RUBCHARGE<23>=W_CpteNouv
						END
					END
				END
				WRITE ENR_RUBCHARGE ON F.RUBCHARGE,W_CleRubCha
				
			END
		REPEAT
	END		
	
*********************************************************
* fichier RUBSAISIE										*
*********************************************************

	EXECUTE 'SELECT RUBSAISIE AVEC 12 = "':W_CpteAnc:'" OR AVEC 13 = "':W_CpteAnc:'"'
	EXECUTE 'SAUVE-LISTE W_ReqRubSai'
	EXECUTE "LISTE W_ReqRubSai" RETURNING MSGCODE
	
	IF MSGCODE<1> # 209 THEN 
		SELECT F.RUBSAISIE TO W_ReqRubSai
		W_Fini="FAUX"
		
		LOOP
			READNEXT W_CleRubSai FROM W_ReqRubSai ELSE W_Fini="VRAI"
		WHILE W_Fini="FAUX" DO
			READ ENR_RUBSAISIE FROM F.RUBSAISIE,W_CleRubSai THEN
			
				IF ENR_RUBSAISIE<12>=W_CpteAnc THEN
					ENR_RUBSAISIE<12>=W_CpteNouv
				END ELSE
					ENR_RUBSAISIE<13>=W_CpteNouv
				END
				WRITE ENR_RUBSAISIE ON F.RUBSAISIE,W_CleRubSai
				
			END
		REPEAT
	END		
	
*********************************************************
* fichier SSIADCPTESPART		                      	*
*********************************************************

	READ ENR_SSIADCPTESPART FROM F.SSIADCPTESPART,W_Entite THEN
	
		IF ENR_SSIADCPTESPART<1>=W_CpteAnc THEN
			ENR_SSIADCPTESPART<1>=W_CpteNouv
		END ELSE
			ENR_SSIADCPTESPART<2>=W_CpteNouv
		END
		WRITE ENR_SSIADCPTESPART ON F.SSIADCPTESPART,W_Entite
	END
	
STOP
	