midsuit
/
core-jgi
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Including pl/pgsql function

This commit is contained in:
vpj-cd 2008-10-25 17:28:50 +00:00
parent 75026b2c0a
commit f4c327a789
10 changed files with 695 additions and 648 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

108
db/ddlutils/postgresql/functions/Acct_Balance.sql
View File

@ -1,69 +1,41 @@
/* CREATE OR REPLACE FUNCTION acctBalance(p_Account_ID numeric, p_AmtDr numeric, p_AmtCr numeric) RETURNS numeric AS $body$
*This file is part of Adempiere ERP Bazaar DECLARE
*http://www.adempiere.org v_balance NUMERIC;
* v_AccountType C_ElementValue.AccountType%TYPE;
*Copyright (C) 2006 Timo Kontro v_AccountSign C_ElementValue.AccountSign%TYPE;
*Copyright (C) 1999-2006 ComPiere, inc
* BEGIN
*This program is free software; you can redistribute it and/or v_balance := p_AmtDr - p_AmtCr;
*modify it under the terms of the GNU General Public License --
*as published by the Free Software Foundation; either version 2 IF (p_Account_ID > 0) THEN
*of the License, or (at your option) any later version. SELECT AccountType, AccountSign
* INTO v_AccountType, v_AccountSign
*This program is distributed in the hope that it will be useful, FROM C_ElementValue
*but WITHOUT ANY WARRANTY; without even the implied warranty of WHERE C_ElementValue_ID=p_Account_ID;
*MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -- DBMS_OUTPUT.PUT_LINE('Type=' || v_AccountType || ' - Sign=' || v_AccountSign);
*GNU General Public License for more details. -- Natural Account Sign
* IF (v_AccountSign='N') THEN
*You should have received a copy of the GNU General Public License IF (v_AccountType IN ('A','E')) THEN
*along with this program; if not, write to the Free Software v_AccountSign := 'D';
*Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.of ELSE
*/ v_AccountSign := 'C';
END IF;
-- DBMS_OUTPUT.PUT_LINE('Type=' || v_AccountType || ' - Sign=' || v_AccountSign);
END IF;
-- Debit Balance
IF (v_AccountSign = 'C') THEN
v_balance := p_AmtCr - p_AmtDr;
END IF;
END IF;
--
RETURN v_balance;
EXCEPTION WHEN OTHERS THEN
-- In case Acct not found
RETURN p_AmtDr - p_AmtCr;
END;
$body$ LANGUAGE plpgsql;
/*
* Returns credit or debit balance based on account sign and type.
*
* Account types and account signs are defined in ad_ref_list table.
* In version 3.1.3 types and signs are defined in following way:
* value | name | description
*-------+----------------+------------------------------------------
* A | Asset | Asset (Balance Sheet) Account
* L | Liability | Liability (Balance Sheet) Account
* R | Revenue | Revenue (P&L) Account
* E | Expense | Expense (P&L) Account
* O | Owner's Equity | Owner's Equity (Balance Sheet) Account
* M | Memo | Memo (Non Balance Sheet nor P&L) Account
*
*
* N | Natural | Natural sign of the Account Type
* D | Debit | Debit Balance Account
* C | Credit | Credit Balance Account
*/
CREATE OR REPLACE FUNCTION acctBalance(
IN NUMERIC, -- $1 account id
IN NUMERIC, -- $2 amount debit
IN NUMERIC -- $3 amount credit
) RETURNS NUMERIC AS
$$
DECLARE
accType CHAR(1); --account type
accSign CHAR(1); --account sign
BEGIN
IF $1 != 0 THEN
SELECT t.AccountType, t.AccountSign
INTO accType, accSign
FROM C_ElementValue AS t WHERE t.C_ElementValue_ID = $1;
IF accSign = 'N' AND accType NOT IN ('A', 'E') THEN
--If account sign is natural and account type not asset or expense
--mark sign to be credit.
accSign := 'C';
END IF;
END IF;
IF accSign = 'C' THEN
RETURN $2 - $3;
ELSE
RETURN $3 - $2;
END IF;
END;
$$ LANGUAGE plpgsql STABLE STRICT;

74
db/ddlutils/postgresql/functions/C_BPartner_RemitLocation.sql
View File

@ -1,50 +1,24 @@
/* CREATE OR REPLACE FUNCTION bpartnerRemitLocation(p_C_BPartner_ID C_BPartner.C_BPartner_ID%TYPE)
*This file is part of Adempiere ERP Bazaar RETURNS numeric AS $body$
*http://www.adempiere.org
* DECLARE
*Copyright (C) 2007 Gavin Dunse v_C_Location_ID NUMERIC := NULL;
*Copyright (C) 1999-2006 ComPiere, inc l RECORD;
*
*This program is free software; you can redistribute it and/or BEGIN
*modify it under the terms of the GNU General Public License FOR l IN
*as published by the Free Software Foundation; either version 2 SELECT IsRemitTo, C_Location_ID
*of the License, or (at your option) any later version. FROM C_BPartner_Location
* WHERE C_BPartner_ID=p_C_BPartner_ID
*This program is distributed in the hope that it will be useful, ORDER BY IsRemitTo DESC
*but WITHOUT ANY WARRANTY; without even the implied warranty of LOOP
*MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the IF (v_C_Location_ID IS NULL) THEN
*GNU General Public License for more details. v_C_Location_ID := l.C_Location_ID;
* END IF;
*You should have received a copy of the GNU General Public License END LOOP;
*along with this program; if not, write to the Free Software RETURN v_C_Location_ID;
*Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.of
*/ END;
/* $body$ LANGUAGE plpgsql;
* Return the first RemitTo C_Location_ID of a Business Partner
*/
CREATE OR REPLACE FUNCTION bpartnerRemitLocation (
IN NUMERIC -- $1 C_BPartner_ID
) RETURNS NUMERIC AS
$$
DECLARE
clocationid NUMERIC;
BEGIN
SELECT t.C_Location_ID
INTO clocationid
FROM C_BPartner_Location
AS t
WHERE t.C_BPartner_ID=$1
AND t.C_Location_ID IS NOT NULL
ORDER BY t.IsRemitTo DESC;
/* Limit not needed as first row is only returned - LIMIT 1; */
IF FOUND THEN
RETURN clocationid;
ELSE
RETURN -1;
/* RAISE EXCEPTION 'Some error'*/
/* RETURN NULL */
END IF;
END;
$$ LANGUAGE plpgsql;

