63 lines
2.4 KiB
MySQL
63 lines
2.4 KiB
MySQL
|
CREATE OR REPLACE FUNCTION InvoicepaidToDate
|
||
|
|
(
|
||
|
|
p_C_Invoice_ID IN NUMBER,
|
||
|
|
p_C_Currency_ID IN NUMBER,
|
||
|
|
p_MultiplierAP IN NUMBER, -- DEFAULT 1
|
||
|
|
p_DateAcct IN DATE
|
||
|
|
)
|
||
|
|
RETURN NUMBER
|
||
|
|
/*************************************************************************
|
||
|
|
* The contents of this file are subject to the Compiere License. You may
|
||
|
|
* obtain a copy of the License at http://www.compiere.org/license.html
|
||
|
|
* Software is on an "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either
|
||
|
|
* express or implied. See the License for details. Code: Compiere ERP+CRM
|
||
|
|
* Copyright (C) 1999-2001 Jorg Janke, ComPiere, Inc. All Rights Reserved.
|
||
|
|
*************************************************************************
|
||
|
|
* $Id: C_Invoice_Paid.sql,v 1.1 2006/04/21 17:51:58 jjanke Exp $
|
||
|
|
***
|
||
|
|
* Title: Calculate Paid/Allocated amount in Currency
|
||
|
|
* Description:
|
||
|
|
* Add up total amount paid for for C_Invoice_ID.
|
||
|
|
* Split Payments are ignored.
|
||
|
|
* all allocation amounts converted to invoice C_Currency_ID
|
||
|
|
* round it to the nearest cent
|
||
|
|
* and adjust for CreditMemos by using C_Invoice_v
|
||
|
|
* and for Payments with the multiplierAP (-1, 1)
|
||
|
|
*
|
||
|
|
SELECT C_Invoice_ID, IsPaid, IsSOTrx, GrandTotal,
|
||
|
|
C_Invoice_Paid (C_Invoice_ID, C_Currency_ID, MultiplierAP)
|
||
|
|
FROM C_Invoice_v;
|
||
|
|
--
|
||
|
|
UPDATE C_Invoice_v1
|
||
|
|
SET IsPaid = CASE WHEN C_Invoice_Paid(C_Invoice_ID,C_Currency_ID,MultiplierAP)=GrandTotal THEN 'Y' ELSE 'N' END
|
||
|
|
WHERE C_Invoice_ID>1000000
|
||
|
|
*
|
||
|
|
************************************************************************/
|
||
|
|
AS
|
||
|
|
v_MultiplierAP NUMBER := 1;
|
||
|
|
v_PaymentAmt NUMBER := 0;
|
||
|
|
CURSOR Cur_Alloc IS
|
||
|
|
SELECT a.AD_Client_ID, a.AD_Org_ID,
|
||
|
|
al.Amount, al.DiscountAmt, al.WriteOffAmt,
|
||
|
|
a.C_Currency_ID, a.DateTrx
|
||
|
|
FROM C_ALLOCATIONLINE al
|
||
|
|
INNER JOIN C_ALLOCATIONHDR a ON (al.C_AllocationHdr_ID=a.C_AllocationHdr_ID)
|
||
|
|
WHERE al.C_Invoice_ID = p_C_Invoice_ID
|
||
|
|
AND a.IsActive='Y'
|
||
|
|
AND a.DateAcct <= p_DateAcct;
|
||
|
|
BEGIN
|
||
|
|
-- Default
|
||
|
|
IF (p_MultiplierAP IS NOT NULL) THEN
|
||
|
|
v_MultiplierAP := p_MultiplierAP;
|
||
|
|
END IF;
|
||
|
|
-- Calculate Allocated Amount
|
||
|
|
FOR a IN Cur_Alloc LOOP
|
||
|
|
v_PaymentAmt := v_PaymentAmt
|
||
|
|
+ Currencyconvert(a.Amount + a.DisCountAmt + a.WriteOffAmt,
|
||
|
|
a.C_Currency_ID, p_C_Currency_ID, a.DateTrx, NULL, a.AD_Client_ID, a.AD_Org_ID);
|
||
|
|
END LOOP;
|
||
|
|
--
|
||
|
|
RETURN ROUND(NVL(v_PaymentAmt,0), 2) * v_MultiplierAP;
|
||
|
|
END InvoicepaidToDate;
|
||
|
|
/
|