Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Jump to bottom

Add the database function to get the daily salary #3458

Merged
merged 1 commit into from
Jun 29, 2021
Merged

Add the database function to get the daily salary #3458

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
1 commit
Select commit
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Jump to
Jump to file
Failed to load files.
Diff view
Diff view
53 changes: 53 additions & 0 deletions db/ddlutils/oracle/functions/DailySalaryToDateByHrProcess.sql
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,53 @@
CREATE OR REPLACE FUNCTION dailySalaryToDateByHRProcess
(
p_C_BPartner_ID IN NUMBER,
p_HR_Process_ID IN NUMBER,
DateTo DATE
)
/******************************************************************************
* Product: Adempiere ERP & CRM Smart Business Solution *
* This program is free software; you can redistribute it and/or modify it *
* under the terms version 2 of the GNU General Public License as published *
* by the Free Software Foundation. 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., *
* 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA. *
* For the text or an alternative of this public license, you may reach us *
* Copyright (C) 2003-2021 E.R.P. Consultores y Asociados, C.A. *
* All Rights Reserved. *
* Contributor(s): German Anzola www.erpcya.com *
*****************************************************************************
***
* Title: Get Daily Salary by HR Procress
* Description:
* Get Daily Salary for a business partner flagged as employee, and flagged Payroll Procress
* get a concept for Daily Salary from Contract.
*
* Test:
* SELECT dailySalaryToDateByHRProcess (113, HR_Process_ID, null) FROM DUAL; - Get monthly salary now
* SELECT dailySalaryToDateByHRProcess (113, HR_Process_ID, now()) FROM DUAL; - Get monthly salary now
************************************************************************/
RETURN NUMBER AS
v_DailySalary NUMBER := 0;
BEGIN

SELECT mv.Amount INTO v_DailySalary
FROM HR_Movement mv
WHERE mv.C_BPartner_ID = p_C_BPartner_ID
AND mv.IsActive = 'Y'
AND mv.ValidFrom <= COALESCE(DateTo, SYSDATE)
AND mv.HR_Process_ID = p_HR_Process_ID
AND EXISTS(SELECT 1
FROM HR_Employee e
INNER JOIN HR_Payroll p ON(p.HR_Payroll_ID = e.HR_Payroll_ID)
INNER JOIN HR_Contract c ON(c.HR_Contract_ID = p.HR_Contract_ID)
WHERE e.C_BPartner_ID = p_C_BPartner_ID
AND c.DailySalary_ID = mv.HR_Concept_ID)
AND ROWNUM <= 1
ORDER BY mv.ValidFrom DESC;

RETURN v_DailySalary;
END dailySalaryToDateByHRProcess;
54 changes: 54 additions & 0 deletions db/ddlutils/postgresql/functions/DailySalaryToDateByHrProcess.sql
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,54 @@
CREATE OR REPLACE FUNCTION dailySalaryToDateByHRProcess(p_C_BPartner_ID numeric, p_HR_Process_ID numeric, DateTo timestamp with time zone)
RETURNS numeric AS
$BODY$
/******************************************************************************
* Product: Adempiere ERP & CRM Smart Business Solution *
* This program is free software; you can redistribute it and/or modify it *
* under the terms version 2 of the GNU General Public License as published *
* by the Free Software Foundation. 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., *
* 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA. *
* For the text or an alternative of this public license, you may reach us *
* Copyright (C) 2003-2021 E.R.P. Consultores y Asociados, C.A. *
* All Rights Reserved. *
* Contributor(s): German Anzola www.erpcya.com *
*****************************************************************************
***
* Title: Get Daily Salary by HR Procress
* Description:
* Get Daily Salary for a business partner flagged as employee, and flagged Payroll Procress
* get a concept for Daily Salary from Contract.
*
* Test:
* SELECT dailySalaryToDateByHRProcess (113, HR_Process_ID, null); - Get monthly salary now
* SELECT dailySalaryToDateByHRProcess (113, HR_Process_ID,now()); - Get monthly salary now
************************************************************************/
DECLARE
v_DailySalary NUMERIC := 0;
BEGIN

SELECT mv.Amount INTO v_DailySalary
FROM HR_Movement mv
WHERE mv.C_BPartner_ID = p_C_BPartner_ID
AND mv.IsActive = 'Y'
AND mv.ValidFrom <= COALESCE(DateTo, now())
AND mv.HR_Process_ID = p_HR_Process_ID
AND EXISTS(SELECT 1
FROM HR_Employee e
INNER JOIN HR_Payroll p ON(p.HR_Payroll_ID = e.HR_Payroll_ID)
INNER JOIN HR_Contract c ON(c.HR_Contract_ID = p.HR_Contract_ID)
WHERE e.C_BPartner_ID = p_C_BPartner_ID
AND c.DailySalary_ID = mv.HR_Concept_ID)
ORDER BY mv.ValidFrom DESC
LIMIT 1;

RETURN v_DailySalary;
END;