113
db/ddlutils/postgresql/functions/C_Currency_Convert.sql
View File

@ -1,51 +1,62 @@
/* CREATE OR REPLACE FUNCTION currencyConvert(
*This file is part of Adempiere ERP Bazaar p_Amount NUMERIC,
*http://www.adempiere.org p_CurFrom_ID NUMERIC,
* p_CurTo_ID NUMERIC,
*Copyright (C) 2006 Timo Kontro p_ConvDate timestamp with time zone,
*Copyright (C) 1999-2006 ComPiere, inc p_ConversionType_ID IN NUMERIC,
* p_Client_ID NUMERIC,
*This program is free software; you can redistribute it and/or p_Org_ID NUMERIC
*modify it under the terms of the GNU General Public License )
*as published by the Free Software Foundation; either version 2
*of the License, or (at your option) any later version. RETURNS numeric AS $body$
*
*This program is distributed in the hope that it will be useful, /*************************************************************************
*but WITHOUT ANY WARRANTY; without even the implied warranty of * The contents of this file are subject to the Compiere License. You may
*MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * obtain a copy of the License at http://www.compiere.org/license.html
*GNU General Public License for more details. * 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
*You should have received a copy of the GNU General Public License * Copyright (C) 1999-2001 Jorg Janke, ComPiere, Inc. All Rights Reserved.
*along with this program; if not, write to the Free Software *
*Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.of * converted to postgreSQL by Karsten Thiemann (Schaeffer AG),
*/ * kthiemann@adempiere.org
*************************************************************************
SET search_path = adempiere, pg_catalog; ***
* Title: Convert Amount (using IDs)
CREATE OR REPLACE FUNCTION currencyconvert( * Description:
IN NUMERIC, -- $1 amount to convert * from CurrencyFrom_ID to CurrencyTo_ID
IN INTEGER, -- $2 from currency id * Returns NULL, if conversion not found
IN INTEGER, -- $3 to currency id * Standard Rounding
IN TIMESTAMP WITH TIME ZONE, -- $4 conversion date * Test:
IN INTEGER, -- $5 conversion type id * SELECT currencyConvert(100,116,100,null,null,null,null) FROM AD_System; => 64.72
IN INTEGER, -- $6 client id ************************************************************************/
IN INTEGER -- $7 org id
) RETURNS numeric AS
$$ DECLARE
DECLARE v_Rate NUMERIC;
rate NUMERIC;
BEGIN BEGIN
IF $1 IS NULL OR $2 IS NULL OR $3 IS NULL THEN -- Return Amount
RETURN NULL; IF (p_Amount = 0 OR p_CurFrom_ID = p_CurTo_ID) THEN
END IF; RETURN p_Amount;
IF $1 = 0 OR $2 = $3 THEN END IF;
RETURN $1; -- Return NULL
END IF; IF (p_Amount IS NULL OR p_CurFrom_ID IS NULL OR p_CurTo_ID IS NULL) THEN
rate := currencyrate($2,$3,$4,$5,$6,$7); RETURN NULL;
IF rate IS NULL THEN END IF;
RETURN NULL;
END IF; -- Get Rate
RETURN currencyround((rate * $1), $3, FALSE); v_Rate := currencyRate (p_CurFrom_ID, p_CurTo_ID, p_ConvDate, p_ConversionType_ID, p_Client_ID, p_Org_ID);
END; IF (v_Rate IS NULL) THEN
$$ LANGUAGE plpgsql; RETURN NULL;
END IF;
-- Standard Precision
RETURN currencyRound(p_Amount * v_Rate, p_CurTo_ID, null);
END;
$body$ LANGUAGE plpgsql;

242
db/ddlutils/postgresql/functions/C_Currency_Rate.sql
View File

