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.

Alle Versionen

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

CorrVerrLeistSpesenAuslagenOhneRechnung.txt

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