private void GetDataFromControls(PmGeneralApplicationRow ARow, PmYearProgramApplicationRow AFieldAppRow)
{
ucoField.GetDetails(FApplicationDS.PmGeneralApplication[0]);
ucoApplicant.GetDetails(FApplicationDS.PmGeneralApplication[0]);
DataUtilities.CopyAllColumnValues(FApplicationDS.PmGeneralApplication[0], ARow);
DataUtilities.CopyAllColumnValues(FApplicationDS.PmYearProgramApplication[0], AFieldAppRow);
}
/// <summary>
/// Called by the instantiator of this Dialog to retrieve the values of Fields
/// on the screen.
/// </summary>
/// <param name="ARow"></param>
/// <returns>Boolean</returns>
public bool GetReturnedParameters(ref PContactLogRow ARow)
{
bool ReturnValue = true;
DataUtilities.CopyAllColumnValues(FMainDS.PContactLog.Rows[0], ARow);
return(ReturnValue);
}
/// <summary>
/// Called by the instantiator of this Dialog to retrieve the values of Fields
/// on the screen.
/// </summary>
/// <param name="ARow"></param>
/// <returns>Boolean</returns>
public Boolean GetReturnedParameters(ref PSubscriptionRow ARow)
{
Boolean ReturnValue = true;
DataUtilities.CopyAllColumnValues(FMainDS.PSubscription.Rows[0], ARow);
return(ReturnValue);
}
private void GetDataFromControls(PmGeneralApplicationRow ARow, PmShortTermApplicationRow AEventAppRow)
{
ucoEvent.GetDetails(FApplicationDS.PmGeneralApplication[0]);
ucoApplicant.GetDetails(FApplicationDS.PmGeneralApplication[0]);
ucoTravel.GetDetails(FApplicationDS.PmGeneralApplication[0]);
DataUtilities.CopyAllColumnValues(FApplicationDS.PmGeneralApplication[0], ARow);
DataUtilities.CopyAllColumnValues(FApplicationDS.PmShortTermApplication[0], AEventAppRow);
}
/// <summary>
/// Called by the instantiator of this Dialog to retrieve the values of Fields
/// on the screen.
/// </summary>
/// <param name="ARow"></param>
/// <param name="ATable"></param>
/// <returns>Boolean</returns>
public bool GetReturnedParameters(ref PContactLogRow ARow, ref PPartnerContactAttributeTable ATable)
{
bool ReturnValue = true;
DataUtilities.CopyAllColumnValues(FMainDS.PContactLog.Rows[0], ARow);
ATable.Merge(FMainDS.PPartnerContactAttribute);
return(ReturnValue);
}
private void DuplicateRecord(object sender, EventArgs e)
{
GetDataFromControls();
SReportTemplateRow NewRow = FTemplateTable.NewRowTyped();
DataUtilities.CopyAllColumnValues(FSelectedRow, NewRow);
NewRow.TemplateId = -1;
NewRow.Author = FCurrentUser;
NewRow.Default = false;
NewRow.Readonly = false;
NewRow.ReportVariant = String.Format(Catalog.GetString("Copy of {0}"), NewRow.ReportVariant);
FTemplateTable.Rows.Add(NewRow);
DataChangedFlag = true;
}
private void ShowData(PmGeneralApplicationRow AGeneralAppRow, PmYearProgramApplicationRow AFieldAppRow)
{
// clear dataset and create a copy of the row to be displayed so Dataset contains only one set of records
FApplicationDS.PmYearProgramApplication.Rows.Clear();
FApplicationDS.PmGeneralApplication.Rows.Clear();
PmGeneralApplicationRow GeneralAppRowCopy = (PmGeneralApplicationRow)FApplicationDS.PmGeneralApplication.NewRow();
PmYearProgramApplicationRow FieldAppRowCopy = (PmYearProgramApplicationRow)FApplicationDS.PmYearProgramApplication.NewRow();
DataUtilities.CopyAllColumnValues(AGeneralAppRow, GeneralAppRowCopy);
DataUtilities.CopyAllColumnValues(AFieldAppRow, FieldAppRowCopy);
FApplicationDS.PmGeneralApplication.Rows.Add(GeneralAppRowCopy);
FApplicationDS.PmYearProgramApplication.Rows.Add(FieldAppRowCopy);
ucoField.ShowDetails(GeneralAppRowCopy);
ucoApplicant.ShowDetails(GeneralAppRowCopy);
}
private void ShowData(PmGeneralApplicationRow AGeneralAppRow, PmShortTermApplicationRow AEventAppRow)
{
// clear dataset and create a copy of the row to be displayed so Dataset contains only one set of records
FApplicationDS.PmShortTermApplication.Rows.Clear();
FApplicationDS.PmGeneralApplication.Rows.Clear();
PmGeneralApplicationRow GeneralAppRowCopy = (PmGeneralApplicationRow)FApplicationDS.PmGeneralApplication.NewRow();
PmShortTermApplicationRow EventAppRowCopy = (PmShortTermApplicationRow)FApplicationDS.PmShortTermApplication.NewRow();
DataUtilities.CopyAllColumnValues(AGeneralAppRow, GeneralAppRowCopy);
DataUtilities.CopyAllColumnValues(AEventAppRow, EventAppRowCopy);
FApplicationDS.PmGeneralApplication.Rows.Add(GeneralAppRowCopy);
FApplicationDS.PmShortTermApplication.Rows.Add(EventAppRowCopy);
ucoEvent.ShowDetails(GeneralAppRowCopy);
ucoApplicant.ShowDetails(GeneralAppRowCopy);
ucoTravel.ShowDetails(GeneralAppRowCopy);
}
/// <summary>
/// Takes an PPartnerAttribute Row from the DB and modifies it with data from a PPartnerAttribute Row that got
/// populated from imported data.
/// </summary>
/// <param name="AImportedPartnerAttributeDR">PPartnerAttribute Row that got populated from imported data.</param>
/// <param name="AExistingPartnerAttributeDR">PPartnerAttribute Row from the DB.</param>
public void TakeExistingPartnerAttributeRecordAndModifyIt(PPartnerAttributeRow AImportedPartnerAttributeDR,
PPartnerAttributeRow AExistingPartnerAttributeDR)
{
// First step: Store some details of the to-be-imported record in Variables
var ImportDRValue = AImportedPartnerAttributeDR.Value; // only needed for Attribute Type 'PARTNERS_PRIMARY_CONTACT_METHOD'
var ImportDRComment = AImportedPartnerAttributeDR.Comment;
var ImportDRPrimary = AImportedPartnerAttributeDR.Primary;
var ImportDRWithinOrganisation = AImportedPartnerAttributeDR.WithinOrganisation;
var ImportDRSpecialised = AImportedPartnerAttributeDR.Specialised;
var ImportDRConfidential = AImportedPartnerAttributeDR.Confidential;
var ImportDRCurrent = AImportedPartnerAttributeDR.Current;
var ImportDRNoLongerCurrentFrom = AImportedPartnerAttributeDR.NoLongerCurrentFrom;
// Second step: Copy all data from the record as it exists in the DB over into the to-be-imported record.
// This is necessary so that the overwriting of some details of the record (see below) creates DataColumns
// whose 'Modified' data is different than their 'Current' data (otherwise an 'empty' UPDATE command will
// be issued against the DB!)
DataUtilities.CopyAllColumnValues(AExistingPartnerAttributeDR, AImportedPartnerAttributeDR);
// Make sure the Imported DataRows' DataRowState is no longer 'Added' as we don't want to add it to the
// database, but want to update the existing row in the database!
// (All the DataColumns hold 'Current' Data after this!)
AImportedPartnerAttributeDR.AcceptChanges();
// Third step: Overwrite some details of the record as it exists in the DB with details of the
// to-be-imported record. (All these DataColumns will hold 'Modified' Data after this!)
AImportedPartnerAttributeDR.Value = ImportDRValue; // only needed for Attribute Type 'PARTNERS_PRIMARY_CONTACT_METHOD'
AImportedPartnerAttributeDR.Comment = ImportDRComment;
AImportedPartnerAttributeDR.Primary = ImportDRPrimary;
AImportedPartnerAttributeDR.WithinOrganisation = ImportDRWithinOrganisation;
AImportedPartnerAttributeDR.Specialised = ImportDRSpecialised;
AImportedPartnerAttributeDR.Confidential = ImportDRConfidential;
AImportedPartnerAttributeDR.Current = ImportDRCurrent;
AImportedPartnerAttributeDR.NoLongerCurrentFrom = ImportDRNoLongerCurrentFrom;
// Note: The DataRows' DataRowState is now 'Modified', and that causes the DB Access layer to issue an
// UPDATE statement later. That statement will update data in each of the DB Tables' columns where a
// DataColumn holds different data in the 'Current' and 'Modified' versions of a DataColum, i.e. where
// there is a real difference between the to-be-imported data and the data in the record that is already
// in the DB.
}
private void ShowData(PmGeneralApplicationRow AGeneralAppRow, PmYearProgramApplicationRow AFieldAppRow)
{
// clear dataset and create a copy of the row to be displayed so Dataset contains only one set of records
FApplicationDS.PmYearProgramApplication.Rows.Clear();
FApplicationDS.PmGeneralApplication.Rows.Clear();
PmGeneralApplicationRow GeneralAppRowCopy = (PmGeneralApplicationRow)FApplicationDS.PmGeneralApplication.NewRow();
PmYearProgramApplicationRow FieldAppRowCopy = (PmYearProgramApplicationRow)FApplicationDS.PmYearProgramApplication.NewRow();
DataUtilities.CopyAllColumnValues(AGeneralAppRow, GeneralAppRowCopy);
DataUtilities.CopyAllColumnValues(AFieldAppRow, FieldAppRowCopy);
FApplicationDS.PmGeneralApplication.Rows.Add(GeneralAppRowCopy);
FApplicationDS.PmYearProgramApplication.Rows.Add(FieldAppRowCopy);
// The row in the data set will be 'Added', which means that some of our validation will not give the correct result.
FApplicationDS.PmGeneralApplication.AcceptChanges();
FApplicationDS.PmYearProgramApplication.AcceptChanges();
ucoField.ShowDetails(GeneralAppRowCopy);
ucoApplicant.ShowDetails(GeneralAppRowCopy);
}
public static Int32 FieldChangeAdjustment(Int32 ALedgerNumber,
Int64 ARecipientKey,
DateTime AStartDate,
DateTime AEndDate,
Int64 AOldField,
DateTime ADateCorrection,
bool AWithReceipt)
{
TDBTransaction Transaction = DBAccess.GDBAccessObj.BeginTransaction(IsolationLevel.ReadCommitted);
GiftBatchTDS oldGiftDS = new GiftBatchTDS();
try
{
// find all gifts that need reversing.
// criteria:
// posted gift batches only
// no adjusted/reversed gifts
// date of gift batch in specified date range
// recipient field is the old field
string SqlStmt = TDataBase.ReadSqlFile("Gift.GetGiftsToReverse.sql");
List <OdbcParameter> parameters = new List <OdbcParameter>();
OdbcParameter param = new OdbcParameter("LedgerNumber", OdbcType.Int);
param.Value = ALedgerNumber;
parameters.Add(param);
param = new OdbcParameter("StartDate", OdbcType.Date);
param.Value = AStartDate;
parameters.Add(param);
param = new OdbcParameter("EndDate", OdbcType.Date);
param.Value = AEndDate;
parameters.Add(param);
param = new OdbcParameter("RecipientKey", OdbcType.BigInt);
param.Value = ARecipientKey;
parameters.Add(param);
param = new OdbcParameter("OldField", OdbcType.BigInt);
param.Value = AOldField;
parameters.Add(param);
DBAccess.GDBAccessObj.Select(oldGiftDS, SqlStmt, oldGiftDS.AGiftDetail.TableName, Transaction, parameters.ToArray());
// load the gift and the gift batch records if they have not been loaded yet
foreach (AGiftDetailRow giftdetail in oldGiftDS.AGiftDetail.Rows)
{
oldGiftDS.AGift.DefaultView.RowFilter = String.Format("{0} = {1} and {2} = {3}",
AGiftTable.GetBatchNumberDBName(),
giftdetail.BatchNumber,
AGiftTable.GetGiftTransactionNumberDBName(),
giftdetail.GiftTransactionNumber);
if (oldGiftDS.AGift.DefaultView.Count == 0)
{
AGiftTable tempGiftTable =
AGiftAccess.LoadByPrimaryKey(giftdetail.LedgerNumber,
giftdetail.BatchNumber,
giftdetail.GiftTransactionNumber,
Transaction);
oldGiftDS.AGift.Merge(tempGiftTable);
}
oldGiftDS.AGiftBatch.DefaultView.RowFilter = String.Format("{0} = {1}",
AGiftTable.GetBatchNumberDBName(),
giftdetail.BatchNumber);
if (oldGiftDS.AGiftBatch.DefaultView.Count == 0)
{
AGiftBatchTable tempGiftBatchTable =
AGiftBatchAccess.LoadByPrimaryKey(giftdetail.LedgerNumber,
giftdetail.BatchNumber,
Transaction);
oldGiftDS.AGiftBatch.Merge(tempGiftBatchTable);
}
}
DBAccess.GDBAccessObj.RollbackTransaction();
}
catch (Exception)
{
DBAccess.GDBAccessObj.RollbackTransaction();
throw;
}
// we need to create a gift batch for each set of gifts with the same Currency, BankAccountCode, BankCostCentre, and Gift Type
SortedList <string, GiftBatchTDS> NewGiftBatches = new SortedList <string, GiftBatchTDS>();
foreach (GiftBatchTDSAGiftDetailRow oldGiftDetail in oldGiftDS.AGiftDetail.Rows)
{
// get the gift batch row for this detail
oldGiftDS.AGiftBatch.DefaultView.RowFilter =
String.Format("{0} = {1}",
AGiftTable.GetBatchNumberDBName(), oldGiftDetail.BatchNumber);
AGiftBatchRow oldGiftBatch = (AGiftBatchRow)oldGiftDS.AGiftBatch.DefaultView[0].Row;
GiftBatchTDS GiftDS = CreateNewGiftBatch(NewGiftBatches, oldGiftBatch, ADateCorrection);
AGiftBatchRow giftbatchRow = GiftDS.AGiftBatch[0];
// get the gift row for this detail
DataView v = oldGiftDS.AGift.DefaultView;
v.RowFilter =
String.Format("{0} = {1} and {2} = {3}",
AGiftTable.GetBatchNumberDBName(), oldGiftDetail.BatchNumber,
AGiftTable.GetGiftTransactionNumberDBName(), oldGiftDetail.GiftTransactionNumber);
AGiftRow oldGift = (AGiftRow)v[0].Row;
AGiftRow gift = GiftDS.AGift.NewRowTyped();
gift.LedgerNumber = giftbatchRow.LedgerNumber;
gift.BatchNumber = giftbatchRow.BatchNumber;
gift.GiftTransactionNumber = giftbatchRow.LastGiftNumber + 1;
gift.DonorKey = oldGift.DonorKey;
gift.DateEntered = ADateCorrection;
giftbatchRow.LastGiftNumber++;
GiftDS.AGift.Rows.Add(gift);
if (!AWithReceipt)
{
gift.ReceiptLetterCode = "NO*RECET";
}
// reverse the original gift
GiftBatchTDSAGiftDetailRow detail = GiftDS.AGiftDetail.NewRowTyped();
DataUtilities.CopyAllColumnValues(oldGiftDetail, detail);
detail.LedgerNumber = gift.LedgerNumber;
detail.BatchNumber = gift.BatchNumber;
detail.GiftTransactionNumber = gift.GiftTransactionNumber;
detail.DetailNumber = gift.LastDetailNumber + 1;
detail.GiftAmount = detail.GiftAmount * -1;
detail.GiftAmountIntl = detail.GiftAmountIntl * -1;
detail.GiftTransactionAmount = detail.GiftTransactionAmount * -1;
gift.LastDetailNumber++;
GiftDS.AGiftDetail.Rows.Add(detail);
// create the detail for the corrected gift to the new field
detail = GiftDS.AGiftDetail.NewRowTyped();
DataUtilities.CopyAllColumnValues(oldGiftDetail, detail);
detail.LedgerNumber = gift.LedgerNumber;
detail.BatchNumber = gift.BatchNumber;
detail.GiftTransactionNumber = gift.GiftTransactionNumber;
detail.DetailNumber = gift.LastDetailNumber + 1;
detail.GiftCommentOne = String.Format(Catalog.GetString("posted on {0}"), oldGiftBatch.GlEffectiveDate.ToShortDateString());
gift.LastDetailNumber++;
// TODO: calculate costcentre code from current commitment; this currently is done only at time of posting
// detail.RecipientLedgerNumber = oldGiftDetail.RecipientLedgerNumber;
// detail.CostCentreCode = oldGiftDetail.CostCentreCode;
GiftDS.AGiftDetail.Rows.Add(detail);
// TODO: how to make sure that the gl transaction is marked as System generated? avoid display on HOSA?
// mark original gift detail as modified
oldGiftDetail.ModifiedDetail = true;
}
TVerificationResultCollection VerificationResult;
TSubmitChangesResult result = TSubmitChangesResult.scrOK;
for (Int32 batchCounter = 0; batchCounter < NewGiftBatches.Count; batchCounter++)
{
if (result == TSubmitChangesResult.scrOK)
{
GiftBatchTDS GiftDS = NewGiftBatches.Values[batchCounter];
result = TGiftTransactionWebConnector.SaveGiftBatchTDS(ref GiftDS, out VerificationResult);
}
}
if (result == TSubmitChangesResult.scrOK)
{
result = TGiftTransactionWebConnector.SaveGiftBatchTDS(ref oldGiftDS, out VerificationResult);
if ((result == TSubmitChangesResult.scrOK) && (NewGiftBatches.Count > 0))
{
return(NewGiftBatches.Values[0].AGiftBatch[0].BatchNumber);
}
}
return(-1);
}
public static bool SavePartner(PartnerEditTDS AMainDS,
List <string> ASubscriptions,
List <string> APartnerTypes,
bool ASendMail,
string ADefaultEmailAddress,
string ADefaultPhoneMobile,
string ADefaultPhoneLandline,
out TVerificationResultCollection AVerificationResult)
{
List <string> Dummy1, Dummy2;
string Dummy3, Dummy4, Dummy5;
PartnerEditTDS SaveDS;
AVerificationResult = new TVerificationResultCollection();
if (AMainDS.PPartner[0].ModificationId == DateTime.MinValue)
{
// this is a new partner
SaveDS = AMainDS;
if (SaveDS.PPartner[0].PartnerKey == -1)
{
SaveDS.PPartner[0].PartnerKey = NewPartnerKey();
}
if (SaveDS.PFamily.Count > 0)
{
SaveDS.PFamily[0].PartnerKey = SaveDS.PPartner[0].PartnerKey;
}
else if (SaveDS.PPerson.Count > 0)
{
SaveDS.PPerson[0].PartnerKey = SaveDS.PPartner[0].PartnerKey;
}
else if (SaveDS.PChurch.Count > 0)
{
SaveDS.PChurch[0].PartnerKey = SaveDS.PPartner[0].PartnerKey;
}
else if (SaveDS.POrganisation.Count > 0)
{
SaveDS.POrganisation[0].PartnerKey = SaveDS.PPartner[0].PartnerKey;
}
PPartnerLocationRow partnerlocation = SaveDS.PPartnerLocation.NewRowTyped();
partnerlocation.PartnerKey = SaveDS.PPartner[0].PartnerKey;
partnerlocation.LocationKey = SaveDS.PLocation[0].LocationKey;
partnerlocation.SiteKey = SaveDS.PLocation[0].SiteKey;
partnerlocation.SendMail = ASendMail;
SaveDS.PPartnerLocation.Rows.Add(partnerlocation);
}
else
{
SaveDS = GetPartnerDetails(AMainDS.PPartner[0].PartnerKey, out Dummy1, out Dummy2, out Dummy3, out Dummy4, out Dummy5);
DataUtilities.CopyDataSet(AMainDS, SaveDS);
}
List <string> ExistingPartnerTypes = new List <string>();
foreach (PPartnerTypeRow partnertype in SaveDS.PPartnerType.Rows)
{
if (!APartnerTypes.Contains(partnertype.TypeCode))
{
partnertype.Delete();
}
else
{
ExistingPartnerTypes.Add(partnertype.TypeCode);
}
}
// add new partner types
foreach (string partnertype in APartnerTypes)
{
if (!ExistingPartnerTypes.Contains(partnertype))
{
PPartnerTypeRow partnertypeRow = SaveDS.PPartnerType.NewRowTyped();
partnertypeRow.PartnerKey = AMainDS.PPartner[0].PartnerKey;
partnertypeRow.TypeCode = partnertype;
SaveDS.PPartnerType.Rows.Add(partnertypeRow);
}
}
List <string> ExistingSubscriptions = new List <string>();
foreach (PSubscriptionRow subscription in SaveDS.PSubscription.Rows)
{
if (!ASubscriptions.Contains(subscription.PublicationCode))
{
subscription.Delete();
}
else
{
ExistingSubscriptions.Add(subscription.PublicationCode);
}
}
// add new subscriptions
foreach (string subscription in ASubscriptions)
{
if (!ExistingSubscriptions.Contains(subscription))
{
PSubscriptionRow subscriptionRow = SaveDS.PSubscription.NewRowTyped();
subscriptionRow.PartnerKey = AMainDS.PPartner[0].PartnerKey;
subscriptionRow.PublicationCode = subscription;
subscriptionRow.ReasonSubsGivenCode = "FREE";
SaveDS.PSubscription.Rows.Add(subscriptionRow);
}
}
bool foundDefaultEmailAddress = false;
bool foundDefaultPhoneLandLine = false;
bool foundDefaultMobileLandLine = false;
foreach (PPartnerAttributeRow partnerattr in SaveDS.PPartnerAttribute.Rows)
{
if (partnerattr.AttributeType == MPartnerConstants.ATTR_TYPE_EMAIL)
{
partnerattr.Value = ADefaultEmailAddress;
foundDefaultEmailAddress = true;
}
else if (partnerattr.AttributeType == MPartnerConstants.ATTR_TYPE_PHONE)
{
partnerattr.Value = ADefaultPhoneLandline;
foundDefaultPhoneLandLine = true;
}
else if (partnerattr.AttributeType == MPartnerConstants.ATTR_TYPE_MOBILE_PHONE)
{
partnerattr.Value = ADefaultPhoneMobile;
foundDefaultMobileLandLine = true;
}
}
if (!foundDefaultEmailAddress)
{
PPartnerAttributeRow partnerattr = SaveDS.PPartnerAttribute.NewRowTyped();
partnerattr.PartnerKey = SaveDS.PPartner[0].PartnerKey;
partnerattr.AttributeType = MPartnerConstants.ATTR_TYPE_EMAIL;
partnerattr.Value = ADefaultEmailAddress;
partnerattr.Index = 0;
SaveDS.PPartnerAttribute.Rows.Add(partnerattr);
}
if (!foundDefaultPhoneLandLine)
{
PPartnerAttributeRow partnerattr = SaveDS.PPartnerAttribute.NewRowTyped();
partnerattr.PartnerKey = SaveDS.PPartner[0].PartnerKey;
partnerattr.AttributeType = MPartnerConstants.ATTR_TYPE_PHONE;
partnerattr.Value = ADefaultPhoneLandline;
partnerattr.Index = 0;
SaveDS.PPartnerAttribute.Rows.Add(partnerattr);
}
if (!foundDefaultMobileLandLine)
{
PPartnerAttributeRow partnerattr = SaveDS.PPartnerAttribute.NewRowTyped();
partnerattr.PartnerKey = SaveDS.PPartner[0].PartnerKey;
partnerattr.AttributeType = MPartnerConstants.ATTR_TYPE_MOBILE_PHONE;
partnerattr.Value = ADefaultPhoneMobile;
partnerattr.Index = 0;
SaveDS.PPartnerAttribute.Rows.Add(partnerattr);
}
// TODO: either reuse Partner Edit UIConnector
// or check for changed partner key, or changed Partner Class, etc.
// set Partner Short Name
if (SaveDS.PPartner[0].PartnerClass == MPartnerConstants.PARTNERCLASS_PERSON)
{
SaveDS.PPartner[0].PartnerShortName =
Calculations.DeterminePartnerShortName(
SaveDS.PPerson[0].FamilyName,
SaveDS.PPerson[0].Title,
SaveDS.PPerson[0].FirstName,
SaveDS.PPerson[0].MiddleName1);
}
else if (SaveDS.PPartner[0].PartnerClass == MPartnerConstants.PARTNERCLASS_FAMILY)
{
// check if we have a valid family name
if (SaveDS.PFamily[0].FamilyName.Trim().Length == 0)
{
AVerificationResult.Add(new TVerificationResult("error", "Please specify the family name", "",
"MaintainPartners.ErrMissingFamilyName", TResultSeverity.Resv_Critical));
return(false);
}
// check if we have a valid title
if (SaveDS.PFamily[0].Title.Trim().Length == 0)
{
AVerificationResult.Add(new TVerificationResult("error", "Please specify the title", "",
"MaintainPartners.ErrMissingTitle", TResultSeverity.Resv_Critical));
return(false);
}
SaveDS.PPartner[0].PartnerShortName =
Calculations.DeterminePartnerShortName(
SaveDS.PFamily[0].FamilyName,
SaveDS.PFamily[0].Title,
SaveDS.PFamily[0].FirstName);
}
else if (SaveDS.PPartner[0].PartnerClass == MPartnerConstants.PARTNERCLASS_UNIT)
{
SaveDS.PPartner[0].PartnerShortName = SaveDS.PUnit[0].UnitName;
}
else if (SaveDS.PPartner[0].PartnerClass == MPartnerConstants.PARTNERCLASS_ORGANISATION)
{
// check if we have a valid organisation name
if (SaveDS.POrganisation[0].OrganisationName.Trim().Length == 0)
{
AVerificationResult.Add(new TVerificationResult("error", "Please specify the organisation name", "",
"MaintainPartners.ErrMissingOrganisationName", TResultSeverity.Resv_Critical));
return(false);
}
SaveDS.PPartner[0].PartnerShortName = SaveDS.POrganisation[0].OrganisationName;
}
else if (SaveDS.PPartner[0].PartnerClass == MPartnerConstants.PARTNERCLASS_BANK)
{
SaveDS.PPartner[0].PartnerShortName = SaveDS.PBank[0].BranchName;
}
// change legacy addresses. create a new separate location for each partner
if (SaveDS.PLocation[0].LocationKey == 0)
{
PLocationRow location = SaveDS.PLocation.NewRowTyped();
DataUtilities.CopyAllColumnValues(SaveDS.PLocation[0], location);
location.SiteKey = DomainManager.GSiteKey;
location.LocationKey = -1;
SaveDS.PLocation.Rows.Clear();
SaveDS.PLocation.Rows.Add(location);
PPartnerLocationRow plocation = SaveDS.PPartnerLocation.NewRowTyped();
DataUtilities.CopyAllColumnValues(SaveDS.PPartnerLocation[0], plocation);
plocation.LocationKey = -1;
plocation.SiteKey = DomainManager.GSiteKey;
SaveDS.PPartnerLocation[0].Delete();
SaveDS.PPartnerLocation.Rows.Add(plocation);
}
// check if we have a valid country code
if (SaveDS.PLocation[0].CountryCode.Trim().Length == 0)
{
AVerificationResult.Add(new TVerificationResult("error", "The country code is missing", TResultSeverity.Resv_Critical));
return(false);
}
TDBTransaction Transaction = new TDBTransaction();
bool WrongCountryCode = false;
DBAccess.ReadTransaction(ref Transaction,
delegate
{
WrongCountryCode = !PCountryAccess.Exists(SaveDS.PLocation[0].CountryCode, Transaction);
});
if (WrongCountryCode)
{
AVerificationResult.Add(new TVerificationResult("error", "The country code does not match a country", TResultSeverity.Resv_Critical));
return(false);
}
DataSet ResponseDS = new PartnerEditTDS();
TPartnerEditUIConnector uiconnector = new TPartnerEditUIConnector(SaveDS.PPartner[0].PartnerKey);
try
{
TSubmitChangesResult result = uiconnector.SubmitChanges(
ref SaveDS,
ref ResponseDS,
out AVerificationResult);
return(result == TSubmitChangesResult.scrOK);
}
catch (Exception e)
{
TLogging.Log(e.ToString());
AVerificationResult.Add(new TVerificationResult("error", e.Message, TResultSeverity.Resv_Critical));
return(false);
}
}
/// <summary>
/// Determine best location for partner out of a list of possible locations. Or simply find best one
/// if no suggestion is made.
/// </summary>
/// <param name="APartnerKey"></param>
/// <param name="ALocationKeyList"></param>
/// <param name="APartnerLocationKeysTable"></param>
/// <param name="ATransaction"></param>
/// <returns>True if the address was found and added, otherwise false.</returns>
private static Boolean DetermineAndAddBestLocationKey(
Int64 APartnerKey,
List <TLocationPK> ALocationKeyList,
ref PPartnerLocationTable APartnerLocationKeysTable,
TDBTransaction ATransaction)
{
PPartnerLocationTable AllPartnerLocationTable;
PPartnerLocationTable FilteredPartnerLocationTable = new PPartnerLocationTable();
TLocationPK LocationPK = new TLocationPK();
PPartnerLocationRow PartnerLocationKeyRow;
PPartnerLocationRow PartnerLocationRowCopy;
TLocationPK BestLocationPK;
if (ALocationKeyList.Count == 0)
{
// no list suggested: find best address in db for this partner
BestLocationPK = TMailing.GetPartnersBestLocation(APartnerKey);
}
else if (ALocationKeyList.Count == 1)
{
// only one location suggested: take this one
BestLocationPK = ALocationKeyList[0];
}
else
{
// Process location key list related to partner.
// In order to use Calculations.DetermineBestAddress we need to first retrieve full data
// for all suggested records from the db. Therefore load all locations for this partner
// and then create a table of the ones that are suggested.
AllPartnerLocationTable = PPartnerLocationAccess.LoadViaPPartner(APartnerKey, ATransaction);
foreach (PPartnerLocationRow PartnerLocationRow in AllPartnerLocationTable.Rows)
{
LocationPK.SiteKey = PartnerLocationRow.SiteKey;
LocationPK.LocationKey = PartnerLocationRow.LocationKey;
if (ALocationKeyList.Contains(LocationPK))
{
PartnerLocationRowCopy = (PPartnerLocationRow)FilteredPartnerLocationTable.NewRow();
DataUtilities.CopyAllColumnValues(PartnerLocationRow, PartnerLocationRowCopy);
FilteredPartnerLocationTable.Rows.Add(PartnerLocationRowCopy);
}
}
BestLocationPK = Calculations.DetermineBestAddress(FilteredPartnerLocationTable);
}
// create new row, initialize it and add it to the table
if (BestLocationPK.LocationKey != -1)
{
PartnerLocationKeyRow = (PPartnerLocationRow)APartnerLocationKeysTable.NewRow();
PartnerLocationKeyRow[PPartnerLocationTable.GetPartnerKeyDBName()] = APartnerKey;
PartnerLocationKeyRow[PPartnerLocationTable.GetSiteKeyDBName()] = BestLocationPK.SiteKey;
PartnerLocationKeyRow[PPartnerLocationTable.GetLocationKeyDBName()] = BestLocationPK.LocationKey;
// only add row if it does not already exist
if (!APartnerLocationKeysTable.Rows.Contains(
new object[] { PartnerLocationKeyRow.PartnerKey, PartnerLocationKeyRow.SiteKey, PartnerLocationKeyRow.LocationKey }))
{
APartnerLocationKeysTable.Rows.Add(PartnerLocationKeyRow);
}
return(true);
}
else
{
return(false);
}
}
/// <summary>
/// Print a receipt for each gift (one page for each donor) in the batch
/// </summary>
/// <param name="AGiftTDS"></param>
public void PrintGiftBatchReceipts(GiftBatchTDS AGiftTDS)
{
AGiftBatchRow GiftBatchRow = AGiftTDS.AGiftBatch[0];
DataView GiftView = new DataView(AGiftTDS.AGift);
//AGiftTDS.AGift.DefaultView.RowFilter
GiftView.RowFilter = String.Format("{0}={1} and {2}={3}",
AGiftTable.GetLedgerNumberDBName(), GiftBatchRow.LedgerNumber,
AGiftTable.GetBatchNumberDBName(), GiftBatchRow.BatchNumber);
String ReceiptedDonorsList = "";
List <Int32> ReceiptedGiftTransactions = new List <Int32>();
SortedList <Int64, AGiftTable> GiftsPerDonor = new SortedList <Int64, AGiftTable>();
foreach (DataRowView rv in GiftView)
{
AGiftRow GiftRow = (AGiftRow)rv.Row;
bool ReceiptEachGift;
String ReceiptLetterFrequency;
bool EmailGiftStatement;
bool AnonymousDonor;
TRemote.MPartner.Partner.ServerLookups.WebConnectors.GetPartnerReceiptingInfo(
GiftRow.DonorKey,
out ReceiptEachGift,
out ReceiptLetterFrequency,
out EmailGiftStatement,
out AnonymousDonor);
if (ReceiptEachGift)
{
// I want to print a receipt for this gift,
// but if there's already one queued for this donor,
// I'll add this gift onto the existing receipt.
if (!GiftsPerDonor.ContainsKey(GiftRow.DonorKey))
{
GiftsPerDonor.Add(GiftRow.DonorKey, new AGiftTable());
}
AGiftRow NewRow = GiftsPerDonor[GiftRow.DonorKey].NewRowTyped();
DataUtilities.CopyAllColumnValues(GiftRow, NewRow);
GiftsPerDonor[GiftRow.DonorKey].Rows.Add(NewRow);
} // if receipt required
} // foreach gift
String HtmlDoc = "";
OpenFileDialog DialogOpen = new OpenFileDialog();
if (Directory.Exists(TAppSettingsManager.GetValue("Formletters.Path")))
{
DialogOpen.InitialDirectory = TAppSettingsManager.GetValue("Formletters.Path");
}
DialogOpen.Filter = Catalog.GetString("HTML file (*.html)|*.html;*.htm");
DialogOpen.RestoreDirectory = true;
DialogOpen.Title = Catalog.GetString("Select the template for the gift receipt");
if (DialogOpen.ShowDialog() != DialogResult.OK)
{
return;
}
string HTMLTemplateFilename = DialogOpen.FileName;
foreach (Int64 DonorKey in GiftsPerDonor.Keys)
{
String DonorShortName;
TPartnerClass DonorClass;
TRemote.MPartner.Partner.ServerLookups.WebConnectors.GetPartnerShortName(DonorKey, out DonorShortName, out DonorClass);
DonorShortName = Calculations.FormatShortName(DonorShortName, eShortNameFormat.eReverseShortname);
string HtmlPage = TRemote.MFinance.Gift.WebConnectors.PrintGiftReceipt(
GiftBatchRow.CurrencyCode,
DonorShortName,
DonorKey,
DonorClass,
GiftsPerDonor[DonorKey],
HTMLTemplateFilename
);
TFormLettersTools.AttachNextPage(ref HtmlDoc, HtmlPage);
ReceiptedDonorsList += (DonorShortName + "\r\n");
foreach (AGiftRow GiftRow in GiftsPerDonor[DonorKey].Rows)
{
ReceiptedGiftTransactions.Add(GiftRow.GiftTransactionNumber);
}
}
TFormLettersTools.CloseDocument(ref HtmlDoc);
if (ReceiptedGiftTransactions.Count > 0)
{
TFrmReceiptControl.PreviewOrPrint(HtmlDoc);
if (MessageBox.Show(
Catalog.GetString(
"Press OK if receipts to these recipients were printed correctly.\r\nThe gifts will be marked as receipted.\r\n") +
ReceiptedDonorsList,
Catalog.GetString("Receipt Printing"),
MessageBoxButtons.OKCancel) == DialogResult.OK)
{
foreach (Int32 Trans in ReceiptedGiftTransactions)
{
TRemote.MFinance.Gift.WebConnectors.MarkReceiptsPrinted(
GiftBatchRow.LedgerNumber,
GiftBatchRow.BatchNumber,
Trans);
}
}
}
}
/// <summary>
/// Called from a delegate set up by my constructor.
/// Or if you're not using a reporting UI, you can call this directly, once the data and params have been set up.
/// </summary>
/// <param name="ACalc"></param>
public void DesignReport(TRptCalculator ACalc)
{
ACalc.GetParameters().Add("param_design_template", true);
if (FSelectedTemplate != null)
{
if (FDataGetter != null)
{
if (!FDataGetter(ACalc))
{
return;
}
}
FFastReportType.GetMethod("LoadFromString", new Type[] { FSelectedTemplate.XmlText.GetType() }).Invoke(FfastReportInstance,
new object[] { FSelectedTemplate.XmlText });
LoadReportParams(ACalc);
FFastReportType.GetMethod("Design", new Type[0]).Invoke(FfastReportInstance, null);
//
// The user can change the report template - if it's changed I'll update the server
// (unless the template is read-only, in which case I'll need to make a copy.)
object ret = FFastReportType.GetMethod("SaveToString", new Type[0]).Invoke(FfastReportInstance, null);
String XmlString = (String)ret;
//
// I only want to check part of the report to assess whether it's changed, otherwise it always detects a change
// (the modified date is changed, and the parameters may also be different.)
Boolean TemplateChanged = false;
Int32 Page1Pos = XmlString.IndexOf("<ReportPage");
Int32 PrevPage1Pos = FSelectedTemplate.XmlText.IndexOf("<ReportPage");
if ((Page1Pos < 1) || (PrevPage1Pos < 1))
{
TemplateChanged = true;
}
else
{
if (XmlString.Substring(Page1Pos) != FSelectedTemplate.XmlText.Substring(PrevPage1Pos))
{
TemplateChanged = true;
}
}
if (TemplateChanged)
{
Boolean MakeACopy = false;
if (FSelectedTemplate.Readonly)
{
if (MessageBox.Show(
String.Format(Catalog.GetString("{0} cannot be ovewritten.\r\nMake a copy instead?"), FSelectedTemplate.ReportVariant),
Catalog.GetString("Design Template"),
MessageBoxButtons.YesNo) == DialogResult.No)
{
return;
}
MakeACopy = true;
}
else
{
if (MessageBox.Show(
String.Format(Catalog.GetString("Save changes to {0}?"), FSelectedTemplate.ReportVariant),
Catalog.GetString("Design Template"),
MessageBoxButtons.YesNo) == DialogResult.No)
{
return;
}
}
SReportTemplateTable TemplateTable = new SReportTemplateTable();
SReportTemplateRow NewRow = TemplateTable.NewRowTyped();
DataUtilities.CopyAllColumnValues(FSelectedTemplate, NewRow);
TemplateTable.Rows.Add(NewRow);
if (MakeACopy)
{
NewRow.TemplateId = -1; // The value will come from the sequence
NewRow.ReportVariant = "Copy of " + TemplateTable[0].ReportVariant;
NewRow.Readonly = false;
NewRow.Default = false;
NewRow.PrivateDefault = false;
}
else
{
TemplateTable.AcceptChanges(); // Don't allow this one-row table to be seen as "new"
}
NewRow.XmlText = XmlString;
SReportTemplateTable Tbl = TRemote.MReporting.WebConnectors.SaveTemplates(TemplateTable);
Tbl.AcceptChanges();
SetTemplate(Tbl[0]);
}
}
if (FPetraUtilsObject != null)
{
FPetraUtilsObject.UpdateParentFormEndOfReport();
}
}
