Mithilfe der Funktionen für Listen lassen sich Listen erzeugen und bearbeiten. Zu den Funktionen für Listen gehören:

• add
• addAll
• contains
• intersection
• isEmpty
• list
• minus
• size
• toCharList
• union

Grundlegende Informationen zu den allgemeinen Funktionen der System-Skriptsprache erhalten Sie im Dokument System-Skriptsprache: Allgemeine Funktionen.

add

Folgendes Beispiel aus der Aktivitätsdefinition help.add erzeugt eine Liste vom Datentyp String[] mit einem Element für jedes Wort im Text parameters.TEXT:

function create()
{
var p_text := trim(parameters.TEXT);

var p_text := trim(parameters.TEXT);
var r_wordList as String[];
var word as String;
var startPos := 0;
var i := 0;

while (i < length(p_text)) {
if (substring(p_text, i, i + 1) = " ") {
word := trim(substring(p_text, startPos, i));
startPos := i;
if (word <> "")
add(r_wordList, word);
}
i := i + 1;
}
word := trim(substring(p_text, startPos));
if (word <> "")
add(r_wordList, word);

result.VALUE := r_wordList;
}

Beispiel: Parametersliste mit verschiedenen Datentypen

Besitzt die Liste den Datentypen Unknown[], dann können Elemente beliebiger Datentypen hinzugefügt werden, da alle Datentypen in Unknownumgewandelt werden können. Daher können Sie die Funktion addbeispielsweise dazu verwenden, eine Parameterliste für die Funktion getCisObjectListzu erzeugen, wenn die OQL-Abfrage Parameter unterschiedlicher Datentypen besitzt, die nicht automatisch in den Datentyp des ersten Parameters umgewandelt werden können.

Das folgende Beispiel verwendet eine Parameterliste vom Datentyp Unknown[], um mithilfe der Funktion getCisObjectListdie ersten 100 internen Personen zu ermitteln und auf der Konsole auszugeben:

const PartnerType as valueSet(com.cisag.app.general.PartnerType);
const BlockSize := 100;

function create()
{
var partnerList as CisObject(com.cisag.app.general.obj.Partner)[];
var params as Unknown[];
var OQL :=
"SELECT FROM com.cisag.app.general.obj.Partner p " +
"WHERE p:type = ? AND p:human = ? " +
"ORDER BY p:number";

add(params, PartnerType.INTERNAL);
add(params, true);

var cisObjectList := getCisObjectList(OQL, params, BlockSize);

for (p as CisObject(com.cisag.app.general.obj.Partner) : cisObjectList)
echo(p:number);
}

addAll

Folgendes Beispiel aus der Aktivitätsdefinition help.AddAll fügt einer Liste alle Elemente einer weiteren Liste hinzu:

function create()
{
var p_list1 as Unknown[];
var p_list2 as Unknown[];

add(p_list1, "carpe");
add(p_list1, "diem");
add(p_list2, now());
addAll(p_list1, p_list2);

result.VALUE := p_list1;
}

contains

Folgendes Beispiel aus der Aktivitätsdefinition help.contains prüft, ob ein Zeichen in einer Zeichenkette vorkommt:

function create()
{
var p_text := parameters.TEXT;
var p_element := parameters.ELEMENT;

var p_list := new(String[], length(p_text));

var i := 0;
while (i < size(p_list)) {
p_list[i] := substring(p_text, i, i + 1);
i := i + 1;
}
result.VALUE_LIST := p_list;
result.VALUE := contains(p_list, p_element);
}

intersection

Folgendes Beispiel aus der Aktivitätsdefinition help.intersection ermittelt alle Zeichen, die in beiden Zeichketten parameters.TEXT1und parameters.TEXT2enthalten sind:

function create()
{
var p_text1 := parameters.TEXT1;
var p_text2 := parameters.TEXT2;

var p_list1 := new(String[], length(p_text1));
var p_list2 := new(String[], length(p_text2));

var i := 0;
while (i < size(p_list1)) {
p_list1[i] := substring(p_text1, i, i + 1);
i := i + 1;
}
i := 0;
while (i < size(p_list2)) {
p_list2[i] := substring(p_text2, i, i + 1);
i := i + 1;
}

result.VALUE := intersection(p_list1, p_list2);
}

Beispiel: Bearbeiter einer Workflow-Aktivität ermitteln

