/// <summary>
/// Создать и открыть объект fmCPRRepaymentTask в модальном окне
/// </summary>
private void ManualBinding_Execute(object sender, SimpleActionExecuteEventArgs e)
{
fmCSAStatementAccountDoc current = e.CurrentObject as fmCSAStatementAccountDoc;
if (current == null)
{
return;
}
//fmCPRRepaymentTask RT = ObjectSpace.CreateObject<fmCPRRepaymentTask>();
//IObjectSpace objectSpace = ObjectSpace.CreateNestedObjectSpace(); // Frame.Application.CreateObjectSpace();
IObjectSpace objectSpace = Application.CreateObjectSpace();
// Create object
//fmCPRRepaymentTask nestedRT = objectSpace.GetObject<fmCPRRepaymentTask>(RT);
fmCPRRepaymentTask nestedRT = objectSpace.CreateObject <fmCPRRepaymentTask>();
if (current.StatementAccountIn != null)
{
nestedRT.BankAccount = objectSpace.GetObject <crmBankAccount>(current.StatementAccountIn.BankAccount);
}
else if (current.StatementAccountOut.BankAccount != null)
{
nestedRT.BankAccount = objectSpace.GetObject <crmBankAccount>(current.StatementAccountOut.BankAccount);
}
nestedRT.PaymentDocument = objectSpace.GetObject <fmCDocRCB>(current.PaymentDocument);
nestedRT.FillRepaymentTaskLines();
nestedRT.FillRequestList();
// Show object
string DetailViewId = Frame.Application.FindDetailViewId(nestedRT.GetType());
//BaseObject passedObj = nestedRT; // objectSpace.GetObject<BaseObject>(rt);
TargetWindow openMode = TargetWindow.NewModalWindow;
DetailView dv = Frame.Application.CreateDetailView(objectSpace, DetailViewId, true, nestedRT);
ShowViewParameters svp = new ShowViewParameters()
{
CreatedView = dv, TargetWindow = openMode, Context = TemplateContext.View, CreateAllControllers = true
};
e.ShowViewParameters.Assign(svp);
}
public virtual void AutoBinding(crmBankAccount BankAccount, fmCPRRepaymentTask RepaymentTask)
{
// Несколько замечаний.
// Сопоставление ведётся только с уже существующими заявками в статусе IN_PAY.
// Для данного платёжного документа выбираются только такие заявки, в которых Плательщик и Получатель
// соответствуют таковым в платёжном документе.
// Часть суммы платёжного документа, не покрытая заявками, должна равняться части суммы Заявки, не истраченной
// на Платёжные документы.
// Распределение средств Заявки из предыдущего пункта происходит по дням в операционном журнале.
// Список счетов "нашей" организации
XPQuery <crmBankAccount> ourBankAccounts = new XPQuery <crmBankAccount>(Session);
var OurBankAccounts = (from bankAccount in ourBankAccounts
where bankAccount.PrefferedParty.Code == GetOurParty().Code //"2518"
select bankAccount).ToList <crmBankAccount>();
DateTime DateAccountChanged = (this.ReceivedByPayerBankDate != DateTime.MinValue) ? this.ReceivedByPayerBankDate : ((this.DeductedFromPayerAccount != DateTime.MinValue) ? this.DeductedFromPayerAccount : DateTime.MinValue);
csValuta paymentValuta = crmBankAccount.GetValutaByBankAccount(Session, BankAccount);
// Сумма Платёжного документа по OperationJournal (в валюте платежа)
Decimal operationPaymentDocSumIn = 0, operationPaymentDocSumOut = 0;
GetPaymentDocSumByOperationJournal(this, BankAccount, out operationPaymentDocSumIn, out operationPaymentDocSumOut); // @@@@@@@@@@@ Добавить проверку по BankAccount
// Одна из сумм operationPaymentDocSumIn или operationPaymentDocSumOut обязательно равна 0
// Сумма Платёжного документа по RepaymentJournal (в валюте платежа - это величины SumIn и SumOut)
Decimal repaymentDocSumIn = 0, repaymentDocSumOut = 0;
GetPaymentDocSumByRepaymentJournal(this, BankAccount, out repaymentDocSumIn, out repaymentDocSumOut); // @@@@@@@@@@@ Добавить проверку по BankAccount
// Одна из сумм repaymentDocSumIn или repaymentDocSumOut также обязательно равна 0
// Величина непокрытия Платёжного документа Заявками (все суммы в валюте платежа)
Decimal deltaDocSumIn = operationPaymentDocSumIn - repaymentDocSumIn;
Decimal deltaDocSumOut = operationPaymentDocSumOut - repaymentDocSumOut;
if (Decimal.Compare(Math.Abs(deltaDocSumIn) + Math.Abs(deltaDocSumOut), _Accuracy) <= 0)
{
return; // Всё сопоставлено уже с точностью до _Accuracy - так условились!
}
// Одна (или обе) из сумм deltaDocSumIn или deltaDocSumOut также равна (равны) 0
Decimal deltaDocSum = deltaDocSumIn + deltaDocSumOut; // !!!!!!! ПЕРЕСМОТРЕТЬ ?????????
// Поиск подходящей заявки (Статус, Плательщик, Получатель, остаточные суммы)
XPQuery <fmCPRPaymentRequest> paymentRequests = new XPQuery <fmCPRPaymentRequest>(Session, true);
var queryPaymentRequests = from paymentRequest in paymentRequests
where (paymentRequest.State == PaymentRequestStates.IN_PAYMENT || paymentRequest.State == PaymentRequestStates.IN_BANK) &&
paymentRequest.PartyPayReceiver == this.PaymentReceiverRequisites.Party &&
paymentRequest.PartyPaySender == this.PaymentPayerRequisites.Party &&
OurBankAccounts.Contains <crmBankAccount>(this.PaymentPayerRequisites.BankAccount) && // Означает РАСХОД
DateAccountChanged.Date >= paymentRequest.Date.Date //&& DateAccountChanged.Date < paymentRequest.Date.AddDays(3).Date
select paymentRequest;
foreach (var paymentRequest in queryPaymentRequests)
{
// Отбраковка:
// (1) сумма заявки не должна быть исчерпана полностью,
// (2) остаточная сумма должна равняться величине непокрытия Платёжного документа
Decimal paymentRequestSumIn = 0, paymentRequestSumOut = 0; // Эти суммы в валюте платежа
Decimal paymentRequestSumObligationIn = 0, paymentRequestSumObligationOut = 0; // Эти суммы в валюте обязательств
GetPaymentRequestSumByRepaymentJournal(
paymentRequest,
BankAccount,
out paymentRequestSumIn,
out paymentRequestSumOut,
out paymentRequestSumObligationIn,
out paymentRequestSumObligationOut
);
// Величина неиспользованности Заявки !!!!!!!! ПЕРЕСМОТРЕТЬ !!!!!!!!!!!
// Поясение о вычислении неиспользованности. Сумма в заявке - это в валюте обязательств, чтобы её сравнить
// с суммой платежа, надо перевести по кросс-курсу к валюте платежа и уже полученную сумму сравнить. Вопрос: на
// какой день брать курс? Предлагается брать DateAccountChanged
//Decimal deltaRequestSum = GetRequestSumByCourse(paymentRequest, paymentRequest.Valuta); // В валюте платежа
Decimal deltaRequestSum = GetRequestSumByCourse(paymentRequest, paymentValuta); // В валюте платежа
if (this.PaymentPayerRequisites.BankAccount == BankAccount)
{
deltaRequestSum -= paymentRequestSumOut;
}
else if (this.PaymentReceiverRequisites.BankAccount == BankAccount)
{
deltaRequestSum -= paymentRequestSumIn;
}
if (Decimal.Compare(Math.Abs(deltaRequestSum), _Accuracy) <= 0)
{
continue; // Переход к следующей заявке (тогда у заявки должен был бы быть статус PAYED и она не должна была попасть в рассмотрение - это предусловие контракта)
}
// Сравнение с точностью до 1 копейки
if (Decimal.Compare(Math.Abs(deltaDocSum - deltaRequestSum), _Accuracy) <= 0)
{
// Создаём задачу привязки
Session uow = this.Session;
//using (UnitOfWork uow = new UnitOfWork(Session.ObjectLayer)) {
fmCPRRepaymentTask task = new fmCPRRepaymentTask(uow);
task.BankAccount = BankAccount;
task.PaymentDocument = this;
task.FillRepaymentTaskLines();
task.FillRequestList();
task.DoBindingRequest(paymentRequest, true, 0);
//uow.CommitChanges();
//}
// Поскольку заявка исчерпана, то меняем ей статус
paymentRequest.State = PaymentRequestStates.PAYED;
this.State = PaymentDocProcessingStates.PROCESSED;
// Заявка и документ выписки полностью взаимопокрылись, поэтому
break;
}
}
}