@ -1,64 +1,178 @@
/* CREATE OR REPLACE FUNCTION currencyRate(
*This file is part of Adempiere ERP Bazaar p_CurFrom_ID NUMERIC,
*http://www.adempiere.org p_CurTo_ID NUMERIC,
* p_ConvDate timestamp with time zone,
*Copyright (C) 2006 Timo Kontro p_ConversionType_ID NUMERIC,
*Copyright (C) 1999-2006 ComPiere, inc p_Client_ID NUMERIC,
* p_Org_ID NUMERIC
*This program is free software; you can redistribute it and/or )
*modify it under the terms of the GNU General Public License
*as published by the Free Software Foundation; either version 2 RETURNS numeric AS $body$
*of the License, or (at your option) any later version.
* /*************************************************************************
*This program is distributed in the hope that it will be useful, * The contents of this file are subject to the Compiere License. You may
*but WITHOUT ANY WARRANTY; without even the implied warranty of * obtain a copy of the License at http://www.compiere.org/license.html
*MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * Software is on an "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either
*GNU General Public License for more details. * express or implied. See the License for details. Code: Compiere ERP+CRM
* * Copyright (C) 1999-2001 Jorg Janke, ComPiere, Inc. All Rights Reserved.
*You should have received a copy of the GNU General Public License *
*along with this program; if not, write to the Free Software * converted to postgreSQL by Karsten Thiemann (Schaeffer AG),
*Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.of * kthiemann@adempiere.org
*/ *************************************************************************
***
SET search_path = adempiere, pg_catalog; * Title: Return Conversion Rate
* Description:
CREATE OR REPLACE FUNCTION currencyrate( * from CurrencyFrom_ID to CurrencyTo_ID
IN INTEGER, -- $1 currency from id * Returns NULL, if rate not found
IN INTEGER, -- $2 currency to id * Test
IN timestamp with time zone, -- $3 conversiondate * SELECT currencyrate(116, 100, null, null, null, null) FROM AD_System; => .647169
IN INTEGER, -- $4 conversiontype id ************************************************************************/
IN INTEGER, -- $5 client id
IN INTEGER -- $6 org id
) RETURNS NUMERIC AS DECLARE
$$ -- Currency From variables
DECLARE cf_IsEuro CHAR(1);
conversion_type_id INTEGER; cf_IsEMUMember CHAR(1);
conversion_date DATE; cf_EMUEntryDate timestamp with time zone;
rate NUMERIC; cf_EMURate NUMERIC;
BEGIN -- Currency To variables
IF $1 = $2 THEN ct_IsEuro CHAR(1);
RETURN 1; ct_IsEMUMember CHAR(1);
END IF; ct_EMUEntryDate DATE;
conversion_type_id = COALESCE($4, 0); ct_EMURate NUMERIC;
conversion_date = CAST($3 AS DATE); -- Triangle
rate = NULL; v_CurrencyFrom NUMERIC;
IF conversion_type_id = 0 THEN v_CurrencyTo NUMERIC;
SELECT C_ConversionType_ID v_CurrencyEuro NUMERIC;
INTO conversion_type_id --
FROM C_ConversionType v_ConvDate timestamp with time zone := now();
WHERE IsDefault = 'Y' AND AD_Client_ID IN (0, $5); v_ConversionType_ID NUMERIC := 0;
END IF; v_Rate NUMERIC;
SELECT t.MultiplyRate c RECORD;
INTO rate
FROM C_Conversion_Rate AS t BEGIN
WHERE t.C_Currency_ID = $1 -- No Conversion
AND t.C_Currency_To = $2 IF (p_CurFrom_ID = p_CurTo_ID) THEN
AND date_trunc('day',t.ValidFrom) <= $3 RETURN 1;
AND date_trunc('day',t.ValidTo) >= $3 END IF;
AND t.AD_Client_ID IN (0,$5) -- Default Date Parameter
AND t.AD_Org_ID IN (0, $6) IF (p_ConvDate IS NOT NULL) THEN
ORDER BY AD_Client_ID DESC, AD_Org_ID DESC, ValidFrom DESC v_ConvDate := p_ConvDate; -- SysDate
LIMIT 1; END IF;
return rate; -- Default Conversion Type
END; IF (p_ConversionType_ID IS NULL OR p_ConversionType_ID = 0) THEN
$$ LANGUAGE plpgsql; BEGIN
SELECT C_ConversionType_ID
INTO v_ConversionType_ID
FROM C_ConversionType
WHERE IsDefault='Y'
AND AD_Client_ID IN (0,p_Client_ID)
AND ROWNUM=1
ORDER BY AD_Client_ID DESC;
EXCEPTION WHEN OTHERS THEN
RAISE NOTICE 'Conversion Type Not Found';
END;
ELSE
v_ConversionType_ID := p_ConversionType_ID;
END IF;
-- Get Currency Info
SELECT MAX(IsEuro), MAX(IsEMUMember), MAX(EMUEntryDate), MAX(EMURate)
INTO cf_IsEuro, cf_IsEMUMember, cf_EMUEntryDate, cf_EMURate
FROM C_Currency
WHERE C_Currency_ID = p_CurFrom_ID;
-- Not Found
IF (cf_IsEuro IS NULL) THEN
RAISE NOTICE 'From Currency Not Found';
RETURN NULL;
END IF;
SELECT MAX(IsEuro), MAX(IsEMUMember), MAX(EMUEntryDate), MAX(EMURate)
INTO ct_IsEuro, ct_IsEMUMember, ct_EMUEntryDate, ct_EMURate
FROM C_Currency
WHERE C_Currency_ID = p_CurTo_ID;
-- Not Found
IF (ct_IsEuro IS NULL) THEN
RAISE NOTICE 'To Currency Not Found';
RETURN NULL;
END IF;
-- Fixed - From Euro to EMU
IF (cf_IsEuro = 'Y' AND ct_IsEMUMember ='Y' AND v_ConvDate >= ct_EMUEntryDate) THEN
RETURN ct_EMURate;
END IF;
-- Fixed - From EMU to Euro
IF (ct_IsEuro = 'Y' AND cf_IsEMUMember ='Y' AND v_ConvDate >= cf_EMUEntryDate) THEN
RETURN 1 / cf_EMURate;
END IF;
-- Fixed - From EMU to EMU
IF (cf_IsEMUMember = 'Y' AND cf_IsEMUMember ='Y'
AND v_ConvDate >= cf_EMUEntryDate AND v_ConvDate >= ct_EMUEntryDate) THEN
RETURN ct_EMURate / cf_EMURate;
END IF;
-- Flexible Rates
v_CurrencyFrom := p_CurFrom_ID;
v_CurrencyTo := p_CurTo_ID;
-- if EMU Member involved, replace From/To Currency
IF ((cf_isEMUMember = 'Y' AND v_ConvDate >= cf_EMUEntryDate)
OR (ct_isEMUMember = 'Y' AND v_ConvDate >= ct_EMUEntryDate)) THEN
SELECT MAX(C_Currency_ID)
INTO v_CurrencyEuro
FROM C_Currency
WHERE IsEuro = 'Y';
-- Conversion Rate not Found
IF (v_CurrencyEuro IS NULL) THEN
RAISE NOTICE 'Euro Not Found';
RETURN NULL;
END IF;
IF (cf_isEMUMember = 'Y' AND v_ConvDate >= cf_EMUEntryDate) THEN
v_CurrencyFrom := v_CurrencyEuro;
ELSE
v_CurrencyTo := v_CurrencyEuro;
END IF;
END IF;
-- Get Rate
BEGIN
FOR c IN SELECT MultiplyRate
FROM C_Conversion_Rate
WHERE C_Currency_ID=v_CurrencyFrom AND C_Currency_ID_To=v_CurrencyTo
AND C_ConversionType_ID=v_ConversionType_ID
AND v_ConvDate BETWEEN ValidFrom AND ValidTo
AND AD_Client_ID IN (0,p_Client_ID) AND AD_Org_ID IN (0,p_Org_ID)
ORDER BY AD_Client_ID DESC, AD_Org_ID DESC, ValidFrom DESC
LOOP
v_Rate := c.MultiplyRate;
EXIT; -- only first
END LOOP;
END;
-- Not found
IF (v_Rate IS NULL) THEN
RAISE NOTICE 'Conversion Rate Not Found';
RETURN NULL;
END IF;
-- Currency From was EMU
IF (cf_isEMUMember = 'Y' AND v_ConvDate >= cf_EMUEntryDate) THEN
RETURN v_Rate / cf_EMURate;
END IF;
-- Currency To was EMU
IF (ct_isEMUMember = 'Y' AND v_ConvDate >= ct_EMUEntryDate) THEN
RETURN v_Rate * ct_EMURate;
END IF;
RETURN v_Rate;
EXCEPTION WHEN OTHERS THEN
RAISE NOTICE '%', SQLERRM;
RETURN NULL;
END;
$body$ LANGUAGE plpgsql;

