private void ReadControlsManual(TRptCalculator ACalc, TReportActionEnum AReportAction)
{
ACalc.AddParameter("param_ledger_number_i", FLedgerNumber);
ACalc.AddParameter("param_with_analysis_attributes", true);
ACalc.AddColumnLayout(6, 23, 0, 3);
ACalc.AddColumnLayout(7, 26, 0, 3);
ACalc.SetMaxDisplayColumns(8);
ACalc.AddColumnCalculation(6, "AnalysisType");
ACalc.AddColumnCalculation(7, "AnalysisValue");
}
private void ReadControlsManual(TRptCalculator ACalc, TReportActionEnum AReportAction)
{
ACalc.AddParameter("param_ledger_number_i", FLedgerNumber);
ACalc.AddColumnLayout(0, 8, 0, 3);
ACalc.AddColumnLayout(1, 11, 0, 3);
ACalc.AddColumnLayout(2, 14, 0, 7);
ACalc.SetMaxDisplayColumns(3);
ACalc.AddColumnCalculation(0, "Debit");
ACalc.AddColumnCalculation(1, "Credit");
ACalc.AddParameter("param_daterange", "false");
}
private void ReadControlsManual(TRptCalculator ACalc, TReportActionEnum AReportAction)
{
ACalc.AddColumnLayout(0, 8, 0, 3);
ACalc.AddColumnLayout(1, 11, 0, 3);
ACalc.SetMaxDisplayColumns(2);
ACalc.AddColumnCalculation(0, "Debit");
ACalc.AddColumnCalculation(1, "Credit");
ACalc.AddParameter("param_ledger_number_i", FLedgerNumber);
ACalc.AddParameter("param_with_analysis_attributes", false);
ACalc.AddParameter("param_depth", "summary");
ACalc.AddParameter("param_sortby", "Cost Centre");
}
private void ReadControlsManual(TRptCalculator ACalc, TReportActionEnum AReportAction)
{
ACalc.AddParameter("param_ledger_number_i", FLedgerNumber);
ACalc.AddColumnLayout(0, 8, 0, 3);
ACalc.AddColumnLayout(1, 11, 0, 3);
ACalc.AddColumnLayout(2, 14, 0, 7);
ACalc.SetMaxDisplayColumns(3);
ACalc.AddColumnCalculation(0, "Debit");
ACalc.AddColumnCalculation(1, "Credit");
ACalc.AddColumnCalculation(2, "Transaction Narrative");
ACalc.AddParameter("param_daterange", "false");
ACalc.AddParameter("param_rgrAccounts", "AllAccounts");
ACalc.AddParameter("param_rgrCostCentres", "CostCentreList");
// TODO need to allow to specify an ICH run number
ACalc.AddParameter("param_ich_number", 0);
ACalc.AddStringParameter("param_cost_centre_codes", clbCostCentres.GetCheckedStringList(true));
}
private void ReadControlsManual(TRptCalculator ACalc, TReportActionEnum AReportAction)
{
if ((AReportAction == TReportActionEnum.raGenerate)
&& (rbtPartner.Checked && (txtRecipient.Text == "0000000000")))
{
TVerificationResult VerificationResult = new TVerificationResult(
Catalog.GetString("No recipient selected."),
Catalog.GetString("Please select a recipient."),
TResultSeverity.Resv_Critical);
FPetraUtilsObject.AddVerificationResult(VerificationResult);
}
if ((AReportAction == TReportActionEnum.raGenerate)
&& rbtExtract.Checked
&& (txtExtract.Text == ""))
{
TVerificationResult VerificationMessage = new TVerificationResult(
Catalog.GetString("Enter an extract name."),
Catalog.GetString("No extract name entered!"), TResultSeverity.Resv_Critical);
FPetraUtilsObject.AddVerificationResult(VerificationMessage);
}
if ((AReportAction == TReportActionEnum.raGenerate)
&& rbtSelectedFields.Checked
&& (clbFields.GetCheckedStringList().Length == 0))
{
TVerificationResult VerificationMessage = new TVerificationResult(
Catalog.GetString("Please select at least one field."),
Catalog.GetString("No fields selected!"), TResultSeverity.Resv_Critical);
FPetraUtilsObject.AddVerificationResult(VerificationMessage);
}
if ((AReportAction == TReportActionEnum.raGenerate)
&& rbtSelectedTypes.Checked
&& (clbTypes.GetCheckedStringList().Length == 0))
{
TVerificationResult VerificationMessage = new TVerificationResult(
Catalog.GetString("Please select at least one type."),
Catalog.GetString("No types selected!"), TResultSeverity.Resv_Critical);
FPetraUtilsObject.AddVerificationResult(VerificationMessage);
}
ACalc.AddParameter("param_recipient_key", txtRecipient.Text);
ACalc.AddParameter("param_extract_name", txtExtract.Text);
ACalc.AddParameter("param_ledger_number_i", FLedgerNumber);
//TODO: Calendar vs Financial Date Handling - Confirm that these should not be ledger dates, i.e. allowing for >12 periods and non-calendar period boundaries
DateTime FromDateThisYear = new DateTime(DateTime.Today.Year, 1, 1);
DateTime ToDatePreviousYear = new DateTime(DateTime.Today.Year - 1, 12, 31);
DateTime FromDatePreviousYear = new DateTime(DateTime.Today.Year - 1, 1, 1);
ACalc.AddParameter("Year0", DateTime.Today.Year);
ACalc.AddParameter("Year1", DateTime.Today.Year - 1);
ACalc.AddParameter("Year2", DateTime.Today.Year - 2);
ACalc.AddParameter("Year3", DateTime.Today.Year - 3);
ACalc.AddParameter("param_to_date_0", DateTime.Today);
ACalc.AddParameter("param_from_date_0", FromDateThisYear);
ACalc.AddParameter("param_to_date_1", ToDatePreviousYear);
ACalc.AddParameter("param_from_date_1", FromDatePreviousYear);
ACalc.AddParameter("param_to_date_2", ToDatePreviousYear.AddYears(-1));
ACalc.AddParameter("param_from_date_2", FromDatePreviousYear.AddYears(-1));
ACalc.AddParameter("param_to_date_3", ToDatePreviousYear.AddYears(-2));
ACalc.AddParameter("param_from_date_3", FromDatePreviousYear.AddYears(-2));
int ColumnCounter = 0;
ACalc.AddParameter("param_calculation", "PartnerKey", ColumnCounter);
ACalc.AddParameter("ColumnWidth", (float)2.5, ColumnCounter);
++ColumnCounter;
ACalc.AddParameter("param_calculation", "DonorName", ColumnCounter);
ACalc.AddParameter("ColumnWidth", (float)6.0, ColumnCounter);
++ColumnCounter;
ACalc.AddParameter("param_calculation", "DonorClass", ColumnCounter);
ACalc.AddParameter("ColumnWidth", (float)3.0, ColumnCounter);
++ColumnCounter;
ACalc.AddParameter("param_calculation", "Year-0", ColumnCounter);
ACalc.AddParameter("ColumnWidth", (float)2.0, ColumnCounter);
++ColumnCounter;
ACalc.AddParameter("param_calculation", "Year-1", ColumnCounter);
ACalc.AddParameter("ColumnWidth", (float)2.0, ColumnCounter);
++ColumnCounter;
ACalc.AddParameter("param_calculation", "Year-2", ColumnCounter);
ACalc.AddParameter("ColumnWidth", (float)2.0, ColumnCounter);
++ColumnCounter;
ACalc.AddParameter("param_calculation", "Year-3", ColumnCounter);
ACalc.AddParameter("ColumnWidth", (float)2.0, ColumnCounter);
++ColumnCounter;
ACalc.SetMaxDisplayColumns(ColumnCounter);
}
private void ReadControlsManual(TRptCalculator ACalc, TReportActionEnum AReportAction)
{
if (AReportAction == TReportActionEnum.raGenerate)
{
if (rbtPartner.Checked && (txtDonor.Text == "0000000000"))
{
TVerificationResult VerificationResult = new TVerificationResult(
Catalog.GetString("No donor selected."),
Catalog.GetString("Please select a donor."),
TResultSeverity.Resv_Critical);
FPetraUtilsObject.AddVerificationResult(VerificationResult);
}
if (rbtExtract.Checked && (txtExtract.Text == ""))
{
TVerificationResult VerificationMessage = new TVerificationResult(
Catalog.GetString("Enter an extract name"),
Catalog.GetString("No extract name entered!"), TResultSeverity.Resv_Critical);
FPetraUtilsObject.AddVerificationResult(VerificationMessage);
}
if (txtMinAmount.NumberValueInt > txtMaxAmount.NumberValueInt)
{
TVerificationResult VerificationResult = new TVerificationResult(
Catalog.GetString("Gift Limit wrong."),
Catalog.GetString("Minimum Amount can't be greater than Maximum Amount."),
TResultSeverity.Resv_Critical);
FPetraUtilsObject.AddVerificationResult(VerificationResult);
}
if (!dtpFromDate.ValidDate() || !dtpToDate.ValidDate())
{
TVerificationResult VerificationResult = new TVerificationResult(
Catalog.GetString("Date format problem"),
Catalog.GetString("Please check the date entry."),
TResultSeverity.Resv_Critical);
FPetraUtilsObject.AddVerificationResult(VerificationResult);
}
if ((cmbReportType.SelectedItem.ToString() == "Complete")
&& (dtpFromDate.Date > dtpToDate.Date))
{
TVerificationResult VerificationResult = new TVerificationResult(
Catalog.GetString("From date is later than to date."),
Catalog.GetString("Please change from date or to date."),
TResultSeverity.Resv_Critical);
FPetraUtilsObject.AddVerificationResult(VerificationResult);
}
}
ACalc.AddParameter("param_ledger_number_i", FLedgerNumber);
ACalc.AddParameter("param_donorkey", txtDonor.Text);
ACalc.AddParameter("param_extract_name", txtExtract.Text);
//TODO: Calendar vs Financial Date Handling - Confirm that these should not be ledger dates, i.e. allowing for >12 periods and non-calendar period boundaries
DateTime FromDateThisYear = new DateTime(DateTime.Today.Year, 1, 1);
DateTime ToDatePreviousYear = new DateTime(DateTime.Today.Year - 1, 12, 31);
DateTime FromDatePreviousYear = new DateTime(DateTime.Today.Year - 1, 1, 1);
ACalc.AddParameter("param_end_date_this_year", DateTime.Today);
ACalc.AddParameter("param_start_date_this_year", FromDateThisYear);
ACalc.AddParameter("param_end_date_previous_year", ToDatePreviousYear);
ACalc.AddParameter("param_start_date_previous_year", FromDatePreviousYear);
if (cmbReportType.SelectedItem.ToString() == "Totals")
{
DateTime FromDate = new DateTime(DateTime.Today.Year - 3, 1, 1);
ACalc.RemoveParameter("param_from_date");
ACalc.RemoveParameter("param_to_date");
ACalc.AddParameter("param_from_date", FromDate);
ACalc.AddParameter("param_to_date", DateTime.Today);
ACalc.AddParameter("Month0", 1);
ACalc.AddParameter("Month1", 2);
ACalc.AddParameter("Year0", DateTime.Today.Year);
ACalc.AddParameter("Year1", DateTime.Today.Year - 1);
ACalc.AddParameter("Year2", DateTime.Today.Year - 2);
ACalc.AddParameter("Year3", DateTime.Today.Year - 3);
int ColumnCounter = 0;
ACalc.AddParameter("param_calculation", "Month", ColumnCounter);
ACalc.AddParameter("ColumnWidth", (float)3.0, ColumnCounter);
++ColumnCounter;
ACalc.AddParameter("param_calculation", "Year-0", ColumnCounter);
ACalc.AddParameter("ColumnWidth", (float)2.0, ColumnCounter);
++ColumnCounter;
ACalc.AddParameter("param_calculation", "Count-0", ColumnCounter);
ACalc.AddParameter("ColumnWidth", (float)0.8, ColumnCounter);
++ColumnCounter;
ACalc.AddParameter("param_calculation", "Year-1", ColumnCounter);
ACalc.AddParameter("ColumnWidth", (float)2.0, ColumnCounter);
++ColumnCounter;
ACalc.AddParameter("param_calculation", "Count-1", ColumnCounter);
ACalc.AddParameter("ColumnWidth", (float)0.8, ColumnCounter);
++ColumnCounter;
ACalc.AddParameter("param_calculation", "Year-2", ColumnCounter);
ACalc.AddParameter("ColumnWidth", (float)2.0, ColumnCounter);
++ColumnCounter;
ACalc.AddParameter("param_calculation", "Count-2", ColumnCounter);
ACalc.AddParameter("ColumnWidth", (float)0.8, ColumnCounter);
++ColumnCounter;
ACalc.AddParameter("param_calculation", "Year-3", ColumnCounter);
ACalc.AddParameter("ColumnWidth", (float)2.0, ColumnCounter);
++ColumnCounter;
ACalc.AddParameter("param_calculation", "Count-3", ColumnCounter);
ACalc.AddParameter("ColumnWidth", (float)0.8, ColumnCounter);
++ColumnCounter;
ACalc.SetMaxDisplayColumns(ColumnCounter);
}
else
{
int MaxColumns = ACalc.GetParameters().Get("MaxDisplayColumns").ToInt();
for (int Counter = 0; Counter <= MaxColumns; ++Counter)
{
String ColumnName = ACalc.GetParameters().Get("param_calculation", Counter, 0).ToString();
if (ColumnName == "Gift Amount")
{
ACalc.AddParameter("param_gift_amount_column", Counter);
}
}
}
}
private void ReadControlsManual(TRptCalculator ACalc, TReportActionEnum AReportAction)
{
ACalc.AddColumnLayout(0, 0, 0, 19);
ACalc.SetMaxDisplayColumns(1);
ACalc.AddColumnCalculation(0, "Emergency Data");
}
private void ReadControlsManual(TRptCalculator ACalc, TReportActionEnum AReportAction)
{
if ((AReportAction == TReportActionEnum.raGenerate)
&& (clbFields.GetCheckedStringList().Length == 0))
{
TVerificationResult VerificationMessage = new TVerificationResult(
Catalog.GetString("Please select at least one field."),
Catalog.GetString("No fields selected!"), TResultSeverity.Resv_Critical);
FPetraUtilsObject.AddVerificationResult(VerificationMessage);
}
int Years = Convert.ToInt16(txtYears.Text);
if ((AReportAction == TReportActionEnum.raGenerate)
&& ((Years > 4) || (Years < 1)))
{
TVerificationResult VerificationMessage = new TVerificationResult(
Catalog.GetString("Set the year range between 1 and 4"),
Catalog.GetString("Wrong year range entered"), TResultSeverity.Resv_Critical);
FPetraUtilsObject.AddVerificationResult(VerificationMessage);
}
ACalc.AddParameter("param_ledger_number_i", FLedgerNumber);
ACalc.AddParameter("Year0", DateTime.Today.Year);
ACalc.AddParameter("param_Year0", DateTime.Today.Year);
ACalc.AddParameter("Year3", DateTime.Today.Year - 3);
ACalc.AddParameter("Month0", 1);
ACalc.AddParameter("Month1", 2);
ACalc.AddParameter("MonthCombined", 0);
ACalc.AddParameter("CountCombined", 0);
int ColumnCounter = 0;
ACalc.AddParameter("param_calculation", "Month", ColumnCounter);
ACalc.AddParameter("ColumnWidth", (float)4, ColumnCounter);
++ColumnCounter;
ACalc.AddParameter("param_calculation", "AmountWorker", ColumnCounter);
ACalc.AddParameter("ColumnWidth", (float)3.0, ColumnCounter);
++ColumnCounter;
ACalc.AddParameter("param_calculation", "CountWorker", ColumnCounter);
ACalc.AddParameter("ColumnWidth", (float)1, ColumnCounter);
++ColumnCounter;
ACalc.AddParameter("param_calculation", "AmountField", ColumnCounter);
ACalc.AddParameter("ColumnWidth", (float)3.0, ColumnCounter);
++ColumnCounter;
ACalc.AddParameter("param_calculation", "CountField", ColumnCounter);
ACalc.AddParameter("ColumnWidth", (float)1, ColumnCounter);
++ColumnCounter;
ACalc.AddParameter("param_calculation", "AmountCombined", ColumnCounter);
ACalc.AddParameter("ColumnWidth", (float)3.0, ColumnCounter);
++ColumnCounter;
ACalc.AddParameter("param_calculation", "CountCombined", ColumnCounter);
ACalc.AddParameter("ColumnWidth", (float)1, ColumnCounter);
++ColumnCounter;
ACalc.SetMaxDisplayColumns(ColumnCounter);
}
/// <summary>
/// Reads the selected values from the controls,
/// and stores them into the parameter system of FCalculator
///
/// </summary>
/// <param name="AColumnParameters">List with the current columns</param>
/// <param name="ACalculator"></param>
/// <returns>the MaxDisplayColumns number</returns>
public static System.Int32 ReadControls(ref TParameterList AColumnParameters, ref TRptCalculator ACalculator)
{
System.Int32 MaxDisplayColumns;
MaxDisplayColumns = AColumnParameters.Get("MaxDisplayColumns").ToInt();
ACalculator.GetParameters().Add("MaxDisplayColumns", MaxDisplayColumns);
for (int Counter = 0; Counter <= MaxDisplayColumns - 1; Counter += 1)
{
ACalculator.GetParameters().Copy(AColumnParameters, Counter, -1, eParameterFit.eExact, Counter);
if (!ACalculator.GetParameters().Exists("param_ytd", Counter))
{
// if param_ytd is not set for the column then add it.
ACalculator.GetParameters().Add("param_ytd", new TVariant(false), Counter);
}
}
ACalculator.SetMaxDisplayColumns(MaxDisplayColumns);
return MaxDisplayColumns;
}
/// <summary>
///
/// </summary>
/// <param name="ACalculator"></param>
/// <param name="AReportAction"></param>
private void ReadControlsManual(TRptCalculator ACalculator, TReportActionEnum AReportAction)
{
TVerificationResult VerificationResult;
string PublicationCodesToAdd = string.Empty;
// Disabled selecting all publications for now as report currently cuts them off.
// Can show a maximum of 8.
/*if (rbtFromList.Checked)
* {*/
string SelectedPublicationCodes = clbPublicationCode.GetCheckedStringList(true);
PublicationCodesToAdd = clbPublicationCode.GetCheckedStringList(false);
if (AReportAction == TReportActionEnum.raGenerate)
{
if (clbPublicationCode.CheckedItemsCount == 0)
{
VerificationResult = new TVerificationResult(Catalog.GetString("Select Publication Codes"),
Catalog.GetString("No Publication Code was selected!"),
TResultSeverity.Resv_Critical);
FPetraUtilsObject.AddVerificationResult(VerificationResult);
}
else if (clbPublicationCode.CheckedItemsCount > 8)
{
VerificationResult = new TVerificationResult(Catalog.GetString("Select Publication Codes"),
string.Format(Catalog.GetString("You have selected {0} publications. Please reduce this number to 8 or fewer."),
clbPublicationCode.CheckedItemsCount),
TResultSeverity.Resv_Critical);
FPetraUtilsObject.AddVerificationResult(VerificationResult);
}
}
ACalculator.AddStringParameter("param_clbPublicationCode", SelectedPublicationCodes);
if (SelectedPublicationCodes.Length > 25)
{
SelectedPublicationCodes = "Selected Accounts";
}
ACalculator.AddParameter("param_publication_list_title", SelectedPublicationCodes);
/*}
* else
* {
* PublicationCodesToAdd = clbPublicationCode.GetAllStringList();
* }*/
if (AReportAction == TReportActionEnum.raGenerate)
{
StringCollection PublicationCodesToAddSC = StringHelper.GetCSVList(PublicationCodesToAdd, ",");
int ColumnCounter = 0;
double Position = 0;
// add extra parameters for user defined columns
while (ACalculator.GetParameters().GetParameter("param_calculation", ColumnCounter, -1, eParameterFit.eAllColumnFit) != null)
{
string Description =
ACalculator.GetParameters().GetParameter("param_calculation", ColumnCounter, -1, eParameterFit.eAllColumnFit).value.ToString();
double Width =
ACalculator.GetParameters().GetParameter("ColumnWidth", ColumnCounter, -1, eParameterFit.eAllColumnFit).value.ToDouble();
ACalculator.AddParameter("param_label", Description, ColumnCounter);
ACalculator.AddParameter("ColumnAlign", "left", ColumnCounter);
ACalculator.AddParameter("ColumnCaption", Description, ColumnCounter);
ACalculator.AddParameter("ColumnPosition", Position, ColumnCounter);
Position += Width;
++ColumnCounter;
}
double ColumnWidth = 2.3;
// add a new column for each publication
foreach (string Code in PublicationCodesToAddSC)
{
ACalculator.AddParameter("param_calculation", "Publication", ColumnCounter);
ACalculator.AddParameter("param_label", "Publication", ColumnCounter);
ACalculator.AddParameter("ColumnAlign", "left", ColumnCounter);
ACalculator.AddParameter("ColumnCaption", Code, ColumnCounter);
ACalculator.AddParameter("ColumnPosition", Position, ColumnCounter);
ACalculator.AddParameter("ColumnWidth", ColumnWidth, ColumnCounter);
Position += ColumnWidth;
++ColumnCounter;
}
ACalculator.SetMaxDisplayColumns(ColumnCounter);
// get the country code for this openpetra's site ledger
string CountryCode = TRemote.MPartner.Partner.ServerLookups.WebConnectors.GetCountryCodeFromSiteLedger();
ACalculator.AddParameter("param_cmbCountryCode", CountryCode);
}
}
private void ReadControlsManual(TRptCalculator ACalc, TReportActionEnum AReportAction)
{
if (AReportAction == TReportActionEnum.raGenerate)
{
TVerificationResult VerificationResult = null;
long UnitKey = 0;
try
{
UnitKey = Convert.ToInt64(txtPartnerKey.Text);
}
catch (Exception)
{
UnitKey = 0;
}
if (UnitKey == 0)
{
VerificationResult = new TVerificationResult("Insert a valid Key.",
"No Unit Key selected!",
TResultSeverity.Resv_Critical);
FPetraUtilsObject.AddVerificationResult(VerificationResult);
}
}
int ColumnCounter;
ColumnCounter = 0;
ACalc.AddParameter("param_calculation", "UnitKey", ColumnCounter);
ACalc.AddParameter("ColumnWidth", "3", ColumnCounter);
++ColumnCounter;
ACalc.AddParameter("param_calculation", "UnitType", ColumnCounter);
ACalc.AddParameter("ColumnWidth", "4.5", ColumnCounter);
++ColumnCounter;
ACalc.AddParameter("param_calculation", "UnitName", ColumnCounter);
ACalc.AddParameter("ColumnWidth", "12", ColumnCounter);
ACalc.SetMaxDisplayColumns(3);
ACalc.AddParameter("param_txtUnitCode", txtPartnerKey.Text);
}
