prs/prs.shared/Posters/Timberline/BillTimberlinePoster.cs

using Comal.Classes;
using ControlzEx.Standard;
using CsvHelper;
using CsvHelper.Configuration.Attributes;
using FastReport.Utils;
using InABox.Core;
using InABox.Core.Postable;
using InABox.Poster.Timberline;
using InABox.Scripting;
using Microsoft.Win32;
using System;
using System.Collections.Generic;
using System.Globalization;
using System.IO;
using System.Linq;
using System.Text;
using System.Threading.Tasks;
using static System.Windows.Forms.VisualStyles.VisualStyleElement;

namespace PRS.Shared
{
    public class BillTimberlineHeader
    {
        [Ignore]
        public List<BillTimberlineDistribution> Distributions { get; set; } = new();

        [Index(1)]
        public string RecordID { get; set; } = "APIF";

        [Index(2)]
        [TypeConverter(typeof(TimberlinePosterStringConverter), 10)]
        public string Vendor { get; set; } = "";

        [Index(3)]
        [TypeConverter(typeof(TimberlinePosterStringConverter), 15)]
        public string Invoice { get; set; } = "";

        [Index(4)]
        [TypeConverter(typeof(TimberlinePosterStringConverter), 30)]
        public string Description { get; set; } = "";

        [Index(5)]
        public double Amount { get; set; }

        [Index(6)]
        public double Tax { get; set; }

        [Index(7)]
        public double DiscountOffered { get; set; }

        [Index(8)]
        public double MiscDeduction { get; set; }

        [Index(9)]
        [TypeConverter(typeof(TimberlinePosterDateConverter))]
        public DateTime InvoiceDate { get; set; }

        [Index(10)]
        [TypeConverter(typeof(TimberlinePosterDateConverter))]
        public DateTime DateReceived { get; set; }

        [Index(11)]
        [TypeConverter(typeof(TimberlinePosterDateConverter))]
        public DateTime DiscountDate { get; set; }

        [Index(12)]
        [TypeConverter(typeof(TimberlinePosterDateConverter))]
        public DateTime PaymentDate { get; set; }

        [Index(13)]
        [TypeConverter(typeof(TimberlinePosterDateConverter))]
        public DateTime AccountingDate { get; set; }

        [Index(14)]
        [TypeConverter(typeof(TimberlinePosterStringConverter), 10)]
        public string InvoiceCode1 { get; set; } = "";

        [Index(15)]
        [TypeConverter(typeof(TimberlinePosterStringConverter), 10)]
        public string InvoiceCode2 { get; set; } = "";

        [Index(16)]
        [TypeConverter(typeof(TimberlinePosterStringConverter), 30)]
        public string SmryPayeeName { get; set; } = "";

        [Index(17)]
        [TypeConverter(typeof(TimberlinePosterStringConverter), 33)]
        public string SmryPayeeAddress1 { get; set; } = "";

        [Index(18)]
        [TypeConverter(typeof(TimberlinePosterStringConverter), 33)]
        public string SmryPayeeAddress2 { get; set; } = "";

        [Index(19)]
        [TypeConverter(typeof(TimberlinePosterStringConverter), 15)]
        public string SmryPayeeCity { get; set; } = "";

        [Index(20)]
        [TypeConverter(typeof(TimberlinePosterStringConverter), 4)]
        public string SmryPayeeState { get; set; } = "";

        [Index(21)]
        [TypeConverter(typeof(TimberlinePosterStringConverter), 10)]
        public string SmryPayeeZip { get; set; } = "";
    }

    public class BillTimberlineDistribution
    {
        [Index(1)]
        public string RecordID { get; set; } = "APDF";

        [Index(2)]
        [TypeConverter(typeof(TimberlinePosterStringConverter), 12)]
        public string Commitment { get; set; } = "";

        [Index(3)]
        public int CommitmentLineItem { get; set; }

        [Index(4)]
        [TypeConverter(typeof(TimberlinePosterStringConverter), 7)]
        public string Equipment { get; set; } = "";

        [Index(5)]
        [TypeConverter(typeof(TimberlinePosterStringConverter), 6)]
        public string EQCostCode { get; set; } = "";

        [Index(6)]
        [TypeConverter(typeof(TimberlinePosterStringConverter), 6)]
        public string Job { get; set; } = "";

        [Index(7)]
        [TypeConverter(typeof(TimberlinePosterStringConverter), 10)]
        public string Extra { get; set; } = "";

        [Index(8)]
        [TypeConverter(typeof(TimberlinePosterStringConverter), 6)]
        public string CostCode { get; set; } = "";

        [Index(9)]
        [TypeConverter(typeof(TimberlinePosterStringConverter), 3)]
        public string Category { get; set; } = "";

        [Index(10)]
        [TypeConverter(typeof(TimberlinePosterStringConverter), 10)]
        public string BLStdItem { get; set; } = "";

        [Index(11)]
        [TypeConverter(typeof(TimberlinePosterStringConverter), 8)]
        public string Reserved { get; set; } = "";

