XEN_Restlaufzeit_Ende_Datum

Der Algorithmus identifiziert das Datum, das zur Berechnung der vertraglichen Restlaufzeit verwendet wird; beispielsweise im Fall von Schuldverschreibungen WM09_Laufzeitende_Datum.

FUNKTION XEN_Restlaufzeit_Ende_Datum(AI_Mandant MA, AI_Geschaeftsfall_ID gfId, AI_Stichtag_Datum date)

 //Ermittlung bestimmter Eigenschaften des betrachteten Geschäftsfalls

gfKategorie = GF00_Geschaeftsfallkategorie_Code VON GF_Geschaeftsfall

vEnde = GF52_Geschaeftsende_Datum von GF_Geschaeftsfall

kEnde = GF19_Kapitalende_Datum VON GF_Geschaeftsfall

//Ermittlung zusätzlicher Eigenschaften für "Kredite"

nTermin = GF50_Naechstmoeglicher_Aufloesungstermin_Datum VON GF_Geschaeftsfall

//Ermittlung zusätzlicher Eigenschaften für "Wertpapiere"

wpKlassifikation = WMA28_Wertpapierklassifikation_Code VON WM_Wertpapier_MS

lEnde = WM09_Laufzeitende_Datum VON WM_Wertpapier_MS

//Ermittlung von Datums-Differenzen

vDiff = vEnde - date

kDiff = kEnde - date

lDiff = lEnde - date

WENN (gfKategorie ENTHAELT ("Wertpapiere (H)", "Verbriefungen (J)") DANN

//Verarbeitung von Wertpapieren

WENN (lDiff >= 0) DANN

WENN (wpKlassifikation ENTHAELT ("Verbriefungstranche (VBTR)", "Schuldverschreibung (SCHV)", "Credit Linked Note (CLN)") DANN

WENN (lEnde UNGLEICH "99991231") DANN

//Der Algorithmus XEN_Laufzeitenberechnung gibt als Rückgabewert einen Vektor (tage, monate, jahre) zurück.

rValue = lEnde

RUECKGABE rValue

ENDE

ENDE

ENDE

SONST

//Verarbeitung sonstiger Geschäftsfälle

WENN (vDiff >= 0 UND kDiff >= 0) DANN

WENN (gfKategorie ENTHAELT ("Einmalkredit (exkl. Kreditlinie) (X)", "Kreditlinie (Y)", "Wechselkredit (B)", "Barvorlage (E)", "revolvierender Kredit (exkl. Überziehungskredit) (V)", "Überziehungskredit (W)", "Finance Leasing (G)", "Operating Leasing (F)")) DANN

WENN (vEnde ISTGLEICH "99991231") DANN

WENN (nTermin UNGLEICH "99991231") DANN

rValue = nTermin

RUECKGABE rValue

ENDE

SONST

rValue = vEnde

RUECKGABE rValue

ENDE

ENDE

WENN (gfKategorie ISTGLEICH "Kreditkartenkredit (C)") DANN

//Im Fall von Kreditkartenkrediten ist als Rückgabewert der aktuelle Stichtag + 1 Monat heranzuziehen.

rValue = repDate + 1 Monat

RUECKGABE rValue

ENDE

WENN (gfKategorie ISTGLEICH "Derivate (Q)", "Außerbilanzielle Geschaefte gem. Anhang I CRR (exkl. Kreditderivate, Kreditzusagen) (P)") DANN

WENN (vEnde UNGLEICH "99991231") DANN

rValue = vEnde

RUECKGABE rValue

ENDE

ENDE

ENDE

ENDE

FUNKTIONSENDE