Script: Einzelne Leistung kopieren

Inhalt

Das Script kopiert die aktuelle Leistung ohne Aufwand und Text. Die neue Leistung wird in einem Einzelfenster angezeigt (dies ist notwendig, damit keine ungültigen Leistungen irgendwo "verschwinden").

Version

Alle Vertec Versionen.

Ausführen

Auf der einzelnen Leistung, die kopiert werden soll. Registrieren auf Leistung, Einzelobjekt.

Script

CopyLeistung.txt

Scripttext

'---Bezeichnung: Leistung kopieren
'   Klassen: Leistung
'   ObjectScript: Yes
'   ContainerScript: No
'   EventType: Kein
'---Skript kopiert die aktuelle Leistung ohne Aufwand und Text und zeigt die
'   neu erzeugte Leistung im Einzelfenster an.
'---30.04.2009, Vertec AG: erstellt.

option explicit

dim NLeistung
dim ALeistung

if vertec.argobject.isOfType("Leistung") then
set ALeistung = Vertec.ArgObject
set NLeistung = Vertec.CreateObject("OffeneLeistung")

NLeistung.member("bearbeiter") = ALeistung.member("bearbeiter")
NLeistung.member("datum") = ALeistung.member("datum")
NLeistung.member("projekt") = ALeistung.member("projekt")
NLeistung.member("phase") = ALeistung.member("phase")
NLeistung.member("typ") = ALeistung.member("typ")
vertec.showform NLeistung
end if

07.05.2007 | 25.03.2011: "Registrieren"-Link korrigiert.
Produktlinien: Expert
Module: Leistung & CRM