Script: Vorwahl ändern

Inhalt

Das Script ändert auf allen aktiven Adressen (Firmen, Kontakte, Personen, einfache Adressen) die Vorwahl bei Telefon, Fax und Mobile (interner Typ T, F und M).

Die alte und die neue Vorwahl werden abgefragt. Es werden alle Nummern geändert, deren Anfang genau der alten Vorwahl entspricht (wenn z.B. die Vorwahl 01 geändert werden soll, werden Nummern, die mit 001 beginnen, nicht geändert. Nummern mit 0180 würden geändert werden).

Kann verwendet werden z.B. für die Änderung von 01 -> 044, für die Internationalisierung (statt 041 -> +41 41) etc.

Version

Ab Version 5.2; berücksichtigt den Komm-Mittel-Typ Mobile.

Ausführen

Irgendwo in Vertec. Es werden alle aktiven Adressen berücksichtigt.

Script

'---Skript "Vorwahl ändern auf aktiven Adresseinträgen".
'   Erfragt eine alte Vorwahl und ein neue und ersetzt bei allen
'   Komm-Mitteln des Typs "Telefon", "Fax" und "Mobile" die, bei
'   denen die Zielnummer mit der alten Vorwahl
'   beginnt, diesen String-Teil mit der neuen Zielnummer.

option explicit

call Main

sub Main()

dim alteVorwahl
dim neueVorwahl
dim Adresslist
dim Adresse
dim KommMittelListe
dim KommMittel
dim i, k

alteVorwahl = InputBox("Bitte geben Sie die alte Vorwahl ein, die Sie ersetzen wollen.", "Vertec")
if alteVorwahl="" then
   exit sub
end if

neueVorwahl = InputBox("Bitte geben Sie die neue Vorwahl ein.", "Vertec", "")
if neueVorwahl="" then
   exit sub
end if

set Adresslist = Vertec.eval("adresseintrag->select(aktiv)")

for i = 0 to Adresslist.count-1
  set Adresse = Adresslist.objects(i)
  '---Suche alle Komm-Mittel der Adresse.
  set KommMittelListe = Adresse.eval("kommmittel->select" _
    + "((typ.internertyp='T') or (typ.internertyp='F') or (typ.internertyp='M'))")

  for k = 0 to KommMittelListe.count-1
   set KommMittel = KommMittelListe.objects(k)
   if Left(KommMittel.member("zieladresse"), Len(alteVorwahl)) = alteVorwahl then
      KommMittel.member("zieladresse") = _
      + neueVorwahl + mid(KommMittel.member("zieladresse"), Len(alteVorwahl)+1, _
      + Len(KommMittel.member("zieladresse")))
   end if
  next
next

end sub