48 lines
1.6 KiB
SQL
48 lines
1.6 KiB
SQL
CREATE OR REPLACE FUNCTION currencyBase
|
|
(
|
|
p_Amount IN NUMBER,
|
|
p_CurFrom_ID IN NUMBER,
|
|
p_ConvDate IN DATE,
|
|
p_Client_ID IN NUMBER,
|
|
p_Org_ID IN NUMBER
|
|
)
|
|
RETURN NUMBER
|
|
/*************************************************************************
|
|
* The contents of this file are subject to the Adempiere License. You may
|
|
* obtain a copy of the License at http://www.adempiere.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: Adempiere ERP+CRM
|
|
* Copyright (C) 1999-2001 Jorg Janke, ComPiere, Inc. All Rights Reserved.
|
|
*************************************************************************
|
|
* $Id: C_Base_Convert.sql,v 1.1 2006/04/21 17:51:58 jjanke Exp $
|
|
***
|
|
* Title: Convert Amount to Base Currency of Client
|
|
* Description:
|
|
* Get CurrencyTo from Client
|
|
* Returns NULL, if conversion not found
|
|
* Standard Rounding
|
|
* Test:
|
|
* SELECT C_Base_Convert(100,116,11,null) FROM DUAL => 64.72
|
|
************************************************************************/
|
|
AS
|
|
v_CurTo_ID NUMBER;
|
|
BEGIN
|
|
-- Get Currency
|
|
SELECT MAX(ac.C_Currency_ID)
|
|
INTO v_CurTo_ID
|
|
FROM AD_ClientInfo ci, C_AcctSchema ac
|
|
WHERE ci.C_AcctSchema1_ID=ac.C_AcctSchema_ID
|
|
AND ci.AD_Client_ID=p_Client_ID;
|
|
-- Same as Currency_Conversion - if currency/rate not found - return 0
|
|
IF (v_CurTo_ID IS NULL) THEN
|
|
RETURN NULL;
|
|
END IF;
|
|
-- Same currency
|
|
IF (p_CurFrom_ID = v_CurTo_ID) THEN
|
|
RETURN p_Amount;
|
|
END IF;
|
|
|
|
RETURN currencyConvert (p_Amount, p_CurFrom_ID, v_CurTo_ID, p_ConvDate, null, p_Client_ID, p_Org_ID);
|
|
END currencyBase;
|
|
/
|