Bezeichnung des AlgorithmusXUB_Counterpartland_zur_Kredituebertragung
KurzbezeichnungAbleitung des Counterpartlands bei einer Kreditübertragung
Verbale Beschreibung/BeispieleDer Algorithmus dient zur Ableitung des Ländercodes bei einem Kreditkauf/Kreditverkauf. Die Einheit des Forderungskäufer/Forderungsverkäufer wird über die entsprechende Kundenrolle ermittelt. Anschließend wird zu dieser Einheit, die passende Einheit in den OeNB Stammdaten gesucht und das Land ausgegeben, existieren keine OeNB Stammdaten, so wird das Land aus Meldersicht ausgegeben.
Kommt vor in/wird verwendet fürSC_Sitzland_Geschaeftspartner_Kredituebertragung_Code
Formale Beschreibung

FUNKTION XUB_Counterpartland_zur_Kredituebertragung (AI_Mandant, AI_Geschaeftsfall_ID, AI_Stichtag_Datum)

WENN (GKA18_Kredituebertragung_An_Verkauf_Code VON GF_Geschaeftsfall ENTHAELT ("Verkauf mit Einfluss auf die Bilanz (VM)", "Verkauf ohne Verkauf ohne Einfluss auf die Bilanz (VO)(VO)")) DANN

//eine Forderung wurde verkauft, hole über die Entität KR_Kundenrollen, das Land des Forderungsankäufer

Einheit_Kaeufer= EM_Einheit_MS VON KR_Kundenrollen VON GF_Geschaeftsfall MIT (KR.AI_Rolle_Code ISTGLEICH "Forderungskäufer (FK)")

Einheit_Kaeufer_OS = EO_Einheit_OS MIT (Einheit_Kaeufer.AI_OeNB_IdentNr ISTGLEICH EO.AI_OeNB_IdentNr)

// Hole zur entsprechenden Einheit aus Meldersicht, die zugehörige Einheit aus OeNB Sicht

WENN (ISTLEER(Einheit_Kaeufer_OS )) DANN

//Keine OeNB Stammdaten vorhanden, daher wird die Meldersicht genommen

RUECKGABE Einheit_Kaeufer.EM02_Sitzland_MS_Code

SONST

RUECKGABE Einheit_Kaeufer_OS.EO02_Sitzland_OS_Code

ENDE

ENDE


WENN (GKA18_Kredituebertragung_An_Verkauf_Code VON GF_Geschaeftsfall ENTHAELT ("Ankauf mit Einfluss auf die Bilanz (AM)", "Ankauf ohne auf die Bilanz (AO)")) DANN

//eine Forderung wurde angekauft, hole über die Entität KR_Kundenrolle, das Land des Forderungsverkäufer

Einheit_Verkaeufer = EM_Einheit_MS VON KR_Kundenrollen VON GF_Geschaeftsfall MIT (KR.AI_Rolle_Code ISTGLEICH "Forderungsverkäufer (FV)")

Einheit_Verkaeufer _OS = EO_Einheit_OS MIT (Einheit_Verkaeufer.AI_OeNB_IdentNr ISTGLEICH EO.AI_OeNB_IdentNr)

 WENN (ISTLEER(Einheit_Verkaeufer _OS )) DANN

//Keine OeNB Stammdaten vorhanden, daher wird die Meldersicht genommen

RUECKGABE Einheit_Verkaeufer.EM02_Sitzland_MS_Code

SONST

RUECKGABE Einheit_Verkaeufer_OS.EO02_Sitzland_OS_Code

ENDE

ENDE

FUNKTIONSENDE



  • No labels