protected static FR_Guids Execute(DbConnection Connection, DbTransaction Transaction, P_L5BD_SCDP_1347 Parameter, CSV2Core.SessionSecurity.SessionSecurityTicket securityTicket = null)
{
#region UserCode
var returnValue = new FR_Guids();
//Put your code here
var savedProcesses = new List <Guid>();
foreach (var billHeaderID in Parameter.BIL_BillHeaderIDs.ToList())
{
#region Prerequisites
var billHeader = new ORM_BIL_BillHeader();
billHeader.Load(Connection, Transaction, billHeaderID);
//assigned payments
var assignedPaymentsQuery = new ORM_BIL_BillHeader_AssignedPayment.Query();
assignedPaymentsQuery.BIL_BillHeader_RefID = billHeader.BIL_BillHeaderID;
assignedPaymentsQuery.Tenant_RefID = securityTicket.TenantID;
var foundAssignmentPayments = ORM_BIL_BillHeader_AssignedPayment.Query.Search(Connection, Transaction, assignedPaymentsQuery);
//calculated sum of payments to the present day
var paymentsSummForCurrentDate = foundAssignmentPayments.Where(fap => fap.Creation_Timestamp <= DateTime.Now).Sum(x => x.AssignedValue);
//customer
var customerQuery = new ORM_CMN_BPT_CTM_Customer.Query();
customerQuery.Tenant_RefID = securityTicket.TenantID;
customerQuery.Ext_BusinessParticipant_RefID = billHeader.BillRecipient_BuisnessParticipant_RefID;
var foundCustomer = ORM_CMN_BPT_CTM_Customer.Query.Search(Connection, Transaction, customerQuery).Single();
//Model
ORM_ACC_DUN_Dunning_Model.Query defaultDunningModelQuery = new ORM_ACC_DUN_Dunning_Model.Query();
defaultDunningModelQuery.Tenant_RefID = securityTicket.TenantID;
defaultDunningModelQuery.IsDefaultCustomerModel = true;
var foundDunningModel = ORM_ACC_DUN_Dunning_Model.Query.Search(Connection, Transaction, defaultDunningModelQuery).SingleOrDefault();
//Assignment to levels
var modelToLevelsAssignmentQuery = new ORM_ACC_DUN_DunningLevel_ModelAssignment.Query();
modelToLevelsAssignmentQuery.Dunning_Model_RefID = foundDunningModel.ACC_DUN_Dunning_ModelID;
modelToLevelsAssignmentQuery.Tenant_RefID = securityTicket.TenantID;
var foundModelToLevelsAssignments = ORM_ACC_DUN_DunningLevel_ModelAssignment.Query.Search(Connection, Transaction, modelToLevelsAssignmentQuery);
var minimalLevelInSequence = foundModelToLevelsAssignments.OrderBy(la => la.OrderSequence).First();
//Levels
var dunningLevels = new ORM_ACC_DUN_Dunning_Level();
//dunningLevels.Load(Connection, Transaction, foundModelToLevelsAssignment.Dunning_Level_RefID);
#endregion
//model to customer assignment
var modelToCustomerAssignment = new ORM_ACC_DUN_Dunning_Model_2_Customer();
modelToCustomerAssignment.Tenant_RefID = securityTicket.TenantID;
modelToCustomerAssignment.ACC_DUN_DunningModel_RefID = foundDunningModel.ACC_DUN_Dunning_ModelID;
modelToCustomerAssignment.CMN_BPT_CTM_Customer_RefID = foundCustomer.CMN_BPT_CTM_CustomerID;
var savedModelToCustomerAssignmentID = new FR_Guid(modelToCustomerAssignment.Save(Connection, Transaction), modelToCustomerAssignment.AssignmentID);
//dunning process
P_L2BD_SADDP_1412 saveDunningProcessParameter = new P_L2BD_SADDP_1412();
saveDunningProcessParameter.DunnedCustomer_RefID = foundCustomer.CMN_BPT_CTM_CustomerID;
saveDunningProcessParameter.DunningModel_RefID = foundDunningModel.ACC_DUN_Dunning_ModelID;
saveDunningProcessParameter.Current_DunningLevel_RefID = minimalLevelInSequence.Dunning_Level_RefID;
saveDunningProcessParameter.DunnedAmount_Total = billHeader.TotalValue_BeforeTax - paymentsSummForCurrentDate;
saveDunningProcessParameter.Currency_RefID = billHeader.Currency_RefID;
saveDunningProcessParameter.ReachesNextDunningLevelAtDate = DateTime.Now.AddDays(minimalLevelInSequence.WaitPeriodToNextDunningLevel_In_Days);
var savedDunningProcessID = cls_Save_ACC_DUN_DunningProcess.Invoke(Connection, Transaction, saveDunningProcessParameter, securityTicket).Result;
//dunning process member bills
P_L2BD_SADDPMB_1359 saveMemberBillsParameter = new P_L2BD_SADDPMB_1359();
saveMemberBillsParameter.BIL_BillHeader_RefID = billHeaderID;
saveMemberBillsParameter.ACC_DUN_DunningProcess_RefID = savedDunningProcessID;
saveMemberBillsParameter.ApplicableProcessDunningFees = 0;
saveMemberBillsParameter.CurrentUnpaidBillFraction = 0;
var savedMemberBillID = cls_Save_ACC_DUN_DunningProcess_MemberBill.Invoke(Connection, Transaction, saveMemberBillsParameter, securityTicket).Result;
savedProcesses.Add(savedMemberBillID);
//dunning process history
var dunningProcessHistory = new ORM_ACC_DUN_DunningProcess_History();
dunningProcessHistory.ACC_DUN_Dunning_Level_RefID = minimalLevelInSequence.Dunning_Level_RefID;
dunningProcessHistory.ACC_DUN_DunningProcess_RefID = savedDunningProcessID;
dunningProcessHistory.Creation_Timestamp = DateTime.Now;
dunningProcessHistory.DunningProcessFee_IncludingThisDunningLevel = 0;
dunningProcessHistory.IsCurrentStep = true;
dunningProcessHistory.Tenant_RefID = securityTicket.TenantID;
var savedDunningProcessHistoryID = new FR_Guid(dunningProcessHistory.Save(Connection, Transaction), dunningProcessHistory.ACC_DUN_DunningProcess_HistoryID);
}
returnValue.Result = savedProcesses.ToArray();
return(returnValue);
#endregion UserCode
}
protected static FR_Guid Execute(DbConnection Connection, DbTransaction Transaction, P_L5BD_SDPLC_1642 Parameter, CSV2Core.SessionSecurity.SessionSecurityTicket securityTicket = null)
{
#region UserCode
var returnValue = new FR_Guid();
var details = Parameter.BillHeaderWithDetails.DunningDetails;
var bill = Parameter.BillHeaderWithDetails.Bill;
//model
var model = new ORM_ACC_DUN_Dunning_Model();
model.Load(Connection, Transaction, details.ACC_DUN_Dunning_ModelID);
var modelToLevelsAssignmentQuery = new ORM_ACC_DUN_DunningLevel_ModelAssignment.Query();
modelToLevelsAssignmentQuery.Dunning_Model_RefID = model.ACC_DUN_Dunning_ModelID;
modelToLevelsAssignmentQuery.Dunning_Level_RefID = Parameter.NextLevelID;
modelToLevelsAssignmentQuery.Tenant_RefID = securityTicket.TenantID;
var foundModelToLevelsAssignment = ORM_ACC_DUN_DunningLevel_ModelAssignment.Query.Search(Connection, Transaction, modelToLevelsAssignmentQuery).Single();
//dunning process loading
var dunningProcess = new ORM_ACC_DUN_DunningProcess();
dunningProcess.Load(Connection, Transaction, details.ACC_DUN_DunningProcessID);
dunningProcess.Current_DunningLevel_RefID = Parameter.NextLevelID;
dunningProcess.ReachesNextDunningLevelAtDate = DateTime.Now.AddDays(foundModelToLevelsAssignment.WaitPeriodToNextDunningLevel_In_Days);
dunningProcess.Save(Connection, Transaction);
//get all previous history statuses
var historyQuery = new ORM_ACC_DUN_DunningProcess_History.Query();
historyQuery.ACC_DUN_DunningProcess_RefID = dunningProcess.ACC_DUN_DunningProcessID;
historyQuery.Tenant_RefID = securityTicket.TenantID;
var foundHistories = ORM_ACC_DUN_DunningProcess_History.Query.Search(Connection, Transaction, historyQuery).ToList();
decimal summOfFees = 0;
//and set their IsCurrentStep property
foreach (var history in foundHistories)
{
history.IsCurrentStep = false;
history.Save(Connection, Transaction);
//while iterating, create summ of all fees in histories for dunning process
if (history.IsSentToCustomer)
{
summOfFees += history.DunningProcessFee_IncludingThisDunningLevel;
}
}
var newHistoryEntity = new ORM_ACC_DUN_DunningProcess_History();
newHistoryEntity.ACC_DUN_Dunning_Level_RefID = Parameter.NextLevelID;
newHistoryEntity.ACC_DUN_DunningProcess_RefID = dunningProcess.ACC_DUN_DunningProcessID;
newHistoryEntity.DunningProcessFee_IncludingThisDunningLevel = Parameter.FeeForLevel;
newHistoryEntity.IsCurrentStep = true;
newHistoryEntity.Tenant_RefID = securityTicket.TenantID;
var savedNewHistoryID = new FR_Guid(newHistoryEntity.Save(Connection, Transaction), newHistoryEntity.ACC_DUN_DunningProcess_HistoryID).Result;
var memberBills = new ORM_ACC_DUN_DunningProcess_MemberBill();
memberBills.Load(Connection, Transaction, details.ACC_DUN_DunningProcess_MemberBillID);
memberBills.ApplicableProcessDunningFees = summOfFees + newHistoryEntity.DunningProcessFee_IncludingThisDunningLevel; //added fee from new history also
#region Save booking line for dunning fee
var bookingParam = new CL3_Payments.Complex.Manipulation.P_L3PY_CATfDF_0849
{
DunningFee = Parameter.FeeForLevel,
BillHeaderID = Parameter.BillHeaderWithDetails.Bill.BIL_BillHeaderID
};
CL3_Payments.Complex.Manipulation.cls_Create_AccountingTransaction_for_Dunning_Fee.Invoke(Connection, Transaction, bookingParam, securityTicket);
#endregion
returnValue.Result = savedNewHistoryID;
return(returnValue);
#endregion UserCode
}
