private void grdCommitmentStatusChoices_InitialiseData(TFrmPetraReportingUtils FPetraUtilsObject)
{
#region Copied from csharp/ICT/Petra/Client/MReporting/Gui/MPersonnel/StartOfCommitmentReport.ManualCode.cs
// TODO
// The following block of code should be generalized
// along with the similar code from
// StartOfCommitmentReport.ManualCode.cs.
FCommitmentStatusTable = TDataCache.TMPersonnel.GetCacheablePersonnelTable(
TCacheablePersonTablesEnum.CommitmentStatusList);
FCommitmentStatusTable.Columns.Add("Selection", System.Type.GetType("System.Boolean"));
grdCommitmentStatusChoices.Columns.Clear();
grdCommitmentStatusChoices.AddCheckBoxColumn("", FCommitmentStatusTable.Columns["Selection"], false);
grdCommitmentStatusChoices.AddTextColumn("Status", FCommitmentStatusTable.Columns[PmCommitmentStatusTable.GetCodeDBName()]);
grdCommitmentStatusChoices.AddTextColumn("Description", FCommitmentStatusTable.Columns[PmCommitmentStatusTable.GetDescDBName()]);
FCommitmentStatusTable.DefaultView.AllowNew = false;
FCommitmentStatusTable.DefaultView.AllowDelete = false;
grdCommitmentStatusChoices.DataSource = new DevAge.ComponentModel.BoundDataView(FCommitmentStatusTable.DefaultView);
grdCommitmentStatusChoices.AutoResizeGrid();
#endregion
}
/// <summary>
/// Initialisation
/// </summary>
public void InitialiseData(TFrmPetraReportingUtils APetraUtilsObject)
{
FPetraUtilsObject = APetraUtilsObject;
rbtPartner.Checked = true;
txtExtract.Enabled = false;
}
/// <summary>
/// Initialisation
/// </summary>
public void InitialiseData(TFrmPetraReportingUtils APetraUtilsObject)
{
FPetraUtilsObject = APetraUtilsObject;
FColumnParameters = new TParameterList();
FColumnParameters.Add("MaxDisplayColumns", 0);
FPetraUtilsObject.FMaxDisplayColumns = 0;
FDuringApplyOrCancel = false;
FSelectedColumn = -1;
grdColumns.SortableHeaders = false;
grdColumns.SelectionMode = SourceGrid.GridSelectionMode.Column;
grdColumns.AutoStretchColumnsToFitWidth = false;
/* Hook up event that fires when a different row is selected */
grdColumns.Selection.FocusColumnEntered += new ColumnEventHandler(this.GrdColumns_FocusColumnEntered);
grdColumns.Selection.CellLostFocus += new ChangeActivePositionEventHandler(this.GrdColumns_CellLostFocus);
grdColumns.Selection.CellGotFocus += new ChangeActivePositionEventHandler(this.GrdColumns_CellGotFocus);
btnApply.Enabled = false;
btnCancel.Enabled = false;
txtColumnWidth.Enabled = false;
cmbCalculation.Enabled = false;
}
/// <summary>
/// initialisation
/// </summary>
public void InitialiseData(TFrmPetraReportingUtils APetraUtilsObject)
{
FPetraUtilsObject = APetraUtilsObject;
// hide those fields by default
ShowCountyStateField(false);
ShowAddressDateFields(false);
// make sure date fields are not initialized with today's date but later on with default settings
dtpAddressStartFrom.Text = "";
dtpAddressStartTo.Text = "";
dtpAddressEndFrom.Text = "";
dtpAddressEndTo.Text = "";
txtPostCodeFrom.Validating += new CancelEventHandler(PostCode_Validating);
txtPostCodeTo.Validating += new CancelEventHandler(PostCode_Validating);
}
/// <summary>
/// The report will be sent to a list of email addresses derived from the Cost Centres in the supplied CostCentreFilter.
/// </summary>
/// <returns>Status string that should be shown to the user</returns>
public static String AutoEmailReports(TFrmPetraReportingUtils FormUtils, FastReportsWrapper ReportEngine,
TRptCalculator ACalc, Int32 ALedgerNumber, String ACostCentreFilter)
{
Int32 SuccessfulCount = 0;
String NoEmailAddr = "";
String FailedAddresses = "";
String SendReport = "";
//
// I need to find the email addresses for the linked partners I'm sending to.
DataTable LinkedPartners = null;
LinkedPartners = TRemote.MFinance.Setup.WebConnectors.GetLinkedPartners(ALedgerNumber, ACostCentreFilter);
LinkedPartners.DefaultView.Sort = "CostCentreCode";
foreach (DataRowView rv in LinkedPartners.DefaultView)
{
DataRow LinkedPartner = rv.Row;
if (LinkedPartner["EmailAddress"].ToString() != "")
{
ACalc.AddStringParameter("param_linked_partner_cc", LinkedPartner["CostCentreCode"].ToString());
FormUtils.WriteToStatusBar("Generate " + ReportEngine.FReportName + " Report for " + LinkedPartner["PartnerShortName"]);
MemoryStream ReportStream = ReportEngine.ExportToStream(ACalc, FastReportsWrapper.ReportExportType.Html);
if (ReportStream.Position < 1000)
{
continue; // Don't send an empty report
}
ReportStream.Position = 0;
TUC_EmailPreferences.LoadEmailDefaults();
TSmtpSender EmailSender = new TSmtpSender(
TUserDefaults.GetStringDefault("SmtpHost"),
TUserDefaults.GetInt16Default("SmtpPort"),
TUserDefaults.GetBooleanDefault("SmtpUseSsl"),
TUserDefaults.GetStringDefault("SmtpUser"),
TUserDefaults.GetStringDefault("SmtpPassword"),
"");
EmailSender.CcEverythingTo = TUserDefaults.GetStringDefault("SmtpCcTo");
EmailSender.ReplyTo = TUserDefaults.GetStringDefault("SmtpReplyTo");
if (!EmailSender.FInitOk)
{
return String.Format(
Catalog.GetString(
"Failed to set up the email server.\n Please check the settings in Preferences / Email.\n Message returned : \"{0}\""),
EmailSender.FErrorStatus);
}
String EmailBody = "";
if (TUserDefaults.GetBooleanDefault("SmtpSendAsAttachment"))
{
EmailBody = TUserDefaults.GetStringDefault("SmtpEmailBody");
EmailSender.AttachFromStream(ReportStream, ReportEngine.FReportName + ".html");
}
else
{
StreamReader sr = new StreamReader(ReportStream);
EmailBody = sr.ReadToEnd();
}
Boolean SentOk = EmailSender.SendEmail(
TUserDefaults.GetStringDefault("SmtpFromAccount"),
TUserDefaults.GetStringDefault("SmtpDisplayName"),
"*****@*****.**", //LinkedPartner["EmailAddress"]
ReportEngine.FReportName + " Report for " + LinkedPartner["PartnerShortName"] + ", Address=" + LinkedPartner["EmailAddress"],
EmailBody);
if (SentOk)
{
SuccessfulCount++;
}
else // Email didn't send for some reason
{
SendReport += String.Format(
Catalog.GetString("\r\nFailed to send to {0}. Message returned: \"{1}\"."),
LinkedPartner["EmailAddress"],
EmailSender.FErrorStatus
);
FailedAddresses += ("\r\n " + LinkedPartner["EmailAddress"]);
}
}
else // No Email Address for this Partner
{
NoEmailAddr += ("\r\n " + LinkedPartner["PartnerKey"] + " " + LinkedPartner["PartnerShortName"]);
}
}
if (SuccessfulCount > 0)
{
SendReport +=
String.Format(Catalog.GetString("\r\n{0} emailed to {1} addresses."), ReportEngine.FReportName, SuccessfulCount) + "\r\n\r\n";
}
if (NoEmailAddr != "")
{
SendReport += (Catalog.GetString("\r\nThese Partners have no email addresses:") + NoEmailAddr + "\r\n");
}
if (FailedAddresses != "")
{
SendReport += (Catalog.GetString("Failed to send email to these addresses:") + FailedAddresses + "\r\n\r\n");
}
FormUtils.WriteToStatusBar("");
return SendReport;
} // AutoEmailReports
/// <summary>
/// Instance this object and it changes the behaviour of the ReportForm UI to use FastReports if the DLL is installed.
/// </summary>
/// <param name="PetraUtilsObject"></param>
public FastReportsWrapper(TFrmPetraReportingUtils PetraUtilsObject)
{
try
{
LoadedOK = false;
FDataGetter = null;
FPetraUtilsObject = PetraUtilsObject;
// we do not support FastReports in the Open Source fork of OpenPetra
return;
}
catch (Exception e)
{
TLogging.Log("FastReports Wrapper (" + FReportName + ") Not loaded: " + e.Message);
}
}
private void InitManualCode()
{
FCurrentUser = UserInfo.GUserInfo.UserID;
FPetraUtilsObject = new TFrmPetraReportingUtils(this, this, null);
}
/// <summary>
/// Instance this object and it changes the behaviour of the ReportForm UI to use FastReports if the DLL is installed.
/// </summary>
/// <param name="PetraUtilsObject"></param>
public FastReportsWrapper(TFrmPetraReportingUtils PetraUtilsObject)
{
try
{
LoadedOK = false;
FDataGetter = null;
FPetraUtilsObject = PetraUtilsObject;
if (!LoadDll())
{
return;
}
FReportName = FPetraUtilsObject.FReportName;
if (!LoadDefaultTemplate())
{
return;
}
FPetraUtilsObject.DelegateGenerateReportOverride = GenerateReport;
FPetraUtilsObject.DelegateViewReportOverride = DesignReport;
FPetraUtilsObject.DelegateCancelReportOverride = CancelReportGeneration;
FPetraUtilsObject.EnableDisableSettings(false);
FInitState = TInitState.LoadedOK;
LoadedOK = true;
}
catch (Exception) // If there's no FastReports DLL, this object will do nothing.
{
// TLogging.Log("FastReports Wrapper Not loaded: " + e.Message);
}
}
/// <summary>
/// Initialisation
/// </summary>
public void InitialiseData(TFrmPetraReportingUtils APetraUtilsObject)
{
FPetraUtilsObject = APetraUtilsObject;
}
/// <summary>
/// Data loader for HOSA data,
/// Made static so it can be called from Stewardship Reports
/// </summary>
public static Boolean LoadReportDataStaticInner(Form ParentForm,
TFrmPetraReportingUtils UtilsObject,
FastReportsWrapper ReportingEngine,
TRptCalculator ACalc)
{
Shared.MReporting.TParameterList pm = ACalc.GetParameters();
String Csv = "";
//
// My "a_transaction" table forms the lower half of the HOSA:
// All transactions for all the "Expense" accounts for the selected Cost Centre within the selected dates or periods.
String LedgerFilter = "a_ledger_number_i=" + pm.Get("param_ledger_number_i").ToInt32();
String TranctDateFilter = ""; // Optional Date Filter, as periods or dates
String CostCentreCodes = pm.Get("param_cost_centre_codes").ToString();
if (CostCentreCodes == String.Empty)
{
MessageBox.Show(Catalog.GetString("Please select one or more Cost Centres."), "HOSA");
return false;
}
String CostCentreFilter = "";
if (CostCentreCodes == "ALL")
{
CostCentreFilter = " AND a_cost_centre.a_cost_centre_type_c='Foreign' ";
}
else
{
CostCentreCodes = CostCentreCodes.Replace('"', '\'');
ACalc.AddStringParameter("param_cost_centre_codes", CostCentreCodes);
CostCentreFilter = " AND a_cost_centre.a_cost_centre_code_c IN (" + CostCentreCodes + ") ";
}
if (pm.Get("param_period").ToBool() == true)
{
Int32 PeriodStart = pm.Get("param_start_period_i").ToInt32();
Int32 PeriodEnd = pm.Get("param_end_period_i").ToInt32();
DateTime DateStart = pm.Get("param_start_date").ToDate();
DateTime DateEnd = pm.Get("param_end_date").ToDate();
ALedgerTable LedgerDetailsTable = (ALedgerTable)TDataCache.TMFinance.GetCacheableFinanceTable(
TCacheableFinanceTablesEnum.LedgerDetails);
ALedgerRow LedgerRow = LedgerDetailsTable[0];
Boolean IsClosed = (!pm.Get("param_current_financial_year").ToBool() || (PeriodEnd < LedgerRow.CurrentPeriod));
ACalc.AddParameter("param_period_closed", IsClosed);
Boolean IsCurrent = (pm.Get("param_current_financial_year").ToBool() && (PeriodEnd == LedgerRow.CurrentPeriod));
ACalc.AddParameter("param_period_current", IsCurrent);
String PeriodTitle = " (" + DateStart.ToString("dd-MMM-yyyy") + " - " + DateEnd.ToString("dd-MMM-yyyy") + ")";
if (PeriodEnd > PeriodStart)
{
PeriodTitle = String.Format("{0} - {1}", PeriodStart, PeriodEnd) + PeriodTitle;
}
else
{
PeriodTitle = String.Format("{0}", PeriodStart) + PeriodTitle;
}
pm.Add("param_date_title", PeriodTitle);
}
else
{
String PeriodTitle = " " + pm.Get("param_start_date").DateToString("yyyy-MM-dd") + " - " +
pm.Get("param_end_date").DateToString("yyyy-MM-dd");
pm.Add("param_date_title", PeriodTitle);
}
TranctDateFilter = "a_transaction_date_d>='" + pm.Get("param_start_date").DateToString("yyyy-MM-dd") +
"' AND a_transaction_date_d<='" + pm.Get("param_end_date").DateToString("yyyy-MM-dd") + "'";
Csv = StringHelper.AddCSV(Csv,
"AAccount/SELECT * FROM a_account WHERE " + LedgerFilter + " AND a_posting_status_l=true AND a_account_active_flag_l=true");
Csv = StringHelper.AddCSV(Csv,
"ACostCentre/SELECT * FROM a_cost_centre WHERE " + LedgerFilter + CostCentreFilter +
" AND a_posting_cost_centre_flag_l=true AND a_cost_centre_active_flag_l=true");
Csv = StringHelper.AddCSV(
Csv,
"ATransaction/SELECT a_transaction.* FROM a_transaction, a_cost_centre WHERE a_transaction." + LedgerFilter +
" AND " + TranctDateFilter +
" AND NOT (a_system_generated_l = true AND (a_narrative_c LIKE 'Gifts received - Gift Batch%' OR a_narrative_c LIKE 'GB - Gift Batch%' OR a_narrative_c LIKE 'Year end re-allocation%'))"
+
" AND a_transaction.a_ledger_number_i = a_cost_centre.a_ledger_number_i " +
" AND a_transaction.a_cost_centre_code_c = a_cost_centre.a_cost_centre_code_c " +
CostCentreFilter +
" ORDER BY a_account_code_c, a_transaction_date_d");
GLReportingTDS ReportDs = TRemote.MReporting.WebConnectors.GetReportingDataSet(Csv);
ArrayList reportParam = ACalc.GetParameters().Elems;
Dictionary <String, TVariant>paramsDictionary = new Dictionary <string, TVariant>();
foreach (Shared.MReporting.TParameter p in reportParam)
{
if (p.name.StartsWith("param") && (p.name != "param_calculation"))
{
paramsDictionary.Add(p.name, p.value);
}
}
DataTable GiftsTable = TRemote.MReporting.WebConnectors.GetReportDataTable("HOSA", paramsDictionary);
DataTable KeyMinGiftsTable = TRemote.MReporting.WebConnectors.GetReportDataTable("FieldGifts", paramsDictionary);
//
// I'm going to get rid of any Cost Centres that saw no activity in the requested period:
for (Int32 Idx = ReportDs.ACostCentre.Rows.Count - 1; Idx >= 0; Idx--)
{
ACostCentreRow Row = ReportDs.ACostCentre[Idx];
ReportDs.ATransaction.DefaultView.RowFilter = String.Format("a_cost_centre_code_c='{0}'", Row.CostCentreCode);
GiftsTable.DefaultView.RowFilter = String.Format("CostCentre='{0}'", Row.CostCentreCode);
if ((ReportDs.ATransaction.DefaultView.Count == 0) && (GiftsTable.DefaultView.Count == 0))
{
ReportDs.ACostCentre.Rows.Remove(Row);
}
}
if (ParentForm.IsDisposed)
{
return false;
}
if (GiftsTable == null)
{
UtilsObject.WriteToStatusBar("Report Cancelled.");
return false;
}
ReportingEngine.RegisterData(GiftsTable, "Gifts");
ReportingEngine.RegisterData(KeyMinGiftsTable, "FieldGifts");
ReportingEngine.RegisterData(ReportDs.AAccount, "a_account");
ReportingEngine.RegisterData(ReportDs.ACostCentre, "a_costCentre");
ReportingEngine.RegisterData(ReportDs.ATransaction, "a_transaction");
Boolean HasData = (ReportDs.ATransaction.Rows.Count > 0) || (GiftsTable.Rows.Count > 0);
if (!HasData)
{
MessageBox.Show(Catalog.GetString("No Transactions found for selected Cost Centres."), "HOSA");
}
return HasData;
}
