kmCustomReportsNET/ClassObj/ClsDobbsEmail_T1439.cs

using log4net;
using Dapper;
using Microsoft.Data.SqlClient;
using OfficeOpenXml;
using OfficeOpenXml.Export.ToDataTable;
using System;
using System.Collections.Generic;
using System.Data;
using System.Drawing;
using System.Linq;
using System.Net.Mail;
using System.Text;
using System.Threading.Tasks;


namespace kmCustomReportsNET.ClassObj;

internal class ClsDobbsEmail_T1439 : IDisposable
{
  public string RptSaveToFolder { get; set; } = ClsConstants.KDrive + @"\Projects\Daily Report Archive";
  public string Template1Path { get; set; } = ClsConstants.KDrive + @"\Projects\Daily Reports - Dobbs\T1439 Template 01.xlsx";
  public string BusinessName { get; set; } = "DobbsTire";
  public ClsConstants.enuReportIDs ReportID { get; internal set; } = ClsConstants.enuReportIDs.T1439;
  public bool DebugMode { get; set; } = false;

  #region "Private Variables"
  ILog appLog = LogManager.GetLogger(Program.AppName);
  DataSet? ds = null;
  List<string> FilesToAttach = new();
  string SubjectToUse = string.Empty;
  #endregion

  public void Dispose()
  {
    if (ds != null)
      ds.Dispose();
    ds = null;
    FilesToAttach.Clear();
  }

  public ClsDobbsEmail_T1439()
  {
    ExcelPackage.LicenseContext = LicenseContext.NonCommercial;
  }

  internal void Go()
  {
    if (ClsConstants.NeedToRun(ReportID.ToString()))
    {
      DateTimeOffset nxtRunTime;

      appLog.DebugFormat("{0} report is checking to see if we need to run...", ReportID.ToString());
      using (var cn = new SqlConnection(kmCommonLibsCore.Constants.cnRDB))
      {
        bool? ReportDueNow = false;

        ReportDueNow = DebugMode || cn.ExecuteScalar<bool>("Select Top 1 [NeedToSend] From [crpt].[Dobbs_EmailContestCalendar] Where [SendReport]=@Today", new { Today = DateTime.Today });
        if (ReportDueNow.HasValue && ReportDueNow.Value)
        {
          cn.Open();

          appLog.DebugFormat("{0} report is now running!", ReportID.ToString());
          using (var cm = new SqlCommand("crpt.[Dobbs_T1439_EmailContests]", cn) { CommandType = CommandType.StoredProcedure, CommandTimeout = 120 })
          using (var da = new SqlDataAdapter(cm))
          {
            //cm.Parameters.Add("@DateThruOverride", SqlDbType.Date).Value = DateTime.Parse("Oct 7, 2025");   // override the date thru date for testing
            ds = new DataSet();
            da.Fill(ds);
          }

          //

          if (ds != null && ds.Tables.Count > 2 && ds.Tables[0].Rows.Count == 1)
          {
            CreateWeeklyStandings();
            CreateDetailSnapshots();

            if (!DebugMode)
            {
              appLog.DebugFormat("{0} report is now sending out the email containing the report for this week.", ReportID.ToString());
              SendEmails();

              cn.Execute("Update [crpt].[Dobbs_EmailContestCalendar] Set [NeedToSend]=0 Where [SendReport]=@Today", new { Today = DateTime.Today });
            }
          }

          // Run it at the next 7AM I can find, starting with tomorrow
          nxtRunTime = new DateTimeOffset(DateTime.Today.AddDays(1));
        }
        else
        {
          // Run it at the next 7AM I can find
          nxtRunTime = new DateTimeOffset(DateTime.Today);
          appLog.DebugFormat("{0} report does not need to run.", ReportID.ToString());
        }
      }

      while (nxtRunTime < DateTimeOffset.Now || nxtRunTime.Hour != 7)
        nxtRunTime = nxtRunTime.AddHours(1);
      ClsConstants.SetNextRun(ReportID.ToString(), nxtRunTime);
      appLog.DebugFormat("{0} report will next check at: {1:ddd d-MMM-yyyy h:mm tt zzz}", ReportID.ToString(), nxtRunTime);
    }
  }

