Script: Spesen als ausbezahlt markieren

Produktlinien: Expert
Module: Leistung & CRM
Erstellt: 15.08.2011, Änderung: 15.08.2011
Mehr ansehen

Inhalt

Dieses Script setzt alle Spesen in einer Liste auf ausbezahlt.

Version

Alle Versionen.

Ausführen

Auf einer Liste von Spesen.

Script

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