$BODY$
LANGUAGE plpgsql VOLATILE
COST 100;
118 changes: 118 additions & 0 deletions migration/393lts-394lts/07680_Add_Function_Daily_Salary_by_HRProcress.xml
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,118 @@
<?xml version="1.0" encoding="UTF-8" standalone="no"?>
<Migrations>
<Migration EntityType="D" Name="Add Function Daily Salary by HR Procress" ReleaseNo="3.9.4" SeqNo="7680">
<Step DBType="Postgres" Parse="N" SeqNo="10" StepType="SQL">
<SQLStatement>CREATE OR REPLACE FUNCTION dailySalaryToDateByHRProcess(p_C_BPartner_ID numeric, p_HR_Process_ID numeric, DateTo timestamp with time zone)
RETURNS numeric AS
$BODY$
/******************************************************************************
* Product: Adempiere ERP &amp; CRM Smart Business Solution *
* This program is free software; you can redistribute it and/or modify it *
* under the terms version 2 of the GNU General Public License as published *
* by the Free Software Foundation. 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., *
* 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA. *
* For the text or an alternative of this public license, you may reach us *
* Copyright (C) 2003-2021 E.R.P. Consultores y Asociados, C.A. *
* All Rights Reserved. *
* Contributor(s): German Anzola www.erpcya.com *
*****************************************************************************
***
* Title: Get Daily Salary by HR Procress
* Description:
* Get Daily Salary for a business partner flagged as employee, and flagged Payroll Procress
* get a concept for Daily Salary from Contract.
*
* Test:
* SELECT dailySalaryToDateByHRProcess (113, HR_Process_ID, null); - Get monthly salary now
* SELECT dailySalaryToDateByHRProcess (113, HR_Process_ID,now()); - Get monthly salary now
************************************************************************/
DECLARE
v_DailySalary NUMERIC := 0;
BEGIN

SELECT mv.Amount INTO v_DailySalary
FROM HR_Movement mv
WHERE mv.C_BPartner_ID = p_C_BPartner_ID
AND mv.IsActive = 'Y'
AND mv.ValidFrom &lt;= COALESCE(DateTo, now())
AND mv.HR_Process_ID = p_HR_Process_ID
AND EXISTS(SELECT 1
FROM HR_Employee e
INNER JOIN HR_Payroll p ON(p.HR_Payroll_ID = e.HR_Payroll_ID)
INNER JOIN HR_Contract c ON(c.HR_Contract_ID = p.HR_Contract_ID)
WHERE e.C_BPartner_ID = p_C_BPartner_ID
AND c.DailySalary_ID = mv.HR_Concept_ID)
ORDER BY mv.ValidFrom DESC
LIMIT 1;

RETURN v_DailySalary;
END;

$BODY$
LANGUAGE plpgsql VOLATILE
COST 100;</SQLStatement>
<RollbackStatement>DROP FUNCTION dailySalaryToDateByHRProcess;</RollbackStatement>
</Step>
<Step DBType="Oracle" Parse="N" SeqNo="20" StepType="SQL">
<SQLStatement>CREATE OR REPLACE FUNCTION dailySalaryToDateByHRProcess
(
p_C_BPartner_ID IN NUMBER,
p_HR_Process_ID IN NUMBER,
DateTo DATE
)
/******************************************************************************
* Product: Adempiere ERP &amp; CRM Smart Business Solution *
* This program is free software; you can redistribute it and/or modify it *
* under the terms version 2 of the GNU General Public License as published *
* by the Free Software Foundation. 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., *
* 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA. *
* For the text or an alternative of this public license, you may reach us *
* Copyright (C) 2003-2021 E.R.P. Consultores y Asociados, C.A. *
* All Rights Reserved. *
* Contributor(s): German Anzola www.erpcya.com *
*****************************************************************************
***
* Title: Get Daily Salary by HR Procress
* Description:
* Get Daily Salary for a business partner flagged as employee, and flagged Payroll Procress
* get a concept for Daily Salary from Contract.
*
* Test:
* SELECT dailySalaryToDateByHRProcess (113, HR_Process_ID, null) FROM DUAL; - Get monthly salary now
* SELECT dailySalaryToDateByHRProcess (113, HR_Process_ID, now()) FROM DUAL; - Get monthly salary now
************************************************************************/
RETURN NUMBER AS
v_DailySalary NUMBER := 0;
BEGIN

SELECT mv.Amount INTO v_DailySalary
FROM HR_Movement mv
WHERE mv.C_BPartner_ID = p_C_BPartner_ID
AND mv.IsActive = 'Y'
AND mv.ValidFrom &lt;= COALESCE(DateTo, SYSDATE)
AND mv.HR_Process_ID = p_HR_Process_ID
AND EXISTS(SELECT 1
FROM HR_Employee e
INNER JOIN HR_Payroll p ON(p.HR_Payroll_ID = e.HR_Payroll_ID)
INNER JOIN HR_Contract c ON(c.HR_Contract_ID = p.HR_Contract_ID)
WHERE e.C_BPartner_ID = p_C_BPartner_ID
AND c.DailySalary_ID = mv.HR_Concept_ID)
AND ROWNUM &lt;= 1
ORDER BY mv.ValidFrom DESC;

RETURN v_DailySalary;
END dailySalaryToDateByHRProcess;</SQLStatement>
<RollbackStatement>DROP FUNCTION dailySalaryToDateByHRProcess;</RollbackStatement>
</Step>
</Migration>
</Migrations>