        [Index(12)]
        [TypeConverter(typeof(TimberlinePosterStringConverter), 7)]
        public string ExpenseAccount { get; set; } = "";

        [Index(13)]
        [TypeConverter(typeof(TimberlinePosterStringConverter), 7)]
        public string APAccount { get; set; } = "";

        [Index(14)]
        public double TaxablePayments { get; set; }

        [Index(15)]
        [TypeConverter(typeof(TimberlinePosterStringConverter), 6)]
        public string TaxGroup { get; set; } = "";

        [Index(16)]
        public double Units { get; set; }

        [Index(17)]
        public double UnitCost { get; set; }

        [Index(18)]
        public double Amount { get; set; }

        [Index(19)]
        public double Tax { get; set; }

        [Index(20)]
        public double TaxLiability { get; set; }

        [Index(21)]
        public double DiscountOffered { get; set; }

        [Index(22)]
        public double Retainage { get; set; }

        [Index(23)]
        public double MiscDeduction { get; set; }

        [Index(24)]
        [BooleanTrueValues("t", "T", "1", "Y", "y")]
        [BooleanFalseValues("f", "F", "0", "N", "n")]
        public bool TaxablePaymentsExempt { get; set; }

        [Index(25)]
        [TypeConverter(typeof(TimberlinePosterStringConverter), 10)]
        public string DistCode { get; set; } = "";

        [Index(26)]
        [TypeConverter(typeof(TimberlinePosterStringConverter), 10)]
        public string MiscEntry1 { get; set; } = "";

        [Index(27)]
        public double MiscEntryUnits1 { get; set; }

        [Index(28)]
        [TypeConverter(typeof(TimberlinePosterStringConverter), 10)]
        public string MiscEntry2 { get; set; } = "";

        [Index(29)]
        public double MiscEntryUnits2 { get; set; }

        [Index(30)]
        public double MeterOdometer { get; set; }

        [Index(31)]
        [TypeConverter(typeof(TimberlinePosterStringConverter), 30)]
        public string Description { get; set; } = "";

        [Index(32)]
        [TypeConverter(typeof(TimberlinePosterStringConverter), 10)]
        public string Authorization { get; set; } = "";

        [Index(33)]
        [TypeConverter(typeof(TimberlinePosterStringConverter), 30)]
        public string JointPayee { get; set; } = "";
    }

    public class BillTimberlineSettings : TimberlinePosterSettings<Bill>
    {
        protected override string DefaultScript()
        {
            return @"
using PRS.Shared;
using InABox.Core;
using System.Collections.Generic;

public class Module
{
    public void BeforePost(IDataModel<Bill> model)
    {
        // Perform pre-processing
    }

    public bool ProcessHeader(IDataModel<Bill> model, Bill bill, BillTimberlineHeader header)
    {
        // Do extra processing for a header line; return false to fail this header
        return true;
    }

    public bool ProcessLine(IDataModel<Bill> model, BillLine bill, BillTimberlineDistribution distribution)
    {
        // Do extra processing for a distribution line; return false to fail this header
        return true;
    }

    public void AfterPost(IDataModel<Bill> model)
    {
        // Perform post-processing;
    }
}";
        }
    }

    public class BillTimberlineResult : TimberlinePostResult<BillTimberlineHeader, Bill>
    {
    }

    public class BillTimberlinePoster : ITimberlinePoster<Bill, BillTimberlineSettings>
    {
        public ScriptDocument? Script { get; set; }
        public BillTimberlineSettings Settings { get; set; }

        public bool BeforePost(IDataModel<Bill> model)
        {
            model.SetIsDefault<Document>(false, alias: "CompanyLogo");
            model.SetIsDefault<CoreTable>(false, alias: "CompanyInformation");
            model.SetIsDefault<Employee>(false);

            model.SetColumns(new Columns<Bill>(x => x.ID)
                .Add(x => x.SupplierLink.Code)
                .Add(x => x.Number)
                .Add(x => x.IncTax)
                .Add(x => x.Tax)
                .Add(x => x.BillDate)
                .Add(x => x.AccountingDate)
                .Add(x => x.PaymentDate));

            model.SetColumns(new Columns<BillLine>(x => x.ID)
                .Add(x => x.BillLink.ID)
                .Add(x => x.TaxCode.Code)
                .Add(x => x.IncTax)
                .Add(x => x.Tax)
                .Add(x => x.Description)
                .Add(x => x.OrderItem.ID),
                alias: "Bill_BillLine");

            model.SetIsDefault<BillLine>(true, "Bill_BillLine");
            model.AddChildTable<BillLine, PurchaseOrderItem>(x => x.OrderItem.ID, x => x.ID, isdefault: true,
                parentalias: "Bill_BillLine", childalias: "POItem",
                columns: new Columns<PurchaseOrderItem>(x => x.ID)
                    .Add(x => x.PONumber)
                    .Add(x => x.Job.JobNumber)
                    .Add(x => x.Qty)
                    .Add(x => x.Cost));

            Script?.Execute(methodname: "BeforePost", parameters: new object[] { model });
            return true;
        }

