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

This commit is contained in:
2023-11-30 01:32:11 +01:00
parent 8a6086ba6d
commit 08108f0c18
8 changed files with 473 additions and 1 deletions

View File

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

View File

@ -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();
}
}
}

View File

@ -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>

View File

@ -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;
}

View File

@ -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, int)>>> _memberRightsAndObligations = new();
private readonly Dictionary<int, Dictionary<int, Dictionary<string, int>>> _memberDeliveryBuckets = 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>>> _memberPaymentBuckets = new();
private readonly Dictionary<int, Dictionary<int, Dictionary<string, int>>> _memberBucketAreas = new();
public AppDbContext() { public AppDbContext() {
if (App.Config.DatabaseLog != null) { if (App.Config.DatabaseLog != null) {
@ -256,6 +257,24 @@ namespace Elwig.Helpers {
_memberPaymentBuckets[year] = buckets; _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) { public async Task<Dictionary<string, (int, int)>> GetMemberRightsAndObligations(int year, int mgnr, SqliteConnection? cnx = null) {
if (!_memberRightsAndObligations.ContainsKey(year)) if (!_memberRightsAndObligations.ContainsKey(year))
await FetchMemberRightsAndObligations(year, cnx); await FetchMemberRightsAndObligations(year, cnx);
@ -274,6 +293,12 @@ namespace Elwig.Helpers {
return _memberPaymentBuckets[year].GetValueOrDefault(mgnr, new()); 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) { public async Task<Dictionary<string, (string, int, int, int, int)>> GetMemberBuckets(int year, int mgnr, SqliteConnection? cnx = null) {
var ownCnx = cnx == null; var ownCnx = cnx == null;
cnx ??= await ConnectAsync(); cnx ??= await ConnectAsync();

View File

@ -146,6 +146,10 @@ namespace Elwig.Helpers {
return CalcCrc16Modbus(Encoding.ASCII.GetBytes(data)); 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) { public static void RunBackground(string title, Func<Task> a) {
Task.Run(async () => { Task.Run(async () => {
try { try {

View File

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

View File

@ -337,6 +337,20 @@ namespace Elwig.Windows {
await PrintLetterheads(2); 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) { private void FocusSearchInput(object sender, RoutedEventArgs evt) {
if (!IsEditing && !IsCreating) { if (!IsEditing && !IsCreating) {
SearchInput.Focus(); SearchInput.Focus();