CreditNote: Display under deliveries of area commitments

Elwig/Documents/CreditNote.cs

@@ -1,6 +1,7 @@
 using Elwig.Helpers;
 using Elwig.Models.Dtos;
 using Elwig.Models.Entities;
+using System.Collections.Generic;
 using System.Linq;
 
 namespace Elwig.Documents {
@@ -13,8 +14,9 @@ namespace Elwig.Documents {
         public string CurrencySymbol;
         public int Precision;
         public string MemberModifier;
+        public IEnumerable<(string Name, int Kg, decimal Amount)>? MemberUnderDeliveries;
 
-        public CreditNote(AppDbContext ctx, PaymentMember p, CreditNoteData data) :
+        public CreditNote(AppDbContext ctx, PaymentMember p, CreditNoteData data, Dictionary<string, UnderDelivery>? underDeliveries = null) :
             base($"Traubengutschrift {(p.Credit != null ? $"Nr. {p.Credit.Year}/{p.Credit.TgNr:000}" : p.Member.Name)} – {p.Variant.Name}", p.Member) {
             UseBillingAddress = true;
             ShowDateAndLocation = true;
@@ -38,5 +40,19 @@ namespace Elwig.Documents {
             DocumentId = $"Tr.-Gutschr. " + (p.Credit != null ? $"{p.Credit.Year}/{p.Credit.TgNr:000}" : p.MgNr);
             CurrencySymbol = season.Currency.Symbol ?? season.Currency.Code;
             Precision = season.Precision;
+
+            var variants = ctx.WineVarieties.ToDictionary(v => v.SortId, v => v);
+            var attributes = ctx.WineAttributes.ToDictionary(a => a.AttrId, a => a);
+            var comTypes = ctx.AreaCommitmentTypes.ToDictionary(t => t.VtrgId, t => t);
+            MemberUnderDeliveries = underDeliveries?
+                .OrderBy(u => u.Key)
+                .Select(u => (
+                    variants[u.Key[..2]].Name + (u.Key.Length > 2 ? " " + attributes[u.Key[2..]].Name : ""),
+                    u.Value.Diff,
+                    u.Value.Diff * (comTypes[u.Key].PenaltyPerKg ?? 0)
+                      - (comTypes[u.Key].PenaltyAmount ?? 0)
+                      - ((u.Value.Weight == 0 ? comTypes[u.Key].PenaltyNone : null) ?? 0)))
+                .Where(u => u.Item3 != 0)
+                .ToList();
         }
     }}