public void TestDeleteOrganisation()
{
DataSet ResponseDS = new PartnerEditTDS();
TVerificationResultCollection VerificationResult;
String TextMessage;
Boolean CanDeletePartner;
PPartnerRow OrganisationPartnerRow;
TSubmitChangesResult result;
Int64 PartnerKey;
TPartnerEditUIConnector connector = new TPartnerEditUIConnector();
PartnerEditTDS MainDS = new PartnerEditTDS();
OrganisationPartnerRow = TCreateTestPartnerData.CreateNewOrganisationPartner(MainDS);
result = connector.SubmitChanges(ref MainDS, ref ResponseDS, out VerificationResult);
Assert.AreEqual(TSubmitChangesResult.scrOK, result, "create organisation record");
// check if organisation partner can be deleted (still needs to be possible at this point)
CanDeletePartner = TPartnerWebConnector.CanPartnerBeDeleted(OrganisationPartnerRow.PartnerKey, out TextMessage);
if (TextMessage.Length > 0)
{
TLogging.Log(TextMessage);
}
Assert.IsTrue(CanDeletePartner);
// now test actual deletion of Organisation partner
PartnerKey = OrganisationPartnerRow.PartnerKey;
Assert.IsTrue(TPartnerWebConnector.DeletePartner(PartnerKey, out VerificationResult));
// check that Organisation record is really deleted
Assert.IsTrue(!TPartnerServerLookups.VerifyPartner(PartnerKey));
}
public void TestDeleteVenue()
{
DataSet ResponseDS = new PartnerEditTDS();
TVerificationResultCollection VerificationResult;
String TextMessage;
Boolean CanDeletePartner;
PPartnerRow VenuePartnerRow;
TSubmitChangesResult result;
Int64 PartnerKey;
TPartnerEditUIConnector connector = new TPartnerEditUIConnector();
PartnerEditTDS MainDS = new PartnerEditTDS();
VenuePartnerRow = TCreateTestPartnerData.CreateNewVenuePartner(MainDS);
result = connector.SubmitChanges(ref MainDS, ref ResponseDS, out VerificationResult);
Assert.AreEqual(TSubmitChangesResult.scrOK, result, "create venue record");
// check if Venue partner can be deleted (still needs to be possible at this point)
CanDeletePartner = TPartnerWebConnector.CanPartnerBeDeleted(VenuePartnerRow.PartnerKey, out TextMessage);
if (TextMessage.Length > 0)
{
TLogging.Log(TextMessage);
}
Assert.IsTrue(CanDeletePartner);
// set up buildings for this venue so deletion is not allowed
PcBuildingTable BuildingTable = new PcBuildingTable();
PcBuildingRow BuildingRow = BuildingTable.NewRowTyped();
BuildingRow.VenueKey = VenuePartnerRow.PartnerKey;
BuildingRow.BuildingCode = "Test";
BuildingTable.Rows.Add(BuildingRow);
PcBuildingAccess.SubmitChanges(BuildingTable, DBAccess.GDBAccessObj.Transaction);
// now deletion must not be possible since a building is linked to the venue
CanDeletePartner = TPartnerWebConnector.CanPartnerBeDeleted(VenuePartnerRow.PartnerKey, out TextMessage);
if (TextMessage.Length > 0)
{
TLogging.Log(TextMessage);
}
Assert.IsTrue(!CanDeletePartner);
// now test actual deletion of venue partner
VenuePartnerRow = TCreateTestPartnerData.CreateNewVenuePartner(MainDS);
PartnerKey = VenuePartnerRow.PartnerKey;
result = connector.SubmitChanges(ref MainDS, ref ResponseDS, out VerificationResult);
Assert.AreEqual(TSubmitChangesResult.scrOK, result, "create venue record for deletion");
// check if Venue record is being deleted
Assert.IsTrue(TPartnerWebConnector.DeletePartner(PartnerKey, out VerificationResult));
// check that Venue record is really deleted
Assert.IsTrue(!TPartnerServerLookups.VerifyPartner(PartnerKey));
}
public void TestSaveNewPartnerWithLocation()
{
TDataBase db = DBAccess.Connect("TestSaveNewPartnerWithLocation");
TDBTransaction Transaction = db.BeginTransaction(IsolationLevel.Serializable);
TPartnerEditUIConnector connector = new TPartnerEditUIConnector(db);
PartnerEditTDS MainDS = new PartnerEditTDS();
PPartnerRow PartnerRow = TCreateTestPartnerData.CreateNewFamilyPartner(MainDS, db);
TCreateTestPartnerData.CreateNewLocation(PartnerRow.PartnerKey, MainDS);
DataSet ResponseDS = new PartnerEditTDS();
TVerificationResultCollection VerificationResult;
TSubmitChangesResult result = connector.SubmitChanges(ref MainDS, ref ResponseDS, out VerificationResult);
Transaction.Commit();
CommonNUnitFunctions.EnsureNullOrOnlyNonCriticalVerificationResults(VerificationResult,
"There was a critical error when saving:");
Assert.AreEqual(TSubmitChangesResult.scrOK, result, "TPartnerEditUIConnector SubmitChanges return value");
// check the location key for this partner. should not be negative
Assert.AreEqual(1, MainDS.PPartnerLocation.Rows.Count, "TPartnerEditUIConnector SubmitChanges returns one location");
Assert.Greater(MainDS.PPartnerLocation[0].LocationKey, 0, "TPartnerEditUIConnector SubmitChanges returns valid location key");
}
private Int64 CreateNewPartnerKeyWithUnit()
{
TVerificationResultCollection VerificationResult;
TSubmitChangesResult result;
DataSet ResponseDS = new PartnerEditTDS();
Int64 retVal = 0;
TPartnerEditUIConnector connector = new TPartnerEditUIConnector();
PartnerEditTDS MainDS = new PartnerEditTDS();
PPartnerRow UnitPartnerRow = TCreateTestPartnerData.CreateNewUnitPartnerWithTypeCode(MainDS, "KEY-MIN");
if (UnitPartnerRow != null)
{
result = connector.SubmitChanges(ref MainDS, ref ResponseDS, out VerificationResult);
if (result == TSubmitChangesResult.scrOK)
{
retVal = UnitPartnerRow.PartnerKey;
}
}
return(retVal);
}
public void TestSaveNewPartnerWithExistingLocation()
{
TDataBase db = DBAccess.Connect("TestSaveNewPartnerWithExistingLocation");
TDBTransaction Transaction = db.BeginTransaction(IsolationLevel.Serializable);
TPartnerEditUIConnector connector = new TPartnerEditUIConnector(db);
PartnerEditTDS MainDS = new PartnerEditTDS();
PPartnerRow PartnerRow = TCreateTestPartnerData.CreateNewFamilyPartner(MainDS, db);
TCreateTestPartnerData.CreateNewLocation(PartnerRow.PartnerKey, MainDS);
DataSet ResponseDS = new PartnerEditTDS();
TVerificationResultCollection VerificationResult;
TSubmitChangesResult result = connector.SubmitChanges(ref MainDS, ref ResponseDS, out VerificationResult);
Transaction.Commit();
CommonNUnitFunctions.EnsureNullOrOnlyNonCriticalVerificationResults(VerificationResult,
"There was a critical error when saving:");
Assert.AreEqual(TSubmitChangesResult.scrOK, result, "saving the first partner with a location");
Int32 LocationKey = MainDS.PLocation[0].LocationKey;
MainDS = new PartnerEditTDS();
Transaction = db.BeginTransaction(IsolationLevel.Serializable);
PartnerRow = TCreateTestPartnerData.CreateNewFamilyPartner(MainDS, db);
PPartnerLocationRow PartnerLocationRow = MainDS.PPartnerLocation.NewRowTyped();
PartnerLocationRow.SiteKey = DomainManager.GSiteKey;
PartnerLocationRow.PartnerKey = PartnerRow.PartnerKey;
PartnerLocationRow.LocationKey = LocationKey;
MainDS.PPartnerLocation.Rows.Add(PartnerLocationRow);
ResponseDS = new PartnerEditTDS();
result = connector.SubmitChanges(ref MainDS, ref ResponseDS, out VerificationResult);
Transaction.Commit();
CommonNUnitFunctions.EnsureNullOrOnlyNonCriticalVerificationResults(VerificationResult,
"There was a critical error when saving:");
TDBTransaction ReadTransaction = new TDBTransaction();
db.ReadTransaction(
ref ReadTransaction,
delegate
{
PPartnerTable PartnerAtAddress = PPartnerAccess.LoadViaPLocation(
DomainManager.GSiteKey, LocationKey, ReadTransaction);
Assert.AreEqual(2, PartnerAtAddress.Rows.Count, "there should be two partners at this location");
});
}
public static PartnerEditTDS CreateNewPartner(
string APartnerClass,
out List <string> ASubscriptions,
out List <string> APartnerTypes,
out string ADefaultEmailAddress,
out string ADefaultPhoneMobile,
out string ADefaultPhoneLandline)
{
TPartnerEditUIConnector partneredit = new TPartnerEditUIConnector();
string TmpSiteCountryCode;
Int64 SiteKey = DomainManager.GSiteKey;
PartnerEditTDS MainDS = partneredit.GetDataNewPartner(
SiteKey,
NewPartnerKey(),
SharedTypes.PartnerClassStringToEnum(APartnerClass),
String.Empty,
String.Empty,
false,
-1,
-1,
-1,
out TmpSiteCountryCode);
MainDS.PPartner[0].ReceiptLetterFrequency = "Annual";
PLocationRow location = MainDS.PLocation.NewRowTyped();
location.SiteKey = SiteKey;
// TODO: read country code from SystemDefaults table
location.CountryCode = "DE";
location.LocationKey = -1;
MainDS.PLocation.Rows.Add(location);
TDBTransaction Transaction = new TDBTransaction();
DBAccess.ReadTransaction(ref Transaction,
delegate
{
PCountryAccess.LoadAll(MainDS, Transaction);
PPublicationAccess.LoadAll(MainDS, Transaction);
PPartnerStatusAccess.LoadAll(MainDS, Transaction);
PTypeRow templateRow = MainDS.PType.NewRowTyped();
templateRow.SystemType = false;
templateRow.SetTypeDeletableNull();
templateRow.SetDateCreatedNull();
PTypeAccess.LoadUsingTemplate(MainDS, templateRow, Transaction);
});
APartnerTypes = new List <string>();
ASubscriptions = new List <string>();
ADefaultEmailAddress = String.Empty;
ADefaultPhoneMobile = String.Empty;
ADefaultPhoneLandline = String.Empty;
return(MainDS);
}
/// <summary>
///
/// </summary>
public void SaveChanges()
{
DataSet ResponseDS = new PartnerEditTDS();
TPartnerEditUIConnector UIConnector = new TPartnerEditUIConnector();
TVerificationResultCollection VerificationResult;
TSubmitChangesResult Result = UIConnector.SubmitChanges(ref MainDS, ref ResponseDS, out VerificationResult);
CommonNUnitFunctions.EnsureNullOrOnlyNonCriticalVerificationResults(VerificationResult, "There was a critical error when saving:");
}
public void TestDeleteUnit()
{
DataSet ResponseDS = new PartnerEditTDS();
TVerificationResultCollection VerificationResult;
String TextMessage;
Boolean CanDeletePartner;
PPartnerRow UnitPartnerRow;
PUnitRow UnitRow;
TSubmitChangesResult result;
Int64 PartnerKey;
TDataBase db = DBAccess.Connect("TestDeleteUnit");
TPartnerEditUIConnector connector = new TPartnerEditUIConnector(db);
PartnerEditTDS MainDS = new PartnerEditTDS();
UnitPartnerRow = TCreateTestPartnerData.CreateNewUnitPartner(MainDS, db);
result = connector.SubmitChanges(ref MainDS, ref ResponseDS, out VerificationResult);
// check if Unit partner can be deleted (still needs to be possible at this point)
CanDeletePartner = TPartnerWebConnector.CanPartnerBeDeleted(UnitPartnerRow.PartnerKey, out TextMessage, db);
if (TextMessage.Length > 0)
{
TLogging.Log(TextMessage);
}
Assert.IsTrue(CanDeletePartner);
// set unit type to Key Ministry which means it is not allowed to be deleted any longer
UnitRow = (PUnitRow)MainDS.PUnit.Rows[0];
UnitRow.UnitTypeCode = MPartnerConstants.UNIT_TYPE_KEYMIN;
result = connector.SubmitChanges(ref MainDS, ref ResponseDS, out VerificationResult);
Assert.AreEqual(TSubmitChangesResult.scrOK, result, "set unit type to " + MPartnerConstants.UNIT_TYPE_KEYMIN);
CanDeletePartner = TPartnerWebConnector.CanPartnerBeDeleted(UnitPartnerRow.PartnerKey, out TextMessage, db);
if (TextMessage.Length > 0)
{
TLogging.Log(TextMessage);
}
Assert.IsTrue(!CanDeletePartner);
// now test actual deletion of Unit partner
UnitPartnerRow = TCreateTestPartnerData.CreateNewUnitPartner(MainDS, db);
PartnerKey = UnitPartnerRow.PartnerKey;
result = connector.SubmitChanges(ref MainDS, ref ResponseDS, out VerificationResult);
Assert.AreEqual(TSubmitChangesResult.scrOK, result, "create unit record for deletion");
// check if Unit record is being deleted
Assert.IsTrue(TPartnerWebConnector.DeletePartner(PartnerKey, out VerificationResult, db));
// check that Unit record is really deleted
Assert.IsTrue(!TPartnerServerLookups.VerifyPartner(PartnerKey));
}
public static PartnerEditTDS CreateNewPartner(
string APartnerClass,
out List <string> ASubscriptions,
out List <string> APartnerTypes,
out string ADefaultEmailAddress,
out string ADefaultPhoneMobile,
out string ADefaultPhoneLandline)
{
TPartnerEditUIConnector partneredit = new TPartnerEditUIConnector();
string TmpSiteCountryCode;
PartnerEditTDS MainDS = partneredit.GetDataNewPartner(
DomainManager.GSiteKey,
NewPartnerKey(),
SharedTypes.PartnerClassStringToEnum(APartnerClass),
String.Empty,
String.Empty,
false,
-1,
-1,
-1,
out TmpSiteCountryCode);
MainDS.PPartner[0].ReceiptLetterFrequency = "Annual";
PLocationRow location = MainDS.PLocation.NewRowTyped();
location.SiteKey = DomainManager.GSiteKey;
location.LocationKey = -1;
MainDS.PLocation.Rows.Add(location);
TDBTransaction Transaction = null;
DBAccess.GDBAccessObj.BeginAutoReadTransaction(IsolationLevel.ReadCommitted, ref Transaction,
delegate
{
PPublicationAccess.LoadAll(MainDS, Transaction);
PPartnerStatusAccess.LoadAll(MainDS, Transaction);
PTypeAccess.LoadAll(MainDS, Transaction);
});
APartnerTypes = new List <string>();
ASubscriptions = new List <string>();
ADefaultEmailAddress = String.Empty;
ADefaultPhoneMobile = String.Empty;
ADefaultPhoneLandline = String.Empty;
return(MainDS);
}
public void TestFamilyPropagateNewLocation()
{
TDataBase db = DBAccess.Connect("TestFamilyPropagateNewLocation");
TPartnerEditUIConnector connector = new TPartnerEditUIConnector(db);
PartnerEditTDS MainDS = new PartnerEditTDS();
TCreateTestPartnerData.CreateFamilyWithTwoPersonRecords(MainDS, db);
DataSet ResponseDS = new PartnerEditTDS();
TVerificationResultCollection VerificationResult;
TSubmitChangesResult result = connector.SubmitChanges(ref MainDS, ref ResponseDS, out VerificationResult);
CommonNUnitFunctions.EnsureNullOrOnlyNonCriticalVerificationResults(VerificationResult,
"There was a critical error when saving:");
// now change on partner location. should ask about everyone else
// it seems, the change must be to PLocation. In Petra 2.3, changes to the PartnerLocation are not propagated
// MainDS.PPartnerLocation[0].DateGoodUntil = new DateTime(2011, 01, 01);
Assert.AreEqual(1, MainDS.PLocation.Rows.Count, "there should be only one address for the whole family");
MainDS.PLocation[0].County = "different";
ResponseDS = new PartnerEditTDS();
result = connector.SubmitChanges(ref MainDS, ref ResponseDS, out VerificationResult);
CommonNUnitFunctions.EnsureNullOrOnlyNonCriticalVerificationResults(VerificationResult,
"There was a critical error when saving:");
// we currently return scrOK
Assert.AreEqual(TSubmitChangesResult.scrInfoNeeded,
result,
"should ask if the partner locations of the other members of the family should be changed as well");
// TODO: simulate the dialog where the user selects which people to propagate the address change for.
// TODO: what about replacing the whole address?
// TODO: adding a new location for all members of the family?
}
public void TestNewPartnerWithLocation0()
{
TPartnerEditUIConnector connector = new TPartnerEditUIConnector();
PartnerEditTDS MainDS = new PartnerEditTDS();
PPartnerRow PartnerRow = TCreateTestPartnerData.CreateNewFamilyPartner(MainDS);
PPartnerLocationRow PartnerLocationRow = MainDS.PPartnerLocation.NewRowTyped();
PartnerLocationRow.SiteKey = DomainManager.GSiteKey;
PartnerLocationRow.PartnerKey = PartnerRow.PartnerKey;
PartnerLocationRow.LocationKey = 0;
MainDS.PPartnerLocation.Rows.Add(PartnerLocationRow);
DataSet ResponseDS = new PartnerEditTDS();
TVerificationResultCollection VerificationResult;
TSubmitChangesResult result = connector.SubmitChanges(ref MainDS, ref ResponseDS, out VerificationResult);
CommonNUnitFunctions.EnsureNullOrOnlyNonCriticalVerificationResults(VerificationResult,
"There was a critical error when saving:");
Assert.AreEqual(TSubmitChangesResult.scrOK, result, "Create a partner with location 0");
TCreateTestPartnerData.CreateNewLocation(PartnerRow.PartnerKey, MainDS);
// remove location 0, same is done in csharp\ICT\Petra\Client\MCommon\logic\UC_PartnerAddresses.cs TUCPartnerAddressesLogic::AddRecord
// Check if record with PartnerLocation.LocationKey = 0 is around > delete it
DataRow PartnerLocationRecordZero =
MainDS.PPartnerLocation.Rows.Find(new object[] { PartnerRow.PartnerKey, DomainManager.GSiteKey, 0 });
if (PartnerLocationRecordZero != null)
{
DataRow LocationRecordZero = MainDS.PLocation.Rows.Find(new object[] { DomainManager.GSiteKey, 0 });
if (LocationRecordZero != null)
{
LocationRecordZero.Delete();
}
PartnerLocationRecordZero.Delete();
}
ResponseDS = new PartnerEditTDS();
result = connector.SubmitChanges(ref MainDS, ref ResponseDS, out VerificationResult);
CommonNUnitFunctions.EnsureNullOrOnlyNonCriticalVerificationResults(VerificationResult,
"There was a critical error when saving:");
Assert.AreEqual(TSubmitChangesResult.scrOK, result, "Replace location 0 of partner");
Assert.AreEqual(1, MainDS.PPartnerLocation.Rows.Count, "the partner should only have one location in the dataset");
// get all addresses of the partner
TDBTransaction ReadTransaction = null;
DBAccess.GDBAccessObj.GetNewOrExistingAutoReadTransaction(IsolationLevel.ReadCommitted, TEnforceIsolationLevel.eilMinimum,
ref ReadTransaction,
delegate
{
PPartnerLocationTable testPartnerLocations = PPartnerLocationAccess.LoadViaPPartner(PartnerRow.PartnerKey, ReadTransaction);
Assert.AreEqual(1, testPartnerLocations.Rows.Count, "the partner should only have one location");
Assert.Greater(testPartnerLocations[0].LocationKey, 0, "TPartnerEditUIConnector SubmitChanges returns valid location key");
});
}
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;
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;
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;
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)
{
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)
{
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;
}
// TODO: check if location 0 (no address) was changed. we don't want to overwrite that
// alternative: check if somebody else uses that location, and split the locations. or ask if others should be updated???
if (SaveDS.PLocation[0].RowState == DataRowState.Modified && SaveDS.PLocation[0].LocationKey == 0)
{
TLogging.Log("we cannot update addresses of people with location 0");
AVerificationResult.Add(new TVerificationResult("error", "we cannot update addresses of people with location 0", 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);
}
}
public void TestDeleteBank()
{
DataSet ResponseDS = new PartnerEditTDS();
TVerificationResultCollection VerificationResult;
String TextMessage;
Boolean CanDeletePartner;
PPartnerRow BankPartnerRow;
TSubmitChangesResult result;
Int64 PartnerKey;
TPartnerEditUIConnector connector = new TPartnerEditUIConnector();
PartnerEditTDS MainDS = new PartnerEditTDS();
BankPartnerRow = TCreateTestPartnerData.CreateNewBankPartner(MainDS);
result = connector.SubmitChanges(ref MainDS, ref ResponseDS, out VerificationResult);
Assert.AreEqual(TSubmitChangesResult.scrOK, result, "create bank record");
// check if Bank partner can be deleted (still needs to be possible at this point)
CanDeletePartner = TPartnerWebConnector.CanPartnerBeDeleted(BankPartnerRow.PartnerKey, out TextMessage);
if (TextMessage.Length > 0)
{
TLogging.Log(TextMessage);
}
Assert.IsTrue(CanDeletePartner);
// set up details (e.g. bank account) for this Bank so deletion is not allowed
PBankingDetailsTable BankingDetailsTable = new PBankingDetailsTable();
PBankingDetailsRow BankingDetailsRow = BankingDetailsTable.NewRowTyped();
BankingDetailsRow.BankKey = BankPartnerRow.PartnerKey;
BankingDetailsRow.BankingType = 0;
BankingDetailsRow.BankingDetailsKey = Convert.ToInt32(TSequenceWebConnector.GetNextSequence(TSequenceNames.seq_bank_details));
BankingDetailsTable.Rows.Add(BankingDetailsRow);
PBankingDetailsAccess.SubmitChanges(BankingDetailsTable, DBAccess.GDBAccessObj.Transaction);
// now deletion must not be possible since a bank account is set up for the bank
CanDeletePartner = TPartnerWebConnector.CanPartnerBeDeleted(BankPartnerRow.PartnerKey, out TextMessage);
if (TextMessage.Length > 0)
{
TLogging.Log(TextMessage);
}
Assert.IsTrue(!CanDeletePartner);
// now test actual deletion of venue partner
BankPartnerRow = TCreateTestPartnerData.CreateNewBankPartner(MainDS);
PartnerKey = BankPartnerRow.PartnerKey;
result = connector.SubmitChanges(ref MainDS, ref ResponseDS, out VerificationResult);
Assert.AreEqual(TSubmitChangesResult.scrOK, result, "create bank partner for deletion");
// check if Venue record is being deleted
Assert.IsTrue(TPartnerWebConnector.DeletePartner(PartnerKey, out VerificationResult));
// check that Bank record is really deleted
Assert.IsTrue(!TPartnerServerLookups.VerifyPartner(PartnerKey));
}
/// <summary>
/// Creates data needed to test posting recalculations
/// </summary>
/// <param name="ARecipientKey">Partner Key of the recipient.</param>
/// <param name="ARealRecipientLedgerNumber">What the RecipientLedgerNumber should be.</param>
/// <param name="AFalseRecipientLedgerNumber">What the RecipientLedgerNumber is.</param>
/// <param name="ARecurringGiftBatchNumber">Batch Number.</param>
private void TestRecurringBatchSubmitRecalculations_Arrange(out long ARecipientKey,
out long ARealRecipientLedgerNumber,
out long AFalseRecipientLedgerNumber,
out Int32 ARecurringGiftBatchNumber)
{
TVerificationResultCollection VerificationResult;
TSubmitChangesResult Result;
DataSet ResponseDS;
TPartnerEditUIConnector PartnerEditUIUIConnector = new TPartnerEditUIConnector();
GiftBatchTDS MainDS = new GiftBatchTDS();
PartnerEditTDS PartnerEditDS = new PartnerEditTDS();
// this is a family partner in the test database
const Int64 DONORKEY = 43005001;
// create a new recipient
TCreateTestPartnerData.CreateNewFamilyPartner(PartnerEditDS);
ARecipientKey = PartnerEditDS.PFamily[0].PartnerKey;
// create two new Unit partners
TCreateTestPartnerData.CreateNewUnitPartner(PartnerEditDS);
TCreateTestPartnerData.CreateNewUnitPartner(PartnerEditDS);
AFalseRecipientLedgerNumber = PartnerEditDS.PPartner[0].PartnerKey;
ARealRecipientLedgerNumber = PartnerEditDS.PPartner[1].PartnerKey;
// create a Gift Destination for family
PPartnerGiftDestinationRow GiftDestination = PartnerEditDS.PPartnerGiftDestination.NewRowTyped(true);
GiftDestination.Key = TPartnerDataReaderWebConnector.GetNewKeyForPartnerGiftDestination();
GiftDestination.PartnerKey = ARecipientKey;
GiftDestination.DateEffective = new DateTime(2011, 01, 01);
GiftDestination.FieldKey = ARealRecipientLedgerNumber;
PartnerEditDS.PPartnerGiftDestination.Rows.Add(GiftDestination);
// Guard Assertions
Assert.That(PartnerEditDS.PFamily[0], Is.Not.Null);
Assert.That(PartnerEditDS.PPartner[0], Is.Not.Null);
Assert.That(PartnerEditDS.PPartner[1], Is.Not.Null);
// Submit the new PartnerEditTDS records to the database
ResponseDS = new PartnerEditTDS();
Result = PartnerEditUIUIConnector.SubmitChanges(ref PartnerEditDS, ref ResponseDS, out VerificationResult);
// Guard Assertion
Assert.That(Result, Is.EqualTo(
TSubmitChangesResult.scrOK), "SubmitChanges for PartnerEditDS failed: " + VerificationResult.BuildVerificationResultString());
// link unit to Cost Centre
DataTable PartnerCostCentreTbl = TGLSetupWebConnector.LoadCostCentrePartnerLinks(FLedgerNumber, 0);
DataRow PartnerCostCentreRow = PartnerCostCentreTbl.NewRow();
PartnerCostCentreRow["PartnerKey"] = ARealRecipientLedgerNumber;
PartnerCostCentreRow["IsLinked"] = 4300;
PartnerCostCentreTbl.Rows.Add(PartnerCostCentreRow);
TGLSetupWebConnector.SaveCostCentrePartnerLinks(FLedgerNumber, PartnerCostCentreTbl);
// create a new Recurring Gift Batch
MainDS = TGiftTransactionWebConnector.CreateARecurringGiftBatch(FLedgerNumber);
ARecurringGiftBatchNumber = MainDS.ARecurringGiftBatch[0].BatchNumber;
// create a new recurring gifts
ARecurringGiftRow RecurringGiftRow = MainDS.ARecurringGift.NewRowTyped(true);
RecurringGiftRow.LedgerNumber = FLedgerNumber;
RecurringGiftRow.BatchNumber = ARecurringGiftBatchNumber;
RecurringGiftRow.DonorKey = DONORKEY;
RecurringGiftRow.GiftTransactionNumber = 1;
RecurringGiftRow.LastDetailNumber = 1;
MainDS.ARecurringGift.Rows.Add(RecurringGiftRow);
// create a new RecurringGiftDetail
ARecurringGiftDetailRow RecurringGiftDetail = MainDS.ARecurringGiftDetail.NewRowTyped(true);
RecurringGiftDetail.LedgerNumber = FLedgerNumber;
RecurringGiftDetail.BatchNumber = ARecurringGiftBatchNumber;
RecurringGiftDetail.GiftTransactionNumber = 1;
RecurringGiftDetail.DetailNumber = 1;
RecurringGiftDetail.RecipientLedgerNumber = AFalseRecipientLedgerNumber;
RecurringGiftDetail.GiftAmount = 100;
RecurringGiftDetail.MotivationGroupCode = "GIFT";
RecurringGiftDetail.MotivationDetailCode = "SUPPORT";
RecurringGiftDetail.RecipientKey = ARecipientKey;
MainDS.ARecurringGiftDetail.Rows.Add(RecurringGiftDetail);
// Submit the new GiftBatchTDS records to the database
Result = TGiftTransactionWebConnector.SaveGiftBatchTDS(ref MainDS, out VerificationResult);
// Guard Assertion
Assert.That(Result, Is.EqualTo(
TSubmitChangesResult.scrOK), "SaveGiftBatchTDS failed: " + VerificationResult.BuildVerificationResultString());
}
public void TestDeleteChurch()
{
DataSet ResponseDS = new PartnerEditTDS();
TVerificationResultCollection VerificationResult;
String TextMessage;
Boolean CanDeletePartner;
PPartnerRow ChurchPartnerRow;
PPartnerRow PartnerRow;
TSubmitChangesResult result;
Int64 PartnerKey;
TPartnerEditUIConnector connector = new TPartnerEditUIConnector();
PartnerEditTDS MainDS = new PartnerEditTDS();
ChurchPartnerRow = TCreateTestPartnerData.CreateNewChurchPartner(MainDS);
result = connector.SubmitChanges(ref MainDS, ref ResponseDS, out VerificationResult);
Assert.AreEqual(TSubmitChangesResult.scrOK, result, "create church record");
// check if church partner can be deleted (still needs to be possible at this point)
CanDeletePartner = TPartnerWebConnector.CanPartnerBeDeleted(ChurchPartnerRow.PartnerKey, out TextMessage);
if (TextMessage.Length > 0)
{
TLogging.Log(TextMessage);
}
Assert.IsTrue(CanDeletePartner);
// create family partner and relationship to church partner
PartnerRow = TCreateTestPartnerData.CreateNewFamilyPartner(MainDS);
PPartnerRelationshipRow RelationshipRow = MainDS.PPartnerRelationship.NewRowTyped();
RelationshipRow.PartnerKey = ChurchPartnerRow.PartnerKey;
RelationshipRow.RelationName = "SUPPCHURCH";
RelationshipRow.RelationKey = PartnerRow.PartnerKey;
MainDS.PPartnerRelationship.Rows.Add(RelationshipRow);
result = connector.SubmitChanges(ref MainDS, ref ResponseDS, out VerificationResult);
Assert.AreEqual(TSubmitChangesResult.scrOK, result, "add relationship record to church record");
CommonNUnitFunctions.EnsureNullOrOnlyNonCriticalVerificationResults(VerificationResult,
"There was a critical error when saving:");
// now deletion must not be possible since relationship as SUPPCHURCH exists
CanDeletePartner = TPartnerWebConnector.CanPartnerBeDeleted(ChurchPartnerRow.PartnerKey, out TextMessage);
if (TextMessage.Length > 0)
{
TLogging.Log(TextMessage);
}
Assert.IsTrue(!CanDeletePartner);
// now test actual deletion of church partner
ChurchPartnerRow = TCreateTestPartnerData.CreateNewChurchPartner(MainDS);
PartnerKey = ChurchPartnerRow.PartnerKey;
result = connector.SubmitChanges(ref MainDS, ref ResponseDS, out VerificationResult);
Assert.AreEqual(TSubmitChangesResult.scrOK, result, "create church record for deletion");
// check if church record is being deleted
Assert.IsTrue(TPartnerWebConnector.DeletePartner(PartnerKey, out VerificationResult));
// check that church record is really deleted
Assert.IsTrue(!TPartnerServerLookups.VerifyPartner(PartnerKey));
}
public void TestDeletePerson()
{
DataSet ResponseDS = new PartnerEditTDS();
TVerificationResultCollection VerificationResult;
String TextMessage;
Boolean CanDeletePartner;
PPartnerRow FamilyPartnerRow;
PPartnerRow UnitPartnerRow;
PPersonRow PersonRow;
TSubmitChangesResult result;
Int64 PartnerKey;
TPartnerEditUIConnector connector = new TPartnerEditUIConnector();
PartnerEditTDS MainDS = new PartnerEditTDS();
// create new family, location and person
FamilyPartnerRow = TCreateTestPartnerData.CreateNewFamilyPartner(MainDS);
TCreateTestPartnerData.CreateNewLocation(FamilyPartnerRow.PartnerKey, MainDS);
PersonRow = TCreateTestPartnerData.CreateNewPerson(MainDS,
FamilyPartnerRow.PartnerKey,
MainDS.PLocation[0].LocationKey,
"Mike",
"Mr",
0);
result = connector.SubmitChanges(ref MainDS, ref ResponseDS, out VerificationResult);
Assert.AreEqual(TSubmitChangesResult.scrOK, result, "create family and person record");
// check if Family partner can be deleted (still needs to be possible at this point)
CanDeletePartner = TPartnerWebConnector.CanPartnerBeDeleted(PersonRow.PartnerKey, out TextMessage);
if (TextMessage.Length > 0)
{
TLogging.Log(TextMessage);
}
Assert.IsTrue(CanDeletePartner);
// add a commitment for the person which means the person is not allowed to be deleted any longer
UnitPartnerRow = TCreateTestPartnerData.CreateNewUnitPartner(MainDS);
PmStaffDataTable CommitmentTable = new PmStaffDataTable();
PmStaffDataRow CommitmentRow = CommitmentTable.NewRowTyped();
CommitmentRow.Key = Convert.ToInt32(TSequenceWebConnector.GetNextSequence(TSequenceNames.seq_staff_data));
CommitmentRow.PartnerKey = PersonRow.PartnerKey;
CommitmentRow.StartOfCommitment = DateTime.Today.Date;
CommitmentRow.EndOfCommitment = DateTime.Today.AddDays(90).Date;
CommitmentRow.OfficeRecruitedBy = UnitPartnerRow.PartnerKey;
CommitmentRow.HomeOffice = UnitPartnerRow.PartnerKey;
CommitmentRow.ReceivingField = UnitPartnerRow.PartnerKey;
CommitmentTable.Rows.Add(CommitmentRow);
result = connector.SubmitChanges(ref MainDS, ref ResponseDS, out VerificationResult);
Assert.AreEqual(TSubmitChangesResult.scrOK, result, "create unit to be used in commitment");
PmStaffDataAccess.SubmitChanges(CommitmentTable, DBAccess.GDBAccessObj.Transaction);
// this should now not be allowed since person record has a commitment linked to it
CanDeletePartner = TPartnerWebConnector.CanPartnerBeDeleted(PersonRow.PartnerKey, out TextMessage);
if (TextMessage.Length > 0)
{
TLogging.Log(TextMessage);
}
Assert.IsTrue(!CanDeletePartner);
// now test actual deletion of Person partner
FamilyPartnerRow = TCreateTestPartnerData.CreateNewFamilyPartner(MainDS);
TCreateTestPartnerData.CreateNewLocation(FamilyPartnerRow.PartnerKey, MainDS);
PersonRow = TCreateTestPartnerData.CreateNewPerson(MainDS,
FamilyPartnerRow.PartnerKey,
MainDS.PLocation[0].LocationKey,
"Mary",
"Mrs",
0);
PartnerKey = PersonRow.PartnerKey;
result = connector.SubmitChanges(ref MainDS, ref ResponseDS, out VerificationResult);
Assert.AreEqual(TSubmitChangesResult.scrOK, result, "create family and person record to be deleted");
// check if Family record is being deleted
Assert.IsTrue(TPartnerWebConnector.DeletePartner(PartnerKey, out VerificationResult));
// check that Family record is really deleted
Assert.IsTrue(!TPartnerServerLookups.VerifyPartner(PartnerKey));
}
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);
}
}
public void TestBankingDetails()
{
TPartnerEditUIConnector connector = new TPartnerEditUIConnector();
PartnerEditTDS MainDS = new PartnerEditTDS();
PPartnerRow PartnerRow = TCreateTestPartnerData.CreateNewFamilyPartner(MainDS);
TCreateTestPartnerData.CreateNewLocation(PartnerRow.PartnerKey, MainDS);
DataSet ResponseDS = new PartnerEditTDS();
TVerificationResultCollection VerificationResult;
TSubmitChangesResult result = connector.SubmitChanges(ref MainDS, ref ResponseDS, out VerificationResult);
CommonNUnitFunctions.EnsureNullOrOnlyNonCriticalVerificationResults(VerificationResult,
"There was a critical error when saving:");
Assert.AreEqual(TSubmitChangesResult.scrOK, result, "TPartnerEditUIConnector SubmitChanges return value");
connector = new TPartnerEditUIConnector(PartnerRow.PartnerKey);
// add a banking detail
PartnerEditTDSPBankingDetailsRow bankingDetailsRow = MainDS.PBankingDetails.NewRowTyped(true);
bankingDetailsRow.AccountName = "account of " + PartnerRow.PartnerShortName;
bankingDetailsRow.BankAccountNumber = new Random().Next().ToString();
bankingDetailsRow.BankingDetailsKey = (MainDS.PBankingDetails.Count + 1) * -1;
bankingDetailsRow.BankKey = 43005004;
bankingDetailsRow.MainAccount = true;
bankingDetailsRow.BankingType = MPartnerConstants.BANKINGTYPE_BANKACCOUNT;
MainDS.PBankingDetails.Rows.Add(bankingDetailsRow);
PPartnerBankingDetailsRow partnerBankingDetails = MainDS.PPartnerBankingDetails.NewRowTyped(true);
partnerBankingDetails.PartnerKey = PartnerRow.PartnerKey;
partnerBankingDetails.BankingDetailsKey = bankingDetailsRow.BankingDetailsKey;
MainDS.PPartnerBankingDetails.Rows.Add(partnerBankingDetails);
result = connector.SubmitChanges(ref MainDS, ref ResponseDS, out VerificationResult);
CommonNUnitFunctions.EnsureNullOrOnlyNonCriticalVerificationResults(VerificationResult,
"There was a critical error when saving 2:");
foreach (DataTable t in MainDS.Tables)
{
if ((t == MainDS.PBankingDetails) ||
(t == MainDS.PPartnerBankingDetails) ||
(t == MainDS.PDataLabelValuePartner))
{
int NumRows = t.Rows.Count;
for (int RowIndex = NumRows - 1; RowIndex >= 0; RowIndex -= 1)
{
DataRow InspectDR = t.Rows[RowIndex];
// delete all added Rows.
if (InspectDR.RowState == DataRowState.Added)
{
InspectDR.Delete();
}
}
}
}
MainDS.AcceptChanges();
Assert.AreEqual(1, PBankingDetailsUsageAccess.CountViaPPartner(PartnerRow.PartnerKey, null), "count of main accounts for partner");
// add another account
bankingDetailsRow = MainDS.PBankingDetails.NewRowTyped(true);
bankingDetailsRow.AccountName = "2nd account of " + PartnerRow.PartnerShortName;
bankingDetailsRow.BankAccountNumber = new Random().Next().ToString();
bankingDetailsRow.BankingDetailsKey = (MainDS.PBankingDetails.Count + 1) * -1;
bankingDetailsRow.BankKey = 43005004;
bankingDetailsRow.MainAccount = false;
bankingDetailsRow.BankingType = MPartnerConstants.BANKINGTYPE_BANKACCOUNT;
MainDS.PBankingDetails.Rows.Add(bankingDetailsRow);
partnerBankingDetails = MainDS.PPartnerBankingDetails.NewRowTyped(true);
partnerBankingDetails.PartnerKey = PartnerRow.PartnerKey;
partnerBankingDetails.BankingDetailsKey = bankingDetailsRow.BankingDetailsKey;
MainDS.PPartnerBankingDetails.Rows.Add(partnerBankingDetails);
PartnerEditTDS ChangedDS = MainDS.GetChangesTyped(true);
result = connector.SubmitChanges(ref ChangedDS, ref ResponseDS, out VerificationResult);
MainDS.Merge(ChangedDS);
foreach (DataTable t in MainDS.Tables)
{
if ((t == MainDS.PBankingDetails) ||
(t == MainDS.PPartnerBankingDetails) ||
(t == MainDS.PDataLabelValuePartner))
{
int NumRows = t.Rows.Count;
for (int RowIndex = NumRows - 1; RowIndex >= 0; RowIndex -= 1)
{
DataRow InspectDR = t.Rows[RowIndex];
// delete all added Rows.
if (InspectDR.RowState == DataRowState.Added)
{
InspectDR.Delete();
}
}
}
}
MainDS.AcceptChanges();
CommonNUnitFunctions.EnsureNullOrOnlyNonCriticalVerificationResults(VerificationResult,
"There was a critical error when saving 3:");
// now delete the main bank account
PartnerEditTDSPBankingDetailsRow toDelete = null;
foreach (PartnerEditTDSPBankingDetailsRow row in MainDS.PBankingDetails.Rows)
{
if (row.MainAccount)
{
toDelete = row;
break;
}
}
Assert.IsNotNull(toDelete, "cannot find main account");
Assert.AreEqual(true, toDelete.MainAccount, "should be the main account");
MainDS.PPartnerBankingDetails.Rows.Find(new object[] { PartnerRow.PartnerKey, toDelete.BankingDetailsKey }).Delete();
toDelete.Delete();
ChangedDS = MainDS.GetChangesTyped(true);
result = connector.SubmitChanges(ref ChangedDS, ref ResponseDS, out VerificationResult);
Assert.AreEqual(1, VerificationResult.Count, "should fail because we have no main account anymore");
Assert.AreEqual(
"One Bank Account of a Partner must be set as the 'Main Account'. Please select the record that should become the 'Main Account' and choose 'Set Main Account'.",
VerificationResult[0].ResultText,
"should fail because we have no main account anymore");
PartnerEditTDSPBankingDetailsRow otherAccount = null;
foreach (PartnerEditTDSPBankingDetailsRow row in MainDS.PBankingDetails.Rows)
{
if ((row.RowState != DataRowState.Deleted) && !row.MainAccount)
{
otherAccount = row;
break;
}
}
otherAccount.MainAccount = true;
ChangedDS = MainDS.GetChangesTyped(true);
result = connector.SubmitChanges(ref ChangedDS, ref ResponseDS, out VerificationResult);
MainDS.Merge(ChangedDS);
MainDS.AcceptChanges();
CommonNUnitFunctions.EnsureNullOrOnlyNonCriticalVerificationResults(VerificationResult,
"There was a critical error when saving 4:");
// now delete the last remaining bank account
toDelete = MainDS.PBankingDetails[0];
Assert.AreEqual(true, toDelete.MainAccount);
MainDS.PPartnerBankingDetails.Rows.Find(new object[] { PartnerRow.PartnerKey, toDelete.BankingDetailsKey }).Delete();
toDelete.Delete();
ChangedDS = MainDS.GetChangesTyped(true);
result = connector.SubmitChanges(ref ChangedDS, ref ResponseDS, out VerificationResult);
MainDS.Merge(ChangedDS);
MainDS.AcceptChanges();
CommonNUnitFunctions.EnsureNullOrOnlyNonCriticalVerificationResults(VerificationResult,
"There was a critical error when saving 5:");
}
public void TestDeleteFamily()
{
DataSet ResponseDS = new PartnerEditTDS();
TVerificationResultCollection VerificationResult;
String TextMessage;
Boolean CanDeletePartner;
PPartnerRow FamilyPartnerRow;
PFamilyRow FamilyRow;
PPersonRow PersonRow;
TSubmitChangesResult result;
Int64 PartnerKey;
TPartnerEditUIConnector connector = new TPartnerEditUIConnector();
PartnerEditTDS MainDS = new PartnerEditTDS();
FamilyPartnerRow = TCreateTestPartnerData.CreateNewFamilyPartner(MainDS);
result = connector.SubmitChanges(ref MainDS, ref ResponseDS, out VerificationResult);
Assert.AreEqual(TSubmitChangesResult.scrOK, result, "Create family record");
// check if Family partner can be deleted (still needs to be possible at this point)
CanDeletePartner = TPartnerWebConnector.CanPartnerBeDeleted(FamilyPartnerRow.PartnerKey, out TextMessage);
if (TextMessage.Length > 0)
{
TLogging.Log(TextMessage);
}
Assert.IsTrue(CanDeletePartner);
// add a person to the family which means the family is not allowed to be deleted any longer
FamilyRow = (PFamilyRow)MainDS.PFamily.Rows[0];
FamilyRow.FamilyMembers = true;
TCreateTestPartnerData.CreateNewLocation(FamilyPartnerRow.PartnerKey, MainDS);
result = connector.SubmitChanges(ref MainDS, ref ResponseDS, out VerificationResult);
Assert.AreEqual(TSubmitChangesResult.scrOK, result, "create new location");
PartnerEditTDS PersonDS = new PartnerEditTDS();
PersonRow = TCreateTestPartnerData.CreateNewPerson(PersonDS, FamilyPartnerRow.PartnerKey,
MainDS.PLocation[0].LocationKey, "Adam", "Mr", 0);
PersonRow.FamilyKey = FamilyPartnerRow.PartnerKey;
result = connector.SubmitChanges(ref PersonDS, ref ResponseDS, out VerificationResult);
Assert.AreEqual(TSubmitChangesResult.scrOK, result, "create person record");
CanDeletePartner = TPartnerWebConnector.CanPartnerBeDeleted(FamilyPartnerRow.PartnerKey, out TextMessage);
if (TextMessage.Length > 0)
{
TLogging.Log(TextMessage);
}
Assert.IsTrue(!CanDeletePartner);
// create new family and create subscription given as gift from this family: not allowed to be deleted
FamilyPartnerRow = TCreateTestPartnerData.CreateNewFamilyPartner(MainDS);
PPublicationTable PublicationTable = PPublicationAccess.LoadByPrimaryKey("TESTPUBLICATION", DBAccess.GDBAccessObj.Transaction);
if (PublicationTable.Count == 0)
{
// first check if frequency "Annual" exists and if not then create it
if (!AFrequencyAccess.Exists("Annual", DBAccess.GDBAccessObj.Transaction))
{
// set up details (e.g. bank account) for this Bank so deletion is not allowed
AFrequencyTable FrequencyTable = new AFrequencyTable();
AFrequencyRow FrequencyRow = FrequencyTable.NewRowTyped();
FrequencyRow.FrequencyCode = "Annual";
FrequencyRow.FrequencyDescription = "Annual Frequency";
FrequencyTable.Rows.Add(FrequencyRow);
AFrequencyAccess.SubmitChanges(FrequencyTable, DBAccess.GDBAccessObj.Transaction);
}
// now add the publication "TESTPUBLICATION"
PPublicationRow PublicationRow = PublicationTable.NewRowTyped();
PublicationRow.PublicationCode = "TESTPUBLICATION";
PublicationRow.FrequencyCode = "Annual";
PublicationTable.Rows.Add(PublicationRow);
PPublicationAccess.SubmitChanges(PublicationTable, DBAccess.GDBAccessObj.Transaction);
}
// make sure that "reason subscription given" exists
if (!PReasonSubscriptionGivenAccess.Exists("FREE", DBAccess.GDBAccessObj.Transaction))
{
// set up details (e.g. bank account) for this Bank so deletion is not allowed
PReasonSubscriptionGivenTable ReasonTable = new PReasonSubscriptionGivenTable();
PReasonSubscriptionGivenRow ReasonRow = ReasonTable.NewRowTyped();
ReasonRow.Code = "FREE";
ReasonRow.Description = "Free Subscription";
ReasonTable.Rows.Add(ReasonRow);
PReasonSubscriptionGivenAccess.SubmitChanges(ReasonTable, DBAccess.GDBAccessObj.Transaction);
}
// now add the publication "TESTPUBLICATION" to the first family record and indicate it was a gift from newly created family record
PSubscriptionRow SubscriptionRow = MainDS.PSubscription.NewRowTyped();
SubscriptionRow.PublicationCode = "TESTPUBLICATION";
SubscriptionRow.PartnerKey = FamilyRow.PartnerKey; // link subscription with original family
SubscriptionRow.GiftFromKey = FamilyPartnerRow.PartnerKey; // indicate that subscription is a gift from newly created family
SubscriptionRow.ReasonSubsGivenCode = "FREE";
MainDS.PSubscription.Rows.Add(SubscriptionRow);
result = connector.SubmitChanges(ref MainDS, ref ResponseDS, out VerificationResult);
Assert.AreEqual(TSubmitChangesResult.scrOK, result, "add publication to family record");
// this should now not be allowed since partner record has a subscription linked to it
CanDeletePartner = TPartnerWebConnector.CanPartnerBeDeleted(FamilyPartnerRow.PartnerKey, out TextMessage);
if (TextMessage.Length > 0)
{
TLogging.Log(TextMessage);
}
Assert.IsTrue(!CanDeletePartner);
// now test actual deletion of Family partner
FamilyPartnerRow = TCreateTestPartnerData.CreateNewFamilyPartner(MainDS);
PartnerKey = FamilyPartnerRow.PartnerKey;
result = connector.SubmitChanges(ref MainDS, ref ResponseDS, out VerificationResult);
Assert.AreEqual(TSubmitChangesResult.scrOK, result, "create family record");
// check if Family record is being deleted
Assert.IsTrue(TPartnerWebConnector.DeletePartner(PartnerKey, out VerificationResult));
// check that Family record is really deleted
Assert.IsTrue(!TPartnerServerLookups.VerifyPartner(PartnerKey));
}
public static bool MaintainBankAccounts(
string action,
Int32 ABankingDetailsKey,
Int64 APartnerKey,
string AAccountName,
string AIban,
out TVerificationResultCollection AVerificationResult)
{
List <string> Dummy1, Dummy2;
string Dummy3, Dummy4, Dummy5;
PartnerEditTDS MainDS = GetPartnerDetails(APartnerKey, out Dummy1, out Dummy2, out Dummy3, out Dummy4, out Dummy5);
AVerificationResult = new TVerificationResultCollection();
AIban = AIban.Replace(" ", "");
string BIC = String.Empty;
string BankName = String.Empty;
if ((action == "create" || action == "edit"))
{
// Validate IBAN, and calculate the BIC
if (!ValidateIBAN(AIban, out BIC, out BankName, out AVerificationResult))
{
return(false);
}
}
if (action == "create")
{
PartnerEditTDSPBankingDetailsRow row = MainDS.PBankingDetails.NewRowTyped();
row.BankingDetailsKey = -1;
row.BankingType = 0; // BANK ACCOUNT
row.AccountName = AAccountName;
row.Iban = AIban;
row.BankKey = FindOrCreateBank(BIC, BankName);
row.MainAccount = MainDS.PBankingDetails.Count == 0;
MainDS.PBankingDetails.Rows.Add(row);
PPartnerBankingDetailsRow pdrow = MainDS.PPartnerBankingDetails.NewRowTyped();
pdrow.PartnerKey = APartnerKey;
pdrow.BankingDetailsKey = -1;
MainDS.PPartnerBankingDetails.Rows.Add(pdrow);
DataSet ResponseDS = new PartnerEditTDS();
TPartnerEditUIConnector uiconnector = new TPartnerEditUIConnector(APartnerKey);
try
{
TSubmitChangesResult result = uiconnector.SubmitChanges(
ref MainDS,
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);
}
}
else if (action == "edit")
{
foreach (PartnerEditTDSPBankingDetailsRow row in MainDS.PBankingDetails.Rows)
{
if (row.BankingDetailsKey == ABankingDetailsKey)
{
row.AccountName = AAccountName;
row.Iban = AIban;
row.BankKey = FindOrCreateBank(BIC, BankName);
}
}
DataSet ResponseDS = new PartnerEditTDS();
TPartnerEditUIConnector uiconnector = new TPartnerEditUIConnector(APartnerKey);
try
{
TSubmitChangesResult result = uiconnector.SubmitChanges(
ref MainDS,
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);
}
}
else if (action == "delete")
{
foreach (PPartnerBankingDetailsRow row in MainDS.PPartnerBankingDetails.Rows)
{
if (row.BankingDetailsKey == ABankingDetailsKey)
{
row.Delete();
}
}
bool wasMainAccount = false;
PartnerEditTDSPBankingDetailsRow otherAccount = null;
foreach (PartnerEditTDSPBankingDetailsRow row in MainDS.PBankingDetails.Rows)
{
if (row.BankingDetailsKey == ABankingDetailsKey)
{
if (!row.IsMainAccountNull())
{
wasMainAccount = row.MainAccount;
}
row.Delete();
}
else if (otherAccount == null)
{
otherAccount = row;
}
}
// make another bank account the main account
if (wasMainAccount && (otherAccount != null))
{
otherAccount.MainAccount = true;
}
DataSet ResponseDS = new PartnerEditTDS();
TPartnerEditUIConnector uiconnector = new TPartnerEditUIConnector(APartnerKey);
try
{
TSubmitChangesResult result = uiconnector.SubmitChanges(
ref MainDS,
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);
}
}
if (!TVerificationHelper.IsNullOrOnlyNonCritical(AVerificationResult))
{
TLogging.Log(AVerificationResult.BuildVerificationResultString());
}
return(false);
}