Script: Leistungen, Spesen und Auslagen korrigieren

Inhalt

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. Korrekte Leistungen, Spesen und Auslagen werden nicht tangiert.

Version

Alle Versionen

Ausführen

Auf einem einzelnen Projekt, dessen verrechnete Leistungen, Spesen und Auslagen korrigiert werden sollen.

Script

CorrVerrLeistSpesenAuslagenOhneRechnung.txt

Scripttext

'---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



13.02.2004 | 07.09.2015: Änderung Script: Auslagen werden neu ebenfalls verarbeitet. Auch der Name des Scripts ist entsprechend geändert.
Produktlinien: Standard, Expert
Module: Leistung & CRM, Fremdkosten