  private void CreateWeeklyStandings()
  {
    DataRow drDates = ds.Tables[0].Rows[0];
    string xlsFilename;
    int ctr = 0;

    SubjectToUse = string.Format("Email Capture Contest - Week {0} ({1:MMM d}-{2:MMM d}) Results", drDates["WeekNumber"], drDates["wkFrom"], drDates["wkTo"]);
    xlsFilename = Path.Combine(RptSaveToFolder, string.Format("Dobbs {0:yyyy-MM MMM} Week {1} Email Contest Results.xlsx", drDates["mthTo"], drDates["WeekNumber"]));
    if (File.Exists(xlsFilename))
    {
      string f0 = xlsFilename;
      while (File.Exists(f0))
      {
        f0 = Path.Combine(RptSaveToFolder, string.Format("Dobbs {0:yyyy-MM MMM} Week {1} Email Contest Results - OLD{2:000}.xlsx", drDates["mthTo"], drDates["WeekNumber"], ctr));
        ctr += 1;
      }
      File.Move(xlsFilename, f0);
    }

    // Standings file first

    using (var fs = new FileStream(Template1Path, FileMode.Open))
    using (var pkg = new ExcelPackage(fs))
    {
      ExcelWorksheet? s = null;  //pkg.Workbook.Worksheets[1];
      int r = 4, rTot = ds.Tables[1].Rows.Count;

      if (pkg.Workbook.Worksheets.Count < 1)
        s = pkg.Workbook.Worksheets.Add("Sheet1");
      else
        s = pkg.Workbook.Worksheets[0];

      s.Name = string.Format("{0:MMM-yyyy} Week {1} Results", drDates["mthTo"], drDates["WeekNumber"]);

      //s.Cells[1, 1].Value = string.Format("Email Contest Results\n{0:ddd MMM d} through {1:ddd MMM d, yyyy}", drDates["wkFrom"], drDates["wkTo"]);
      s.Cells[1, 1].Value = string.Format("Email Contest Results through {1:ddd MMM d, yyyy}", drDates["wkFrom"], drDates["wkTo"]);
      s.Cells[3, 3].Value = string.Format("Week {0}\nNew Emails", drDates["WeekNumber"]);

      foreach (DataRow dr in ds.Tables[1].Rows)
      {
        s.Cells[r, 1].Value = dr["Division"].ToString();
        s.Cells[r, 2].Value = Convert.ToInt32(dr["StoreNumber"]);
        s.Cells[r, 3].Value = Convert.ToInt32(dr["NewEmails"]);
        s.Cells[r, 4].Value = Convert.ToInt32(dr["TransactionsGreaterThanZero"]);
        s.Cells[r, 5].FormulaR1C1 = "=IF(RC[-1]=0,0,RC[-2]/RC[-1])";

        // Borders around each cell
        using (var rng = s.Cells[r, 1, r, 5])
        {
          rng.Style.Border.BorderAround(OfficeOpenXml.Style.ExcelBorderStyle.Thin);
          rng.Style.Border.Left.Style = OfficeOpenXml.Style.ExcelBorderStyle.Medium;
          rng.Style.Border.Right.Style = OfficeOpenXml.Style.ExcelBorderStyle.Medium;
        }

        for (int c = 1; c <= 3; c++)
          s.Cells[r, c].Style.Border.Right.Style = OfficeOpenXml.Style.ExcelBorderStyle.Thin;
        s.Cells[r, 5].Style.Border.BorderAround(OfficeOpenXml.Style.ExcelBorderStyle.Medium);

        // Shading
        if (r >= (rTot - 3 + 4))      // +4 since that's where we started
        {
          s.Cells[r, 5].Style.Fill.PatternType = OfficeOpenXml.Style.ExcelFillStyle.Solid;
          s.Cells[r, 5].Style.Fill.BackgroundColor.SetColor(Color.Red);
        }
        else
        {
          s.Cells[r, 5].Style.Fill.PatternType = OfficeOpenXml.Style.ExcelFillStyle.Solid;
          s.Cells[r, 5].Style.Fill.BackgroundColor.SetColor(Color.Yellow);
        }

        r++;
      }

      // Totals
      using (var rng = s.Cells[r, 1, r, 5])
      {
        rng.Style.Border.BorderAround(OfficeOpenXml.Style.ExcelBorderStyle.Thin);
        rng.Style.Border.Left.Style = OfficeOpenXml.Style.ExcelBorderStyle.Medium;
        rng.Style.Border.Right.Style = OfficeOpenXml.Style.ExcelBorderStyle.Medium;
        rng.Style.Fill.PatternType = OfficeOpenXml.Style.ExcelFillStyle.Solid;
        rng.Style.Fill.BackgroundColor.SetColor(Color.LightGray);
        rng.Style.Font.Bold = true;
      }
      for (int c = 1; c <= 3; c++)
        s.Cells[r, c].Style.Border.Right.Style = OfficeOpenXml.Style.ExcelBorderStyle.Thin;
      s.Cells[r, 5].Style.Border.BorderAround(OfficeOpenXml.Style.ExcelBorderStyle.Medium);

      //
      s.Cells[r, 1].Value = "Totals";
      s.Cells[r, 3].FormulaR1C1 = "=SUM(R4C:R[-1]C)";
      s.Cells[r, 4].FormulaR1C1 = "=SUM(R4C:R[-1]C)";
      s.Cells[r, 5].FormulaR1C1 = "=IF(RC[-1]=0,0,RC[-2]/RC[-1])";

      r++;
      pkg.SaveAs(xlsFilename);
      FilesToAttach.Add(xlsFilename);
    }
  }