Sie können die Funktionen union, intersectionund minusverwenden, um die Bearbeiter einer Workflow-Aktivität kontextbezogen zu ermitteln, wie das folgende Beispiel zeigt.

Die Bearbeiter einer Workflow-Aktivität zur Genehmigung eines Beschaffungsauftrags sollen mithilfe der Workflowrolle PO_APPROVERS ermittelt werden. Dazu wählen Sie zunächst den Bearbeiter Ausdruck in der Aktivitätsdefinition. Im Feld Ausdruck für Bearbeiter tragen Sie workers

ein und deklarieren die globale Variable workers außerhalb der Funktionen.

var workers as Guid[];

Innerhalb der Funktion create

weisen Sie workers die Benutzer-Guids der Inhaber der Workflowrolle zu.

function create()
{
/* approvers of purchase orders */
workers := resolveRole("PO_APPROVERS");
}

Übersteigt der Bruttobetrag des Beschaffungsauftrags 10.000,00 Euro (in der 1. Hauswährung), dann soll zusätzlich der zuständige Mitarbeiter des Rechnungsempfängers den Beschaffungsauftrag genehmigen.

In der Funktion createverwenden Sie dazu die Funktion union. Um zu verhindern, dass die Funktion union den Wert Nullzurückgibt, wenn für den Rechnungsempfänger kein zuständiger Mitarbeiter hinterlegt ist, prüfen Sie das Ergebnis der Funktion loadResponsibleOfPartnermithilfe der Funktion isNull.

/* additional approver of large purchase orders */
if (parameters.object:totalValues.grossValueDomestic.amount1 > 10000) {
var responsibleOfPartner := loadResponsibleOfPartner(parameters.object->InvoiceRecipientData:partner);
if (not isNull(responsibleOfPartner))
workers := union(workers, resolvePartner(responsibleOfPartner:guid));
}

Falls der Antragssteller seinen eigenen Beschaffungsauftrag nicht genehmigen darf, schließen Sie den Auslöser des Ereignisses und den zuständigen Mitarbeiter des Beschaffungsauftrags mithilfe der Funktion minusaus der Menge der Bearbeiter aus.

/* remove requester */
workers := minus(workers, list(parameters.userGuid));
if (not isNull(parameters.object:responsible))
workers := minus(workers, resolvePartner(parameters.object:responsible), list(parameters.userGuid));

Um auch Mitarbeiter, die gerade abwesend sind, als Bearbeiter auszuschließen, verwenden Sie die Funktion minus.

/* remove absent workers */
var absentees as Guid[];
for (u as Guid : workers)
if (userAbsent(u))
add(absentees, u);
workers := minus(workers, absentees);

Ist die Menge der Bearbeiter leer, dann soll der Vorgesetzte des Auslösers des Ereignisses den Beschaffungsauftrag genehmigen. Wenn Sie Stellen verwenden, können Sie den Vorgesetzten mithilfe der Funktion superiorermitteln.

/* use superior of user who triggered the event as default */
if (isEmpty(workers))
workers := superior(parameters.userGuid);

Das fertige Beispiel sieht dann wie folgt aus:

var workers as Guid[];

function create()
{
/* approvers of purchase orders */
workers := resolveRole("PO_APPROVERS");

/* additional approver of large purchase orders */
if (parameters.object:totalValues.grossValueDomestic.amount1 > 10000) {
var responsibleOfPartner := loadResponsibleOfPartner(parameters.object->InvoiceRecipientData:partner);
if (not isNull(responsibleOfPartner))
workers := union(workers, resolvePartner(responsibleOfPartner:guid));
}

/* remove requester */
workers := minus(workers, list(parameters.userGuid));
if (not isNull(parameters.object:responsible))
workers := minus(workers, resolvePartner(parameters.object:responsible), list(parameters.userGuid));

/* remove absent workers */
var absentees as Guid[];
for (u as Guid : workers)
if (userAbsent(u))
add(absentees, u);
workers := minus(workers, absentees);
..
/* use superior of user who triggered the event as default */
if (isEmpty(workers))
workers := superior(parameters.userGuid);
}

Ist die Menge der Bearbeiter leer und in der Anwendung Stellen ist keine Vorgesetzten-Beziehung für den Auslöser definiert, dann werden die Inhaber der in der Customizing-Funktion Workflow-Management hinterlegten OLTP-Workflowrolle für Administratoren als Bearbeiter herangezogen. Ist in der Customizing-Funktion keine Workflowrolle hinterlegt oder sie besitzt keine gültigen Inhaber, dann wird der Benutzer ADMINISTRATOR als Bearbeiter herangezogen.

