using Elwig.Helpers;
using Elwig.Models.Entities;
using System.Collections.Generic;
using System.Linq;

namespace Elwig.Documents {
    public abstract class BusinessDocument : Document {

        public bool ShowDateAndLocation = false;

        public Member Member;
        public bool IncludeSender = false;
        public bool UseBillingAddress = false;
        public string Aside;
        public string? Location;

        public BusinessDocument(string title, Member m, bool includeSender = false) : base(title) {
            Member = m;
            Location = App.BranchLocation;
            IncludeSender = includeSender;
            var uid = (m.UstIdNr ?? "-") + (m.IsBuchführend ? "" : " <i>(pauschaliert)</i>");
            Aside = $"<table><colgroup><col span='1' style='width: 22.5mm;'/><col span='1' style='width: 42.5mm;'/></colgroup>" +
                $"<thead><tr><th colspan='2'>Mitglied</th></tr></thead><tbody>" +
                $"<tr><th>Mitglieds-Nr.</th><td>{m.MgNr}</td></tr>" +
                $"<tr><th>Betriebs-Nr.</th><td>{m.LfbisNr}</td></tr>" +
                $"<tr><th>UID</th><td>{uid}</td></tr>" +
                $"</tbody></table>";
        }

        public string Address {
            get {
                IAddress addr = (Member.BillingAddress != null && UseBillingAddress) ? Member.BillingAddress : Member;
                var plz = addr.PostalDest.AtPlz;
                return (addr is BillingAddr ? $"{addr.Name}\n" : "") + $"{Member.AdministrativeName}\n{addr.Address}\n{plz?.Plz} {plz?.Ort.Name.Split(",")[0]}\n{addr.PostalDest.Country.Name}";
            }
        }

        private static string GetColGroup(IEnumerable<double> cols) {
            return "<colgroup>\n" + string.Join("\n", cols.Select(g => $"<col style=\"width: {g}mm;\"/>")) + "\n</colgroup>\n";
        }

        public static string PrintSortenaufteilung(Dictionary<string, MemberBucket> buckets) {
            List<string> attributes = ["_", ""];
            List<string> names = ["kein Qual.Wein", "ohne Attribut"];
            List<(string, string)> bucketAttrs = [
                .. buckets
                .Where(b => b.Key.Length > 2 && b.Key[2] != '_' && b.Value.DeliveryStrict > 0)
                .Select(b => (b.Key[2..], b.Value.Name.Split("(")[1][..^1]))
                .Distinct()
                .OrderBy(v => v.Item1)
            ];
            names.AddRange(bucketAttrs.Select(b => b.Item2));
            names.Add("Gesamt");
            attributes.AddRange(bucketAttrs.Select(b => b.Item1));

            List<double> cols = [40];
            cols.AddRange(names.Select(_ => 125.0 / names.Count));
            string tbl = GetColGroup(cols);
            tbl += "<thead><tr>" +
                $"<th><b>Sortenaufteilung</b> [kg]</th>" +
                string.Join("", names.Select(c => $"<th>{c}</th>")) +
                "</tr></thead>";

            tbl += string.Join("\n", buckets
                .GroupBy(b => (b.Key[..2], b.Value.Name.Split("(")[0].Trim()))
                .Where(g => g.Sum(a => a.Value.DeliveryStrict) > 0)
                .OrderBy(g => g.Key.Item1)
                .Select(g => {
                    var dict = g.ToDictionary(a => a.Key[2..], a => a.Value);
                    var vals = attributes.Select(a => dict.TryGetValue(a, out MemberBucket value) ? value.DeliveryStrict : 0).ToList();
                    return $"<tr><th>{g.Key.Item2}</th>" + string.Join("", vals.Select(v => "<td class=\"number\">" + (v == 0 ? "-" : $"{v:N0}") + "</td>")) +
                        $"<td class=\"number\">{dict.Values.Select(v => v.DeliveryStrict).Sum():N0}</td></tr>";
                })
            );
            var totalDict = buckets.GroupBy(b => b.Key[2..]).ToDictionary(g => g.Key, g => g.Sum(a => a.Value.DeliveryStrict));
            var totals = attributes.Select(a => totalDict.TryGetValue(a, out int value) ? value : 0);
            tbl += "<tr class=\"sum\"><td></td>" + string.Join("", totals.Select(v => $"<td class=\"number\">{v:N0}</td>")) +
                $"<td class=\"number\">{totalDict.Values.Sum():N0}</td></tr>";

            return "<table class=\"sortenaufteilung small number cohere\">" + tbl + "</table>";
        }

