Beschreibung:

Durchläuft alle Datensätze in einem kopierten RecordSet und summiert die Gesamtumsätze. Dieses Beispiel basiert auf der Firmen-Ansicht einer Large-Solution.

VBScript:

Dim oRecordSetCopy : Set oRecordSetCopy = cRM.ActiveView.CurrentRecordSetCopy

Dim oRecord

Dim nTurnover : nTurnover = 0

If (oRecordSetCopy.MoveFirst() = True) Then

    Set oRecord = oRecordSetCopy.CurrentRecord

    Do

        nTurnover = nTurnover + oRecord.GetContentsValueByName("Turnover")

    Loop Until Not oRecordSetCopy.MoveNext()

    Set oRecord = Nothing

End If

Call cRM.DialogMessageBox("Der Gesamtumsatz der aktuell angezeigten Datensätze beträgt: " & CStr(nTurnover) & " EUR.", "RecordSet.MoveFirst", vbOkOnly)

Set oRecordSetCopy = Nothing

C#-Script:

RecordSet recordSetCopy = cRM.ActiveView.CurrentRecordSetCopy();

Record record;

double turnover = 0;

if (recordSetCopy.MoveFirst() == true)

{

    record = recordSetCopy.CurrentRecord;

    do

    {

        turnover = turnover + (double)record.GetContentsValueByName("Turnover");

    } while (!recordSetCopy.MoveNext());

    record.Dispose();

}

cRM.DialogMessageBox("Der Gesamtumsatz der aktuell angezeigten Datensätze beträgt: " + turnover.ToString() + " EUR.", "RecordSet.MoveFirst", 0);

recordSetCopy.Dispose();

TypeScript:

import {

    cRM,

    RecordSet,

    Record

} from "./sdk/combitCRM.SDK.WindowsClient.v13";

const recordSetCopy : RecordSet = cRM.ActiveView.CurrentRecordSetCopy();

let record : Record;

let turnover : number = 0;

if (recordSetCopy.MoveFirst() == true) {

    record = recordSetCopy.CurrentRecord;

    do {

        turnover += record.GetContentsValueByName("TurnoverCurrentYear") as number;

    } while (recordSetCopy.MoveNext() == true);

    record.Dispose();

}

cRM.DialogMessageBox(`Der Gesamtumsatz der aktuell angezeigten Datensätze beträgt: ${turnover.toString()} EUR.`, "RecordSet.MoveFirst", 0);

recordSetCopy.Dispose();