109
db/ddlutils/postgresql/functions/C_Currency_Round.sql
View File

@ -1,51 +1,60 @@
/* CREATE OR REPLACE FUNCTION currencyRound(
*This file is part of Adempiere ERP Bazaar p_Amount NUMERIC,
*http://www.adempiere.org p_CurTo_ID NUMERIC,
* p_Costing VARCHAR -- Default 'N'
*Copyright (C) 2006 Timo Kontro )
*Copyright (C) 1999-2006 ComPiere, inc
* RETURNS numeric AS $body$
*This program is free software; you can redistribute it and/or
*modify it under the terms of the GNU General Public License /*************************************************************************
*as published by the Free Software Foundation; either version 2 * The contents of this file are subject to the Compiere License. You may
*of the License, or (at your option) any later version. * 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
*This program is distributed in the hope that it will be useful, * express or implied. See the License for details. Code: Compiere ERP+CRM
*but WITHOUT ANY WARRANTY; without even the implied warranty of * Copyright (C) 1999-2001 Jorg Janke, ComPiere, Inc. All Rights Reserved.
*MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the *
*GNU General Public License for more details. * converted to postgreSQL by Karsten Thiemann (Schaeffer AG),
* * kthiemann@adempiere.org
*You should have received a copy of the GNU General Public License *************************************************************************
*along with this program; if not, write to the Free Software ***
*Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.of * Title: Round amount for Traget Currency
*/ * Description:
* Round Amount using Costing or Standard Precision
* Returns unmodified amount if currency not found
* Test:
* SELECT currencyRound(currencyConvert(100,116,100,null,null),100,null) FROM AD_System => 64.72
************************************************************************/
DECLARE
v_StdPrecision NUMERIC;
v_CostPrecision NUMERIC;
BEGIN
-- Nothing to convert
IF (p_Amount IS NULL OR p_CurTo_ID IS NULL) THEN
RETURN p_Amount;
END IF;
-- Ger Precision
SELECT MAX(StdPrecision), MAX(CostingPrecision)
INTO v_StdPrecision, v_CostPrecision
FROM C_Currency
WHERE C_Currency_ID = p_CurTo_ID;
-- Currency Not Found
IF (v_StdPrecision IS NULL) THEN
RETURN p_Amount;
END IF;
IF (p_Costing = 'Y') THEN
RETURN ROUND (p_Amount, v_CostPrecision);
END IF;
RETURN ROUND (p_Amount, v_StdPrecision);
END;
$body$ LANGUAGE plpgsql;
SET search_path = adempiere, pg_catalog;
CREATE OR REPLACE FUNCTION currencyround (
IN NUMERIC, -- $1 amount
IN INTEGER, -- $2 Currency_ID
IN BOOLEAN -- $3 Costing
) RETURNS NUMERIC AS
$$
DECLARE
precision INTEGER;
BEGIN
IF $1 IS NULL OR $2 IS NULL THEN
RETURN $1;
END IF;
IF COALESCE($3,FALSE) THEN
SELECT t.CostingPrecision
INTO precision
FROM C_Currency AS t
WHERE C_Currency_ID = $2;
ELSE
SELECT t.stdprecision
INTO precision
FROM C_Currency AS t
WHERE C_Currency_ID = $2;
END IF;
RETURN ROUND($1, precision);
END;
$$ LANGUAGE plpgsql;

87
db/ddlutils/postgresql/functions/C_Invoice_Discount.sql
View File