        private static string FormatRow(int obligation, int right, int delivery, int? payment = null, bool isGa = false, bool showPayment = false) {
            payment ??= delivery;
            var baseline = showPayment ? payment : delivery;
            return $"<td>{(obligation == 0 ? "-" : $"{obligation:N0}")}</td>" +
                $"<td>{(right == 0 ? "-" : $"{right:N0}")}</td>" +
                $"<td>{(baseline < obligation ? $"<b>{obligation - baseline:N0}</b>" : "-")}</td>" +
                $"<td>{(baseline >= obligation && delivery <= right ? $"{right - delivery:N0}" : "-")}</td>" +
                $"<td>{(obligation == 0 && right == 0 ? "-" : (delivery > right ? ((isGa ? "<b>" : "") + $"{delivery - right:N0}" + (isGa ? "</b>" : "")) : "-"))}</td>" +
                (showPayment ? $"<td>{(isGa ? "" : obligation == 0 && right == 0 ? "-" : $"{payment:N0}")}</td>" : "") +
                $"<td>{delivery:N0}</td>";
        }

        private static string FormatRow(MemberBucket bucket, bool isGa = false, bool showPayment = false) {
            return FormatRow(bucket.Obligation, bucket.Right, bucket.Delivery, bucket.Payment, isGa, showPayment);
        }

        public string PrintBucketTable(Season season, Dictionary<string, MemberBucket> buckets, bool includePayment = false, bool isTiny = false, IEnumerable<string>? filter = null) {
            string tbl = GetColGroup(includePayment ? [45, 17, 17, 17, 19, 16, 17, 17] : [45, 20, 20, 20, 20, 20, 20]);
            tbl += $"""
                <thead>
                    <tr>
                        <th><b>Lese {season.Year}</b> per {Date:dd.MM.yyyy} [kg]</th>
                        <th>Lieferpflicht</th>
                        <th>Lieferrecht</th>
                        <th>Unterliefert</th>
                        <th>Noch lieferbar</th>
                        <th>Überliefert</th>
                        {(includePayment ? "<th>Zugeteilt</th>" : "")}
                        <th>Geliefert</th>
                    </tr>
                </thead>
                """;

            var mBuckets = buckets
                .Where(b => (b.Value.Right > 0 || b.Value.Obligation > 0 || b.Value.Delivery > 0) && (filter == null || filter.Contains(b.Key[..2])))
                .ToList();
            var fbVars = mBuckets
                .Where(b => b.Value.Right > 0 || b.Value.Obligation > 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.Name);
            var vtr = mBuckets
                .Where(b => fbVars.Contains(b.Key) && b.Key.Length > 2)
                .OrderBy(b => b.Value.Name);
            var rem = mBuckets
                .Where(b => !fbVars.Contains(b.Key))
                .OrderBy(b => b.Value.Name);

            tbl += "\n<tbody>\n";
            tbl += $"<tr><th>Gesamtlieferung lt. gez. GA</th>{FormatRow(
                    Member.BusinessShares * season.MinKgPerBusinessShare,
                    Member.BusinessShares * season.MaxKgPerBusinessShare,
                    Member.Deliveries.Where(d => d.Year == season.Year).Sum(d => d.Weight),
                    isGa: true, showPayment: includePayment
                )}</tr>";
            if (fbs.Any()) {
                tbl += $"<tr class=\"subheading{(filter == null ? " border" : "")}\"><th colspan=\"{(includePayment ? 8 : 7)}\">" +
                    $"Flächenbindungen{(vtr.Any() ? " (inkl. Verträge)" : "")}:</th></tr>";
                foreach (var (id, b) in fbs) {
                    tbl += $"<tr><th>{b.Name}</th>{FormatRow(b, showPayment: includePayment)}</tr>";
                }
            }
            if (vtr.Any()) {
                tbl += $"<tr class=\"subheading{(filter == null ? " border" : "")}\"><th colspan=\"{(includePayment ? 8 : 7)}\">" +
                    "Verträge:</th></tr>";
                foreach (var (id, b) in vtr) {
                    tbl += $"<tr><th>{b.Name}</th>{FormatRow(b, showPayment: includePayment)}</tr>";
                }
            }
            tbl += "\n</tbody>\n";

            return $"<table class=\"buckets {(isTiny ? "tiny" : "small")} number cohere\">\n" + tbl + "\n</table>";
        }
    }
}