isEmpty

Folgendes Beispiel aus der Aktivitätsdefinition help.isEmpty bestimmt, ob eine Liste leer ist:

function create()
{
var p_element := parameters.ELEMENT;
var r_isEmpty as Boolean;

var elementList as String[];
if (p_element <> "")
add(elementList, p_element);

result.VALUE := isEmpty(elementList);
result.VALUE_LIST := elementList;
}

list

var list1 as Unknown[];
list1 := list(null, now(), 1, "zwei", 3);
result.VALUE := cast(Number, list1[2]) + cast(Number, list1[4]); /* -> 4 */

Folgendes Beispiel aus der Aktivitätsdefinition help.list erzeugt eine Liste mit zwei Elementen:

function create()
{
var p_element1 := parameters.ELEMENT1;
var p_element2 := parameters.ELEMENT2;
var r_list as String[];

r_list := list(p_element1, p_element2);

result.VALUE := r_list;
}

minus

Folgendes Beispiel aus der Aktivitätsdefinition help.minus ermittelt alle Zeichen, die in der ersten Zeichenkette parameters.TEXT1, aber nicht in der zweiten Zeichenkette parameters.TEXT2enthalten sind:

function create()
{
var p_text1 := parameters.TEXT1;
var p_text2 := parameters.TEXT2;

var p_list1 := new(String[], length(p_text1));
var p_list2 := new(String[], length(p_text2));

var i := 0;
while (i < size(p_list1)) {
p_list1[i] := substring(p_text1, i, i + 1);
i := i + 1;
}
i := 0;
while (i < size(p_list2)) {
p_list2[i] := substring(p_text2, i, i + 1);
i := i + 1;
}

result.VALUE_LIST1 := p_list1;
result.VALUE_LIST2 := p_list2;
result.VALUE := minus(p_list1, p_list2);
}

size

Folgendes Beispiel aus der Aktivitätsdefinition help.size bestimmt die Anzahl der Wörter in einem Text, indem es jedes Wort einer Liste hinzufügt und anschließend mithilfe der Funktion size die Länge der Liste ermittelt:

function create()
{
var p_text := trim(parameters.TEXT);
var r_wordList as String[];
var word as String;
var startPos := 0;
var i := 0;

while (i < length(p_text)) {
if (substring(p_text, i, i + 1) = " ") {
word := trim(substring(p_text, startPos, i));
startPos := i;
if (word <> "")
add(r_wordList, word);
}
i := i + 1;
}
word := trim(substring(p_text, startPos));
if (word <> "")
add(r_wordList, word);

result.VALUE_WORD_LIST := r_wordList;
result.VALUE := size(r_wordList);
}

toCharList

Folgendes Beispiel aus der Aktivitätsdefinition help.toCharList wandelt eine Zeichenkette in eine Liste von Zeichen um:

function create()
{
var p_text := parameters.TEXT;
var r_toCharList := "";

var charList := new(String[]);
var lenText := length(p_text);
var i := 0;
while (i < lenText) {
add(charList, substring(p_text, i, i + 1));
i := i + 1;
}
for (char : charList)
r_toCharList := r_toCharList + " [" + char + "]";

result.IS_EMPTY := isEmpty(charList);
result.VALUE := trim(r_toCharList);
}

union

Folgendes Beispiel aus der Aktivitätsdefinition help.minus ermittelt alle Zeichen, die in entweder der ersten Zeichenkette parameters.TEXT1oder der zweiten Zeichenkette parameters.TEXT2enthalten sind:

function create()
{
var p_text1 := parameters.TEXT1;
var p_text2 := parameters.TEXT2;

var p_list1 := new(String[], length(p_text1));
var p_list2 := new(String[], length(p_text2));

var i := 0;
while (i < size(p_list1)) {
p_list1[i] := substring(p_text1, i, i + 1);
i := i + 1;
}
i := 0;
while (i < size(p_list2)) {
p_list2[i] := substring(p_text2, i, i + 1);
i := i + 1;
}

result.VALUE_LIST1 := p_list1;
result.VALUE_LIST2 := p_list2;
result.VALUE := union(p_list1, p_list2);
}