[#5] MemberDataSheet: Add generating a member data sheet

Elwig/Documents/Document.cs

@@ -67,6 +67,8 @@ namespace Elwig.Documents {
                 name = "Letterhead";
             } else if (this is DeliveryConfirmation) {
                 name = "DeliveryConfirmation";
+            } else if (this is MemberDataSheet) {
+                name = "MemberDataSheet";
             } else {
                 throw new InvalidOperationException("Invalid document object");
             }

Elwig/Documents/MemberDataSheet.cs

@@ -0,0 +1,21 @@
+using Elwig.Helpers;
+using Elwig.Models.Entities;
+using System;
+using System.Collections.Generic;
+
+namespace Elwig.Documents {
+    public class MemberDataSheet : BusinessDocument {
+
+        public Season Season;
+        public int Year = 2023;
+        public Dictionary<string, (string, int, int, int, int)> MemberBuckets;
+        public Dictionary<string, int> BucketAreas;
+
+        public MemberDataSheet(Member m, AppDbContext ctx) : base($"Stammdatenblatt {m.AdministrativeName}", m) {
+            DocumentId = $"Stammdatenblatt {m.MgNr}";
+            Season = ctx.Seasons.Find(Year) ?? throw new ArgumentException("invalid season");
+            MemberBuckets = ctx.GetMemberBuckets(Year, m.MgNr).GetAwaiter().GetResult();
+            BucketAreas = ctx.GetMemberBucketAreas(Year, m.MgNr).GetAwaiter().GetResult();
+        }
+    }
+}

Elwig/Documents/MemberDataSheet.cshtml

@@ -0,0 +1,324 @@
+@using RazorLight
+@inherits TemplatePage<Elwig.Documents.MemberDataSheet>
+@model Elwig.Documents.MemberDataSheet
+@{
+    Layout = "BusinessDocument";
+}
+<link rel="stylesheet" href="file:///@Raw(Model.DataPath)\resources\MemberDataSheet.css" />
+<main>
+    <h1>@Model.Title</h1>
+    <table class="member">
+        <thead>
+            <tr><th colspan="4">Persönliche Daten</th></tr>
+        </thead>
+        <tbody>
+            <tr>
+                <th>Mitglieds-Nr.</th>
+                <td>@Model.Member.MgNr</td>
+                <th>Vorgänger MgNr.</th>
+                <td>@(Model.Member.PredecessorMgNr != null ? Model.Member.PredecessorMgNr : "-")</td>
+            </tr>
+            <tr>
+                <th>Titel (vorangestellt)</th>
+                <td>@Model.Member.Prefix</td>
+                <th>Titel (nachgestellt)</th>
+                <td>@Model.Member.Suffix</td>
+            </tr>
+            <tr>
+                <th>Vorname</th>
+                <td>@Model.Member.GivenName</td>
+                <th>Nachname</th>
+                <td>@Model.Member.FamilyName</td>
+            </tr>
+            <tr>
+                <th>Weitere Vornamen</th>
+                <td colspan="3">@Model.Member.MiddleName</td>
+            </tr>
+            <tr>
+                <th>Geburtsjahr/-tag</th>
+                <td colspan="3">@(Model.Member.Birthday == null ? "-" : string.Join('.', Model.Member.Birthday.Split('-').Reverse()))</td>
+            </tr>
+        </tbody>
+
+        <thead>
+            <tr><th colspan="4">Anschrift</th></tr>
+        </thead>
+        <tbody>
+            <tr>
+                <th>Adresse</th>
+                <td colspan="3">@Model.Member.Address</td>
+            </tr>
+            <tr>
+                <th>PLZ/Ort</th>
+                <td colspan="3">@Model.Member.PostalDest.AtPlz?.Plz @Model.Member.PostalDest.AtPlz?.Dest (@Model.Member.PostalDest.AtPlz?.Ort.Name)</td>
+            </tr>
+        </tbody>
+
+        <thead>
+            <tr><th colspan="4">Rechnungsadresse</th></tr>
+        </thead>
+        <tbody>
+            <tr>
+                <th>Name</th>
+                <td colspan="3">@Model.Member.BillingAddress?.Name</td>
+            </tr>
+            <tr>
+                <th>Adresse</th>
+                <td colspan="3">@Model.Member.BillingAddress?.Address</td>
+            </tr>
+            <tr>
+                <th>PLZ/Ort</th>
+                <td colspan="3">@Model.Member.BillingAddress?.PostalDest.AtPlz?.Plz @Model.Member.BillingAddress?.PostalDest.AtPlz?.Dest @((Model.Member.BillingAddress != null && Model.Member.BillingAddress.PostalDest.AtPlz != null) ? "(" + Model.Member.BillingAddress?.PostalDest.AtPlz?.Ort.Name + ")" : "")</td>
+            </tr>
+        </tbody>
+        
+        <thead>
+            <tr><th colspan="4">Kontaktdaten</th></tr>
+        </thead>
+        <tbody>
+            @foreach (var e in Model.Member.EmailAddresses) {
+                var emailNumber = Model.Member.EmailAddresses.Count > 1 ? 1 : 0;
+                <tr>
+                    <th>E-Mail-Adresse @(emailNumber != 0 ? $"({emailNumber})" : "")</th>
+                    <td colspan="3">@e.Address</td>
+                </tr>
+                emailNumber++;
+            }
+            @foreach (var k in Model.Member.TelephoneNumbers) {
+                <tr>
+                    @if (k.Type.Equals("landline")) {
+                        <th>Tel.-Nr. (Festnetz)</th>
+                    } else if (k.Type.Equals("mobile")) {
+                        <th>Tel.-Nr. (mobil)</th>
+                    } else if (k.Type.Equals("fax")) {
+                        <th>Fax-Nr.</th>
+                    }
+                    <td colspan="3">@k.Number</td>
+                </tr>
+            }
+        </tbody>
+
+        <thead>
+            <tr><th colspan="4">Bankverbindung</th></tr>
+        </thead>
+        <tbody>
+            <tr>
+                <th>IBAN</th>
+                <td colspan="3">@(Model.Member.Iban != null ? Elwig.Helpers.Utils.FormatIban(Model.Member.Iban) : "")</td>
+            </tr>
+            <tr>
+                <th>BIC</th>
+                <td colspan="3">@Model.Member.Bic</td>
+            </tr>
+        </tbody>
+
+        <thead>
+            <tr><th colspan="4">Betrieb</th></tr>
+        </thead>
+        <tbody>
+            <tr>
+                <th>UID</th>
+                <td>@Model.Member.UstIdNr</td>
+                <th>Betriebs-Nr.</th>
+                <td>@Model.Member.LfbisNr</td>
+            </tr>
+            <tr>
+                <th>Buchführend</th>
+                <td>@(Model.Member.IsBuchführend ? "Ja" : "Nein")</td>
+                <th>Bio</th>
+                <td>@(Model.Member.IsOrganic ? "Ja" : "Nein")</td>
+            </tr>
+        </tbody>
+
+        <thead>
+            <tr><th colspan="4">Genossenschaft</th></tr>
+        </thead>
+        <tbody>
+            <tr>
+                <th>Eintritt</th>
+                <td>@Model.Member.EntryDate</td>
+                <th>Austritt</th>
+                <td>@Model.Member.ExitDate</td>
+            </tr>
+            <tr>
+                <th>Aktiv</th>
+                <td>@(Model.Member.IsActive ? "Ja" : "Nein")</td>
+                <th>Geschäftsanteile</th>
+                <td>@Model.Member.BusinessShares</td>
+            </tr>
+            <tr>
+                <th>Volllierferant</th>
+                <td>@(Model.Member.IsVollLieferant ? "Ja" : "Nein")</td>
+                <th>Funktionär</th>
+                <td>@(Model.Member.IsFunktionär ? "Ja" : "Nein")</td>
+            </tr>
+            <tr>
+                <th>Stamm-Zweigstelle</th>
+                <td>@Model.Member.Branch?.Name</td>
+                <th>Stammgemeinde</th>
+                <td>@Model.Member.DefaultKg?.Name</td>
+            </tr>
+            <tr>
+                <th>Kontakt via Post</th>
+                <td>@(Model.Member.ContactViaPost ? "Ja" : "Nein")</td>
+                <th>Kontakt via E-Mail</th>
+                <td>@(Model.Member.ContactViaEmail ? "Ja" : "Nein")</td>
+            </tr>
+        </tbody>
+    </table>
+
+    @{
+        var areaComs = Model.Member.ActiveAreaCommitments.GroupBy(a => a.AreaComType).Select(group => new {
+            AreaComType = group.Key,
+            AreaComs = group.OrderBy(c => c.Kg.AtKg.Name),
+            Size = group.Sum(c => c.Area)
+        }).OrderByDescending(a => a.Size).ToList();
+        var lastContract = "";
+    }
+
+    @if (areaComs.Count != 0) {
+        <h1>Flächenbindungen</h1>
+        <table class="area-commitements">
+            <colgroup>
+                <col style="width: 40mm;" />
+                <col style="width: 30mm;" />
+                <col style="width: 35mm;" />
+                <col style="width: 15mm;" />
+                <col style="width: 25mm;" />
+                <col style="width: 20mm;" />
+            </colgroup>
+            <thead>
+                <tr>
+                    <th rowspan="2" style="text-align: left;">Katastralgemeinde</th>
+                    <th rowspan="2" style="text-align: left;">Ried</th>
+                    <th rowspan="2" style="text-align: left;">Parzelle(n)</th>
+                    <th>Fläche</th>
+                    <th rowspan="2" style="text-align: center;">Bewirt.</th>
+                    <th rowspan="2" style="text-align: center;">Laufzeit</th>
+                </tr>
+                <tr>
+                    <th>[m²]</th>
+                </tr>
+            </thead>
+            <tbody>
+
+                @foreach (var contractType in areaComs) {
+                    <tr class="contract-type @(contractType.AreaComType.DisplayName != lastContract && lastContract != "" ? "new" : "")">
+                        <th colspan="3" style="text-align: left">
+                            @($"{contractType.AreaComType.WineVar.Name} {(contractType.AreaComType.WineAttr != null ? "(" + contractType.AreaComType.WineAttr + ")" : "")}")
+                        </th>
+                        <th style="text-align: right">@($"{contractType.Size:N0}")</th>
+                        <th colspan="2"></th>
+                    </tr>
+                    @foreach (var areaCom in contractType.AreaComs) {
+                        <tr class="area-commitment">
+                            <td>@areaCom.Kg.AtKg.Name <span style="font-size: 8pt;">(@areaCom.Kg.AtKg.KgNr)</span></td>
+                            <td>@areaCom.Rd?.Name</td>
+                            <td>@areaCom.GstNr.Replace(",", ", ")</td>
+                            <td style="text-align: right;">@($"{areaCom.Area:N0}")</td>
+                            <td style="text-align: center;">@areaCom.WineCult.Name</td>
+                            <td style="text-align: center;">Ab @areaCom.YearFrom</td>
+                        </tr>
+                        lastContract = contractType.AreaComType.DisplayName;
+                    }
+                }
+
+                <tr class="new">
+                    <th colspan="3" style="text-align: left">Gesamt</th>
+                    <th style="text-align: right">@($"{Model.Member.ActiveAreaCommitments.Select(a => a.Area).Sum():N0}")</th>
+                    <th colspan="2"></th>
+                </tr>
+
+            </tbody>
+        </table>
+
+        <table class="delivery-confirmation-stats">
+            <colgroup>
+                <col style="width: 102mm;" />
+                <col style="width: 21mm;" />
+                <col style="width: 21mm;" />
+                <col style="width: 21mm;" />
+            </colgroup>
+            <thead>
+                <tr>
+                    <th rowspan="2"></th>
+                    <th style="text-align: center;">Fläche</th>
+                    <th style="text-align: center;">Lieferpflicht</th>
+                    <th style="text-align: center;">Lieferrecht</th>
+                </tr>
+                <tr>
+                    <th style="text-align: center;">[m²]</th>
+                    <th style="text-align: center;">[kg]</th>
+                    <th style="text-align: center;">[kg]</th>
+                </tr>
+            </thead>
+            <tbody>
+                @{
+                    string FormatRow(int mode, int area, int obligation, int right) {
+                        return $"<td>{(mode == 0 || mode == 1 ? "" : area == 0 ? "-" : $"{area:N0}")}</td>" +
+                        $"<td>{(mode == 1 ? "" : obligation == 0 ? "-" : $"{obligation:N0}")}</td>" +
+                        $"<td>{(mode == 1 ? "" : right == 0 ? "-" : $"{right:N0}")}</td>";
+                    }
+                    var mBuckets = Model.MemberBuckets.Where(b => b.Value.Item2 > 0 || b.Value.Item3 > 0 || b.Value.Item4 > 0).ToList();
+                    var fbVars = mBuckets.Where(b => b.Value.Item2 > 0 || b.Value.Item3 > 0).Select(b => b.Key.Replace("_", "")).Order().ToArray();
+                    var fbs = mBuckets.Where(b => fbVars.Contains(b.Key) && b.Key.Length == 2).OrderBy(b => b.Value.Item1);
+                    var vtr = mBuckets.Where(b => fbVars.Contains(b.Key) && b.Key.Length > 2).OrderBy(b => b.Value.Item1);
+                }
+                <tr>
+                    <th>Laut gezeichneten GA</th>
+                    @Raw(FormatRow(
+                        0,
+                        0,
+                        Model.Member.BusinessShares * Model.Season.MinKgPerBusinessShare,
+                        Model.Member.BusinessShares * Model.Season.MaxKgPerBusinessShare
+                        ))
+                </tr>
+                @if (fbs.Any()) {
+                    <tr class="subheading"><th colspan="8">Flächenbindungen:</th></tr>
+                }
+                @foreach (var (id, (name, right, obligation, _, _)) in fbs) {
+                    <tr>
+                        <th>@name</th>
+                        @Raw(FormatRow(2, Model.BucketAreas[id], obligation, right))
+                    </tr>
+                }
+                @if (vtr.Any()) {
+                    <tr class="subheading"><th colspan="8">Verträge:</th></tr>
+                }
+                @foreach (var (id, (name, right, obligation, _, _)) in vtr) {
+                    <tr>
+                        <th>@name</th>
+                        @Raw(FormatRow(2, Model.BucketAreas[id], obligation, right))
+                    </tr>
+                }
+            </tbody>
+        </table>
+    } else {
+        <table class="delivery-confirmation-stats" style="margin-top: 5mm;">
+            <colgroup>
+                <col style="width: 123mm;" />
+                <col style="width: 21mm;" />
+                <col style="width: 21mm;" />
+            </colgroup>
+            <thead>
+                <tr>
+                    <th rowspan="2"></th>
+                    <th style="text-align: center;">Lieferpflicht</th>
+                    <th style="text-align: center;">Lieferrecht</th>
+                </tr>
+                <tr>
+                    <th style="text-align: center;">[kg]</th>
+                    <th style="text-align: center;">[kg]</th>
+                </tr>
+            </thead>
+            <tbody>
+                <tr>
+                    <th>Laut gezeichneten GA</th>
+                    <td>@($"{Model.Member.BusinessShares * Model.Season.MinKgPerBusinessShare:N0}")</td>
+                    <td>@($"{Model.Member.BusinessShares * Model.Season.MaxKgPerBusinessShare:N0}")</td>
+                </tr>
+            </tbody>
+        </table>
+    }
+
+</main>

Elwig/Documents/MemberDataSheet.css

@@ -0,0 +1,82 @@
+table.member {
+    border: 0.5pt solid black;
+}
+
+table.member, table.area-commitements {
+    font-size: 10pt;
+}
+
+table.member tbody th {
+    font-weight: normal;
+    font-style: italic;
+    text-align: left;
+}
+
+
+table.member thead,
+table.member tbody {
+    border: 0.5pt solid black;
+}
+
+table.area-commitements td {
+    overflow: hidden;
+}
+
+table.area-commitements thead tr th {
+    font-weight: normal;
+    font-style: italic; 
+}
+
+table.area-commitements tbody tr.contract-type {
+    margin-bottom: 10px;
+}
+
+table.area-commitements tbody td {
+    vertical-align: top;
+}
+
+table.area-commitements tr.new th {
+    border-top: 0.5pt solid black;
+}
+
+table.delivery-confirmation-stats {
+    font-size: 10pt;
+    break-inside: avoid;
+}
+
+table.delivery-confirmation-stats th,
+table.delivery-confirmation-stats td {
+    padding: 0.125mm 0;
+    overflow: hidden;
+    white-space: nowrap;
+}
+
+table.delivery-confirmation-stats tr.subheading th {
+    text-align: left;
+}
+
+table.delivery-confirmation-stats thead th {
+    font-weight: normal;
+    font-style: italic;
+    text-align: right;
+    font-size: 10pt;
+}
+
+table.delivery-confirmation-stats thead th:first-child {
+    text-align: left;
+}
+
+table.delivery-confirmation-stats td {
+    text-align: right;
+}
+
+table.delivery-confirmation-stats tbody th {
+    font-weight: normal;
+    font-style: italic;
+    text-align: left;
+}
+
+table.delivery-confirmation-stats tr.subheading th {
+    font-weight: bold;
+    border-top: 0.5pt solid black;
+}

Elwig/Helpers/AppDbContext.cs

@@ -63,6 +63,7 @@ namespace Elwig.Helpers {
         private readonly Dictionary<int, Dictionary<int, Dictionary<string, (int, int)>>> _memberRightsAndObligations = new();
         private readonly Dictionary<int, Dictionary<int, Dictionary<string, int>>> _memberDeliveryBuckets = new();
         private readonly Dictionary<int, Dictionary<int, Dictionary<string, int>>> _memberPaymentBuckets = new();
+        private readonly Dictionary<int, Dictionary<int, Dictionary<string, int>>> _memberBucketAreas = new();
 
         public AppDbContext() {
             if (App.Config.DatabaseLog != null) {
@@ -256,6 +257,24 @@ namespace Elwig.Helpers {
             _memberPaymentBuckets[year] = buckets;
         }
 
+        private async Task FetchMemberBucketAreas(int year, SqliteConnection? cnx = null) {
+            var ownCnx = cnx == null;
+            cnx ??= await ConnectAsync();
+            var buckets = new Dictionary<int, Dictionary<string, int>>();
+            using (var cmd = cnx.CreateCommand()) {
+                cmd.CommandText = $"SELECT mgnr, bucket, area FROM v_area_commitment_bucket_strict WHERE year = {year}";
+                using var reader = await cmd.ExecuteReaderAsync();
+                while (await reader.ReadAsync()) {
+                    var mgnr = reader.GetInt32(0);
+                    var bucket = reader.GetString(1);
+                    if (!buckets.ContainsKey(mgnr)) buckets[mgnr] = new();
+                    buckets[mgnr][bucket] = reader.GetInt32(2);
+                }
+            }
+            if (ownCnx) await cnx.DisposeAsync();
+            _memberBucketAreas[year] = buckets;
+        }
+
         public async Task<Dictionary<string, (int, int)>> GetMemberRightsAndObligations(int year, int mgnr, SqliteConnection? cnx = null) {
             if (!_memberRightsAndObligations.ContainsKey(year))
                 await FetchMemberRightsAndObligations(year, cnx);
@@ -274,6 +293,12 @@ namespace Elwig.Helpers {
             return _memberPaymentBuckets[year].GetValueOrDefault(mgnr, new());
         }
 
+        public async Task<Dictionary<string, int>> GetMemberBucketAreas(int year, int mgnr, SqliteConnection? cnx = null) {
+            if (!_memberBucketAreas.ContainsKey(year))
+                await FetchMemberBucketAreas(year, cnx);
+            return _memberBucketAreas[year].GetValueOrDefault(mgnr, new());
+        }
+
         public async Task<Dictionary<string, (string, int, int, int, int)>> GetMemberBuckets(int year, int mgnr, SqliteConnection? cnx = null) {
             var ownCnx = cnx == null;
             cnx ??= await ConnectAsync();

Elwig/Helpers/Utils.cs

@@ -146,6 +146,10 @@ namespace Elwig.Helpers {
             return CalcCrc16Modbus(Encoding.ASCII.GetBytes(data));
         }
 
+        public static string FormatIban(string iban) {
+            return Regex.Replace(iban, ".{4}", "$0 ");
+        }
+
         public static void RunBackground(string title, Func<Task> a) {
             Task.Run(async () => {
                 try {

Elwig/Windows/MemberAdminWindow.xaml

@@ -53,7 +53,7 @@
             <MenuItem Header="Drucken">
                 <MenuItem x:Name="Menu_Print_Letterhead" Header="Briefkopf drucken"
                           Click="Menu_Print_Letterhead_Click"/>
-                <MenuItem Header="Stammdatenblatt drucken"/>
+                <MenuItem Header="Stammdatenblatt drucken" Click="Menu_Print_Memberdata_Click"/>
                 <MenuItem Header="Briefköpfe drucken">
                     <MenuItem x:Name="Menu_Print_Letterheads_MgNr" Header="nach MgNr. sortiert" IsEnabled="False" Tag="Print"
                               Click="Menu_Print_Letterheads_MgNr_Click"/>

Elwig/Windows/MemberAdminWindow.xaml.cs

@@ -337,6 +337,20 @@ namespace Elwig.Windows {
             await PrintLetterheads(2);
         }
 
+        private async void Menu_Print_Memberdata_Click(object sender, RoutedEventArgs evt) {
+            if (MemberList.SelectedItem is not Member m)
+                return;
+            Mouse.OverrideCursor = Cursors.AppStarting;
+            using var doc = new MemberDataSheet(m, Context);
+            await doc.Generate();
+            Mouse.OverrideCursor = null;
+            if (App.Config.Debug) {
+                doc.Show();
+            } else {
+                await doc.Print();
+            }
+        }
+
         private void FocusSearchInput(object sender, RoutedEventArgs evt) {
             if (!IsEditing && !IsCreating) {
                 SearchInput.Focus();