'---Bezeichnung: Leistungen, Spesen und Auslagen korrigieren ' Klasse: Projekt ' ObjectScript: Yes ' ContainerScript: No ' EventType: Kein '---Setzt verrechnete Leistungen, Spesen und Auslagen, die fälschlicherweise ' verrechnet wurden, wieder auf offen. Es werden nur die Leistungen, ' Spesen und Auslagen korrigiert, die sich nicht auf einer Rechnung befinden. '---07.05.2007, Vertec AG: erstellt. '---20.03.2015, Vertec AG, SR: Leistungen und Spesen von pauschalen Phasen ' werden rausgefiltert, da sich diese nicht direkt auf der Rechnung befinden. '---03.09.2015, Vertec AG, BR: Script für verrechnete Auslagen ohne Rechnung erweitert. option explicit dim list dim eintrag dim i 'Leistungen korrigieren set list = Vertec.argobject.member("verrechneteLeistungen") for i = list.count-1 to 0 step -1 set eintrag = list.objects(i) if ((eintrag.member("rechnung") is nothing) AND (not eintrag.eval("phase.pauschal"))) then eintrag.MakeOffen end if next 'Spesen korrigieren set list = Vertec.argobject.member("verrechneteSpesen") for i = list.count-1 to 0 step -1 set eintrag = list.objects(i) if ((eintrag.member("rechnung") is nothing) AND (not eintrag.eval("phase.pauschalspesen"))) then eintrag.MakeOffen end if next 'Auslagen korrigieren set list = Vertec.argobject.member("verrechneteAuslagen") for i = list.count-1 to 0 step -1 set eintrag = list.objects(i) if ((eintrag.member("rechnung") is nothing) AND (not eintrag.eval("phase.pauschalauslagen"))) then eintrag.MakeOffen end if next