  private void CreateDetailSnapshots()
  {
    DataRow drDates = ds.Tables[0].Rows[0];
    string xlsFilename;
    int ctr = 0;
    List<string> cols = new() { "dtRangeHumanized;Period;@","Division;Location;@",
      "TotalEmails;Total Emails;#,##0;R","NewEmails;New Emails;#,##0;R","OldEmails;Old Emails;#,##0;R",
      "Transactions;;#,##0;R","TransactionsGreaterThanZero;Invoices Greater than Zero;#,##0;R","Penetration;Penetration Rate;0.0%;R"};

    xlsFilename = Path.Combine(RptSaveToFolder, string.Format("Dobbs {0:yyyy-MM MMM} Week {1} Email Contest Detail.xlsx", drDates["mthTo"], drDates["WeekNumber"]));
    if (File.Exists(xlsFilename))
    {
      string f0 = xlsFilename;
      while (File.Exists(f0))
      {
        f0 = Path.Combine(RptSaveToFolder, string.Format("Dobbs {0:yyyy-MM MMM} Week {1} Email Contest Detail - OLD{2:000}.xlsx", drDates["mthTo"], drDates["WeekNumber"], ctr));
        ctr += 1;
      }
      File.Move(xlsFilename, f0);
    }

    using (var fs = new FileStream(xlsFilename, FileMode.Create, FileAccess.Write, FileShare.None))
    using (var pkg = new ExcelPackage(fs))
    {
      ExcelWorksheet? s = null;

      for (int tbNumber = 2; tbNumber < ds.Tables.Count; tbNumber++)
      {
        var dt = ds.Tables[tbNumber];
        int r = 2, c;

        if (dt != null && dt.Rows.Count > 0)
        {
          if (pkg.Workbook.Worksheets.Count < (tbNumber - 1))
            s = pkg.Workbook.Worksheets.Add("Sheet1");
          else
            s = pkg.Workbook.Worksheets[0];

          if (tbNumber == 2)
            s.Name = string.Format("Month of {0:MMM-yyyy}", drDates["mthTo"]); //dt.Rows[0]["dtRangeHumanized"]);
          else
            s.Name = string.Format("Week thru {0:ddd MMM d}", dt.Rows[0]["dtTo"]);

          c = 0;
          foreach (var col in cols)
          {
            var fld = col.Split(';');

            c++;
            if (fld.Length > 2 && !string.IsNullOrWhiteSpace(fld[2]))
              s.Columns[c].Style.Numberformat.Format = fld[2];
            if (fld.Length > 3 && fld[3] == "R")
              s.Columns[c].Style.HorizontalAlignment = OfficeOpenXml.Style.ExcelHorizontalAlignment.Right;

            s.Cells[1, c].Style.Numberformat.Format = "@";
            s.Cells[1, c].Style.Font.Bold = true;
            if (fld.Length > 1 && !string.IsNullOrWhiteSpace(fld[1]))
              s.Cells[1, c].Value = fld[1];
            else
              s.Cells[1, c].Value = fld[0];

            if (fld.Length > 3 && fld[3] == "R")
              s.Cells[1, c].Style.HorizontalAlignment = OfficeOpenXml.Style.ExcelHorizontalAlignment.Right;
          }

          foreach (DataRow dr in dt.Rows)
          {
            c = 0;
            foreach (var col in cols)
            {
              var fld = col.Split(';');

              s.Cells[r, ++c].Value = dr[fld[0]];
            }
            //s.Cells[r, 8].FormulaR1C1 = "=IF(RC7=0,0,RC4/RC7)";
            //s.Cells[r, 8].FormulaR1C1 = "=IF(RC6-RC5=0,0,RC4/(RC6-RC5))";
            s.Cells[r, 8].FormulaR1C1 = "=IF(RC[-2]-RC[-3]=0,0,RC[-4]/(RC[-2]-RC[-3]))";
            r++;
          }

          // Grand Totals
          r++;
          using (var rng = s.Cells[r, 1, r, 8])
            rng.Style.Font.Bold = true;

          s.Cells[r, 2].Value = "Totals";
          for (c = 3; c <= 7; c++)
          {
            s.Cells[r, c].FormulaR1C1 = "=SUM(R2C:R[-1]C)";
          }
          //s.Cells[r, 8].FormulaR1C1 = "=IF(RC7=0,0,RC4/RC7)";
          //s.Cells[r, 8].FormulaR1C1 = "=IF(RC6-RC5=0,0,RC4/(RC6-RC5))";
          s.Cells[r, 8].FormulaR1C1 = "=IF(RC[-2]-RC[-3]=0,0,RC[-4]/(RC[-2]-RC[-3]))";

          s.Cells.AutoFitColumns();
          s.View.FreezePanes(2, 1);
          s.Select("A2");
        }
      }

      pkg.Save();//As(xlsFilename);
      FilesToAttach.Add(xlsFilename);
    }
  }

