Script: Spesen als ausbezahlt markieren

Inhalt

Dieses Script setzt alle Spesen in einer Liste auf ausbezahlt.

Version

Alle Versionen.

Ausführen

Auf einer Liste von Spesen.

Script

SetSpesenToAusbezahlt.txt

Scripttext

'---Bezeichnung: Spesen in Liste als ausbezahlt markieren
'   Klassen: Spesen
'   ObjectScript: No
'   ContainerScript: Yes
'   EventType: Kein
'   EventClass:
'   EventMembers:
'   ExtendedRights: No
'---Dieses Script setzt alle Spesen einer Liste auf ausbezahlt.
'---08.2011 Vertec AG: erstellt.
option explicit

dim ord
dim liste
dim i
dim spesen

set ord = Vertec.argobject
set liste = ord.eval("eintraege")
for i = 0 to liste.count-1
set spesen = liste.objects(i)
spesen.member("ausbezahlt") = true
next

15.08.2011 | 15.08.2011
Produktlinien: Expert
Module: Leistung & CRM