Script: SQL-Ordner kopieren

Dupliziert den aktuellen SQL-Ordner inklusive aller Abfragen. Es kann der Zielordner angegeben werden, in welchem der neue SQL-Ordner abgelegt wird.

Version

VersionBeschreibungScript
ab Version 5.8 Verwendet die Vertec-Funktionen msgbox und inputbox (siehe dazu msgbox/inputbox: Beschreibung der Parameter) CopySQLOrdner.txt

Ausführen

Dieses Skript kann nicht registriert werden und muss im Skripteditor ausgeführt werden. Markieren Sie den SQL-Ordner, den Sie duplizieren wollen. Öffnen Sie über das Menü Einstellungen den VB Script Editor. Fügen Sie den Scripttext und klicken Sie auf Ausführen.

Scripttext

'---Bezeichnung: SQL-Ordner kopieren
'   Klassen: Dieses Skript kann nicht registriert werden und
'   muss im Skripteditor ausgeführt werden
'   ObjectScript: No
'   ContainerScript: No
'   EventType: Kein
'---Das Skript kopiert den aktuellen Ordner als Sub-Ordner
'   eines anderen Ordners.
'   Der neue Parenordner muss über den Namen angegeben
'   werden. Der Name muss nicht zwingend die Bezeichnung
'   sein, die auf der Oberfläche erscheint. Sie können den
'   Namen einsehen, indem Sie auf dem Ordner mit rechter
'   Maustaste System > Eigenschaften anwählen. Im Feld
'   Bezeichnung befindet sich der Name.
'---11.11.2011, cp: erstellt.
'---27.09.2016, sr: msgbox durch vertec.msgbox und inputbox
'   durch vertec.inputbox ersetzt.

option explicit

dim ordner
dim ordnerlist
dim parentname
dim newordner

set ordner = Vertec.argobject
if not ordner.isOfType("SqlOrdner") then
   vertec.msgbox "Sie können dieses Skript nur auf einem SQL-Ordner ausführen.",,"Vertec"
else
   'neuen Parentordner bestimmen
   parentname = vertec.inputBox("Ordnername","Geben Sie den Namen des neuen Parentordners an", "")
   set ordnerlist = Vertec.eval("ordner->select(bezeichnung='"+parentname+"')")
   if ordnerlist.count <> 1 then
      vertec.msgbox "Es wurden keine oder mehrere Ordner mit diesem Namen gefunden. Die Zuordnung kann nicht vorgenommen werden.",,"Vertec"
   else
      set newordner = vertec.createobject("SqlOrdner")
      newordner.member("parentordner") = ordnerlist.objects(0)

      '---Die Member von SQL-Ordner
      newordner.member("AllowShowAll") = ordner.member("AllowShowAll")
      newordner.member("OrderClause") = ordner.member("OrderClause")
      newordner.member("WhereClause") = ordner.member("WhereClause")
      newordner.member("WhereFormats") = ordner.member("WhereFormats")
      newordner.member("WhereAttributes") = ordner.member("WhereAttributes")
      newordner.member("ShowDialog") = ordner.member("ShowDialog")

      '---Die Member von Expression Ordner
      newordner.member("CreatorTypes") = ordner.member("CreatorTypes")
      newordner.member("Expression") = ordner.member("Expression")

      '---Die Member von Abstract-Ordner
      newordner.member("web") = ordner.member("web")
      newordner.member("TabsProKlasse") = ordner.member("TabsProKlasse")
      newordner.member("Idx") = ordner.member("Idx")
      newordner.member("bezeichnung") = ordner.member("bezeichnung")
      newordner.member("PersistentIcon") = ordner.member("PersistentIcon")

      '---Die Member von Eintrag
      newordner.member("Bemerkung") = ordner.member("Bemerkung")
  end if
end if


27.09.2016 | 27.09.2016
Produktlinien: Expert
Module: Leistung & CRM
Apps: Classic App, Desktop App