Bump version to 1.0.0.0

CHANGELOG: Fix unser anchor names
Bump version to 0.13.7
2025-02-15 11:44:46 +01:00 · 2025-01-22 16:19:24 +01:00 · 2025-01-21 11:59:54 +01:00 · 2025-01-21 11:58:08 +01:00 · 2025-01-21 11:03:54 +01:00 · 2025-01-21 11:01:56 +01:00
77 changed files with 3914 additions and 654 deletions
--- a/.gitea/workflows/deploy.yaml
+++ b/.gitea/workflows/deploy.yaml
@@ -1,7 +1,7 @@
 name: Deploy
 on:
  push:
-    tags: ["v[0-9]+.[0-9]+.[0-9]+"]
+    tags: ["v([0-9]+.)?[0-9]+.[0-9]+.[0-9]+"]
 jobs:
  deploy:
    name: Build and Deploy
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -3,18 +3,138 @@ Changelog
 =========


+[v0.13.7][v0.13.7] (2025-01-21) {#v0.13.7}
+------------------------------------------
+
+### Behobene Fehler {#v0.13.7-bugfixes}
+
+* In seltenen Fällen konnten im Auszahlungsvariante-Fenster (`ChartWindow`) manche (Sorten-/Attribut-/Bewirtschaftungsart-)Zuordnungen zu Kurven nicht richtig gespeichert werden. (0b8a1b321f)
+* Beim Öffnen des Ausgangs-Protokoll-Fensters (`MailLogWindow`) kam es zu einem Absturz. (5d017cc8ea)
+* Im Auszahlungsvarianten-Fenster (`PaymentVariantsWindow`) war es nicht möglich die Überweisungsdaten zu exportieren, sofern mindestens eine Traubengutschrift einen negativen Betrag aufwies.
+  Jetzt wird der Benutzer nur gewarnt und es ist möglich alle anderen Gutschriften zu exportieren. (6d88c5645c, c7a2f2241d)
+
+### Sonstiges {#v0.13.7-misc}
+
+* Im Auszahlungsvarianten-Fenster (`PaymentVariantsWindow`) ist es nun möglich das Datum einer Auszahlungsvariante zu ändern. (bd4ebb8c35)
+
+[v0.13.7]: https://git.necronda.net/winzer/elwig/releases/tag/v0.13.7
+
+
+
+
+[v0.13.6][v0.13.6] (2025-01-14) {#v0.13.6}
+------------------------------------------
+
+### Behobene Fehler {#v0.13.6-bugfixes}
+
+* In seltenen Fällen konnten im Auszahlungsvariante-Fenster (`ChartWindow`) manche (Sorten-/Attribut-/Bewirtschaftungsart-)Zuordnungen zu Kurven nicht richtig gespeichert werden.
+  Berechnungen basierend auf diesen (evtl. falschen) Zuordnungen wurden immer richtig ausgeführt, eine nachträgliche Überprüfung ist daher möglich. (20e3e2a76b)
+
+### Sonstiges {#v0.13.6-misc}
+
+* Abhängigkeiten aktualisiert. (95ccb2627c, 80fec4473a)
+
+[v0.13.6]: https://git.necronda.net/winzer/elwig/releases/tag/v0.13.6
+
+
+
+
+[v0.13.5][v0.13.5] (2025-01-02) {#v0.13.5}
+------------------------------------------
+
+### Neue Funktionen {#v0.13.5-features}
+
+* Im Mitglieder-Fenster (`MemberAdminWindow`) Filter `aktiv` und `!aktiv` hinzugefügt. (5e53d864b1)
+* Im Lieferungen Fenster (`DeliveryAdminWindow`) Menüpunkt _Statistik_ mitsamt _Qualitätsstatistik_ und _Lieferstatistik pro Ort_ hinzugefügt. (c24b1ca2b9)
+
+### Sonstiges {#v0.13.5-misc}
+
+* Abhängigkeiten aktualisiert. (c9e483ba9d, 633b560a67)
+
+[v0.13.5]: https://git.necronda.net/winzer/elwig/releases/tag/v0.13.5
+
+
+
+
+[v0.13.4][v0.13.4] (2024-11-25) {#v0.13.4}
+------------------------------------------
+
+### Behobene Fehler {#v0.13.4-bugfixes}
+
+* Bei _Unter-/Überlieferungen lt. gez. GA_ waren seit [v0.10.6](#v0.10.6) (2023-08-30) Nicht-Lieferanten nicht aufgeführt. (6ba2aa7143)
+* Bei _Unterlieferungen laut Flächenbindungen_ wurden nur Mitglieder berücksichtigt, die zum Zeitpunkt des Exports aktiv waren. (3b97c2243a, 338f9fe092)
+
+### Sonstiges {#v0.13.4-misc}
+
+* Abhängigkeiten aktualisiert. (c3a2f983d5, 70e01849be, a99a23fd08, 4a10e94d71, 6c7f10cb26)
+
+[v0.13.4]: https://git.necronda.net/winzer/elwig/releases/tag/v0.13.4
+
+
+
+
+[v0.13.3][v0.13.3] (2024-11-13) {#v0.13.3}
+------------------------------------------
+
+### Neue Funktionen {#v0.13.3-features}
+
+* Im Haupt-Fenster (`MainWindow`) unter _Leseabschluss_ eine Statistik-Tabelle (Gebunden/Ungeb., Mitglieder/Gewicht/Fläche) hinzugefügt. (54deccf021)
+* Im Haupt-Fenster (`MainWindow`) unter _Leseabschluss_ zwei Exportmöglichkeiten (_Flächenbindungen_, _Liefermenge/Ertrag_) hinzugefügt. (c5453c2fe6)
+* Ausgangs-Protokoll-Fenster (`MailLogWindow`) zum Ansehen aller ausgehenden E-Mails oder ausgedruckten Rundschreiben hinzugefügt (_Rundschreiben_ -> _Hilfe_). (2ee0d56dcc)
+
+### Behobene Fehler {#v0.13.3-bugfixes}
+
+* Im Rundschreiben-Fenster (`MailWindow`) kleinere Fehler behoben und alle Einstellungen werden nun gespeichert. (0a9731af09)
+
+### Sonstiges {#v0.13.3-misc}
+
+* In allen Fenstern an passenden Stellen Symbole/Icons hinzugefügt. (f4fa549130)
+* Im Mitglieder-Fenster (`MemberAdminWindow`) Filter `Flächenbindung` (Mitglieder mit irgendeiner aktiven Flächenbindung) hinzugefügt. (a1d84dd988)
+* Im Flächenbindungen-Fenster (`AreaComAdminWindow`) Filter für explizite Saisons hinzugefügt. (6718ad4c8d)
+
+[v0.13.3]: https://git.necronda.net/winzer/elwig/releases/tag/v0.13.3
+
+
+
+
+[v0.13.2][v0.13.2] (2024-10-13) {#v0.13.2}
+------------------------------------------
+
+### Neue Funktionen {#v0.13.2-features}
+
+* Im Lieferungen-Fenster den Menüpunkt _Abwertungsliste_ (`DeliveryDepreciationList`) hinzugefügt. (3cbffdbf27)
+
+### Behobene Fehler {#v0.13.2-bugfixes}
+
+* Fehler im Waagenprotokoll `Avery-Async` (L320) behoben. (8680e51052)
+* Hausnummern in der BKI Traubentransportscheinliste werden in Excel richtig angezeigt. (86f7f693a0)
+* Beim Ändern der Identifikatoren von Attributen/Bewirtschaftungsarten wurden diese in Auszahlungsvarianten nicht aktualisiert. (d1f67dc57d)
+
+### Sonstiges {#v0.13.2-misc}
+
+* Weitere automatisierte Tests hinzugefügt. ([#11][i11])
+* Namenszusätze bei Gemeinden (z.B. an, bei, im, am) genauer angegeben. (65498dd18f)
+* Bei einigen Eingabefeldern waren die Ränder unscharf. (e247925472)
+* Wo leicht möglich wird `ExecuteSql`/`FromSql` statt `ExecuteSqlRaw`/`FromSqlRaw` verwendet. (0675c45617)
+
+[v0.13.2]: https://git.necronda.net/winzer/elwig/releases/tag/v0.13.2
+[i11]: https://git.necronda.net/winzer/elwig/issues/11
+
+
+
+
 [v0.13.1][v0.13.1] (2024-09-29) {#v0.13.1}
 ------------------------------------------

-### Neue Funktionen {#0.13.1-features}
+### Neue Funktionen {#v0.13.1-features}

 * Das Extrahieren/Abwerten/Aufteilen von (Teil-)Lieferungen wurde grundlegend überarbeitet und funktioniert ab jetzt in einem einzigen, übersichtlicheren Dialog. (c62947dacd, c185437b9a)

-### Behobene Fehler {#0.13.1-bugfixes}
+### Behobene Fehler {#v0.13.1-bugfixes}

 * Im Mitglieder-Fenster (`MemberAdminWinodw`) wurden bei `Anlieferungsbestätigung -> speichern (PDF)` und `Traubengutschrift -> speichern (PDF)` E-Mails verschickt, anstatt ein PDF gespeichert. (6ba1973087, a2315e84bd)

-### Sonstiges {#0.13.1-misc}
+### Sonstiges {#v0.13.1-misc}

 * Abhängigkeiten aktualisiert. (b6ae1f5675)

@@ -29,7 +149,7 @@ Changelog
 > [!NOTE]
 > Ab dieser Version verhält sich die Berechnung der Unterlieferungen bei Flächenbindungen anders.

-### Behobene Fehler {#0.13.0-bugfixes}
+### Behobene Fehler {#v0.13.0-bugfixes}

 * Im Lieferungen-Fenster (`DeliveryAdminWindow`) war das Extrahieren in eine neue Lieferung seit ca. 6 Monaten (98688168b8) nicht mehr möglich. (8a61747538)

@@ -106,7 +226,7 @@ Changelog
 ### Neue Funktionen {#v0.11.2-features}

 * In der Anmeldeliste (`DeliveryAncmtList`) wird die Stamm-KG des Mitgliedes angegeben. (165770fa37)
-* Im Hauptmenü wurde im Menüpunkt _Hilfe_ ein Fehler-Protokoll-Fenster (`LogWindow`) hinzugefügt. (526e951029)
+* Im Haupt-Fenster (`MainWindow`) wurde im Menüpunkt _Hilfe_ ein Fehler-Protokoll-Fenster (`LogWindow`) hinzugefügt. (526e951029)

 ### Behobene Fehler {#v0.11.2-bugfixes}

@@ -213,7 +333,7 @@ Changelog

 ### Behobene Fehler {#v0.10.6-bugfixes}

-* Der Titel des Flächenbindungs-Fensters (`AreaComAdminWindow`) ist jetzt _Flächenbindungen_, nicht mehr _Lieferungen_. (ee1315929c)
+* Der Titel des Flächenbindungen-Fensters (`AreaComAdminWindow`) ist jetzt _Flächenbindungen_, nicht mehr _Lieferungen_. (ee1315929c)
 * Im Auszahlungsvariante-Fenster (`ChartWindow`) einen Skalierungs-Fehler behoben. ([#33][i33])
 * Versuch: Fehler bei automatischer Daten-Erneuerung bei längerer Benutzung. (8c8c0a8c2b)

@@ -530,7 +650,7 @@ Changelog

 ### Behobene Fehler {#v0.8.4-bugfixes}

-* Falls beim Schließen des Hauptmenüs ein anderes Fenster im Bearbeiten-/Erstellen-Modus war führte das zu einem Absturz. (70f8276808)
+* Falls beim Schließen des Haupt-Fensters (`MainWindow`) ein anderes Fenster im Bearbeiten-/Erstellen-Modus war führte das zu einem Absturz. (70f8276808)

 ### Sonstiges {#v0.8.4-misc}

--- a/Elwig/App.xaml.cs
+++ b/Elwig/App.xaml.cs
@@ -7,9 +7,6 @@ using Elwig.Helpers;
 using Elwig.Helpers.Weighing;
 using System.Collections.Generic;
 using System.Windows.Threading;
-using System.Globalization;
-using System.Threading;
-using System.Windows.Markup;
 using System.Reflection;
 using Elwig.Helpers.Printing;
 using Elwig.Windows;
@@ -29,6 +26,7 @@ namespace Elwig {
        private readonly DispatcherTimer _autoUpdateTimer = new() { Interval = TimeSpan.FromHours(1) };

        public static readonly string DataPath = @"C:\ProgramData\Elwig\";
+        public static readonly string MailsPath = Path.Combine(DataPath, "mails");
        public static readonly string ConfigPath = Path.Combine(DataPath, "config.ini");
        public static readonly string ExePath = @"C:\Program Files\Elwig\";
        public static readonly string TempPath = Path.Combine(Path.GetTempPath(), "Elwig");
@@ -59,10 +57,11 @@ namespace Elwig {
            Encoding.RegisterProvider(CodePagesEncodingProvider.Instance);
            Directory.CreateDirectory(TempPath);
            Directory.CreateDirectory(DataPath);
+            Directory.CreateDirectory(MailsPath);
            MainDispatcher = Dispatcher;
            Scales = [];
            CurrentApp = this;
-            OverrideCulture();
+            Utils.OverrideCulture();

            var args = Environment.GetCommandLineArgs();
            if (args.Length >= 2) {
@@ -82,25 +81,8 @@ namespace Elwig {
            MainDispatcher.BeginInvoke(HintContextChange);
        }

-        private static void OverrideCulture() {
-            var locale = new CultureInfo("de-AT", false);
-            locale.NumberFormat.CurrencyGroupSeparator = Utils.GroupSeparator;
-            locale.NumberFormat.NumberGroupSeparator = Utils.GroupSeparator;
-            locale.NumberFormat.PercentGroupSeparator = Utils.GroupSeparator;
-            CultureInfo.CurrentCulture = locale;
-            CultureInfo.CurrentUICulture = locale;
-            Thread.CurrentThread.CurrentCulture = locale;
-            Thread.CurrentThread.CurrentUICulture = locale;
-            CultureInfo.DefaultThreadCurrentCulture = locale;
-            CultureInfo.DefaultThreadCurrentUICulture = locale;
-            FrameworkElement.LanguageProperty.OverrideMetadata(
-                typeof(FrameworkElement),
-                new FrameworkPropertyMetadata(XmlLanguage.GetLanguage(CultureInfo.CurrentCulture.Name))
-            );
-        }
-
        protected override async void OnStartup(StartupEventArgs evt) {
-            Version = new Version(typeof(App).GetTypeInfo().Assembly.GetCustomAttribute<AssemblyInformationalVersionAttribute>()?.InformationalVersion.Split('+')[0] ?? "0.0.0");
+            Version = new Version(typeof(App).GetTypeInfo().Assembly.GetCustomAttribute<AssemblyInformationalVersionAttribute>()?.InformationalVersion.Split('+')[0] ?? "0.0.0.0");

            try {
                await AppDbUpdater.CheckDb();
@@ -183,6 +165,9 @@ namespace Elwig {
        }

        private async void Application_Exit(object sender, ExitEventArgs evt) {
+            foreach (var s in EventScales) {
+                s.Dispose();
+            }
            await Pdf.Cleanup();
        }

@@ -194,7 +179,13 @@ namespace Elwig {
            ZwstId = entry.Item1;
            BranchName = entry.Item2;
            BranchPlz = entry.Item3;
-            BranchLocation = entry.Item4?.Split(" im ")[0].Split(" an ")[0].Split(" bei ")[0];  // FIXME
+            BranchLocation = entry.Item4?
+                .Split(" in ")[0]
+                .Split(" im ")[0]
+                .Split(" an ")[0]
+                .Split(" am ")[0]
+                .Split(" bei ")[0]
+                .Split(" beim ")[0];
            BranchAddress = entry.Item5;
            BranchPhoneNr = entry.Item6;
            BranchFaxNr = entry.Item7;
@@ -202,6 +193,7 @@ namespace Elwig {
        }

        public static void HintContextChange() {
+            if (CurrentApp == null) return;
            var ch = CurrentLastWrite;
            if (ch > CurrentApp.LastChanged)
                CurrentApp.LastChanged = ch;
--- a/Elwig/Controls/IntegerUpDown.xaml
+++ b/Elwig/Controls/IntegerUpDown.xaml
@@ -15,9 +15,8 @@
                            <ColumnDefinition Width="18"/>
                        </Grid.ColumnDefinitions>

-                        <Border x:Name="Border" BorderThickness="1,1,0,1"
-                                BorderBrush="{Binding Path=BorderBrush, RelativeSource={RelativeSource TemplatedParent}, Mode=OneWay}"
-                                SnapsToDevicePixels="True" Grid.RowSpan="2">
+                        <Border x:Name="Border" BorderThickness="1,1,0,1" Grid.RowSpan="2"
+                                BorderBrush="{Binding Path=BorderBrush, RelativeSource={RelativeSource TemplatedParent}, Mode=OneWay}">
                            <ScrollViewer x:Name="PART_ContentHost" VerticalAlignment="Center"/>
                        </Border>

@@ -43,6 +42,8 @@
            </Setter.Value>
        </Setter>
        <Setter Property="TextAlignment" Value="Right"/>
+        <Setter Property="SnapsToDevicePixels" Value="True"/>
+        <Setter Property="UseLayoutRounding" Value="True"/>
        <Style.Triggers>
            <Trigger Property="IsEnabled" Value="False">
                <Setter Property="Foreground" Value="Gray"/>
--- a/Elwig/Controls/UnitTextBox.xaml
+++ b/Elwig/Controls/UnitTextBox.xaml
@@ -7,8 +7,7 @@
                <ControlTemplate TargetType="ctrl:UnitTextBox">
                    <Border x:Name="Border"
                            BorderThickness="{Binding Path=BorderThickness, RelativeSource={RelativeSource TemplatedParent}, Mode=OneWay}"
-                            BorderBrush="{Binding Path=BorderBrush, RelativeSource={RelativeSource TemplatedParent}, Mode=OneWay}"
-                            SnapsToDevicePixels="True">
+                            BorderBrush="{Binding Path=BorderBrush, RelativeSource={RelativeSource TemplatedParent}, Mode=OneWay}">
                        <Grid Background="{Binding Path=Background, RelativeSource={RelativeSource TemplatedParent}, Mode=OneWay}">
                            <ScrollViewer x:Name="PART_ContentHost" VerticalAlignment="Bottom">
                                <ScrollViewer.Margin>
@@ -32,6 +31,8 @@
            </Setter.Value>
        </Setter>
        <Setter Property="TextAlignment" Value="Right"/>
+        <Setter Property="SnapsToDevicePixels" Value="True"/>
+        <Setter Property="UseLayoutRounding" Value="True"/>
        <Style.Triggers>
            <Trigger Property="IsEnabled" Value="False">
                <Setter Property="Foreground" Value="Gray"/>
--- a/Elwig/Documents/CreditNote.cshtml
+++ b/Elwig/Documents/CreditNote.cshtml
@@ -9,8 +9,8 @@
    <table class="credit">
        <colgroup>
            <col style="width: 25mm;"/>
-            <col style="width:  5mm;"/>
-            <col style="width: 22mm;"/>
+            <col style="width:  6mm;"/>
+            <col style="width: 21mm;"/>
            <col style="width: 15mm;"/>
            <col style="width: 10mm;"/>
            <col style="width: 10mm;"/>
@@ -51,7 +51,7 @@
                    <tr class="@(i == 0 ? "first" : "") @(rows == i + 1 ? "last" : "")">
                        @if (i == 0) {
                            <td rowspan="@rows">@p.LsNr</td>
-                            <td rowspan="@rows">@p.DPNr</td>
+                            <td rowspan="@rows" class="center narrow">@p.DPNr</td>
                            <td class="small">@p.Variety</td>
                            <td class="small">
                                @p.Attribute@(p.Attribute != null && p.Cultivation != null ? " / " : "")@p.Cultivation
--- a/Elwig/Documents/DeliveryConfirmation.cshtml
+++ b/Elwig/Documents/DeliveryConfirmation.cshtml
@@ -9,8 +9,8 @@
    <table class="delivery-confirmation">
        <colgroup>
            <col style="width: 25mm;"/>
-            <col style="width:  5mm;"/>
-            <col style="width: 24mm;"/>
+            <col style="width:  6mm;"/>
+            <col style="width: 23mm;"/>
            <col style="width: 16mm;"/>
            <col style="width: 17mm;"/>
            <col style="width: 10mm;"/>
@@ -60,7 +60,7 @@
                    <tr class="@(first ? "first" : "") @(p.Variety != lastVariety && lastVariety != "" ? "new": "") @(rows > i + 1 ? "last" : "")">
                        @if (first) {
                            <td rowspan="@rows">@p.LsNr</td>
-                            <td rowspan="@rows">@p.DPNr</td>
+                            <td rowspan="@rows" class="center narrow">@p.DPNr</td>
                            <td class="small">@p.Variety</td>
                            <td class="small">@p.Attribute@(p.Attribute != null && p.Cultivation != null ? " / " : "")@p.Cultivation</td>
                            <td class="small">@p.QualityLevel</td>
--- a/Elwig/Documents/DeliveryDepreciationList.cs
+++ b/Elwig/Documents/DeliveryDepreciationList.cs
@@ -0,0 +1,22 @@
+using Elwig.Models.Dtos;
+using System.Collections.Generic;
+
+namespace Elwig.Documents {
+    public class DeliveryDepreciationList : Document {
+
+        public new static string Name => "Abwertungsliste";
+
+        public string Filter;
+        public IEnumerable<DeliveryJournalRow> Deliveries;
+
+        public DeliveryDepreciationList(string filter, IEnumerable<DeliveryJournalRow> deliveries) :
+            base($"{Name} {filter}") {
+            Filter = filter;
+            Deliveries = deliveries;
+        }
+
+        public DeliveryDepreciationList(string filter, DeliveryJournalData data) :
+            this(filter, data.Rows) {
+        }
+    }
+}
--- a/Elwig/Documents/DeliveryDepreciationList.cshtml
+++ b/Elwig/Documents/DeliveryDepreciationList.cshtml
@@ -0,0 +1,104 @@
+@using RazorLight
+@inherits TemplatePage<Elwig.Documents.DeliveryDepreciationList>
+@model Elwig.Documents.DeliveryDepreciationList
+@{ Layout = "Document"; }
+<link rel="stylesheet" href="file:///@Raw(Model.DataPath)\resources\DeliveryDepreciationList.css" />
+<main>
+    <h1>Abwertungsliste</h1>
+    <h2>@Model.Filter</h2>
+    <table class="journal">
+        <colgroup>
+            <col style="width: 25mm;"/>
+            <col style="width:  6mm;"/>
+            <col style="width: 20mm;"/>
+            <col style="width: 15mm;"/>
+            <col style="width: 35mm;"/>
+            <col style="width: 30mm;"/>
+            <col style="width: 10mm;"/>
+            <col style="width: 10mm;"/>
+            <col style="width: 14mm;"/>
+        </colgroup>
+        <thead>
+            <tr>
+                <th rowspan="2" style="text-align: left;">Lieferschein-Nr.</th>
+                <th rowspan="2" class="narrow">Pos.</th>
+                <th rowspan="2">Datum</th>
+                <th rowspan="2">Zeit</th>
+                <th rowspan="2" style="text-align: left;">Sorte</th>
+                <th rowspan="2" style="text-align: left;">Attr./Bewirt.</th>
+                <th colspan="2">Gradation</th>
+                <th>Gewicht</th>
+            </tr>
+            <tr>
+                <th class="unit">[°Oe]</th>
+                <th class="unit narrow">[°KMW]</th>
+                <th class="unit">[kg]</th>
+            </tr>
+        </thead>
+        <tbody>
+            @{
+                int? lastMember = null;
+            }
+            @foreach (var p in Model.Deliveries) {
+                if (lastMember != p.MgNr) {
+                    <tr class="subheading @(lastMember != null ? "new" : "")">
+                        @{
+                            var memberDeliveries = Model.Deliveries.Where(d => d.MgNr == p.MgNr).ToList();
+                            var memberKmw = Elwig.Helpers.Utils.AggregateDeliveryPartsKmw(memberDeliveries);
+                            var memberOe = Elwig.Helpers.Utils.KmwToOe(memberKmw);
+                        }
+                        <th colspan="5">
+                            @($"{p.MgNr}, {p.AdministrativeName}")
+                        </th>
+                        <td>Teil-Lfrg.: <span style="float: right;">@($"{memberDeliveries.Count():N0}")</span></td>
+                        <td class="center">@($"{memberOe:N0}")</td>
+                        <td class="center">@($"{memberKmw:N1}")</td>
+                        <td class="number">@($"{memberDeliveries.Sum(p => p.Weight):N0}")</td>
+                    </tr>
+                }
+                <tr>
+                    <td>@p.LsNr</td>
+                    <td class="center narrow">@p.Pos</td>
+                    <td>@($"{p.Date:dd.MM.yyyy}")</td>
+                    <td>@($"{p.Time:HH:mm}")</td>
+                    <td>@p.Variety</td>
+                    <td>@p.Attribute@(p.Attribute != null && p.Cultivation != null ? " / " : "")@p.Cultivation</td>
+                    <td class="center">@($"{p.Oe:N0}")</td>
+                    <td class="center">@($"{p.Kmw:N1}")</td>
+                    <td class="number">@($"{p.Weight:N0}")</td>
+                </tr>
+                lastMember = p.MgNr;
+            }
+            @{
+                var branches = Model.Deliveries.Select(d => d.DeliveryBranch).Distinct().Order().ToArray();
+                if (branches.Length > 1) {
+                    foreach (var b in branches) {
+                        <tr class="@(branches[0] == b ? "sum" : "") bold">
+                            @{
+                                var branchDeliveries = Model.Deliveries.Where(d => d.DeliveryBranch == b).ToList();
+                                var branchKmw = Elwig.Helpers.Utils.AggregateDeliveryPartsKmw(branchDeliveries);
+                                var branchOe = Elwig.Helpers.Utils.KmwToOe(branchKmw);
+                            }
+                            <td colspan="2">@b:</td>
+                            <td colspan="4">(Teil-)Lieferungen: @($"{branchDeliveries.DistinctBy(p => p.LsNr).Count():N0}") (@($"{branchDeliveries.Count():N0}"))</td>
+                            <td class="center">@($"{branchOe:N0}")</td>
+                            <td class="center">@($"{branchKmw:N1}")</td>
+                            <td class="number">@($"{branchDeliveries.Sum(p => p.Weight):N0}")</td>
+                        </tr>
+                    }
+                }
+            }
+            <tr class="sum bold">
+                @{
+                    var kmw = Elwig.Helpers.Utils.AggregateDeliveryPartsKmw(Model.Deliveries);
+                    var oe = Elwig.Helpers.Utils.KmwToOe(kmw);
+                }
+                <td colspan="2">Gesamt:</td>
+                <td colspan="4">(Teil-)Lieferungen: @($"{Model.Deliveries.DistinctBy(p => p.LsNr).Count():N0}") (@($"{Model.Deliveries.Count():N0}"))</td>
+                <td class="center">@($"{oe:N0}")</td>
+                <td class="center">@($"{kmw:N1}")</td>
+                <td class="number">@($"{Model.Deliveries.Sum(p => p.Weight):N0}")</td>
+            </tr>
+        </tbody>
+    </table>
+</main>
--- a/Elwig/Documents/DeliveryDepreciationList.css
+++ b/Elwig/Documents/DeliveryDepreciationList.css
@@ -0,0 +1,13 @@
+
+h1 {
+    text-align: center;
+    font-size: 24pt;
+    margin-top: 10mm;
+    margin-bottom: 2mm;
+}
+
+h2 {
+    text-align: center;
+    font-size: 14pt;
+    margin-top: 2mm;
+}
--- a/Elwig/Documents/DeliveryJournal.cs
+++ b/Elwig/Documents/DeliveryJournal.cs
@@ -9,7 +9,8 @@ namespace Elwig.Documents {
        public string Filter;
        public IEnumerable<DeliveryJournalRow> Deliveries;

-        public DeliveryJournal(string filter, IEnumerable<DeliveryJournalRow> deliveries) : base($"{Name} {filter}") {
+        public DeliveryJournal(string filter, IEnumerable<DeliveryJournalRow> deliveries) :
+            base($"{Name} {filter}") {
            Filter = filter;
            Deliveries = deliveries;
        }
--- a/Elwig/Documents/DeliveryJournal.cshtml
+++ b/Elwig/Documents/DeliveryJournal.cshtml
@@ -9,10 +9,10 @@
    <table class="journal">
        <colgroup>
            <col style="width: 25mm;"/>
-            <col style="width: 5mm;"/>
+            <col style="width:  6mm;"/>
            <col style="width: 15mm;"/>
            <col style="width:  8mm;"/>
-            <col style="width: 12mm;"/>
+            <col style="width: 11mm;"/>
            <col style="width: 38mm;"/>
            <col style="width: 28mm;"/>
            <col style="width: 10mm;"/>
@@ -41,7 +41,7 @@
            @foreach (var p in Model.Deliveries) {
                <tr>
                    <td>@p.LsNr</td>
-                    <td>@p.Pos</td>
+                    <td class="center narrow">@p.Pos</td>
                    <td class="small">@($"{p.Date:dd.MM.yyyy}")</td>
                    <td class="small">@($"{p.Time:HH:mm}")</td>
                    <td class="number">@p.MgNr</td>
@@ -52,6 +52,25 @@
                    <td class="number">@($"{p.Weight:N0}")</td>
                </tr>
            }
+            @{
+                var branches = Model.Deliveries.Select(d => d.DeliveryBranch).Distinct().Order().ToArray();
+                if (branches.Length > 1) {
+                    foreach (var b in branches) {
+                        <tr class="@(branches[0] == b ? "sum" : "") bold">
+                            @{
+                                var branchDeliveries = Model.Deliveries.Where(d => d.DeliveryBranch == b).ToList();
+                                var branchKmw = Elwig.Helpers.Utils.AggregateDeliveryPartsKmw(branchDeliveries);
+                                var branchOe = Elwig.Helpers.Utils.KmwToOe(branchKmw);
+                            }
+                            <td colspan="2">@b:</td>
+                            <td colspan="5">(Teil-)Lieferungen: @($"{branchDeliveries.DistinctBy(p => p.LsNr).Count():N0}") (@($"{branchDeliveries.Count():N0}"))</td>
+                            <td class="center">@($"{branchOe:N0}")</td>
+                            <td class="center">@($"{branchKmw:N1}")</td>
+                            <td class="number">@($"{branchDeliveries.Sum(p => p.Weight):N0}")</td>
+                        </tr>
+                    }
+                }
+            }
            <tr class="sum bold">
                @{
                    var kmw = Elwig.Helpers.Utils.AggregateDeliveryPartsKmw(Model.Deliveries);
--- a/Elwig/Documents/Document.cs
+++ b/Elwig/Documents/Document.cs
@@ -78,6 +78,8 @@ namespace Elwig.Documents {
                name = "CreditNote";
            } else if (this is DeliveryJournal) {
                name = "DeliveryJournal";
+            } else if (this is DeliveryDepreciationList) {
+                name = "DeliveryDepreciationList";
            } else if (this is Letterhead) {
                name = "Letterhead";
            } else if (this is DeliveryConfirmation) {
--- a/Elwig/Elwig.csproj
+++ b/Elwig/Elwig.csproj
@@ -7,7 +7,7 @@
    <UseWPF>true</UseWPF>
    <PreserveCompilationContext>true</PreserveCompilationContext>
    <ApplicationIcon>Resources\Images\Elwig.ico</ApplicationIcon>
-    <Version>0.13.1</Version>
+    <Version>1.0.0.0</Version>
    <SatelliteResourceLanguages>de-AT</SatelliteResourceLanguages>
    <AllowUnsafeBlocks>true</AllowUnsafeBlocks>
    <ApplicationManifest>app.manifest</ApplicationManifest>
@@ -25,21 +25,21 @@
  </Target>

  <ItemGroup>
-    <PackageReference Include="CommunityToolkit.Mvvm" Version="8.3.2" />
-    <PackageReference Include="LinqKit" Version="1.3.0" />
-    <PackageReference Include="MailKit" Version="4.8.0" />
-    <PackageReference Include="Microsoft.AspNetCore.Razor.Language" Version="6.0.33" />
-    <PackageReference Include="Microsoft.EntityFrameworkCore.Proxies" Version="8.0.8" />
-    <PackageReference Include="Microsoft.EntityFrameworkCore.Sqlite" Version="8.0.8" />
-    <PackageReference Include="Microsoft.Extensions.Configuration.Ini" Version="8.0.0" />
-    <PackageReference Include="Microsoft.Web.WebView2" Version="1.0.2792.45" />
-    <PackageReference Include="NJsonSchema" Version="11.0.2" />
+    <PackageReference Include="CommunityToolkit.Mvvm" Version="8.4.0" />
+    <PackageReference Include="LinqKit" Version="1.3.7" />
+    <PackageReference Include="MailKit" Version="4.9.0" />
+    <PackageReference Include="Microsoft.AspNetCore.Razor.Language" Version="6.0.36" />
+    <PackageReference Include="Microsoft.EntityFrameworkCore.Proxies" Version="9.0.1" />
+    <PackageReference Include="Microsoft.EntityFrameworkCore.Sqlite" Version="9.0.1" />
+    <PackageReference Include="Microsoft.Extensions.Configuration.Ini" Version="9.0.1" />
+    <PackageReference Include="Microsoft.Web.WebView2" Version="1.0.2903.40" />
+    <PackageReference Include="NJsonSchema" Version="11.1.0" />
    <PackageReference Include="PdfiumViewer" Version="2.13.0" />
    <PackageReference Include="PdfiumViewer.Native.x86_64.no_v8-no_xfa" Version="2018.4.8.256" />
    <PackageReference Include="RazorLight" Version="2.3.1" />
-    <PackageReference Include="ScottPlot.WPF" Version="5.0.39" />
-    <PackageReference Include="System.IO.Ports" Version="8.0.0" />
-    <PackageReference Include="System.Text.Encoding.CodePages" Version="8.0.0" />
+    <PackageReference Include="ScottPlot.WPF" Version="5.0.53" />
+    <PackageReference Include="System.IO.Ports" Version="9.0.1" />
+    <PackageReference Include="System.Text.Encoding.CodePages" Version="9.0.1" />
  </ItemGroup>

 </Project>
--- a/Elwig/Helpers/AppDbContext.cs
+++ b/Elwig/Helpers/AppDbContext.cs
@@ -63,10 +63,12 @@ namespace Elwig.Helpers {
        public DbSet<PaymentDeliveryPart> PaymentDeliveryParts { get; private set; }
        public DbSet<PaymentCustom> CustomPayments { get; private set; }
        public DbSet<Credit> Credits { get; private set; }
+        public DbSet<DeliveryPartBucket> DeliveryPartBuckets { get; private set; }

        public DbSet<OverUnderDeliveryRow> OverUnderDeliveryRows { get; private set; }
        public DbSet<AreaComUnderDeliveryRowSingle> AreaComUnderDeliveryRows { get; private set; }
        public DbSet<MemberDeliveryPerVariantRowSingle> MemberDeliveryPerVariantRows { get; private set; }
+        public DbSet<MemberAreaComsRowSingle> MemberAreaComsRows { get; private set; }
        public DbSet<CreditNoteDeliveryRowSingle> CreditNoteDeliveryRows { get; private set; }
        public DbSet<CreditNoteRowSingle> CreditNoteRows { get; private set; }
        public DbSet<WeightBreakdownRow> WeightBreakDownRows { get; private set; }
--- a/Elwig/Helpers/Billing/BillingData.cs
+++ b/Elwig/Helpers/Billing/BillingData.cs
@@ -299,22 +299,30 @@ namespace Elwig.Helpers.Billing {
            return (rev1, rev2);
        }

-        protected static void CollapsePaymentData(JsonObject data, IEnumerable<RawVaribute> vaributes, bool useDefault = true) {
+        protected static void CollapsePaymentData(JsonObject data, JsonObject originalData, IEnumerable<RawVaribute> vaributes, bool useDefault = true) {
            var (rev1, rev2) = GetReverseKeys(data);
            if (!data.ContainsKey("default")) {
                foreach (var (v, ks) in rev1) {
-                    if ((ks.Count >= vaributes.Count() * 0.5 && useDefault) || ks.Count == vaributes.Count()) {
-                        foreach (var k in ks) data.Remove(k);
+                    if ((ks.Count > vaributes.Count() * 0.5 && useDefault) || ks.Count == vaributes.Count()) {
+                        foreach (var k in ks) {
+                            if (!(originalData[$"{k[..2]}/"]?.AsValue().TryGetValue<string>(out var o) ?? false) || o == v)
+                                if (!(originalData[k.Split('-')[0]]?.AsValue().TryGetValue<string>(out var o2) ?? false) || o2 == v)
+                                    data.Remove(k);
+                        }
                        data["default"] = v;
-                        CollapsePaymentData(data, vaributes, useDefault);
+                        CollapsePaymentData(data, originalData, vaributes, useDefault);
                        return;
                    }
                }
                foreach (var (v, ks) in rev2) {
-                    if ((ks.Count >= vaributes.Count() * 0.5 && useDefault) || ks.Count == vaributes.Count()) {
-                        foreach (var k in ks) data.Remove(k);
+                    if ((ks.Count > vaributes.Count() * 0.5 && useDefault) || ks.Count == vaributes.Count()) {
+                        foreach (var k in ks) {
+                            if (!(originalData[$"{k[..2]}/"]?.AsValue().TryGetValue<decimal>(out var o) ?? false) || o == v)
+                                if (!(originalData[k.Split('-')[0]]?.AsValue().TryGetValue<decimal>(out var o2) ?? false) || o2 == v)
+                                    data.Remove(k);
+                        }
                        data["default"] = v;
-                        CollapsePaymentData(data, vaributes, useDefault);
+                        CollapsePaymentData(data, originalData, vaributes, useDefault);
                        return;
                    }
                }
@@ -330,16 +338,26 @@ namespace Elwig.Helpers.Billing {
                var len = vaributes.Count(e => $"{e.AttrId}{(e.CultId != null && e.CultId != "" ? "-" : "")}{e.CultId}" == idx);
                foreach (var (v, ks) in rev1) {
                    var myKs = ks.Where(k => k.EndsWith($"/{idx}")).ToList();
-                    if (myKs.Count > 1 && ((myKs.Count >= len * 0.5 && useDefault) || myKs.Count == len)) {
+                    if (myKs.Count > 1 && ((myKs.Count > len * 0.5 && useDefault) || myKs.Count == len)) {
                        foreach (var k in myKs) data.Remove(k);
-                        data[(idx.StartsWith('-') && !useDefault ? "" : "/") + idx] = v;
+                        var discr = (idx.StartsWith('-') && !useDefault ? "" : "/") + idx;
+                        data[discr] = v;
+                        foreach (var (k, o) in originalData) {
+                            if (o!.AsValue().TryGetValue<string>(out var o2) && o2 != v && k.Contains(discr))
+                                data[k] = o2;
+                        }
                    }
                }
                foreach (var (v, ks) in rev2) {
                    var myKs = ks.Where(k => k.EndsWith($"/{idx}")).ToList();
-                    if (myKs.Count > 1 && ((myKs.Count >= len * 0.5 && useDefault) || myKs.Count == len)) {
+                    if (myKs.Count > 1 && ((myKs.Count > len * 0.5 && useDefault) || myKs.Count == len)) {
                        foreach (var k in myKs) data.Remove(k);
-                        data[(idx.StartsWith('-') && !useDefault ? "" : "/") + idx] = v;
+                        var discr = (idx.StartsWith('-') && !useDefault ? "" : "/") + idx;
+                        data[discr] = v;
+                        foreach (var (k, o) in originalData) {
+                            if (o!.AsValue().TryGetValue<decimal>(out var o2) && o2 != v && k.Contains(discr))
+                                data[k] = o2;
+                        }
                    }
                }
            }
@@ -355,13 +373,22 @@ namespace Elwig.Helpers.Billing {
                } else if (k.Contains("/-")) {
                    data.Remove(k, out var val);
                    data.Add(k.Replace("/-", "-"), val);
+                    if (k[0] == '/' || k.Contains('-')) {
+                        foreach (var (k2, o) in originalData) {
+                            if (!data.ContainsKey(k2) && k2.Contains('-') && k2.Contains("-" + k.Split('-')[1]) && !k2.Contains("/-")
+                                && (!k2.Contains('/') || k2.Length <= 4 || !data.ContainsKey(k2[2..])))
+                            {
+                                data[k2] = o?.DeepClone();
+                            }
+                        }
+                    }
                }
            }

            (rev1, rev2) = GetReverseKeys(data, false);
            var keyVaributes = data
-                .Select(e => e.Key.Split('-')[0])
-                .Where(e => e.Length > 0 && e != "default")
+                .Select(e => e.Key)
+                .Where(e => e.Length > 0 && !e.Contains('-') && e != "default")
                .Distinct()
                .ToList();
            foreach (var idx in keyVaributes) {
@@ -419,8 +446,8 @@ namespace Elwig.Helpers.Billing {
                }
            }

-            CollapsePaymentData(payment, vaributes ?? payment.Select(e => new RawVaribute(e.Key)).ToList(), useDefaultPayment);
-            CollapsePaymentData(qualityWei, vaributes ?? qualityWei.Select(e => new RawVaribute(e.Key)).ToList(), useDefaultQuality);
+            CollapsePaymentData(payment, payment.DeepClone().AsObject(), vaributes ?? payment.Select(e => new RawVaribute(e.Key)).ToList(), useDefaultPayment);
+            CollapsePaymentData(qualityWei, qualityWei.DeepClone().AsObject(), vaributes ?? qualityWei.Select(e => new RawVaribute(e.Key)).ToList(), useDefaultQuality);

            var data = new JsonObject {
                ["mode"] = "elwig",
--- a/Elwig/Helpers/Billing/BillingVariant.cs
+++ b/Elwig/Helpers/Billing/BillingVariant.cs
@@ -46,14 +46,14 @@ namespace Elwig.Helpers.Billing {
                           m.mgnr,
                           v.avnr,
                           ROUND(p.amount / POW(10, s.precision - 2)) AS net_amount,
-                           ROUND(lp.amount / POW(10, s.precision - 2)) AS prev_amount,
+                           IIF(lc.amount >= 0, ROUND(lp.amount / POW(10, s.precision - 2)), 0) AS prev_net_amount,
                           IIF(m.buchführend, s.vat_normal, s.vat_flatrate) AS vat,
                           ROUND(IIF({Data.ConsiderTotalPenalty}, COALESCE(b.total_penalty, 0), 0) / POW(10, s.precision - 2)) +
                           ROUND(IIF({Data.ConsiderContractPenalties}, COALESCE(u.total_penalty, 0), 0) / POW(10, 4 - 2)) +
                           ROUND(IIF({Data.ConsiderAutoBusinessShares}, -COALESCE(a.total_amount, 0), 0) / POW(10, s.precision - 2)) +
                           IIF({Data.ConsiderCustomModifiers}, COALESCE(x.amount, 0), 0)
                           AS modifiers,
-                           lc.modifiers AS prev_modifiers
+                           IIF(lc.amount >= 0, lc.modifiers, 0) AS prev_modifiers
                    FROM season s
                        JOIN payment_variant v ON v.year = s.year
                        LEFT JOIN payment_variant l ON l.year = s.year
--- a/Elwig/Helpers/ClientParameters.cs
+++ b/Elwig/Helpers/ClientParameters.cs
@@ -67,6 +67,12 @@ namespace Elwig.Helpers {
        public string? TextEmailSubject;
        public string? TextEmailBody;

+        public bool MailIncludeNonDeliverers;
+        public bool MailDoublePaged;
+        public int MailSendPostal;
+        public int MailSendEmail;
+        public int MailOrdering;
+
        public int ExportEbicsVersion;
        public int ExportEbicsAddress;

@@ -117,7 +123,7 @@ namespace Elwig.Helpers {
                    case "KMW/5": ModeWineQualityStatistics = 3; break;
                    case "KMW/10": ModeWineQualityStatistics = 4; break;
                }
-                switch (parameters.GetValueOrDefault("ORDERING_MEMBERLIST", "")?.ToUpper()) {
+                switch (parameters.GetValueOrDefault("ORDERING_MEMBERLIST", "MGNR")?.ToUpper()) {
                    case "MGNR": OrderingMemberList = 0; break;
                    case "NAME": OrderingMemberList = 1; break;
                    case "KG": OrderingMemberList = 2; break;
@@ -135,6 +141,31 @@ namespace Elwig.Helpers {
                TextEmailBody = parameters.GetValueOrDefault("TEXT_EMAIL_BODY");
                if (TextEmailBody == "") TextEmailBody = null;

+                MailIncludeNonDeliverers = (parameters.GetValueOrDefault("MAIL_INCLUDE_NON_DELIVERERS")?.ToUpper()) switch {
+                    "1" or "TRUE" or "YES" or "JA" => true,
+                    _ => false,
+                };
+                MailDoublePaged = (parameters.GetValueOrDefault("MAIL_DOUBLE_PAGED")?.ToUpper()) switch {
+                    "1" or "TRUE" or "YES" or "JA" => true,
+                    _ => false,
+                };
+                switch (parameters.GetValueOrDefault("MAIL_SEND_POSTAL", "WISH")?.ToUpper()) {
+                    case "ALL": MailSendPostal = 3; break;
+                    case "WISH": MailSendPostal = 2; break;
+                    case "NO_EMAIL": MailSendPostal = 1; break;
+                    case "NONE": MailSendPostal = 0; break;
+                }
+                switch (parameters.GetValueOrDefault("MAIL_SEND_EMAIL", "WISH")?.ToUpper()) {
+                    case "ALL": MailSendEmail = 2; break;
+                    case "WISH": MailSendEmail = 1; break;
+                    case "NONE": MailSendEmail = 0; break;
+                }
+                switch (parameters.GetValueOrDefault("MAIL_ORDERING", "MGNR")?.ToUpper()) {
+                    case "MGNR": MailOrdering = 0; break;
+                    case "NAME": MailOrdering = 1; break;
+                    case "PLZ": MailOrdering = 2; break;
+                }
+
                ExportEbicsVersion = int.TryParse(parameters.GetValueOrDefault("EXPORT_EBICS_VERSION"), out var v) ? v : 9;
                switch (parameters.GetValueOrDefault("EXPORT_EBICS_ADDRESS", "FULL")?.ToUpper()) {
                    case "OMIT": ExportEbicsAddress = 0; break;
@@ -177,6 +208,25 @@ namespace Elwig.Helpers {
                case 1: orderingMemberList = "NAME"; break;
                case 2: orderingMemberList = "KG"; break;
            }
+            string mailSendPostal = "MGNR";
+            switch (MailOrdering) {
+                case 0: mailSendPostal = "NONE"; break;
+                case 1: mailSendPostal = "NO_EMAIL"; break;
+                case 2: mailSendPostal = "WISH"; break;
+                case 3: mailSendPostal = "ALL"; break;
+            }
+            string mailSendEmail = "MGNR";
+            switch (MailOrdering) {
+                case 0: mailSendEmail = "NONE"; break;
+                case 1: mailSendEmail = "WISH"; break;
+                case 2: mailSendEmail = "ALL"; break;
+            }
+            string mailOrdering = "MGNR";
+            switch (MailOrdering) {
+                case 0: mailOrdering = "MGNR"; break;
+                case 1: mailOrdering = "NAME"; break;
+                case 2: mailOrdering = "PLZ"; break;
+            }
            string exportEbicsAddress = "FULL";
            switch (ExportEbicsAddress) {
                case 0: exportEbicsAddress = "OMIT"; break;
@@ -212,6 +262,11 @@ namespace Elwig.Helpers {
                ("TEXT_CREDITNOTE", TextCreditNote),
                ("TEXT_EMAIL_SUBJECT", TextEmailSubject),
                ("TEXT_EMAIL_BODY", TextEmailBody),
+                ("MAIL_INCLUDE_NON_DELIVERERS", MailIncludeNonDeliverers ? "YES" : "NO"),
+                ("MAIL_DOUBLE_PAGED", MailDoublePaged ? "YES" : "NO"),
+                ("MAIL_SEND_POSTAL", mailSendPostal),
+                ("MAIL_SEND_EMAIL", mailSendEmail),
+                ("MAIL_ORDERING", mailOrdering),
                ("EXPORT_EBICS_VERSION", ExportEbicsVersion.ToString()),
                ("EXPORT_EBICS_ADDRESS", exportEbicsAddress),
                ("AUTOADJUST_BUSINESSSHARES", autoAdjust),
--- a/Elwig/Helpers/ControlUtils.cs
+++ b/Elwig/Helpers/ControlUtils.cs
@@ -5,6 +5,7 @@ using System.Linq;
 using System.Windows;
 using System.Windows.Controls;
 using System.Windows.Controls.Primitives;
+using System.Windows.Threading;
 using Brush = System.Windows.Media.Brush;
 using Brushes = System.Windows.Media.Brushes;

@@ -234,5 +235,21 @@ namespace Elwig.Helpers {
                return null;
            }
        }
+
+        public static void InitializeDelayTimer(TextBox tb, Action<object, TextChangedEventArgs> handler) {
+            var timer = new DispatcherTimer {
+                Interval = TimeSpan.FromMilliseconds(250)
+            };
+            timer.Tick += (object? sender, EventArgs evt) => {
+                timer.Stop();
+                var (oSender, oEvent) = ((object, TextChangedEventArgs))timer.Tag;
+                handler(oSender, oEvent);
+            };
+            tb.TextChanged += (object sender, TextChangedEventArgs evt) => {
+                timer.Stop();
+                timer.Tag = (sender, evt);
+                timer.Start();
+            };
+        }
    }
 }
--- a/Elwig/Helpers/Export/Bki.cs
+++ b/Elwig/Helpers/Export/Bki.cs
@@ -22,7 +22,7 @@ namespace Elwig.Helpers.Export {
                """;
            var c = App.Client;
            var (a1, a2) = Utils.SplitAddress(c.Address);
-            _clientData = $"{c.LfbisNr};{c.NameFull};;{a1};{a2};{c.Plz};{c.Ort}";
+            _clientData = $"{c.LfbisNr};{c.NameFull};;{a1};\t{a2};{c.Plz};{c.Ort}";
        }

        public async Task ExportAsync(int year) {
@@ -35,7 +35,7 @@ namespace Elwig.Helpers.Export {
                WHERE year = {year}
                """;
            var r = await cmd.ExecuteReaderAsync();
-            List<Row> rows = new();
+            List<Row> rows = [];
            while (await r.ReadAsync()) {
                rows.Add(new(
                    (r.IsDBNull(0) ? null : r.GetString(0), r.IsDBNull(1) ? null : r.GetString(1), r.IsDBNull(2) ? null : r.GetString(2), r.IsDBNull(3) ? null : r.GetString(3), r.GetString(4), r.GetInt32(5), r.GetString(6), r.GetInt32(7)),
@@ -57,7 +57,7 @@ namespace Elwig.Helpers.Export {

            var (n1, n2) = billingName == null ? (familyName, name) : Utils.SplitName(billingName, familyName);
            var (a1, a2) = Utils.SplitAddress(address);
-            var memberData = $"{lfBisNr};{n1};{n2};{a1};{a2};{plz};{ort}";
+            var memberData = $"{lfBisNr};{n1};{n2};{a1};\t{a2};{plz};{ort}";
            var deliveryData = $"{string.Join(".", date.Split("-").Reverse())};{weight};TB;{(type == "W" ? "J" : "")};{(type == "R" ? "J" : "")};{sortid};;;{qualid};{year};{hkid};{kmw:0.0};{oe:0}";
            var vollData = $"N;;;{area / 10_000.0}";

--- a/Elwig/Helpers/Export/Ods.cs
+++ b/Elwig/Helpers/Export/Ods.cs
@@ -301,6 +301,7 @@ namespace Elwig.Helpers.Export {
                if (units != null && units.Length > 0) {
                    int n = -1;
                    switch (units[0]) {
+                        case "#": n = 0; data = $"{v:N0}"; break;
                        case "%": n = 1; data = $"{v:N1}"; break;
                        case "€": n = 2; data = $"{v:N2}"; break;
                        case "€/kg": n = 4; data = $"{v:N4}"; break;
--- a/Elwig/Helpers/Extensions.cs
+++ b/Elwig/Helpers/Extensions.cs
@@ -23,7 +23,7 @@ namespace Elwig.Helpers {
        }

        public static string? ReadUntil(this StreamReader reader, char delimiter) {
-            return ReadUntil(reader, new char[] { delimiter });
+            return ReadUntil(reader, [ delimiter ]);
        }

        public static string? ReadUntil(this StreamReader reader, char[] delimiter) {
@@ -45,7 +45,7 @@ namespace Elwig.Helpers {
        }

        public static Task<string?> ReadUntilAsync(this StreamReader reader, char delimiter) {
-            return ReadUntilAsync(reader, new char[] { delimiter });
+            return ReadUntilAsync(reader, [ delimiter ]);
        }

        public static async Task<string?> ReadUntilAsync(this StreamReader reader, char[] delimiter) {
--- a/Elwig/Helpers/Utils.cs
+++ b/Elwig/Helpers/Utils.cs
@@ -28,6 +28,9 @@ using LinqKit;
 using System.Linq.Expressions;
 using Elwig.Models;
 using Microsoft.Win32;
+using System.Globalization;
+using System.Threading;
+using System.Windows.Markup;

 namespace Elwig.Helpers {
    public static partial class Utils {
@@ -118,6 +121,23 @@ namespace Elwig.Helpers {
            0x8201, 0x42C0, 0x4380, 0x8341, 0x4100, 0x81C1, 0x8081, 0x4040,
        ];

+        public static void OverrideCulture() {
+            var locale = new CultureInfo("de-AT", false);
+            locale.NumberFormat.CurrencyGroupSeparator = Utils.GroupSeparator;
+            locale.NumberFormat.NumberGroupSeparator = Utils.GroupSeparator;
+            locale.NumberFormat.PercentGroupSeparator = Utils.GroupSeparator;
+            CultureInfo.CurrentCulture = locale;
+            CultureInfo.CurrentUICulture = locale;
+            Thread.CurrentThread.CurrentCulture = locale;
+            Thread.CurrentThread.CurrentUICulture = locale;
+            CultureInfo.DefaultThreadCurrentCulture = locale;
+            CultureInfo.DefaultThreadCurrentUICulture = locale;
+            FrameworkElement.LanguageProperty.OverrideMetadata(
+                typeof(FrameworkElement),
+                new FrameworkPropertyMetadata(XmlLanguage.GetLanguage(CultureInfo.CurrentCulture.Name))
+            );
+        }
+
        public static SerialPort OpenSerialConnection(string connection) {
            var m = SerialRegex.Match(connection);
            if (!m.Success)
@@ -574,5 +594,76 @@ namespace Elwig.Helpers {
        public static IEnumerable<AreaCom> ActiveAreaCommitments(IEnumerable<AreaCom> query) => ActiveAreaCommitments(query, CurrentYear);
        public static IEnumerable<AreaCom> ActiveAreaCommitments(IEnumerable<AreaCom> query, int year) =>
            query.Where(c => ActiveAreaCommitments(year).Invoke(c));
+
+        public static async Task<(DateTime DateTime, string Type, int MgNr, string Name, string[] Addresses, string Subject, string[] Attachments)[]> GetSentMails(DateOnly? fromDate = null, DateOnly? toDate = null) {
+            var f = $"{fromDate:yyyy-MM-dd}";
+            var t = $"{toDate:yyyy-MM-dd}";
+            try {
+                var rows = new List<(DateTime, string, int, string, string[], string, string[])>();
+                var filenames = Directory.GetFiles(App.MailsPath, "????.csv")
+                    .Where(n => fromDate == null || Path.GetFileName(n).CompareTo($"{fromDate.Value.Year}.csv") >= 0)
+                    .Where(n => toDate   == null || Path.GetFileName(n).CompareTo($"{toDate.Value.Year}.csv")   <= 0)
+                    .Order();
+                foreach (var filename in filenames) {
+                    using var reader = new StreamReader(filename, Utils.UTF8);
+                    string? line;
+                    while ((line = await reader.ReadLineAsync()) != null) {
+                        try {
+                            if (line.Length < 20 || line[10] != ';' || line[19] != ';')
+                                continue;
+                            var date = line[..10];
+                            if (fromDate != null && date.CompareTo(f) < 0) {
+                                continue;
+                            } else if (toDate != null && date.CompareTo(t) > 0) {
+                                break;
+                            }
+                            var p = line.Split(';');
+                            rows.Add((
+                                DateOnly.ParseExact(p[0], "yyyy-MM-dd").ToDateTime(TimeOnly.ParseExact(p[1], "HH:mm:ss")),
+                                p[2],
+                                int.Parse(p[3]),
+                                p[4],
+                                p[5].Split(',').Select(a => a.Replace(" | ", "\n")).ToArray(),
+                                p[6],
+                                p[7].Split(',')
+                            ));
+                        } catch {
+                            continue;
+                        }
+                    }
+                }
+                return [.. rows];
+            } catch {
+                return [];
+            }
+        }
+
+        public static async Task AddSentMails(IEnumerable<(string Type, int MgNr, string Name, string[] Addresses, string Subject, string[] Attachments)> data) {
+            var now = DateTime.Now;
+            var filename = Path.Combine(App.MailsPath, $"{now.Year}.csv");
+            await File.AppendAllLinesAsync(filename, data.Select(d =>
+                $"{now:yyyy-MM-dd;HH:mm:ss};{d.Type};" +
+                $"{d.MgNr};{d.Name.Replace(';', ' ')};" +
+                $"{string.Join(',', d.Addresses.Select(a => a.Replace(';', ' ').Replace(',', ' ').Replace("\n", " | ")))};" +
+                $"{d.Subject.Replace(';', ' ')};" +
+                $"{string.Join(',', d.Attachments.Select(a => a.Replace(';', ' ').Replace(',', ' ')))}"
+            ), Utils.UTF8);
+        }
+
+        public static async Task<string?> FindSentMailBody(DateTime target) {
+            var dt = $"{target:yyyy-MM-dd_HH-mm-ss}_";
+            var filename = Directory.GetFiles(App.MailsPath, "????-??-??_??-??-??_*.txt")
+                .Where(n => Path.GetFileName(n).CompareTo(dt) <= 0)
+                .Order()
+                .LastOrDefault();
+            if (filename == null)
+                return null;
+            return await File.ReadAllTextAsync(filename, Utils.UTF8);
+        }
+
+        public static async Task AddSentMailBody(string subject, string body, int recipients) {
+            var filename = Path.Combine(App.MailsPath, $"{DateTime.Now:yyyy-MM-dd_HH-mm-ss}_{NormalizeFileName(subject)}.txt");
+            await File.WriteAllTextAsync(filename, $"# {subject}\r\n# Vorgesehene Empfänger: {recipients}\r\n\r\n" + body, Utils.UTF8);
+        }
    }
 }
--- a/Elwig/Helpers/Weighing/AveryEventScale.cs
+++ b/Elwig/Helpers/Weighing/AveryEventScale.cs
@@ -58,11 +58,19 @@ namespace Elwig.Helpers.Weighing {
        }

        protected async Task<WeighingResult?> Receive() {
-            var line = await Reader.ReadUntilAsync("\r\n");
+            var line = "";
+            while (line.Length < 33) {
+                var ch = Reader.Read();
+                if (ch == -1) {
+                    return null;
+                } else if (line.Length > 0 || ch == ' ') {
+                    line += char.ToString((char)ch);
+                }
+            }
            if (LogPath != null) await File.AppendAllTextAsync(LogPath, line);
            if (line == null || line == "") {
                return null;
-            } else if (line.Length != 35 || line[0] != ' ' || line[9] != ' ' || line[15] != ' ' || line[20] != ' ' || line[32] != ' ') {
+            } else if (line.Length != 33 || line[0] != ' ' || line[9] != ' ' || line[15] != ' ' || line[20] != ' ' || line[32] != ' ') {
                throw new IOException($"Invalid event from scale: '{line}'");
            }

--- a/Elwig/Models/Dtos/AreaComUnderDeliveryData.cs
+++ b/Elwig/Models/Dtos/AreaComUnderDeliveryData.cs
@@ -34,7 +34,7 @@ namespace Elwig.Models.Dtos {
        }

        private static async Task<IEnumerable<AreaComUnderDeliveryRowSingle>> FromDbSet(DbSet<AreaComUnderDeliveryRowSingle> table, int year) {
-            return await table.FromSqlRaw($"""
+            return await table.FromSql($"""
                    SELECT m.mgnr, m.name AS name_1,
                           COALESCE(m.prefix || ' ', '') || m.given_name ||
                           COALESCE(' ' || m.middle_names, '') || COALESCE(' ' || m.suffix, '') AS name_2,
@@ -45,7 +45,7 @@ namespace Elwig.Models.Dtos {
                        LEFT JOIN AT_plz_dest p ON p.id = m.postal_dest
                        LEFT JOIN AT_ort o ON o.okz = p.okz
                        JOIN v_under_delivery u ON (u.mgnr, u.bucket, u.year) = (m.mgnr, c.bucket, c.year)
-                    WHERE c.year = {year} AND m.active = 1
+                    WHERE c.year = {year}
                    ORDER BY m.mgnr, c.bucket
                    """).ToListAsync();
        }
--- a/Elwig/Models/Dtos/CreditNoteData.cs
+++ b/Elwig/Models/Dtos/CreditNoteData.cs
@@ -49,7 +49,7 @@ namespace Elwig.Models.Dtos {
        }

        private static async Task<IEnumerable<CreditNoteRowSingle>> FromDbSet(DbSet<CreditNoteRowSingle> table, int year, int avnr) {
-            return await table.FromSqlRaw($"""
+            return await table.FromSql($"""
                SELECT m.mgnr, m.name AS name_1,
                       COALESCE(m.prefix || ' ', '') || m.given_name ||
                       COALESCE(' ' || m.middle_names, '') || COALESCE(' ' || m.suffix, '') AS name_2,
--- a/Elwig/Models/Dtos/MemberAreaComsData.cs
+++ b/Elwig/Models/Dtos/MemberAreaComsData.cs
@@ -0,0 +1,105 @@
+using Microsoft.EntityFrameworkCore;
+using System.Collections.Generic;
+using System.ComponentModel.DataAnnotations.Schema;
+using System.Linq;
+using System.Threading.Tasks;
+
+namespace Elwig.Models.Dtos {
+    class MemberAreaComsData : DataTable<MemberAreaComsRow> {
+
+        private static readonly (string, string, string?, int)[] FieldNames = [
+            ("MgNr", "MgNr.", null, 12),
+            ("Name1", "Name", null, 40),
+            ("Name2", "Vorname", null, 40),
+            ("Address", "Adresse", null, 60),
+            ("Plz", "PLZ", null, 10),
+            ("Locality", "Ort", null, 60),
+            ("SortIds", "Sorte", null, 12),
+            ("AttrIds", "Attribut", null, 16),
+            ("Areas", "Fläche", "m²", 22),
+            ("DeliveryObligations", "Lieferpflicht", "kg", 22),
+            ("DeliveryRights", "Lieferrecht", "kg", 22),
+        ];
+
+        public MemberAreaComsData(IEnumerable<MemberAreaComsRow> rows, int year) :
+            base($"Flächenbindungen", $"Flächenbindungen pro Mitglied {year}", rows, FieldNames) {
+        }
+
+        public static async Task<MemberAreaComsData> ForSeason(DbSet<MemberAreaComsRowSingle> table, int year) {
+            return new MemberAreaComsData(
+               (await FromDbSet(table, year)).GroupBy(
+                   r => r.MgNr,
+                   (k, g) => new MemberAreaComsRow(g)
+             ), year);
+        }
+
+        private static async Task<IEnumerable<MemberAreaComsRowSingle>> FromDbSet(DbSet<MemberAreaComsRowSingle> table, int year) {
+            return await table.FromSql($"""
+                    SELECT m.mgnr, m.name AS name_1,
+                           COALESCE(m.prefix || ' ', '') || m.given_name ||
+                           COALESCE(' ' || m.middle_names, '') || COALESCE(' ' || m.suffix, '') AS name_2,
+                           p.plz, o.name AS ort, m.address,
+                           c.bucket, c.area, c.min_kg, c.max_kg
+                    FROM v_area_commitment_bucket_strict c
+                        LEFT JOIN member m ON m.mgnr = c.mgnr
+                        LEFT JOIN AT_plz_dest p ON p.id = m.postal_dest
+                        LEFT JOIN AT_ort o ON o.okz = p.okz
+                    WHERE c.year = {year}
+                    ORDER BY m.mgnr, c.bucket
+                    """).ToListAsync();
+        }
+    }
+
+    public class MemberAreaComsRow {
+        public int MgNr;
+        public string Name1;
+        public string? Name2;
+        public string Address;
+        public int Plz;
+        public string Locality;
+        public string[] SortIds;
+        public string[] AttrIds;
+        public int[] Areas;
+        public int[] DeliveryObligations;
+        public int[] DeliveryRights;
+
+        public MemberAreaComsRow(IEnumerable<MemberAreaComsRowSingle> rows) {
+            var f = rows.First();
+            MgNr = f.MgNr;
+            Name1 = f.Name1;
+            Name2 = f.Name2;
+            Address = f.Address;
+            Plz = f.Plz;
+            Locality = f.Locality.Split(",")[0];
+            SortIds = rows.Select(r => r.VtrgId[..2]).ToArray();
+            AttrIds = rows.Select(r => r.VtrgId[2..]).ToArray();
+            Areas = rows.Select(r => r.Area).ToArray();
+            DeliveryObligations = rows.Select(r => r.MinKg).ToArray();
+            DeliveryRights = rows.Select(r => r.MaxKg).ToArray();
+        }
+    }
+
+    [Keyless]
+    public class MemberAreaComsRowSingle {
+        [Column("mgnr")]
+        public int MgNr { get; set; }
+        [Column("name_1")]
+        public required string Name1 { get; set; }
+        [Column("name_2")]
+        public string? Name2 { get; set; }
+        [Column("address")]
+        public required string Address { get; set; }
+        [Column("plz")]
+        public int Plz { get; set; }
+        [Column("ort")]
+        public required string Locality { get; set; }
+        [Column("bucket")]
+        public required string VtrgId { get; set; }
+        [Column("area")]
+        public int Area { get; set; }
+        [Column("min_kg")]
+        public int MinKg { get; set; }
+        [Column("max_kg")]
+        public int MaxKg { get; set; }
+    }
+}
--- a/Elwig/Models/Dtos/MemberDeliveryPerVarietyData.cs
+++ b/Elwig/Models/Dtos/MemberDeliveryPerVarietyData.cs
@@ -1,12 +1,11 @@
 using Microsoft.EntityFrameworkCore;
-using System;
 using System.Collections.Generic;
 using System.ComponentModel.DataAnnotations.Schema;
 using System.Linq;
 using System.Threading.Tasks;

 namespace Elwig.Models.Dtos {
-    public class MemberDeliveryPerVariantData : DataTable<MemberDeliveryPerVariantRow> {
+    public class MemberDeliveryPerVarietyData : DataTable<MemberDeliveryPerVariantRow> {

        private static readonly (string, string, string?, int)[] FieldNames = [
            ("MgNr", "MgNr.", null, 12),
@@ -22,13 +21,12 @@ namespace Elwig.Models.Dtos {
            ("Yields", "Ertrag", "kg/ha", 22),
        ];

-
-        public MemberDeliveryPerVariantData(IEnumerable<MemberDeliveryPerVariantRow> rows, int year) :
+        public MemberDeliveryPerVarietyData(IEnumerable<MemberDeliveryPerVariantRow> rows, int year) :
            base($"Liefermengen", $"Liefermengen pro Mitglied, Sorte und Attribut {year}", rows, FieldNames) {
        }

-        public static async Task<MemberDeliveryPerVariantData> ForSeason(DbSet<MemberDeliveryPerVariantRowSingle> table, int year) {
-            return new MemberDeliveryPerVariantData(
+        public static async Task<MemberDeliveryPerVarietyData> ForSeason(DbSet<MemberDeliveryPerVariantRowSingle> table, int year) {
+            return new MemberDeliveryPerVarietyData(
               (await FromDbSet(table, year)).GroupBy(
                   r => r.MgNr,
                   (k, g) => new MemberDeliveryPerVariantRow(g)
@@ -36,7 +34,7 @@ namespace Elwig.Models.Dtos {
        }

        private static async Task<IEnumerable<MemberDeliveryPerVariantRowSingle>> FromDbSet(DbSet<MemberDeliveryPerVariantRowSingle> table, int year) {
-            return await table.FromSqlRaw($"""
+            return await table.FromSql($"""
                    SELECT m.mgnr, m.name AS name_1,
                           COALESCE(m.prefix || ' ', '') || m.given_name ||
                           COALESCE(' ' || m.middle_names, '') || COALESCE(' ' || m.suffix, '') AS name_2,
--- a/Elwig/Models/Dtos/OverUnderDeliveryData.cs
+++ b/Elwig/Models/Dtos/OverUnderDeliveryData.cs
@@ -25,7 +25,7 @@ namespace Elwig.Models.Dtos {
        }

        public static async Task<OverUnderDeliveryData> ForSeason(DbSet<OverUnderDeliveryRow> table, int year) {
-            var rows = await table.FromSqlRaw($"""
+            var rows = await table.FromSql($"""
                SELECT m.mgnr, m.name AS name_1,
                       COALESCE(m.prefix || ' ', '') || m.given_name ||
                       COALESCE(' ' || m.middle_names, '') || COALESCE(' ' || m.suffix, '') AS name_2,
@@ -33,14 +33,13 @@ namespace Elwig.Models.Dtos {
                       m.business_shares * s.min_kg_per_bs AS min_kg,
                       m.business_shares * s.max_kg_per_bs AS max_kg,
                       COALESCE(SUM(d.weight), 0) AS sum
-                FROM v_delivery d
-                    LEFT JOIN member m ON m.mgnr = d.mgnr
+                FROM season s, member m
                    LEFT JOIN AT_plz_dest p ON p.id = m.postal_dest
                    LEFT JOIN AT_ort o ON o.okz = p.okz
-                    LEFT JOIN season s ON s.year = d.year
+                    LEFT JOIN v_delivery d ON (d.year, d.mgnr) = (s.year, m.mgnr)
                WHERE s.year = {year} AND (m.active = TRUE OR d.weight > 0)
-                GROUP BY d.year, m.mgnr
-                ORDER BY 100.0 * sum / max_kg, m.mgnr;
+                GROUP BY s.year, m.mgnr
+                ORDER BY 100.0 * sum / max_kg, m.mgnr
                """).ToListAsync();
            return new OverUnderDeliveryData(rows, year);
        }
--- a/Elwig/Models/Dtos/PaymentVariantSummaryData.cs
+++ b/Elwig/Models/Dtos/PaymentVariantSummaryData.cs
@@ -49,7 +49,7 @@ namespace Elwig.Models.Dtos {
        }

        private static async Task<IEnumerable<PaymentVariantSummaryRow>> FromDbSet(DbSet<PaymentVariantSummaryRow> table, int year, int avnr) {
-            return await table.FromSqlRaw($"""
+            return await table.FromSql($"""
                SELECT v.type AS type,
                       v.name AS variety,
                       a.name AS attribute,
--- a/Elwig/Models/Dtos/Transaction.cs
+++ b/Elwig/Models/Dtos/Transaction.cs
@@ -15,7 +15,7 @@ namespace Elwig.Models.Dtos {

        public static IEnumerable<Transaction> FromPaymentVariant(PaymentVar variant) {
            return variant.Credits
-                .Where(c => c.Member.Iban != null)
+                .Where(c => c.Member.Iban != null && c.Amount > 0)
                .OrderBy(c => c.TgNr)
                .Select(c => new Transaction(c))
                .ToList();
--- a/Elwig/Models/Dtos/WineLocalityStatisticsData.cs
+++ b/Elwig/Models/Dtos/WineLocalityStatisticsData.cs
@@ -0,0 +1,60 @@
+using Elwig.Helpers;
+using Elwig.Models.Entities;
+using Microsoft.EntityFrameworkCore;
+using System;
+using System.Collections.Generic;
+using System.Linq;
+using System.Threading.Tasks;
+using static Elwig.Models.Dtos.WineLocalityStatisticsData;
+
+namespace Elwig.Models.Dtos {
+    class WineLocalityStatisticsData : DataTable<StatisticsRow> {
+
+        private static readonly (string, string, string?, int?)[] FieldNames = [
+            ("Branch", "Zwst.", null, 30),
+            ("KgNr", "KgNr.", null, 15),
+            ("Name", "Katastralgemeinde", null, 50),
+            ("Members", "Mitgl.", "#", 15),
+            ("Deliveries", "Lfrg.", "#", 15),
+            ("Parts", "Teill.", "#", 15),
+            ("Weight", "Gewicht", "kg", 20),
+            ("Gradation", "Gradation", "°Oe|°KMW", 30),
+        ];
+
+        public record struct StatisticsRow(
+            string Branch,
+            int? KgNr,
+            string? Name,
+            int Members,
+            int Deliveries,
+            int Parts,
+            int Weight,
+            (double Oe, double Kmw) Gradation
+        );
+
+        public WineLocalityStatisticsData(IEnumerable<StatisticsRow> rows, List<string> filterNames) :
+            base("Lieferstatistik pro Ort", "Lieferstatistik pro Ort", string.Join(" / ", filterNames), rows, FieldNames) {
+        }
+
+        public static async Task<WineLocalityStatisticsData> FromQuery(IQueryable<DeliveryPart> query, List<string> filterNames) {
+            return new((await query
+                .GroupBy(p => new {
+                    Branch = p.Delivery.Branch.Name,
+                    p.Kg!.KgNr,
+                    Kg = p.Kg!.AtKg.Name,
+                }, (k, g) => new {
+                    k.Branch,
+                    KgNr = (int?)k.KgNr,
+                    Kg = (string?)k.Kg,
+                    Members = g.Select(p => p.Delivery.Member).Distinct().Count(),
+                    Deliveries = g.Select(p => p.Delivery).Distinct().Count(),
+                    Parts = g.Count(),
+                    Weight = g.Sum(p => p.Weight),
+                    Kmw = g.Sum(p => p.Kmw * p.Weight) / g.Sum(p => p.Weight),
+                })
+                .OrderByDescending(g => g.Weight)
+                .ThenBy(g => g.KgNr)
+                .ToListAsync()).Select(g => new StatisticsRow(g.Branch, g.KgNr, g.Kg, g.Members, g.Deliveries, g.Parts, g.Weight, (Utils.KmwToOe(g.Kmw), Math.Round(g.Kmw, 1)))), filterNames);
+        }
+    }
+}
--- a/Elwig/Services/AreaComService.cs
+++ b/Elwig/Services/AreaComService.cs
@@ -48,6 +48,7 @@ namespace Elwig.Services {
            var filterNotVar = new List<string>();
            var filterAttr = new List<string>();
            var filterNotAttr = new List<string>();
+            var filterSeasons = new List<int>();

            var filter = vm.TextFilter;
            if (filter.Count > 0) {
@@ -87,6 +88,10 @@ namespace Elwig.Services {
                        filter.RemoveAt(i--);
                        filterNames.Add($"ohne {var[e[1..3].ToUpper()].Name}");
                        filterNames.Add($"ohne Attribut {attrId[e[3..].ToUpper()].Name}");
+                    } else if (e.Length == 4 && int.TryParse(e, out var year)) {
+                        filterSeasons.Add(year);
+                        filter.RemoveAt(i--);
+                        filterNames.Add($"laufend {e}");
                    }
                }

@@ -94,6 +99,7 @@ namespace Elwig.Services {
                if (filterNotVar.Count > 0) areaComQuery = areaComQuery.Where(a => !filterNotVar.Contains(a.AreaComType.WineVar.SortId));
                if (filterAttr.Count > 0) areaComQuery = areaComQuery.Where(a => a.AreaComType.WineAttr!.AttrId != null && filterAttr.Contains(a.AreaComType.WineAttr.AttrId));
                if (filterNotAttr.Count > 0) areaComQuery = areaComQuery.Where(a => a.AreaComType.WineAttr!.AttrId == null || !filterNotAttr.Contains(a.AreaComType.WineAttr.AttrId));
+                foreach (var year in filterSeasons) areaComQuery = Utils.ActiveAreaCommitments(areaComQuery, year);
            }

            return (filterNames, areaComQuery, filter);
--- a/Elwig/Services/DeliveryAncmtService.cs
+++ b/Elwig/Services/DeliveryAncmtService.cs
@@ -230,7 +230,7 @@ namespace Elwig.Services {
                await ctx.SaveChangesAsync();

                if (oldDsNr != null && (oldYear != year || oldDsNr != dsnr || oldMgNr != newMgNr || oldSortId != newSortId)) {
-                    await ctx.Database.ExecuteSqlRawAsync($"UPDATE delivery_announcement SET year = {year}, dsnr = {dsnr}, mgnr = {newMgNr}, sortid = '{newSortId}' WHERE (year, dsnr, mgnr, sortid) = ({a.Year}, {a.DsNr}, {a.MgNr}, '{a.SortId}')");
+                    await ctx.Database.ExecuteSqlAsync($"UPDATE delivery_announcement SET year = {year}, dsnr = {dsnr}, mgnr = {newMgNr}, sortid = {newSortId} WHERE (year, dsnr, mgnr, sortid) = ({a.Year}, {a.DsNr}, {a.MgNr}, {a.SortId})");
                }
            }

--- a/Elwig/Services/DeliveryService.cs
+++ b/Elwig/Services/DeliveryService.cs
@@ -24,7 +24,7 @@ namespace Elwig.Services {
    public static class DeliveryService {

        public enum ExportSubject {
-            FromFilters, FromToday, FromSeasonAndBranch, Selected,
+            FromFilters, FromToday, FromSeason, FromSeasonAndBranch, Selected,
        };

        public static async Task<Member?> GetMemberAsync(int mgnr) {
@@ -462,7 +462,7 @@ namespace Elwig.Services {
                    LNr = newLnr ?? oldDelivery!.LNr,
                    ZwstId = vm.Branch!.ZwstId,
                    LsNr = newLsNr ?? vm.LsNr!,
-                    MgNr = (int)vm.MgNr!,
+                    MgNr = vm.MgNr!.Value,
                    Comment = string.IsNullOrEmpty(vm.Comment) ? null : vm.Comment,
                };

@@ -474,7 +474,7 @@ namespace Elwig.Services {
                    SortId = vm.WineVar!.SortId,
                    AttrId = vm.WineAttr?.AttrId,
                    CultId = vm.WineCult?.CultId,
-                    Kmw = (double)vm.GradationKmw!,
+                    Kmw = vm.GradationKmw!.Value,
                    QualId = vm.WineQualityLevel!.QualId,
                    HkId = vm.WineOrigin!.HkId,
                    KgNr = vm.WineKg?.KgNr,
@@ -488,7 +488,7 @@ namespace Elwig.Services {
                    Acid = vm.Acid,
                    Comment = string.IsNullOrEmpty(vm.PartComment) ? null : vm.PartComment,

-                    Weight = (int)vm.Weight!,
+                    Weight = vm.Weight!.Value,
                    IsManualWeighing = vm.IsManualWeighing,
                    ScaleId = vm.ScaleId,
                    WeighingData = vm.WeighingData,
@@ -809,6 +809,103 @@ namespace Elwig.Services {
            Mouse.OverrideCursor = null;
        }

+        public static async Task GenerateLocalityStatistics(this DeliveryAdminViewModel vm, ExportSubject subject) {
+            using var ctx = new AppDbContext();
+            IQueryable<DeliveryPart> query;
+            List<string> filterNames = [];
+            if (subject == ExportSubject.FromFilters) {
+                var (f, _, q, _, _) = await vm.GetFilters(ctx);
+                query = q;
+                filterNames.AddRange(f);
+
+            } else {
+                throw new ArgumentException("Invalid value for ExportSubject");
+            }
+
+            var d = new SaveFileDialog() {
+                FileName = $"Lieferstatistik-{vm.FilterSeason ?? Utils.CurrentLastSeason}.ods",
+                DefaultExt = "ods",
+                Filter = "OpenDocument Format Spreadsheet (*.ods)|*.ods",
+                Title = $"Lieferstatistik pro Ort speichern unter - Elwig"
+            };
+            if (d.ShowDialog() == true) {
+                Mouse.OverrideCursor = Cursors.AppStarting;
+                try {
+                    using var ods = new OdsFile(d.FileName);
+                    var tbl = await WineLocalityStatisticsData.FromQuery(query, filterNames);
+                    await ods.AddTable(tbl);
+                } catch (Exception exc) {
+                    MessageBox.Show(exc.Message, "Fehler", MessageBoxButton.OK, MessageBoxImage.Error);
+                }
+                Mouse.OverrideCursor = null;
+            }
+        }
+
+        public static async Task GenerateDeliveryDepreciationList(this DeliveryAdminViewModel vm, ExportSubject subject, ExportMode mode) {
+            using var ctx = new AppDbContext();
+            IQueryable<DeliveryPart> query;
+            List<string> filterNames = [];
+            if (subject == ExportSubject.FromFilters) {
+                var (f, _, q, _, _) = await vm.GetFilters(ctx);
+                query = q;
+                filterNames.AddRange(f);
+            } else if (subject == ExportSubject.FromSeason) {
+                var year = vm.FilterSeason ?? Utils.CurrentLastSeason;
+                query = ctx.DeliveryParts
+                    .Where(p => p.Year == year);
+                filterNames.Add($"{year}");
+            } else {
+                throw new ArgumentException("Invalid value for ExportSubject");
+            }
+
+            query = query
+                .Where(p => p.QualId == "WEI")
+                .OrderBy(p => p.Delivery.MgNr)
+                .ThenBy(p => p.Delivery.DateString)
+                .ThenBy(p => p.Delivery.TimeString)
+                .ThenBy(p => p.Delivery.LsNr)
+                .ThenBy(p => p.DPNr);
+            filterNames.Remove("abgewertet");
+
+            if (mode == ExportMode.SaveList) {
+                var d = new SaveFileDialog() {
+                    FileName = $"{DeliveryDepreciationList.Name}-{vm.FilterSeason ?? Utils.CurrentLastSeason}.ods",
+                    DefaultExt = "ods",
+                    Filter = "OpenDocument Format Spreadsheet (*.ods)|*.ods",
+                    Title = $"{DeliveryDepreciationList.Name} speichern unter - Elwig"
+                };
+                if (d.ShowDialog() == true) {
+                    Mouse.OverrideCursor = Cursors.AppStarting;
+                    try {
+                        using var ods = new OdsFile(d.FileName);
+                        var tblTotal = await DeliveryJournalData.FromQuery(query, filterNames);
+                        tblTotal.FullName = DeliveryDepreciationList.Name;
+                        tblTotal.Name = "Gesamt";
+                        await ods.AddTable(tblTotal);
+                        foreach (var branch in await ctx.Branches.OrderBy(b => b.Name).ToListAsync()) {
+                            var tbl = await DeliveryJournalData.FromQuery(query.Where(p => p.Delivery.ZwstId == branch.ZwstId), filterNames);
+                            tbl.FullName = DeliveryDepreciationList.Name;
+                            tbl.Name = branch.Name;
+                            await ods.AddTable(tbl);
+                        }
+                    } catch (Exception exc) {
+                        MessageBox.Show(exc.Message, "Fehler", MessageBoxButton.OK, MessageBoxImage.Error);
+                    }
+                    Mouse.OverrideCursor = null;
+                }
+            } else {
+                Mouse.OverrideCursor = Cursors.AppStarting;
+                try {
+                    var data = await DeliveryJournalData.FromQuery(query, filterNames);
+                    using var doc = new DeliveryDepreciationList(string.Join(" / ", filterNames), data);
+                    await Utils.ExportDocument(doc, mode);
+                } catch (Exception exc) {
+                    MessageBox.Show(exc.Message, "Fehler", MessageBoxButton.OK, MessageBoxImage.Error);
+                }
+                Mouse.OverrideCursor = null;
+            }
+        }
+
        private static void AddToolTipCell(Grid grid, string text, int row, int col, int colSpan = 1, bool bold = false, bool alignRight = false, bool alignCenter = false) {
            var tb = new TextBlock() {
                Text = text,
@@ -971,5 +1068,13 @@ namespace Elwig.Services {

            return (wGrid, gGrid);
        }
+
+        public static async Task DeleteDelivery(string lsnr) {
+            using (var ctx = new AppDbContext()) {
+                await ctx.Deliveries.Where(d => d.LsNr == lsnr).ExecuteDeleteAsync();
+                await ctx.SaveChangesAsync();
+            }
+            App.HintContextChange();
+        }
    }
 }
--- a/Elwig/Services/MemberService.cs
+++ b/Elwig/Services/MemberService.cs
@@ -25,7 +25,7 @@ namespace Elwig.Services {

        public static async Task InitInputs(this MemberAdminViewModel vm) {
            using var ctx = new AppDbContext();
-            vm.MgNrString = $"{await ctx.NextMgNr()}";
+            vm.MgNr = await ctx.NextMgNr();
            vm.EntryDate = DateTime.Now.ToString("dd.MM.yyyy");
            if (vm.BranchSource.Count() == 1)
                vm.Branch = vm.BranchSource.First();
@@ -53,8 +53,8 @@ namespace Elwig.Services {

        public static void FillInputs(this MemberAdminViewModel vm, Member m) {
            vm.IsMemberSelected = true;
-            vm.MgNrString = $"{m.MgNr}";
-            vm.PredecessorMgNrString = $"{m.PredecessorMgNr}";
+            vm.MgNr = m.MgNr;
+            vm.PredecessorMgNr = m.PredecessorMgNr;
            vm.IsJuridicalPerson = m.IsJuridicalPerson;
            vm.EnableMemberReferenceButton = m.PredecessorMgNr != null;
            vm.Prefix = m.Prefix;
@@ -73,10 +73,10 @@ namespace Elwig.Services {
            vm.IsDeceased = m.IsDeceased;
            vm.Address = m.Address;
            if (m.PostalDest.AtPlz is AT_PlzDest p) {
-                vm.PlzString = $"{p.Plz}";
+                vm.Plz = p.Plz;
                vm.Ort = ControlUtils.GetItemFromSource(vm.OrtSource, p);
            } else {
-                vm.PlzString = null;
+                vm.Plz = null;
                vm.Ort = null;
            }

@@ -114,19 +114,19 @@ namespace Elwig.Services {
                vm.BillingName = billingAddr.FullName;
                vm.BillingAddress = billingAddr.Address;
                if (billingAddr.PostalDest.AtPlz is AT_PlzDest b) {
-                    vm.BillingPlzString = $"{b.Plz}";
+                    vm.BillingPlz = b.Plz;
                    vm.BillingOrt = ControlUtils.GetItemFromSource(vm.BillingOrtSource, b);
                }
            } else {
                vm.BillingName = null;
                vm.BillingAddress = null;
-                vm.BillingPlzString = null;
+                vm.BillingPlz = null;
                vm.BillingOrt = null;
            }

            vm.EntryDate = (m.EntryDateString != null) ? string.Join(".", m.EntryDateString.Split("-").Reverse()) : null;
            vm.ExitDate = (m.ExitDateString != null) ? string.Join(".", m.ExitDateString.Split("-").Reverse()) : null;
-            vm.BusinessSharesString = $"{m.BusinessShares}";
+            vm.BusinessShares = m.BusinessShares;
            vm.AccountingNr = m.AccountingNr;
            vm.Branch = (Branch?)ControlUtils.GetItemFromSourceWithPk(vm.BranchSource, m.ZwstId);
            vm.DefaultKg = (AT_Kg?)ControlUtils.GetItemFromSourceWithPk(vm.DefaultKgSource, m.DefaultKgNr);
@@ -148,6 +148,8 @@ namespace Elwig.Services {
            vm.StatusAreaCommitmentToolTip = null;

            Utils.RunBackground("Mitgliederdaten laden", async () => {
+                if (App.MainDispatcher == null)
+                    return;
                using var ctx = new AppDbContext();

                var d1 = ctx.Deliveries.Where(d => d.Year == Utils.CurrentLastSeason - 1 && d.MgNr == m.MgNr);
@@ -210,6 +212,7 @@ namespace Elwig.Services {
            var filterLfbisNr = new List<string>();
            var filterUstIdNr = new List<string>();
            var filterAreaCom = new List<string>();
+            var filterNotAreaCom = new List<string>();

            var filter = vm.TextFilter;
            if (filter.Count > 0) {
@@ -221,7 +224,15 @@ namespace Elwig.Services {
                for (int i = 0; i < filter.Count; i++) {
                    var e = filter[i];

-                    if (e.Length >= 5 && e.Length <= 10 && "funktionär".StartsWith(e, StringComparison.CurrentCultureIgnoreCase)) {
+                    if (e.Equals("aktiv", StringComparison.CurrentCultureIgnoreCase)) {
+                        memberQuery = memberQuery.Where(m => m.IsActive);
+                        filter.RemoveAt(i--);
+                        filterNames.Add("aktive Mitglieder");
+                    } else if (e.Equals("!aktiv", StringComparison.CurrentCultureIgnoreCase)) {
+                        memberQuery = memberQuery.Where(m => !m.IsActive);
+                        filter.RemoveAt(i--);
+                        filterNames.Add("inaktive Mitglieder");
+                    } else if (e.Length >= 5 && e.Length <= 10 && "funktionär".StartsWith(e, StringComparison.CurrentCultureIgnoreCase)) {
                        memberQuery = memberQuery.Where(m => m.IsFunktionär);
                        filter.RemoveAt(i--);
                        filterNames.Add("Funktionäre");
@@ -312,10 +323,22 @@ namespace Elwig.Services {
                        memberQuery = memberQuery.Where(m => m.TelephoneNumbers.Any(t => t.Number.Replace(" ", "").StartsWith(e)));
                        filter.RemoveAt(i--);
                        filterNames.Add($"Tel.-Nr. {e}");
+                    } else if (e.Length >= 5 && e.Length <= 14 && "flächenbindung".StartsWith(e, StringComparison.CurrentCultureIgnoreCase)) {
+                        filterAreaCom.AddRange(areaComs.Keys);
+                        filter.RemoveAt(i--);
+                        filterNames.Add($"Flächenbindung");
+                    } else if (e.Length >= 6 && e.Length <= 15 && "!flächenbindung".StartsWith(e, StringComparison.CurrentCultureIgnoreCase)) {
+                        filterNotAreaCom.AddRange(areaComs.Keys);
+                        filter.RemoveAt(i--);
+                        filterNames.Add($"keine Flächenbindung");
                    } else if (areaComs.ContainsKey(e.ToUpper())) {
                        filterAreaCom.Add(e.ToUpper());
                        filter.RemoveAt(i--);
                        filterNames.Add($"Flächenbindung {e.ToUpper()}");
+                    } else if (e.Length >= 3 && e[0] == '!' && areaComs.ContainsKey(e[1..].ToUpper())) {
+                        filterNotAreaCom.Add(e[1..].ToUpper());
+                        filter.RemoveAt(i--);
+                        filterNames.Add($"ohne Flächenbindung {e[1..].ToUpper()}");
                    } else if (Validator.CheckLfbisNr(e)) {
                        filterLfbisNr.Add(e);
                        filter.RemoveAt(i--);
@@ -335,6 +358,7 @@ namespace Elwig.Services {
                if (filterKgNr.Count > 0) memberQuery = memberQuery.Where(m => m.DefaultKgNr != null && filterKgNr.Contains((int)m.DefaultKgNr));
                if (filterZwst.Count > 0) memberQuery = memberQuery.Where(m => m.ZwstId != null && filterZwst.Contains(m.ZwstId));
                if (filterAreaCom.Count > 0) memberQuery = memberQuery.Where(m => m.AreaCommitments.AsQueryable().Where(Utils.ActiveAreaCommitments()).Any(c => filterAreaCom.Contains(c.VtrgId)));
+                if (filterNotAreaCom.Count > 0) memberQuery = memberQuery.Where(m => !m.AreaCommitments.AsQueryable().Where(Utils.ActiveAreaCommitments()).All(c => filterNotAreaCom.Contains(c.VtrgId)));
                if (filterLfbisNr.Count > 0) memberQuery = memberQuery.Where(m => m.LfbisNr != null && filterLfbisNr.Contains(m.LfbisNr));
                if (filterUstIdNr.Count > 0) memberQuery = memberQuery.Where(m => m.UstIdNr != null && filterUstIdNr.Contains(m.UstIdNr));
            }
@@ -652,5 +676,23 @@ namespace Elwig.Services {

            return newMgNr;
        }
+
+        public static async Task DeleteMember(int mgnr, bool deletePaymentData, bool deleteDeliveries, bool deleteAreaComs) {
+            using (var ctx = new AppDbContext()) {
+                var l = (await ctx.Members.FindAsync(mgnr))!;
+                if (deletePaymentData) {
+                    ctx.RemoveRange(l.Credits);
+                }
+                if (deleteDeliveries) {
+                    ctx.RemoveRange(l.Deliveries);
+                }
+                if (deleteAreaComs) {
+                    ctx.RemoveRange(l.AreaCommitments);
+                }
+                ctx.Remove(l);
+                await ctx.SaveChangesAsync();
+            }
+            App.HintContextChange();
+        }
    }
 }
--- a/Elwig/ViewModels/DeliveryAdminViewModel.cs
+++ b/Elwig/ViewModels/DeliveryAdminViewModel.cs
@@ -96,10 +96,16 @@ namespace Elwig.ViewModels {
        private IEnumerable<object> _wineCultSource = [];
        [ObservableProperty]
        private string? _gradationOeString;
-        public double? GradationOe => double.TryParse(GradationOeString, out var oe) ? oe : null;
+        public double? GradationOe {
+            get => double.TryParse(GradationOeString, out var oe) ? oe : null;
+            set => GradationOeString = $"{value:0}";
+        }
        [ObservableProperty]
        private string? _gradationKmwString;
-        public double? GradationKmw => double.TryParse(GradationKmwString, out var kmw) ? kmw : null;
+        public double? GradationKmw {
+            get => double.TryParse(GradationKmwString, out var kmw) ? kmw : null;
+            set => GradationKmwString = $"{value:0.0}";
+        }
        [ObservableProperty]
        private WineQualLevel? _wineQualityLevel;
        [ObservableProperty]
@@ -152,10 +158,16 @@ namespace Elwig.ViewModels {
        private string? _partComment;
        [ObservableProperty]
        private string? _temperatureString;
-        public double? Temperature => double.TryParse(TemperatureString, out var t) ? t : null;
+        public double? Temperature {
+            get => double.TryParse(TemperatureString, out var t) ? t : null;
+            set => TemperatureString = $"{value:0.0}";
+        }
        [ObservableProperty]
        private string? _acidString;
-        public double? Acid => double.TryParse(AcidString, out var a) ? a : null;
+        public double? Acid {
+            get => double.TryParse(AcidString, out var a) ? a : null;
+            set => AcidString = $"{value:0.0}";
+        }
        [ObservableProperty]
        private bool _isLesewagen;
        [ObservableProperty]
--- a/Elwig/ViewModels/MemberAdminViewModel.cs
+++ b/Elwig/ViewModels/MemberAdminViewModel.cs
@@ -39,7 +39,7 @@ namespace Elwig.ViewModels {
        [ObservableProperty]
        private bool _enableSearchInputs = true;
        [ObservableProperty]
-        private IEnumerable<bool> _memberHasDeliveries = [ .. Enumerable.Range(0, 9999).Select(i => false) ];
+        private IEnumerable<bool> _memberHasDeliveries = [.. Enumerable.Range(0, 9999).Select(i => false)];

        [ObservableProperty]
        private bool _memberListOrderByMgNr;
@@ -50,10 +50,16 @@ namespace Elwig.ViewModels {

        [ObservableProperty]
        private string? _mgNrString;
-        public int? MgNr => int.TryParse(MgNrString, out var mgnr) ? mgnr : null;
+        public int? MgNr {
+            get => int.TryParse(MgNrString, out var mgnr) ? mgnr : null;
+            set => MgNrString = $"{value}";
+        }
        [ObservableProperty]
        private string? _predecessorMgNrString;
-        public int? PredecessorMgNr => int.TryParse(PredecessorMgNrString, out var mgnr) ? mgnr : null;
+        public int? PredecessorMgNr {
+            get => int.TryParse(PredecessorMgNrString, out var mgnr) ? mgnr : null;
+            set => PredecessorMgNrString = $"{value}";
+        }
        [ObservableProperty]
        private bool _isJuridicalPerson;
        [ObservableProperty]
@@ -76,7 +82,10 @@ namespace Elwig.ViewModels {
        private string? _address;
        [ObservableProperty]
        private string? _plzString;
-        public int? Plz => int.TryParse(PlzString, out var plz) ? plz : null;
+        public int? Plz {
+            get => int.TryParse(PlzString, out var plz) ? plz : null;
+            set => PlzString = $"{value}";
+        }
        [ObservableProperty]
        private AT_PlzDest? _ort;
        [ObservableProperty]
@@ -88,7 +97,10 @@ namespace Elwig.ViewModels {
        private string? _billingAddress;
        [ObservableProperty]
        private string? _billingPlzString;
-        public int? BillingPlz => int.TryParse(BillingPlzString, out var plz) ? plz : null;
+        public int? BillingPlz {
+            get => int.TryParse(BillingPlzString, out var plz) ? plz : null;
+            set => BillingPlzString = $"{value}";
+        }
        [ObservableProperty]
        private AT_PlzDest? _billingOrt;
        [ObservableProperty]
@@ -114,7 +126,10 @@ namespace Elwig.ViewModels {
        private string? _exitDate;
        [ObservableProperty]
        private string? _businessSharesString;
-        public int? BusinessShares => int.TryParse(BusinessSharesString, out var bs) ? bs : null;
+        public int? BusinessShares {
+            get => int.TryParse(BusinessSharesString, out var bs) ? bs : null;
+            set => BusinessSharesString = $"{value}";
+        }
        [ObservableProperty]
        private string? _accountingNr;
        [ObservableProperty]
@@ -147,6 +162,14 @@ namespace Elwig.ViewModels {
            public string? _number = number;
            [ObservableProperty]
            public string? _comment = comment;
+
+            public override bool Equals(object? obj) {
+                return obj is PhoneNr nr && Type == nr.Type && Number == nr.Number && Comment == nr.Comment;
+            }
+
+            public override int GetHashCode() {
+                return Type ^ (Number?.GetHashCode() ?? 0) ^ (Comment?.GetHashCode() ?? 0);
+            }
        }
        public ObservableCollection<PhoneNr> PhoneNrs { get; private set; } = [new(), new(), new(), new(), new(), new(), new(), new(), new()];

--- a/Elwig/Windows/AdministrationWindow.cs
+++ b/Elwig/Windows/AdministrationWindow.cs
@@ -8,7 +8,6 @@ using System.Linq;
 using System.Threading.Tasks;
 using System.Windows;
 using System.Windows.Controls;
-using System.Windows.Threading;
 using System.Windows.Input;

 namespace Elwig.Windows {
@@ -358,22 +357,6 @@ namespace Elwig.Windows {
            UpdateComboBox(ortInput);
        }

-        protected static void InitializeDelayTimer(TextBox tb, Action<object, TextChangedEventArgs> handler) {
-            var timer = new DispatcherTimer {
-                Interval = TimeSpan.FromMilliseconds(250)
-            };
-            timer.Tick += (object? sender, EventArgs evt) => {
-                timer.Stop();
-                var (oSender, oEvent) = ((object, TextChangedEventArgs))timer.Tag;
-                handler(oSender, oEvent);
-            };
-            tb.TextChanged += (object sender, TextChangedEventArgs evt) => {
-                timer.Stop();
-                timer.Tag = (sender, evt);
-                timer.Start();
-            };
-        }
-
        protected bool InputTextChanged(TextBox input) {
            return InputTextChanged(input, new ValidationResult(true, null));
        }
--- a/Elwig/Windows/AreaComAdminWindow.xaml
+++ b/Elwig/Windows/AreaComAdminWindow.xaml
@@ -88,8 +88,9 @@
                        <LineBreak/>
                        Filtern nach:<LineBreak/>
                        <Bold>Sorte</Bold>: z.B. GV, zw, RR, ...<LineBreak/>
-                        <Bold>Attribut</Bold>: z.B. Kabinett, dac, ... <LineBreak/>
-                        <Bold>Flächenbindung</Bold>: z.B. GVK, GVD, ...
+                        <Bold>Attribut</Bold>: z.B. Kabinett, dac, ...<LineBreak/>
+                        <Bold>Flächenbindung</Bold>: z.B. GVK, GVD, ...<LineBreak/>
+                        <Bold>Saison</Bold>: z.B. 2020, 2019... (in dieser Saison aktiv)
                    </TextBlock>
                </TextBox.ToolTip>
            </TextBox>
--- a/Elwig/Windows/AreaComAdminWindow.xaml.cs
+++ b/Elwig/Windows/AreaComAdminWindow.xaml.cs
@@ -33,7 +33,7 @@ namespace Elwig.Windows {
                GstNrInput, AreaInput, AreaComTypeInput, WineCultivationInput
            ];

-            InitializeDelayTimer(SearchInput, SearchInput_TextChanged);
+            ControlUtils.InitializeDelayTimer(SearchInput, SearchInput_TextChanged);
            SearchInput.TextChanged -= SearchInput_TextChanged;
            ActiveAreaCommitmentInput.Content = ((string)ActiveAreaCommitmentInput.Content).Replace("2020", $"{Utils.CurrentLastSeason}");
        }
--- a/Elwig/Windows/BaseDataWindow.xaml.WineAttr.cs
+++ b/Elwig/Windows/BaseDataWindow.xaml.WineAttr.cs
@@ -58,6 +58,8 @@ namespace Elwig.Windows {

            foreach (var (old, attrid) in _attrs.Where(a => a.Value != null)) {
                await ctx.Database.ExecuteSqlAsync($"UPDATE wine_attribute SET attrid = {attrid} WHERE attrid = {old}");
+                await ctx.Database.ExecuteSqlAsync($"UPDATE area_commitment_type SET vtrgid = (sortid || COALESCE(attrid, '') || COALESCE(disc, '')) WHERE attrid = {attrid}");
+                await ctx.Database.ExecuteSqlRawAsync($"UPDATE payment_variant SET data = REPLACE(REPLACE(data, '/{old}\"', '/{attrid}\"'), '/{old}-', '/{attrid}-')");
            }
            await ctx.SaveChangesAsync();

--- a/Elwig/Windows/BaseDataWindow.xaml.WineCult.cs
+++ b/Elwig/Windows/BaseDataWindow.xaml.WineCult.cs
@@ -58,6 +58,7 @@ namespace Elwig.Windows {

            foreach (var (old, cultid) in _cults.Where(c => c.Value != null)) {
                await ctx.Database.ExecuteSqlAsync($"UPDATE wine_cultivation SET cultid = {cultid} WHERE cultid = {old}");
+                await ctx.Database.ExecuteSqlRawAsync($"UPDATE payment_variant SET data = REPLACE(data, '-{old}\"', '-{cultid}\"')");
            }
            await ctx.SaveChangesAsync();

--- a/Elwig/Windows/ChartWindow.xaml.cs
+++ b/Elwig/Windows/ChartWindow.xaml.cs
@@ -10,7 +10,6 @@ using Elwig.Helpers.Billing;
 using Elwig.Models.Entities;
 using ScottPlot.Plottables;
 using ScottPlot;
-using ScottPlot.Control;

 namespace Elwig.Windows {
    public partial class ChartWindow : ContextWindow {
@@ -226,30 +225,8 @@ namespace Elwig.Windows {
            DataPlot.Color = ColorUngebunden;
            DataPlot.MarkerStyle = new MarkerStyle(MarkerShape.FilledCircle, 9, ColorUngebunden);

-            OechslePricePlot.Interaction.Enable(new PlotActions() {
-                ZoomIn = StandardActions.ZoomIn,
-                ZoomOut = StandardActions.ZoomOut,
-                PanUp = StandardActions.PanUp,
-                PanDown = StandardActions.PanDown,
-                PanLeft = StandardActions.PanLeft,
-                PanRight = StandardActions.PanRight,
-                DragPan = StandardActions.DragPan,
-                DragZoom = StandardActions.DragZoom,
-                DragZoomRectangle = StandardActions.DragZoomRectangle,
-                ZoomRectangleClear = StandardActions.ZoomRectangleClear,
-                ZoomRectangleApply = StandardActions.ZoomRectangleApply,
-                AutoScale = StandardActions.AutoScale,
-            });
-
-            //OechslePricePlot.Plot.XAxis.ManualTickSpacing(1);
-            //OechslePricePlot.Plot.YAxis.ManualTickSpacing(0.1);
            OechslePricePlot.Plot.Axes.SetLimits(Math.Min(GraphEntry.MinX, GraphEntry.MinXGeb) - 1, GraphEntry.MaxX + 1, -0.1, 1.5);

-            //OechslePricePlot.Plot.Layout(padding: 0);
-            //OechslePricePlot.Plot.XAxis2.Layout(padding: 0);
-            //OechslePricePlot.Plot.YAxis.Layout(padding: 0);
-            //OechslePricePlot.Plot.YAxis2.Layout(padding: 0);
-
            HighlightedPointPlot = OechslePricePlot.Plot.Add.Marker(0, 0, MarkerShape.OpenCircle, 10, Colors.Red);
            HighlightedPointPlot.IsVisible = false;

--- a/Elwig/Windows/DeliveryAdminWindow.xaml
+++ b/Elwig/Windows/DeliveryAdminWindow.xaml
@@ -67,13 +67,29 @@
        <Menu Grid.ColumnSpan="3" BorderThickness="0,0,0,1" BorderBrush="LightGray" Background="White">
            <MenuItem Header="Lieferschein">
                <MenuItem x:Name="Menu_DeliveryNote_Show" Header="...anzeigen (PDF)" IsEnabled="False"
-                          Click="Menu_DeliveryNote_Show_Click" InputGestureText="Strg+P"/>
+                          Click="Menu_DeliveryNote_Show_Click" InputGestureText="Strg+P">
+                    <MenuItem.Icon>
+                        <TextBlock FontFamily="Segoe MDL2 Assets" FontSize="16" Text="&#xE8FF;"/>
+                    </MenuItem.Icon>
+                </MenuItem>
                <MenuItem x:Name="Menu_DeliveryNote_SavePdf" Header="...speichern... (PDF)" IsEnabled="False"
-                          Click="Menu_DeliveryNote_SavePdf_Click"/>
+                          Click="Menu_DeliveryNote_SavePdf_Click">
+                    <MenuItem.Icon>
+                        <TextBlock FontFamily="Segoe MDL2 Assets" FontSize="16" Text="&#xEA90;"/>
+                    </MenuItem.Icon>
+                </MenuItem>
                <MenuItem x:Name="Menu_DeliveryNote_Print" Header="...drucken" IsEnabled="False"
-                          Click="Menu_DeliveryNote_Print_Click" InputGestureText="Strg+Shift+P"/>
+                          Click="Menu_DeliveryNote_Print_Click" InputGestureText="Strg+Shift+P">
+                    <MenuItem.Icon>
+                        <TextBlock FontFamily="Segoe MDL2 Assets" FontSize="16" Text="&#xE749;"/>
+                    </MenuItem.Icon>
+                </MenuItem>
                <MenuItem x:Name="Menu_DeliveryNote_Email" Header="...per E-Mail schicken" IsEnabled="False"
-                          Click="Menu_DeliveryNote_Email_Click"/>
+                          Click="Menu_DeliveryNote_Email_Click">
+                    <MenuItem.Icon>
+                        <TextBlock FontFamily="Segoe MDL2 Assets" FontSize="16" Text="&#xE89C;"/>
+                    </MenuItem.Icon>
+                </MenuItem>
            </MenuItem>
            <MenuItem Header="Lieferjournal">
                <MenuItem x:Name="Menu_DeliveryJournal_SaveFilters" Header="...aus Filtern speichern... (Excel)"
@@ -94,31 +110,56 @@
                <MenuItem x:Name="Menu_DeliveryJournal_PrintToday" Header="...von heute drucken"
                          Click="Menu_DeliveryJournal_PrintToday_Click" InputGestureText="Strg+J"/>
            </MenuItem>
-            <MenuItem Header="Qualitätsstatistik" x:Name="Menu_WineQualityStatistics">
-                <MenuItem x:Name="Menu_WineQualityStatistics_ShowFilters" Header="...aus Filtern anzeigen (PDF)"
-                          Click="Menu_WineQualityStatistics_ShowFilters_Click"/>
-                <MenuItem x:Name="Menu_WineQualityStatistics_SavePdfFilters" Header="...aus Filtern speichern... (PDF)"
-                          Click="Menu_WineQualityStatistics_SavePdfFilters_Click"/>
-                <MenuItem x:Name="Menu_WineQualityStatistics_PrintFilters" Header="...aus Filtern drucken"
-                          Click="Menu_WineQualityStatistics_PrintFilters_Click"/>
+            <MenuItem Header="Abwertungsliste" x:Name="Menu_DeliveryDepreciationList">
+                <MenuItem x:Name="Menu_DeliveryDepreciationList_SaveFilters" Header="...aus Filtern speichern... (Excel)"
+                          Click="Menu_DeliveryDepreciationList_SaveFilters_Click"/>
+                <MenuItem x:Name="Menu_DeliveryDepreciationList_ShowFilters" Header="...aus Filtern anzeigen (PDF)"
+                          Click="Menu_DeliveryDepreciationList_ShowFilters_Click"/>
+                <MenuItem x:Name="Menu_DeliveryDepreciationList_SavePdfFilters" Header="...aus Filtern speichern... (PDF)"
+                          Click="Menu_DeliveryDepreciationList_SavePdfFilters_Click"/>
+                <MenuItem x:Name="Menu_DeliveryDepreciationList_PrintFilters" Header="...aus Filtern drucken"
+                          Click="Menu_DeliveryDepreciationList_PrintFilters_Click"/>
                <Separator/>
-                <MenuItem x:Name="Menu_WineQualityStatistics_ShowToday" Header="...von heute anzeigen (PDF)"
-                          Click="Menu_WineQualityStatistics_ShowToday_Click"/>
-                <MenuItem x:Name="Menu_WineQualityStatistics_SavePdfToday" Header="...von heute speichern... (PDF)"
-                          Click="Menu_WineQualityStatistics_SavePdfToday_Click"/>
-                <MenuItem x:Name="Menu_WineQualityStatistics_PrintToday" Header="...von heute drucken"
-                          Click="Menu_WineQualityStatistics_PrintToday_Click" InputGestureText="Strg+Q"/>
+                <MenuItem x:Name="Menu_DeliveryDepreciationList_SaveSeason" Header="...von Saison speichern... (Excel)"
+                          Click="Menu_DeliveryDepreciationList_SaveSeason_Click"/>
+                <MenuItem x:Name="Menu_DeliveryDepreciationList_ShowSeason" Header="...von Saison anzeigen (PDF)"
+                          Click="Menu_DeliveryDepreciationList_ShowSeason_Click"/>
+                <MenuItem x:Name="Menu_DeliveryDepreciationList_SavePdfSeason" Header="...von Saison speichern... (PDF)"
+                          Click="Menu_DeliveryDepreciationList_SavePdfSeason_Click"/>
+                <MenuItem x:Name="Menu_DeliveryDepreciationList_PrintSeason" Header="...von Saison drucken"
+                          Click="Menu_DeliveryDepreciationList_PrintSeason_Click"/>
+            </MenuItem>
+            <MenuItem Header="Statistik" x:Name="Menu_Statistics">
+                <MenuItem Header="Qualitätsstatistik..." x:Name="Menu_Statistics_WineQuality">
+                    <MenuItem x:Name="Menu_Statistics_WineQuality_ShowFilters" Header="...aus Filtern anzeigen (PDF)"
+                              Click="Menu_Statistics_WineQuality_ShowFilters_Click"/>
+                    <MenuItem x:Name="Menu_Statistics_WineQuality_SavePdfFilters" Header="...aus Filtern speichern... (PDF)"
+                              Click="Menu_Statistics_WineQuality_SavePdfFilters_Click"/>
+                    <MenuItem x:Name="Menu_Statistics_WineQuality_PrintFilters" Header="...aus Filtern drucken"
+                              Click="Menu_Statistics_WineQuality_PrintFilters_Click"/>
                    <Separator/>
-                <MenuItem x:Name="Menu_WineQualityStatistics_ModeOe" Header="...nach °Oe aufschlüsseln" IsCheckable="True" IsChecked="True"
-                          Click="Menu_WineQualityStatistics_Mode_Click"/>
-                <MenuItem x:Name="Menu_WineQualityStatistics_ModeKmw10" Header="...nach °KMW aufschlüsseln (&#x2152;)" IsCheckable="True"
-                          Click="Menu_WineQualityStatistics_Mode_Click"/>
-                <MenuItem x:Name="Menu_WineQualityStatistics_ModeKmw5" Header="...nach °KMW aufschlüsseln (&#x2155;)" IsCheckable="True"
-                          Click="Menu_WineQualityStatistics_Mode_Click"/>
-                <MenuItem x:Name="Menu_WineQualityStatistics_ModeKmw2" Header="...nach °KMW aufschlüsseln (&#x00BD;)" IsCheckable="True"
-                          Click="Menu_WineQualityStatistics_Mode_Click"/>
-                <MenuItem x:Name="Menu_WineQualityStatistics_ModeKmw1" Header="...nach °KMW aufschlüsseln (ganze)" IsCheckable="True"
-                          Click="Menu_WineQualityStatistics_Mode_Click"/>
+                    <MenuItem x:Name="Menu_Statistics_WineQuality_ShowToday" Header="...von heute anzeigen (PDF)"
+                              Click="Menu_Statistics_WineQuality_ShowToday_Click"/>
+                    <MenuItem x:Name="Menu_Statistics_WineQuality_SavePdfToday" Header="...von heute speichern... (PDF)"
+                              Click="Menu_Statistics_WineQuality_SavePdfToday_Click"/>
+                    <MenuItem x:Name="Menu_Statistics_WineQuality_PrintToday" Header="...von heute drucken"
+                              Click="Menu_Statistics_WineQuality_PrintToday_Click" InputGestureText="Strg+Q"/>
+                    <Separator/>
+                    <MenuItem x:Name="Menu_Statistics_WineQuality_ModeOe" Header="...nach °Oe aufschlüsseln" IsCheckable="True" IsChecked="True"
+                              Click="Menu_Statistics_WineQuality_Mode_Click"/>
+                    <MenuItem x:Name="Menu_Statistics_WineQuality_ModeKmw10" Header="...nach °KMW aufschlüsseln (&#x2152;)" IsCheckable="True"
+                              Click="Menu_Statistics_WineQuality_Mode_Click"/>
+                    <MenuItem x:Name="Menu_Statistics_WineQuality_ModeKmw5" Header="...nach °KMW aufschlüsseln (&#x2155;)" IsCheckable="True"
+                              Click="Menu_Statistics_WineQuality_Mode_Click"/>
+                    <MenuItem x:Name="Menu_Statistics_WineQuality_ModeKmw2" Header="...nach °KMW aufschlüsseln (&#x00BD;)" IsCheckable="True"
+                              Click="Menu_Statistics_WineQuality_Mode_Click"/>
+                    <MenuItem x:Name="Menu_Statistics_WineQuality_ModeKmw1" Header="...nach °KMW aufschlüsseln (ganze)" IsCheckable="True"
+                              Click="Menu_Statistics_WineQuality_Mode_Click"/>
+                </MenuItem>
+                <MenuItem x:Name="Menu_Statistics_Locality" Header="Lieferstatistik pro Ort...">
+                    <MenuItem x:Name="Menu_Statistic_Locality_SaveFilters" Header="...aus Filtern speichern... (Excel)"
+                              Click="Menu_Statistic_Locality_SaveFilters_Click"/>
+                </MenuItem>
            </MenuItem>
            <MenuItem Header="BKI">
                <MenuItem x:Name="Menu_Bki_SaveList" Header="Traubentransportscheinliste speichern..."/>
--- a/Elwig/Windows/DeliveryAdminWindow.xaml.cs
+++ b/Elwig/Windows/DeliveryAdminWindow.xaml.cs
@@ -41,7 +41,7 @@ namespace Elwig.Windows {
            CommandBindings.Add(new CommandBinding(CtrlP, Menu_DeliveryNote_Show_Click));
            CommandBindings.Add(new CommandBinding(CtrlO, Menu_DeliveryJournal_ShowFilters_Click));
            CommandBindings.Add(new CommandBinding(CtrlJ, Menu_DeliveryJournal_PrintToday_Click));
-            CommandBindings.Add(new CommandBinding(CtrlQ, Menu_WineQualityStatistics_PrintToday_Click));
+            CommandBindings.Add(new CommandBinding(CtrlQ, Menu_Statistics_WineQuality_PrintToday_Click));
            CommandBindings.Add(new CommandBinding(CtrlShiftP, Menu_DeliveryNote_Print_Click));
            CommandBindings.Add(new CommandBinding(CtrlShiftO, Menu_DeliveryJournal_PrintFilters_Click));
            RequiredInputs = [
@@ -66,7 +66,7 @@ namespace Elwig.Windows {
            SecondsTimer.Tick += new EventHandler(OnSecondPassed);
            SecondsTimer.Interval = new TimeSpan(0, 0, 1);

-            InitializeDelayTimer(SearchInput, SearchInput_TextChanged);
+            ControlUtils.InitializeDelayTimer(SearchInput, SearchInput_TextChanged);
            SearchInput.TextChanged -= SearchInput_TextChanged;
            ViewModel.FilterSeason = Utils.CurrentLastSeason;

@@ -97,17 +97,17 @@ namespace Elwig.Windows {
                WeighingDButton.Visibility = Visibility.Hidden;
            }

-            Menu_WineQualityStatistics_ModeOe.IsChecked = false;
-            Menu_WineQualityStatistics_ModeKmw1.IsChecked = false;
-            Menu_WineQualityStatistics_ModeKmw2.IsChecked = false;
-            Menu_WineQualityStatistics_ModeKmw5.IsChecked = false;
-            Menu_WineQualityStatistics_ModeKmw10.IsChecked = false;
+            Menu_Statistics_WineQuality_ModeOe.IsChecked = false;
+            Menu_Statistics_WineQuality_ModeKmw1.IsChecked = false;
+            Menu_Statistics_WineQuality_ModeKmw2.IsChecked = false;
+            Menu_Statistics_WineQuality_ModeKmw5.IsChecked = false;
+            Menu_Statistics_WineQuality_ModeKmw10.IsChecked = false;
            switch (App.Client.OrderingMemberList) {
-                case 0: Menu_WineQualityStatistics_ModeOe.IsChecked = true; break;
-                case 1: Menu_WineQualityStatistics_ModeKmw1.IsChecked = true; break;
-                case 2: Menu_WineQualityStatistics_ModeKmw2.IsChecked = true; break;
-                case 3: Menu_WineQualityStatistics_ModeKmw5.IsChecked = true; break;
-                case 4: Menu_WineQualityStatistics_ModeKmw10.IsChecked = true; break;
+                case 0: Menu_Statistics_WineQuality_ModeOe.IsChecked = true; break;
+                case 1: Menu_Statistics_WineQuality_ModeKmw1.IsChecked = true; break;
+                case 2: Menu_Statistics_WineQuality_ModeKmw2.IsChecked = true; break;
+                case 3: Menu_Statistics_WineQuality_ModeKmw5.IsChecked = true; break;
+                case 4: Menu_Statistics_WineQuality_ModeKmw10.IsChecked = true; break;
            }

            Menu_Export_UploadFilters.IsEnabled = App.Config.SyncUrl != null;
@@ -172,9 +172,11 @@ namespace Elwig.Windows {
                Title = $"Traubentransportscheinliste (BKI) speichern unter - Elwig"
            };
            if (d.ShowDialog() == true) {
-                Mouse.OverrideCursor = Cursors.AppStarting;
+                Mouse.OverrideCursor = Cursors.Wait;
+                await Task.Run(async () => {
                    using var file = new Bki(d.FileName);
                    await file.ExportAsync(year);
+                });
                Mouse.OverrideCursor = null;
            }
        }
@@ -216,40 +218,61 @@ namespace Elwig.Windows {
            await ViewModel.GenerateDeliveryJournal(DeliveryService.ExportSubject.FromSeasonAndBranch, ExportMode.Upload);
        }

-        private async void Menu_WineQualityStatistics_ShowToday_Click(object sender, RoutedEventArgs evt) =>
+        private async void Menu_Statistics_WineQuality_ShowToday_Click(object sender, RoutedEventArgs evt) =>
            await ViewModel.GenerateWineQualityStatistics(DeliveryService.ExportSubject.FromToday, ExportMode.Show);
-        private async void Menu_WineQualityStatistics_SavePdfToday_Click(object sender, RoutedEventArgs evt) =>
+        private async void Menu_Statistics_WineQuality_SavePdfToday_Click(object sender, RoutedEventArgs evt) =>
            await ViewModel.GenerateWineQualityStatistics(DeliveryService.ExportSubject.FromToday, ExportMode.SavePdf);
-        private async void Menu_WineQualityStatistics_PrintToday_Click(object sender, RoutedEventArgs evt) =>
+        private async void Menu_Statistics_WineQuality_PrintToday_Click(object sender, RoutedEventArgs evt) =>
            await ViewModel.GenerateWineQualityStatistics(DeliveryService.ExportSubject.FromToday, ExportMode.Print);
-        private async void Menu_WineQualityStatistics_ShowFilters_Click(object sender, RoutedEventArgs evt) =>
+        private async void Menu_Statistics_WineQuality_ShowFilters_Click(object sender, RoutedEventArgs evt) =>
            await ViewModel.GenerateWineQualityStatistics(DeliveryService.ExportSubject.FromFilters, ExportMode.Show);
-        private async void Menu_WineQualityStatistics_SavePdfFilters_Click(object sender, RoutedEventArgs evt) =>
+        private async void Menu_Statistics_WineQuality_SavePdfFilters_Click(object sender, RoutedEventArgs evt) =>
            await ViewModel.GenerateWineQualityStatistics(DeliveryService.ExportSubject.FromFilters, ExportMode.SavePdf);
-        private async void Menu_WineQualityStatistics_PrintFilters_Click(object sender, RoutedEventArgs evt) =>
+        private async void Menu_Statistics_WineQuality_PrintFilters_Click(object sender, RoutedEventArgs evt) =>
            await ViewModel.GenerateWineQualityStatistics(DeliveryService.ExportSubject.FromFilters, ExportMode.Print);

-        private async void Menu_WineQualityStatistics_Mode_Click(object sender, RoutedEventArgs evt) {
-            Menu_WineQualityStatistics.IsSubmenuOpen = true;
-            if (sender == Menu_WineQualityStatistics_ModeOe) {
+        private async void Menu_Statistics_WineQuality_Mode_Click(object sender, RoutedEventArgs evt) {
+            Menu_Statistics.IsSubmenuOpen = true;
+            Menu_Statistics_WineQuality.IsSubmenuOpen = true;
+            if (sender == Menu_Statistics_WineQuality_ModeOe) {
                App.Client.OrderingMemberList = 0;
-            } else if (sender == Menu_WineQualityStatistics_ModeKmw1) {
+            } else if (sender == Menu_Statistics_WineQuality_ModeKmw1) {
                App.Client.OrderingMemberList = 1;
-            } else if (sender == Menu_WineQualityStatistics_ModeKmw2) {
+            } else if (sender == Menu_Statistics_WineQuality_ModeKmw2) {
                App.Client.OrderingMemberList = 2;
-            } else if (sender == Menu_WineQualityStatistics_ModeKmw5) {
+            } else if (sender == Menu_Statistics_WineQuality_ModeKmw5) {
                App.Client.OrderingMemberList = 3;
-            } else if (sender == Menu_WineQualityStatistics_ModeKmw10) {
+            } else if (sender == Menu_Statistics_WineQuality_ModeKmw10) {
                App.Client.OrderingMemberList = 4;
            }
-            Menu_WineQualityStatistics_ModeOe.IsChecked = App.Client.OrderingMemberList == 0;
-            Menu_WineQualityStatistics_ModeKmw1.IsChecked = App.Client.OrderingMemberList == 1;
-            Menu_WineQualityStatistics_ModeKmw2.IsChecked = App.Client.OrderingMemberList == 2;
-            Menu_WineQualityStatistics_ModeKmw5.IsChecked = App.Client.OrderingMemberList == 3;
-            Menu_WineQualityStatistics_ModeKmw10.IsChecked = App.Client.OrderingMemberList == 4;
+            Menu_Statistics_WineQuality_ModeOe.IsChecked = App.Client.OrderingMemberList == 0;
+            Menu_Statistics_WineQuality_ModeKmw1.IsChecked = App.Client.OrderingMemberList == 1;
+            Menu_Statistics_WineQuality_ModeKmw2.IsChecked = App.Client.OrderingMemberList == 2;
+            Menu_Statistics_WineQuality_ModeKmw5.IsChecked = App.Client.OrderingMemberList == 3;
+            Menu_Statistics_WineQuality_ModeKmw10.IsChecked = App.Client.OrderingMemberList == 4;
            await App.Client.UpdateValues();
        }

+        private async void Menu_Statistic_Locality_SaveFilters_Click(object sender, RoutedEventArgs evt)=>
+            await ViewModel.GenerateLocalityStatistics(DeliveryService.ExportSubject.FromFilters);
+
+        private async void Menu_DeliveryDepreciationList_SaveFilters_Click(object sender, RoutedEventArgs evt) =>
+            await ViewModel.GenerateDeliveryDepreciationList(DeliveryService.ExportSubject.FromFilters, ExportMode.SaveList);
+        private async void Menu_DeliveryDepreciationList_ShowFilters_Click(object sender, RoutedEventArgs evt) =>
+            await ViewModel.GenerateDeliveryDepreciationList(DeliveryService.ExportSubject.FromFilters, ExportMode.Show);
+        private async void Menu_DeliveryDepreciationList_SavePdfFilters_Click(object sender, RoutedEventArgs evt) =>
+            await ViewModel.GenerateDeliveryDepreciationList(DeliveryService.ExportSubject.FromFilters, ExportMode.SavePdf);
+        private async void Menu_DeliveryDepreciationList_PrintFilters_Click(object sender, RoutedEventArgs evt) =>
+            await ViewModel.GenerateDeliveryDepreciationList(DeliveryService.ExportSubject.FromFilters, ExportMode.Print);
+        private async void Menu_DeliveryDepreciationList_SaveSeason_Click(object sender, RoutedEventArgs evt) =>
+            await ViewModel.GenerateDeliveryDepreciationList(DeliveryService.ExportSubject.FromSeason, ExportMode.SaveList);
+        private async void Menu_DeliveryDepreciationList_ShowSeason_Click(object sender, RoutedEventArgs evt) =>
+            await ViewModel.GenerateDeliveryDepreciationList(DeliveryService.ExportSubject.FromSeason, ExportMode.Show);
+        private async void Menu_DeliveryDepreciationList_SavePdfSeason_Click(object sender, RoutedEventArgs evt) =>
+            await ViewModel.GenerateDeliveryDepreciationList(DeliveryService.ExportSubject.FromSeason, ExportMode.SavePdf);
+        private async void Menu_DeliveryDepreciationList_PrintSeason_Click(object sender, RoutedEventArgs evt) =>
+            await ViewModel.GenerateDeliveryDepreciationList(DeliveryService.ExportSubject.FromSeason, ExportMode.Print);
+
        private void Menu_Settings_EnableFreeEditing_Checked(object sender, RoutedEventArgs evt) {
            if (IsEditing || IsCreating) {
                DateInput.IsReadOnly = false;
@@ -933,12 +956,13 @@ namespace Elwig.Windows {
                "Lieferung löschen", MessageBoxButton.OKCancel, MessageBoxImage.Warning, MessageBoxResult.Cancel);
            if (r == MessageBoxResult.OK) {
                Mouse.OverrideCursor = Cursors.AppStarting;
-                using (var ctx = new AppDbContext()) {
-                    ctx.Remove(d);
-                    await ctx.SaveChangesAsync();
+                try {
+                    await DeliveryService.DeleteDelivery(d.LsNr);
+                } catch (Exception exc) {
+                    var str = "Der Eintrag konnte nicht in der Datenbank aktualisiert werden!\n\n" + exc.Message;
+                    if (exc.InnerException != null) str += "\n\n" + exc.InnerException.Message;
+                    MessageBox.Show(str, "Lieferung löschen", MessageBoxButton.OK, MessageBoxImage.Error);
                }
-                await RefreshList();
-                await RefreshDeliveryParts();
                Mouse.OverrideCursor = null;
            }
        }
--- a/Elwig/Windows/DeliveryAncmtAdminWindow.xaml
+++ b/Elwig/Windows/DeliveryAncmtAdminWindow.xaml
@@ -69,13 +69,29 @@
        <Menu Grid.ColumnSpan="3" BorderThickness="0,0,0,1" BorderBrush="LightGray" Background="White">
            <MenuItem Header="Anmeldeliste">
                <MenuItem x:Name="Menu_DeliveryAncmtList_SaveSelected" Header="...von ausgewähltem Leseplan speichern... (Excel)"
-                          Click="Menu_DeliveryAncmtList_SaveSelected_Click"/>
+                          Click="Menu_DeliveryAncmtList_SaveSelected_Click">
+                    <MenuItem.Icon>
+                        <TextBlock FontFamily="Segoe MDL2 Assets" FontSize="16" Text="&#xE9F9;"/>
+                    </MenuItem.Icon>
+                </MenuItem>
                <MenuItem x:Name="Menu_DeliveryAncmtList_ShowSelected" Header="...von ausgewähltem Leseplan anzeigen (PDF)"
-                          Click="Menu_DeliveryAncmtList_ShowSelected_Click" InputGestureText="Strg+P"/>
+                          Click="Menu_DeliveryAncmtList_ShowSelected_Click" InputGestureText="Strg+P">
+                    <MenuItem.Icon>
+                        <TextBlock FontFamily="Segoe MDL2 Assets" FontSize="16" Text="&#xE8FF;"/>
+                    </MenuItem.Icon>
+                </MenuItem>
                <MenuItem x:Name="Menu_DeliveryAncmtList_SavePdfSelected" Header="...von ausgewähltem Leseplan speichern... (PDF)"
-                          Click="Menu_DeliveryAncmtList_SavePdfSelected_Click"/>
+                          Click="Menu_DeliveryAncmtList_SavePdfSelected_Click">
+                    <MenuItem.Icon>
+                        <TextBlock FontFamily="Segoe MDL2 Assets" FontSize="16" Text="&#xEA90;"/>
+                    </MenuItem.Icon>
+                </MenuItem>
                <MenuItem x:Name="Menu_DeliveryAncmtList_PrintSelected" Header="...von ausgewähltem Leseplan drucken"
-                          Click="Menu_DeliveryAncmtList_PrintSelected_Click" InputGestureText="Strg+Shift+P"/>
+                          Click="Menu_DeliveryAncmtList_PrintSelected_Click" InputGestureText="Strg+Shift+P">
+                    <MenuItem.Icon>
+                        <TextBlock FontFamily="Segoe MDL2 Assets" FontSize="16" Text="&#xE749;"/>
+                    </MenuItem.Icon>
+                </MenuItem>
            </MenuItem>
        </Menu>

--- a/Elwig/Windows/DeliveryAncmtAdminWindow.xaml.cs
+++ b/Elwig/Windows/DeliveryAncmtAdminWindow.xaml.cs
@@ -33,7 +33,7 @@ namespace Elwig.Windows {

            DoShowWarningWindows = false;

-            InitializeDelayTimer(SearchInput, SearchInput_TextChanged);
+            ControlUtils.InitializeDelayTimer(SearchInput, SearchInput_TextChanged);
            SearchInput.TextChanged -= SearchInput_TextChanged;
            ViewModel.FilterSeason = Utils.CurrentLastSeason;
        }
--- a/Elwig/Windows/DeliveryScheduleAdminWindow.xaml.cs
+++ b/Elwig/Windows/DeliveryScheduleAdminWindow.xaml.cs
@@ -27,7 +27,7 @@ namespace Elwig.Windows {
                DateInput, BranchInput, DescriptionInput, MainWineVarietiesInput,
            ];

-            InitializeDelayTimer(SearchInput, SearchInput_TextChanged);
+            ControlUtils.InitializeDelayTimer(SearchInput, SearchInput_TextChanged);
            SearchInput.TextChanged -= SearchInput_TextChanged;
            ViewModel.FilterSeason = Utils.CurrentLastSeason;
        }
--- a/Elwig/Windows/LogWindow.xaml.cs
+++ b/Elwig/Windows/LogWindow.xaml.cs
@@ -36,9 +36,10 @@ namespace Elwig.Windows {
        }

        private void EventList_SelectionChanged(object sender, RoutedEventArgs evt) {
-            var t = EventList.SelectedItem.GetType();
+            var item = EventList.SelectedItem;
+            var t = item.GetType();
            var p = t.GetProperty("Event")!;
-            EventData.Text = ((EventLogEntry)p.GetValue(EventList.SelectedItem)!).Message;
+            EventData.Text = ((EventLogEntry)p.GetValue(item)!).Message;
        }
    }
 }
--- a/Elwig/Windows/MailLogWindow.xaml
+++ b/Elwig/Windows/MailLogWindow.xaml
@@ -0,0 +1,54 @@
+<Window x:Class="Elwig.Windows.MailLogWindow"
+        xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
+        xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
+        xmlns:d="http://schemas.microsoft.com/expression/blend/2008"
+        xmlns:local="clr-namespace:Elwig.Windows"
+        Title="Ausgangs-Protokoll - Rundschreiben - Elwig" Height="600" Width="1000">
+    <Grid>
+        <Grid.ColumnDefinitions>
+            <ColumnDefinition Width="3*"/>
+            <ColumnDefinition Width="5"/>
+            <ColumnDefinition Width="2*"/>
+        </Grid.ColumnDefinitions>
+
+        <TextBox x:Name="FilterInput" Margin="10,10,300,10" Height="25" FontSize="14" Padding="2" TextWrapping="NoWrap"
+                 HorizontalAlignment="Stretch" VerticalAlignment="Top"
+                 TextChanged="FilterInput_TextChanged"/>
+
+        <ComboBox x:Name="TypeInput" Margin="10,10,165,10" Width="130" Height="25" FontSize="14"
+                  HorizontalAlignment="Right" VerticalAlignment="Top"
+                  SelectionChanged="TypeInput_SelectionChanged">
+            <ComboBoxItem Content="Post &amp; E-Mail" IsSelected="True"/>
+            <ComboBoxItem Content="Nur Post"/>
+            <ComboBoxItem Content="Nur E-Mail"/>
+        </ComboBox>
+
+        <ComboBox x:Name="TimeSpanInput" Margin="10,10,10,10" Width="150" Height="25" FontSize="14"
+                  HorizontalAlignment="Right" VerticalAlignment="Top"
+                  SelectionChanged="TimeSpanInput_SelectionChanged">
+            <ComboBoxItem Content="letzten 7 Tage" IsSelected="True"/>
+            <ComboBoxItem Content="letzten 6 Monate"/>
+            <ComboBoxItem Content="Immer"/>
+        </ComboBox>
+
+        <DataGrid x:Name="MailList" AutoGenerateColumns="False" HeadersVisibility="Column" IsReadOnly="True" GridLinesVisibility="None" SelectionMode="Single"
+                  CanUserDeleteRows="False" CanUserResizeRows="False" CanUserAddRows="False"
+                  SelectionChanged="MailList_SelectionChanged"
+                  Margin="10,40,5,10">
+            <DataGrid.Columns>
+                <DataGridTextColumn Header="Zeitpunkt" Binding="{Binding DateTime, StringFormat='{}{0:dd.MM.yyyy HH:mm:ss}'}" Width="120"/>
+                <DataGridTextColumn Header="Typ" Binding="{Binding Type}" Width="50"/>
+                <DataGridTextColumn Header="MgNr." Binding="{Binding MgNr}" Width="50"/>
+                <DataGridTextColumn Header="Name" Binding="{Binding Name}" Width="200"/>
+                <DataGridTextColumn Header="Adressen" Binding="{Binding Addresses}" Width="200"/>
+                <DataGridTextColumn Header="Betreff" Binding="{Binding Subject}" Width="250"/>
+                <DataGridTextColumn Header="Anhänge" Binding="{Binding Attachments}" Width="200"/>
+            </DataGrid.Columns>
+        </DataGrid>
+
+        <GridSplitter Grid.Column="1" HorizontalAlignment="Stretch" VerticalAlignment="Stretch"/>
+
+        <TextBox x:Name="MailData" Grid.Column="2" Margin="5,10,10,10" IsReadOnly="True"
+                 HorizontalScrollBarVisibility="Visible" VerticalScrollBarVisibility="Visible"/>
+    </Grid>
+</Window>
--- a/Elwig/Windows/MailLogWindow.xaml.cs
+++ b/Elwig/Windows/MailLogWindow.xaml.cs
@@ -0,0 +1,85 @@
+using Elwig.Helpers;
+using System;
+using System.Collections.Generic;
+using System.Linq;
+using System.Windows;
+
+namespace Elwig.Windows {
+    public partial class MailLogWindow : Window {
+
+        record struct Row (DateTime DateTime, string Type, int MgNr, string Name, string Addresses, string Subject, string Attachments);
+
+        private List<Row> Data = [];
+
+        public MailLogWindow() {
+            InitializeComponent();
+            WindowState = WindowState.Maximized;
+            ControlUtils.InitializeDelayTimer(FilterInput, FilterInput_TextChanged);
+            FilterInput.TextChanged -= FilterInput_TextChanged;
+        }
+
+        private async void TimeSpanInput_SelectionChanged(object sender, RoutedEventArgs evt) {
+            if (!IsLoaded) return;
+            DateTime? fromDate = DateTime.Now;
+            if (TimeSpanInput.SelectedIndex == 0) {
+                fromDate = fromDate.Value.AddDays(-7);
+            } else if (TimeSpanInput.SelectedIndex == 1) {
+                fromDate = fromDate.Value.AddMonths(-6);
+            } else {
+                fromDate = null;
+            }
+            var mails = await Utils.GetSentMails(fromDate: fromDate == null ? null : DateOnly.FromDateTime(fromDate.Value));
+            Data = mails.Reverse().Select(m => new Row(
+                m.DateTime,
+                m.Type == "email" ? "E-Mail" : m.Type == "postal" ? "Post" : "?",
+                m.MgNr,
+                m.Name,
+                string.Join("\n", m.Addresses),
+                m.Subject,
+                string.Join("\n", m.Attachments)
+            )).ToList();
+            MailList.ItemsSource = Data;
+            ApplyFilters();
+        }
+
+        private void FilterInput_TextChanged(object sender, RoutedEventArgs evt) {
+            ApplyFilters();
+        }
+
+        private void TypeInput_SelectionChanged(object sender, RoutedEventArgs evt) {
+            ApplyFilters();
+        }
+
+        private void ApplyFilters() {
+            if (!IsLoaded) return;
+            var filters = FilterInput.Text.Split(' ');
+            IEnumerable<Row> data = Data;
+            switch (TypeInput.SelectedIndex) {
+                case 1: data = data.Where(d => d.Type == "Post"); break;
+                case 2: data = data.Where(d => d.Type == "E-Mail"); break;
+            }
+            foreach (var filter in filters) {
+                if (int.TryParse(filter, out var mgnr)) {
+                    data = data.Where(d => d.MgNr == mgnr);
+                } else {
+                    var f = filter.ToLower();
+                    data = data.Where(d => d.Name.Contains(f, StringComparison.CurrentCultureIgnoreCase) ||
+                                           d.Addresses.Contains(f, StringComparison.CurrentCultureIgnoreCase) ||
+                                           d.Subject.Contains(f, StringComparison.CurrentCultureIgnoreCase) ||
+                                           d.Attachments.Contains(f, StringComparison.CurrentCultureIgnoreCase));
+                }
+            }
+            if (IsLoaded)
+                MailList.ItemsSource = data.ToList();
+        }
+
+        private async void MailList_SelectionChanged(object sender, RoutedEventArgs evt) {
+            if (MailList.SelectedItem is not Row item) return;
+            if (item.Type == "E-Mail") {
+                MailData.Text = await Utils.FindSentMailBody(item.DateTime);
+            } else {
+                MailData.Text = "";
+            }
+        }
+    }
+}
--- a/Elwig/Windows/MailWindow.xaml
+++ b/Elwig/Windows/MailWindow.xaml
@@ -27,7 +27,26 @@
            <Setter Property="TextWrapping" Value="NoWrap"/>
        </Style>
    </Window.Resources>
-    <TabControl x:Name="TabControl" BorderThickness="0" PreviewDragOver="Document_PreviwDragOver" AllowDrop="True" Drop="Document_Drop">
+    <Grid>
+        <Grid.RowDefinitions>
+            <RowDefinition Height="19"/>
+            <RowDefinition Height="1*"/>
+            <RowDefinition Height="24"/>
+        </Grid.RowDefinitions>
+
+        <Menu BorderThickness="0,0,0,1" BorderBrush="LightGray" Background="White">
+            <MenuItem Header="Hilfe">
+                <MenuItem x:Name="Menu_Help_Log" Header="Ausgangs-Protokoll anzeigen"
+                          Click="Menu_Help_Log_Click">
+                    <MenuItem.Icon>
+                        <TextBlock FontFamily="Segoe MDL2 Assets" FontSize="16" Text="&#xF168;"/>
+                    </MenuItem.Icon>
+                </MenuItem>
+            </MenuItem>
+        </Menu>
+
+        <TabControl x:Name="TabControl" BorderThickness="0" Grid.Row="1"
+                    PreviewDragOver="Document_PreviwDragOver" AllowDrop="True" Drop="Document_Drop">
            <TabItem Header="Dokumente" Visibility="Collapsed">
                <Grid>
                    <Grid.ColumnDefinitions>
@@ -304,4 +323,38 @@
                </Grid>
            </TabItem>
        </TabControl>
+
+        <StatusBar Grid.Row="2" BorderThickness="0,1,0,0" BorderBrush="Gray">
+            <StatusBar.ItemsPanel>
+                <ItemsPanelTemplate>
+                    <Grid>
+                        <Grid.ColumnDefinitions>
+                            <ColumnDefinition Width="1*"/>
+                            <ColumnDefinition Width="Auto"/>
+                            <ColumnDefinition Width="1*"/>
+                            <ColumnDefinition Width="Auto"/>
+                            <ColumnDefinition Width="1*"/>
+                        </Grid.ColumnDefinitions>
+                    </Grid>
+                </ItemsPanelTemplate>
+            </StatusBar.ItemsPanel>
+            <StatusBarItem>
+                <TextBlock>
+                    Adressaten: <Run x:Name="StatusRecipients" Text="0"/>
+                </TextBlock>
+            </StatusBarItem>
+            <Separator Grid.Column="1"/>
+            <StatusBarItem Grid.Column="2">
+                <TextBlock>
+                    Adressaten (Post): <Run x:Name="StatusPostalRecipients" Text="0"/>
+                </TextBlock>
+            </StatusBarItem>
+            <Separator Grid.Column="3"/>
+            <StatusBarItem Grid.Column="4">
+                <TextBlock>
+                    Adressaten (E-Mail): <Run x:Name="StatusEmailRecipients" Text="0"/>
+                </TextBlock>
+            </StatusBarItem>
+        </StatusBar>
+    </Grid>
 </local:ContextWindow>
--- a/Elwig/Windows/MailWindow.xaml.cs
+++ b/Elwig/Windows/MailWindow.xaml.cs
@@ -58,6 +58,7 @@ namespace Elwig.Windows {
        public IEnumerable<Member> Recipients = [];

        protected Document? PrintDocument;
+        protected Dictionary<Member, List<Document>>? PrintMemberDocuments;
        protected Dictionary<Member, List<Document>>? EmailDocuments;

        public static readonly DependencyProperty PostalAllCountProperty = DependencyProperty.Register(nameof(PostalAllCount), typeof(int), typeof(MailWindow));
@@ -122,6 +123,26 @@ namespace Elwig.Windows {
            DeliveryConfirmationFooterInput.Text = App.Client.TextDeliveryConfirmation;
            CreditNoteFooterInput.Text = App.Client.TextCreditNote;

+            DocumentNonDeliverersInput.IsChecked = App.Client.MailIncludeNonDeliverers;
+            DoublePagedInput.IsChecked = App.Client.MailDoublePaged;
+
+            switch (App.Client.MailSendPostal) {
+                case 0: PostalNobodyInput.IsChecked = true; break;
+                case 1: PostalNoEmailInput.IsChecked = true; break;
+                case 2: PostalWishInput.IsChecked = true; break;
+                case 3: PostalAllInput.IsChecked = true; break;
+            }
+            switch (App.Client.MailSendEmail) {
+                case 0: EmailNobodyInput.IsChecked = true; break;
+                case 1: EmailWishInput.IsChecked = true; break;
+                case 2: EmailAllInput.IsChecked = true; break;
+            }
+            switch (App.Client.MailOrdering) {
+                case 0: OrderMgNrInput.IsChecked = true; break;
+                case 1: OrderNameInput.IsChecked = true; break;
+                case 2: OrderPlzInput.IsChecked = true; break;
+            }
+
            PostalSender1.Text = App.Client.Sender1;
            PostalSender2.Text = App.Client.Sender2;
            PostalLocation.Text = App.BranchLocation;
@@ -242,6 +263,11 @@ namespace Elwig.Windows {
                rb.IsEnabled = true;
        }

+        private void Menu_Help_Log_Click(object sender, RoutedEventArgs evt) {
+            var w = new MailLogWindow();
+            w.Show();
+        }
+
        private void ContinueButton_Click(object sender, RoutedEventArgs evt) {
            TabControl.SelectedIndex = 1;
            TabControl.AllowDrop = false;
@@ -312,7 +338,7 @@ namespace Elwig.Windows {
            if (idx == 0) {
                SelectedDocs.Add(new(DocType.MemberDataSheet, s, null));
            } else if (idx == 1) {
-                SelectedDocs.Add(new(DocType.DeliveryConfirmation, s, (Year, DocumentNonDeliverersInput.IsChecked == true)));
+                SelectedDocs.Add(new(DocType.DeliveryConfirmation, s, Year));
                RecipientsDeliveryMembersInput.IsChecked = true;
            } else if (idx >= 2) {
                var name = s.Split(" – ")[^1];
@@ -449,18 +475,32 @@ namespace Elwig.Windows {
        }

        private void UpdatePostalEmailRecipients() {
+            var modeEmail = EmailAllInput.IsChecked == true ? 2 : EmailWishInput.IsChecked == true ? 1 : 0;
+            var modePostal = PostalAllInput.IsChecked == true ? 3 : PostalWishInput.IsChecked == true ? 2 : PostalNoEmailInput.IsChecked == true ? 1 : 0;
            EmailAllCount = Recipients.Count(m => m.EmailAddresses.Count > 0);
            EmailWishCount = Recipients.Count(m => m.EmailAddresses.Count > 0 && m.ContactViaEmail);
            PostalAllCount = Recipients.Count();
            PostalWishCount = Recipients.Count(m => m.ContactViaPost);
-            var m = EmailAllInput.IsChecked == true ? 3 : EmailWishInput.IsChecked == true ? 2 : 1;
-            PostalNoEmailCount = PostalAllCount - (m == 3 ? EmailAllCount : m == 2 ? EmailWishCount : 0);
+            var countEmail = (modeEmail == 2 ? EmailAllCount : modeEmail == 1 ? EmailWishCount : 0);
+            PostalNoEmailCount = PostalAllCount - countEmail;
+            var countPostal = (modePostal == 3 ? PostalAllCount : modePostal == 2 ? PostalWishCount : modePostal == 1 ? PostalNoEmailCount : 0);
+            if (IsLoaded) {
+                StatusRecipients.Text = $"{Recipients.Count():N0}";
+                StatusPostalRecipients.Text = $"{countPostal:N0}";
+                StatusEmailRecipients.Text = $"{countEmail:N0}";
+            }
            ResetDocuments();
        }

-        private async Task UpdateTextParameters() {
+        private async Task UpdateClientParameters() {
            var changed = false;

+            var dcInclude = DocumentNonDeliverersInput.IsChecked ?? false;
+            if (dcInclude != App.Client.MailIncludeNonDeliverers) {
+                App.Client.MailIncludeNonDeliverers = dcInclude;
+                changed = true;
+            }
+
            var dcText = DeliveryConfirmationFooterInput.Text.Trim();
            if (dcText.Length == 0) dcText = null;
            if (dcText != App.Client.TextDeliveryConfirmation) {
@@ -475,6 +515,53 @@ namespace Elwig.Windows {
                changed = true;
            }

+            var sendPostal = 0;
+            if (PostalAllInput.IsChecked ?? false) {
+                sendPostal = 3;
+            } else if (PostalWishInput.IsChecked ?? false) {
+                sendPostal = 2;
+            } else if (PostalNoEmailInput.IsChecked ?? false) {
+                sendPostal = 1;
+            }
+            if (sendPostal != App.Client.MailSendPostal) {
+                App.Client.MailSendPostal = sendPostal;
+                changed = true;
+            }
+
+            var sendEmail = 0;
+            if (EmailAllInput.IsChecked ?? false) {
+                sendEmail = 2;
+            } else if (EmailWishInput.IsChecked ?? false) {
+                sendEmail = 1;
+            }
+            if (sendEmail != App.Client.MailSendEmail) {
+                App.Client.MailSendEmail = sendEmail;
+                changed = true;
+            }
+
+            var ordering = 0;
+            if (OrderNameInput.IsChecked ?? false) {
+                ordering = 1;
+            } else if (OrderPlzInput.IsChecked ?? false) {
+                ordering = 2;
+            }
+            if (ordering != App.Client.MailOrdering) {
+                App.Client.MailOrdering = ordering;
+                changed = true;
+            }
+
+            var mailDoublePaged = DoublePagedInput.IsChecked ?? false;
+            if (mailDoublePaged != App.Client.MailDoublePaged) {
+                App.Client.MailDoublePaged = mailDoublePaged;
+                changed = true;
+            }
+
+            var sender2 = PostalSender2.Text.Trim();
+            if (sender2 != App.Client.Sender2) {
+                App.Client.Sender2 = sender2;
+                changed = true;
+            }
+
            var emailSubject = EmailSubjectInput.Text.Trim();
            if (emailSubject.Length == 0) emailSubject = null;
            if (emailSubject != App.Client.TextEmailSubject) {
@@ -519,7 +606,7 @@ namespace Elwig.Windows {
            GenerateButton.IsEnabled = false;

            DisposeDocs();
-            await UpdateTextParameters();
+            await UpdateClientParameters();

            using var ctx = new AppDbContext();

@@ -562,8 +649,7 @@ namespace Elwig.Windows {
            Dictionary<(int, int), (IDictionary<int, CreditNoteDeliveryData>, IDictionary<int, PaymentMember>, BillingData)> cnData = [];
            foreach (var doc in docs) {
                if (doc.Type == DocType.DeliveryConfirmation) {
-                    var details = ((int, bool))doc.Details!;
-                    var year = details.Item1;
+                    var year = (int)doc.Details!;

                    try {
                        var b = new Billing(year);
@@ -610,13 +696,11 @@ namespace Elwig.Windows {
                        } else if (doc.Type == DocType.MemberDataSheet) {
                            return [new GeneratedDoc(new MemberDataSheet(m, ctx) { Date = postalDate })];
                        } else if (doc.Type == DocType.DeliveryConfirmation) {
-                            var details = ((int, bool))doc.Details!;
-                            var year = details.Item1;
-                            var include = details.Item2;
+                            var year = (int)doc.Details!;
                            DeliveryConfirmationDeliveryData data;
                            if (dcData[year].TryGetValue(m.MgNr, out var d)) {
                                data = d;
-                            } else if (include) {
+                            } else if (App.Client.MailIncludeNonDeliverers) {
                                data = DeliveryConfirmationDeliveryData.CreateEmpty(year, m);
                            } else {
                                return [];
@@ -691,11 +775,13 @@ namespace Elwig.Windows {
                EmailDocuments = email;
            }

-            var printDocs = memberDocs
+            var printMemberDocs = memberDocs
                .Where(d =>
                    printMode == 3 ||
                    (printMode == 2 && d.Member.ContactViaPost) ||
                    (printMode == 1 && !emailRecipients.Contains(d.Member.MgNr)))
+                .ToList();
+            var printDocs = printMemberDocs
                .SelectMany(m => {
                    var docs = m.Docs.Select(d => d.Doc).ToList();
                    if (docs.Count == 0 || m.Docs[0].Type == DocType.Custom) {
@@ -720,6 +806,7 @@ namespace Elwig.Windows {
                        ProgressBar.Value = 100.0 * emailNum / totalNum + v * printNum / totalNum;
                    }));
                    PrintDocument = print;
+                    PrintMemberDocuments = printMemberDocs.ToDictionary(m => m.Member, m => m.Docs.Select(d => d.Doc).ToList());
                } catch (Exception exc) {
                    MessageBox.Show(exc.Message, "Fehler", MessageBoxButton.OK, MessageBoxImage.Error);
                    UnlockInputs();
@@ -727,6 +814,9 @@ namespace Elwig.Windows {
                    Mouse.OverrideCursor = null;
                    return;
                }
+            } else {
+                PrintDocument = null;
+                PrintMemberDocuments = null;
            }
            ProgressBar.Value = 100.0;

@@ -763,7 +853,7 @@ namespace Elwig.Windows {
        }

        private async void PrintButton_Click(object sender, RoutedEventArgs evt) {
-            if (PrintDocument == null) return;
+            if (PrintDocument == null || PrintMemberDocuments == null) return;

            PrintButton.IsEnabled = false;
            GenerateButton.IsEnabled = false;
@@ -777,6 +867,14 @@ namespace Elwig.Windows {
                    PrintDocument.Show();
                } else {
                    await PrintDocument.Print();
+                    await Utils.AddSentMails(
+                        PrintMemberDocuments.Select(d => (
+                            "postal", d.Key.MgNr, d.Key.AdministrativeName,
+                            new string[] { d.Value.Select(d => (d as BusinessDocument)?.Address).FirstOrDefault(a => a != null) ?? d.Key.FullAddress },
+                            d.Value.Select(d => d.Title).FirstOrDefault("Briefkopf"),
+                            d.Value.Select(d => d.Title).ToArray()
+                        ))
+                    );
                }
                Mouse.OverrideCursor = null;
            }
@@ -808,6 +906,7 @@ namespace Elwig.Windows {
                Mouse.OverrideCursor = Cursors.AppStarting;
                var subject = EmailSubjectInput.Text;
                var text = EmailBodyInput.Text;
+                await Utils.AddSentMailBody(subject, text, EmailDocuments.Count);
                foreach (var (m, docs) in EmailDocuments) {
                    using var msg = new MimeMessage();
                    msg.From.Add(new MailboxAddress(App.Client.NameFull, App.Config.Smtp.Value.From));
@@ -822,6 +921,12 @@ namespace Elwig.Windows {
                    }
                    msg.Body = body;
                    await client!.SendAsync(msg);
+                    await Utils.AddSentMails([(
+                        "email", m.MgNr, m.AdministrativeName,
+                        m.EmailAddresses.OrderBy(a => a.Nr).Select(a => a.Address).ToArray(),
+                        subject,
+                        docs.Select(d => d.Title).ToArray()
+                    )]);
                }

                MessageBox.Show("Erfolgreich alle E-Mails verschickt!", "Rundschreiben verschicken", MessageBoxButton.OK, MessageBoxImage.Information);
@@ -870,7 +975,7 @@ namespace Elwig.Windows {
        }

        private void PostalInput_Changed(object sender, RoutedEventArgs evt) {
-            ResetDocuments();
+            UpdatePostalEmailRecipients();
        }

        private void OrderInput_Changed(object sender, RoutedEventArgs evt) {
--- a/Elwig/Windows/MainWindow.xaml
+++ b/Elwig/Windows/MainWindow.xaml
@@ -10,6 +10,7 @@
        <Style TargetType="Button">
            <Setter Property="VerticalAlignment" Value="Top"/>
            <Setter Property="HorizontalAlignment" Value="Center"/>
+            <Setter Property="HorizontalContentAlignment" Value="Stretch"/>
            <Setter Property="FontSize" Value="14"/>
            <Setter Property="Padding" Value="9,3"/>
            <Setter Property="Height" Value="35"/>
@@ -19,23 +20,67 @@
    <Grid>
        <Menu BorderThickness="0,0,0,1" VerticalAlignment="Top" Height="19" BorderBrush="LightGray" Background="White">
            <MenuItem Header="Datenbank">
-                <MenuItem Header="Daten exportieren..." Click="Menu_Database_Export_Click" IsEnabled="False"/>
-                <MenuItem Header="Daten importieren..." Click="Menu_Database_Import_Click"/>
+                <MenuItem Header="Daten exportieren..." Click="Menu_Database_Export_Click" IsEnabled="False">
+                    <MenuItem.Icon>
+                        <TextBlock FontFamily="Segoe MDL2 Assets" FontSize="16" Text="&#xEDE1;"/>
+                    </MenuItem.Icon>
+                </MenuItem>
+                <MenuItem Header="Daten importieren..." Click="Menu_Database_Import_Click">
+                    <MenuItem.Icon>
+                        <TextBlock FontFamily="Segoe MDL2 Assets" FontSize="16" Text="&#xE8B5;"/>
+                    </MenuItem.Icon>
+                </MenuItem>
                <Separator/>
-                <MenuItem Header="Abfragen stellen" Click="Menu_Database_Query_Click"/>
-                <MenuItem Header="Speicherort öffnen..." Click="Menu_Database_Open_Click"/>
+                <MenuItem Header="Abfragen stellen" Click="Menu_Database_Query_Click">
+                    <MenuItem.Icon>
+                        <TextBlock FontFamily="Segoe MDL2 Assets" FontSize="16" Text="&#xE756;"/>
+                    </MenuItem.Icon>
+                </MenuItem>
+                <MenuItem Header="Speicherort öffnen..." Click="Menu_Database_Open_Click">
+                    <MenuItem.Icon>
+                        <TextBlock FontFamily="Segoe MDL2 Assets" FontSize="16" Text="&#xED25;"/>
+                    </MenuItem.Icon>
+                </MenuItem>
            </MenuItem>
            <MenuItem Header="Waage">
-                <MenuItem Header="Datum und Uhrzeit setzen" Click="Menu_Scale_SetDateTime_Click"/>
+                <MenuItem Header="Datum und Uhrzeit setzen" Click="Menu_Scale_SetDateTime_Click">
+                    <MenuItem.Icon>
+                        <TextBlock FontFamily="Segoe MDL2 Assets" FontSize="16" Text="&#xEC92;"/>
+                    </MenuItem.Icon>
+                </MenuItem>
            </MenuItem>
            <MenuItem x:Name="HelpMenu" Header="Hilfe">
-                <MenuItem Header="Über"/>
-                <MenuItem x:Name="Menu_Help_Update" Header="Nach Updates suchen" Click="Menu_Help_Update_Click"/>
-                <MenuItem x:Name="Menu_Help_Smtp" Header="E-Mail-Einstellungen testen" Click="Menu_Help_Smtp_Click"/>
-                <MenuItem x:Name="Menu_Help_Log" Header="Fehler-Protokoll anzeigen" Click="Menu_Help_Log_Click"/>
+                <MenuItem Header="Über">
+                    <MenuItem.Icon>
+                        <TextBlock FontFamily="Segoe MDL2 Assets" FontSize="16" Text="&#xE946;"/>
+                    </MenuItem.Icon>
+                </MenuItem>
+                <MenuItem x:Name="Menu_Help_Update" Header="Nach Updates suchen" Click="Menu_Help_Update_Click">
+                    <MenuItem.Icon>
+                        <TextBlock FontFamily="Segoe MDL2 Assets" FontSize="16" Text="&#xE895;"/>
+                    </MenuItem.Icon>
+                </MenuItem>
+                <MenuItem x:Name="Menu_Help_Smtp" Header="E-Mail-Einstellungen testen" Click="Menu_Help_Smtp_Click">
+                    <MenuItem.Icon>
+                        <TextBlock FontFamily="Segoe MDL2 Assets" FontSize="16" Text="&#xE715;"/>
+                    </MenuItem.Icon>
+                </MenuItem>
+                <MenuItem x:Name="Menu_Help_Log" Header="Fehler-Protokoll anzeigen" Click="Menu_Help_Log_Click">
+                    <MenuItem.Icon>
+                        <TextBlock FontFamily="Segoe MDL2 Assets" FontSize="16" Text="&#xF168;"/>
+                    </MenuItem.Icon>
+                </MenuItem>
                <Separator/>
-                <MenuItem x:Name="Menu_Help_Config" Header="Konfigurationsdatei öffnen..." Click="Menu_Help_Config_Click"/>
-                <MenuItem x:Name="Menu_Help_Directory" Header="Konfigurationsspeicherort öffnen..." Click="Menu_Help_Directory_Click"/>
+                <MenuItem x:Name="Menu_Help_Config" Header="Konfigurationsdatei öffnen..." Click="Menu_Help_Config_Click">
+                    <MenuItem.Icon>
+                        <TextBlock FontFamily="Segoe MDL2 Assets" FontSize="16" Text="&#xEC7A;"/>
+                    </MenuItem.Icon>
+                </MenuItem>
+                <MenuItem x:Name="Menu_Help_Directory" Header="Konfigurationsspeicherort öffnen..." Click="Menu_Help_Directory_Click">
+                    <MenuItem.Icon>
+                        <TextBlock FontFamily="Segoe MDL2 Assets" FontSize="16" Text="&#xED25;"/>
+                    </MenuItem.Icon>
+                </MenuItem>
            </MenuItem>
        </Menu>

@@ -58,26 +103,64 @@
            </TextBlock>
        </Grid>

-        <Button x:Name="MemberAdminButton" Content="Mitglieder" Click="MemberAdminButton_Click"
-                Margin="0,170,205,0"/>
-        <Button x:Name="MailButton" Content="Rundschreiben" Click="MailButton_Click"
-                Margin="205,170,0,0"/>
-        <Button x:Name="DeliveryAdminButton" Content="Lieferungen" Click="DeliveryAdminButton_Click"
-                Margin="0,210,205,0"/>
-        <Button x:Name="ReceiptButton" Content="Übernahme" Click="ReceiptButton_Click"
-                Margin="205,210,0,0"/>
-        <Button x:Name="BaseDataButton" Content="Stammdaten" Click="BaseDataButton_Click"
-                Margin="0,250,205,0"/>
-        <Button x:Name="DeliveryAncmtButton" Content="Anmeldungen" Click="DeliveryAncmtButton_Click"
-                Margin="205,250,0,0"/>
+        <Button x:Name="MemberAdminButton" Click="MemberAdminButton_Click"
+                Margin="0,170,205,0">
+            <Grid>
+                <TextBlock FontFamily="Segoe MDL2 Assets" FontSize="16" Text="&#xE77B;"
+                           TextAlignment="Left" HorizontalAlignment="Left" Padding="0.5,1.5,0,0"/>
+                <TextBlock TextAlignment="Center">Mitglieder</TextBlock>
+            </Grid>
+        </Button>
+        <Button x:Name="MailButton" Click="MailButton_Click"
+                Margin="205,170,0,0">
+            <Grid>
+                <TextBlock FontFamily="Segoe MDL2 Assets" FontSize="16" Text="&#xE715;"
+                           TextAlignment="Left" HorizontalAlignment="Left" Padding="0.5,1.5,0,0"/>
+                <TextBlock TextAlignment="Center">Rundschreiben</TextBlock>
+            </Grid>
+        </Button>
+        <Button x:Name="DeliveryAdminButton" Click="DeliveryAdminButton_Click"
+                Margin="0,210,205,0">
+            <Grid>
+                <TextBlock FontFamily="Segoe MDL2 Assets" FontSize="16" Text="&#xE736;"
+                           TextAlignment="Left" HorizontalAlignment="Left" Padding="0.5,1.5,0,0"/>
+                <TextBlock TextAlignment="Center">Lieferungen</TextBlock>
+            </Grid>
+        </Button>
+        <Button x:Name="ReceiptButton" Click="ReceiptButton_Click"
+                Margin="205,210,0,0">
+            <Grid>
+                <TextBlock FontFamily="Segoe MDL2 Assets" FontSize="16" Text="&#xEC5B;"
+                           TextAlignment="Left" HorizontalAlignment="Left" Padding="0.5,1.5,0,0"/>
+                <TextBlock TextAlignment="Center">Übernahme</TextBlock>
+            </Grid>
+        </Button>
+        <Button x:Name="BaseDataButton" Click="BaseDataButton_Click"
+                Margin="0,250,205,0">
+            <Grid>
+                <TextBlock FontFamily="Segoe MDL2 Assets" FontSize="16" Text="&#xE713;"
+                           TextAlignment="Left" HorizontalAlignment="Left" Padding="0.5,1.5,0,0"/>
+                <TextBlock TextAlignment="Center">Stammdaten</TextBlock>
+            </Grid>
+        </Button>
+        <Button x:Name="DeliveryAncmtButton" Click="DeliveryAncmtButton_Click"
+                Margin="205,250,0,0">
+            <Grid>
+                <TextBlock FontFamily="Segoe MDL2 Assets" FontSize="16" Text="&#xF0E4;"
+                           TextAlignment="Left" HorizontalAlignment="Left" Padding="0.5,1.5,0,0"/>
+                <TextBlock TextAlignment="Center">Anmeldungen</TextBlock>
+            </Grid>
+        </Button>

        <Button x:Name="DownloadButton" Click="DownloadButton_Click"
-                Margin="310,135,0,0" Padding="1.5,0,0,0" Height="30" Width="30"
+                Margin="310,135,0,0" Padding="0.375,0.5,0,0" Height="30" Width="30"
                Content="&#xE896;" FontFamily="Segoe MDL2 Assets" FontSize="16"
+                HorizontalContentAlignment="Center"
                ToolTip="Lieferungen und Mitgliederdaten anderer Zweigstellen herunterladen"/>
        <Button x:Name="UploadButton" Click="UploadButton_Click"
-                Margin="375,135,0,0" Padding="1.5,0,0,0" Height="30" Width="30"
+                Margin="375,135,0,0" Padding="1.0,0.5,0,0" Height="30" Width="30"
                Content="&#xE898;" FontFamily="Segoe MDL2 Assets" FontSize="16"
+                HorizontalContentAlignment="Center"
                ToolTip="Lieferungen dieser Zweigstelle hochladen"/>

        <Expander x:Name="SeasonFinish" Header="Leseabschluss" SnapsToDevicePixels="True"
@@ -90,21 +173,104 @@
                                    Margin="0,13,0,0" VerticalAlignment="Top" HorizontalAlignment="Center"
                                    TextChanged="SeasonInput_TextChanged"/>

-                <Button x:Name="OverUnderDeliveryButton" Content="Über-/Unterlieferungen"
-                        Click="OverUnderDeliveryButton_Click"
-                        Margin="0,50,195,10" Width="190"/>
-
-                <Button x:Name="DeliveryConfirmationButton" Content="Anlieferungsbestätigung"
+                <Button x:Name="DeliveryConfirmationButton"
                        Click="DeliveryConfirmationButton_Click"
-                        Margin="195,50,0,10" Width="190"/>
+                        Margin="0,50,195,10" Width="190">
+                    <Grid>
+                        <TextBlock FontFamily="Segoe MDL2 Assets" FontSize="16" Text="&#xE715;"
+                                   TextAlignment="Left" HorizontalAlignment="Left" Padding="0.5,0.5,0,0"/>
+                        <TextBlock FontSize="12" Margin="18,1,0,0" TextAlignment="Center">Anlieferungsbestätigung</TextBlock>
+                    </Grid>
+                </Button>

-                <Button x:Name="BreakdownButton" Content="Sorten-/Qual.aufteilung"
-                        Click="BreakdownButton_Click"
-                        Margin="0,90,195,10" Width="190"/>
-
-                <Button x:Name="PaymentButton" Content="Auszahlung"
+                <Button x:Name="PaymentButton"
                        Click="PaymentButton_Click"
-                        Margin="195,90,0,10" Width="190"/>
+                        Margin="195,50,0,10" Width="190">
+                    <Grid>
+                        <TextBlock FontFamily="Segoe MDL2 Assets" FontSize="16" Text="&#xE8EF;"
+                                  TextAlignment="Left" HorizontalAlignment="Left" Padding="0.5,1.5,0,0"/>
+                        <TextBlock TextAlignment="Center">Auszahlung</TextBlock>
+                    </Grid>
+                </Button>
+
+                <Button x:Name="OverUnderDeliveryButton"
+                        Click="OverUnderDeliveryButton_Click"
+                        Margin="0,90,195,10" Width="190" Padding="3,5,5,5"
+                        ToolTip="Über-/Unterlieferungen laut gezeichneten Geschäftsanteilen und Unterlieferungen nach Flächenbindungen">
+                    <Grid>
+                        <TextBlock FontFamily="Segoe MDL2 Assets" FontSize="16" Text="&#xE9F9;"
+                                   TextAlignment="Left" HorizontalAlignment="Left" Padding="6.5,0.5,0,0"/>
+                        <TextBlock FontSize="12" Margin="18,1,0,0" TextAlignment="Center">Über-/Unterlieferungen</TextBlock>
+                    </Grid>
+                </Button>
+
+                <Button x:Name="BreakdownButton"
+                        Click="BreakdownButton_Click"
+                        Margin="195,90,0,10" Width="190" Padding="3,5,5,5"
+                        ToolTip="Aufschlüsselung des Gewichts nach Zweigstelle, Mitglied, Sorte, Attribut/Bewirt., Qualitätsstufe, gebunden/ungebunden">
+                    <Grid>
+                        <TextBlock FontFamily="Segoe MDL2 Assets" FontSize="16" Text="&#xE9F9;"
+                                   TextAlignment="Left" HorizontalAlignment="Left" Padding="6.5,0.5,0,0"/>
+                        <TextBlock FontSize="12" Margin="18,1,0,0" TextAlignment="Center">Sorten-/Qual.aufschlüssel.</TextBlock>
+                    </Grid>
+                </Button>
+
+                <Button x:Name="AreaCommitmentsButton"
+                        Click="AreaCommitmentsButton_Click"
+                        Margin="0,130,195,10" Width="190" Padding="3,5,5,5"
+                        ToolTip="Aktive Flächenbindungen der Saison pro Mitglied und Sorte/Attribut">
+                    <Grid>
+                        <TextBlock FontFamily="Segoe MDL2 Assets" FontSize="16" Text="&#xE9F9;"
+                                   TextAlignment="Left" HorizontalAlignment="Left" Padding="6.5,1.5,0,0"/>
+                        <TextBlock Margin="18,0,0,0" TextAlignment="Center">Flächenbindungen</TextBlock>
+                    </Grid>
+                </Button>
+
+                <Button x:Name="BreakdownMemberVarietyButton"
+                        Click="BreakdownMemberVarietyButton_Click"
+                        Margin="195,130,0,10" Width="190" Padding="3,5,5,5"
+                        ToolTip="Liefermengen und Ertrag (kg/ha) pro Mitglied">
+                    <Grid>
+                        <TextBlock FontFamily="Segoe MDL2 Assets" FontSize="16" Text="&#xE9F9;"
+                                   TextAlignment="Left" HorizontalAlignment="Left" Padding="6.5,1.5,0,0"/>
+                        <TextBlock Margin="18,0,0,0" TextAlignment="Center">Liefermengen/Ertrag</TextBlock>
+                    </Grid>
+                </Button>
+
+                <Grid VerticalAlignment="Bottom" Margin="50,175,50,15">
+                    <Grid.ColumnDefinitions>
+                        <ColumnDefinition Width="60"/>
+                        <ColumnDefinition Width="*"/>
+                        <ColumnDefinition Width="*"/>
+                        <ColumnDefinition Width="*"/>
+                    </Grid.ColumnDefinitions>
+                    <Grid.RowDefinitions>
+                        <RowDefinition Height="20"/>
+                        <RowDefinition Height="20"/>
+                        <RowDefinition Height="20"/>
+                        <RowDefinition Height="20"/>
+                    </Grid.RowDefinitions>
+
+                    <TextBlock Grid.Row="0" Grid.Column="1" TextAlignment="Right"><Bold>Mitglieder</Bold></TextBlock>
+                    <TextBlock Grid.Row="0" Grid.Column="2" TextAlignment="Right"><Bold>Gewicht</Bold></TextBlock>
+                    <TextBlock Grid.Row="0" Grid.Column="3" TextAlignment="Right"><Bold>Fläche</Bold></TextBlock>
+
+                    <TextBlock Grid.Row="1" Grid.Column="0">Gesamt:</TextBlock>
+                    <TextBlock Grid.Row="2" Grid.Column="0">Gebunden:</TextBlock>
+                    <TextBlock Grid.Row="3" Grid.Column="0" Grid.ColumnSpan="2">Ungebunden:</TextBlock>
+
+                    <TextBlock Grid.Row="1" Grid.Column="1" TextAlignment="Right" x:Name="SeasonStatMembersTotal">-</TextBlock>
+                    <TextBlock Grid.Row="2" Grid.Column="1" TextAlignment="Right" x:Name="SeasonStatMembersGeb">-</TextBlock>
+                    <TextBlock Grid.Row="3" Grid.Column="1" TextAlignment="Right">-</TextBlock>
+
+                    <TextBlock Grid.Row="1" Grid.Column="2" TextAlignment="Right" x:Name="SeasonStatWeightTotal">-</TextBlock>
+                    <TextBlock Grid.Row="2" Grid.Column="2" TextAlignment="Right" x:Name="SeasonStatWeightGeb">-</TextBlock>
+                    <TextBlock Grid.Row="3" Grid.Column="2" TextAlignment="Right" x:Name="SeasonStatWeightUngeb">-</TextBlock>
+
+                    <TextBlock Grid.Row="1" Grid.Column="3" TextAlignment="Right">-</TextBlock>
+                    <TextBlock Grid.Row="2" Grid.Column="3" TextAlignment="Right" x:Name="SeasonStatArea">-</TextBlock>
+                    <TextBlock Grid.Row="3" Grid.Column="3" TextAlignment="Right">-</TextBlock>
+                </Grid>
            </Grid>
        </Expander>
    </Grid>
--- a/Elwig/Windows/MainWindow.xaml.cs
+++ b/Elwig/Windows/MainWindow.xaml.cs
@@ -25,7 +25,7 @@ namespace Elwig.Windows {
        public MainWindow() {
            InitializeComponent();
            var v = Assembly.GetExecutingAssembly().GetName().Version;
-            VersionField.Text = "Version: " + (v == null ? "?" : $"{v.Major}.{v.Minor}.{v.Build}") + $" – {App.BranchName}";
+            VersionField.Text = $"Version: {v?.ToString() ?? "?"} – {App.BranchName}";
            if (App.Client.Client == null) VersionField.Text += " (Unbekannt)";
            Menu_Help_Update.IsEnabled = App.Config.UpdateUrl != null;
            Menu_Help_Smtp.IsEnabled = App.Config.Smtp != null;
@@ -251,7 +251,7 @@ namespace Elwig.Windows {
        }

        private void SeasonFinish_Expanded(object sender, RoutedEventArgs evt) {
-            Height = 530;
+            Height = 660;
        }

        private void SeasonFinish_Collapsed(object sender, RoutedEventArgs evt) {
@@ -260,12 +260,34 @@ namespace Elwig.Windows {

        private async void SeasonInput_TextChanged(object? sender, TextChangedEventArgs? evt) {
            using var ctx = new AppDbContext();
-            var s0 = await ctx.Seasons.FindAsync(SeasonInput.Value);
+            var year = SeasonInput.Value;
+            var s0 = await ctx.Seasons.FindAsync(year);
            var valid = (s0 != null);
            DeliveryConfirmationButton.IsEnabled = valid;
-            OverUnderDeliveryButton.IsEnabled = valid;
            PaymentButton.IsEnabled = valid;
+            OverUnderDeliveryButton.IsEnabled = valid;
            BreakdownButton.IsEnabled = valid;
+            AreaCommitmentsButton.IsEnabled = valid;
+            BreakdownMemberVarietyButton.IsEnabled = valid;
+
+            if (valid) {
+                var areaComs = Utils.ActiveAreaCommitments(ctx.AreaCommitments, year!.Value);
+                var weightTotal = await ctx.DeliveryParts.Where(p => p.Year == year).SumAsync(p => p.Weight);
+                var gebWeight = await ctx.DeliveryPartBuckets.Where(b => b.Year == year && b.Discr != "_").SumAsync(b => b.Value);
+                SeasonStatMembersTotal.Text = $"{await ctx.Deliveries.Where(d => d.Year == year).Select(d => d.Member).Distinct().CountAsync():N0}";
+                SeasonStatMembersGeb.Text = $"{await areaComs.Select(c => c.Member).Distinct().CountAsync():N0}";
+                SeasonStatWeightTotal.Text = $"{weightTotal:N0} kg";
+                SeasonStatWeightGeb.Text = $"{gebWeight:N0} kg";
+                SeasonStatWeightUngeb.Text = $"{weightTotal - gebWeight:N0} kg";
+                SeasonStatArea.Text = $"{await areaComs.SumAsync(c => c.Area):N0} m²";
+            } else {
+                SeasonStatMembersTotal.Text = "-";
+                SeasonStatMembersGeb.Text = "-";
+                SeasonStatWeightTotal.Text = "-";
+                SeasonStatWeightGeb.Text = "-";
+                SeasonStatWeightUngeb.Text = "-";
+                SeasonStatArea.Text = "-";
+            }
        }

        private void DeliveryConfirmationButton_Click(object sender, RoutedEventArgs evt) {
@@ -275,6 +297,12 @@ namespace Elwig.Windows {
            w.AddDeliveryConfirmation();
        }

+        private void PaymentButton_Click(object sender, RoutedEventArgs evt) {
+            if (SeasonInput.Value is not int year)
+                return;
+            App.FocusPaymentVariants(year);
+        }
+
        private async void OverUnderDeliveryButton_Click(object sender, RoutedEventArgs evt) {
            if (SeasonInput.Value is not int year)
                return;
@@ -297,23 +325,15 @@ namespace Elwig.Windows {
                using var ctx = new AppDbContext();
                var tbl1 = await OverUnderDeliveryData.ForSeason(ctx.OverUnderDeliveryRows, year);
                var tbl2 = await AreaComUnderDeliveryData.ForSeason(ctx.AreaComUnderDeliveryRows, year);
-                var tbl3 = await MemberDeliveryPerVariantData.ForSeason(ctx.MemberDeliveryPerVariantRows, year);
                using var ods = new OdsFile(d.FileName);
                await ods.AddTable(tbl1);
                await ods.AddTable(tbl2);
-                await ods.AddTable(tbl3);
            } catch (Exception exc) {
                MessageBox.Show(exc.Message, "Fehler", MessageBoxButton.OK, MessageBoxImage.Error);
            }
            Mouse.OverrideCursor = null;
        }

-        private void PaymentButton_Click(object sender, RoutedEventArgs evt) {
-            if (SeasonInput.Value is not int year)
-                return;
-            App.FocusPaymentVariants(year);
-        }
-
        private async void BreakdownButton_Click(object sender, RoutedEventArgs evt) {
            if (SeasonInput.Value is not int year)
                return;
@@ -346,5 +366,63 @@ namespace Elwig.Windows {
            }
            Mouse.OverrideCursor = null;
        }
+
+        private async void AreaCommitmentsButton_Click(object sender, RoutedEventArgs evt) {
+            if (SeasonInput.Value is not int year)
+                return;
+            var d = new SaveFileDialog() {
+                FileName = $"Flächenbindungen-{year}.ods",
+                DefaultExt = "ods",
+                Filter = "OpenDocument Format Spreadsheet (*.ods)|*.ods",
+                Title = $"Flächenbindungen {year} speichern unter - Elwig"
+            };
+            if (d.ShowDialog() == false)
+                return;
+
+            Mouse.OverrideCursor = Cursors.AppStarting;
+            try {
+                var b = new Billing(year);
+                await b.FinishSeason();
+                await b.CalculateBuckets();
+                App.HintContextChange();
+
+                using var ctx = new AppDbContext();
+                var tbl = await MemberAreaComsData.ForSeason(ctx.MemberAreaComsRows, year);
+                using var ods = new OdsFile(d.FileName);
+                await ods.AddTable(tbl);
+            } catch (Exception exc) {
+                MessageBox.Show(exc.Message, "Fehler", MessageBoxButton.OK, MessageBoxImage.Error);
+            }
+            Mouse.OverrideCursor = null;
+        }
+
+        private async void BreakdownMemberVarietyButton_Click(object sender, RoutedEventArgs evt) {
+            if (SeasonInput.Value is not int year)
+                return;
+            var d = new SaveFileDialog() {
+                FileName = $"Liefermengen-Ertrag-{year}.ods",
+                DefaultExt = "ods",
+                Filter = "OpenDocument Format Spreadsheet (*.ods)|*.ods",
+                Title = $"Liefermengen/Ertrag {year} speichern unter - Elwig"
+            };
+            if (d.ShowDialog() == false)
+                return;
+
+            Mouse.OverrideCursor = Cursors.AppStarting;
+            try {
+                var b = new Billing(year);
+                await b.FinishSeason();
+                await b.CalculateBuckets();
+                App.HintContextChange();
+
+                using var ctx = new AppDbContext();
+                var tbl = await MemberDeliveryPerVarietyData.ForSeason(ctx.MemberDeliveryPerVariantRows, year);
+                using var ods = new OdsFile(d.FileName);
+                await ods.AddTable(tbl);
+            } catch (Exception exc) {
+                MessageBox.Show(exc.Message, "Fehler", MessageBoxButton.OK, MessageBoxImage.Error);
+            }
+            Mouse.OverrideCursor = null;
+        }
    }
 }
--- a/Elwig/Windows/MemberAdminWindow.xaml
+++ b/Elwig/Windows/MemberAdminWindow.xaml
@@ -52,19 +52,43 @@
        <Menu Grid.ColumnSpan="3" BorderThickness="0,0,0,1" BorderBrush="LightGray" Background="White">
            <MenuItem Header="Kontaktieren">
                <MenuItem x:Name="Menu_Contact_Email" Header="E-Mail senden..." IsEnabled="{Binding MemberHasEmail}"
-                          Click="Menu_Contact_Email_Click"/>
+                          Click="Menu_Contact_Email_Click">
+                    <MenuItem.Icon>
+                        <TextBlock FontFamily="Segoe MDL2 Assets" FontSize="16" Text="&#xE715;"/>
+                    </MenuItem.Icon>
+                </MenuItem>
                <MenuItem x:Name="Menu_Contact_Letterhead" Header="Briefkopf drucken" IsEnabled="{Binding IsMemberSelected}"
-                          Click="Menu_Contact_Letterhead_Click"/>
+                          Click="Menu_Contact_Letterhead_Click">
+                    <MenuItem.Icon>
+                        <TextBlock FontFamily="Segoe MDL2 Assets" FontSize="16" Text="&#xE749;"/>
+                    </MenuItem.Icon>
+                </MenuItem>
            </MenuItem>
            <MenuItem Header="Stammdatenblatt">
                <MenuItem x:Name="Menu_MemberDataSheet_Show" Header="...anzeigen (PDF)" IsEnabled="{Binding IsMemberSelected}"
-                          Click="Menu_MemberDataSheet_Show_Click" InputGestureText="Strg+P"/>
+                          Click="Menu_MemberDataSheet_Show_Click" InputGestureText="Strg+P">
+                    <MenuItem.Icon>
+                        <TextBlock FontFamily="Segoe MDL2 Assets" FontSize="16" Text="&#xE8FF;"/>
+                    </MenuItem.Icon>
+                </MenuItem>
                <MenuItem x:Name="Menu_MemberDataSheet_SavePdf" Header="...speichern... (PDF)" IsEnabled="{Binding IsMemberSelected}"
-                          Click="Menu_MemberDataSheet_SavePdf_Click"/>
+                          Click="Menu_MemberDataSheet_SavePdf_Click">
+                    <MenuItem.Icon>
+                        <TextBlock FontFamily="Segoe MDL2 Assets" FontSize="16" Text="&#xEA90;"/>
+                    </MenuItem.Icon>
+                </MenuItem>
                <MenuItem x:Name="Menu_MemberDataSheet_Print" Header="...drucken" IsEnabled="{Binding IsMemberSelected}"
-                          Click="Menu_MemberDataSheet_Print_Click" InputGestureText="Strg+Shift+P"/>
+                          Click="Menu_MemberDataSheet_Print_Click" InputGestureText="Strg+Shift+P">
+                    <MenuItem.Icon>
+                        <TextBlock FontFamily="Segoe MDL2 Assets" FontSize="16" Text="&#xE749;"/>
+                    </MenuItem.Icon>
+                </MenuItem>
                <MenuItem x:Name="Menu_MemberDataSheet_Email" Header="...per E-Mail schicken" IsEnabled="{Binding MemberCanSendEmail}"
-                          Click="Menu_MemberDataSheet_Email_Click"/>
+                          Click="Menu_MemberDataSheet_Email_Click">
+                    <MenuItem.Icon>
+                        <TextBlock FontFamily="Segoe MDL2 Assets" FontSize="16" Text="&#xE89C;"/>
+                    </MenuItem.Icon>
+                </MenuItem>
            </MenuItem>
            <MenuItem Header="Anlieferungsbestätigung" x:Name="Menu_DeliveryConfirmation">
                <MenuItem x:Name="Menu_DeliveryConfirmation_Show" Header="...anzeigen (PDF)" IsEnabled="False"
@@ -170,6 +194,7 @@
                        <Bold>Stammgemeinde</Bold>: z.B. matzen, Wolkersdorf, ...<LineBreak/>
                        <Bold>UID</Bold>: z.B. ATU12345678, ...<LineBreak/>
                        <Bold>Betriebs-Nr.</Bold>: z.B. 0123456, ...<LineBreak/>
+                        <Bold>Aktiv</Bold>: aktiv, !Aktiv (nicht-aktiv)<LineBreak/>
                        <Bold>Bio-Betrieb</Bold>: BIO, !bio (ausgenommen Bio)<LineBreak/>
                        <Bold>Buchführend</Bold>: buchf[ührend], Pauschal[iert], !buchf[ührend]<LineBreak/>
                        <Bold>Volllieferant</Bold>: voll[lieferant], !Voll[lieferant] (nicht-Volllieferant)<LineBreak/>
@@ -177,7 +202,7 @@
                        <Bold>Telefon-Nr.</Bold>: z.B. +436641234, ....<LineBreak/>
                        <Bold>Kontaktdaten</Bold>: email (mind. 1 E-Mail-Adr.), telnr (mind. 1 Tel.-Nr.), !email (keine E-Mail-Adr.), !telnr (keine Tel.-Nr.)<LineBreak/>
                        <Bold>Kontaktart</Bold>: kontakt:email, kontakt:post, !kontakt:email, !kontakt:post<LineBreak/>
-                        <Bold>Flächenbindungen</Bold>: z.B. zw, GVK, WRB, ... (Mitglieder mit aktiven Flächenbindungen)<LineBreak/>
+                        <Bold>Flächenbindungen</Bold>: z.B. zw, GVK, WRB, Fläch[enbindung], !GVK, ... (Mitglieder mit aktiven Flächenbindungen)<LineBreak/>
                        <Bold>Freitext</Bold>: z.B. Rechnungsaddresse, Anmerkung, "matzen" (sucht nach dem Text "matzen")
                    </TextBlock>
                </TextBox.ToolTip>
--- a/Elwig/Windows/MemberAdminWindow.xaml.cs
+++ b/Elwig/Windows/MemberAdminWindow.xaml.cs
@@ -68,7 +68,7 @@ namespace Elwig.Windows {
                (PhoneNr9TypeInput, PhoneNr9Input, PhoneNr9CommentInput),
            ];

-            InitializeDelayTimer(SearchInput, SearchInput_TextChanged);
+            ControlUtils.InitializeDelayTimer(SearchInput, SearchInput_TextChanged);
            SearchInput.TextChanged -= SearchInput_TextChanged;

            ViewModel.MemberListOrderByMgNr = false;
@@ -187,49 +187,80 @@ namespace Elwig.Windows {
            ControlUtils.RenewItemsSource(BranchInput, await ctx.Branches.OrderBy(b => b.Name).ToListAsync());
            ControlUtils.RenewItemsSource(DefaultKgInput, await ctx.WbKgs.Select(k => k.AtKg).OrderBy(k => k.Name).ToListAsync());

+            var font = new System.Windows.Media.FontFamily("Segoe MDL2 Assets");
+            MenuItem? temp = null;
            var seasons = await ctx.Seasons.OrderByDescending(s => s.Year).ToListAsync();
            Menu_DeliveryConfirmation.Items.Clear();
            foreach (var s in seasons) {
-                var i = new MenuItem { Header = $"Saison {s.Year}...", Tag = s.Year };
+                var i = new MenuItem {
+                    Header = $"Saison {s.Year}...",
+                    Tag = s.Year,
+                    Icon = s.Year == seasons[0].Year ? new TextBlock { FontSize = 16, Text = "\uE734", FontFamily = font } : null,
+                };
                i.SetBinding(IsEnabledProperty, new Binding() { Path = new("IsMemberSelected") });
-                var show = new MenuItem { Header = "...anzeigen (PDF)" };
+                var show = new MenuItem { Header = "...anzeigen (PDF)", Icon = new TextBlock { FontSize = 16, Text = "\uE8FF", FontFamily = font } };
                show.Click += Menu_DeliveryConfirmation_Show_Click;
                i.Items.Add(show);
-                var pdf = new MenuItem { Header = "...speichern... (PDF)" };
+                var pdf = new MenuItem { Header = "...speichern... (PDF)", Icon = new TextBlock { FontSize = 16, Text = "\uEA90", FontFamily = font } };
                pdf.Click += Menu_DeliveryConfirmation_SavePdf_Click;
                i.Items.Add(pdf);
-                var print = new MenuItem { Header = "...drucken" };
+                var print = new MenuItem { Header = "...drucken", Icon = new TextBlock { FontSize = 16, Text = "\uE749", FontFamily = font } };
                print.Click += Menu_DeliveryConfirmation_Print_Click;
                i.Items.Add(print);
-                var email = new MenuItem { Header = "...per E-Mail schicken" };
+                var email = new MenuItem { Header = "...per E-Mail schicken", Icon = new TextBlock { FontSize = 16, Text = "\uE89C", FontFamily = font } };
                email.Click += Menu_DeliveryConfirmation_Email_Click;
                email.SetBinding(IsEnabledProperty, new Binding() { Path = new("MemberCanSendEmail") });
                i.Items.Add(email);
+                var decade = s.Year / 10;
+                if (seasons[0].Year / 10 != decade) {
+                    if (temp == null || !temp.Header.ToString()!.Contains($"{decade}0er")) {
+                        temp = new MenuItem { Header = $"Saisons {decade}0er..." };
+                        Menu_DeliveryConfirmation.Items.Add(temp);
+                    }
+                    temp?.Items.Add(i);
+                } else {
                    Menu_DeliveryConfirmation.Items.Add(i);
                }
+            }
+            temp = null;
            Menu_CreditNote.Items.Clear();
            foreach (var s in seasons) {
-                var i1 = new MenuItem { Header = $"Saison {s.Year}...", Tag = s.Year, IsEnabled = MemberList.SelectedItem != null };
+                var i1 = new MenuItem {
+                    Header = $"Saison {s.Year}...",
+                    Tag = s.Year,
+                    IsEnabled = MemberList.SelectedItem != null,
+                    Icon = s.Year == seasons[0].Year ? new TextBlock { FontSize = 16, Text = "\uE734", FontFamily = font } : null,
+                };
                i1.SetBinding(IsEnabledProperty, new Binding() { Path = new($"MemberHasDeliveries[{s.Year}]") });
                foreach (var v in s.PaymentVariants.OrderByDescending(v => v.AvNr)) {
                    var i2 = new MenuItem { Header = $"...{v.Name}...", Tag = v.AvNr };
-                    var show = new MenuItem { Header = "...anzeigen (PDF)" };
+                    var show = new MenuItem { Header = "...anzeigen (PDF)", Icon = new TextBlock { FontSize = 16, Text = "\uE8FF", FontFamily = font } };
                    show.Click += Menu_CreditNote_Show_Click;
                    i2.Items.Add(show);
-                    var pdf = new MenuItem { Header = "...speichern... (PDF)" };
+                    var pdf = new MenuItem { Header = "...speichern... (PDF)", Icon = new TextBlock { FontSize = 16, Text = "\uEA90", FontFamily = font } };
                    pdf.Click += Menu_CreditNote_SavePdf_Click;
                    i2.Items.Add(pdf);
-                    var print = new MenuItem { Header = "...drucken" };
+                    var print = new MenuItem { Header = "...drucken", Icon = new TextBlock { FontSize = 16, Text = "\uE749", FontFamily = font } };
                    print.Click += Menu_CreditNote_Print_Click;
                    i2.Items.Add(print);
-                    var email = new MenuItem { Header = "...per E-Mail schicken" };
+                    var email = new MenuItem { Header = "...per E-Mail schicken", Icon = new TextBlock { FontSize = 16, Text = "\uE89C", FontFamily = font } };
                    email.SetBinding(IsEnabledProperty, new Binding { Path = new("MemberCanSendEmail") });
                    email.Click += Menu_CreditNote_Email_Click;
                    i2.Items.Add(email);
                    i1.Items.Add(i2);
                }
+                var decade = s.Year / 10;
+                if (seasons[0].Year / 10 != decade) {
+                    if (temp == null || !temp.Header.ToString()!.Contains($"{decade}0er")) {
+                        temp = new MenuItem { Header = $"Saisons {decade}0er..." };
+                        Menu_CreditNote.Items.Add(temp);
+                    }
+                    temp?.Items.Add(i1);
+                } else {
                    Menu_CreditNote.Items.Add(i1);
                }
+            }
+            temp = null;

            await RefreshList();

@@ -360,21 +391,7 @@ namespace Elwig.Windows {
            if (d.ShowDialog() == true) {
                Mouse.OverrideCursor = Cursors.AppStarting;
                try {
-                    using (var ctx = new AppDbContext()) {
-                        var l = (await ctx.Members.FindAsync(m.MgNr))!;
-                        if (d.DeletePaymentData) {
-                            ctx.RemoveRange(l.Credits);
-                        }
-                        if (d.DeleteDeliveries) {
-                            ctx.RemoveRange(l.Deliveries);
-                        }
-                        if (d.DeleteAreaComs) {
-                            ctx.RemoveRange(l.AreaCommitments);
-                        }
-                        ctx.Remove(l);
-                        await ctx.SaveChangesAsync();
-                    }
-                    App.HintContextChange();
+                    await MemberService.DeleteMember(m.MgNr, d.DeletePaymentData, d.DeleteDeliveries, d.DeleteAreaComs);
                } catch (Exception exc) {
                    var str = "Der Eintrag konnte nicht in der Datenbank aktualisiert werden!\n\n" + exc.Message;
                    if (exc.InnerException != null) str += "\n\n" + exc.InnerException.Message;
--- a/Elwig/Windows/PaymentVariantsWindow.xaml
+++ b/Elwig/Windows/PaymentVariantsWindow.xaml
@@ -56,21 +56,45 @@
        <Menu Grid.ColumnSpan="2" BorderThickness="0,0,0,1" BorderBrush="LightGray" Background="White">
            <MenuItem Header="Variantendaten">
                <MenuItem x:Name="Menu_SummaryShow" Header="...anzeigen (PDF)" IsEnabled="False"
-                          Click="Menu_SummaryShow_Click" InputGestureText="Strg+P"/>
+                          Click="Menu_SummaryShow_Click" InputGestureText="Strg+P">
+                    <MenuItem.Icon>
+                        <TextBlock FontFamily="Segoe MDL2 Assets" FontSize="16" Text="&#xE8FF;"/>
+                    </MenuItem.Icon>
+                </MenuItem>
                <MenuItem x:Name="Menu_SummarySave" Header="...speichern... (PDF)" IsEnabled="False"
-                          Click="Menu_SummarySave_Click"/>
+                          Click="Menu_SummarySave_Click">
+                    <MenuItem.Icon>
+                        <TextBlock FontFamily="Segoe MDL2 Assets" FontSize="16" Text="&#xEA90;"/>
+                    </MenuItem.Icon>
+                </MenuItem>
                <MenuItem x:Name="Menu_SummaryExport" Header="...speichern... (Excel)" IsEnabled="False"
-                          Click="Menu_SummaryExport_Click"/>
+                          Click="Menu_SummaryExport_Click">
+                    <MenuItem.Icon>
+                        <TextBlock FontFamily="Segoe MDL2 Assets" FontSize="16" Text="&#xE9F9;"/>
+                    </MenuItem.Icon>
+                </MenuItem>
                <MenuItem x:Name="Menu_SummaryPrint" Header="...drucken" IsEnabled="False"
-                          Click="Menu_SummaryPrint_Click" InputGestureText="Strg+Shift+P"/>
+                          Click="Menu_SummaryPrint_Click" InputGestureText="Strg+Shift+P">
+                    <MenuItem.Icon>
+                        <TextBlock FontFamily="Segoe MDL2 Assets" FontSize="16" Text="&#xE749;"/>
+                    </MenuItem.Icon>
+                </MenuItem>
            </MenuItem>
            <MenuItem Header="Buchungsliste">
                <MenuItem x:Name="Menu_ExportSave" Header="...speichern... (Excel)" IsEnabled="False"
-                          Click="Menu_ExportSave_Click" InputGestureText="Strg+L"/>
+                          Click="Menu_ExportSave_Click" InputGestureText="Strg+L">
+                    <MenuItem.Icon>
+                        <TextBlock FontFamily="Segoe MDL2 Assets" FontSize="16" Text="&#xE9F9;"/>
+                    </MenuItem.Icon>
+                </MenuItem>
            </MenuItem>
            <MenuItem Header="Überweisungsdaten">
                <MenuItem x:Name="Menu_EbicsSave" Header="...exportieren... (EBICS)" IsEnabled="False"
-                          Click="Menu_EbicsSave_Click" InputGestureText="Strg+Ü"/>
+                          Click="Menu_EbicsSave_Click" InputGestureText="Strg+Ü">
+                    <MenuItem.Icon>
+                        <TextBlock FontFamily="Segoe MDL2 Assets" FontSize="16" Text="&#xE792;"/>
+                    </MenuItem.Icon>
+                </MenuItem>
            </MenuItem>
        </Menu>

@@ -116,8 +140,9 @@
            <TextBox x:Name="CommentInput" Grid.Column="1" HorizontalAlignment="Stretch" Margin="0,40,10,0"
                     TextChanged="CommentInput_TextChanged"/>

-            <Label Content="Erstellt am:" Margin="10,70,0,0" Grid.Column="0"/>
-            <TextBox x:Name="DateInput" Grid.Column="1" Width="77" HorizontalAlignment="Left" Margin="0,70,10,0" IsReadOnly="True"/>
+            <Label Content="Datum:" Margin="10,70,0,0" Grid.Column="0"/>
+            <TextBox x:Name="DateInput" Grid.Column="1" Width="77" HorizontalAlignment="Left" Margin="0,70,10,0"
+                     TextChanged="DateInput_TextChanged"/>

            <Label Content="Überwiesen am:" Margin="10,100,0,0" Grid.Column="0"/>
            <TextBox x:Name="TransferDateInput" Grid.Column="1" Width="77" HorizontalAlignment="Left" Margin="0,100,10,0"
@@ -215,10 +240,16 @@
                        Click="SaveButton_Click"/>
            </Grid>

-            <Button x:Name="MailButton" Content="Traubengutschriften"
-                    FontSize="14" Width="160" Margin="10,10,10,10" Height="27" IsEnabled="False"
+            <Button x:Name="MailButton"
+                    FontSize="14" Width="180" Margin="10,10,10,10" Height="30" IsEnabled="False"
                    Click="MailButton_Click"
-                    VerticalAlignment="Bottom" HorizontalAlignment="Right" Grid.Column="1"/>
+                    VerticalAlignment="Bottom" HorizontalAlignment="Right" HorizontalContentAlignment="Stretch" Grid.Column="1">
+                <Grid>
+                    <TextBlock FontFamily="Segoe MDL2 Assets" FontSize="16" Text="&#xE715;"
+                               TextAlignment="Left" HorizontalAlignment="Left" Padding="0,1.5,0,0" Margin="0,0,10,0"/>
+                    <TextBlock Margin="18,0,0,0" TextAlignment="Center">Traubengutschriften</TextBlock>
+                </Grid>
+            </Button>
        </Grid>

        <StatusBar Grid.Row="2" Grid.ColumnSpan="2" BorderThickness="0,1,0,0" BorderBrush="Gray">
--- a/Elwig/Windows/PaymentVariantsWindow.xaml.cs
+++ b/Elwig/Windows/PaymentVariantsWindow.xaml.cs
@@ -19,7 +19,7 @@ namespace Elwig.Windows {

        public readonly int Year;
        public readonly bool SeasonLocked;
-        private bool DataValid, DataChanged, NameChanged, CommentChanged, TransferDateValid, TransferDateChanged;
+        private bool DataValid, DataChanged, NameChanged, CommentChanged, DateValid, DateChanged, TransferDateValid, TransferDateChanged;
        private BillingData? BillingData;
        private bool WeightModifierChanged = false;

@@ -175,6 +175,7 @@ namespace Elwig.Windows {
        private void UpdateSaveButton() {
            SaveButton.IsEnabled = PaymentVariantList.SelectedItem != null &&
                ((DataChanged && DataValid) || NameChanged || CommentChanged ||
+                (DateChanged && DateValid) ||
                (TransferDateChanged && TransferDateValid) ||
                (ConsiderModifiersInput.IsChecked != BillingData?.ConsiderDelieryModifiers) ||
                (ConsiderPenaltiesInput.IsChecked != BillingData?.ConsiderContractPenalties) ||
@@ -433,10 +434,16 @@ namespace Elwig.Windows {

            var withoutIban = v.Credits.Count(c => c.Member.Iban == null);
            if (withoutIban > 0) {
-                var r = MessageBox.Show($"Achtung: Für {withoutIban} Mitglieder ist kein IBAN hinterlegt.\nDiese werden NICHT exportiert.",
+                var r = MessageBox.Show($"Achtung: Für {withoutIban:N0} Mitglieder ist kein IBAN hinterlegt.\n\nDiese werden NICHT exportiert.",
                    "Mitglieder ohne IBAN", MessageBoxButton.OKCancel, MessageBoxImage.Warning, MessageBoxResult.Cancel);
                if (r != MessageBoxResult.OK) return;
            }
+            var withNegAmount = v.Credits.Count(c => c.Amount <= 0);
+            if (withNegAmount > 0) {
+                var r = MessageBox.Show($"Achtung: Es gibt {withNegAmount:N0} Traubengutschriften mit negativem Betrag.\n\nDiese werden NICHT exportiert.",
+                    "Traubengutschriften mit negativem Betrag", MessageBoxButton.OKCancel, MessageBoxImage.Warning, MessageBoxResult.OK);
+                if (r != MessageBoxResult.OK) return;
+            }

            var d = new SaveFileDialog() {
                FileName = $"{App.Client.NameToken}-Überweisungsdaten-{v.Year}-{v.Name.Trim().Replace(' ', '-')}.{Ebics.FileExtension}",
@@ -489,6 +496,7 @@ namespace Elwig.Windows {
            try {
                v.Name = NameInput.Text;
                v.Comment = (CommentInput.Text != "") ? CommentInput.Text : null;
+                v.DateString = string.Join("-", DateInput.Text.Split(".").Reverse());
                v.TransferDateString = (TransferDateInput.Text != "") ? string.Join("-", TransferDateInput.Text.Split(".").Reverse()) : null;
                var d = App.Config.Debug ? BillingData.FromJson(DataInput.Text) : BillingData;
                d.ConsiderDelieryModifiers = ConsiderModifiersInput.IsChecked ?? false;
@@ -557,6 +565,27 @@ namespace Elwig.Windows {
            UpdateSaveButton();
        }

+        private void DateInput_TextChanged(object sender, TextChangedEventArgs evt) {
+            if (PaymentVariantList.SelectedItem is not PaymentVar v) {
+                ControlUtils.ClearInputState(DateInput);
+                return;
+            }
+            var res = Validator.CheckDate(DateInput, true);
+            if (!res.IsValid) {
+                ControlUtils.SetInputInvalid(DateInput);
+                DateValid = false;
+            } else if (DateInput.Text != $"{v.Date:dd.MM.yyyy}") {
+                ControlUtils.SetInputChanged(DateInput);
+                DateValid = true;
+                DateChanged = true;
+            } else {
+                ControlUtils.ClearInputState(DateInput);
+                DateValid = true;
+                DateChanged = false;
+            }
+            UpdateSaveButton();
+        }
+
        private void TransferDateInput_TextChanged(object sender, TextChangedEventArgs evt) {
            if (PaymentVariantList.SelectedItem is not PaymentVar v) {
                ControlUtils.ClearInputState(TransferDateInput);
--- a/Setup/Setup.wixproj
+++ b/Setup/Setup.wixproj
@@ -13,7 +13,7 @@
  </Target>
  <ItemGroup>
    <ProjectReference Include="..\Installer\Installer.wixproj" />
-    <PackageReference Include="WixToolset.Bal.wixext" Version="5.0.1" />
-    <PackageReference Include="WixToolset.Util.wixext" Version="5.0.1" />
+    <PackageReference Include="WixToolset.Bal.wixext" Version="5.0.2" />
+    <PackageReference Include="WixToolset.Util.wixext" Version="5.0.2" />
  </ItemGroup>
 </Project>
--- a/Tests/DatabaseSetup.cs
+++ b/Tests/DatabaseSetup.cs
@@ -30,6 +30,11 @@ namespace Tests {
            await BillingData.Init();
        }

+        [OneTimeSetUp]
+        public void Setup_4_Culture() {
+            Utils.OverrideCulture();
+        }
+
        [OneTimeTearDown]
        public async Task TeardownDatabase() {
            AppDbContext.ConnectionStringOverride = null;
--- a/Tests/DocumentTests/CreditNoteTest.cs
+++ b/Tests/DocumentTests/CreditNoteTest.cs
@@ -29,9 +29,10 @@ namespace Tests.DocumentTests {
                Assert.That(text, Contains.Substring("AT81 1234 5678 9012 3457"));
                Assert.That(text, Contains.Substring("""
                    20201001X001 1 Grüner Veltliner 73 15,0 ungeb.: 3 219 0,5000 - - 1 609,50
-                    20201001X003 1 Grüner Veltliner 75 15,4 ungeb.: 2 561 - -
-                    20201001X003 2 Grüner Veltliner Kabinett 87 17,6 ungeb.: 3 129 - -
-                    20201001X003 3 Grüner Veltliner 79 16,1 ungeb.: 1 280 - -
+                    20201001X003 1 Grüner Veltliner abgew. 75 15,4 ungeb.: 2 561 - -
+                    20201001X003 2 Grüner Veltliner Kabinett / abgew.
+                    87 17,6 ungeb.: 3 129 - -
+                    20201001X003 3 Grüner Veltliner abgew. 79 16,1 ungeb.: 1 280 - -
                    20201001X005 1 Welschriesling 84 17,0 ungeb.: 3 192 - -
                    20201001X005 2 Welschriesling 84 17,1 ungeb.: 2 190 - -
                    """));
--- a/Tests/DocumentTests/DeliveryConfirmationTest.cs
+++ b/Tests/DocumentTests/DeliveryConfirmationTest.cs
@@ -24,10 +24,10 @@ namespace Tests.DocumentTests {
                Assert.That(text, Contains.Substring($"Wolkersdorf, am {Elwig.Helpers.Utils.Today:dd.MM.yyyy}"));
                Assert.That(text, Contains.Substring("Anlieferungsbestätigung 2020"));
                Assert.That(text, Contains.Substring("""
-                    20201001X003 2 Grüner Veltliner Kabinett Kabinett 87 17,6 ungeb.: 3 129 3 129 ☑
-                    20201001X003 3 Grüner Veltliner Qualitätswein 79 16,1 ungeb.: 1 280 1 280 ☑
-                    20201001X003 1 Grüner Veltliner Qualitätswein 75 15,4 ungeb.: 2 561 2 561 ☑
                    20201001X001 1 Grüner Veltliner Qualitätswein 73 15,0 ungeb.: 3 219 3 219 ☑
+                    20201001X003 2 Grüner Veltliner Kabinett Wein 87 17,6 ungeb.: 3 129 3 129 ☑
+                    20201001X003 3 Grüner Veltliner Wein 79 16,1 ungeb.: 1 280 1 280 ☑
+                    20201001X003 1 Grüner Veltliner Wein 75 15,4 ungeb.: 2 561 2 561 ☑
                    20201001X005 2 Welschriesling Kabinett 84 17,1 ungeb.: 2 190 2 190 ☑
                    20201001X005 1 Welschriesling Kabinett 84 17,0 ungeb.: 3 192 3 192 ☑
                    """));
--- a/Tests/DocumentTests/DeliveryDepreciationListTest.cs
+++ b/Tests/DocumentTests/DeliveryDepreciationListTest.cs
@@ -0,0 +1,32 @@
+using Elwig.Documents;
+using Elwig.Helpers;
+using Elwig.Models.Dtos;
+
+namespace Tests.DocumentTests {
+    [TestFixture]
+    public class DeliveryDepreciationListTest {
+
+        [Test]
+        public async Task Test_01_DepreciatedDeliveries2020() {
+            using var ctx = new AppDbContext();
+            var data = await DeliveryJournalData.FromQuery(ctx.Deliveries.Where(d => d.Year == 2020).SelectMany(d => d.Parts).Where(d => d.QualId == "WEI"), ["Saison 2020"]);
+            using var doc = new DeliveryDepreciationList("Saison 2020", data);
+            var text = await Utils.GeneratePdfText(doc, true);
+            var table = Utils.ExtractTable(text);
+            Assert.Multiple(() => {
+                Assert.That(text, Contains.Substring("Abwertungsliste"));
+                Assert.That(text, Contains.Substring("Saison 2020"));
+                Assert.That(table, Is.EqualTo(new string[][] {
+                    ["101, MUSTERMANN Max",             "Teil-Lfrg.:", "3",             "81", "16,5",  "6 970"],
+                    ["20201001X003 1 01.10.2020 10:24", "Grüner Veltliner",             "75", "15,4",  "2 561"],
+                    ["20201001X003 2 01.10.2020 10:24", "Grüner Veltliner", "Kabinett", "87", "17,6",  "3 129"],
+                    ["20201001X003 3 01.10.2020 10:24", "Grüner Veltliner",             "79", "16,1",  "1 280"],
+                    ["103, MUSTERBAUER Matthäus",       "Teil-Lfrg.:", "2",             "79", "16,2",  "6 099"],
+                    ["20201002X001 1 02.10.2020 09:13", "Grüner Veltliner", "Bio",      "80", "16,3",  "3 198"],
+                    ["20201002X002 1 02.10.2020 09:28", "Grüner Veltliner", "Bio",      "78", "16,0",  "2 901"],
+                    ["Gesamt:",      "(Teil-)Lieferungen: 3 (5)",                       "80", "16,3", "13 069"],
+                }));
+            });
+        }
+    }
+}
--- a/Tests/DocumentTests/DeliveryNoteTest.cs
+++ b/Tests/DocumentTests/DeliveryNoteTest.cs
@@ -84,20 +84,20 @@ namespace Tests.DocumentTests {
                Assert.That(text, Contains.Substring("Traubenübernahmeschein Nr. 20201001X003"));
                Assert.That(text, Contains.Substring("Das Mitglied erklärt, dass die gelieferte Ware dem österreichischen Weingesetz entspricht"));
                Assert.That(text, Contains.Substring("""
-                    1 Grüner Veltliner Qualitätswein 75 15,4 2 561
-                    Herkunft: Österreich / Weinland / Niederösterreich
+                    1 Grüner Veltliner Wein 75 15,4 2 561
+                    Herkunft: Österreich
                    / Matzner Hügel / Hohenruppersdorf / KG Hohenruppersdorf
                    Waage: ?, ID: ? (gerebelt gewogen)
                    """));
                Assert.That(text, Contains.Substring("""
-                    2 Grüner Veltliner Kabinett Kabinett 87 17,6 3 129
-                    Herkunft: Österreich / Weinland / Niederösterreich
+                    2 Grüner Veltliner Kabinett Wein 87 17,6 3 129
+                    Herkunft: Österreich
                    / Matzner Hügel / Hohenruppersdorf / KG Hohenruppersdorf
                    Waage: ?, ID: ? (gerebelt gewogen)
                    """));
                Assert.That(text, Contains.Substring("""
-                    3 Grüner Veltliner Qualitätswein 79 16,1 1 280
-                    Herkunft: Österreich / Weinland / Niederösterreich
+                    3 Grüner Veltliner Wein 79 16,1 1 280
+                    Herkunft: Österreich
                    / Matzner Hügel / Hohenruppersdorf / KG Hohenruppersdorf
                    Waage: ?, ID: ? (gerebelt gewogen)
                    """));
@@ -123,9 +123,9 @@ namespace Tests.DocumentTests {
                Assert.That(text, Contains.Substring("Traubenübernahmeschein Nr. 20201002X001"));
                Assert.That(text, Contains.Substring("Das Mitglied erklärt, dass die gelieferte Ware dem österreichischen Weingesetz entspricht"));
                Assert.That(text, Contains.Substring("""
-                    1 Grüner Veltliner Qualitätswein 80 16,3 3 198
+                    1 Grüner Veltliner Wein 80 16,3 3 198
                    Bewirtschaftung: Bio (AT-BIO-302)
-                    Herkunft: Österreich / Weinland / Niederösterreich
+                    Herkunft: Österreich
                    / Wolkersdorfer Hochleithen / Wolkersdorf im Weinviertel / KG Wolkersdorf
                    Waage: ?, ID: ? (gerebelt gewogen)
                    """));
--- a/Tests/DocumentTests/WineQualityStatisticsTest.cs
+++ b/Tests/DocumentTests/WineQualityStatisticsTest.cs
@@ -16,14 +16,19 @@ namespace Tests.DocumentTests {
                Assert.That(text, Contains.Substring("Qualitätsstatistik"));
                Assert.That(text, Contains.Substring("Saison 2020"));
                Assert.That(text, Contains.Substring("""
-                    Qualitätswein
-                    73 2 4 431
-                    74 2 4 203
-                    75 3 5 176
-                    77 1 842
+                    Wein
+                    75 1 2 561
                    78 1 2 901
                    79 1 1 280
                    80 1 3 198
+                    87 1 3 129
+                    """));
+                Assert.That(text, Contains.Substring("""
+                    Qualitätswein
+                    73 2 4 431
+                    74 2 4 203
+                    75 2 2 615
+                    77 1 842
                    82 1 4 002
                    """));
                Assert.That(text, Contains.Substring("""
@@ -31,14 +36,14 @@ namespace Tests.DocumentTests {
                    84 3 8 960
                    85 3 11 181
                    86 1 2 987
-                    87 2 5 002
+                    87 1 1 873
                    89 2 4 723
                    """));
                Assert.That(text, Contains.Substring(
+                    "80 5 " + "13 069 " +
                    "- 0 0 " +
-                    "- 0 0 " +
-                    "77 12 " + "26 033 " +
-                    "86 11 " + "32 853"));
+                    "77 5 " + "11 568 " +
+                    "85 6 " + "17 561"));
            });
        }
    }
--- a/Tests/HelperTests/BillingDataTest.cs
+++ b/Tests/HelperTests/BillingDataTest.cs
@@ -1,6 +1,5 @@
 using Elwig.Helpers;
 using Elwig.Helpers.Billing;
-using Elwig.Models.Entities;
 using System.Text.Json;

 namespace Tests.HelperTests {
@@ -516,7 +515,7 @@ namespace Tests.HelperTests {
                }, null), GetSelection(["GV/K-", "ZW/K-"])),
                new GraphEntry(2, 4, new BillingData.Curve(BillingData.CurveMode.Oe, new() {
                    [73] = 0.75m,
-                }, null), GetSelection(["WR/-", "BL/-", "RR/-", "FV/-"])),
+                }, null), GetSelection(["WR/-", "BL/-", "RR/-", "FV/-", "GV/-"])),
                new GraphEntry(4, 4, new BillingData.Curve(BillingData.CurveMode.Oe, new() {
                    [73] = 0.65m,
                    [84] = 1.2m
@@ -564,7 +563,7 @@ namespace Tests.HelperTests {
                }, null), GetSelection(["GV/-B", "ZW/-B"])),
                new GraphEntry(2, 4, new BillingData.Curve(BillingData.CurveMode.Oe, new() {
                    [73] = 0.75m,
-                }, null), GetSelection(["WR/-", "BL/-", "RR/-", "FV/-"])),
+                }, null), GetSelection(["WR/-", "BL/-", "RR/-", "FV/-", "GV/-"])),
                new GraphEntry(4, 4, new BillingData.Curve(BillingData.CurveMode.Oe, new() {
                    [73] = 0.65m,
                    [84] = 1.2m
@@ -653,7 +652,7 @@ namespace Tests.HelperTests {
                }, null), GetSelection(["BP/-B", "ZW/-B", "FV/-B"])),
                 new GraphEntry(2, 4, new BillingData.Curve(BillingData.CurveMode.Oe, new() {
                    [73] = 0.8m,
-                }, null), GetSelection(["BP/-", "ZW/-", "FV/-", "WR/-", "BL/-"])),
+                }, null), GetSelection(["BP/-", "ZW/-", "FV/-", "WR/-", "BL/-", "RR/-"])),
            ];
            var data = BillingData.FromGraphEntries(entries);
            Assert.That(data.ToJsonString(JsonOpts), Is.EqualTo("""
@@ -711,5 +710,329 @@ namespace Tests.HelperTests {
                }
                """));
        }
+
+        [Test]
+        public void TestWrite_10_QualityLevel() {
+            List<GraphEntry> entries = [
+                new GraphEntry(0, 4, new BillingData.Curve(BillingData.CurveMode.Oe, new() {
+                    [73] = 0.1m,
+                }, null), GetSelection(["GV/-"])),
+                new GraphEntry(1, 4, new BillingData.Curve(BillingData.CurveMode.Oe, new() {
+                    [73] = 0.2m,
+                }, null), GetSelection(["ZW/-"]))
+            ];
+            entries[0].Abgewertet = true;
+            var data = BillingData.FromGraphEntries(entries);
+            Assert.That(data.ToJsonString(JsonOpts), Is.EqualTo("""
+                {
+                  "mode": "elwig",
+                  "version": 1,
+                  "payment": 0.2,
+                  "quality": {
+                    "WEI": 0.1
+                  },
+                  "curves": []
+                }
+                """));
+        }
+
+        [Test]
+        public void TestWrite_11_MixedCultivation_1() {
+            List<GraphEntry> entries = [
+                new GraphEntry(0, 4, new BillingData.Curve(BillingData.CurveMode.Oe, new() {
+                    [73] = 0.1m,
+                }, null), GetSelection(["GV/-", "WR/-"])),
+                new GraphEntry(1, 4, new BillingData.Curve(BillingData.CurveMode.Oe, new() {
+                    [73] = 0.2m,
+                }, null), GetSelection(["GV/-B"]))
+            ];
+            var data = BillingData.FromGraphEntries(entries);
+            Assert.That(data.ToJsonString(JsonOpts), Is.EqualTo("""
+                {
+                  "mode": "elwig",
+                  "version": 1,
+                  "payment": {
+                    "default": 0.1,
+                    "GV-B": 0.2
+                  },
+                  "curves": []
+                }
+                """));
+        }
+
+        [Test]
+        public void TestWrite_12_MixedCultivation_2() {
+            List<GraphEntry> entries = [
+                new GraphEntry(0, 4, new BillingData.Curve(BillingData.CurveMode.Oe, new() {
+                    [73] = 0.1m,
+                }, null), GetSelection(["GV/-", "ZW/-", "WR/-", "FV/-", "RR/-"])),
+                new GraphEntry(1, 4, new BillingData.Curve(BillingData.CurveMode.Oe, new() {
+                    [73] = 0.2m,
+                }, null), GetSelection(["GV/-B", "FV/-B"])),
+                new GraphEntry(2, 4, new BillingData.Curve(BillingData.CurveMode.Oe, new() {
+                    [73] = 0.3m,
+                }, null), GetSelection(["ZW/-B", "WR/-B"]))
+            ];
+            var data = BillingData.FromGraphEntries(entries);
+            Assert.That(data.ToJsonString(JsonOpts), Is.EqualTo("""
+                {
+                  "mode": "elwig",
+                  "version": 1,
+                  "payment": {
+                    "default": 0.1,
+                    "GV-B": 0.2,
+                    "FV-B": 0.2,
+                    "ZW-B": 0.3,
+                    "WR-B": 0.3
+                  },
+                  "curves": []
+                }
+                """));
+        }
+
+        [Test]
+        public void TestWrite_13_DefaultCultivation_1() {
+            List<GraphEntry> entries = [
+                new GraphEntry(0, 4, new BillingData.Curve(BillingData.CurveMode.Oe, new() {
+                    [73] = 0.1m,
+                }, null), GetSelection(["GV/-", "GV/-B"])),
+                new GraphEntry(1, 4, new BillingData.Curve(BillingData.CurveMode.Oe, new() {
+                    [73] = 0.2m,
+                }, null), GetSelection(["WR/-B"]))
+            ];
+            var data = BillingData.FromGraphEntries(entries);
+            Assert.That(data.ToJsonString(JsonOpts), Is.EqualTo("""
+                {
+                  "mode": "elwig",
+                  "version": 1,
+                  "payment": {
+                    "default": 0.1,
+                    "WR-B": 0.2
+                  },
+                  "curves": []
+                }
+                """));
+        }
+
+        [Test]
+        public void TestWrite_14_DefaultCultivation_2() {
+            List<GraphEntry> entries = [
+                new GraphEntry(0, 4, new BillingData.Curve(BillingData.CurveMode.Oe, new() {
+                    [73] = 0.1m,
+                }, null), GetSelection(["GV/-", "GV/-B", "ZW/-"])),
+                new GraphEntry(1, 4, new BillingData.Curve(BillingData.CurveMode.Oe, new() {
+                    [73] = 0.2m,
+                }, null), GetSelection(["WR/-B", "ZW/-B"]))
+            ];
+            var data = BillingData.FromGraphEntries(entries);
+            Assert.That(data.ToJsonString(JsonOpts), Is.EqualTo("""
+                {
+                  "mode": "elwig",
+                  "version": 1,
+                  "payment": {
+                    "default": 0.1,
+                    "-B": 0.2,
+                    "GV-B": 0.1
+                  },
+                  "curves": []
+                }
+                """));
+        }
+
+        [Test]
+        public void TestWrite_15_DefaultCultivation_3() {
+            List<GraphEntry> entries = [
+                new GraphEntry(0, 4, new BillingData.Curve(BillingData.CurveMode.Oe, new() {
+                    [73] = 0.1m,
+                }, null), GetSelection(["GV/-", "GV/-B", "ZW/-"])),
+                new GraphEntry(1, 4, new BillingData.Curve(BillingData.CurveMode.Oe, new() {
+                    [73] = 0.2m,
+                }, null), GetSelection(["GV/S-", "GV/S-B", "ZW/S-"])),
+                new GraphEntry(2, 4, new BillingData.Curve(BillingData.CurveMode.Oe, new() {
+                    [73] = 0.3m,
+                }, null), GetSelection(["WR/S-B", "ZW/S-B"]))
+            ];
+            var data = BillingData.FromGraphEntries(entries);
+            Assert.That(data.ToJsonString(JsonOpts), Is.EqualTo("""
+                {
+                  "mode": "elwig",
+                  "version": 1,
+                  "payment": {
+                    "GV/S-B": 0.2,
+                    "/S": 0.2,
+                    "/S-B": 0.3,
+                    "GV": 0.1,
+                    "ZW": 0.1
+                  },
+                  "curves": []
+                }
+                """));
+        }
+
+
+        [Test]
+        public void TestWrite_16_DefaultCultivation_4() {
+            List<GraphEntry> entries = [
+                new GraphEntry(0, 4, new BillingData.Curve(BillingData.CurveMode.Oe, new() {
+                    [73] = 0.1m,
+                }, null), GetSelection(["GV/-", "RR/-B", "ZW/-"])),
+                new GraphEntry(1, 4, new BillingData.Curve(BillingData.CurveMode.Oe, new() {
+                    [73] = 0.2m,
+                }, null), GetSelection(["RR/-"]))
+            ];
+            var data = BillingData.FromGraphEntries(entries);
+            Assert.That(data.ToJsonString(JsonOpts), Is.EqualTo("""
+                {
+                  "mode": "elwig",
+                  "version": 1,
+                  "payment": {
+                    "default": 0.1,
+                    "RR-B": 0.1,
+                    "RR": 0.2
+                  },
+                  "curves": []
+                }
+                """));
+        }
+
+        [Test]
+        public void TestWrite_17_DefaultCultivation_5() {
+            List<GraphEntry> entries = [
+                new GraphEntry(0, 4, new BillingData.Curve(BillingData.CurveMode.Oe, new() {
+                    [73] = 0.1m,
+                }, null), GetSelection(["GV/-", "RR/-B", "ZW/-", "SW/-", "SO/-"])),
+                new GraphEntry(1, 4, new BillingData.Curve(BillingData.CurveMode.Oe, new() {
+                    [73] = 0.2m,
+                }, null), GetSelection(["GV/K-", "RR/K-B", "ZW/K-"])),
+                new GraphEntry(2, 4, new BillingData.Curve(BillingData.CurveMode.Oe, new() {
+                    [73] = 0.3m,
+                }, null), GetSelection(["RR/K-"]))
+            ];
+            var data = BillingData.FromGraphEntries(entries);
+            Assert.That(data.ToJsonString(JsonOpts), Is.EqualTo("""
+                {
+                  "mode": "elwig",
+                  "version": 1,
+                  "payment": {
+                    "RR/K-B": 0.2,
+                    "RR/K": 0.3,
+                    "default": 0.1,
+                    "/K": 0.2
+                  },
+                  "curves": []
+                }
+                """));
+        }
+
+        [Test]
+        public void TestWrite_18_DefaultAttribute_1() {
+            List<GraphEntry> entries = [
+                new GraphEntry(0, 4, new BillingData.Curve(BillingData.CurveMode.Oe, new() {
+                    [73] = 0.1m,
+                }, null), GetSelection(["GV/-", "GV/S-"])),
+                new GraphEntry(1, 4, new BillingData.Curve(BillingData.CurveMode.Oe, new() {
+                    [73] = 0.2m,
+                }, null), GetSelection(["WR/S-"]))
+            ];
+            var data = BillingData.FromGraphEntries(entries);
+            Assert.That(data.ToJsonString(JsonOpts), Is.EqualTo("""
+                {
+                  "mode": "elwig",
+                  "version": 1,
+                  "payment": {
+                    "WR/S": 0.2,
+                    "default": 0.1
+                  },
+                  "curves": []
+                }
+                """));
+        }
+
+        [Test]
+        public void TestWrite_19_DefaultAttribute_2() {
+            List<GraphEntry> entries = [
+                new GraphEntry(0, 4, new BillingData.Curve(BillingData.CurveMode.Oe, new() {
+                    [73] = 0.1m,
+                }, null), GetSelection(["GV/-", "GV/S-", "ZW/-"])),
+                new GraphEntry(1, 4, new BillingData.Curve(BillingData.CurveMode.Oe, new() {
+                    [73] = 0.2m,
+                }, null), GetSelection(["WR/S-", "ZW/S-"]))
+            ];
+            var data = BillingData.FromGraphEntries(entries);
+            Assert.That(data.ToJsonString(JsonOpts), Is.EqualTo("""
+                {
+                  "mode": "elwig",
+                  "version": 1,
+                  "payment": {
+                    "default": 0.1,
+                    "/S": 0.2,
+                    "GV/S": 0.1
+                  },
+                  "curves": []
+                }
+                """));
+        }
+
+        private static IEnumerable<List<T>> GetPermutations<T>(T[] input) {
+            if (input.Length <= 1)
+                yield return [..input];
+            for (int i = 0; i < input.Length; i++) {
+                yield return [input[i]];
+                foreach (var p in GetPermutations(input.Where((_, j) => j != i).ToArray())) {
+                    p.Insert(0, input[i]);
+                    yield return p;
+                }
+            }
+        }
+
+        private static IEnumerable<List<HashSet<RawVaribute>>> GetCurves(RawVaribute[] vaributes, int minNumCurves = 1, int maxNumCurves = 10) {
+            foreach (var p in GetPermutations(vaributes)) {
+                for (int nCurves = minNumCurves; nCurves <= Math.Min(maxNumCurves, p.Count); nCurves++) {
+                    yield return Enumerable.Range(0, nCurves)
+                        .Select(n => p.Where((v, idx) => idx % nCurves == n).ToHashSet())
+                        .ToList();
+                }
+            }
+        }
+
+        private readonly HashSet<string> TestedCurves = [];
+
+        private void TestCollapse(List<HashSet<RawVaribute>> curves) {
+            var str = string.Join("\n", curves.Select(c => string.Join("  ", c.Select(v => v.ToString().PadRight(6)).Order())).Order().Select((c, n) => $"{n + 1}: [ " + c + " ]"));
+            if (!TestedCurves.Add(str))
+                return;
+            var vaributes = curves.SelectMany(v => v).ToList();
+            List<GraphEntry> entries = curves
+                .Select((l, n) => new GraphEntry(n, 4, new BillingData.Curve(BillingData.CurveMode.Oe, new() {
+                    [73] = n + 1,
+                }, null), GetSelection(l.Select(v => v.ToString()))))
+                .ToList();
+            var data = BillingData.FromGraphEntries(entries);
+            var test = PaymentBillingData.FromJson(data.ToJsonString(), vaributes);
+            for (int i = 0; i < curves.Count; i++) {
+                foreach (var v in curves[i]) {
+                    var val = test.CalculatePrice(v.SortId!, v.AttrId, v.CultId, "QUW", false, 73.0, 15.0);
+                    var actualCurve = (int)val;
+                    Assert.That(actualCurve, Is.EqualTo(i + 1), $"Invalid: {v} (Curve {i + 1} -> {actualCurve})\n\n{str}\n\n{data.ToJsonString(JsonOpts)}\n");
+                }
+            }
+        }
+
+        [Test]
+        public void TestCollapse_01_Permutations() {
+            RawVaribute[][] configurations = [
+                [new("GV/-"), new("WR/-"), new("ZW/-"), new("GV/K-"), new("WR/K-"), new("ZW/K-")],
+                [new("GV/-"), new("WR/-"), new("GV/K-"), new("WR/K-"), new("GV/S-"), new("WR/S-")],
+                [new("GV/-"), new("WR/-"), new("ZW/-"), new("GV/-B"), new("WR/-B"), new("ZW/-B")],
+                [new("GV/-"), new("WR/-"), new("GV/-B"), new("WR/-B"), new("GV/-KIP"), new("WR/-KIP")],
+                [new("GV/-"), new("GV/K-"), new("ZW/-"), new("ZW/K-"), new("GV/-B"), new("GV/K-B"), new("ZW/-B"), new("ZW/K-B")],
+            ];
+            Assert.Multiple(() => {
+                foreach (var config in configurations) {
+                    foreach (var c in GetCurves(config))
+                        TestCollapse(c);
+                }
+            });
+        }
    }
 }
--- a/Tests/Resources/Sql/DocumentInsert.sql
+++ b/Tests/Resources/Sql/DocumentInsert.sql
@@ -43,17 +43,17 @@ INSERT INTO delivery_part (year, did, dpnr, sortid, attrid, cultid, weight, kmw,
 (2020,  1, 1, 'GV', NULL, NULL,  3219, 15.0, 'QUW', 'WLNO', 06109, TRUE, FALSE, FALSE,  '1', '{"id":"321","nr":321,"gross_weight":3219,"tare_weight":0,"net_weight":3219,"date":"2020-10-01","time":"09:02:46"}', NULL),
 (2020,  2, 1, 'GV',  'K', NULL,  2987, 17.5, 'KAB', 'WLNO', 06109, TRUE, FALSE, FALSE, NULL, NULL, NULL),
 (2020,  2, 2, 'GV',  'K', NULL,  1873, 17.7, 'KAB', 'WLNO', 06109, TRUE, FALSE, FALSE, NULL, NULL, NULL),
-(2020,  3, 1, 'GV', NULL, NULL,  2561, 15.4, 'QUW', 'WLNO', 06109, TRUE, FALSE, FALSE, NULL, NULL, NULL),
-(2020,  3, 2, 'GV',  'K', NULL,  3129, 17.6, 'KAB', 'WLNO', 06109, TRUE, FALSE, FALSE, NULL, NULL, NULL),
-(2020,  3, 3, 'GV', NULL, NULL,  1280, 16.1, 'QUW', 'WLNO', 06109, TRUE, FALSE, FALSE, NULL, NULL, NULL),
+(2020,  3, 1, 'GV', NULL, NULL,  2561, 15.4, 'WEI', 'OEST', 06109, TRUE, FALSE, FALSE, NULL, NULL, NULL),
+(2020,  3, 2, 'GV',  'K', NULL,  3129, 17.6, 'WEI', 'OEST', 06109, TRUE, FALSE, FALSE, NULL, NULL, NULL),
+(2020,  3, 3, 'GV', NULL, NULL,  1280, 16.1, 'WEI', 'OEST', 06109, TRUE, FALSE, FALSE, NULL, NULL, NULL),
 (2020,  4, 1, 'GV', NULL, NULL,  4002, 16.7, 'QUW', 'WLNO', 06109, TRUE, FALSE, FALSE, NULL, NULL, NULL),
 (2020,  4, 2, 'GV', NULL, NULL,   481, 15.3, 'QUW', 'WLNO', 06109, TRUE, FALSE, FALSE, NULL, NULL, NULL),
 (2020,  5, 1, 'WR', NULL, NULL,  3192, 17.0, 'KAB', 'WLNO', 06109, TRUE, FALSE, FALSE, NULL, NULL, NULL),
 (2020,  5, 2, 'WR', NULL, NULL,  2190, 17.1, 'KAB', 'WLNO', 06109, TRUE, FALSE, FALSE, NULL, NULL, NULL),
 (2020,  6, 1, 'GV', NULL,  'B',  1732, 15.2, 'QUW', 'WLNO', 06109, TRUE, FALSE, FALSE, NULL, NULL, NULL),
-(2020,  7, 1, 'GV', NULL,  'B',  3198, 16.3, 'QUW', 'WLNO', 15224, TRUE, FALSE, FALSE, NULL, NULL, NULL),
+(2020,  7, 1, 'GV', NULL,  'B',  3198, 16.3, 'WEI', 'OEST', 15224, TRUE, FALSE, FALSE, NULL, NULL, NULL),
 (2020,  7, 2, 'GV', NULL,  'B',  2134, 15.4, 'QUW', 'WLNO', 15224, TRUE, FALSE, FALSE, NULL, NULL, NULL),
-(2020,  8, 1, 'GV', NULL,  'B',  2901, 16.0, 'QUW', 'WLNO', 15224, TRUE, FALSE, FALSE, NULL, NULL, NULL),
+(2020,  8, 1, 'GV', NULL,  'B',  2901, 16.0, 'WEI', 'OEST', 15224, TRUE, FALSE, FALSE, NULL, NULL, NULL),
 (2020,  8, 2, 'GV', NULL,  'B',  3321, 17.3, 'KAB', 'WLNO', 15224, TRUE, FALSE, FALSE, NULL, NULL, NULL),
 (2020,  9, 1, 'WR', NULL,  'B',  3998, 17.2, 'KAB', 'WLNO', 15224, TRUE, FALSE, FALSE, NULL, NULL, NULL),
 (2020, 10, 1, 'ZW', NULL, NULL,  1212, 15.0, 'QUW', 'WLNO', 15224, TRUE, FALSE, FALSE, NULL, NULL, NULL),
--- a/Tests/Resources/Sql/Insert.sql
+++ b/Tests/Resources/Sql/Insert.sql
@@ -70,7 +70,7 @@ INSERT INTO member (mgnr, given_name, name, zwstid, volllieferant, buchführend,
 (101, 'Max',       'Mustermann',  'X', FALSE, FALSE, 40, 222303524, 'Winzerstraße 1',    06109, 'AT811234567890123457', '0123463',         NULL ),
 (102, 'Wernhardt', 'Weinbauer',   'X', FALSE, FALSE, 40, 222303524, 'Winzerstraße 2',    06109, 'AT541234567890123458', '0123471', 'ATU12345684'),
 (103, 'Matthäus',  'Musterbauer', 'X', FALSE, FALSE, 40, 212005138, 'Brünner Straße 10', 15224, 'AT271234567890123459', '0123480',         NULL ),
-(104, 'Waltraud',  'Winzer',      'X', FALSE, FALSE, 40, 212005138, 'Wiener Straße 15',  15224, 'AT971234567890123460', '0123498', 'ATU12345693');
+(104, 'Waltraud',  'Winzer',      'X', FALSE, TRUE , 40, 212005138, 'Wiener Straße 15',  15224, 'AT971234567890123460', '0123498', 'ATU12345693');

 INSERT INTO member_billing_address (mgnr, name, country, postal_dest, address) VALUES
 (102, 'W&B Weinbauer GesbR',          40, 222303524, 'Winzerstraße 2'),
--- a/Tests/Resources/Sql/ServiceDelete.sql
+++ b/Tests/Resources/Sql/ServiceDelete.sql
@@ -0,0 +1,11 @@
+-- deletes for ServiceTests
+
+DELETE FROM credit;
+DELETE FROM payment_variant;
+DELETE FROM delivery;
+DELETE FROM season;
+DELETE FROM area_commitment;
+DELETE FROM area_commitment_type;
+DELETE FROM member WHERE mgnr >= 200;
+DELETE FROM wine_cultivation;
+DELETE FROM wine_attribute;
--- a/Tests/Resources/Sql/ServiceInsert.sql
+++ b/Tests/Resources/Sql/ServiceInsert.sql
@@ -0,0 +1,135 @@
+-- inserts for ServiceTests
+
+
+INSERT INTO wine_cultivation (cultid, name, description) VALUES
+('B',   'Bio', 'AT-BIO-302');
+
+INSERT INTO wine_attribute (attrid, name, active, max_kg_per_ha, strict, fill_lower) VALUES
+('K', 'Kabinett',  TRUE, NULL, FALSE, 0);
+
+INSERT INTO member (mgnr, given_name, name, zwstid, volllieferant, buchführend, country, postal_dest, address, default_kgnr, iban, lfbis_nr, ustid_nr) VALUES
+(201, 'Theodor', 'Testbauer',  'X', FALSE, FALSE, 40, 222303524, 'Teststraße 1', 06109, 'AT811234567890123457', '0123463',         NULL ),
+(202, 'Thomas',  'Testmann',   'X', FALSE, FALSE, 40, 222303524, 'Teststraße 2', 06109, 'AT541234567890123458', '0123471', 'ATU12345684'),
+(203, 'Tina',    'Testwinzer', 'X', FALSE, FALSE, 40, 212005138, 'Teststraße 3', 15224, 'AT271234567890123459', '0123480',         NULL ),
+(204, 'Trude',   'Testerin',   'X', FALSE, TRUE , 40, 212005138, 'Teststraße 4', 15224, 'AT971234567890123460', '0123498', 'ATU12345693');
+
+INSERT INTO member_billing_address (mgnr, name, country, postal_dest, address) VALUES
+(202, 'T&T Testmann GesbR', 40, 222303524, 'Teststraße 11'),
+(203, 'Testwinzer GesbR',   40, 212005138, 'Teststraße 3' ),
+(204, 'Trauben Trude GmbH', 40, 212205137, 'Teststraße 12');
+
+INSERT INTO member_telephone_number (mgnr, nr, type, number, comment) VALUES
+(203, 1, 'mobile', '+43 664 987654321', NULL),
+(204, 1, 'mobile', '+43 664 123456789', NULL);
+
+INSERT INTO member_email_address (mgnr, nr, address, comment) VALUES
+(203, 1, 'tina@winzer.com',  NULL),
+(204, 1, 'trude@trauben.at', NULL);
+
+INSERT INTO area_commitment_type (vtrgid, sortid, attrid, disc, min_kg_per_ha, penalty_per_kg, penalty_amount, penalty_none) VALUES
+('GV', 'GV', NULL, NULL, 5000,  500,    NULL, NULL);
+
+INSERT INTO area_commitment (fbnr, mgnr, vtrgid, cultid, area, kgnr, gstnr, rdnr, year_from, year_to) VALUES
+( 1, 203, 'GV', NULL, 10000, 15224, '321/9', NULL, NULL, NULL),
+( 2, 204, 'GV', NULL, 10000, 15224, '123/1', NULL, 2000, 2019),
+( 3, 204, 'GV', NULL, 10000, 15224, '123/2', NULL, 2025, 2030),
+( 4, 204, 'GV', NULL, 10000, 15224, '123/3', NULL, 2021, 2031);
+
+
+INSERT INTO season (year, currency, min_kg_per_bs, max_kg_per_bs, penalty_per_kg, penalty_amount, penalty_none, start_date, end_date) VALUES
+(2021, 'EUR', 2000, 4000, NULL, NULL, NULL, NULL, NULL),
+(2022, 'EUR', 2000, 4000, NULL, NULL, NULL, NULL, NULL),
+(2023, 'EUR', 2000, 4000, NULL, NULL, NULL, NULL, NULL);
+
+INSERT INTO modifier (year, modid, ordering, name, abs, rel, active) VALUES
+(2021, 'S', 0, 'Geschädigte Trauben', NULL, -0.1, TRUE),
+(2022, 'S', 0, 'Geschädigte Trauben', NULL, -0.1, TRUE);
+
+INSERT INTO delivery (mgnr, year, did, date, time, zwstid, lnr) VALUES
+(203, 2021,  1, '2021-10-01', NULL, 'X', 1),
+(204, 2021,  2, '2021-10-01', NULL, 'X', 2),
+(101, 2022,  1, '2022-09-29', NULL, 'X', 1),
+(101, 2022,  2, '2022-09-30', NULL, 'X', 1),
+(101, 2023,  1, '2023-10-01', NULL, 'X', 1),
+(101, 2023,  2, '2023-10-01', NULL, 'X', 2),
+(101, 2023,  3, '2023-10-01', NULL, 'X', 3),
+(101, 2023,  4, '2023-10-01', NULL, 'X', 4),
+(101, 2023,  5, '2023-10-02', NULL, 'X', 1),
+(101, 2023,  6, '2023-10-03', NULL, 'X', 1),
+(101, 2023,  7, '2023-10-04', NULL, 'X', 1),
+(101, 2023,  8, '2023-10-05', NULL, 'X', 1),
+(101, 2023,  9, '2023-10-06', NULL, 'X', 1),
+(101, 2023, 10, '2023-10-06', NULL, 'X', 2),
+(101, 2023, 11, '2023-10-07', NULL, 'X', 1),
+(101, 2023, 12, '2023-10-07', NULL, 'X', 2),
+(101, 2023, 13, '2023-10-08', NULL, 'X', 1),
+(101, 2023, 14, '2023-10-08', NULL, 'X', 2),
+(101, 2023, 15, '2023-10-09', NULL, 'X', 1),
+(101, 2023, 16, '2023-10-09', NULL, 'X', 2),
+(101, 2023, 17, '2023-10-10', NULL, 'X', 1),
+(101, 2023, 18, '2023-10-10', NULL, 'X', 2),
+(101, 2023, 19, '2023-10-10', NULL, 'X', 3);
+
+INSERT INTO delivery_part (year, did, dpnr, sortid, attrid, cultid, weight, kmw, qualid, hkid, kgnr, net_weight, manual_weighing, spl_check, scale_id, weighing_data, weighing_reason) VALUES
+(2021,  1, 1, 'GV', NULL, NULL, 3500, 15.0, 'QUW', 'WLNO', 15224, TRUE, FALSE, FALSE, NULL, NULL, NULL),
+(2021,  2, 1, 'GV', NULL, NULL, 4000, 17.0, 'KAB', 'WLNO', 15224, TRUE, FALSE, FALSE, NULL, NULL, NULL),
+(2021,  2, 2, 'GV', NULL, NULL, 4000, 16.0, 'QUW', 'WLNO', 15224, TRUE, FALSE, FALSE, NULL, NULL, NULL),
+(2022,  1, 1, 'GV', NULL, NULL, 3700, 16.5, 'QUW', 'WLNO', 15224, TRUE, FALSE, FALSE, NULL, NULL, NULL),
+(2022,  1, 2, 'GV', NULL, NULL, 3700, 16.5, 'QUW', 'WLNO', 15224, TRUE, FALSE, FALSE, NULL, NULL, NULL),
+(2023,  1, 1, 'GV', NULL, NULL, 1000, 15.0, 'QUW', 'WLNO', 15224, TRUE, FALSE, FALSE, NULL, NULL, NULL),
+(2023,  1, 2, 'GV', NULL, NULL, 1000, 15.0, 'QUW', 'WLNO', 15224, TRUE, FALSE, FALSE, NULL, NULL, NULL),
+(2023,  1, 3, 'GV', NULL, NULL, 1000, 15.0, 'QUW', 'WLNO', 15224, TRUE, FALSE, FALSE, NULL, NULL, NULL),
+(2023,  2, 1, 'GV', NULL, NULL, 1000, 15.0, 'QUW', 'WLNO', 15224, TRUE, FALSE, FALSE, NULL, NULL, NULL),
+(2023,  2, 2, 'GV', NULL, NULL, 1000, 15.0, 'QUW', 'WLNO', 15224, TRUE, FALSE, FALSE, NULL, NULL, NULL),
+(2023,  2, 3, 'GV', NULL, NULL, 1000, 15.0, 'QUW', 'WLNO', 15224, TRUE, FALSE, FALSE, NULL, NULL, NULL),
+(2023,  3, 1, 'GV', NULL, NULL, 1000, 15.0, 'QUW', 'WLNO', 15224, TRUE, FALSE, FALSE, NULL, NULL, NULL),
+(2023,  3, 2, 'GV', NULL, NULL, 1000, 15.0, 'QUW', 'WLNO', 15224, TRUE, FALSE, FALSE, NULL, NULL, NULL),
+(2023,  3, 3, 'GV', NULL, NULL, 1000, 15.0, 'QUW', 'WLNO', 15224, TRUE, FALSE, FALSE, NULL, NULL, NULL),
+(2023,  4, 1, 'GV', NULL, NULL, 1000, 15.0, 'QUW', 'WLNO', 15224, TRUE, FALSE, FALSE, NULL, NULL, NULL),
+(2023,  4, 2, 'GV', NULL, NULL, 1000, 15.0, 'QUW', 'WLNO', 15224, TRUE, FALSE, FALSE, NULL, NULL, NULL),
+(2023,  4, 3, 'GV', NULL, NULL, 1000, 15.0, 'QUW', 'WLNO', 15224, TRUE, FALSE, FALSE, NULL, NULL, NULL),
+(2023,  5, 1, 'GV', NULL, NULL, 1000, 15.0, 'QUW', 'WLNO', 15224, TRUE, FALSE, FALSE, NULL, NULL, NULL),
+(2023,  5, 2, 'GV', NULL, NULL, 1000, 15.0, 'QUW', 'WLNO', 15224, TRUE, FALSE, FALSE, NULL, NULL, NULL),
+(2023,  5, 3, 'GV', NULL, NULL, 1000, 15.0, 'QUW', 'WLNO', 15224, TRUE, FALSE, FALSE, NULL, NULL, NULL),
+(2023,  6, 1, 'GV', NULL, NULL, 1000, 15.0, 'QUW', 'WLNO', 15224, TRUE, FALSE, FALSE, NULL, NULL, NULL),
+(2023,  6, 2, 'GV', NULL, NULL, 1000, 15.0, 'QUW', 'WLNO', 15224, TRUE, FALSE, FALSE, NULL, NULL, NULL),
+(2023,  6, 3, 'GV', NULL, NULL, 1000, 15.0, 'QUW', 'WLNO', 15224, TRUE, FALSE, FALSE, NULL, NULL, NULL),
+(2023,  7, 1, 'GV', NULL, NULL, 1000, 15.0, 'QUW', 'WLNO', 15224, TRUE, FALSE, FALSE, NULL, NULL, NULL),
+(2023,  7, 2, 'GV', NULL, NULL, 1000, 15.0, 'QUW', 'WLNO', 15224, TRUE, FALSE, FALSE, NULL, NULL, NULL),
+(2023,  7, 3, 'GV', NULL, NULL, 1000, 15.0, 'QUW', 'WLNO', 15224, TRUE, FALSE, FALSE, NULL, NULL, NULL),
+(2023,  8, 1, 'GV', NULL, NULL, 1000, 15.0, 'QUW', 'WLNO', 15224, TRUE, FALSE, FALSE, NULL, NULL, NULL),
+(2023,  8, 2, 'GV', NULL, NULL, 1000, 15.0, 'QUW', 'WLNO', 15224, TRUE, FALSE, FALSE, NULL, NULL, NULL),
+(2023,  8, 3, 'GV', NULL, NULL, 1000, 15.0, 'QUW', 'WLNO', 15224, TRUE, FALSE, FALSE, NULL, NULL, NULL),
+(2023,  9, 1, 'GV', NULL, NULL, 1000, 15.0, 'QUW', 'WLNO', 15224, TRUE, FALSE, FALSE, NULL, NULL, NULL),
+(2023,  9, 2, 'GV', NULL, NULL, 1000, 15.0, 'QUW', 'WLNO', 15224, TRUE, FALSE, FALSE, NULL, NULL, NULL),
+(2023,  9, 3, 'GV', NULL, NULL, 1000, 15.0, 'QUW', 'WLNO', 15224, TRUE, FALSE, FALSE, NULL, NULL, NULL),
+(2023, 10, 1, 'GV', NULL, NULL, 1000, 15.0, 'QUW', 'WLNO', 15224, TRUE, FALSE, FALSE, NULL, NULL, NULL),
+(2023, 11, 1, 'GV', NULL, NULL, 1000, 15.0, 'QUW', 'WLNO', 15224, TRUE, FALSE, FALSE, NULL, NULL, NULL),
+(2023, 11, 2, 'GV', NULL, NULL, 1000, 15.0, 'QUW', 'WLNO', 15224, TRUE, FALSE, FALSE, NULL, NULL, NULL),
+(2023, 11, 3, 'GV', NULL, NULL, 1000, 15.0, 'QUW', 'WLNO', 15224, TRUE, FALSE, FALSE, NULL, NULL, NULL),
+(2023, 12, 1, 'GV', NULL, NULL, 1000, 15.0, 'QUW', 'WLNO', 15224, TRUE, FALSE, FALSE, NULL, NULL, NULL),
+(2023, 13, 1, 'GV', NULL, NULL, 1000, 15.0, 'QUW', 'WLNO', 15224, TRUE, FALSE, FALSE, NULL, NULL, NULL),
+(2023, 13, 2, 'GV', NULL, NULL, 1000, 15.0, 'QUW', 'WLNO', 15224, TRUE, FALSE, FALSE, NULL, NULL, NULL),
+(2023, 13, 3, 'GV', NULL, NULL, 1000, 15.0, 'QUW', 'WLNO', 15224, TRUE, FALSE, FALSE, NULL, NULL, NULL),
+(2023, 14, 1, 'GV', NULL, NULL, 1000, 15.0, 'QUW', 'WLNO', 15224, TRUE, FALSE, FALSE, NULL, NULL, NULL),
+(2023, 15, 1, 'GV', NULL, NULL, 1000, 15.0, 'QUW', 'WLNO', 15224, TRUE, FALSE, FALSE, NULL, NULL, NULL),
+(2023, 15, 2, 'GV', NULL, NULL, 1000, 15.0, 'QUW', 'WLNO', 15224, TRUE, FALSE, FALSE, NULL, NULL, NULL),
+(2023, 15, 3, 'GV', NULL, NULL, 1000, 15.0, 'QUW', 'WLNO', 15224, TRUE, FALSE, FALSE, NULL, NULL, NULL),
+(2023, 16, 1, 'GV', NULL, NULL, 1000, 15.0, 'QUW', 'WLNO', 15224, TRUE, FALSE, FALSE, NULL, NULL, NULL),
+(2023, 17, 1, 'GV', NULL, NULL, 1000, 15.0, 'QUW', 'WLNO', 15224, TRUE, FALSE, FALSE, NULL, NULL, NULL),
+(2023, 18, 1, 'GV', NULL, NULL, 1000, 15.0, 'QUW', 'WLNO', 15224, TRUE, FALSE, FALSE, NULL, NULL, NULL),
+(2023, 19, 1, 'GV', NULL, NULL, 1000, 15.0, 'QUW', 'WLNO', 15224, TRUE, FALSE, FALSE, NULL, NULL, NULL);
+
+INSERT INTO delivery_part_modifier (year, did, dpnr, modid) VALUES
+(2021, 1, 1, 'S'),
+(2021, 2, 2, 'S'),
+(2022, 1, 2, 'S');
+
+INSERT INTO payment_variant (year, avnr, name, date, transfer_date, test_variant, calc_time, comment, data) VALUES
+(2021, 1, 'Probevariante', '2022-01-15', '2022-01-15', TRUE, NULL, NULL, '{"mode":"elwig","version":1,"payment":0.5,"curves":[]}');
+INSERT INTO payment_member (year, avnr, mgnr, net_amount) VALUES
+(2021, 1, 203, 10000000),
+(2021, 1, 204, 10000000);
+INSERT INTO credit (year, tgnr, mgnr, avnr, net_amount, prev_net_amount, vat, modifiers, prev_modifiers) VALUES
+(2021, 1, 203, 1, 10000000, 0, 0.1, 0, 0),
+(2021, 2, 204, 1, 10000000, 0, 0.1, 0, 0);
--- a/Tests/ServiceTests/DeliveryServiceTest.cs
+++ b/Tests/ServiceTests/DeliveryServiceTest.cs
@@ -0,0 +1,847 @@
+using Elwig.Helpers;
+using Elwig.Models.Entities;
+using Elwig.Services;
+using Elwig.ViewModels;
+using Microsoft.EntityFrameworkCore;
+
+namespace Tests.ServiceTests {
+    [TestFixture]
+    public class DeliveryServiceTest {
+
+        private static async Task InitViewModel(DeliveryAdminViewModel vm) {
+            using var ctx = new AppDbContext();
+            vm.MemberSource = await ctx.Members.ToListAsync();
+            vm.BranchSource = await ctx.Branches.ToListAsync();
+            vm.WineVarSource = await ctx.WineVarieties.ToListAsync();
+            List<object> attrs = (await ctx.WineAttributes.ToListAsync()).Cast<object>().ToList();
+            attrs.Insert(0, new NullItem());
+            vm.WineAttrSource = attrs;
+            List<object> cults = (await ctx.WineCultivations.ToListAsync()).Cast<object>().ToList();
+            cults.Insert(0, new NullItem());
+            vm.WineCultSource = cults;
+            vm.WineQualityLevelSource = await ctx.WineQualityLevels.ToListAsync();
+            vm.WineOriginSource = await ctx.WineOrigins.ToListAsync();
+            vm.WineKgSource = await ctx.Katastralgemeinden.ToListAsync();
+            vm.ModifiersSource = await ctx.Modifiers.Where(m => m.Year == 2022).ToListAsync();
+        }
+
+        private static async Task<Delivery?> GetDelivery(string lsnr) {
+            using var ctx = new AppDbContext();
+            return await ctx.Deliveries
+                .Where(d => d.LsNr == lsnr)
+                .Include(d => d.Parts)
+                .ThenInclude(p => p.PartModifiers)
+                .ThenInclude(m => m.Modifier)
+                .AsSplitQuery()
+                .FirstOrDefaultAsync();
+        }
+
+        private static DeliveryPart[] GetParts(Delivery d) {
+            return [.. d.Parts.OrderBy(p => p.DPNr)];
+        }
+
+        [Test]
+        public async Task TestCreate_01_Minimal() {
+            var vm = new DeliveryAdminViewModel();
+            await InitViewModel(vm);
+
+            vm.Date = "01.10.2022";
+            vm.Branch = vm.BranchSource.First();
+            vm.MgNr = 101;
+            vm.Member = vm.MemberSource.First(m => m.MgNr == vm.MgNr);
+            vm.SortId = "GV";
+            vm.WineVar = vm.WineVarSource.First(v => v.SortId == vm.SortId);
+            vm.GradationKmw = 15.0;
+            vm.GradationOe = 73;
+            vm.Weight = 1234;
+            vm.IsManualWeighing = true;
+            vm.IsNetWeight = false;
+            vm.WineQualityLevel = vm.WineQualityLevelSource.First(l => l.QualId == "QUW");
+            vm.WineOrigin = vm.WineOriginSource.First(o => o.HkId == "WLNO");
+
+            var p1 = await vm.UpdateDeliveryPart(2022, null, null, false, false, true);
+            Assert.That(p1.Delivery.LsNr, Is.EqualTo("20221001X001"));
+
+            var d = await GetDelivery("20221001X001");
+
+            Assert.That(d, Is.Not.Null);
+            Assert.That(d.Parts, Has.Count.EqualTo(1));
+            var p = d.Parts.First();
+            Assert.That(p, Is.Not.Null);
+            Assert.Multiple(() => {
+                Assert.That(d.LsNr, Is.EqualTo("20221001X001"));
+                Assert.That(d.Date, Is.EqualTo(new DateOnly(2022, 10, 1)));
+                Assert.That(d.ZwstId, Is.EqualTo("X"));
+                Assert.That(d.MgNr, Is.EqualTo(101));
+                Assert.That(p.SortId, Is.EqualTo("GV"));
+                Assert.That(p.AttrId, Is.Null);
+                Assert.That(p.CultId, Is.Null);
+                Assert.That(p.Kmw, Is.EqualTo(15.0));
+                Assert.That(p.Oe, Is.EqualTo(73));
+                Assert.That(p.QualId, Is.EqualTo("QUW"));
+                Assert.That(p.Weight, Is.EqualTo(1234));
+                Assert.That(p.IsNetWeight, Is.False);
+                Assert.That(p.IsManualWeighing, Is.True);
+                Assert.That(p.HkId, Is.EqualTo("WLNO"));
+            });
+
+            vm = new DeliveryAdminViewModel();
+            await InitViewModel(vm);
+            Assert.DoesNotThrow(() => {
+                vm.FillInputs(d);
+                vm.FillInputs(p);
+            });
+            Assert.Multiple(() => {
+                Assert.That(vm.LsNr, Is.EqualTo("20221001X001"));
+                Assert.That(vm.Date, Is.EqualTo("01.10.2022"));
+                Assert.That(vm.Branch?.ZwstId, Is.EqualTo("X"));
+                Assert.That(vm.MgNr, Is.EqualTo(101));
+                Assert.That(vm.SortId, Is.EqualTo("GV"));
+                Assert.That(vm.WineAttr?.AttrId, Is.Null);
+                Assert.That(vm.WineCult?.CultId, Is.Null);
+                Assert.That(vm.GradationKmw, Is.EqualTo(15.0));
+                Assert.That(vm.WineQualityLevel?.QualId, Is.EqualTo("QUW"));
+                Assert.That(vm.Weight, Is.EqualTo(1234));
+                Assert.That(vm.IsNetWeight, Is.False);
+                Assert.That(vm.IsManualWeighing, Is.True);
+                Assert.That(vm.WineOrigin?.HkId, Is.EqualTo("WLNO"));
+            });
+        }
+
+        [Test]
+        public async Task TestCreate_02_Advanced() {
+            var vm = new DeliveryAdminViewModel();
+            await InitViewModel(vm);
+
+            vm.Date = "02.10.2022";
+            vm.Branch = vm.BranchSource.First();
+            vm.MgNr = 102;
+            vm.Member = vm.MemberSource.First(m => m.MgNr == vm.MgNr);
+            vm.SortId = "ZW";
+            vm.WineVar = vm.WineVarSource.First(v => v.SortId == vm.SortId);
+            vm.WineAttr = vm.WineAttrSource.Skip(1).First() as WineAttr;
+            vm.WineCult = vm.WineCultSource.Skip(1).First() as WineCult;
+            vm.GradationKmw = 15.9;
+            vm.GradationOe = 78;
+            vm.Weight = 3456;
+            vm.IsManualWeighing = false;
+            vm.IsNetWeight = true;
+            vm.WeighingData = "{}";
+            vm.WineQualityLevel = vm.WineQualityLevelSource.First(l => l.QualId == "QUW");
+            vm.WineOrigin = vm.WineOriginSource.First(o => o.HkId == "WLNO");
+            vm.Modifiers.Add(vm.ModifiersSource.First());
+
+            var p1 = await vm.UpdateDeliveryPart(2022, null, null, false, false, true);
+            Assert.That(p1.Delivery.LsNr, Is.EqualTo("20221002X001"));
+
+            var d = await GetDelivery("20221002X001");
+
+            Assert.That(d, Is.Not.Null);
+            Assert.That(d.Parts, Has.Count.EqualTo(1));
+            var p = d.Parts.First();
+            Assert.That(p, Is.Not.Null);
+            Assert.Multiple(() => {
+                Assert.That(d.LsNr, Is.EqualTo("20221002X001"));
+                Assert.That(d.Date, Is.EqualTo(new DateOnly(2022, 10, 2)));
+                Assert.That(d.ZwstId, Is.EqualTo("X"));
+                Assert.That(d.MgNr, Is.EqualTo(102));
+                Assert.That(p.SortId, Is.EqualTo("ZW"));
+                Assert.That(p.AttrId, Is.Not.Null);
+                Assert.That(p.CultId, Is.Not.Null);
+                Assert.That(p.Kmw, Is.EqualTo(15.9));
+                Assert.That(p.Oe, Is.EqualTo(78));
+                Assert.That(p.QualId, Is.EqualTo("QUW"));
+                Assert.That(p.Weight, Is.EqualTo(3456));
+                Assert.That(p.IsNetWeight, Is.True);
+                Assert.That(p.IsManualWeighing, Is.False);
+                Assert.That(p.WeighingData, Is.EqualTo("{}"));
+                Assert.That(p.HkId, Is.EqualTo("WLNO"));
+                Assert.That(p.Modifiers.Count(), Is.EqualTo(1));
+            });
+
+            vm = new DeliveryAdminViewModel();
+            await InitViewModel(vm);
+            Assert.DoesNotThrow(() => {
+                vm.FillInputs(d);
+                vm.FillInputs(p);
+            });
+            Assert.Multiple(() => {
+                Assert.That(vm.LsNr, Is.EqualTo("20221002X001"));
+                Assert.That(vm.Date, Is.EqualTo("02.10.2022"));
+                Assert.That(vm.Branch?.ZwstId, Is.EqualTo("X"));
+                Assert.That(vm.MgNr, Is.EqualTo(102));
+                Assert.That(vm.SortId, Is.EqualTo("ZW"));
+                Assert.That(vm.WineAttr?.AttrId, Is.Not.Null);
+                Assert.That(vm.WineCult?.CultId, Is.Not.Null);
+                Assert.That(vm.GradationKmw, Is.EqualTo(15.9));
+                Assert.That(vm.WineQualityLevel?.QualId, Is.EqualTo("QUW"));
+                Assert.That(vm.Weight, Is.EqualTo(3456));
+                Assert.That(vm.IsNetWeight, Is.True);
+                Assert.That(vm.IsManualWeighing, Is.False);
+                Assert.That(vm.WeighingData, Is.EqualTo("{}"));
+                Assert.That(vm.WineOrigin?.HkId, Is.EqualTo("WLNO"));
+                Assert.That(vm.Modifiers, Has.Count.EqualTo(1));
+            });
+        }
+
+        [Test]
+        public async Task TestCreate_03_TwoParts() {
+            var vm = new DeliveryAdminViewModel();
+            await InitViewModel(vm);
+
+            vm.Date = "03.10.2022";
+            vm.Branch = vm.BranchSource.First();
+            vm.MgNr = 101;
+            vm.Member = vm.MemberSource.First(m => m.MgNr == vm.MgNr);
+            vm.SortId = "GV";
+            vm.WineVar = vm.WineVarSource.First(v => v.SortId == vm.SortId);
+            vm.GradationKmw = 15.0;
+            vm.GradationOe = 73;
+            vm.WineQualityLevel = vm.WineQualityLevelSource.First(l => l.QualId == "QUW");
+            vm.Weight = 1234;
+            vm.IsManualWeighing = true;
+            vm.IsNetWeight = true;
+            vm.WineOrigin = vm.WineOriginSource.First(o => o.HkId == "WLNO");
+            var p1 = await vm.UpdateDeliveryPart(2022, null, null, false, false, true);
+
+            Assert.That(p1.Delivery.LsNr, Is.EqualTo("20221003X001"));
+            vm.FillInputs(p1.Delivery);
+
+            vm.SortId = "WR";
+            vm.WineVar = vm.WineVarSource.First(v => v.SortId == vm.SortId);
+            vm.GradationKmw = 18.0;
+            vm.GradationOe = 89;
+            vm.WineQualityLevel = vm.WineQualityLevelSource.First(l => l.QualId == "KAB");
+            vm.Weight = 2345;
+            var p2 = await vm.UpdateDeliveryPart(p1.Year, p1.DId, null, false, false, true);
+
+            Assert.That(p2.Delivery.LsNr, Is.EqualTo("20221003X001"));
+
+            var d = await GetDelivery("20221003X001");
+
+            Assert.That(d, Is.Not.Null);
+            Assert.Multiple(() => {
+                Assert.That(d.Parts, Has.Count.EqualTo(2));
+                Assert.That(d.MgNr, Is.EqualTo(101));
+            });
+            var p = d.Parts.First();
+            Assert.That(p, Is.Not.Null);
+            Assert.Multiple(() => {
+                Assert.That(p.DPNr, Is.EqualTo(1));
+                Assert.That(p.SortId, Is.EqualTo("GV"));
+            });
+            p = d.Parts.Skip(1).First();
+            Assert.That(p, Is.Not.Null);
+            Assert.Multiple(() => {
+                Assert.That(p.DPNr, Is.EqualTo(2));
+                Assert.That(p.SortId, Is.EqualTo("WR"));
+            });
+        }
+
+        [Test]
+        public async Task TestCreate_04_ChangeMember() {
+            var vm = new DeliveryAdminViewModel();
+            await InitViewModel(vm);
+
+            vm.Date = "04.10.2022";
+            vm.Branch = vm.BranchSource.First();
+            vm.MgNr = 101;
+            vm.Member = vm.MemberSource.First(m => m.MgNr == vm.MgNr);
+            vm.SortId = "GV";
+            vm.WineVar = vm.WineVarSource.First(v => v.SortId == vm.SortId);
+            vm.GradationKmw = 15.0;
+            vm.GradationOe = 73;
+            vm.WineQualityLevel = vm.WineQualityLevelSource.First(l => l.QualId == "QUW");
+            vm.Weight = 1234;
+            vm.IsManualWeighing = true;
+            vm.IsNetWeight = true;
+            vm.WineOrigin = vm.WineOriginSource.First(o => o.HkId == "WLNO");
+            var p1 = await vm.UpdateDeliveryPart(2022, null, null, false, false, true);
+
+            Assert.That(p1.Delivery.LsNr, Is.EqualTo("20221004X001"));
+            vm.FillInputs(p1.Delivery);
+
+            vm.MgNr = 102;
+            vm.Member = vm.MemberSource.First(m => m.MgNr == vm.MgNr);
+            vm.SortId = "GV";
+            vm.WineVar = vm.WineVarSource.First(v => v.SortId == vm.SortId);
+            vm.GradationKmw = 15.0;
+            vm.GradationOe = 73;
+            vm.WineQualityLevel = vm.WineQualityLevelSource.First(l => l.QualId == "QUW");
+            vm.Weight = 1234;
+            vm.IsManualWeighing = true;
+            vm.IsNetWeight = true;
+            vm.WineOrigin = vm.WineOriginSource.First(o => o.HkId == "WLNO");
+
+            var p2 = await vm.UpdateDeliveryPart(p1.Year, p1.DId, null, false, false, true);
+
+            Assert.That(p2.Delivery.LsNr, Is.EqualTo("20221004X001"));
+
+            var d = await GetDelivery("20221004X001");
+
+            Assert.That(d, Is.Not.Null);
+            Assert.Multiple(() => {
+                Assert.That(d.Parts, Has.Count.EqualTo(2));
+                Assert.That(d.MgNr, Is.EqualTo(102));
+            });
+        }
+
+        [Test]
+        public async Task TestCreate_05_LNrChanged() {
+            var vm = new DeliveryAdminViewModel();
+            await InitViewModel(vm);
+
+            vm.Date = "29.09.2022";
+            vm.Branch = vm.BranchSource.First();
+            vm.LsNr = "20220929X001";  // "old" LNr, simulated change in DB
+            vm.MgNr = 101;
+            vm.Member = vm.MemberSource.First(m => m.MgNr == vm.MgNr);
+            vm.SortId = "GV";
+            vm.WineVar = vm.WineVarSource.First(v => v.SortId == vm.SortId);
+            vm.GradationKmw = 15.0;
+            vm.GradationOe = 73;
+            vm.WineQualityLevel = vm.WineQualityLevelSource.First(l => l.QualId == "QUW");
+            vm.Weight = 1234;
+            vm.IsManualWeighing = true;
+            vm.IsNetWeight = true;
+            vm.WineOrigin = vm.WineOriginSource.First(o => o.HkId == "WLNO");
+            var p1 = await vm.UpdateDeliveryPart(2022, null, null, false, false, true);
+
+            Assert.That(p1.Delivery.LsNr, Is.EqualTo("20220929X002"));
+
+            var d = GetDelivery("20220929X002");
+            Assert.That(d, Is.Not.Null);
+        }
+
+        [Test]
+        public async Task TestUpdate_01_Simple() {
+            var vm = new DeliveryAdminViewModel();
+            await InitViewModel(vm);
+
+            var d = await GetDelivery("20231010X001");
+            Assert.That(d, Is.Not.Null);
+            var p = d.Parts.First();
+            Assert.That(p, Is.Not.Null);
+            Assert.DoesNotThrow(() => {
+                vm.FillInputs(d);
+                vm.FillInputs(p);
+            });
+
+            vm.SortId = "WR";
+            vm.WineVar = vm.WineVarSource.First(v => v.SortId == vm.SortId);
+            vm.GradationKmw = 15.9;
+            vm.GradationOe = 79;
+
+            Assert.DoesNotThrowAsync(async () => await DeliveryService.UpdateDeliveryPart(vm, p.Year, p.DId, p.DPNr, false, false, true));
+
+            d = await GetDelivery("20231010X001");
+            Assert.That(d, Is.Not.Null);
+            p = d.Parts.First();
+            Assert.That(p, Is.Not.Null);
+
+            vm = new DeliveryAdminViewModel();
+            await InitViewModel(vm);
+            Assert.DoesNotThrow(() => {
+                vm.FillInputs(d);
+                vm.FillInputs(p);
+            });
+            Assert.Multiple(() => {
+                Assert.That(vm.SortId, Is.EqualTo("WR"));
+                Assert.That(vm.GradationKmw, Is.EqualTo(15.9));
+            });
+        }
+
+        [Test]
+        public async Task TestUpdate_02_Member() {
+            var vm = new DeliveryAdminViewModel();
+            await InitViewModel(vm);
+
+            var d = await GetDelivery("20231010X002");
+            Assert.That(d, Is.Not.Null);
+            var p = d.Parts.First();
+            Assert.That(p, Is.Not.Null);
+            Assert.DoesNotThrow(() => {
+                vm.FillInputs(d);
+                vm.FillInputs(p);
+            });
+            Assert.That(d.MgNr, Is.EqualTo(101));
+
+            vm.SortId = "GV";
+            vm.WineVar = vm.WineVarSource.First(v => v.SortId == vm.SortId);
+            vm.MgNr = 102;
+            vm.Member = vm.MemberSource.First(m => m.MgNr == vm.MgNr);
+
+            Assert.DoesNotThrowAsync(async () => await DeliveryService.UpdateDeliveryPart(vm, p.Year, p.DId, p.DPNr, false, false, true));
+
+            d = await GetDelivery("20231010X002");
+            Assert.That(d, Is.Not.Null);
+            Assert.That(d.MgNr, Is.EqualTo(102));
+        }
+
+        [Test]
+        public async Task TestUpdate_03_DateAndTime() {
+            var vm = new DeliveryAdminViewModel();
+            await InitViewModel(vm);
+
+            var d = await GetDelivery("20231015X001");
+            Assert.That(d, Is.Null);
+            d = await GetDelivery("20231010X003");
+            Assert.That(d, Is.Not.Null);
+            var p = d.Parts.First();
+            Assert.That(p, Is.Not.Null);
+            Assert.DoesNotThrow(() => {
+                vm.FillInputs(d);
+                vm.FillInputs(p);
+            });
+            Assert.That(d.MgNr, Is.EqualTo(101));
+
+            vm.SortId = "GV";
+            vm.WineVar = vm.WineVarSource.First(v => v.SortId == vm.SortId);
+            vm.Date = "15.10.2023";
+            vm.Time = "12:00";
+
+            Assert.DoesNotThrowAsync(async () => await DeliveryService.UpdateDeliveryPart(vm, p.Year, p.DId, p.DPNr, true, true, false));
+
+            d = await GetDelivery("20231010X003");
+            Assert.That(d, Is.Null);
+            d = await GetDelivery("20231015X001");
+            Assert.That(d, Is.Not.Null);
+        }
+
+        [Test]
+        public async Task TestSplit_01_Depreciate_One() {
+            var d = await GetDelivery("20231001X001");
+            Assert.That(d, Is.Not.Null);
+            Assert.Multiple(() => {
+                var ps = GetParts(d);
+                Assert.That(ps, Has.Length.EqualTo(3));
+                Assert.That(ps[0].Weight, Is.EqualTo(1000));
+                Assert.That(ps[0].QualId, Is.Not.EqualTo("WEI"));
+                Assert.That(ps[1].QualId, Is.Not.EqualTo("WEI"));
+                Assert.That(ps[2].QualId, Is.Not.EqualTo("WEI"));
+            });
+
+            Assert.DoesNotThrowAsync(async () => await DeliveryService.DepreciateDelivery(d.Year, d.DId, [1000, 0, 0]));
+            d = await GetDelivery("20231001X001");
+            Assert.That(d, Is.Not.Null);
+            Assert.Multiple(() => {
+                var ps = GetParts(d);
+                Assert.That(ps, Has.Length.EqualTo(3));
+                Assert.That(ps[0].Weight, Is.EqualTo(1000));
+                Assert.That(ps[0].QualId, Is.EqualTo("WEI"));
+                Assert.That(ps[1].QualId, Is.Not.EqualTo("WEI"));
+                Assert.That(ps[2].QualId, Is.Not.EqualTo("WEI"));
+            });
+        }
+
+        [Test]
+        public async Task TestSplit_02_Depreciate_Partial() {
+            var d = await GetDelivery("20231001X002");
+            Assert.That(d, Is.Not.Null);
+            Assert.Multiple(() => {
+                var ps = GetParts(d);
+                Assert.That(ps, Has.Length.EqualTo(3));
+                Assert.That(ps[0].Weight, Is.EqualTo(1000));
+                Assert.That(ps[0].QualId, Is.Not.EqualTo("WEI"));
+                Assert.That(ps[1].QualId, Is.Not.EqualTo("WEI"));
+                Assert.That(ps[2].QualId, Is.Not.EqualTo("WEI"));
+            });
+
+            Assert.DoesNotThrowAsync(async () => await DeliveryService.DepreciateDelivery(d.Year, d.DId, [600, 0, 0]));
+            d = await GetDelivery("20231001X002");
+            Assert.That(d, Is.Not.Null);
+            Assert.Multiple(() => {
+                var ps = GetParts(d);
+                Assert.That(ps, Has.Length.EqualTo(4));
+                Assert.That(ps[0].Weight, Is.EqualTo(400));
+                Assert.That(ps[0].QualId, Is.Not.EqualTo("WEI"));
+                Assert.That(ps[1].QualId, Is.Not.EqualTo("WEI"));
+                Assert.That(ps[2].QualId, Is.Not.EqualTo("WEI"));
+                Assert.That(ps[3].Weight, Is.EqualTo(600));
+                Assert.That(ps[3].QualId, Is.EqualTo("WEI"));
+            });
+        }
+
+        [Test]
+        public async Task TestSplit_03_Depreciate_Mixed() {
+            var d = await GetDelivery("20231001X003");
+            Assert.That(d, Is.Not.Null);
+            Assert.Multiple(() => {
+                var ps = GetParts(d);
+                Assert.That(ps, Has.Length.EqualTo(3));
+                Assert.That(ps[0].Weight, Is.EqualTo(1000));
+                Assert.That(ps[0].QualId, Is.Not.EqualTo("WEI"));
+                Assert.That(ps[1].Weight, Is.EqualTo(1000));
+                Assert.That(ps[1].QualId, Is.Not.EqualTo("WEI"));
+                Assert.That(ps[2].QualId, Is.Not.EqualTo("WEI"));
+            });
+
+            Assert.DoesNotThrowAsync(async () => await DeliveryService.DepreciateDelivery(d.Year, d.DId, [1000, 700, -5]));
+            d = await GetDelivery("20231001X003");
+            Assert.That(d, Is.Not.Null);
+            Assert.Multiple(() => {
+                var ps = GetParts(d);
+                Assert.That(ps, Has.Length.EqualTo(4));
+                Assert.That(ps[0].Weight, Is.EqualTo(1000));
+                Assert.That(ps[0].QualId, Is.EqualTo("WEI"));
+                Assert.That(ps[1].Weight, Is.EqualTo(300));
+                Assert.That(ps[1].QualId, Is.Not.EqualTo("WEI"));
+                Assert.That(ps[2].Weight, Is.EqualTo(1000));
+                Assert.That(ps[2].QualId, Is.Not.EqualTo("WEI"));
+                Assert.That(ps[3].Weight, Is.EqualTo(700));
+                Assert.That(ps[3].QualId, Is.EqualTo("WEI"));
+            });
+        }
+
+        [Test]
+        public async Task TestSplit_04_Depreciate_Complete() {
+            var d = await GetDelivery("20231001X004");
+            Assert.That(d, Is.Not.Null);
+            Assert.Multiple(() => {
+                var ps = GetParts(d);
+                Assert.That(ps, Has.Length.EqualTo(3));
+                Assert.That(ps[0].Weight, Is.EqualTo(1000));
+                Assert.That(ps[0].QualId, Is.Not.EqualTo("WEI"));
+                Assert.That(ps[1].Weight, Is.EqualTo(1000));
+                Assert.That(ps[1].QualId, Is.Not.EqualTo("WEI"));
+                Assert.That(ps[2].Weight, Is.EqualTo(1000));
+                Assert.That(ps[2].QualId, Is.Not.EqualTo("WEI"));
+            });
+
+            Assert.DoesNotThrowAsync(async () => await DeliveryService.DepreciateDelivery(d.Year, d.DId, [1000, 1100, int.MaxValue]));
+            d = await GetDelivery("20231001X004");
+            Assert.That(d, Is.Not.Null);
+            Assert.Multiple(() => {
+                var ps = GetParts(d);
+                Assert.That(ps, Has.Length.EqualTo(3));
+                Assert.That(ps[0].Weight, Is.EqualTo(1000));
+                Assert.That(ps[0].QualId, Is.EqualTo("WEI"));
+                Assert.That(ps[1].Weight, Is.EqualTo(1000));
+                Assert.That(ps[1].QualId, Is.EqualTo("WEI"));
+                Assert.That(ps[2].Weight, Is.EqualTo(1000));
+                Assert.That(ps[2].QualId, Is.EqualTo("WEI"));
+            });
+        }
+
+        [Test]
+        public async Task TestSplit_05_OtherMember_One() {
+            var d1 = await GetDelivery("20231002X001");
+            var d2 = await GetDelivery("20231002X002");
+            Assert.Multiple(() => {
+                Assert.That(d1, Is.Not.Null);
+                Assert.That(d2, Is.Null);
+            });
+            Assert.Multiple(() => {
+                var ps1 = GetParts(d1);
+                Assert.That(d1.MgNr, Is.EqualTo(101));
+                Assert.That(ps1, Has.Length.EqualTo(3));
+                Assert.That(ps1[0].Weight, Is.EqualTo(1000));
+                Assert.That(ps1[1].Weight, Is.EqualTo(1000));
+                Assert.That(ps1[2].Weight, Is.EqualTo(1000));
+            });
+
+            Assert.DoesNotThrowAsync(async () => await DeliveryService.SplitDeliveryToMember(d1.Year, d1.DId, [1000, 0, 0], 102));
+            d1 = await GetDelivery("20231002X001");
+            d2 = await GetDelivery("20231002X002");
+            Assert.Multiple(() => {
+                Assert.That(d1, Is.Not.Null);
+                Assert.That(d2, Is.Not.Null);
+            });
+            Assert.Multiple(() => {
+                var ps1 = GetParts(d1);
+                var ps2 = GetParts(d2);
+                Assert.That(d1.MgNr, Is.EqualTo(101));
+                Assert.That(d2.MgNr, Is.EqualTo(102));
+                Assert.That(ps1, Has.Length.EqualTo(2));
+                Assert.That(ps1[0].DPNr, Is.EqualTo(2));
+                Assert.That(ps1[0].Weight, Is.EqualTo(1000));
+                Assert.That(ps1[1].DPNr, Is.EqualTo(3));
+                Assert.That(ps1[1].Weight, Is.EqualTo(1000));
+                Assert.That(ps2, Has.Length.EqualTo(1));
+                Assert.That(ps2[0].DPNr, Is.EqualTo(1));
+                Assert.That(ps2[0].Weight, Is.EqualTo(1000));
+            });
+        }
+
+        [Test]
+        public async Task TestSplit_06_OtherMember_Partial() {
+            var d1 = await GetDelivery("20231003X001");
+            var d2 = await GetDelivery("20231003X002");
+            Assert.Multiple(() => {
+                Assert.That(d1, Is.Not.Null);
+                Assert.That(d2, Is.Null);
+            });
+            Assert.Multiple(() => {
+                var ps1 = GetParts(d1);
+                Assert.That(d1.MgNr, Is.EqualTo(101));
+                Assert.That(ps1, Has.Length.EqualTo(3));
+                Assert.That(ps1[0].Weight, Is.EqualTo(1000));
+                Assert.That(ps1[1].Weight, Is.EqualTo(1000));
+                Assert.That(ps1[2].Weight, Is.EqualTo(1000));
+            });
+
+            Assert.DoesNotThrowAsync(async () => await DeliveryService.SplitDeliveryToMember(d1.Year, d1.DId, [400, -1, -2], 102));
+            d1 = await GetDelivery("20231003X001");
+            d2 = await GetDelivery("20231003X002");
+            Assert.Multiple(() => {
+                Assert.That(d1, Is.Not.Null);
+                Assert.That(d2, Is.Not.Null);
+            });
+            Assert.Multiple(() => {
+                var ps1 = GetParts(d1);
+                var ps2 = GetParts(d2);
+                Assert.That(d1.MgNr, Is.EqualTo(101));
+                Assert.That(d2.MgNr, Is.EqualTo(102));
+                Assert.That(ps1, Has.Length.EqualTo(3));
+                Assert.That(ps1[0].Weight, Is.EqualTo(600));
+                Assert.That(ps1[1].Weight, Is.EqualTo(1000));
+                Assert.That(ps1[2].Weight, Is.EqualTo(1000));
+                Assert.That(ps2, Has.Length.EqualTo(1));
+                Assert.That(ps2[0].Weight, Is.EqualTo(400));
+            });
+        }
+
+        [Test]
+        public async Task TestSplit_07_OtherMember_Mixed() {
+            var d1 = await GetDelivery("20231004X001");
+            var d2 = await GetDelivery("20231004X002");
+            Assert.Multiple(() => {
+                Assert.That(d1, Is.Not.Null);
+                Assert.That(d2, Is.Null);
+            });
+            Assert.Multiple(() => {
+                var ps1 = GetParts(d1);
+                Assert.That(d1.MgNr, Is.EqualTo(101));
+                Assert.That(ps1, Has.Length.EqualTo(3));
+                Assert.That(ps1[0].Weight, Is.EqualTo(1000));
+                Assert.That(ps1[1].Weight, Is.EqualTo(1000));
+                Assert.That(ps1[2].Weight, Is.EqualTo(1000));
+            });
+
+            Assert.DoesNotThrowAsync(async () => await DeliveryService.SplitDeliveryToMember(d1.Year, d1.DId, [200, 1000, int.MinValue], 102));
+            d1 = await GetDelivery("20231004X001");
+            d2 = await GetDelivery("20231004X002");
+            Assert.Multiple(() => {
+                Assert.That(d1, Is.Not.Null);
+                Assert.That(d2, Is.Not.Null);
+            });
+            Assert.Multiple(() => {
+                var ps1 = GetParts(d1);
+                var ps2 = GetParts(d2);
+                Assert.That(d1.MgNr, Is.EqualTo(101));
+                Assert.That(d2.MgNr, Is.EqualTo(102));
+                Assert.That(ps1, Has.Length.EqualTo(2));
+                Assert.That(ps1[0].DPNr, Is.EqualTo(1));
+                Assert.That(ps1[0].Weight, Is.EqualTo(800));
+                Assert.That(ps1[1].DPNr, Is.EqualTo(3));
+                Assert.That(ps1[1].Weight, Is.EqualTo(1000));
+                Assert.That(ps2, Has.Length.EqualTo(2));
+                Assert.That(ps2[0].DPNr, Is.EqualTo(1));
+                Assert.That(ps2[0].Weight, Is.EqualTo(200));
+                Assert.That(ps2[1].DPNr, Is.EqualTo(2));
+                Assert.That(ps2[1].Weight, Is.EqualTo(1000));
+            });
+        }
+
+        [Test]
+        public async Task TestSplit_08_OtherMember_Complete() {
+            var d1 = await GetDelivery("20231005X001");
+            var d2 = await GetDelivery("20231005X002");
+            Assert.Multiple(() => {
+                Assert.That(d1, Is.Not.Null);
+                Assert.That(d2, Is.Null);
+            });
+            Assert.Multiple(() => {
+                var ps1 = GetParts(d1);
+                Assert.That(d1.MgNr, Is.EqualTo(101));
+                Assert.That(ps1, Has.Length.EqualTo(3));
+                Assert.That(ps1[0].Weight, Is.EqualTo(1000));
+                Assert.That(ps1[1].Weight, Is.EqualTo(1000));
+                Assert.That(ps1[2].Weight, Is.EqualTo(1000));
+            });
+
+            Assert.DoesNotThrowAsync(async () => await DeliveryService.SplitDeliveryToMember(d1.Year, d1.DId, [1000, int.MaxValue, 1100], 102));
+            d1 = await GetDelivery("20231005X001");
+            d2 = await GetDelivery("20231005X002");
+            Assert.Multiple(() => {
+                Assert.That(d1, Is.Null);
+                Assert.That(d2, Is.Not.Null);
+            });
+            Assert.Multiple(() => {
+                var ps2 = GetParts(d2);
+                Assert.That(d2.MgNr, Is.EqualTo(102));
+                Assert.That(ps2, Has.Length.EqualTo(3));
+                Assert.That(ps2[0].Weight, Is.EqualTo(1000));
+                Assert.That(ps2[1].Weight, Is.EqualTo(1000));
+                Assert.That(ps2[2].Weight, Is.EqualTo(1000));
+            });
+        }
+
+        [Test]
+        public async Task TestSplit_09_OtherDelivery_One() {
+            var d1 = await GetDelivery("20231006X001");
+            var d2 = await GetDelivery("20231006X002");
+            Assert.Multiple(() => {
+                Assert.That(d1, Is.Not.Null);
+                Assert.That(d2, Is.Not.Null);
+            });
+            Assert.Multiple(() => {
+                var ps1 = GetParts(d1);
+                var ps2 = GetParts(d2);
+                Assert.That(ps1, Has.Length.EqualTo(3));
+                Assert.That(ps1[0].Weight, Is.EqualTo(1000));
+                Assert.That(ps1[1].Weight, Is.EqualTo(1000));
+                Assert.That(ps1[2].Weight, Is.EqualTo(1000));
+                Assert.That(ps2, Has.Length.EqualTo(1));
+                Assert.That(ps2[0].Weight, Is.EqualTo(1000));
+            });
+
+            Assert.DoesNotThrowAsync(async () => await DeliveryService.SplitDeliveryToLsNr(d1.Year, d1.DId, [0, 1000, -4], d2.LsNr));
+            d1 = await GetDelivery("20231006X001");
+            d2 = await GetDelivery("20231006X002");
+            Assert.Multiple(() => {
+                Assert.That(d1, Is.Not.Null);
+                Assert.That(d2, Is.Not.Null);
+            });
+            Assert.Multiple(() => {
+                var ps1 = GetParts(d1);
+                var ps2 = GetParts(d2);
+                Assert.That(ps1, Has.Length.EqualTo(2));
+                Assert.That(ps1[0].DPNr, Is.EqualTo(1));
+                Assert.That(ps1[0].Weight, Is.EqualTo(1000));
+                Assert.That(ps1[1].DPNr, Is.EqualTo(3));
+                Assert.That(ps1[1].Weight, Is.EqualTo(1000));
+                Assert.That(ps2, Has.Length.EqualTo(2));
+                Assert.That(ps2[0].Weight, Is.EqualTo(1000));
+                Assert.That(ps2[1].Weight, Is.EqualTo(1000));
+            });
+        }
+
+        [Test]
+        public async Task TestSplit_10_OtherDelivery_Partial() {
+            var d1 = await GetDelivery("20231007X001");
+            var d2 = await GetDelivery("20231007X002");
+            Assert.Multiple(() => {
+                Assert.That(d1, Is.Not.Null);
+                Assert.That(d2, Is.Not.Null);
+            });
+            Assert.Multiple(() => {
+                var ps1 = GetParts(d1);
+                var ps2 = GetParts(d2);
+                Assert.That(ps1, Has.Length.EqualTo(3));
+                Assert.That(ps1[0].Weight, Is.EqualTo(1000));
+                Assert.That(ps1[1].Weight, Is.EqualTo(1000));
+                Assert.That(ps1[2].Weight, Is.EqualTo(1000));
+                Assert.That(ps2, Has.Length.EqualTo(1));
+                Assert.That(ps2[0].Weight, Is.EqualTo(1000));
+            });
+
+            Assert.DoesNotThrowAsync(async () => await DeliveryService.SplitDeliveryToLsNr(d1.Year, d1.DId, [0, 300, int.MinValue], d2.LsNr));
+            d1 = await GetDelivery("20231007X001");
+            d2 = await GetDelivery("20231007X002");
+            Assert.Multiple(() => {
+                Assert.That(d1, Is.Not.Null);
+                Assert.That(d2, Is.Not.Null);
+            });
+            Assert.Multiple(() => {
+                var ps1 = GetParts(d1);
+                var ps2 = GetParts(d2);
+                Assert.That(ps1, Has.Length.EqualTo(3));
+                Assert.That(ps1[0].Weight, Is.EqualTo(1000));
+                Assert.That(ps1[1].Weight, Is.EqualTo(700));
+                Assert.That(ps1[2].Weight, Is.EqualTo(1000));
+                Assert.That(ps2, Has.Length.EqualTo(2));
+                Assert.That(ps2[0].Weight, Is.EqualTo(1000));
+                Assert.That(ps2[1].Weight, Is.EqualTo(300));
+            });
+        }
+
+        [Test]
+        public async Task TestSplit_11_OtherDelivery_Mixed() {
+            var d1 = await GetDelivery("20231008X001");
+            var d2 = await GetDelivery("20231008X002");
+            Assert.Multiple(() => {
+                Assert.That(d1, Is.Not.Null);
+                Assert.That(d2, Is.Not.Null);
+            });
+            Assert.Multiple(() => {
+                var ps1 = GetParts(d1);
+                var ps2 = GetParts(d2);
+                Assert.That(ps1, Has.Length.EqualTo(3));
+                Assert.That(ps1[0].Weight, Is.EqualTo(1000));
+                Assert.That(ps1[1].Weight, Is.EqualTo(1000));
+                Assert.That(ps1[2].Weight, Is.EqualTo(1000));
+                Assert.That(ps2, Has.Length.EqualTo(1));
+                Assert.That(ps2[0].Weight, Is.EqualTo(1000));
+            });
+
+            Assert.DoesNotThrowAsync(async () => await DeliveryService.SplitDeliveryToLsNr(d1.Year, d1.DId, [850, 1000, -4], d2.LsNr));
+            d1 = await GetDelivery("20231008X001");
+            d2 = await GetDelivery("20231008X002");
+            Assert.Multiple(() => {
+                Assert.That(d1, Is.Not.Null);
+                Assert.That(d2, Is.Not.Null);
+            });
+            Assert.Multiple(() => {
+                var ps1 = GetParts(d1);
+                var ps2 = GetParts(d2);
+                Assert.That(ps1, Has.Length.EqualTo(2));
+                Assert.That(ps1[0].DPNr, Is.EqualTo(1));
+                Assert.That(ps1[0].Weight, Is.EqualTo(150));
+                Assert.That(ps1[1].DPNr, Is.EqualTo(3));
+                Assert.That(ps1[1].Weight, Is.EqualTo(1000));
+                Assert.That(ps2, Has.Length.EqualTo(3));
+                Assert.That(ps2[0].Weight, Is.EqualTo(1000));
+                Assert.That(ps2[1].Weight, Is.EqualTo(850));
+                Assert.That(ps2[2].Weight, Is.EqualTo(1000));
+            });
+        }
+
+        [Test]
+        public async Task TestSplit_12_OtherDelivery_Complete() {
+            var d1 = await GetDelivery("20231009X001");
+            var d2 = await GetDelivery("20231009X002");
+            Assert.Multiple(() => {
+                Assert.That(d1, Is.Not.Null);
+                Assert.That(d2, Is.Not.Null);
+            });
+            Assert.Multiple(() => {
+                var ps1 = GetParts(d1);
+                var ps2 = GetParts(d2);
+                Assert.That(ps1, Has.Length.EqualTo(3));
+                Assert.That(ps1[0].Weight, Is.EqualTo(1000));
+                Assert.That(ps1[1].Weight, Is.EqualTo(1000));
+                Assert.That(ps1[2].Weight, Is.EqualTo(1000));
+                Assert.That(ps2, Has.Length.EqualTo(1));
+                Assert.That(ps2[0].Weight, Is.EqualTo(1000));
+            });
+
+            Assert.DoesNotThrowAsync(async () => await DeliveryService.SplitDeliveryToLsNr(d1.Year, d1.DId, [1200, int.MaxValue, 1000], d2.LsNr));
+            d1 = await GetDelivery("20231009X001");
+            d2 = await GetDelivery("20231009X002");
+            Assert.Multiple(() => {
+                Assert.That(d1, Is.Null);
+                Assert.That(d2, Is.Not.Null);
+            });
+            Assert.Multiple(() => {
+                var ps2 = GetParts(d2);
+                Assert.That(ps2, Has.Length.EqualTo(4));
+                Assert.That(ps2[0].Weight, Is.EqualTo(1000));
+                Assert.That(ps2[1].Weight, Is.EqualTo(1000));
+                Assert.That(ps2[2].Weight, Is.EqualTo(1000));
+                Assert.That(ps2[3].Weight, Is.EqualTo(1000));
+            });
+        }
+
+        [Test]
+        public async Task TestDelete_01_Normal() {
+            using (var ctx = new AppDbContext()) {
+                Assert.That(await ctx.Deliveries.FindAsync(2022, 2), Is.Not.Null);
+            }
+            Assert.DoesNotThrowAsync(async () => await DeliveryService.DeleteDelivery("20220930X001"));
+            using (var ctx = new AppDbContext()) {
+                Assert.That(await ctx.Deliveries.FindAsync(2022, 2), Is.Null);
+            }
+        }
+    }
+}
--- a/Tests/ServiceTests/MemberServiceTest.cs
+++ b/Tests/ServiceTests/MemberServiceTest.cs
@@ -0,0 +1,361 @@
+using Elwig.Helpers;
+using Elwig.Models.Entities;
+using Elwig.Services;
+using Elwig.ViewModels;
+using Microsoft.EntityFrameworkCore;
+
+namespace Tests.ServiceTests {
+    [TestFixture]
+    public class MemberServiceTest {
+
+        private static async Task InitViewModel(MemberAdminViewModel vm) {
+            using var ctx = new AppDbContext();
+            vm.BranchSource = await ctx.Branches.ToListAsync();
+            vm.DefaultKgSource = await ctx.Katastralgemeinden.ToListAsync();
+            vm.OrtSource = await ctx.PlzDestinations.Include(p => p.Ort).ToListAsync();
+            vm.BillingOrtSource = await ctx.PlzDestinations.Include(p => p.Ort).ToListAsync();
+        }
+
+        [Test]
+        public async Task TestCreate_01_Minimal() {
+            var vm = new MemberAdminViewModel();
+            await InitViewModel(vm);
+            await vm.InitInputs();
+            vm.Name = "Neuling";
+            vm.GivenName = "Nadine";
+            vm.Address = "Neubaugasse 1";
+            vm.Plz = 2120;
+            vm.Ort = vm.OrtSource.First(d => d.Ort.Name == "Wolkersdorf im Weinviertel");
+            vm.BusinessShares = 1;
+            vm.DefaultKg = vm.DefaultKgSource.First(k => k.Name == "Wolkersdorf");
+
+            Assert.That(vm.MgNr, Is.EqualTo(205));
+            using (var ctx = new AppDbContext()) {
+                Assert.That(await ctx.Members.FindAsync(205), Is.Null);
+            }
+
+            Assert.DoesNotThrowAsync(async () => await vm.UpdateMember(null));
+
+            Member? m;
+            using (var ctx = new AppDbContext()) {
+                m = await ctx.Members
+                    .Where(m => m.MgNr == vm.MgNr)
+                    .Include(m => m.BillingAddress!.PostalDest.AtPlz!.Ort)
+                    .Include(m => m.PostalDest.AtPlz!.Ort)
+                    .Include(m => m.DefaultWbKg!.AtKg)
+                    .Include(m => m.EmailAddresses)
+                    .Include(m => m.TelephoneNumbers)
+                    .AsSplitQuery()
+                    .FirstOrDefaultAsync();
+            }
+
+            Assert.That(m, Is.Not.Null);
+            Assert.Multiple(() => {
+                Assert.That(m.MgNr, Is.EqualTo(205));
+                Assert.That(m.Name, Is.EqualTo("Neuling"));
+                Assert.That(m.GivenName, Is.EqualTo("Nadine"));
+                Assert.That(m.Address, Is.EqualTo("Neubaugasse 1"));
+                Assert.That(m.PostalDest.AtPlz?.Plz, Is.EqualTo(2120));
+                Assert.That(m.PostalDest.AtPlz?.Ort.Name, Is.EqualTo("Wolkersdorf im Weinviertel"));
+                Assert.That(m.BusinessShares, Is.EqualTo(1));
+                Assert.That(m.DefaultKg?.Name, Is.EqualTo("Wolkersdorf"));
+            });
+
+            vm = new MemberAdminViewModel();
+            await InitViewModel(vm);
+            Assert.DoesNotThrow(() => vm.FillInputs(m));
+            Assert.Multiple(() => {
+                Assert.That(vm.MgNr, Is.EqualTo(205));
+                Assert.That(vm.Name, Is.EqualTo("Neuling"));
+                Assert.That(vm.GivenName, Is.EqualTo("Nadine"));
+                Assert.That(vm.Address, Is.EqualTo("Neubaugasse 1"));
+                Assert.That(vm.Plz, Is.EqualTo(2120));
+                Assert.That(vm.Ort?.Ort.Name, Is.EqualTo("Wolkersdorf im Weinviertel"));
+                Assert.That(vm.BusinessShares, Is.EqualTo(1));
+                Assert.That(vm.DefaultKg?.Name, Is.EqualTo("Wolkersdorf"));
+            });
+        }
+
+        [Test]
+        public async Task TestCreate_02_Full() {
+            var vm = new MemberAdminViewModel();
+            await InitViewModel(vm);
+            await vm.InitInputs();
+
+            vm.MgNr = 999;
+            vm.IsJuridicalPerson = true;
+            vm.Name = "Neue GmbH";
+            vm.ForTheAttentionOf = "Norbert Neuling";
+            vm.Address = "Neuegasse 2";
+            vm.Plz = 2120;
+            vm.Ort = vm.OrtSource.First(d => d.Ort.Name == "Wolkersdorf im Weinviertel");
+
+            vm.EmailAddresses[0] = "neue.gmbh@mail.com";
+            vm.EmailAddresses[1] = "norbert.neuling@mail.com";
+            vm.PhoneNrs[0] = new(0, "+43 2245 9876", "Büro");
+            vm.PhoneNrs[1] = new(1, "+43 664 123456789", "Hr. Neuling");
+            vm.PhoneNrs[2] = new(2, "+43 2245 9876-2", null);
+
+            vm.Iban = "AT97 1234 5678 9012 3460";
+            vm.Bic = "RLNWATWWWDF";
+
+            vm.UstIdNr = "ATU12345693";
+            vm.LfbisNr = "0123498";
+            vm.IsBuchführend = true;
+            vm.IsOrganic = true;
+
+            vm.BillingName = "Neue Holding AG";
+            vm.BillingAddress = "Neuegasse 3";
+            vm.BillingPlz = 2120;
+            vm.BillingOrt = vm.BillingOrtSource.First(d => d.Ort.Name == "Wolkersdorf im Weinviertel");
+
+            vm.BusinessShares = 10;
+            vm.AccountingNr = "330999";
+            vm.DefaultKg = vm.DefaultKgSource.First(k => k.Name == "Wolkersdorf");
+            vm.Comment = "Ich bin eine Anmerkung";
+            vm.ContactViaPost = true;
+            vm.ContactViaEmail = true;
+            vm.IsVollLieferant = true;
+            vm.IsFunktionär = true;
+
+            using (var ctx = new AppDbContext()) {
+                Assert.That(await ctx.Members.FindAsync(999), Is.Null);
+            }
+
+            Assert.DoesNotThrowAsync(async () => await vm.UpdateMember(null));
+
+            Member? m;
+            using (var ctx = new AppDbContext()) {
+                m = await ctx.Members
+                    .Where(m => m.MgNr == vm.MgNr)
+                    .Include(m => m.BillingAddress!.PostalDest.AtPlz!.Ort)
+                    .Include(m => m.PostalDest.AtPlz!.Ort)
+                    .Include(m => m.DefaultWbKg!.AtKg)
+                    .Include(m => m.EmailAddresses)
+                    .Include(m => m.TelephoneNumbers)
+                    .AsSplitQuery()
+                    .FirstOrDefaultAsync();
+            }
+
+            Assert.That(m, Is.Not.Null);
+            Assert.Multiple(() => {
+                Assert.That(m.MgNr, Is.EqualTo(999));
+                Assert.That(m.IsJuridicalPerson, Is.True);
+                Assert.That(m.Name, Is.EqualTo("Neue GmbH"));
+                Assert.That(m.ForTheAttentionOf, Is.EqualTo("Norbert Neuling"));
+                Assert.That(m.Address, Is.EqualTo("Neuegasse 2"));
+                Assert.That(m.PostalDest.AtPlz?.Plz, Is.EqualTo(2120));
+                Assert.That(m.PostalDest.AtPlz?.Ort.Name, Is.EqualTo("Wolkersdorf im Weinviertel"));
+
+                Assert.That(m.EmailAddresses.Select(a => (a.Nr, a.Address)), Is.EquivalentTo(new (int, string)[] {
+                    (1, "neue.gmbh@mail.com"),
+                    (2, "norbert.neuling@mail.com"),
+                }));
+                Assert.That(m.TelephoneNumbers.Select(n => (n.Nr, n.Type, n.Number, n.Comment)), Is.EquivalentTo(new (int, string, string, string?)[] {
+                    (1, "landline", "+43 2245 9876", "Büro"),
+                    (2, "mobile", "+43 664 123456789", "Hr. Neuling"),
+                    (3, "fax", "+43 2245 9876-2", null),
+                }));
+
+                Assert.That(m.Iban, Is.EqualTo("AT971234567890123460"));
+                Assert.That(m.Bic, Is.EqualTo("RLNWATWWWDF"));
+
+                Assert.That(m.UstIdNr, Is.EqualTo("ATU12345693"));
+                Assert.That(m.LfbisNr, Is.EqualTo("0123498"));
+                Assert.That(m.IsBuchführend, Is.True);
+                Assert.That(m.IsOrganic, Is.True);
+
+                Assert.That(m.BillingAddress, Is.Not.Null);
+                Assert.That(m.BillingAddress?.FullName, Is.EqualTo("Neue Holding AG"));
+                Assert.That(m.BillingAddress?.Address, Is.EqualTo("Neuegasse 3"));
+                Assert.That(m.BillingAddress?.PostalDest.AtPlz?.Plz, Is.EqualTo(2120));
+                Assert.That(m.BillingAddress?.PostalDest.AtPlz?.Ort.Name, Is.EqualTo("Wolkersdorf im Weinviertel"));
+
+                Assert.That(m.BusinessShares, Is.EqualTo(10));
+                Assert.That(m.AccountingNr, Is.EqualTo("330999"));
+                Assert.That(m.DefaultKg?.Name, Is.EqualTo("Wolkersdorf"));
+                Assert.That(m.Comment, Is.EqualTo("Ich bin eine Anmerkung"));
+                Assert.That(m.ContactViaPost, Is.True);
+                Assert.That(m.ContactViaEmail, Is.True);
+                Assert.That(m.IsVollLieferant, Is.True);
+                Assert.That(m.IsFunktionär, Is.True);
+            });
+
+            vm = new MemberAdminViewModel();
+            await InitViewModel(vm);
+            Assert.DoesNotThrow(() => vm.FillInputs(m));
+            Assert.Multiple(() => {
+                Assert.That(vm.MgNr, Is.EqualTo(999));
+                Assert.That(vm.IsJuridicalPerson, Is.True);
+                Assert.That(vm.Name, Is.EqualTo("Neue GmbH"));
+                Assert.That(vm.ForTheAttentionOf, Is.EqualTo("Norbert Neuling"));
+                Assert.That(vm.Address, Is.EqualTo("Neuegasse 2"));
+                Assert.That(vm.Plz, Is.EqualTo(2120));
+                Assert.That(vm.Ort?.Ort.Name, Is.EqualTo("Wolkersdorf im Weinviertel"));
+
+                Assert.That(vm.EmailAddresses, Is.EquivalentTo(new string?[] {
+                    "neue.gmbh@mail.com",
+                    "norbert.neuling@mail.com",
+                    null, null, null, null, null, null, null
+                }));
+                Assert.That(vm.PhoneNrs, Is.EquivalentTo(new MemberAdminViewModel.PhoneNr?[] {
+                    new(0, "+43 2245 9876", "Büro"),
+                    new(1, "+43 664 123456789", "Hr. Neuling"),
+                    new(2, "+43 2245 9876-2", null),
+                    new(), new(), new(), new(), new(), new()
+                }));
+
+                Assert.That(vm.Iban, Is.EqualTo("AT971234567890123460"));
+                Assert.That(vm.Bic, Is.EqualTo("RLNWATWWWDF"));
+
+                Assert.That(vm.UstIdNr, Is.EqualTo("ATU12345693"));
+                Assert.That(vm.LfbisNr, Is.EqualTo("0123498"));
+                Assert.That(vm.IsBuchführend, Is.True);
+                Assert.That(vm.IsOrganic, Is.True);
+
+                Assert.That(vm.BillingName, Is.EqualTo("Neue Holding AG"));
+                Assert.That(vm.BillingAddress, Is.EqualTo("Neuegasse 3"));
+                Assert.That(vm.BillingPlz, Is.EqualTo(2120));
+                Assert.That(vm.BillingOrt?.Ort.Name, Is.EqualTo("Wolkersdorf im Weinviertel"));
+
+                Assert.That(vm.BusinessShares, Is.EqualTo(10));
+                Assert.That(vm.AccountingNr, Is.EqualTo("330999"));
+                Assert.That(vm.DefaultKg?.Name, Is.EqualTo("Wolkersdorf"));
+                Assert.That(vm.Comment, Is.EqualTo("Ich bin eine Anmerkung"));
+                Assert.That(vm.ContactViaPost, Is.True);
+                Assert.That(vm.ContactViaEmail, Is.True);
+                Assert.That(vm.IsVollLieferant, Is.True);
+                Assert.That(vm.IsFunktionär, Is.True);
+            });
+        }
+
+        [Test]
+        public async Task TestUpdate_01_Inactive() {
+            var vm = new MemberAdminViewModel();
+            await InitViewModel(vm);
+            using (var ctx = new AppDbContext()) {
+                vm.FillInputs(await ctx.Members
+                    .Where(m => m.MgNr == 202)
+                    .Include(m => m.BillingAddress!.PostalDest.AtPlz!.Ort)
+                    .Include(m => m.PostalDest.AtPlz!.Ort)
+                    .Include(m => m.DefaultWbKg!.AtKg)
+                    .Include(m => m.EmailAddresses)
+                    .Include(m => m.TelephoneNumbers)
+                    .AsSplitQuery()
+                    .FirstAsync());
+            }
+
+            Assert.That(vm.IsActive, Is.True);
+
+            var exitDate = DateTime.Now;
+            vm.IsActive = false;
+            vm.ExitDate = $"{exitDate:dd.MM.yyyy}";
+
+            Assert.DoesNotThrowAsync(async () => await vm.UpdateMember(202));
+
+            Member? m;
+            using (var ctx = new AppDbContext()) {
+                m = await ctx.Members
+                    .Where(m => m.MgNr == 202)
+                    .Include(m => m.BillingAddress!.PostalDest.AtPlz!.Ort)
+                    .Include(m => m.PostalDest.AtPlz!.Ort)
+                    .Include(m => m.DefaultWbKg!.AtKg)
+                    .Include(m => m.EmailAddresses)
+                    .Include(m => m.TelephoneNumbers)
+                    .AsSplitQuery()
+                    .FirstOrDefaultAsync();
+            }
+
+            Assert.That(m, Is.Not.Null);
+            Assert.Multiple(() => {
+                Assert.That(m.IsActive, Is.False);
+                Assert.That(m.ExitDateString, Is.EqualTo($"{exitDate:yyyy-MM-dd}"));
+            });
+
+            vm = new MemberAdminViewModel();
+            await InitViewModel(vm);
+            Assert.DoesNotThrow(() => vm.FillInputs(m));
+            Assert.Multiple(() => {
+                Assert.That(vm.IsActive, Is.False);
+                Assert.That(vm.ExitDate, Is.EqualTo($"{exitDate:dd.MM.yyyy}"));
+            });
+        }
+
+        [Test]
+        public async Task TestUpdate_02_MgNr() {
+            var vm = new MemberAdminViewModel();
+            await InitViewModel(vm);
+            using (var ctx = new AppDbContext()) {
+                vm.FillInputs(await ctx.Members
+                    .Where(m => m.MgNr == 203)
+                    .Include(m => m.BillingAddress!.PostalDest.AtPlz!.Ort)
+                    .Include(m => m.PostalDest.AtPlz!.Ort)
+                    .Include(m => m.DefaultWbKg!.AtKg)
+                    .Include(m => m.EmailAddresses)
+                    .Include(m => m.TelephoneNumbers)
+                    .AsSplitQuery()
+                    .FirstAsync());
+            }
+
+            Assert.Multiple(() => {
+                Assert.That(vm.MgNr, Is.EqualTo(203));
+                Assert.That(vm.EmailAddresses[0], Is.Not.Null);
+                Assert.That(vm.PhoneNrs[0], Is.Not.Null);
+                Assert.That(vm.BillingName, Is.Not.Null);
+            });
+            vm.MgNr = 210;
+            Assert.DoesNotThrowAsync(async () => await vm.UpdateMember(203));
+
+            Member? m;
+            using (var ctx = new AppDbContext()) {
+                m = await ctx.Members
+                    .Where(m => m.MgNr == 210)
+                    .Include(m => m.BillingAddress!.PostalDest.AtPlz!.Ort)
+                    .Include(m => m.PostalDest.AtPlz!.Ort)
+                    .Include(m => m.DefaultWbKg!.AtKg)
+                    .Include(m => m.EmailAddresses)
+                    .Include(m => m.TelephoneNumbers)
+                    .AsSplitQuery()
+                    .FirstOrDefaultAsync();
+            }
+
+            Assert.That(m, Is.Not.Null);
+            vm = new MemberAdminViewModel();
+            await InitViewModel(vm);
+            Assert.DoesNotThrow(() => vm.FillInputs(m));
+            Assert.Multiple(() => {
+                Assert.That(vm.MgNr, Is.EqualTo(210));
+                Assert.That(vm.EmailAddresses[0], Is.Not.Null);
+                Assert.That(vm.PhoneNrs[0], Is.Not.Null);
+                Assert.That(vm.BillingName, Is.Not.Null);
+            });
+        }
+
+        [Test]
+        public async Task TestDelete_01_NoReferences() {
+            using (var ctx = new AppDbContext()) {
+                Assert.That(await ctx.Members.FindAsync(201), Is.Not.Null);
+            }
+            Assert.DoesNotThrowAsync(async () => await MemberService.DeleteMember(201, false, false, false));
+            using (var ctx = new AppDbContext()) {
+                Assert.That(await ctx.Members.FindAsync(201), Is.Null);
+            }
+        }
+
+        [Test]
+        public async Task TestDelete_02_AllReferences() {
+            using (var ctx = new AppDbContext()) {
+                Assert.That(await ctx.Members.FindAsync(204), Is.Not.Null);
+            }
+            for (int i = 0; i < 7; i++) {
+                Assert.ThrowsAsync<DbUpdateException>(async () => await MemberService.DeleteMember(204, (i & 1) != 0, (i & 2) != 0, (i & 4) != 0));
+                using var ctx = new AppDbContext();
+                Assert.That(await ctx.Members.FindAsync(204), Is.Not.Null);
+            }
+            Assert.DoesNotThrowAsync(async () => await MemberService.DeleteMember(204, true, true, true));
+            using (var ctx = new AppDbContext()) {
+                Assert.That(await ctx.Members.FindAsync(204), Is.Null);
+            }
+        }
+    }
+}
--- a/Tests/ServiceTests/Setup.cs
+++ b/Tests/ServiceTests/Setup.cs
@@ -0,0 +1,25 @@
+using Elwig.Helpers;
+using System.Reflection;
+using Microsoft.Data.Sqlite;
+
+namespace Tests.ServiceTests {
+    [SetUpFixture]
+    public class Setup {
+
+        private SqliteConnection? Connection;
+
+        [OneTimeSetUp]
+        public async Task SetupDatabase() {
+            Connection = await AppDbContext.ConnectAsync();
+            await AppDbContext.ExecuteEmbeddedScript(Connection, Assembly.GetExecutingAssembly(), "Tests.Resources.Sql.ServiceInsert.sql");
+        }
+
+        [OneTimeTearDown]
+        public async Task TeardownDatabase() {
+            if (Connection == null) return;
+            await AppDbContext.ExecuteEmbeddedScript(Connection, Assembly.GetExecutingAssembly(), "Tests.Resources.Sql.ServiceDelete.sql");
+            await Connection.DisposeAsync();
+            Connection = null;
+        }
+    }
+}
--- a/Tests/Tests.csproj
+++ b/Tests/Tests.csproj
@@ -19,16 +19,16 @@
  </Target>

  <ItemGroup>
-    <PackageReference Include="Microsoft.NET.Test.Sdk" Version="17.11.1" />
+    <PackageReference Include="Microsoft.NET.Test.Sdk" Version="17.12.0" />
    <PackageReference Include="Appium.WebDriver" Version="4.4.5" />
-    <PackageReference Include="NReco.PdfRenderer" Version="1.5.4" />
-    <PackageReference Include="NUnit" Version="4.2.2" />
+    <PackageReference Include="NReco.PdfRenderer" Version="1.6.0" />
+    <PackageReference Include="NUnit" Version="4.3.2" />
    <PackageReference Include="NUnit3TestAdapter" Version="4.6.0" />
-    <PackageReference Include="NUnit.Analyzers" Version="4.3.0">
+    <PackageReference Include="NUnit.Analyzers" Version="4.6.0">
      <PrivateAssets>all</PrivateAssets>
      <IncludeAssets>runtime; build; native; contentfiles; analyzers; buildtransitive</IncludeAssets>
    </PackageReference>
-    <PackageReference Include="coverlet.collector" Version="6.0.2">
+    <PackageReference Include="coverlet.collector" Version="6.0.3">
      <PrivateAssets>all</PrivateAssets>
      <IncludeAssets>runtime; build; native; contentfiles; analyzers; buildtransitive</IncludeAssets>
    </PackageReference>
--- a/Tests/WeighingTests/ScaleHandlers.cs
+++ b/Tests/WeighingTests/ScaleHandlers.cs
@@ -171,11 +171,11 @@ namespace Tests.WeighingTests {
            Thread.Sleep(100);

            if (invalid) {
-                return ("abcd\r\n", false);
+                return ("abcd", false);
            }

            bool incr = true;
-            return ($" {new DateTime(2020, 9, 28, 9, 8, 0):dd.MM.yy HH:mm} {identNr,4} {weight,9}{(unit ? "lb" : "kg")} \r\n", incr);
+            return ($" {new DateTime(2020, 9, 28, 9, 8, 0):dd.MM.yy HH:mm} {identNr,4} {weight,9}{(unit ? "lb" : "kg")} ", incr);
        }
    }
 }
Author	SHA1	Message	Date
Lorenz Stechauner	94d5084f58	Bump version to 1.0.0.0 All checks were successful Test / Run tests (push) Successful in 2m28s Details	2025-02-15 11:44:46 +01:00
Lorenz Stechauner	28af7f8dd3	CHANGELOG: Fix unser anchor names	2025-01-22 16:19:24 +01:00
Lorenz Stechauner	7cc2f75e7c	Bump version to 0.13.7 All checks were successful Test / Run tests (push) Successful in 2m15s Details Deploy / Build and Deploy (push) Successful in 2m23s Details	2025-01-21 11:59:54 +01:00
Lorenz Stechauner	c7a2f2241d	Billing: Handle negative credit amount in following credits Some checks failed Test / Run tests (push) Has been cancelled Details	2025-01-21 11:58:08 +01:00
Lorenz Stechauner	bd4ebb8c35	PaymentVariantsWindow: Allow user to change date All checks were successful Test / Run tests (push) Successful in 2m35s Details	2025-01-21 11:03:54 +01:00
Lorenz Stechauner	6d88c5645c	PaymentVariantsWindow: Warn user about negative credit exports	2025-01-21 11:01:56 +01:00
Lorenz Stechauner	5d017cc8ea	MailLogWindow: Fix crash when opening All checks were successful Test / Run tests (push) Successful in 2m52s Details	2025-01-19 17:00:31 +01:00
Lorenz Stechauner	0b8a1b321f	BillingData: Fix collapsing tested with permutations All checks were successful Test / Run tests (push) Successful in 3m7s Details	2025-01-18 12:19:33 +01:00
Lorenz Stechauner	95927c3f1a	ChartWindow: Remove old commented-out code All checks were successful Test / Run tests (push) Successful in 2m42s Details	2025-01-16 09:09:28 +01:00
Lorenz Stechauner	f7297d313a	Bump version to 0.13.6 All checks were successful Deploy / Build and Deploy (push) Successful in 2m20s Details	2025-01-14 23:43:20 +01:00
Lorenz Stechauner	80fec4473a	Elwig: Update dependencies All checks were successful Test / Run tests (push) Successful in 2m3s Details	2025-01-14 22:43:53 +01:00
Lorenz Stechauner	95ccb2627c	Tests: Update dependencies	2025-01-14 22:43:04 +01:00
Lorenz Stechauner	20e3e2a76b	BillingData: Fix collapsing with cultivations/defaults All checks were successful Test / Run tests (push) Successful in 1m58s Details	2025-01-14 22:05:48 +01:00
Lorenz Stechauner	b83df45e8f	Bump version to 0.13.5 All checks were successful Test / Run tests (push) Successful in 2m9s Details Deploy / Build and Deploy (push) Successful in 2m22s Details	2025-01-02 17:41:51 +01:00
Lorenz Stechauner	c24b1ca2b9	DeliveryAdminWindow: Add WineLocalityStatistics All checks were successful Test / Run tests (push) Successful in 2m10s Details	2025-01-02 17:25:46 +01:00
Lorenz Stechauner	5e53d864b1	MemberAdminWindow: Add filters for active and non-active members All checks were successful Test / Run tests (push) Successful in 2m20s Details	2025-01-02 14:08:46 +01:00
Lorenz Stechauner	633b560a67	Tests: Update dependencies	2025-01-02 14:04:50 +01:00
Lorenz Stechauner	c9e483ba9d	Elwig: Update dependencies	2025-01-02 14:04:40 +01:00
Lorenz Stechauner	c484d27520	Bump version to 0.13.4 All checks were successful Test / Run tests (push) Successful in 1m54s Details Deploy / Build and Deploy (push) Successful in 2m10s Details	2024-11-25 19:23:20 +01:00
Lorenz Stechauner	6c7f10cb26	Tests: Update dependencies All checks were successful Test / Run tests (push) Successful in 1m55s Details	2024-11-25 19:19:31 +01:00
Lorenz Stechauner	4a10e94d71	Elwig: Update dependencies	2024-11-25 19:19:28 +01:00
Lorenz Stechauner	338f9fe092	AreaComUnderDeliveryData: Also include inactive members with active area commitments All checks were successful Test / Run tests (push) Successful in 2m9s Details	2024-11-25 12:38:04 +01:00
Lorenz Stechauner	3b97c2243a	AreaComUnderDeliveryData: Fix file name	2024-11-25 12:34:43 +01:00
Lorenz Stechauner	6ba2aa7143	OverUnderDeliveryData: Fix absence of non-deliverers in list Bug was introduced by commit `9930e6173c` and shipped with v0.10.6 (2024-08-30)	2024-11-25 12:17:23 +01:00
Lorenz Stechauner	a99a23fd08	Tests: Update dependencies All checks were successful Test / Run tests (push) Successful in 2m52s Details	2024-11-17 16:58:09 +01:00
Lorenz Stechauner	70e01849be	Setup: Update dependencies	2024-11-17 16:57:53 +01:00
Lorenz Stechauner	c3a2f983d5	Elwig: Update dependencies	2024-11-17 16:57:40 +01:00
Lorenz Stechauner	ebf0c20a90	Bump version to 0.13.3 All checks were successful Test / Run tests (push) Successful in 2m26s Details Deploy / Build and Deploy (push) Successful in 2m21s Details	2024-11-13 23:35:29 +01:00
Lorenz Stechauner	2ee0d56dcc	Windows: Add MailLogWindow All checks were successful Test / Run tests (push) Successful in 1m54s Details	2024-11-13 18:37:50 +01:00
Lorenz Stechauner	0a9731af09	MailWindow: Fix small bugs and persist all settings All checks were successful Test / Run tests (push) Successful in 1m54s Details	2024-11-13 18:07:03 +01:00
Lorenz Stechauner	6718ad4c8d	AreaComAdminWindow: Add filters for season All checks were successful Test / Run tests (push) Successful in 2m26s Details	2024-11-10 16:35:44 +01:00
Lorenz Stechauner	a1d84dd988	MemberAdminWindow: Add more filters for AreaComs	2024-11-10 16:35:03 +01:00
Lorenz Stechauner	f4fa549130	Windows: Add icons on Buttons and MenuItems All checks were successful Test / Run tests (push) Successful in 2m15s Details	2024-11-10 10:58:44 +01:00
Lorenz Stechauner	c5453c2fe6	MainWindow: Add 'Flächenbindungen' and 'Liefermenge/Ertrag' button	2024-11-10 10:58:35 +01:00
Lorenz Stechauner	54deccf021	MainWindow: Add statistics table in Leseabschluss	2024-11-09 09:49:19 +01:00
Lorenz Stechauner	f5d3a04cb1	Bump version to 0.13.2 All checks were successful Test / Run tests (push) Successful in 1m50s Details Deploy / Build and Deploy (push) Successful in 2m6s Details	2024-10-13 19:08:20 +02:00
Lorenz Stechauner	0675c45617	Elwig: Use ExecuteSql/FromSql instead of ExecuteSqlRaw/FromSqlRaw where possible All checks were successful Test / Run tests (push) Successful in 1m42s Details	2024-10-13 18:24:40 +02:00
Lorenz Stechauner	d1f67dc57d	BaseDataWindow: Fix WineAttr/WineCult Id updates in payment variant data All checks were successful Test / Run tests (push) Successful in 2m10s Details	2024-10-13 18:18:31 +02:00
Lorenz Stechauner	3cbffdbf27	Documents: Add DeliveryDepreciationList All checks were successful Test / Run tests (push) Successful in 1m55s Details	2024-10-13 11:54:18 +02:00
Lorenz Stechauner	e247925472	Controls: Fix blurry borders when system scaling is enabled All checks were successful Test / Run tests (push) Successful in 2m21s Details	2024-10-12 14:25:24 +02:00
Lorenz Stechauner	a1b3cff624	[#11 ] Tests: Add DeliveryServiceTest All checks were successful Test / Run tests (push) Successful in 1m56s Details	2024-10-07 23:43:22 +02:00
Lorenz Stechauner	65498dd18f	App: Fix BranchLocation shortening All checks were successful Test / Run tests (push) Successful in 1m46s Details	2024-10-05 19:31:59 +02:00
Lorenz Stechauner	27dc4f648f	[#11 ] Tests: Add MemberServiceTest	2024-10-05 19:31:51 +02:00
Lorenz Stechauner	86f7f693a0	Export/Bki: Format house nr that excel interprets it correctly All checks were successful Test / Run tests (push) Successful in 2m10s Details	2024-10-02 11:08:14 +02:00
Lorenz Stechauner	8680e51052	Weighing: Fix scale L320 for Baden	2024-10-02 10:45:04 +02:00