@ -1,87 +0,0 @@
/*
*This file is part of Adempiere ERP Bazaar
*http://www.adempiere.org
*
*Copyright (C) 2007 Gavin Dunse
*Copyright (C) 1999-2006 ComPiere, inc
*
*This program is free software; you can redistribute it and/or
*modify it under the terms of the GNU General Public License
*as published by the Free Software Foundation; either version 2
*of the License, or (at your option) any later version.
*
*This program is distributed in the hope that it will be useful,
*but WITHOUT ANY WARRANTY; without even the implied warranty of
*MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
*GNU General Public License for more details.
*
*You should have received a copy of the GNU General Public License
*along with this program; if not, write to the Free Software
*Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.of
*/
/*
* Calculate Payment Discount Amount
* - Calculate discountable amount (i.e. with or without tax)
* - Calculate and return payment discount
*/
CREATE OR REPLACE FUNCTION invoiceDiscount (
IN NUMERIC, -- $1 C_Invoice_ID
IN TIMESTAMP WITH TIME ZONE, -- $2 PayDate
IN NUMERIC -- $3 C_InvoicePaySchedule_ID
) RETURNS NUMERIC AS
$$
DECLARE
v_Amount NUMERIC;
v_IsDiscountLineAmt CHAR(1);
v_GrandTotal NUMERIC;
v_TotalLines NUMERIC;
v_C_PaymentTerm_ID NUMERIC;
v_DocDate TIMESTAMP WITH TIME ZONE;
v_PayDate TIMESTAMP WITH TIME ZONE;
v_IsPayScheduleValid CHAR(1);
BEGIN
SELECT CURRENT_DATE INTO v_PayDate;
SELECT ci.IsDiscountLineAmt, i.GrandTotal, i.TotalLines, i.C_PaymentTerm_ID, i.DateInvoiced, i.IsPayScheduleValid
INTO v_IsDiscountLineAmt, v_GrandTotal, v_TotalLines, v_C_PaymentTerm_ID, v_DocDate, v_IsPayScheduleValid
FROM AD_ClientInfo AS ci, C_Invoice AS i
WHERE ci.AD_Client_ID=i.AD_Client_ID
AND i.C_Invoice_ID=p_C_Invoice_ID;
IF FOUND THEN
/* What Amount is the Discount Base? */
IF (v_IsDiscountLineAmt = 'Y') THEN
v_Amount := v_TotalLines;
ELSE
v_Amount := v_GrandTotal;
END IF;
/* Anything to discount? */
IF (v_Amount = 0) THEN
RETURN 0;
END IF;
IF (p_PayDate IS NOT NULL) THEN
v_PayDate := p_PayDate;
END IF;
/* Valid Payment Schedule */
IF (v_IsPayScheduleValid='Y' AND p_C_InvoicePaySchedule_ID > 0) THEN
SELECT COALESCE(MAX(DiscountAmt),0)
INTO v_Amount
FROM C_InvoicePaySchedule
WHERE C_InvoicePaySchedule_ID=p_C_InvoicePaySchedule_ID
AND DiscountDate <= v_PayDate;
RETURN v_Amount;
END IF;
/* return discount amount */
RETURN paymentTermDiscount (v_Amount, 0, v_C_PaymentTerm_ID, v_DocDate, p_PayDate);
ELSE
RETURN -1;
/* RAISE EXCEPTION 'Some error'*/
/* RETURN NULL */
END IF;
END;
$$ LANGUAGE plpgsql;

168
db/ddlutils/postgresql/functions/C_PaymentTerm_Discount.sql
View File

@ -1,101 +1,67 @@
/* create or replace FUNCTION paymenttermDiscount
*This file is part of Adempiere ERP Bazaar (
*http://www.adempiere.org Amount NUMERIC,
* Currency_ID NUMERIC,
*Copyright (C) 2006 Timo Kontro PaymentTerm_ID NUMERIC,
*Copyright (C) 1999-2006 ComPiere, inc DocDate timestamp with time zone,
* PayDate timestamp with time zone
*This program is free software; you can redistribute it and/or )
*modify it under the terms of the GNU General Public License RETURNS NUMERIC AS $body$
*as published by the Free Software Foundation; either version 2 /*************************************************************************
*of the License, or (at your option) any later version. * 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
*This program is distributed in the hope that it will be useful, * Software is on an "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either
*but WITHOUT ANY WARRANTY; without even the implied warranty of * express or implied. See the License for details. Code: Compiere ERP+CRM
*MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * Copyright (C) 1999-2001 Jorg Janke, ComPiere, Inc. All Rights Reserved.
*GNU General Public License for more details. *
* * converted to postgreSQL by Karsten Thiemann (Schaeffer AG),
*You should have received a copy of the GNU General Public License * kthiemann@adempiere.org
*along with this program; if not, write to the Free Software *************************************************************************
*Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.of * Title: Calculate Discount
*/ * Description:
* Calculate the allowable Discount Amount of the Payment Term
SET search_path = adempiere, pg_catalog; *
* Test: SELECT paymenttermDiscount(110, 103, 106, now(), now()) FROM TEST; => 2.20
CREATE OR REPLACE FUNCTION paymenttermdiscount ************************************************************************/
(
NUMERIC, --$1 amount DECLARE
IN INTEGER, --$2 Currency ID Discount NUMERIC := 0;
IN INTEGER, --$3 Payment term id Discount1Date timestamp with time zone;
IN TIMESTAMP WITH TIME ZONE, --$4 document date Discount2Date timestamp with time zone;
IN TIMESTAMP WITH TIME ZONE --$5 payment date Add1Date NUMERIC := 0;
) Add2Date NUMERIC := 0;
RETURNS NUMERIC AS $$ p RECORD;
DECLARE BEGIN
discount NUMERIC; -- No Data - No Discount
discount1 NUMERIC; IF (Amount IS NULL OR PaymentTerm_ID IS NULL OR DocDate IS NULL) THEN
discount2 NUMERIC; RETURN 0;
discount1date DATE; END IF;
discount2date DATE;
add1date NUMERIC; FOR p IN
add2date NUMERIC; SELECT *
isnextbd BOOLEAN; FROM C_PaymentTerm
payDate DATE; WHERE C_PaymentTerm_ID = PaymentTerm_ID
BEGIN LOOP -- for convineance only
IF $1 IS NULL OR $2 IS NULL OR $4 IS NULL THEN Discount1Date := TRUNC(DocDate + p.DiscountDays + p.GraceDays);
RETURN 0; Discount2Date := TRUNC(DocDate + p.DiscountDays2 + p.GraceDays);
END IF;
-- Next Business Day
IF $5 IS NULL THEN IF (p.IsNextBusinessDay='Y') THEN
payDate := current_date; Discount1Date := nextBusinessDay(Discount1Date, p.AD_Client_ID);
ELSE Discount2Date := nextBusinessDay(Discount2Date, p.AD_Client_ID);
payDate := CAST($5 AS DATE); END IF;
END IF;
-- Discount 1
discount1date := CAST($4 AS Date); IF (Discount1Date >= TRUNC(PayDate)) THEN
discount2date := discount1date; Discount := Amount * p.Discount / 100;
-- Discount 2
SELECT ELSIF (Discount2Date >= TRUNC(PayDate)) THEN
(discount1date + t.discountdays + t.gracedays), Discount := Amount * p.Discount2 / 100;
(discount2date + t.discountdays2 + t.gracedays), END IF;
t.discount, END LOOP;
t.discount2, --
(t.isnextbusinessday = 'Y') RETURN ROUND(COALESCE(Discount,0), 2); -- fixed rounding
INTO END;
discount1date,
discount2date, $body$ LANGUAGE plpgsql;
discount1,
discount2,
isnextbd
FROM c_paymentterm AS t
WHERE c_paymentterm_id=p_C_PaymentTerm_ID;
--this checks only weekdays should check holidays too
IF isnextbd THEN
SELECT
CASE EXTRACT(DOW FROM discount1date)
WHEN 0 THEN (discount1date + 1) --sunday => monday
WHEN 6 THEN (discount1date + 2) --saturday => monday
ELSE discount1date
END
INTO discount1date;
SELECT
CASE extract(DOW FROM discount2date)
WHEN 0 THEN (discount2date + 1)
WHEN 6 THEN (discount2date + 2)
ELSE discount2date
END
INTO discount2date;
END IF;
IF payDate < discount1date THEN --Would <= be better than = ?
RETURN currencyround(((p_amount * discount1) / 100), $2, FALSE);
ELSIF payDate < discount2date THEN
RETURN currencyround(((p_amount * discount2) / 100), $2, FALSE);
ELSE
RETURN 0;
END IF;
END;
$$ LANGUAGE plpgsql;

