Kapitalmodell rechnet Waehrungen um, statt sie zu addieren

Solange jedes Instrument in USD notierte, war die Frage gegenstandslos. Mit
waehrungsfaehigen Instrumenten ist sie es nicht mehr: CapitalService summierte
BoundCapital ueber alle Positionen unabhaengig von deren Waehrung und verglich
das Ergebnis mit NetLiquidation in Kontobasiswaehrung. Dasselbe galt fuer die
Konzentration je Basiswert und fuer die offenen Reservierungen, die von einer
Groesse in Basiswaehrung abgezogen wurden.

Auf dem Testkonto ist die Basis EUR und USD steht bei 0,8611: jede USD-Position
ging bisher rund 16 Prozent zu hoch in das verteilbare Kapital ein. Die Richtung
des Fehlers wechselt mit dem Kurs - bei einer starken Fremdwaehrung wird die
Auslastung unterschaetzt und ein Buch darf mehr aufmachen als es soll.

Die Kurse kommen aus dem Ledger des Brokers ($LEDGER:ALL, Tag ExchangeRate),
nicht aus einer eigenen Quelle. Das ist Absicht: NetLiquidation und
TotalCashValue sind mit genau diesen Kursen gebildet. Mit einem fremden Kurs
verglichen wir den Positionswert gegen eine Kontogroesse, die anders gerechnet
wurde. Fuer die Buchhaltung gilt das Gegenteil - dort ist der amtliche
Tageskurs der richtige, das ist ein anderer Zweck (#321).

Fehlt ein Kurs, wird nicht geraten: der Snapshot meldet FxComplete=false, der
Positionswert gilt als Untergrenze, und der Kauf wird angehalten. Schliessen
bleibt moeglich. Eine Reservierung ohne Kurs wird dagegen roh angesetzt statt
uebersprungen - sie zu ignorieren hiesse, gebundenes Geld als frei zu fuehren.

Gemessen am Paper-Gateway: "Konto: Umrechnungskurse EUR 1, USD 0.8611
(Basis EUR)". 388 Tests gruen.

Behebt #480.

Co-Authored-By: Claude Opus 5 <noreply@anthropic.com>

src/IBKRTrader.Core/Trading/Ibkr/IbkrConnection.cs

@@ -379,11 +379,23 @@ internal sealed class IbkrConnection : DefaultEWrapper, IDisposable
                       slot.Cash.Select(kv => string.Create(CultureInfo.InvariantCulture,
                           $"{kv.Key} {kv.Value:N2}"))) + ".");
 
+            // Die Kontobasiswaehrung ist die mit Kurs 1: der Broker nennt sie nicht ausdruecklich,
+            // aber er rechnet sie auch nicht um.
+            var baseCurrency = slot.Rates.FirstOrDefault(kv => kv.Value == 1m).Key;
+
+            if (slot.Rates.Count > 0)
+                _logger.Info(LogModule, "Konto: Umrechnungskurse " + string.Join(", ",
+                    slot.Rates.Select(kv => string.Create(CultureInfo.InvariantCulture,
+                        $"{kv.Key} {kv.Value:0.####}"))) +
+                    (baseCurrency is null ? "." : $" (Basis {baseCurrency})."));
+
             return new AccountState(
                 ReadDecimal(slot.Values, "NetLiquidation"),
                 ReadDecimal(slot.Values, "AvailableFunds"),
                 ReadDecimal(slot.Values, "TotalCashValue"),
-                slot.Cash.Count == 0 ? null : slot.Cash);
+                slot.Cash.Count  == 0 ? null : slot.Cash,
+                slot.Rates.Count == 0 ? null : slot.Rates,
+                baseCurrency);
         }
         finally
         {
@@ -570,6 +582,18 @@ internal sealed class IbkrConnection : DefaultEWrapper, IDisposable
         {
             slot.Cash[currency.ToUpperInvariant()] = cash;
         }
+
+        // Der Umrechnungskurs in die Kontobasiswaehrung, ebenfalls aus dem Ledger. Damit rechnet
+        // das Kapitalmodell Positionswerte und Reservierungen fremder Waehrungen um - und zwar mit
+        // genau den Kursen, aus denen der Broker auch NetLiquidation bildet.
+        if (tag.Equals("ExchangeRate", StringComparison.OrdinalIgnoreCase) &&
+            !string.IsNullOrWhiteSpace(currency) &&
+            !currency.Equals("BASE", StringComparison.OrdinalIgnoreCase) &&
+            decimal.TryParse(value, NumberStyles.Any, CultureInfo.InvariantCulture, out var rate) &&
+            rate > 0m)
+        {
+            slot.Rates[currency.ToUpperInvariant()] = rate;
+        }
     }
 
     public override void accountSummaryEnd(int reqId)
@@ -771,6 +795,8 @@ internal sealed class IbkrConnection : DefaultEWrapper, IDisposable
         public readonly Dictionary<string, string>  Values = new(StringComparer.OrdinalIgnoreCase);
         /// <summary>Bargeld je Waehrung aus dem $LEDGER-Abschnitt.</summary>
         public readonly Dictionary<string, decimal> Cash   = new(StringComparer.OrdinalIgnoreCase);
+        /// <summary>Umrechnungskurs je Waehrung in die Kontobasiswaehrung ($LEDGER, Tag ExchangeRate).</summary>
+        public readonly Dictionary<string, decimal> Rates  = new(StringComparer.OrdinalIgnoreCase);
     }
 
     private sealed class ContractSlot : Slot