/// <summary>
/// Привязать созданную заявку, включить в список всех заявок
/// </summary>
/// <param name="obj"></param>
private void BindRequest(fmCPRPaymentRequest request, IObjectSpace workOS)
{
if (View.CurrentObject as fmCPRRepaymentTask == null)
{
return;
}
if (request == null)
{
return;
}
fmCPRRepaymentTask task = View.CurrentObject as fmCPRRepaymentTask;
fmCPRRepaymentTask nTask = workOS.GetObject <fmCPRRepaymentTask>(task);
// Включение в список заявок в задаче
nTask.AddRequestToAll(request, true);
// обработка
nTask.DoBindingRequest(request, true, 0);
}
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;
}
}
}