123
db/ddlutils/postgresql/functions/C_PaymentTerm_DueDate.sql
View File

@ -1,70 +1,55 @@
/* create or replace FUNCTION paymenttermDueDate
*This file is part of Adempiere ERP Bazaar (
*http://www.adempiere.org PaymentTerm_ID IN NUMERIC,
* DocDate IN timestamp with time zone
*Copyright (C) 2006 Timo Kontro )
*Copyright (C) 1999-2006 ComPiere, inc RETURNS timestamp with time zone AS $body$
* /*************************************************************************
*This program is free software; you can redistribute it and/or * The contents of this file are subject to the Compiere License. You may
*modify it under the terms of the GNU General Public License * obtain a copy of the License at http://www.compiere.org/license.html
*as published by the Free Software Foundation; either version 2 * Software is on an "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either
*of the License, or (at your option) any later version. * express or implied. See the License for details. Code: Compiere ERP+CRM
* * Copyright (C) 1999-2001 Jorg Janke, ComPiere, Inc. All Rights Reserved.
*This program is distributed in the hope that it will be useful, *
*but WITHOUT ANY WARRANTY; without even the implied warranty of * converted to postgreSQL by Karsten Thiemann (Schaeffer AG),
*MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * kthiemann@adempiere.org
*GNU General Public License for more details. *************************************************************************
* * Title: Get Due timestamp with time zone
*You should have received a copy of the GNU General Public License * Description:
*along with this program; if not, write to the Free Software * Returns the due timestamp with time zone
*Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.of * Test:
*/ * select paymenttermDueDate(106, now()) from Test; => now()+30 days
************************************************************************/
DECLARE
Days NUMERIC := 0;
DueDate timestamp with time zone := TRUNC(DocDate);
--
FirstDay timestamp with time zone;
NoDays NUMERIC;
p RECORD;
BEGIN
FOR p IN
SELECT *
FROM C_PaymentTerm
WHERE C_PaymentTerm_ID = PaymentTerm_ID
LOOP -- for convineance only
-- Due 15th of following month
IF (p.IsDueFixed = 'Y') THEN
FirstDay := TRUNC(DocDate, 'MM');
NoDays := TRUNC(DocDate) - FirstDay;
DueDate := FirstDay + (p.FixMonthDay-1); -- starting on 1st
DueDate := ADD_MONTHS(DueDate, p.FixMonthOffset);
IF (NoDays > p.FixMonthCutoff) THEN
DueDate := ADD_MONTHS(DueDate, 1);
END IF;
ELSE
DueDate := TRUNC(DocDate) + p.NetDays;
END IF;
END LOOP;
RETURN DueDate;
END;
$body$ LANGUAGE plpgsql;
SET search_path = adempiere, pg_catalog;
CREATE OR REPLACE FUNCTION paymenttermduedate(
IN INTEGER, -- $1 payment term id
IN TIMESTAMP WITH TIME ZONE -- $2 document date
) RETURNS TIMESTAMP WITH TIME ZONE AS
$$
DECLARE
due_date TIMESTAMP WITH TIME ZONE;
fixed BOOLEAN;
monthOffset INTEGER;
monthCutOff INTEGER;
netDays INTEGER;
monthDay INTEGER;
BEGIN
IF $1 IS NULL OR $2 IS NULL THEN
RETURN 0;
END IF;
SELECT (t.isDueFixed = 'Y'), t.fixMonthOffset, t.fixMonthCutoff,
t.netdays, t.FixMonthDay
INTO fixed, monthOffset, monthCutOff, netDays, monthDay
FROM C_PaymentTerm AS t WHERE t.C_PaymentTerm_ID = $1;
IF fixed THEN
--we check if montCutOff is bigger than number of days in month.
IF monthCutOff > 28 THEN -- if smaller than days in february no need for further checks.
-- montCutOff should not be greater than number of days in month.
monthCutOff := LEAST(
EXTRACT(DAY FROM (date_trunc('month', $2) + INTERVAL '1 month' - INTERVAL '1 day'))
,monthCutOff);
END IF;
IF monthCutOff < EXTRACT(DAY FROM $2) THEN
monthOffset := COALESCE(monthOffset,0) + 1;
END IF;
due_date := date_trunc('month', $2) + (INTERVAL '1 month' * monthOffset);
IF monthDay > 28 THEN
--monthDay should not be greater than number of days in month.
monthDay := LEAST(
EXTRACT(DAY FROM (due_date + INTERVAL '1 month' - INTERVAL '1 days'))
,monthDay);
END IF;
due_date := due_date + INTERVAL '1 day' * (monthDay -1);
ELSE
due_date := $2 + (INTERVAL '1 day' * netDays);
END IF;
RETURN due_date;
END;
$$ LANGUAGE plpgsql;

162
db/ddlutils/postgresql/functions/C_PaymentTerm_DueDays.sql
View File

