EXECUTE "SET-THOUS ."
OPEN "", "TPSREMPLACEAIDANT" TO F.TPSREMPLACEAIDANT ELSE STOP
OPEN "", "TPSTEMPO" TO F.TPSTEMPO ELSE STOP

PROCREAD PARAMETRES ELSE STOP
W_NewCodeAbs = FIELD(PARAMETRES,"|",2)
W_NewDateFinAbs = FIELD(PARAMETRES,"|",3)
W_AncCodeAbs = FIELD(PARAMETRES,"|",4)

EXECUTE 'SET-DEC ,'
EXECUTE 'DATE.FORMAT'

IF W_AncCodeAbs # "" THEN
	READ ENR_TPSREMPLACEAIDANT FROM F.TPSREMPLACEAIDANT,W_AncCodeAbs ELSE ENR_TPSREMPLACEAIDANT = ""
END ELSE
	ENR_TPSREMPLACEAIDANT = ""
END

ENR_TAMPON = ""
W_ListeCouples = ""
W_Params = ""
W_CleRetour = "MajTpsRemplaceAidant":TIME()
W_Params = 'AFFICHEPLANNING |':W_CleRetour:'||PMIS|':W_NewCodeAbs[8,5]:'|':W_NewDateFinAbs:'|||':W_NewCodeAbs[1,5]:'|REMPLACEMENT||':W_NewCodeAbs
EXECUTE W_Params        
READ W_ListeInterv FROM F.TPSTEMPO, "AFFICHEPLANNING":W_CleRetour ELSE W_ListeInterv = ""
DELETE F.TPSTEMPO, "AFFICHEPLANNING":W_CleRetour    
    i = 0
    LOOP
	i = i + 1
    WHILE W_ListeInterv<i> # ""
     IF INDEX(W_ListeCouples,W_ListeInterv<i>[6,5]:W_ListeInterv<i>[16,6]:";",1) = 0 THEN

	k = 0
	W_Trouve = "F"
	LOOP
		k = k + 1
	WHILE ENR_TPSREMPLACEAIDANT<1,k> # "" AND W_Trouve = "F" 
		IF ENR_TPSREMPLACEAIDANT<1,k> = W_ListeInterv<i>[6,5] AND ENR_TPSREMPLACEAIDANT<2,k> = W_ListeInterv<i>[16,6] THEN
			W_Trouve = "V"
			IF ENR_TPSREMPLACEAIDANT<3,k> # "T" THEN
				ENR_TAMPON<1,-1> = ENR_TPSREMPLACEAIDANT<1,k>
				ENR_TAMPON<2,-1> = ENR_TPSREMPLACEAIDANT<2,k>
				*IF ENR_TPSREMPLACEAIDANT<3,k> = "B" THEN
				  ENR_TAMPON<3,-1> = ENR_TPSREMPLACEAIDANT<3,k>
				*END ELSE
				*  ENR_TAMPON<3,-1> = CHAR(204)
				*END
				ENR_TAMPON<4,-1> = CHAR(204)
				W_ListeCouples = W_ListeCouples:ENR_TPSREMPLACEAIDANT<1,k>:ENR_TPSREMPLACEAIDANT<2,k>:";"
			END
		END
	REPEAT
	*IF W_Trouve = "F" THEN
	*	ENR_TAMPON<1,-1> = W_ListeInterv<i>[6,5]
	*	ENR_TAMPON<2,-1> = W_ListeInterv<i>[16,6]
	*	ENR_TAMPON<3,-1> = CHAR(204)
	*	ENR_TAMPON<4,-1> = CHAR(204)

	*	W_ListeCouples = W_ListeCouples:W_ListeInterv<i>[6,5]:W_ListeInterv<i>[16,6]:";"
	*END
     END
    REPEAT
	
    CONVERT CHAR(204) TO "" IN ENR_TAMPON

    EXECUTE 'SELECT TPSDETAILSINTERV AVEC 6 = "':W_NewCodeAbs:'"'
    W_FinRempl = "F"
    LOOP
	READNEXT W_CleRempl ELSE W_FinRempl = "V"
    WHILE W_FinRempl = "F"
	k = 0
	W_Trouve = "F"
	LOOP
		k = k + 1
	WHILE ENR_TAMPON<1,k> # "" AND W_Trouve = "F"
		IF ENR_TAMPON<1,k> = W_CleRempl[6,5] AND ENR_TAMPON<2,k> = W_CleRempl[16,6] THEN
			W_Trouve = "V"
			ENR_TAMPON<3,k> = "T"
			IF INDEX(ENR_TAMPON<4,k>,W_CleRempl[1,5],1)=0 THEN
				ENR_TAMPON<4,k,-1> = W_CleRempl[1,5]
			END
		END
	REPEAT
	IF W_Trouve = "F" THEN
		W_Count = DCOUNT(ENR_TAMPON<1>,CHAR(253)) + 1
		ENR_TAMPON<1,W_Count> = W_CleRempl[6,5]
		ENR_TAMPON<2,W_Count> = W_CleRempl[16,6]
		ENR_TAMPON<3,W_Count> = "T"
		ENR_TAMPON<4,W_Count,1> = W_CleRempl[1,5]
	END
	
    REPEAT
CONVERT CHAR(204) TO "" IN ENR_TAMPON

WRITE ENR_TAMPON ON F.TPSREMPLACEAIDANT, W_NewCodeAbs

STOP
