
**************************************
* Ouvertures des fichiers            *
**************************************

EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","TPSDETAILSINTERV" TO F.TPSDETAILSINTERV ELSE STOP
OPEN "","FACTURORG" TO F.FACTURORG ELSE STOP
**************************************
* Dclaration des variables          *
**************************************

W_Requete=""
W_ReqAidant=""
W_ReqAide=""
W_Aidant="00004"
W_Aidant<2>="00005"
W_Aidant<3>="00007"
W_Aide=""

**************************************
* Programme principal                *
**************************************

	GOSUB 50
	GOSUB 60

	W_Temp='SELECT TPSDETAILSINTERV'

	EXECUTE W_Temp
	EXECUTE 'SAUVE-LISTE W_Requete'
	EXECUTE "LISTE W_Requete" RETURNING MSGCODE

	IF MSGCODE<1>=209 THEN
		STOP
	END ELSE
		SELECT F.TPSDETAILSINTERV TO W_Requete

		W_FINI = "FAUX"
		LOOP
			READNEXT W_CLE FROM W_Requete ELSE W_FINI = "VRAI"
		WHILE W_FINI = "FAUX" DO
			READ ENR_TPSDETAILSINTERV FROM F.TPSDETAILSINTERV,W_CLE ELSE ENR_TPSDETAILSINTERV=""

			IF (W_CLE[1,5]=W_Aidant<1> OR W_CLE[1,5]=W_Aidant<2> OR W_CLE[1,5]=W_Aidant<3>) AND ENR_TPSDETAILSINTERV<1> = "" THEN
				ENR_TPSDETAILSINTERV<6>=""

	   			WRITE ENR_TPSDETAILSINTERV ON F.TPSDETAILSINTERV,W_CLE

				IF W_Aide="" THEN
					W_Aide=W_CLE[6,5]
				END ELSE
					i=1
					LOOP
					UNTIL W_Aide<i>=W_CLE[6,5] OR W_Aide<i>=""
						i=i+1
					REPEAT
					IF W_Aide<i>="" THEN
						W_Aide<i>=W_CLE[6,5]
					END

				END
			END ELSE
				DELETE F.TPSDETAILSINTERV,W_CLE
			END

		REPEAT
	END

	GOSUB 10
	GOSUB 20
	GOSUB 70

STOP

***********************************************************************************
* vider civilaidant
10

	W_CountAidant=DCOUNT(W_FichierAidant,CHAR(254))
	
	FOR iAidant=1 TO W_CountAidant

		W_FICHIER=W_FichierAidant<iAidant>
		OPEN "",W_FICHIER TO F.FICHIERAIDANT ELSE PRINT "OUVERTURE ":W_FICHIER
		EXECUTE 'EFFACER-LISTE W_ReqAidant'

		W_Temp='SELECT ':W_FICHIER:' AVEC @ID # "':W_Aidant<1>:']"'
		FOR i=2 TO 3
			W_Temp=W_Temp:' AND AVEC @ID # "':W_Aidant<i>:']"'
		NEXT i
		EXECUTE W_Temp
		EXECUTE 'SAUVE-LISTE W_ReqAidant'
		EXECUTE "LISTE W_ReqAidant" RETURNING MSGCODE

		IF MSGCODE<1>#209 THEN
			SELECT F.FICHIERAIDANT TO W_ReqAidant

			W_FINI = "FAUX"
			LOOP
				READNEXT W_CLEAIDANT FROM W_ReqAidant ELSE W_FINI = "VRAI"
			WHILE W_FINI = "FAUX" DO
				DELETE F.FICHIERAIDANT,W_CLEAIDANT
			REPEAT
		END
	NEXT iAidant

RETURN

***********************************************************************************
* vider civilaide
20

	W_CountAide=DCOUNT(W_FichierAide,CHAR(254))
	
	FOR iAide=1 TO W_CountAide

		W_FICHIER=W_FichierAide<iAide>
		OPEN "",W_FICHIER TO F.FICHIERAIDE ELSE PRINT "OUVERTURE ":W_FICHIER
		EXECUTE 'EFFACER-LISTE W_ReqAide'

		W_Temp='SELECT ':W_FICHIER:' AVEC @ID # "':W_Aide<1>:']"'

		W_Count=DCOUNT(W_Aide,CHAR(254))
		FOR i=2 TO W_Count
			W_Temp=W_Temp:' AND AVEC @ID # "':W_Aide<i>:']"'
		NEXT i

		EXECUTE W_Temp
		EXECUTE 'SAUVE-LISTE W_ReqAide'
		EXECUTE "LISTE W_ReqAide" RETURNING MSGCODE

		IF MSGCODE<1>#209 THEN
			SELECT F.FICHIERAIDE TO W_ReqAide

			W_FINI = "FAUX"
			LOOP
				READNEXT W_CLEAIDE FROM W_ReqAide ELSE W_FINI = "VRAI"
			WHILE W_FINI = "FAUX" DO
				DELETE F.FICHIERAIDE,W_CLEAIDE
			REPEAT
		END
	NEXT iAide


	* VIDER FACTURORG

	EXECUTE 'EFFACER-LISTE W_ReqAide'

	W_Temp='SELECT FACTURORG AVEC 0 # "[P':W_Aide<1>:']"'

	W_Count=DCOUNT(W_Aide,CHAR(254))
	FOR i=2 TO W_Count
		W_Temp=W_Temp:' AND AVEC 0 # "[P':W_Aide<i>:']"'
	NEXT i

	EXECUTE W_Temp
	EXECUTE 'SAUVE-LISTE W_ReqAide'
	EXECUTE "LISTE W_ReqAide" RETURNING MSGCODE

	IF MSGCODE<1>#209 THEN
		SELECT F.FACTURORG TO W_ReqAide

		W_FINI = "FAUX"
		LOOP
			READNEXT W_CLEAIDE FROM W_ReqAide ELSE W_FINI = "VRAI"
		WHILE W_FINI = "FAUX" DO
			DELETE F.FACTURORG,W_CLEAIDE
		REPEAT
	END