@ -1,42 +1,122 @@
/* create or replace FUNCTION paymenttermDueDays
*This file is part of Adempiere ERP Bazaar (
*http://www.adempiere.org PaymentTerm_ID IN NUMERIC,
* DocDate IN timestamp with time zone,
*Copyright (C) 2006 Timo Kontro PayDate IN timestamp with time zone
*Copyright (C) 1999-2006 ComPiere, inc )
* RETURNS INTEGER AS $body$
*This program is free software; you can redistribute it and/or /*************************************************************************
*modify it under the terms of the GNU General Public License * The contents of this file are subject to the Compiere License. You may
*as published by the Free Software Foundation; either version 2 * obtain a copy of the License at http://www.compiere.org/license.html
*of the License, or (at your option) any later version. * 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
*This program is distributed in the hope that it will be useful, * Copyright (C) 1999-2001 Jorg Janke, ComPiere, Inc. All Rights Reserved.
*but WITHOUT ANY WARRANTY; without even the implied warranty of *
*MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * converted to postgreSQL by Karsten Thiemann (Schaeffer AG),
*GNU General Public License for more details. * kthiemann@adempiere.org
* *************************************************************************
*You should have received a copy of the GNU General Public License * Title: Get Due Days
*along with this program; if not, write to the Free Software * Description:
*Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.of * Returns the days due (positive) or the days till due (negative)
*/ * Grace days are not considered!
* If record is not found it assumes due immediately
*
* Test: SELECT paymenttermDueDays(103, now(), now());
*
* Contributor(s): Carlos Ruiz - globalqss - match with SQLJ version
************************************************************************/
DECLARE
Days NUMERIC := 0;
DueDate timestamp with time zone := NULL;
calDueDate timestamp with time zone;
FixMonthOffset C_PaymentTerm.FixMonthOffset%TYPE;
MaxDayCut NUMERIC;
MaxDay NUMERIC;
v_PayDate timestamp with time zone;
p RECORD;
--
FirstDay timestamp with time zone;
NoDays NUMERIC;
BEGIN
IF PaymentTerm_ID = 0 OR DocDate IS NULL THEN
RETURN 0;
END IF;
v_PayDate := PayDate;
IF v_PayDate IS NULL THEN
v_PayDate := TRUNC(now());
END IF;
FOR p IN
SELECT *
FROM C_PaymentTerm
WHERE C_PaymentTerm_ID = PaymentTerm_ID
LOOP -- for convineance only
-- Due 15th of following month
IF (p.IsDueFixed = 'Y') THEN
FirstDay := TRUNC(DocDate, 'MM');
NoDays := extract (day from (TRUNC(DocDate) - FirstDay));
DueDate := FirstDay + (p.FixMonthDay-1); -- starting on 1st
DueDate := DueDate + (p.FixMonthOffset || ' month')::interval;
IF (NoDays > p.FixMonthCutoff) THEN
DueDate := DueDate + '1 month'::interval;
END IF;
-- raise notice 'FirstDay: %, NoDays: %, DueDate: %', FirstDay, NoDays, DueDate;
calDueDate := TRUNC(DocDate);
MaxDayCut := extract (day from (cast(date_trunc('month', calDueDate) + '1 month'::interval as date) - 1));
-- raise notice 'last day(MaxDayCut): %' , MaxDayCut;
IF p.FixMonthCutoff > MaxDayCut THEN
-- raise notice 'p.FixMonthCutoff > MaxDayCut';
calDueDate := cast(date_trunc('month', TRUNC(calDueDate)) + '1 month'::interval as date) - 1;
-- raise notice 'last day(calDueDate): %' , calDueDate;
ELSE
-- set day fixmonthcutoff on duedate
calDueDate := TRUNC(calDueDate, 'MM') + (((p.FixMonthCutoff-1)|| ' days')::interval);
-- raise notice 'calDueDate: %' , calDueDate;
END IF;
FixMonthOffset := p.FixMonthOffset;
IF DocDate > calDueDate THEN
FixMonthOffset := FixMonthOffset + 1;
raise notice 'FixMonthOffset: %' , FixMonthOffset;
END IF;
calDueDate := calDueDate + (FixMonthOffset || ' month')::interval;
-- raise notice 'calDueDate: %' , calDueDate;
MaxDay := extract (day from (cast(date_trunc('month', calDueDate) + '1 month'::interval as date) - 1));
IF (p.FixMonthDay > MaxDay) -- 32 -> 28
OR (p.FixMonthDay >= 30 AND MaxDay > p.FixMonthDay) THEN -- 30 -> 31
calDueDate := TRUNC(calDueDate, 'MM') + (((MaxDay-1)|| ' days')::interval);
-- raise notice 'calDueDate: %' , calDueDate;
ELSE
calDueDate := TRUNC(calDueDate, 'MM') + (((p.FixMonthDay-1)|| ' days')::interval);
-- raise notice 'calDueDate: %' , calDueDate;
END IF;
DueDate := calDueDate;
ELSE
DueDate := TRUNC(DocDate) + p.NetDays;
END IF;
END LOOP;
IF DueDate IS NULL THEN
RETURN 0;
END IF;
Days := EXTRACT(day from (TRUNC(v_PayDate) - DueDate));
RETURN Days;
END;
$body$ LANGUAGE plpgsql;
SET search_path = adempiere, pg_catalog;
CREATE OR REPLACE FUNCTION paymenttermduedays(
IN INTEGER, -- $1 payment term id
IN TIMESTAMP WITH TIME ZONE, -- $2 document date
IN TIMESTAMP WITH TIME ZONE -- $3 paydate
) RETURNS INTEGER AS
$$
DECLARE
due_date TIMESTAMP WITH TIME ZONE;
BEGIN
due_date := paymenttermduedate($1,$2);
IF due_date IS NULL THEN
RETURN 0;
END IF;
RETURN CAST(EXTRACT(DAY FROM (due_date - $3)) AS INTEGER);
END;
$$ LANGUAGE plpgsql;

157
db/ddlutils/postgresql/functions/ProductAttribute.sql
View File

