} // allocateBPartnerAll /// <summary> /// Allocate Oldest First using Accounting currency /// </summary> /// <returns>allocations</returns> private int AllocateBPOldestFirst() { int _C_Currency_ID = MClient.Get(GetCtx()).GetC_Currency_ID(); DateTime?_dateAcct = null; // Payments Decimal _totalPayments = Env.ZERO; for (int p = 0; p < _payments.Length; p++) { MPayment _payment = _payments[p]; if (_payment.IsAllocated()) { continue; } if (_payment.GetC_Currency_ID() != _C_Currency_ID) { continue; } Decimal _allocatedAmt = Utility.Util.GetValueOfDecimal(_payment.GetAllocatedAmt()); log.Info(_payment + ", Allocated=" + _allocatedAmt); Decimal _availableAmt = Decimal.Add(Decimal.Add(Decimal.Add(_payment.GetPayAmt(), _payment.GetDiscountAmt()), _payment.GetWriteOffAmt()), _payment.GetOverUnderAmt()); if (!_payment.IsReceipt()) { _availableAmt = Decimal.Negate(_availableAmt); } log.Fine("Available=" + _availableAmt); if (_dateAcct == null || _payment.GetDateAcct() > (_dateAcct)) { _dateAcct = Utility.Util.GetValueOfDateTime(_payment.GetDateAcct()); } _totalPayments = Decimal.Add(_totalPayments, (_availableAmt)); } // Invoices Decimal _totalInvoices = Env.ZERO; for (int i = 0; i < _invoices.Length; i++) { MInvoice _invoice = _invoices[i]; if (_invoice.IsPaid()) { continue; } if (_invoice.GetC_Currency_ID() != _C_Currency_ID) { continue; } Decimal _openAmt = Utility.Util.GetValueOfDecimal(_invoice.GetOpenAmt(true, null)); log.Fine("" + _invoice); if (!_invoice.IsSOTrx()) { _openAmt = Decimal.Negate(_openAmt); } // Foreign currency log.Fine("Open=" + _openAmt); if (_dateAcct == null || _invoice.GetDateAcct() > (_dateAcct)) { _dateAcct = _invoice.GetDateAcct(); } _totalInvoices = Decimal.Add(_totalInvoices, _openAmt); } // must be either AP or AR balance if (Env.Signum(_totalInvoices) != Env.Signum(_totalPayments)) { log.Fine("Signum - Invoices=" + Env.Signum(_totalInvoices) + " <> Payments=" + Env.Signum(_totalPayments)); return(0); } Decimal _difference = Decimal.Subtract(_totalInvoices, _totalPayments); //Decimal _maxAmt = _totalInvoices.abs().min(_totalPayments.abs()); Decimal _maxAmt = Math.Min(Math.Abs(_totalInvoices), Math.Abs(_totalPayments)); if (Env.Signum(_totalInvoices) < 0) { _maxAmt = Decimal.Negate(_maxAmt); } log.Info("= Invoices=" + _totalInvoices + " - Payments=" + _totalPayments + " = Difference=" + _difference + " - Max=" + _maxAmt); // Allocate Payments up to max Decimal _allocatedPayments = Env.ZERO; for (int p = 0; p < _payments.Length; p++) { MPayment _payment = _payments[p]; if (_payment.IsAllocated()) { continue; } if (_payment.GetC_Currency_ID() != _C_Currency_ID) { continue; } Decimal _allocatedAmt = Utility.Util.GetValueOfDecimal(_payment.GetAllocatedAmt()); if (Env.Signum(_allocatedAmt) != 0) { continue; } Decimal _availableAmt = Decimal.Add(Decimal.Add(Decimal.Add(_payment.GetPayAmt(), _payment.GetDiscountAmt()), _payment.GetWriteOffAmt()), _payment.GetOverUnderAmt()); if (!_payment.IsReceipt()) { _availableAmt = Decimal.Negate(_availableAmt); } _allocatedPayments = Decimal.Add(_allocatedPayments, _availableAmt); if ((Env.Signum(_totalInvoices) > 0 && _allocatedPayments.CompareTo(_maxAmt) > 0) || (Env.Signum(_totalInvoices) < 0 && _allocatedPayments.CompareTo(_maxAmt) < 0)) { Decimal _diff = Decimal.Subtract(_allocatedPayments, _maxAmt); _availableAmt = Decimal.Subtract(_availableAmt, _diff); _allocatedPayments = Decimal.Subtract(_allocatedPayments, _diff); } log.Fine("Payment Allocated=" + _availableAmt); if (!CreateAllocation(_C_Currency_ID, "BP Oldest (" + Math.Abs(_difference) + ")", _dateAcct, _availableAmt, null, null, null, _payment.GetC_BPartner_ID(), _payment.GetC_Payment_ID(), 0, _payment.GetAD_Org_ID())) { throw new Exception("Cannot create Allocation"); } if (_allocatedPayments.CompareTo(_maxAmt) == 0) { break; } } // for all payments // Allocated Invoices up to max Decimal _allocatedInvoices = Env.ZERO; for (int i = 0; i < _invoices.Length; i++) { MInvoice _invoice = _invoices[i]; if (_invoice.IsPaid()) { continue; } if (_invoice.GetC_Currency_ID() != _C_Currency_ID) { continue; } Decimal _openAmt = Utility.Util.GetValueOfDecimal(_invoice.GetOpenAmt(true, null)); if (!_invoice.IsSOTrx()) { _openAmt = Decimal.Negate(_openAmt); } _allocatedInvoices = Decimal.Add(_allocatedInvoices, _openAmt); if ((Env.Signum(_totalInvoices) > 0 && _allocatedInvoices.CompareTo(_maxAmt) > 0) || (Env.Signum(_totalInvoices) < 0 && _allocatedInvoices.CompareTo(_maxAmt) < 0)) { Decimal _diff = Decimal.Subtract(_allocatedInvoices, _maxAmt); _openAmt = Decimal.Subtract(_openAmt, _diff); _allocatedInvoices = Decimal.Subtract(_allocatedInvoices, _diff); } if (Env.Signum(_openAmt) == 0) { break; } log.Fine("Invoice Allocated=" + _openAmt); if (!CreateAllocation(_C_Currency_ID, "BP Oldest (" + Math.Abs(_difference) + ")", _dateAcct, _openAmt, null, null, null, _invoice.GetC_BPartner_ID(), 0, _invoice.GetC_Invoice_ID(), _invoice.GetAD_Org_ID())) { throw new Exception("Cannot create Allocation"); } if (_allocatedInvoices.CompareTo(_maxAmt) == 0) { break; } } // for all invoices if (_allocatedPayments.CompareTo(_allocatedInvoices) != 0) { throw new Exception("Allocated Payments=" + _allocatedPayments + " <> Invoices=" + _allocatedInvoices); } ProcessAllocation(); return(1); } // allocateOldestFirst
} // allocateOneToOne /// <summary> /// Allocate all Payments/Invoices using Accounting currency /// </summary> /// <returns>allocations</returns> private int AllocateBPartnerAll() { int _C_Currency_ID = MClient.Get(GetCtx()).GetC_Currency_ID(); DateTime?_dateAcct = null; // Payments Decimal _totalPayments = Env.ZERO; for (int p = 0; p < _payments.Length; p++) { MPayment _payment = _payments[p]; if (_payment.IsAllocated()) { continue; } Decimal _allocatedAmt = Utility.Util.GetValueOfDecimal(_payment.GetAllocatedAmt()); // log.info("allocateBPartnerAll - " + _payment + ", Allocated=" + _allocatedAmt); if (Env.Signum(_allocatedAmt) != 0) { continue; } Decimal _availableAmt = Decimal.Add(Decimal.Add(Decimal.Add(_payment.GetPayAmt(), _payment.GetDiscountAmt()), _payment.GetWriteOffAmt()), _payment.GetOverUnderAmt()); if (!_payment.IsReceipt()) { _availableAmt = Decimal.Negate(_availableAmt); } // Foreign currency if (_payment.GetC_Currency_ID() != _C_Currency_ID) { continue; } // log.fine("allocateBPartnerAll - Available=" + _availableAmt); if (_dateAcct == null || _payment.GetDateAcct() > (_dateAcct)) { _dateAcct = _payment.GetDateAcct(); } _totalPayments = Decimal.Add(_totalPayments, _availableAmt); } // Invoices Decimal _totalInvoices = Env.ZERO; for (int i = 0; i < _invoices.Length; i++) { MInvoice _invoice = _invoices[i]; if (_invoice.IsPaid()) { continue; } // log.info("allocateBPartnerAll - " + _invoice); Decimal _openAmt = Utility.Util.GetValueOfDecimal(_invoice.GetOpenAmt(true, null)); if (!_invoice.IsSOTrx()) { _openAmt = Decimal.Negate(_openAmt); } // Foreign currency if (_invoice.GetC_Currency_ID() != _C_Currency_ID) { continue; } // log.fine("allocateBPartnerAll - Open=" + _openAmt); if (_dateAcct == null || _invoice.GetDateAcct() > (_dateAcct)) { _dateAcct = _invoice.GetDateAcct(); } _totalInvoices = Decimal.Add(_totalInvoices, _openAmt); } Decimal _difference = Decimal.Subtract(_totalInvoices, _totalPayments); log.Info("= Invoices=" + _totalInvoices + " - Payments=" + _totalPayments + " = Difference=" + _difference); if (Env.Signum(_difference) == 0) { for (int p = 0; p < _payments.Length; p++) { MPayment _payment = _payments[p]; if (_payment.IsAllocated()) { continue; } Decimal _allocatedAmt = Utility.Util.GetValueOfDecimal(_payment.GetAllocatedAmt()); if (Env.Signum(_allocatedAmt) != 0) { continue; } Decimal _availableAmt = Decimal.Add(Decimal.Add(Decimal.Add(_payment.GetPayAmt(), _payment.GetDiscountAmt()), _payment.GetWriteOffAmt()), _payment.GetOverUnderAmt()); if (!_payment.IsReceipt()) { _availableAmt = Decimal.Negate(_availableAmt); } // Foreign currency if (_payment.GetC_Currency_ID() != _C_Currency_ID) { continue; } if (!CreateAllocation(_C_Currency_ID, "BP All", _dateAcct, _availableAmt, null, null, null, _payment.GetC_BPartner_ID(), _payment.GetC_Payment_ID(), 0, _payment.GetAD_Org_ID())) { throw new Exception("Cannot create Allocation"); } } // for all payments // for (int i = 0; i < _invoices.Length; i++) { MInvoice _invoice = _invoices[i]; if (_invoice.IsPaid()) { continue; } Decimal _openAmt = Utility.Util.GetValueOfDecimal(_invoice.GetOpenAmt(true, null)); if (!_invoice.IsSOTrx()) { _openAmt = Decimal.Negate(_openAmt); } // Foreign currency if (_invoice.GetC_Currency_ID() != _C_Currency_ID) { continue; } if (!CreateAllocation(_C_Currency_ID, "BP All", _dateAcct, _openAmt, null, null, null, _invoice.GetC_BPartner_ID(), 0, _invoice.GetC_Invoice_ID(), _invoice.GetAD_Org_ID())) { throw new Exception("Cannot create Allocation"); } } // for all invoices ProcessAllocation(); return(1); } // Difference OK return(0); } // allocateBPartnerAll
/// <summary> /// Allocate Individual Payments with _payment references /// </summary> /// <returns>number of allocations</returns> private int allocateBPPaymentWithInfo() { int _count = 0; //**** See if there is a direct link (Invoice or Pay Selection) for (int p = 0; p < _payments.Length; p++) { MPayment _payment = _payments[p]; if (_payment.IsAllocated()) { continue; } Decimal _allocatedAmt = Utility.Util.GetValueOfDecimal(_payment.GetAllocatedAmt()); log.Info(_payment + ", Allocated=" + _allocatedAmt); if (Env.Signum(_allocatedAmt) != 0) { continue; } Decimal _availableAmt = Decimal.Add(Decimal.Add(Decimal.Add(_payment.GetPayAmt(), _payment.GetDiscountAmt()), _payment.GetWriteOffAmt()), _payment.GetOverUnderAmt()); if (!_payment.IsReceipt()) { _availableAmt = Decimal.Negate(_availableAmt); } log.Fine("Available=" + _availableAmt); // if (_payment.GetC_Invoice_ID() != 0) { for (int i = 0; i < _invoices.Length; i++) { MInvoice _invoice = _invoices[i]; if (_invoice.IsPaid()) { continue; } // log.fine("allocateIndividualPayments - " + _invoice); if (_payment.GetC_Invoice_ID() == _invoice.GetC_Invoice_ID()) { if (_payment.GetC_Currency_ID() == _invoice.GetC_Currency_ID()) { Decimal _openAmt = Utility.Util.GetValueOfDecimal(_invoice.GetOpenAmt(true, null)); if (!_invoice.IsSOTrx()) { _openAmt = Decimal.Negate(_openAmt); } log.Fine(_invoice + ", Open=" + _openAmt); // With Discount, etc. if (_availableAmt.CompareTo(_openAmt) == 0) { if (_payment.AllocateIt()) { AddLog(0, _payment.GetDateAcct(), _openAmt, _payment.GetDocumentNo() + " [1]"); _count++; } break; } } else // Mixed Currency { } } // _invoice found } // for all invoices } // _payment has _invoice else // No direct _invoice { MPaySelectionCheck psCheck = MPaySelectionCheck.GetOfPayment(GetCtx(), _payment.GetC_Payment_ID(), Get_Trx()); if (psCheck == null) { continue; } // Decimal _totalInvoice = Env.ZERO; MPaySelectionLine[] _psLines = psCheck.GetPaySelectionLines(false); for (int i = 0; i < _psLines.Length; i++) { MPaySelectionLine _line = _psLines[i]; MInvoice _invoice = _line.GetInvoice(); if (_payment.GetC_Currency_ID() == _invoice.GetC_Currency_ID()) { Decimal _invoiceAmt = Utility.Util.GetValueOfDecimal((_invoice.GetOpenAmt(true, null))); Decimal _overUnder = Decimal.Subtract(Decimal.Subtract(Decimal.Subtract(_line.GetOpenAmt(), _line.GetPayAmt()), _line.GetDiscountAmt()), _line.GetDifferenceAmt()); _invoiceAmt = Decimal.Subtract(Decimal.Subtract(Decimal.Subtract(_invoiceAmt, _line.GetDiscountAmt()), _line.GetDifferenceAmt()), _overUnder); if (!_invoice.IsSOTrx()) { _invoiceAmt = Decimal.Negate(_invoiceAmt); } log.Fine(_invoice + ", Invoice=" + _invoiceAmt); _totalInvoice = Decimal.Add(_totalInvoice, _invoiceAmt); } else // Multi-Currency { } } if (_availableAmt.CompareTo(_totalInvoice) == 0) { if (_payment.AllocateIt()) { AddLog(0, _payment.GetDateAcct(), _availableAmt, _payment.GetDocumentNo() + " [n]"); _count++; } } } // No direct _invoice } // See if there is a direct link return(_count); } // allocateIndividualPayments
} // allocateIndividualPayments /// <summary> ///Allocate Payment:Invoice 1:1 /// </summary> /// <returns>allocations</returns> private int AllocateBPOneToOne() { int _count = 0; for (int p = 0; p < _payments.Length; p++) { MPayment _payment = _payments[p]; if (_payment.IsAllocated()) { continue; } Decimal _allocatedAmt = Utility.Util.GetValueOfDecimal(_payment.GetAllocatedAmt()); log.Info(_payment + ", Allocated=" + _allocatedAmt); if (Env.Signum(_allocatedAmt) != 0) { continue; } Decimal _availableAmt = Decimal.Add(Decimal.Add(Decimal.Add(_payment.GetPayAmt() , _payment.GetDiscountAmt()) , _payment.GetWriteOffAmt()) , _payment.GetOverUnderAmt()); if (!_payment.IsReceipt()) { _availableAmt = Decimal.Negate(_availableAmt); } log.Fine("Available=" + _availableAmt); for (int i = 0; i < _invoices.Length; i++) { MInvoice _invoice = _invoices[i]; if (_invoice == null || _invoice.IsPaid()) { continue; } if (_payment.GetC_Currency_ID() == _invoice.GetC_Currency_ID()) { // log.fine("allocateBPartnerAll - " + _invoice); Decimal _openAmt = Utility.Util.GetValueOfDecimal(_invoice.GetOpenAmt(true, null)); if (!_invoice.IsSOTrx()) { _openAmt = Decimal.Negate(_openAmt); } Decimal _difference = Decimal.Subtract(_availableAmt, Math.Abs((_openAmt))); log.Fine(_invoice + ", Open=" + _openAmt + " - Difference=" + _difference); if (Env.Signum(_difference) == 0) { DateTime?_dateAcct = _payment.GetDateAcct(); if (_invoice.GetDateAcct() > _dateAcct) { _dateAcct = _invoice.GetDateAcct(); } if (!CreateAllocation(_payment.GetC_Currency_ID(), "1:1 (" + _availableAmt + ")", _dateAcct, _availableAmt, null, null, null, _invoice.GetC_BPartner_ID(), _payment.GetC_Payment_ID(), _invoice.GetC_Invoice_ID(), _invoice.GetAD_Org_ID())) { throw new Exception("Cannot create Allocation"); } ProcessAllocation(); _count++; _invoices[i] = null; // remove _invoice _payments[p] = null; _payment = null; break; } } else // Multi-Currency { } } // for all invoices } // for all payments return(_count); } // allocateOneToOne
/// <summary> /// Get Invoices of BP /// </summary> /// <param name="_C_BPartner_ID"></param> /// <returns>unallocated Invoices</returns> private MInvoice[] GetInvoices(int _C_BPartner_ID) { //ArrayList<MInvoice> list = new ArrayList<MInvoice>(); List <MInvoice> list = new List <MInvoice>(); String sql = "SELECT * FROM C_Invoice " + "WHERE IsPaid='N' AND Processed='Y' AND C_BPartner_ID=@param1 "; if (_ONLY_AP.Equals(_APAR)) { sql += "AND IsSOTrx='N' "; } else if (_ONLY_AR.Equals(_APAR)) { sql += "AND IsSOTrx='Y' "; } sql += "ORDER BY DateInvoiced"; ; SqlParameter[] param = new SqlParameter[1]; DataTable dt = null; IDataReader idr = null; try { param[0] = new SqlParameter("@param1", _C_BPartner_ID); idr = DataBase.DB.ExecuteReader(sql, param, Get_Trx()); dt = new DataTable(); dt.Load(idr); idr.Close(); foreach (DataRow dr in dt.Rows) { MInvoice _invoice = new MInvoice(GetCtx(), dr, Get_Trx()); if (Env.Signum(Utility.Util.GetValueOfDecimal(_invoice.GetOpenAmt(false, null))) == 0) { _invoice.SetIsPaid(true); _invoice.Save(); } else { list.Add(_invoice); } } } catch (Exception e) { if (idr != null) { idr.Close(); } log.Log(Level.SEVERE, sql, e); } finally { dt = null; if (idr != null) { idr.Close(); } } _invoices = new MInvoice[list.Count()]; _invoices = list.ToArray(); return(_invoices); }