@page "/einkauf" @using System.Globalization @using TrafagSalesExporter.Models @using TrafagSalesExporter.Services @inject TrafagSalesExporter.Services.IUiTextService UiText @inject IJSRuntime JsRuntime @inject IPurchasingDashboardService PurchasingDashboardService @T("Einkauf", "Purchasing") @T("Einkauf", "Purchasing") @T("SAP-Einkaufsdashboard nach Power-BI-Vorlage x.pbix, vorbereitet fuer Spend, offene Bestellungen, Kontrakte und Lieferantenperformance.", "SAP purchasing dashboard based on the Power BI template x.pbix, prepared for spend, open orders, contracts and supplier performance.") @PurchasingStatusText @foreach (var card in KpiCards) { @T(card.TitleDe, card.TitleEn) @card.Value @T(card.DetailDe, card.DetailEn) } @T("Analyseachsen", "Analysis axes") @T("Achse", "Axis") @T("PBIX-Feld", "PBIX field") @T("Verwendung", "Usage") @T(context.LabelDe, context.LabelEn) @context.Field @T(context.UsageDe, context.UsageEn) @T("SAP-Quellen aus PBIX", "SAP sources from PBIX") @foreach (var source in SapSources) { @source.Name @source.Description } @T("Aus x.pbix uebernommene Seiten", "Pages derived from x.pbix") @T("Power-BI-Seite", "Power BI page") @T("Visuals", "Visuals") @T("Kennzahl", "Measure") @T("Dimensionen", "Dimensions") @context.Page @context.Visuals @context.Measure @context.Dimensions @foreach (var option in Purchasing3dIndicators) { @T(option.TitleDe, option.TitleEn) } @T("Balken", "Bars") @T("Linie", "Line") @T("Flaeche", "Surface") @T("Kreis", "Pie") @T("Preis-/Wechselkurs-Szenario", "Price/exchange-rate scenario") -10% @_purchasing3dFactor.ToString("0.00", CultureInfo.InvariantCulture)x @T("Delta", "Delta"): @FormatScenarioDelta() @T("Beschriftung", "Labels") @_purchasing3dLabelScale.ToString("0.0", CultureInfo.InvariantCulture)x @T("Neu zeichnen", "Redraw") @code { private ElementReference _purchasing3dCanvas; private PurchasingDashboardLiveState _liveState = new(); private bool _liveLoading = true; private string _purchasing3dIndicator = "spend"; private string _purchasing3dChartType = "bar"; private double _purchasing3dFactor = 1d; private double _purchasing3dLabelScale = 1.5d; private IReadOnlyList KpiCards => [ new("Spend total", "Total spend", _liveState.EkpoLoaded ? "EKPO live" : T("wartet auf EKPO", "waiting for EKPO"), _liveState.EkpoLoaded ? "Positionsdaten verfuegbar" : "EKKO live, Positionswerte fehlen noch", _liveState.EkpoLoaded ? "Position data available" : "EKKO live, position values still missing", Icons.Material.Filled.Payments, Color.Primary), new("Offene Bestellungen", "Open orders", _liveState.EkkoLoaded ? _liveState.PurchaseOrderCount.ToString("N0") : "-", _liveState.EkkoLoaded ? "EKKO-Belege seit Jahresbeginn" : "Noch nicht geladen", _liveState.EkkoLoaded ? "EKKO orders since start of year" : "Not loaded yet", Icons.Material.Filled.PendingActions, Color.Warning), new("Kontrakte", "Contracts", _liveState.EketLoaded ? _liveState.ScheduleSampleCount.ToString("N0") : T("wartet auf EKET", "waiting for EKET"), _liveState.EketLoaded ? "Termin-/Einteilungsprobe verfuegbar" : "EKKO live, Terminwerte fehlen noch", _liveState.EketLoaded ? "Schedule sample available" : "EKKO live, schedule values still missing", Icons.Material.Filled.Assignment, Color.Info), new("Lieferantenperformance", "Supplier performance", _liveState.EkkoLoaded ? _liveState.SupplierCount.ToString("N0") : "-", _liveState.EkkoLoaded ? "Lieferanten in EKKO-Liveprobe" : "Noch nicht geladen", _liveState.EkkoLoaded ? "Suppliers in EKKO live sample" : "Not loaded yet", Icons.Material.Filled.Verified, Color.Success) ]; private readonly List AnalysisAxes = [ new("Jahr", "Year", "EKKOSet.Bedat", "Zeitfilter und Verlauf", "Time filter and trend"), new("Lieferant", "Supplier", "Data.Name / Data.Lieferant", "Spend und Performance pro Lieferant", "Spend and performance by supplier"), new("Warengruppe", "Material group", "Data (2).Warengruppe / WG komplett", "Spend nach Warengruppe", "Spend by material group"), new("Artikel", "Article", "EKPOSet.Matnr / EKPOSet.Txz01", "Artikel- und Preisentwicklung", "Article and price development"), new("Region", "Region", "Data.Laender-/Regionenschluessel", "Regionale Spend-Verteilung", "Regional spend distribution") ]; private readonly List SapSources = [ new("EKKOSet", "Bestellkopf: Datum, Lieferant, Einkaufsbeleg."), new("EKPOSet", "Bestellposition: Artikel, Text, Netwr CHF, Preis pro Stueck."), new("eketSet", "Einteilungen/Termine: Basis fuer offene Mengen und Liefertermine."), new("Data", "Lieferanten-Mapping und Lieferantennamen."), new("Data (2)", "Warengruppen-Mapping und Warengruppentexte.") ]; private readonly List SpendRows = [ new("Spend nach Jahr", "Spend by year", "Sum(EKPOSet.Netwr CHF)", "EKKOSet.Bedat Jahr", "PBIX"), new("Spend nach Lieferant", "Spend by supplier", "Sum(EKPOSet.Netwr CHF)", "Data.Name", "PBIX"), new("Spend nach Warengruppe", "Spend by material group", "Sum(EKPOSet.Netwr CHF)", "Data (2).Warengruppe", "PBIX"), new("Spend nach Artikel", "Spend by article", "Sum(EKPOSet.Netwr CHF)", "EKPOSet.Matnr / Txz01", "PBIX") ]; private readonly List OpenOrderRows = [ new("Offener Bestellwert", "Open order value", "Bestellwert offen CHF", "Lieferant / Warengruppe / Artikel", "Neu"), new("Offene Bestellmenge", "Open order quantity", "Menge offen", "Lieferant / Warengruppe / Artikel", "Neu"), new("Faelligkeiten", "Due dates", "Termin / Rueckstand", "Lieferant / Artikel", "Neu") ]; private readonly List ContractRows = [ new("Mengenkontrakte", "Quantity contracts", "Kontraktmenge / Abrufmenge", "Lieferant / Warengruppe / Artikel", "Neu"), new("Restverpflichtung", "Remaining commitment", "Restwert CHF", "Lieferant / Warengruppe / Artikel", "Neu"), new("Kontrakt-Ausnutzung", "Contract consumption", "Abrufquote", "Lieferant / Artikel", "Neu") ]; private readonly List SupplierPerformanceRows = [ new("Liefertermintreue", "Delivery reliability", "On-time %", "Lieferant / Artikel", "Neu"), new("Preisentwicklung", "Price development", "Netwr CHF/Stk", "Lieferant / Artikel / Jahr", "PBIX"), new("Qualitaet / Reklamation", "Quality / claims", "Fehlerquote", "Lieferant / Warengruppe", "Neu"), new("Lieferantenbewertung", "Supplier rating", "Score", "Lieferant", "Neu") ]; private readonly List PowerBiPages = [ new("Besch.Volumen CHF/Lieferant", "Pivot, Slicer", "Sum(EKPOSet.Netwr CHF)", "Jahr, Lieferant, Warengruppe, Artikel"), new("Eink.Vol. CHF / Lieferant Kuchen", "Pie, Slicer", "Sum(EKPOSet.Netwr CHF)", "Lieferant, Warengruppe, Jahr"), new("Balken Vol./Lief/WG", "Column, Slicer", "Sum(EKPOSet.Netwr CHF)", "Lieferant, Warengruppe, Artikel"), new("Diagramm Vol./WG", "Column, Slicer", "Sum(EKPOSet.Netwr CHF)", "Warengruppe, Jahr"), new("Eink.Vol. CHF / Region", "Pie, Slicer", "Sum(EKPOSet.Netwr CHF)", "Region, Warengruppe, Jahr"), new("Preisentwicklung CHF", "Pivot, Slicer", "Min(EKPOSet.Netwr CHF/Stk)", "Lieferant, Artikel, Jahr"), new("Matrix Vol./WG", "Pivot, Slicer", "Sum(EKPOSet.Netwr CHF)", "Warengruppe, Lieferant, Artikel") ]; private readonly List Purchasing3dIndicators = [ new("spend", "Spend CHF", "Spend CHF", "CHF"), new("openValue", "Offener Bestellwert", "Open order value", "CHF"), new("openQuantity", "Offene Menge", "Open quantity", "Qty"), new("contractValue", "Kontrakt-Restwert", "Contract remaining value", "CHF"), new("supplierScore", "Lieferantenperformance", "Supplier performance", "%") ]; private readonly List Purchasing3dBaseRows = [ new("Lieferant A", 2024, 1450000d, 260000d, 11800d, 420000d, 91d), new("Lieferant A", 2025, 1680000d, 310000d, 13200d, 460000d, 93d), new("Lieferant A", 2026, 1820000d, 335000d, 14100d, 490000d, 92d), new("Lieferant B", 2024, 980000d, 190000d, 9300d, 260000d, 86d), new("Lieferant B", 2025, 1120000d, 225000d, 10100d, 315000d, 88d), new("Lieferant B", 2026, 1240000d, 250000d, 10800d, 350000d, 89d), new("Warengruppe Sensorik", 2024, 760000d, 120000d, 6400d, 210000d, 94d), new("Warengruppe Sensorik", 2025, 890000d, 145000d, 7100d, 230000d, 95d), new("Warengruppe Sensorik", 2026, 940000d, 155000d, 7400d, 245000d, 94d), new("Artikel Top 10", 2024, 520000d, 83000d, 2800d, 160000d, 90d), new("Artikel Top 10", 2025, 610000d, 97000d, 3100d, 180000d, 91d), new("Artikel Top 10", 2026, 680000d, 105000d, 3350d, 195000d, 92d) ]; protected override async Task OnInitializedAsync() { _liveState = await PurchasingDashboardService.LoadAsync(); _liveLoading = false; } protected override async Task OnAfterRenderAsync(bool firstRender) { if (firstRender) await RenderPurchasing3dAsync(); } private string T(string german, string english) => UiText.Text(german, english); private static string FormatChf(double value) => $"CHF {value:N0}"; private string PurchasingStatusText => _liveLoading ? T("SAP-Einkaufsdaten werden geladen...", "Loading SAP purchasing data...") : $"{_liveState.Message} {FormatLatestOrderDate()}"; private string FormatLatestOrderDate() => _liveState.LatestOrderDate.HasValue ? $"{T("Letztes EKKO-Datum", "Latest EKKO date")}: {_liveState.LatestOrderDate.Value:yyyy-MM-dd}." : string.Empty; private async Task SetPurchasing3dIndicator(string value) { _purchasing3dIndicator = value; await RenderPurchasing3dAsync(); } private async Task SetPurchasing3dChartType(string value) { _purchasing3dChartType = value; await RenderPurchasing3dAsync(); } private async Task SetPurchasing3dFactor(ChangeEventArgs args) { if (double.TryParse(Convert.ToString(args.Value, CultureInfo.InvariantCulture), NumberStyles.Number, CultureInfo.InvariantCulture, out var value)) { _purchasing3dFactor = Math.Clamp(value, 0.5d, 1.5d); await JsRuntime.InvokeVoidAsync("trafagFinance3d.updateFactor", _purchasing3dCanvas, ScenarioAffectsPurchasingValue ? _purchasing3dFactor : 1d); } } private async Task SetPurchasing3dFactorPreset(double value) { _purchasing3dFactor = Math.Clamp(value, 0.5d, 1.5d); await JsRuntime.InvokeVoidAsync("trafagFinance3d.updateFactor", _purchasing3dCanvas, ScenarioAffectsPurchasingValue ? _purchasing3dFactor : 1d); } private async Task SetPurchasing3dLabelScale(ChangeEventArgs args) { if (double.TryParse(Convert.ToString(args.Value, CultureInfo.InvariantCulture), NumberStyles.Number, CultureInfo.InvariantCulture, out var value)) { _purchasing3dLabelScale = Math.Clamp(value, 0.8d, 2.5d); await RenderPurchasing3dAsync(); } } private async Task RenderPurchasing3dAsync() { await JsRuntime.InvokeVoidAsync("trafagFinance3d.render", _purchasing3dCanvas, BuildPurchasing3dRows(), new { indicator = _purchasing3dIndicator, title = ResolvePurchasing3dIndicatorLabel(), chartType = _purchasing3dChartType, xAxis = T("X: Lieferant / Warengruppe / Artikel", "X: supplier / material group / article"), yAxis = T("Y: Wert / Menge / Score", "Y: value / quantity / score"), zAxis = T("Z: Jahr / Zeit", "Z: year / time"), pieAxis = T("Kreis: Anteil am aktuellen Indikator", "Pie: share of current indicator"), labelScale = _purchasing3dLabelScale, scenarioFactor = ScenarioAffectsPurchasingValue ? _purchasing3dFactor : 1d }); } private IReadOnlyList BuildPurchasing3dRows() => Purchasing3dBaseRows .Select(row => new { country = row.Axis, year = row.Year, value = ResolvePurchasing3dValue(row) }) .Cast() .ToList(); private double ResolvePurchasing3dValue(Purchasing3dBaseRow row) => _purchasing3dIndicator switch { "openValue" => row.OpenValue, "openQuantity" => row.OpenQuantity, "contractValue" => row.ContractValue, "supplierScore" => row.SupplierScore, _ => row.Spend }; private bool ScenarioAffectsPurchasingValue => _purchasing3dIndicator is "spend" or "openValue" or "contractValue"; private string ResolvePurchasing3dIndicatorLabel() => T( Purchasing3dIndicators.FirstOrDefault(x => x.Key == _purchasing3dIndicator)?.TitleDe ?? "Spend CHF", Purchasing3dIndicators.FirstOrDefault(x => x.Key == _purchasing3dIndicator)?.TitleEn ?? "Spend CHF"); private string FormatScenarioDelta() { if (!ScenarioAffectsPurchasingValue) return T("nicht auf diesen Indikator angewendet", "not applied to this indicator"); var baseTotal = Purchasing3dBaseRows.Sum(ResolvePurchasing3dValue); var delta = baseTotal * _purchasing3dFactor - baseTotal; return $"{delta:N0} {Purchasing3dIndicators.First(x => x.Key == _purchasing3dIndicator).Unit}"; } private sealed record PurchasingKpiCard(string TitleDe, string TitleEn, string Value, string DetailDe, string DetailEn, string Icon, Color Color); private sealed record PurchasingAxis(string LabelDe, string LabelEn, string Field, string UsageDe, string UsageEn); private sealed record PurchasingSource(string Name, string Description); private sealed record PowerBiPageInfo(string Page, string Visuals, string Measure, string Dimensions); private sealed record Purchasing3dIndicator(string Key, string TitleDe, string TitleEn, string Unit); private sealed record Purchasing3dBaseRow(string Axis, int Year, double Spend, double OpenValue, double OpenQuantity, double ContractValue, double SupplierScore); }
@context.Field
@context.Measure