Therefore™ Referenz

Dies ist die Standardeinstellung, und daher brauchen Sie nur die Kategorie zu definieren, in der das Dokument gespeichert werden soll.

Wählen Sie die Kategorie aus, in der das Dokument gespeichert werden soll, klicken Sie auf die Schaltfläche Skript und geben Sie das folgende Skript ein:

FilesToSave = ExtractList ("FileName")

Wenn eine andere Datei gespeichert werden soll, wählen Sie die Kategorie für das Dokument aus. Klicken Sie auf die Schaltfläche Skript und geben Sie das folgende Skript ein: FilesToSave = "<Pfad oder relativer Pfad zu der Datei>"

Wenn keine Datei gespeichert werden soll (Therefore™-Formular), wählen Sie die Kategorie für das Dokument aus. Klicken Sie auf die Schaltfläche Skript und geben Sie das folgende Skript ein: FilesToSave = empty

Wenn eine neue Akte erstellt werden soll, wählen Sie KEINE Kategorie aus. Klicken Sie auf die Schaltfläche Skript und verwenden Sie das folgende Skript:

dim IxDataCaseHeader

dim CreateParams(0)

CreateParams(0) = "IndexData"        ' we want an index data object - currently that's the only one supported

dim CreateParamsVar

CreateParamsVar = CreateParams

' Indexdatenobjekt erstellen

set IxDataCaseHeader = CreateThereforeObject(CreateParamsVar)

' Die gewünschte Aktendefinition festlegen. Entweder CaseDefNo oder CaseDefName.

' Hinweis: Wenn der Name der Aktendefinition nicht eindeutig ist (möglich in TF2014) wird die erste gefundene Aktendefinition verwendet.

IxDataCaseHeader.SetCaseDef("TestCase")

' Kopfdatenfelder einrichten - dies kann nur über die Funktion SetField geschehen.

' Ändern Sie dies zu Ihren Feldern

'IxDataCaseHeader.SetField "<der Spaltenname>", "<der einzurichtende Wert>"

IxDataCaseHeader.SetField "CaseHeaderData1", "My case header data 1"

IxDataCaseHeader.SetField "CaseHeaderData2", "My case header data 2"

IxDataCaseHeader.SetField "CaseNumberData1", 9001

' SearchCase(true) - Liefert entweder 0 zurück, wenn keine Akte gefunden wurde, oder die CaseNo, wenn eine Akte gefunden wurde. Wenn mehrere Akten gefunden werden, wird die CaseNo der ersten Akte zurückgeliefert.

' SearchCase(false) - Wie oben, aber liefert -1 zurück, wenn mehrere Akten gefunden werden, nicht die CaseNo der ersten gefundenen Akte.

nCaseNo = IxDataCaseHeader.SearchCase(true)

if nCaseNo > 0 then

 ' Eine Akte mit diesen Indexdaten existiert bereits

 ' Keine neue Akte erstellen - bestehende verwenden

 SetCaseNo(nCaseNo)

elseif nCase = 0 then

 ' Keine Akte mit diesen Indexdaten gefunden

 ' Neue Akte erstellen

 nCreatedCaseNo = IxDataCaseHeader.CreateCase

 SetCaseNo(nCreatedCaseNo)

elseif nCase = -1 then

 ' Dies kann nur geschehen, wenn Sie SearchCase(false) anstatt von SearchCase(true) verwenden

 ' Dies bedeutet, dass mehrere Akten mit diesen Indexdaten gefunden wurden.

 ' Sie könnten in diesem Fall einen Fehler generieren, wie z. B.

 ScriptError("Mehrere Akten gefunden.")

end if