RETURN

***********************************************************************************
* Fichiers aidant  travailler
50


	W_FichierAidant="ABSENCESAIDANT"
	W_FichierAidant<2>="AIDANTSARCHIVEBULL"
	W_FichierAidant<3>="ARCHIVEBULL"
	W_FichierAidant<4>="CONTRAT"
	W_FichierAidant<5>="CONTRATINV"
	W_FichierAidant<6>="DETAILCALCUL"
	W_FichierAidant<7>="DETAILINDEM"
	W_FichierAidant<8>="DETAILMANDAT"
	W_FichierAidant<9>="DETAILPREST"
	W_FichierAidant<10>="FORMEXPAIDANT"
	W_FichierAidant<11>="HISTORCUMUL"
	W_FichierAidant<12>="HISTORINDEM"
	W_FichierAidant<13>="INFOSAIDANT"
	W_FichierAidant<14>="SUIVCONTRATPROSP"
	W_FichierAidant<15>="TPSAIDANTDISPO"
	W_FichierAidant<16>="CIVILAIDANT"

RETURN

***********************************************************************************
* Fichiers aide  travailler
60

	W_FichierAide="ACCORD"
	W_FichierAide<2>="ACTIVITESAIDE"
	W_FichierAide<3>="ACTIVITESBISAIDE"
	W_FichierAide<4>="AIDESARCHIVEBULL"
	W_FichierAide<5>="AIDESARCHIVEFACT"
	W_FichierAide<6>="ARCHIVEFACT"
	W_FichierAide<7>="DETAILCHGPARTEMP"
	W_FichierAide<8>="ELTSFACTAIDE"
	W_FichierAide<9>="ELTSPARTEMP"
	W_FichierAide<10>="FACTURAIDE"
	W_FichierAide<11>="HRESHISTOR"
	W_FichierAide<12>="PROVISIONDNT"
	W_FichierAide<13>="STATACTAIDE"
	W_FichierAide<14>="CIVILAIDE"

RETURN

***********************************************************************************
* Fichiers  vider
70

	EXECUTE 'VIDER-FICHIER ARCHIVEBORDCAISSE'
	EXECUTE 'VIDER-FICHIER COMPLFACT'
	EXECUTE 'VIDER-FICHIER DETAILADMIN'
	EXECUTE 'VIDER-FICHIER HRESATTENTE'
	EXECUTE 'VIDER-FICHIER OPPOSITION'
	EXECUTE 'VIDER-FICHIER REGULDNT'
	EXECUTE 'VIDER-FICHIER RIBAIDANT'
	EXECUTE 'VIDER-FICHIER TPSEXCEPTIONS'
	EXECUTE 'VIDER-FICHIER TPSMOI'
	EXECUTE 'VIDER-FICHIER TPSREMPLACEAIDANT'
	EXECUTE 'VIDER-FICHIER BALANCEANAL'
	EXECUTE 'VIDER-FICHIER BALANCEAUX'
	EXECUTE 'VIDER-FICHIER BALANCEAUXARCHIVE'
	EXECUTE 'VIDER-FICHIER BALANCEGENE'
	EXECUTE 'VIDER-FICHIER BROUILLARDDETAIL'
	EXECUTE 'VIDER-FICHIER BROUILLARDTETE'
	EXECUTE 'VIDER-FICHIER BUDGET'
	EXECUTE 'VIDER-FICHIER BUDGETCLES'
	EXECUTE 'VIDER-FICHIER DETAILECRITUREAUX'
	EXECUTE 'VIDER-FICHIER DETAILECRITUREAUXARCHIVE'
	EXECUTE 'VIDER-FICHIER DETAILECRITUREGENE'
	EXECUTE 'VIDER-FICHIER DETAILECRITURERELANCE'
	EXECUTE 'VIDER-FICHIER IMMO'
	EXECUTE 'VIDER-FICHIER JOURNAL'

RETURN
