*****************************************************************
* Mise  jour fichier PARAMBORDORGCHG                           *
* Suppression des () dans les libells                          *
*****************************************************************

************
* FICHIERS *
************
* OUVERTURE DES FICHIERS UTILISES
*DEBUG
EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","PARAMBORDORGCHG" TO F.PARAMBORDORGCHG ELSE STOP

READ ENR_PARAMBORDORGCHG FROM F.PARAMBORDORGCHG,"1" ELSE PRINT "PARAMBORDORGCHG"

IF ENR_PARAMBORDORGCHG = "" THEN
    PRINT "Le fichier PARAMBORDORGCHG est vide ou introuvable. Veuillez contacter INFOLOGIS."
    STOP
END

************************************************
*Boucle de recherche des libells contenant des ()
************************************************
W_count = DCOUNT(ENR_PARAMBORDORGCHG,CHAR(254))
FOR I = 1 TO W_count
    W_Place = INDEX(ENR_PARAMBORDORGCHG<I,1>,"(",1) - 1
    IF W_Place > 0 THEN 
       PRINT "Remplacement de '":ENR_PARAMBORDORGCHG<I,1>:"' par '":TRIMB(ENR_PARAMBORDORGCHG<I,1>[0,W_Place]):"'"
       ENR_PARAMBORDORGCHG<I,1> = TRIMB(ENR_PARAMBORDORGCHG<I,1>[0,W_Place])	
    END
NEXT I

WRITE ENR_PARAMBORDORGCHG TO F.PARAMBORDORGCHG,"1"

RETURN