@ -1,67 +1,90 @@
/* CREATE OR REPLACE FUNCTION ProductAttribute
*This file is part of Adempiere ERP Bazaar (
*http://www.adempiere.org p_M_AttributeSetInstance_ID NUMERIC
* )
*Copyright (C) 2006 Timo Kontro RETURNS VARCHAR AS $body$
*Copyright (C) 1999-2006 ComPiere, inc
* /*************************************************************************
*This program is free software; you can redistribute it and/or * The contents of this file are subject to the Compiere License. You may
*modify it under the terms of the GNU General Public License * obtain a copy of the License at http://www.compiere.org/license.html
*as published by the Free Software Foundation; either version 2 * Software is on an "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either
*of the License, or (at your option) any later version. * express or implied. See the License for details. Code: Compiere ERP+CRM
* * Copyright (C) 1999-2001 Jorg Janke, ComPiere, Inc. All Rights Reserved.
*This program is distributed in the hope that it will be useful, *
*but WITHOUT ANY WARRANTY; without even the implied warranty of * converted to postgreSQL by Karsten Thiemann (Schaeffer AG),
*MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * kthiemann@adempiere.org
*GNU General Public License for more details. *************************************************************************
* * Title: Return Instance Attribute Info
*You should have received a copy of the GNU General Public License * Description:
*along with this program; if not, write to the Free Software *
*Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.of * Test:
*/ SELECT ProductAttribute (M_AttributeSetInstance_ID)
FROM M_InOutLine WHERE M_AttributeSetInstance_ID > 0
SET search_path = adempiere, pg_catalog; --
SELECT p.Name
CREATE OR REPLACE FUNCTION productattribute ( FROM C_InvoiceLine il LEFT OUTER JOIN M_Product p ON (il.M_Product_ID=p.M_Product_ID);
IN INTEGER -- $1 m_attributesetinstance_id SELECT p.Name || ProductAttribute (il.M_AttributeSetInstance_ID)
) RETURNS VARCHAR AS FROM C_InvoiceLine il LEFT OUTER JOIN M_Product p ON (il.M_Product_ID=p.M_Product_ID);
$$
DECLARE ************************************************************************/
lot VARCHAR;
serno VARCHAR;
gdate TIMESTAMP WITH TIME ZONE; DECLARE
result VARCHAR;
r RECORD; v_Name VARCHAR(2000) := '';
v_NameAdd VARCHAR(2000) := '';
BEGIN --
IF COALESCE($1,0) = 0 THEN v_Lot M_AttributeSetInstance.Lot%TYPE;
RETURN ''; v_LotStart M_AttributeSet.LotCharSOverwrite%TYPE;
END IF; v_LotEnd M_AttributeSet.LotCharEOverwrite%TYPE;
SELECT t.lot, t.serno, t.guaranteedate v_SerNo M_AttributeSetInstance.SerNo%TYPE;
INTO lot, serno, gdate v_SerNoStart M_AttributeSet.SerNoCharSOverwrite%TYPE;
FROM m_attributesetinstance t v_SerNoEnd M_AttributeSet.SerNoCharEOverwrite%TYPE;
WHERE t.m_attributesetinstance_id = $1; v_GuaranteeDate M_AttributeSetInstance.GuaranteeDate%TYPE;
result := '';
IF lot IS NOT NULL THEN r RECORD;
result := result || lot || ' '; --
END IF;
IF serno IS NOT NULL THEN BEGIN
result := result || '#' || serno || ' '; -- Get Product Attribute Set Instance
END IF; IF (p_M_AttributeSetInstance_ID > 0) THEN
IF gdate IS NOT NULL THEN SELECT asi.Lot, asi.SerNo, asi.GuaranteeDate,
result := result || date_trunc('minute', gdate) || ' '; COALESCE(a.SerNoCharSOverwrite, '#'::CHAR(1)), COALESCE(a.SerNoCharEOverwrite, ''::CHAR(1)),
END IF; COALESCE(a.LotCharSOverwrite, '«'::CHAR(1)), COALESCE(a.LotCharEOverwrite, '»'::CHAR(1))
FOR r IN SELECT ai.value, a.name FROM m_attributeinstance ai INTO v_Lot, v_SerNo, v_GuaranteeDate,
INNER JOIN m_attribute a ON ai.m_attribute_id = a.m_attribute_id v_SerNoStart, v_SerNoEnd, v_LotStart, v_LotEnd
WHERE a.IsIstanceAttribute = 'Y' AND ai.m_attributesetinstance_id = $1 FROM M_AttributeSetInstance asi
LOOP INNER JOIN M_AttributeSet a ON (asi.M_AttributeSet_ID=a.M_AttributeSet_ID)
result := result || r.value; WHERE asi.M_AttributeSetInstance_ID=p_M_AttributeSetInstance_ID;
result := result || ':' || r.name || ' '; --
END LOOP; IF (v_SerNo IS NOT NULL) THEN
v_NameAdd := v_NameAdd || v_SerNoStart || v_SerNo || v_SerNoEnd || ' ';
IF CHAR_LENGTH(result) > 0 THEN END IF;
result := '"' || result || '"'; IF (v_Lot IS NOT NULL) THEN
END IF; v_NameAdd := v_NameAdd || v_LotStart || v_Lot || v_LotEnd || ' ';
RETURN result; END IF;
END; IF (v_GuaranteeDate IS NOT NULL) THEN
$$ LANGUAGE plpgsql; v_NameAdd := v_NameAdd || v_GuaranteeDate || ' ';
END IF;
--
FOR r IN
SELECT ai.Value, a.Name
FROM M_AttributeInstance ai
INNER JOIN M_Attribute a ON (ai.M_Attribute_ID=a.M_Attribute_ID AND a.IsInstanceAttribute='Y')
WHERE ai.M_AttributeSetInstance_ID=p_M_AttributeSetInstance_ID
LOOP
v_NameAdd := v_NameAdd || r.Name || ':' || r.Value || ' ';
END LOOP;
--
IF (LENGTH(v_NameAdd) > 0) THEN
v_Name := v_Name || ' (' || TRIM(v_NameAdd) || ')';
ELSE
v_Name := NULL;
END IF;
END IF;
RETURN v_Name;
END;
$body$ LANGUAGE plpgsql;