Discussion :

[leloup84]

Bonjour,
J'utilise régulièrement les transactions systèmes pour modifier en masse la valeur d'un champ par un autre.
La demande d'un service en interne cette fois est de modifié une partie du champs par une autre valeur.

Disons par exemple la désignation d'un article qui contient le mot "plage" et on souhaite le remplacer par "mer" out en gardant ce qu'il y a devant et derrière.

Par exemple :
"large plage bleu" deviendrait "large mer bleu"
"petite plage verte" deviendrait "petite mer bleu"
....

Merci d'avance

[jeromecha]

Pas simple !!

Si STR = la chaîne d'origine, OLDSTR = la chaîne a remplacer et NEWSTR la chaîne de remplacement ça donne quelque chose comme ça

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

left$(STR,(instr(0,STR,OLDSTR))-1)+NEWSTR+right$(STR,(instr(0,STR,OLDSTR))+len(OLDSTR))

ce qui donne avec ton exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

left$("petite plage verte",(instr(0,"petite plage verte",'plage'))-1)+'mer'+right$("petite plage verte",(instr(0,"petite plage verte",'plage'))+len("plage"))

Le problème est que tu es limité à 80 caractères dans les formules de transaction...

[leloup84]

J'ai peur de m'être mal exprimé.
En fait j'ai une centaine d'article avec le mot "plage" dedans que je veux remplacer par le mot "mer".
Les 2 exemples que j'ai donné sont 2 désignations parmi la centaine.

Or d'après votre exemple j'ai l'impression qu'il faut faire la requête pour chaque article, je cherche à le faire en masse, car dans ce cas autant passé par la maintenance des tables ?
Ou j'ai mal compris quelque chose ?

[jeromecha]

Oui je crois que j'ai bien compris
si tu veux remplacer le mot plage par le mot mer dans toutes les désignations 1 de tes article tu fais quelque chose comme ça dans la formule de ta transaction systeme:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

left$([F:ITM]ITMDES1,(instr(0,[F:ITM]ITMDES1,"plage"))-1)+"mer"+right$([F:ITM]ITMDES1,(instr(0,[F:ITM]ITMDES1,"plage"))+len("plage"))

[leloup84]

ok merci je vais faire le test sur un ou deux articles avant de lancer en masse bien sûr.

Et cela se passe bien par le menu "Transaction de mise à jour"
Je choisis ma table et dans le 2ème onglet je ne précise aucune paramètre tout se fait dans le 2ème tableau ? C'est ça





Et j'ai un message d'erreur quand je veux inscrire la formule j'ai l'impression que la fonction right n'existe pas de mémoire :

[jeromecha]

Moi j'ai le message qui dit que la formule dépasse 80 caractères ... comme prévu

Une solution serait de créer 2 champs temporaires

1ere champ ZPARTIEGAUCHE dans laquelle tu mets

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

left$([F:ITM]ITMDES1,(instr(0,[F:ITM]ITMDES1,"plage"))-1)

2eme champs ZPARTIEDROITE dans laquelle tu mets

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

right$([F:ITM]ITMDES1,(instr(0,[F:ITM]ITMDES1,"plage"))+len("plage"))

et dans une 2eme transaction de mise à jour tu concatènes ZPARTIEGAUCHE+"mer"+ZPARTIEDROITE

C'est une idée, il y a surement d'autres solutions peut-être plus simple

Et cela se passe bien par le menu "Transaction de mise à jour"

Oui !

Je choisis ma table et dans le 2ème onglet je ne précise aucune paramètre tout se fait dans le 2ème tableau ? C'est ça

Tu peux mettre des paramètres si tu veux. Pour appeler les paramètres dans les sélection ou les formules il faut utiliser la syntaxe V1 pour le 1er paramètre, V2 pour le 2eme ,....

[hado34]

en sql directement au niveau de la base sera plus rapide pour ce coup

transaction systeme se limite a des cas simple

[leloup84]

Ah ok mais compétence se limite à l'application Sage.
Je ne sais pas attaquer la base SQL Server.

[hado34]

sinon autre solution faire un modele d import export

une fois les designations exportes dans notepad vous pouvez remplacer cela rapidement et reimporter

[piotr.n]

ou une autre solution est de le faire par un traitement qui parcours les articles et qui utilise la fonction suivante pour le remplacement de sous-chaines :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
#**
#* Sous-programme remplaçant dans une chaîne une sous-chaîne par une autre
#*
#* @param ZCHAINE : Chaîne à traiter
#* @param ZOLD : texte à remplacer
#* @param ZNEW : nouveau texte
#*!
Subprog RPLCH(ZCHAINE,ZOLD,ZNEW)
    Variable Char ZCHAINE
    Value Char ZOLD,ZNEW
    Local Integer ZI
    Local Char ZRETOUR(255)
    ZRETOUR=""
    For ZI=1 To len(ZCHAINE)
        If mid$(ZCHAINE,ZI,len(ZOLD)) = ZOLD
            ZRETOUR+=ZNEW
            ZI+=len(ZOLD)-1
        Else
            ZRETOUR+=mid$(ZCHAINE,ZI,1)
        Endif
    Next ZI
    ZCHAINE=ZRETOUR
End