        private bool ProcessHeader(IDataModel<Bill> model, Bill bill, BillTimberlineHeader header)
        {
            return Script?.Execute(methodname: "ProcessHeader", parameters: new object[] { model, bill, header }) != false;
        }
        private bool ProcessLine(IDataModel<Bill> model, BillLine bill, BillTimberlineDistribution distribution)
        {
            return Script?.Execute(methodname: "ProcessLine", parameters: new object[] { model, bill, distribution }) != false;
        }

        private BillTimberlineResult DoProcess(IDataModel<Bill> model)
        {
            var result = new BillTimberlineResult();

            var lines = model.GetTable<BillLine>("Bill_BillLine").ToObjects<BillLine>()
                .GroupBy(x => x.BillLink.ID).ToDictionary(x => x.Key, x => x.ToList());
            var purchaseOrderItems = model.GetTable<PurchaseOrderItem>("POItem").ToObjects<PurchaseOrderItem>()
                .ToDictionary(x => x.ID, x => x);
            foreach (var bill in model.GetTable<Bill>().ToObjects<Bill>())
            {
                var apif = new BillTimberlineHeader
                {
                    Vendor = bill.SupplierLink.Code,
                    Invoice = bill.Number,
                    Description = "",
                    Amount = bill.IncTax,
                    Tax = bill.Tax,
                    // DiscountOffered
                    // Misc. Deduction
                    InvoiceDate = bill.BillDate,
                    // DateReceived doesn't exist
                    DiscountDate = bill.BillDate,
                    PaymentDate = bill.PaymentDate,
                    AccountingDate = bill.AccountingDate,
                    // InvoiceCode1
                    // InvoiceCode2
                    // SmryPayeeName
                    // SmryPayeeAddress1
                    // SmryPayeeAddress2
                    // SmryPayeeCity
                    // SmryPayeeState
                    // SmryPayeeZip
                };
                if (!ProcessHeader(model, bill, apif))
                {
                    result.AddFailed(bill, "Failed by script.");
                }
                else
                {
                    var success = true;
                    var billLines = lines.GetValueOrDefault(bill.ID) ?? new List<BillLine>();
                    foreach (var billLine in billLines)
                    {
                        var apdf = new BillTimberlineDistribution
                        {
                            // Equipment
                            // EQ Cost Code
                            // Extra
                            // Cost Code
                            // Category
                            /// BL STd Item
                            // Reserved
                            // Expense account
                            // AP Account
                            // Taxable Payments
                            TaxGroup = billLine.TaxCode.Code,
                            Amount = billLine.IncTax,
                            Tax = billLine.Tax,
                            // Tax Liability
                            // Discount OFfered
                            // Retainage
                            // MIsc Deduction
                            // Tax Payments Exempt
                            // Dist Code
                            // Misc Entry 1
                            // Misc Units 1
                            // Misc Entry 2
                            // Misc Units 2
                            // Meter
                            Description = billLine.Description,
                            // Authorization
                            // Joint Payee
                        };
                        if (purchaseOrderItems.TryGetValue(billLine.OrderItem.ID, out var poItem))
                        {
                            apdf.Commitment = poItem.PONumber;
                            apdf.Job = poItem.Job.JobNumber;
                            if (int.TryParse(poItem.ReceivedReference, out var itemNumber))
                            {
                                apdf.CommitmentLineItem = itemNumber;
                                billLine.PostedReference = poItem.ReceivedReference;
                            }
                            apdf.Units = poItem.Qty;
                            apdf.UnitCost = poItem.Cost;
                        }

                        if (!ProcessLine(model, billLine, apdf))
                        {
                            success = false;
                            break;
                        }
                        apif.Distributions.Add(apdf);
                    }
                    if (success)
                    {
                        foreach(var billLine in billLines)
                        {
                            result.AddFragment(billLine);
                        }
                        result.AddSuccess(bill, apif);
                    }
                    else
                    {
                        result.AddFailed(bill, "Failed by script.");
                    }
                }
            }
            return result;
        }

        public IPostResult<Bill> Process(IDataModel<Bill> model)
        {
            var result = DoProcess(model);

            var dlg = new SaveFileDialog()
            {
                Filter = "CSV Files (*.csv)|*.csv"
            };

            if (dlg.ShowDialog() == true)
            {
                using var writer = new StreamWriter(dlg.FileName);
                using var csv = new CsvWriter(writer, CultureInfo.InvariantCulture);
                foreach(var apif in result.Exports)
                {
                    csv.WriteRecord(apif);
                    csv.NextRecord();
                    foreach(var apdf in apif.Distributions)
                    {
                        csv.WriteRecord(apdf);
                        csv.NextRecord();
                    }
                }
                return result;
            }
            else
            {
                throw new PostCancelledException();
            }
        }
        public void AfterPost(IDataModel<Bill> model, IPostResult<Bill> result)
        {
            Script?.Execute(methodname: "AfterPost", parameters: new object[] { model });
        }
    }

    public class BillTimberlinePosterEngine<T> : TimberlinePosterEngine<Bill, BillTimberlineSettings>
    {
    }
}