  private void SendEmails()
  {
    using (var em = new kmCommonLibsCore.Emails() { SendMethod = kmCommonLibsCore.enuSendMethod.OnsiteServer, Subject = SubjectToUse })
    {
      string imgBackground, imgDisclaimer;
      StringBuilder s0 = new(), s1 = new();

      em.AddAddress(kmCommonLibsCore.enuAddressType.From, "data@keymotive.us", "KeyMotive Data Services");
      imgBackground = em.EmbedImageFile(ClsConstants.KDrive + @"\Projects\Daily Reports - COMMON\Background-Compass.jpg");
      imgDisclaimer = em.EmbedImageFile(ClsConstants.KDrive + @"\Projects\Daily Reports - COMMON\KM_Disclaimer_2.png");

      s0.AppendFormat("<body background=cid:{0}>\n", imgBackground);
      s0.AppendLine("Please find attached your custom business report. If you have any questions regarding this report, please reply to this message or contact your account manager.<br /><br />");
      s0.AppendLine("Thank you for the opportunity to service the analytical needs of your organization!<br />");
      s0.AppendLine("KeyMotive Data Services<br /><br /><br /><br />");
      s0.AppendFormat("<img alt=\"\" src=\"cid:{0}\" />\n</body>", imgDisclaimer);

      s1.AppendFormat("Please find attached your custom business report. If you have any questions regarding this report, please reply to this message or contact your account manager.\n\n");
      s1.AppendLine("Thank you for the opportunity to service the analytical needs of your organization!");
      s1.AppendLine("KeyMotive Data Services");

      for (byte grp = 0; grp < 3; grp++)
      {
        string ToAudience = new[] { "", "CC", "BCC" }[grp];
        string KeyName = string.Format("{0} MailTo{1} {2}", BusinessName, ToAudience, ReportID.ToString());
        string k0 = ClsConstants.GetCustomerRegistryItem(KeyName);

        if (string.IsNullOrEmpty(k0))
        {
          KeyName = string.Format("{0} MailTo{1}", BusinessName, ToAudience);
          k0 = ClsConstants.GetCustomerRegistryItem(KeyName);
        }

        if (!string.IsNullOrEmpty(k0))
        {
          var lst = ConvertToEmailAddressList(k0);

          foreach (var itm in lst)
          {
            switch (grp)
            {
              case 1:
                em.AddAddress(kmCommonLibsCore.enuAddressType.CC, itm.EmailAddress, itm.DisplayName);
                break;
              case 2:
                em.AddAddress(kmCommonLibsCore.enuAddressType.BCC, itm.EmailAddress, itm.DisplayName);
                break;
              default:
                em.AddAddress(kmCommonLibsCore.enuAddressType.To, itm.EmailAddress, itm.DisplayName);
                break;
            }
          }
        }
      }

      foreach (var itm in FilesToAttach)
        em.AttachFile(itm);

      em.HtmlBody = s0.ToString();
      em.TextBody = s1.ToString();
      em.Send();
    }
  }

  private List<MdlEmailAddress> ConvertToEmailAddressList(string RawAddressString)
  {
    List<MdlEmailAddress> rv = new();
    if (!string.IsNullOrWhiteSpace(RawAddressString))
    {
      string[] k1 = RawAddressString.Split(';');

      foreach (var emx in k1)
      {
        var addr = new MailAddress(emx.Trim());

        rv.Add(new MdlEmailAddress() { EmailAddress = addr.Address, DisplayName = addr.DisplayName });
      }
    }

    return rv;
  }
}