Kopiert den aktuellen SQL-Ordner inklusive aller Abfragen und fügt ihn in einen auszuwählenden Überordner ein.
Nicht kopiert werden die Listeneinstellungen. Falls Sie diese ebenfalls übernehmen möchten, verwenden Sie dafür das Script Listeneinstellungen kopieren.
#---Bezeichnung: SQL-Ordner kopieren
# Klassen: SQL-Ordner
# Selectedobjectsscript: Yes
# Condexpression: Kein
#---Das Skript kopiert den aktuellen Ordner und fügt ihn
# einem auszuwählenden Ordner als Unterordner an.
# Der neue Parenordner muss über die ID angegeben werden.
# Die ID finden Sie auf dem Ordner mit rechter Maustaste > Eigenschaften.
#---11.11.2011, cp: erstellt.
#---27.09.2016, sr: msgbox durch vertec.msgbox und inputbox
# durch vertec.inputbox ersetzt.
#---15.06.2018, sth: Script in Python übersetzt. Voraussetzung: Vertec 6.2
#---19.10.2023, sth: Kopiert auch das Feld List Controller ab Vertec 6.6
#---10.10.2024, sth: An selectedobjects ab Vertec 6.7.0.12 angepasst.
def main(ordnerlist):
for ordner in ordnerlist:
parentord = None
# Neuen Parentordner bestimmen
parentord = vtcapp.selectobjectintree("Überordner für die Ordnerkopie auswählen ", [], browsefilter="", selectfilter="AbstractOrdner")
if parentord:
try:
newordner = vtcapp.createobject("SqlOrdner")
newordner.parentordner = parentord
# kopiere alle Member
newordner.allowShowAll = ordner.allowShowAll
newordner.orderClause = ordner.orderClause
newordner.showDialog = ordner.showDialog
newordner.whereClause = ordner.whereClause
newordner.classname = ordner.classname
newordner.creatorTypes = ordner.creatorTypes
newordner.dialogParamsInitialized = ordner.dialogParamsInitialized
newordner.expression = ordner.expression
newordner.searchConfiguration = ordner.searchConfiguration
newordner.bezeichnung = ordner.bezeichnung
newordner.tabsProKlasse = ordner.tabsProKlasse
newordner.idx = ordner.idx
newordner.persistentIcon = ordner.persistentIcon
newordner.bemerkung = ordner.bemerkung
newordner.controllerclassname = ordner.controllerclassname
vtcapp.msgbox("Kopiervorgang beendet")
except Exception as e:
vtcapp.msgbox('Beim Erstellen des neuen Ordners ist ein Problem aufgetreten. Der Kopiervorgang wurde abgebrochen.\nDer Fehler lautet: %s' % str(e))
continue
main(selectedobjects)
