WaiteH

NC休假加班存储过程

CREATE OR REPLACE PACKAGE BODY PKG_LEAVE AS
/*新

-- Add/modify columns
alter table HR_EMPLOYEE_ENJOY_LEAVE add PK_ORG char(20);
update HR_EMPLOYEE_ENJOY_LEAVE h set h.PK_ORG=(select chg.pk_hrorg from bd_psndoc psn inner join hi_psnorg chg on psn.pk_psndoc=chg.pk_psndoc and chg.lastflag='Y' where psn.pk_psndoc=h.pk_psndoc)

ERP数据库连接：
-- Drop existing database link
drop public database link ERP_DBL;
-- Create database link
create public database link ERP_DBL connect to CCIS0601 identified by TEST using '10.200.135.13:1521/orc9';

delete from HR_ELEAVE_MAPPING;
delete from HR_EMPLOYEE_ENJOY_LEAVE;

select * from tbm_timeitem;

生产系统：
1002Z710000000021ZLJ 年假
10018G1000000000BM37 上年年假
10018G1000000000BM2T 调整年假
10018G1000000000BM2P 年假延期

10018G1000000000BM2N 司龄假
10018G1000000000BM39 上年司龄假
10018G1000000000BM2R 司龄假延期
10018G1000000000BM2V 调整司龄假

10018G1000000000BM2L 补休
10018G1000000000BM33 调整补休
10018G1000000000BM35 补休延期

*/

/*********************************************************************************************************************
NAME: Auto_Gen_Employee_Leave

Declare
i Integer;
Begin
dbms_job.submit(i,'PKG_LEAVE.Auto_Gen_Employee_Leave;',Sysdate,'TRUNC(LAST_DAY(SYSDATE))+1+1/24');
end;
---查看定时任务
select * from user_jobs;

HISOTORY:
DATE NAME DESCRIPTION
2016-03-25 River PROCEDURE CREATED
***********************************************************************************************************************/

/*********************************************************************************************************************
NAME: pro_Supplement_Leave_Mapping

Declare
i Integer;
Begin
dbms_job.submit(i,'pkg_leave.pro_supplement_leave_mapping(presult => :presult);',Sysdate,'TRUNC(LAST_DAY(SYSDATE))+1+1/24');
end;
---查看定时任务
select * from user_jobs;

HISOTORY:
DATE NAME DESCRIPTION
2017-10-12 Waite PROCEDURE CREATED
***********************************************************************************************************************/

PROCEDURE Auto_Gen_Employee_Leave AS
vResult varchar(20);

begin

--当月1日生成员工假期后入职的同事，在下月生成假期时补生成上月1号后入职同事的假期
--公司所有部门使用后，开启此检测功能
--PKG_LEAVE.Gen_Employee_Leave(to_char(add_months(sysdate,-1),'YYYY'),to_char(add_months(sysdate,-1),'MM'),vResult);
PKG_LEAVE.Gen_Employee_Leave(to_char(sysdate,'YYYY'),to_char(add_months(sysdate,0),'MM'),vResult);--当前月份减一
pkg_leave.pro_supplement_leave_mapping(vResult);

end Auto_Gen_Employee_Leave;

/*********************************************************************************************************************
NAME: Auto_Gen_Try_Employee_Leave 追回试用期员工假期

Declare
i Integer;
Begin
dbms_job.submit(i,'PKG_LEAVE.Auto_Gen_Employee_Leave;',Sysdate,'TRUNC(LAST_DAY(SYSDATE))+1+1/24');
end;
---查看定时任务
select * from user_jobs;

HISOTORY:
DATE NAME DESCRIPTION
2016-03-25 River PROCEDURE CREATED
***********************************************************************************************************************/
PROCEDURE Auto_Gen_Try_Employee_Leave AS
vResult varchar(20);

begin

--当月1日生成员工假期后入职的同事，在下月生成假期时补生成上月1号后入职同事的假期
--公司所有部门使用后，开启此检测功能
--PKG_LEAVE.Gen_Employee_Leave(to_char(add_months(sysdate,-6),'YYYY'),to_char(add_months(sysdate,-6),'MM'),vResult);
--PKG_LEAVE.Gen_Employee_Leave(to_char(add_months(sysdate,-5),'YYYY'),to_char(add_months(sysdate,-5),'MM'),vResult);
--PKG_LEAVE.Gen_Employee_Leave(to_char(add_months(sysdate,-4),'YYYY'),to_char(add_months(sysdate,-4),'MM'),vResult);
--PKG_LEAVE.Gen_Employee_Leave(to_char(add_months(sysdate,-3),'YYYY'),to_char(add_months(sysdate,-3),'MM'),vResult);
--PKG_LEAVE.Gen_Employee_Leave(to_char(add_months(sysdate,-2),'YYYY'),to_char(add_months(sysdate,-2),'MM'),vResult);
--PKG_LEAVE.Gen_Employee_Leave(to_char(add_months(sysdate,-1),'YYYY'),to_char(add_months(sysdate,-1),'MM'),vResult);
PKG_LEAVE.Gen_Employee_Leave(to_char(sysdate,'YYYY'),to_char(sysdate,'MM'),vResult);

end Auto_Gen_Try_Employee_Leave;

/*********************************************************************************************************************

NAME: Auto_Gen_Employee_Leave

DESCRIPTION: Auto Gen Employee Leave /每月1日执行一次
DATE NAME DESCRIPTION
2015-12-28 River PROCEDURE CREATED

------------
--员工编号
--员工转正日期
--员工Hire_Date
--员工所在地：中、港、台
--员工职级
--员工年资
--员工每月应有年假
--员工每月应有司龄假
------------
***********************************************************************************************************************/
PROCEDURE Gen_Employee_Leave(pLEAVE_YEAR number ,pLEAVE_MONTH number,presult out varchar2) IS
CURSOR TEMP_CUR IS
select
psn.PK_PSNDOC,--员工 ID
psn.code psn_Code,--员工编号
psn.name psn_name,--员工名称
job.pk_org PK_HRORG, --使用最新的工作记录的组织
org.name org_name,--组织
org.code org_code,
to_date(chg.begindate,'YYYY-MM-DD') Working_age,--工龄Hire_Date---计算享有假期福利
to_date(job.begindate,'YYYY-MM-DD') Hire_Date, --当前岗位入职日期
to_date(job.jobglbdef29,'YYYY-MM-DD') Positive_Date, ---计算享有假期福利
--早期数据尚好转正日期，系统默认为入职日期+3个月
--to_date(nvl(job.jobglbdef29,to_char(add_months(to_date(chg.begindate,'YYYY-MM-DD'),3),'YYYY-MM-DD')),'YYYY-MM-DD') Positive_Date,
bd_defdoc1.name Grade ,---当前岗位职级计算享有假期福利
(case when psn.code='0013' then 20 when psn.code='0151' then 17 else he.annual_day end) annual_day , --年假 ---香港特殊人员休假不按规则表 -- 鄧麗貞
he.working_age_day, --司龄假
he.extended_day,--可延假（适用HK）
he.region,he.grade as rank,
-- job1.recordnum ,--记录序号
-- job1.endflag ,--是否结束
-- job1.lastflag ,--是否最新工作记录
-- bd_defdoc2.name ,--该记录岗位职级
to_date(job.begindate ,'YYYY-MM-DD') Adjustment_Date --变动日期
from bd_psndoc psn
inner join hi_psnorg chg on psn.pk_psndoc=chg.pk_psndoc and chg.lastflag='Y'
inner join hi_psnjob job on psn.pk_psndoc=job.pk_psndoc and job.lastflag='Y' and job.ismainjob='Y'--主职
inner join bd_defdoc bd_defdoc1 on job.jobglbdef28 = bd_defdoc1.pk_defdoc
inner join org_orgs org on job.pk_org = org.pk_org
inner join HR_EMPLOYEE_LEAVE_BENEFITS he on he.status=1
and he.grade=decode(upper(substr(bd_defdoc1.name,1,1)),'A',1,'B',2,'C',3,'D',4,'E',5,'F',6,'G',7)
and he.region =decode(substr(org.code,1,2),'HK',decode(job.pk_dept,'10016H100000000006XZ',4,2),'TA',3,1)
and decode(floor((to_date((to_char(pLEAVE_YEAR) || substr('0' || to_char(pLEAVE_MONTH),-2) || '01'),'YYYY-MM-DD')-to_date(chg.begindate,'YYYY-MM-DD'))/365+1),0,1,floor((to_date((to_char(pLEAVE_YEAR) || substr('0' || to_char(pLEAVE_MONTH),-2) || '01'),'YYYY-MM-DD')-to_date(chg.begindate,'YYYY-MM-DD'))/365+1)) between he.work_year_from and he.work_year_to
--UW floor((to_date((to_char(pLEAVE_YEAR) || substr('0' || to_char(pLEAVE_MONTH),-2) || '01'),'YYYY-MM-DD')-to_date(chg.begindate,'YYYY-MM-DD'))/365+1) between he.work_year_from and he.work_year_to
where to_char(to_date(chg.begindate,'YYYY-MM-DD'),'YYYYMMDD')<=to_char(add_months(to_date((to_char(pLEAVE_YEAR) || substr('0' || to_char(pLEAVE_MONTH),-2) || '01'),'YYYY-MM-DD'),1)-1, 'YYYYMMDD') and
--job.PK_DEPT IN ('10016H1000000000045F','10016H1000000000045T','10016H100000000002ZA','10016H100000000002ZO','10016H100000000005G2','10016H100000000007Z6','10016H100000000007ZK','10016H10000000000684','10016H100000000006TI','10016H100000000005GG') and -- OR code like '%CCIB%'
job.trnsevent<>4 and --非离职人员
--psn.glbdef30='10018G1000000000I4OV' and --DYX 10018G1000000000I4OV CCIB 10018G1000000000I4OW
to_char(add_months(to_date((to_char(pLEAVE_YEAR) || substr('0' || to_char(pLEAVE_MONTH),-2) || '01'),'YYYY-MM-DD'),1)-1, 'YYYYMMDD')
between replace(job.begindate,'-','') and
decode(job.enddate,null,to_char(add_months(to_date((to_char(pLEAVE_YEAR) || substr('0' || to_char(pLEAVE_MONTH),-2) || '01'),'YYYY-MM-DD'),1)-1, 'YYYYMMDD'),replace(job.enddate,'-','')) and
job.begindate is not null and --当前岗位Hire_Date
job.jobglbdef29 is not null and --入职转正日期不为空
--to_date(job.jobglbdef29,'YYYY-MM-DD')>to_date('2017-06-01','YYYY-MM-DD') and ---计算享有假期福利
--添加转正日期大于于6月1日的
bd_defdoc1.name is not null and --内部级别不为空
--台湾人员2018年1月前不需每月分配，兼职人员不需分配假期
substr(org.code,1,2) not in('TA') --and psn.pk_psndoc=(select pk_psndoc from bd_psndoc where code='0151')--betty
order by psn.PK_PSNDOC;
/*
1、员工享有假期基础数据表 HR_Employee_leave_benefits
drop table HR_EMPLOYEE_LEAVE_BENEFITS;
-- Create table
create table HR_EMPLOYEE_LEAVE_BENEFITS
(
ID NUMBER not null,
REGION NUMBER not null, -- 1、PRC 2、HK 3、TW
GRADE NUMBER not null, ---1、A 2、B 3、C 4、D 5、E 6、F 7、G
WORK_YEAR_FROM NUMBER not null, --工作年限最小 1，6，11，16，21，22，23，24，25，26，27
WORK_YEAR_TO NUMBER not null, --工作年限最大 5，10，15，20，21，22，23，24，25，26，27
annual_day NUMBER not null, --年假
Working_age_day NUMBER not null, --司龄假
extended_day NUMBER not null, --可延假
STATUS NUMBER default 1 not null, --null 无效 --1、有效
CREATE_DATE DATE default sysdate not null
);

-- Create sequence
create sequence HR_EMPLOYEE_LEAVE_BENEFITS_SEQ
minvalue 1
maxvalue 999999999999
start with 1
increment by 1
cache 30;

-- Create/Recreate primary, unique and foreign key constraints
alter table HR_EMPLOYEE_LEAVE_BENEFITS add constraint HR_EMPLOYEE_LEAVE_BENEFITS_PK primary key (ID);
alter table HR_EMPLOYEE_LEAVE_BENEFITS add constraint HR_EMPLOYEE_LEAVE_BENEFITS_UK unique (GRADE, REGION, WORK_YEAR_FROM, WORK_YEAR_TO, STATUS);

2、员工享有假期数据表 HR_EMPLOYEE_ENJOY_LEAVE
-- Create table
drop table HR_EMPLOYEE_ENJOY_LEAVE;
create table HR_EMPLOYEE_ENJOY_LEAVE
(
ID NUMBER not null,
PK_PSNDOC CHAR(20) not null, --员工 ID
PK_TIMEITEM CHAR(20) not null,--1、年假 2、司龄假 3、上年年假 4、上年司龄假 5、调整年假 6、调整司龄假 7、年假延期 8、司龄假延期 (在tbm_timeitem建立假期类型，再改ID)
LEAVE_YYYY NUMBER(4) not null, --YYYY
LEAVE_MM NUMBER(2) not null, --MM
LEAVE_QTY NUMBER(5,3) not null, --年假（天）、司龄假（天）、补休（小时）
LEAVE_UNIT NUMBER(1) default 1, --1、天 2、小时
START_DATE DATE not null,
END_DATE DATE not null,
FIRST_AUDIOR varchar(20), --主管审批sm_user
FIRST_AUDIT_DATE DATE,
FIRST_AUDIT_REMARK varchar(200),
SECOND_AUDIOR varchar(20), --HR审批sm_user
SECOND_AUDIT_DATE DATE,
SECOND_AUDIT_REMARK varchar(200),
THIRD_AUDIOR varchar(20), --sm_user
THIRD_AUDIT_DATE DATE,
THIRD_AUDIT_REMARK varchar(200),
FOURTH_AUDIOR varchar(20), --sm_user
FOURTH_AUDIT_DATE DATE,
FOURTH_AUDIT_REMARK varchar(200),
CREATE_DATE DATE default sysdate not null,
CREATOR varchar(20), --sm_user)
TS CHAR(19) default to_char(sysdate,'yyyy-mm-dd hh24:mi:ss')
);

-- Create sequence
drop sequence HR_EMPLOYEE_ENJOY_LEAVE_SEQ;
create sequence HR_EMPLOYEE_ENJOY_LEAVE_SEQ
minvalue 1
maxvalue 999999999999
start with 1
increment by 1
cache 30;

-- Create/Recreate primary, unique and foreign key constraints
alter table HR_EMPLOYEE_ENJOY_LEAVE add constraint HR_EMPLOYEE_ENJOY_LEAVE_PK primary key (ID);
alter table HR_EMPLOYEE_ENJOY_LEAVE add constraint HR_EMPLOYEE_ENJOY_LEAVE_UK unique (PK_PSNDOC, PK_TIMEITEM, LEAVE_YYYY,LEAVE_MM);

*/

vResult varchar(20);
vRegion varchar(3);
vWorking_Year_Percent number; --本年可工作时间比例
vAverage_monthly_holidays number; --每月平均可有假期

vAnnual_day_addyear number; --年资加一年年假
vAnnual_day number; --年假
vWorking_age_day number; --司龄假

vPre_Extended_day number; --上年可延假
vPre_Working_Year_Percent number; --上年可工作时间比例

vTotal_Annual_day number; --已享有年假
vTotal_Working_age_day number; --已享有司龄假

vRecord_QTY number;
vCur_date date; --当前计假日期
vCur_End_date date; --当前年最后一天
vHire_Date_FirstMon_T_Day number; --试用期当月总天数

vCur_Date_YM number; --当前计假时间 YYYYMM
vCur_Month_Total_Day number; --当前计假月总天数

vEmp_Date_YM number; --员工入职时间 YYYYMM
vEmp_Date_Year number; --员工入职时间 YYYY
vEmp_Date_Month number; --员工入职时间 MM
vEmp_Date_Day number; --员工入职时间 DD

vPositive_Year number; --员工转正时间 YYYY
vPK_TIMEITEM CHAR(20) ; --当前假期类型 1、年假 2、司龄假 3、上年年假 4、上年司龄假 5、调整年假 6、调整司龄假 7、年假延期 8、司龄假延期 9、补休 10、调整补休 11、补休延期

vLEAVE_QTY number; --享有假期天数
vSTART_DATE date; --开始日期
vEND_DATE date; --结束日期
vTW_END_DATE date; --TW 结束日期
begin
presult:='Failed';
if pLEAVE_YEAR>2016 and pLEAVE_MONTH>0 and pLEAVE_MONTH <13 then
vCur_date:=to_date(to_char(pLEAVE_YEAR) || '-' || substr('00' || to_char(pLEAVE_MONTH),-2) || '-01','YYYY-MM-DD');--//当前计假日期

vCur_Date_YM:=to_number(to_char(vCur_date,'YYYYMM'));--//当前计假时间 YYYYMM
vCur_Month_Total_Day:=to_number(to_char(last_day(vCur_date),'DD'));--//当前计假月总天数

vCur_End_date:=to_date(to_char(vCur_date,'YYYY') || '-12-31','YYYY-MM-DD');--//当前年最后一天
vTW_END_DATE:=to_date(to_char(pLEAVE_YEAR+1) || '-03-31','YYYY-MM-DD');--//TW 结束日期

/*
1、区分1、PRC 2、HK 3、TW
2、是否当年1月，计算剩余假和延期数
3、根据员工职级、年资、计算假期、是否转正

11、PRC、HK、TW假期计算统一为：
a）每月1号，系统自动计算分给员工当月假期；若员工A在3月10日由E职级升到D级，即其在3月1日用E级假期福利计算3月份的假，4月1日用D级假期福利计算4月份的假；
b）员工试用期间的假期在试用期过后才能申请使用；若PRC或HK员工A在9月1日入职（享D级5天年假，7天司龄假），第二年1月1日转正，在1月其可用年假为4天；
c）员工入职第一个月的应有假期，按当月工作天数比例计算；若员工A在1月10日由入职（享D级5天年假，7天司龄假），即1月应有假期为（31-10+1）/31 * （5+7）/12=0.704天年假
d) 若员工A有3天假期［年假/司龄假/补休］在2015年12月31日到期，系统允许在12月31日～1月5日(1、2、3日为公众假期)申请休这3天年假;
e）假期工龄计算：［1到5年］入职～未满5年［6到10年］满5年~未满10年［11到15年］满10年~未满15年 ,如此类推..；
员工A 入职日期：2015/9/10 转正日期：2015/12/9 1～5年工龄 6～10年工龄 …
PRC 2015/9/10～2020/9/9 2020/9/10～2025/9/9 …
HK 2015/9/10～2020/9/9 2020/9/10～2025/9/9 …
TW 2015/9/10～2020/9/9 2020/9/10～2025/9/9 …
f）年假/司龄假/补休假期保留3位小数；
g）增加假期延期申请功能、假期调整功能，具体权限分配由HR决定；

12、1月1日～6月30日PRC员工年资变动导致假期变化的，系统按员工最新假期福利先分摊年假，再分摊司龄假。7月1日～12月31日发生变化的全以司龄假分摊；
13、TW可预支不超过当年剩余的总年假，HK、PRC不能预支假期；
14、PRC、HK、TW员工在年底申请中的年假和司龄假，若没审批完，系统在1月1日将自动审批通过，否则影响延假计算。（此问题待HR提供解决办法）

--当前假期类型 1、年假 2、司龄假 3、上年年假 4、上年司龄假 5、调整年假 6、调整司龄假 7、年假延期 8、司龄假延期 9、补休 10、调整补休 11、补休延期
1002Z710000000021ZLJ 年假
10018G1000000000BM37 上年年假
10018G1000000000BM2T 调整年假
10018G1000000000BM2P 年假延期

10018G1000000000BM2N 司龄假
10018G1000000000BM39 上年司龄假
10018G1000000000BM2R 调整司龄假
10018G1000000000BM2V 司龄假延期

10018G1000000000BM2L 补休
10018G1000000000BM33 调整补休
10018G1000000000BM35 补休延期

*/
For TEMP_CUR_RECORD in TEMP_CUR loop
---员工所在地区
if substr(TEMP_CUR_RECORD.org_code,1,2)='HK' then
vRegion:= 'HK';
elsif substr(TEMP_CUR_RECORD.org_code,1,3)='TAI' then
vRegion:= 'TW';
else
vRegion:= 'PRC';
end if ;

--员工入职时间年月日
vEmp_Date_Year:=to_number(to_char(TEMP_CUR_RECORD.Working_age,'YYYY')); --员工入职时间 YYYY-mm-dd --//由Hire_Date改为Working_age
vEmp_Date_Month:=to_number(to_char(TEMP_CUR_RECORD.Working_age,'MM')); --员工入职时间 MM --//由Hire_Date改为Working_age
vEmp_Date_Day:=to_number(to_char(TEMP_CUR_RECORD.Working_age,'DD'));--员工入职时间 DD --//由Hire_Date改为Working_age
vEmp_Date_YM:=to_number(to_char(TEMP_CUR_RECORD.Working_age,'YYYYMM')); --员工入职时间 YYYYMM --//由Hire_Date改为Working_age

--计算假期的开始日期 & 结束日期
if TEMP_CUR_RECORD.Positive_Date>vCur_date then --转正日期>当前日期，员工还没转正，假期生效时间为转正日期
vSTART_DATE:=TEMP_CUR_RECORD.Positive_Date;--TEMP_CUR_RECORD.Positive_Date;--UW
--TW有效期15个月，PRC、HK当年有效
if vRegion= 'TW' then
vEND_DATE:=vTW_END_DATE;
else --
vPositive_Year:=to_number(to_char(TEMP_CUR_RECORD.Positive_Date,'YYYY')); ----员工转正时间 YYYY
if vPositive_Year>pLEAVE_YEAR then --跨年转正
vEND_DATE:=to_date(to_char(vPositive_Year) || '-12-31','YYYY-MM-DD');
else
vEND_DATE:=vCur_End_date;
end if;
end if;
else ---已经转正
vSTART_DATE:=vCur_date;
vEND_DATE:=vCur_End_date;
end if;
-------------跨年假期结转-------------------------------------
if pLEAVE_MONTH=1 then ---计算可延假 ,可延假>0 and 月份=1
--计算当年假期
if vEmp_Date_Year<(pLEAVE_YEAR-1) then --当前年大天其入职年
vPre_Working_Year_Percent:=1; --本年可工作时间比例
else--本年入职
vHire_Date_FirstMon_T_Day:=to_number(to_char(last_day(TEMP_CUR_RECORD.Working_age),'DD')); --试用期当月总天数 --//由Hire_Date改为Working_age
vPre_Working_Year_Percent:=(12-vEmp_Date_Month+(vHire_Date_FirstMon_T_Day-vEmp_Date_Day+1)/vHire_Date_FirstMon_T_Day)/12; --上年可工作时间比例
end if;

--he.annual_day, --年假
--he.working_age_day, --司龄假
--vPre_Extended_day:=TEMP_CUR_RECORD.extended_day*vPre_Working_Year_Percent; --上年可延假
--vPre_Extended_day:=TEMP_CUR_RECORD.working_age_day*vPre_Working_Year_Percent; --上年可延假
--if vPre_Extended_day>0 then ---计算可延假 ,可延假>0 and 月份=1
if vRegion= 'PRC' then
vPre_Extended_day:=TEMP_CUR_RECORD.working_age_day*vPre_Working_Year_Percent; --上年可延司龄假
vPK_TIMEITEM :='10018G1000000000BM39'; --当前假期类型 1、年假 2、司龄假 3、上年年假 4、上年司龄假 5、调整年假 6、调整司龄假 7、年假延期 8、司龄假延期
---检查数据是否已存在
select count(1) into vRecord_QTY from HR_EMPLOYEE_ENJOY_LEAVE h inner join HR_ELEAVE_MAPPING m on m.hr_employee_enjoy_leave_id=h.id where PK_PSNDOC=TEMP_CUR_RECORD.PK_PSNDOC and PK_ORG=TEMP_CUR_RECORD.PK_HRORG and LEAVE_YYYY=pLEAVE_YEAR and PK_TIMEITEM=vPK_TIMEITEM;
if vRecord_QTY=0 then--假期记录不存在可以新增
delete from HR_EMPLOYEE_ENJOY_LEAVE where PK_PSNDOC=TEMP_CUR_RECORD.PK_PSNDOC and PK_ORG=TEMP_CUR_RECORD.PK_HRORG and LEAVE_YYYY=pLEAVE_YEAR and PK_TIMEITEM=vPK_TIMEITEM;
--计算剩余假期
select nvl(sum(lastdayorhour+realdayorhour -yidayorhour-freezedayorhour), 0) into vLEAVE_QTY from tbm_leavebalance where pk_psndoc=TEMP_CUR_RECORD.PK_PSNDOC and PK_ORG=TEMP_CUR_RECORD.PK_HRORG and curyear=to_char(pLEAVE_YEAR-1) and pk_timeitem='10018G1000000000BM2N';
if vLEAVE_QTY>vPre_Extended_day then -- 剩余假期 vLEAVE_QTY 若大于可延假，即只可带可延假数
vLEAVE_QTY:=vPre_Extended_day;
end if;
--新增加可延司龄假
insert into HR_EMPLOYEE_ENJOY_LEAVE( ID, PK_PSNDOC,PK_ORG,LEAVE_YYYY,LEAVE_MM,PK_TIMEITEM,LEAVE_QTY,START_DATE,END_DATE) values(HR_EMPLOYEE_ENJOY_LEAVE_SEQ.NEXTVAL,TEMP_CUR_RECORD.PK_PSNDOC,TEMP_CUR_RECORD.PK_HRORG,pLEAVE_YEAR,pLEAVE_MONTH,vPK_TIMEITEM, Ceil(vLEAVE_QTY * 1000)/1000,vCur_date,vCur_End_date);
----当前假期类型 2、司龄假 4、可延司龄假（注意假期有效期）
update tbm_leavebalance set lastdayorhour=vLEAVE_QTY
where pk_psndoc=TEMP_CUR_RECORD.PK_PSNDOC and PK_ORG=TEMP_CUR_RECORD.PK_HRORG and curyear=to_char(pLEAVE_YEAR) and pk_timeitem='10018G1000000000BM2N';
end if;

vPre_Extended_day:=TEMP_CUR_RECORD.annual_day*vPre_Working_Year_Percent; --上年可延年假
vPK_TIMEITEM :='10018G1000000000BM37'; --当前假期类型 1、年假 2、司龄假 3、上年年假 4、上年司龄假 5、调整年假 6、调整司龄假 7、年假延期 8、司龄假延期
---检查数据是否已存在
select count(1) into vRecord_QTY from HR_EMPLOYEE_ENJOY_LEAVE h inner join HR_ELEAVE_MAPPING m on m.hr_employee_enjoy_leave_id=h.id where PK_PSNDOC=TEMP_CUR_RECORD.PK_PSNDOC and PK_ORG=TEMP_CUR_RECORD.PK_HRORG and LEAVE_YYYY=pLEAVE_YEAR and PK_TIMEITEM=vPK_TIMEITEM;
if vRecord_QTY=0 then--假期记录不存在可以新增
delete from HR_EMPLOYEE_ENJOY_LEAVE where PK_PSNDOC=TEMP_CUR_RECORD.PK_PSNDOC and PK_ORG=TEMP_CUR_RECORD.PK_HRORG and LEAVE_YYYY=pLEAVE_YEAR and PK_TIMEITEM=vPK_TIMEITEM;
--计算剩余假期
select nvl(sum(lastdayorhour+realdayorhour -yidayorhour-freezedayorhour), 0) into vLEAVE_QTY from tbm_leavebalance where pk_psndoc=TEMP_CUR_RECORD.PK_PSNDOC and PK_ORG=TEMP_CUR_RECORD.PK_HRORG and curyear=to_char(pLEAVE_YEAR-1) and pk_timeitem='1002Z710000000021ZLJ';
if vLEAVE_QTY>0 then -- 剩余假期 vLEAVE_QTY 若大于可延假，即只可带可延假数
if vLEAVE_QTY>vPre_Extended_day then
vLEAVE_QTY:=vPre_Extended_day;
end if;
--新增加可延年假
insert into HR_EMPLOYEE_ENJOY_LEAVE( ID, PK_PSNDOC,PK_ORG,LEAVE_YYYY,LEAVE_MM,PK_TIMEITEM,LEAVE_QTY,START_DATE,END_DATE) values(HR_EMPLOYEE_ENJOY_LEAVE_SEQ.NEXTVAL,TEMP_CUR_RECORD.PK_PSNDOC,TEMP_CUR_RECORD.PK_HRORG,pLEAVE_YEAR,pLEAVE_MONTH,vPK_TIMEITEM,Ceil(vLEAVE_QTY * 1000)/1000,vCur_date,vCur_End_date);

update tbm_leavebalance set lastdayorhour=vLEAVE_QTY
where pk_psndoc=TEMP_CUR_RECORD.PK_PSNDOC and PK_ORG=TEMP_CUR_RECORD.PK_HRORG and curyear=to_char(pLEAVE_YEAR) and pk_timeitem='1002Z710000000021ZLJ';
end if;
end if;
elsif vRegion= 'HK' then --vRegion= 'HK'
vPre_Extended_day:=TEMP_CUR_RECORD.extended_day*vPre_Working_Year_Percent; --上年可延假
vPK_TIMEITEM :='10018G1000000000BM37'; --当前假期类型 1、年假 2、司龄假 3、上年年假 4、上年司龄假 5、调整年假 6、调整司龄假 7、年假延期 8、司龄假延期
---检查数据是否已存在
select count(1) into vRecord_QTY from HR_EMPLOYEE_ENJOY_LEAVE h inner join HR_ELEAVE_MAPPING m on m.hr_employee_enjoy_leave_id=h.id where PK_PSNDOC=TEMP_CUR_RECORD.PK_PSNDOC and PK_ORG=TEMP_CUR_RECORD.PK_HRORG and LEAVE_YYYY=pLEAVE_YEAR and PK_TIMEITEM=vPK_TIMEITEM;
if vRecord_QTY=0 then--假期记录不存在可以新增
delete from HR_EMPLOYEE_ENJOY_LEAVE where PK_PSNDOC=TEMP_CUR_RECORD.PK_PSNDOC and PK_ORG=TEMP_CUR_RECORD.PK_HRORG and LEAVE_YYYY=pLEAVE_YEAR and PK_TIMEITEM=vPK_TIMEITEM;
--计算剩余假期
select nvl(sum(lastdayorhour+realdayorhour -yidayorhour-freezedayorhour), 0) into vLEAVE_QTY from tbm_leavebalance where pk_psndoc=TEMP_CUR_RECORD.PK_PSNDOC and PK_ORG=TEMP_CUR_RECORD.PK_HRORG and curyear=to_char(pLEAVE_YEAR-1) and pk_timeitem='1002Z710000000021ZLJ';
if vLEAVE_QTY>0 then -- 剩余假期 vLEAVE_QTY 若大于可延假，即只可带可延假数
if vLEAVE_QTY>vPre_Extended_day then
vLEAVE_QTY:=vPre_Extended_day;
end if;
--新增加可延年假
insert into HR_EMPLOYEE_ENJOY_LEAVE( ID, PK_PSNDOC,PK_ORG,LEAVE_YYYY,LEAVE_MM,PK_TIMEITEM,LEAVE_QTY,START_DATE,END_DATE) values(HR_EMPLOYEE_ENJOY_LEAVE_SEQ.NEXTVAL,TEMP_CUR_RECORD.PK_PSNDOC,TEMP_CUR_RECORD.PK_HRORG,pLEAVE_YEAR,pLEAVE_MONTH,vPK_TIMEITEM,Ceil(vLEAVE_QTY * 1000)/1000,vCur_date,vCur_End_date);

update tbm_leavebalance set lastdayorhour=round(vLEAVE_QTY*2,0)/2
where pk_psndoc=TEMP_CUR_RECORD.PK_PSNDOC and PK_ORG=TEMP_CUR_RECORD.PK_HRORG and curyear=to_char(pLEAVE_YEAR) and pk_timeitem='1002Z710000000021ZLJ';
end if;
end if;
elsif vRegion= 'TW' then --台湾假期，有效期15个月
--vPre_Extended_day:=TEMP_CUR_RECORD.extended_day*vPre_Working_Year_Percent; --上年可延假(新增)
vPK_TIMEITEM :='10018G1000000000BM37'; --当前假期类型 1、年假 2、司龄假 3、上年年假 4、上年司龄假 5、调整年假 6、调整司龄假 7、年假延期 8、司龄假延期
---检查数据是否已存在
select count(1) into vRecord_QTY from HR_EMPLOYEE_ENJOY_LEAVE where PK_PSNDOC=TEMP_CUR_RECORD.PK_PSNDOC and LEAVE_YYYY=pLEAVE_YEAR and PK_TIMEITEM=vPK_TIMEITEM;
if vRecord_QTY=0 then--假期记录不存在可以新增
--计算剩余假期
--select nvl(sum(lastdayorhour+realdayorhour -yidayorhour-freezedayorhour), 0) into vLEAVE_QTY from tbm_leavebalance where pk_psndoc=TEMP_CUR_RECORD.PK_PSNDOC and PK_ORG=TEMP_CUR_RECORD.PK_HRORG and curyear=to_char(pLEAVE_YEAR-1) and pk_timeitem='1002Z710000000021ZLJ';
select nvl(sum(lastdayorhour+realdayorhour -yidayorhour-freezedayorhour), 0) into vLEAVE_QTY from tbm_leavebalance where pk_psndoc=TEMP_CUR_RECORD.PK_PSNDOC and PK_ORG=TEMP_CUR_RECORD.PK_HRORG and curyear=to_char(pLEAVE_YEAR-1) and pk_timeitem='1002Z710000000021ZLJ';
--if vLEAVE_QTY>vPre_Extended_day then -- 剩余假期 vLEAVE_QTY 若大于可延假，即只可带可延假数
-- vLEAVE_QTY:=vPre_Extended_day;
--end if;
--新增加可延年假 --TW 上年年假可延到下一年3月31日
insert into HR_EMPLOYEE_ENJOY_LEAVE( ID, PK_PSNDOC,PK_ORG,LEAVE_YYYY,LEAVE_MM,PK_TIMEITEM,LEAVE_QTY,START_DATE,END_DATE) values(HR_EMPLOYEE_ENJOY_LEAVE_SEQ.NEXTVAL,TEMP_CUR_RECORD.PK_PSNDOC,TEMP_CUR_RECORD.PK_HRORG,pLEAVE_YEAR,pLEAVE_MONTH,vPK_TIMEITEM,Ceil(vLEAVE_QTY * 1000)/1000,vCur_date,to_date(to_char(pLEAVE_YEAR) || '-03-31','YYYY-MM-DD'));
update tbm_leavebalance set lastdayorhour=vLEAVE_QTY
where pk_psndoc=TEMP_CUR_RECORD.PK_PSNDOC and PK_ORG=TEMP_CUR_RECORD.PK_HRORG and curyear=to_char(pLEAVE_YEAR) and pk_timeitem='1002Z710000000021ZLJ';
end if;

end if;
--end if;
end if;
--------------------------------------------------

--计算上年可延假
if vEmp_Date_Year vPre_Working_Year_Percent:=1; --上年可工作时间比例
--else--上年入职
-- vHire_Date_FirstMon_T_Day:=to_number(to_char(last_day(TEMP_CUR_RECORD.Hire_Date),'DD')); --试用期当月总天数
-- vPre_Working_Year_Percent:=(vHire_Date_FirstMon_T_Day-vEmp_Date_Day+1)/vHire_Date_FirstMon_T_Day+(12-vEmp_Date_Month)/12; --本年可工作时间比例
end if;

--计算当年假期
--判断是否大陆，大陆有司龄假
if vEmp_Date_Year if vRegion= 'PRC' then
vWorking_Year_Percent:=1; --本年可工作时间比例
elsif vRegion= 'TW' then
vWorking_Year_Percent:=(12-vEmp_Date_Month+1)/12;--本年未分配应享有年假比例,当年年资增加前比例
--比例需要分开，入职月份作为区分 vEmp_Date_Month
else
vWorking_Year_Percent:=1;--本年未分配应享有年假比例
--比例需要分开，入职月份作为区分 vEmp_Date_Month
end if;
else--本年入职
vHire_Date_FirstMon_T_Day:=to_number(to_char(last_day(TEMP_CUR_RECORD.Working_age),'DD')); --试用期当月总天数--//由Hire_Date改为Working_age
vWorking_Year_Percent:=(12-vEmp_Date_Month+(vHire_Date_FirstMon_T_Day-vEmp_Date_Day+1)/vHire_Date_FirstMon_T_Day)/12; --本年可工作时间比例
end if;
if vRegion= 'PRC' then
vAnnual_day:=TEMP_CUR_RECORD.annual_day*vWorking_Year_Percent; --本年应有年假
vWorking_age_day:=TEMP_CUR_RECORD.working_age_day*vWorking_Year_Percent; --本年应有司龄假
---====add by waite
elsif vRegion= 'TW' then
--计算本年已分配的年假
select nvl(sum(LEAVE_QTY),0) into vTotal_Annual_day from HR_EMPLOYEE_ENJOY_LEAVE where PK_PSNDOC=TEMP_CUR_RECORD.PK_PSNDOC and PK_ORG=TEMP_CUR_RECORD.PK_HRORG and PK_TIMEITEM='1002Z710000000021ZLJ' and LEAVE_YYYY=pLEAVE_YEAR;
--入职月份小于当前月份
if vEmp_Date_Month vAnnual_day:=TEMP_CUR_RECORD.annual_day*((12-pLEAVE_MONTH+1)/12)+vTotal_Annual_day; --本年应有年假,已分配加上未分配
else
select annual_day into vAnnual_day_addyear from HR_EMPLOYEE_LEAVE_BENEFITS where region=TEMP_CUR_RECORD.region and grade=TEMP_CUR_RECORD.rank and floor((to_date((to_char(pLEAVE_YEAR) || substr('0' || to_char(pLEAVE_MONTH),-2) || '01'),'YYYY-MM-DD')-TEMP_CUR_RECORD.Working_age)/365+2) between work_year_from and work_year_to;
vAnnual_day:=TEMP_CUR_RECORD.annual_day*((vEmp_Date_Month-pLEAVE_MONTH+1)/12)+vTotal_Annual_day+vAnnual_day_addyear*((12-vEmp_Date_Month)/12); --本年应有年假加年资加一未分配
end if;
else--HK
--计算本年已分配的年假
--select nvl(sum(LEAVE_QTY),0) into vTotal_Annual_day from HR_EMPLOYEE_ENJOY_LEAVE where PK_PSNDOC=TEMP_CUR_RECORD.PK_PSNDOC and PK_ORG=TEMP_CUR_RECORD.PK_HRORG and PK_TIMEITEM='1002Z710000000021ZLJ' and LEAVE_YYYY=pLEAVE_YEAR;
vAnnual_day:=TEMP_CUR_RECORD.annual_day*vWorking_Year_Percent;--本年应有年假
end if;

--计算本月工作天数，可享的假期
if vCur_Date_YM>vEmp_Date_YM then --计假年月大于入职年月，即员工全月工作，享当月假
vAverage_monthly_holidays:=(TEMP_CUR_RECORD.working_age_day+TEMP_CUR_RECORD.annual_day)/12; --每月平均可有假期
elsif vCur_Date_YM=vEmp_Date_YM then --计假年月等于入职年月，即员工可能不是全月工作，享当月比例的假
vAverage_monthly_holidays:=((vCur_Month_Total_Day-vEmp_Date_Day+1)/vCur_Month_Total_Day) * (TEMP_CUR_RECORD.working_age_day+TEMP_CUR_RECORD.annual_day)/12;
end if;

--计算本年已分配的年假
select nvl(sum(LEAVE_QTY),0) into vTotal_Annual_day from HR_EMPLOYEE_ENJOY_LEAVE where PK_PSNDOC=TEMP_CUR_RECORD.PK_PSNDOC and PK_ORG=TEMP_CUR_RECORD.PK_HRORG and PK_TIMEITEM='1002Z710000000021ZLJ' and LEAVE_YYYY=pLEAVE_YEAR;
--计算本年已分配的司龄假
select nvl(sum(LEAVE_QTY),0) into vTotal_Working_age_day from HR_EMPLOYEE_ENJOY_LEAVE where PK_PSNDOC=TEMP_CUR_RECORD.PK_PSNDOC and PK_ORG=TEMP_CUR_RECORD.PK_HRORG and PK_TIMEITEM='10018G1000000000BM2N' and LEAVE_YYYY=pLEAVE_YEAR;

---检查数据是否已存在
select count(1) into vRecord_QTY from HR_EMPLOYEE_ENJOY_LEAVE where PK_PSNDOC=TEMP_CUR_RECORD.PK_PSNDOC and PK_ORG=TEMP_CUR_RECORD.PK_HRORG and PK_TIMEITEM in ('1002Z710000000021ZLJ','10018G1000000000BM2N') and LEAVE_YYYY=pLEAVE_YEAR and LEAVE_MM=pLEAVE_MONTH;
if vRecord_QTY=0 then--假期记录不存在可以新增
/*
vAnnual_day --本年应有年假
vWorking_age_day --本年应有司龄假
vAverage_monthly_holidays --每月平均可有假期
vTotal_Annual_day--已分配的年假
vTotal_Working_age_day--已分配的司龄假

1月1日～6月30日PRC员工年资变动导致假期变化的，系统按员工最新假期福利先分摊年假，再分摊司龄假。7月1日～12月31日发生变化的全以司龄假分摊；
*/
if to_number(to_char(TEMP_CUR_RECORD.Working_age,'YYYY'))>=pLEAVE_YEAR then --入职日期大于等于计算假歁的年度，应享假期按比例计算
--2016-08上线 PRC地区分配司龄假
if (vRegion='PRC' and pLEAVE_YEAR>2016 and pLEAVE_MONTH>6)
or (TEMP_CUR_RECORD.Adjustment_Date>TEMP_CUR_RECORD.Positive_Date and vRegion='PRC' and to_number(to_char(TEMP_CUR_RECORD.Adjustment_Date,'YYYY'))=pLEAVE_YEAR and to_number(to_char(TEMP_CUR_RECORD.Adjustment_Date,'MM'))>6 and pLEAVE_MONTH>6)
then
vPK_TIMEITEM :='10018G1000000000BM2N'; --当前假期类型 1、年假 2、司龄假 3、上年年假 4、上年司龄假 5、调整年假 6、调整司龄假 7、年假延期 8、司龄假延期
vLEAVE_QTY:=vAverage_monthly_holidays;
--新增加司龄假
insert into HR_EMPLOYEE_ENJOY_LEAVE( ID, PK_PSNDOC,PK_ORG,LEAVE_YYYY,LEAVE_MM,PK_TIMEITEM,LEAVE_QTY,START_DATE,END_DATE) values(HR_EMPLOYEE_ENJOY_LEAVE_SEQ.NEXTVAL,TEMP_CUR_RECORD.PK_PSNDOC,TEMP_CUR_RECORD.PK_HRORG,pLEAVE_YEAR,pLEAVE_MONTH,vPK_TIMEITEM,Ceil(vLEAVE_QTY * 1000)/1000,vSTART_DATE,vEND_DATE);
--判断是否转正
-- if TEMP_CUR_RECORD.Positive_Date PKG_LEAVE.Update_Leave_By_PK_PSNDOC(TEMP_CUR_RECORD.PK_PSNDOC,TEMP_CUR_RECORD.PK_HRORG,vPK_TIMEITEM,pLEAVE_YEAR,vAnnual_day+vWorking_age_day,vResult);
-- end if;
else
if vAnnual_day>=(vTotal_Annual_day+vAverage_monthly_holidays) then --本年应有年假>=每月平均可有假期+已分配的年假
vPK_TIMEITEM :='1002Z710000000021ZLJ'; --当前假期类型 1、年假 2、司龄假 3、上年年假 4、上年司龄假 5、调整年假 6、调整司龄假 7、年假延期 8、司龄假延期
vLEAVE_QTY:=vAverage_monthly_holidays;
--新增加年假
insert into HR_EMPLOYEE_ENJOY_LEAVE( ID, PK_PSNDOC,PK_ORG,LEAVE_YYYY,LEAVE_MM,PK_TIMEITEM,LEAVE_QTY,START_DATE,END_DATE) values(HR_EMPLOYEE_ENJOY_LEAVE_SEQ.NEXTVAL,TEMP_CUR_RECORD.PK_PSNDOC,TEMP_CUR_RECORD.PK_HRORG,pLEAVE_YEAR,pLEAVE_MONTH,vPK_TIMEITEM,Ceil(vLEAVE_QTY * 1000)/1000,vSTART_DATE,vEND_DATE);
--判断是否转正
-- if TEMP_CUR_RECORD.Positive_Date PKG_LEAVE.Update_Leave_By_PK_PSNDOC(TEMP_CUR_RECORD.PK_PSNDOC,TEMP_CUR_RECORD.PK_HRORG,vPK_TIMEITEM,pLEAVE_YEAR,vAnnual_day,vResult);
-- end if;
else
if vAnnual_day>vTotal_Annual_day then --当月出现部分看年假，部分司龄假
--新增加年假
vPK_TIMEITEM :='1002Z710000000021ZLJ'; --当前假期类型 1、年假 2、司龄假 3、上年年假 4、上年司龄假 5、调整年假 6、调整司龄假 7、年假延期 8、司龄假延期
vLEAVE_QTY:=vAnnual_day-vTotal_Annual_day;
insert into HR_EMPLOYEE_ENJOY_LEAVE( ID, PK_PSNDOC,PK_ORG,LEAVE_YYYY,LEAVE_MM,PK_TIMEITEM,LEAVE_QTY,START_DATE,END_DATE) values(HR_EMPLOYEE_ENJOY_LEAVE_SEQ.NEXTVAL,TEMP_CUR_RECORD.PK_PSNDOC,TEMP_CUR_RECORD.PK_HRORG,pLEAVE_YEAR,pLEAVE_MONTH,vPK_TIMEITEM,Ceil(vLEAVE_QTY * 1000)/1000,vSTART_DATE,vEND_DATE);
--判断是否转正
-- if TEMP_CUR_RECORD.Positive_Date PKG_LEAVE.Update_Leave_By_PK_PSNDOC(TEMP_CUR_RECORD.PK_PSNDOC,TEMP_CUR_RECORD.PK_HRORG,vPK_TIMEITEM,pLEAVE_YEAR,vAnnual_day,vResult);
-- end if;
--新增加司龄假
vPK_TIMEITEM :='10018G1000000000BM2N'; --当前假期类型 1、年假 2、司龄假 3、上年年假 4、上年司龄假 5、调整年假 6、调整司龄假 7、年假延期 8、司龄假延期
vLEAVE_QTY:=vAverage_monthly_holidays-(vAnnual_day-vTotal_Annual_day);
insert into HR_EMPLOYEE_ENJOY_LEAVE( ID, PK_PSNDOC,PK_ORG,LEAVE_YYYY,LEAVE_MM,PK_TIMEITEM,LEAVE_QTY,START_DATE,END_DATE) values(HR_EMPLOYEE_ENJOY_LEAVE_SEQ.NEXTVAL,TEMP_CUR_RECORD.PK_PSNDOC,TEMP_CUR_RECORD.PK_HRORG,pLEAVE_YEAR,pLEAVE_MONTH,vPK_TIMEITEM,Ceil(vLEAVE_QTY * 1000)/1000,vSTART_DATE,vEND_DATE);
-- if TEMP_CUR_RECORD.Positive_Date PKG_LEAVE.Update_Leave_By_PK_PSNDOC(TEMP_CUR_RECORD.PK_PSNDOC,TEMP_CUR_RECORD.PK_HRORG,vPK_TIMEITEM,pLEAVE_YEAR,vWorking_age_day,vResult);
-- end if;
else --年假已分派完，紧剩司龄假
vPK_TIMEITEM :='10018G1000000000BM2N'; --当前假期类型 1、年假 2、司龄假 3、上年年假 4、上年司龄假 5、调整年假 6、调整司龄假 7、年假延期 8、司龄假延期
vLEAVE_QTY:=vAverage_monthly_holidays;
--新增加司龄假
insert into HR_EMPLOYEE_ENJOY_LEAVE( ID, PK_PSNDOC,PK_ORG,LEAVE_YYYY,LEAVE_MM,PK_TIMEITEM,LEAVE_QTY,START_DATE,END_DATE) values(HR_EMPLOYEE_ENJOY_LEAVE_SEQ.NEXTVAL,TEMP_CUR_RECORD.PK_PSNDOC,TEMP_CUR_RECORD.PK_HRORG,pLEAVE_YEAR,pLEAVE_MONTH,vPK_TIMEITEM,Ceil(vLEAVE_QTY * 1000)/1000,vSTART_DATE,vEND_DATE);
--判断是否转正
--if TEMP_CUR_RECORD.Positive_Date PKG_LEAVE.Update_Leave_By_PK_PSNDOC(TEMP_CUR_RECORD.PK_PSNDOC,TEMP_CUR_RECORD.PK_HRORG,vPK_TIMEITEM,pLEAVE_YEAR,vWorking_age_day,vResult);
-- end if;
end if;
end if;
end if;
else --入职日期早于计算假歁的年度，应享假期按比例计算
-- if TEMP_CUR_RECORD.Adjustment_Date>TEMP_CUR_RECORD.Positive_Date and vRegion='PRC' and to_number(to_char(TEMP_CUR_RECORD.Adjustment_Date,'YYYY'))=pLEAVE_YEAR and to_number(to_char(TEMP_CUR_RECORD.Adjustment_Date,'MM'))>6 and pLEAVE_MONTH>6 then
if (vRegion='PRC' and pLEAVE_YEAR>2016 and pLEAVE_MONTH>6)
or TEMP_CUR_RECORD.Adjustment_Date>TEMP_CUR_RECORD.Positive_Date and vRegion='PRC' and to_number(to_char(TEMP_CUR_RECORD.Adjustment_Date,'YYYY'))=pLEAVE_YEAR and to_number(to_char(TEMP_CUR_RECORD.Adjustment_Date,'MM'))>6 and pLEAVE_MONTH>6 then
--Adjustment_Date
vPK_TIMEITEM :='10018G1000000000BM2N'; --当前假期类型 1、年假 2、司龄假 3、上年年假 4、上年司龄假 5、调整年假 6、调整司龄假 7、年假延期 8、司龄假延期
vLEAVE_QTY:=vAverage_monthly_holidays;
--新增加司龄假
insert into HR_EMPLOYEE_ENJOY_LEAVE( ID, PK_PSNDOC,PK_ORG,LEAVE_YYYY,LEAVE_MM,PK_TIMEITEM,LEAVE_QTY,START_DATE,END_DATE) values(HR_EMPLOYEE_ENJOY_LEAVE_SEQ.NEXTVAL,TEMP_CUR_RECORD.PK_PSNDOC,TEMP_CUR_RECORD.PK_HRORG,pLEAVE_YEAR,pLEAVE_MONTH,vPK_TIMEITEM,Ceil(vLEAVE_QTY * 1000)/1000,vSTART_DATE,vEND_DATE);
PKG_LEAVE.Update_Leave_By_PK_PSNDOC(TEMP_CUR_RECORD.PK_PSNDOC,TEMP_CUR_RECORD.PK_HRORG,vPK_TIMEITEM,pLEAVE_YEAR,TEMP_CUR_RECORD.working_age_day,vResult);
else
--判断是否是香港地区 add by waite 2018年1月取消
if substr(TEMP_CUR_RECORD.org_code,1,2)='HK' then
--if pPK_ORG in('00018G1000000000I1A7','00016H10000000000BIO','00016H10000000000BI8','00016H10000000000BI5','00016H10000000000BIC','00016H10000000000BIF','00016H10000000000BII','00016H10000000000BIL') then
vPK_TIMEITEM :='1002Z710000000021ZLJ'; --当前假期类型 1、年假 2、司龄假 3、上年年假 4、上年司龄假 5、调整年假 6、调整司龄假 7、年假延期 8、司龄假延期
vLEAVE_QTY:=vAverage_monthly_holidays;
--新增加年假
insert into HR_EMPLOYEE_ENJOY_LEAVE( ID, PK_PSNDOC,PK_ORG,LEAVE_YYYY,LEAVE_MM,PK_TIMEITEM,LEAVE_QTY,START_DATE,END_DATE) values(HR_EMPLOYEE_ENJOY_LEAVE_SEQ.NEXTVAL,TEMP_CUR_RECORD.PK_PSNDOC,TEMP_CUR_RECORD.PK_HRORG,pLEAVE_YEAR,pLEAVE_MONTH,vPK_TIMEITEM,Ceil(vLEAVE_QTY * 1000)/1000,vSTART_DATE,vEND_DATE);
PKG_LEAVE.Update_Leave_By_PK_PSNDOC(TEMP_CUR_RECORD.PK_PSNDOC,TEMP_CUR_RECORD.PK_HRORG,vPK_TIMEITEM,pLEAVE_YEAR,vAnnual_day,vResult);
else
------------=========
if vAnnual_day>=(vTotal_Annual_day+vAverage_monthly_holidays) then --本年应有年假>=每月平均可有假期+已分配的年假
vPK_TIMEITEM :='1002Z710000000021ZLJ'; --当前假期类型 1、年假 2、司龄假 3、上年年假 4、上年司龄假 5、调整年假 6、调整司龄假 7、年假延期 8、司龄假延期
vLEAVE_QTY:=vAverage_monthly_holidays;
--新增加年假
insert into HR_EMPLOYEE_ENJOY_LEAVE( ID, PK_PSNDOC,PK_ORG,LEAVE_YYYY,LEAVE_MM,PK_TIMEITEM,LEAVE_QTY,START_DATE,END_DATE) values(HR_EMPLOYEE_ENJOY_LEAVE_SEQ.NEXTVAL,TEMP_CUR_RECORD.PK_PSNDOC,TEMP_CUR_RECORD.PK_HRORG,pLEAVE_YEAR,pLEAVE_MONTH,vPK_TIMEITEM,Ceil(vLEAVE_QTY * 1000)/1000,vSTART_DATE,vEND_DATE);
PKG_LEAVE.Update_Leave_By_PK_PSNDOC(TEMP_CUR_RECORD.PK_PSNDOC,TEMP_CUR_RECORD.PK_HRORG,vPK_TIMEITEM,pLEAVE_YEAR,vAnnual_day,vResult);
else
if vAnnual_day>vTotal_Annual_day then --当月出现部分看年假，部分司龄假
--新增加年假
vPK_TIMEITEM :='1002Z710000000021ZLJ'; --当前假期类型 1、年假 2、司龄假 3、上年年假 4、上年司龄假 5、调整年假 6、调整司龄假 7、年假延期 8、司龄假延期
vLEAVE_QTY:=vAnnual_day-vTotal_Annual_day;
insert into HR_EMPLOYEE_ENJOY_LEAVE( ID, PK_PSNDOC,PK_ORG,LEAVE_YYYY,LEAVE_MM,PK_TIMEITEM,LEAVE_QTY,START_DATE,END_DATE) values(HR_EMPLOYEE_ENJOY_LEAVE_SEQ.NEXTVAL,TEMP_CUR_RECORD.PK_PSNDOC,TEMP_CUR_RECORD.PK_HRORG,pLEAVE_YEAR,pLEAVE_MONTH,vPK_TIMEITEM,Ceil(vLEAVE_QTY * 1000)/1000,vSTART_DATE,vEND_DATE);
PKG_LEAVE.Update_Leave_By_PK_PSNDOC(TEMP_CUR_RECORD.PK_PSNDOC,TEMP_CUR_RECORD.PK_HRORG,vPK_TIMEITEM,pLEAVE_YEAR,vAnnual_day,vResult);
--新增加司龄假
vPK_TIMEITEM :='10018G1000000000BM2N'; --当前假期类型 1、年假 2、司龄假 3、上年年假 4、上年司龄假 5、调整年假 6、调整司龄假 7、年假延期 8、司龄假延期
vLEAVE_QTY:=vAverage_monthly_holidays-(vAnnual_day-vTotal_Annual_day);
insert into HR_EMPLOYEE_ENJOY_LEAVE( ID, PK_PSNDOC,PK_ORG,LEAVE_YYYY,LEAVE_MM,PK_TIMEITEM,LEAVE_QTY,START_DATE,END_DATE) values(HR_EMPLOYEE_ENJOY_LEAVE_SEQ.NEXTVAL,TEMP_CUR_RECORD.PK_PSNDOC,TEMP_CUR_RECORD.PK_HRORG,pLEAVE_YEAR,pLEAVE_MONTH,vPK_TIMEITEM,Ceil(vLEAVE_QTY * 1000)/1000,vSTART_DATE,vEND_DATE);
PKG_LEAVE.Update_Leave_By_PK_PSNDOC(TEMP_CUR_RECORD.PK_PSNDOC,TEMP_CUR_RECORD.PK_HRORG,vPK_TIMEITEM,pLEAVE_YEAR,TEMP_CUR_RECORD.working_age_day,vResult);
else --年假已分派完，紧剩司龄假
vPK_TIMEITEM :='10018G1000000000BM2N'; --当前假期类型 1、年假 2、司龄假 3、上年年假 4、上年司龄假 5、调整年假 6、调整司龄假 7、年假延期 8、司龄假延期
vLEAVE_QTY:=vAverage_monthly_holidays;
--新增加司龄假
insert into HR_EMPLOYEE_ENJOY_LEAVE( ID, PK_PSNDOC,PK_ORG,LEAVE_YYYY,LEAVE_MM,PK_TIMEITEM,LEAVE_QTY,START_DATE,END_DATE) values(HR_EMPLOYEE_ENJOY_LEAVE_SEQ.NEXTVAL,TEMP_CUR_RECORD.PK_PSNDOC,TEMP_CUR_RECORD.PK_HRORG,pLEAVE_YEAR,pLEAVE_MONTH,vPK_TIMEITEM,Ceil(vLEAVE_QTY * 1000)/1000,vSTART_DATE,vEND_DATE);
PKG_LEAVE.Update_Leave_By_PK_PSNDOC(TEMP_CUR_RECORD.PK_PSNDOC,TEMP_CUR_RECORD.PK_HRORG,vPK_TIMEITEM,pLEAVE_YEAR,TEMP_CUR_RECORD.working_age_day,vResult);
end if;
end if;
end if;
end if;
end if;
----当前假期类型 1、年假 2、司龄假 3、上年年假 4、上年司龄假 5、调整年假 6、调整司龄假 7、年假延期 8、司龄假延期（注意假期有效期）
/*select pk_psndoc 人员基本信息,
pk_psnorg 人员基本信息,
ce.pk_org 人员组织关系,
org.name 组织,
item.timeitemname 休假类别,
settlementdate 结算日期,
curyear 年度,
curmonth 期间,
lastdayorhour 上期结余,
curdayorhour 享有,
realdayorhour 当前享有, 10天
yidayorhour 已休, 3
freezedayorhour 冻结 3
restdayorhour 剩余

from tbm_leavebalance ce --(假期计算)
inner join tbm_timeitem item
on item.pk_timeitem = ce.pk_timeitem
inner join org_orgs org
on org.pk_org = ce.pk_org */
end if;
end loop;
presult:='Success';
end if;
commit;

end Gen_Employee_Leave;

/*********************************************************************************************************************
NAME: Update_Employee_Leave

DESCRIPTION: 每日定时更新员工年假司龄假

PARAMETERS: 计算假期年份 pLEAVE_MONTH 计算假期月份

Return: Success/Failed

USAGE: PKG_LEAVE.Update_Employee_Leave();

HISOTORY:
DATE NAME DESCRIPTION
2016-1-15 River PROCEDURE CREATED
***********************************************************************************************************************/
PROCEDURE Update_All_Employee_Leave(presult out varchar2) IS
begin

/*
1002Z710000000021ZLJ 年假
10018G1000000000BM37 上年年假
10018G1000000000BM2T 调整年假
10018G1000000000BM2P 年假延期

10018G1000000000BM2N 司龄假
10018G1000000000BM39 上年司龄假
10018G1000000000BM2R 调整司龄假
10018G1000000000BM2V 司龄假延期

10018G1000000000BM2L 补休
10018G1000000000BM33 调整补休
10018G1000000000BM35 补休延期

*/

--年假
--非香港地区
update tbm_leavebalance t set
t.realdayorhour=nvl((select nvl(sum(e.LEAVE_QTY),0)
from HR_EMPLOYEE_ENJOY_LEAVE e
where e.pk_psndoc=t.pk_psndoc
and e.pk_org=t.pk_org and e.start_date and e.PK_TIMEITEM in ('1002Z710000000021ZLJ','10018G1000000000BM2T','10018G1000000000BM2P')
and t.curyear = to_char(e.START_DATE,'YYYY')) ,0)
,
t.restdayorhour=nvl((select nvl(sum(e.LEAVE_QTY),0)
from HR_EMPLOYEE_ENJOY_LEAVE e
where e.pk_psndoc=t.pk_psndoc and e.pk_org=t.pk_org and e.start_date +t.lastdayorhour-t.yidayorhour

where t.pk_psndoc in (select psn.PK_PSNDOC from bd_psndoc psn inner join hi_psnjob job on psn.pk_psndoc=job.pk_psndoc and job.lastflag='Y'and job.ismainjob='Y' where job.begindate is not null) and

t.curyear=to_char(sysdate,'YYYY') and
t.pk_timeitem='1002Z710000000021ZLJ' and t.pk_org not in('00018G1000000000I1A7','00016H10000000000BIO','00016H10000000000BI8','00016H10000000000BI5','00016H10000000000BIC','00016H10000000000BIF','00016H10000000000BII','00016H10000000000BIL');
--香港地区，以0.5为单位显示
update tbm_leavebalance t set
t.realdayorhour=round(nvl((select nvl(sum(e.LEAVE_QTY),0)
from HR_EMPLOYEE_ENJOY_LEAVE e
where e.pk_psndoc=t.pk_psndoc
and e.pk_org=t.pk_org and e.start_date and e.PK_TIMEITEM in ('1002Z710000000021ZLJ','10018G1000000000BM2T','10018G1000000000BM2P')
and t.curyear = to_char(e.START_DATE,'YYYY')) ,0)*2,0)/2
,
t.restdayorhour=round(nvl((select nvl(sum(e.LEAVE_QTY),0)
from HR_EMPLOYEE_ENJOY_LEAVE e
where e.pk_psndoc=t.pk_psndoc and e.pk_org=t.pk_org and e.start_date +t.lastdayorhour-t.yidayorhour

where t.pk_psndoc in (select psn.PK_PSNDOC from bd_psndoc psn inner join hi_psnjob job on psn.pk_psndoc=job.pk_psndoc and job.lastflag='Y'and job.ismainjob='Y' where job.begindate is not null ) and

t.curyear=to_char(sysdate,'YYYY') and
t.pk_timeitem='1002Z710000000021ZLJ' and
t.pk_org in('00018G1000000000I1A7','00016H10000000000BIO','00016H10000000000BI8','00016H10000000000BI5','00016H10000000000BIC','00016H10000000000BIF','00016H10000000000BII','00016H10000000000BIL');

--司龄假
update tbm_leavebalance t set
t.realdayorhour=nvl((select nvl(sum(e.LEAVE_QTY),0)
from HR_EMPLOYEE_ENJOY_LEAVE e
where e.pk_psndoc=t.pk_psndoc and e.pk_org=t.pk_org and e.start_date ,
t.restdayorhour=nvl((select nvl(sum(e.LEAVE_QTY),0)
from HR_EMPLOYEE_ENJOY_LEAVE e
where e.pk_psndoc=t.pk_psndoc and e.pk_org=t.pk_org and e.start_date +t.lastdayorhour-t.yidayorhour
where t.pk_psndoc in (select psn.PK_PSNDOC from bd_psndoc psn inner join hi_psnjob job on psn.pk_psndoc=job.pk_psndoc and job.lastflag='Y'and job.ismainjob='Y' where job.begindate is not null) and
t.curyear=to_char(sysdate,'YYYY') and
t.pk_timeitem='10018G1000000000BM2N';

--补休
/* update tbm_leavebalance t set
t.realdayorhour=(select nvl(sum(e.LEAVE_QTY),0)
from HR_EMPLOYEE_ENJOY_LEAVE e
where e.pk_psndoc=t.pk_psndoc
and e.pk_org=t.pk_org
and e.PK_TIMEITEM in ('10018G1000000000BM2L','10018G1000000000BM33','10018G1000000000BM35')
and t.curyear = to_char(e.START_DATE,'YYYY'))
,
t.restdayorhour=(select nvl(sum(e.LEAVE_QTY),0)
from HR_EMPLOYEE_ENJOY_LEAVE e
where e.pk_psndoc=t.pk_psndoc
and e.pk_org=t.pk_org
and e.PK_TIMEITEM in ('10018G1000000000BM2L','10018G1000000000BM33','10018G1000000000BM35')
and t.curyear = to_char(e.START_DATE,'YYYY'))
+t.lastdayorhour-t.yidayorhour
where t.pk_psndoc in (select psn.PK_PSNDOC from bd_psndoc psn inner join hi_psnjob job on psn.pk_psndoc=job.pk_psndoc and job.lastflag='Y' where job.begindate is not null) and
t.curyear=to_char(sysdate,'YYYY') and
t.pk_timeitem='10018G1000000000BM2L';

/* lastdayorhour 上期结余,
curdayorhour 享有,
realdayorhour 当前享有, 10天
yidayorhour 已休, 3
freezedayorhour 冻结 3
restdayorhour 结余 7-3

restdayorhour 剩余 4
*/

update tbm_leavebalance t set t.lastdayorhour=0,
t.curdayorhour=0,
t.realdayorhour=nvl(( select
sum(h.leave_qty-nvl((select sum(m.COMPENSATION_QTY) from HR_ELEAVE_MAPPING m where m.hr_employee_enjoy_leave_id = h.id),0))
from HR_EMPLOYEE_ENJOY_LEAVE h
where h.pk_psndoc=t.pk_psndoc and h.end_date>sysdate and h.pk_timeitem in ('10018G1000000000BM2L','10018G1000000000BM33','10018G1000000000BM35')
),0)+t.freezedayorhour+t.yidayorhour,
t.restdayorhour=nvl(( select
sum(h.leave_qty-nvl((select sum(m.COMPENSATION_QTY) from HR_ELEAVE_MAPPING m where m.hr_employee_enjoy_leave_id = h.id),0))
from HR_EMPLOYEE_ENJOY_LEAVE h
where h.pk_psndoc=t.pk_psndoc and h.end_date>sysdate and h.pk_timeitem in ('10018G1000000000BM2L','10018G1000000000BM33','10018G1000000000BM35')
),0)+t.freezedayorhour

where t.pk_psndoc in (select psn.PK_PSNDOC from bd_psndoc psn inner join hi_psnjob job on psn.pk_psndoc=job.pk_psndoc and job.lastflag='Y'and job.ismainjob='Y' where job.begindate is not null) and
t.curyear=to_char(sysdate,'YYYY') and
t.pk_timeitem='10018G1000000000BM2L';


commit;
presult:='Success';
end Update_All_Employee_Leave;

/*********************************************************************************************************************
NAME: Update_Leave_By_PK_PSNDOC

DESCRIPTION: 每日员工年假司龄假补休

PARAMETERS: 计算假期年份 pLEAVE_MONTH 计算假期月份

Return: Success/Failed

USAGE: PKG_LEAVE.Update_Leave_By_PK_PSNDOC();

HISOTORY:
DATE NAME DESCRIPTION
2016-1-19 River PROCEDURE CREATED
***********************************************************************************************************************/

PROCEDURE Update_Leave_By_PK_PSNDOC(pPK_PSNDOC CHAR,pPK_ORG char,pPK_Timeitem char,pCuryear char,pCurdayorhour number,presult out varchar2) IS
begin

/*
select pk_psndoc 人员基本信息,
pk_psnorg 人员基本信息,
ce.pk_org 人员组织关系,
org.name 组织,
item.timeitemname 休假类别,
settlementdate 结算日期,
curyear 年度,
curmonth 期间,
lastdayorhour 上期结余,
curdayorhour 享有,
realdayorhour 当前享有, 10天
yidayorhour 已休, 3
freezedayorhour 冻结 3
restdayorhour 剩余

from tbm_leavebalance ce --(假期计算)
inner join tbm_timeitem item
on item.pk_timeitem = ce.pk_timeitem
inner join org_orgs org
on org.pk_org = ce.pk_org

--tbm_leavebalance
select lh.pk_psndoc 员工,
item.timeitemname 假期类型,
lh.approve_state 审批状态,-- 0 审批未通过 -1 自由态 1 审批通过 2 审批进行中 3 提交 ps:除审批通过的单据都为冻结状态
lb.pk_leaveb,
lb.leavebegintime 休假开始时间,
lb.leaveendtime 休假结束时间,
lb.leavehour 休假时长
from tbm_leaveb lb
left join tbm_leaveh lh on lb.pk_leaveh = lh.pk_leaveh
left join tbm_timeitem item on lh.pk_leavetype = item.pk_timeitem
where item.timeitemname in ('事假', '司龄假', '补休')

结余=冻结+可用
上期结余+当前享有=已休+结余
lastdayorhour 上期结余,
realdayorhour 当前享有, 10天
yidayorhour 已休, 3
freezedayorhour 冻结 3
restdayorhour 结余

当前享有=已休+结余-上期结余 *- 冻结
结余=当前享有+上期结余-已休

t.realdayorhour=t.yidayorhour+(select nvl(sum(e.LEAVE_QTY-nvl((select sum(m.compensation_qty) from HR_ELEAVE_MAPPING m where m.hr_employee_enjoy_leave_id=e.id),0)),0)
from HR_EMPLOYEE_ENJOY_LEAVE e
where e.pk_psndoc=t.pk_psndoc and e.PK_TIMEITEM in ('1002Z710000000021ZLJ','10018G1000000000BM2T','10018G1000000000BM2P') and t.curyear = to_char(e.START_DATE,'YYYY')) --若假期跨年会前后2年重复计假t.curyear between to_char(e.START_DATE,'YYYY') and to_char(e.END_DATE,'YYYY'))
-t.lastdayorhour,

t.restdayorhour=(select nvl(sum(e.LEAVE_QTY-nvl((select sum(m.compensation_qty) from HR_ELEAVE_MAPPING m where m.hr_employee_enjoy_leave_id=e.id),0)),0)
from HR_EMPLOYEE_ENJOY_LEAVE e
where e.pk_psndoc=t.pk_psndoc and e.PK_TIMEITEM in ('1002Z710000000021ZLJ','10018G1000000000BM37','10018G1000000000BM2T','10018G1000000000BM2P') and t.curyear = to_char(e.START_DATE,'YYYY')) --若假期跨年会前后2年重复计假t.curyear between to_char(e.START_DATE,'YYYY') and to_char(e.END_DATE,'YYYY'))

*/

presult:='Failed';
if pPK_Timeitem='1002Z710000000021ZLJ' or pPK_Timeitem='10018G1000000000BM37' or pPK_Timeitem='10018G1000000000BM2T' or pPK_Timeitem='10018G1000000000BM2P' then --年假
--判断是否是香港地区
--substr(TEMP_CUR_RECORD.org_code,1,2)='HK'
if pPK_ORG in('00018G1000000000I1A7','00016H10000000000BIO','00016H10000000000BI8','00016H10000000000BI5','00016H10000000000BIC','00016H10000000000BIF','00016H10000000000BII','00016H10000000000BIL') then
--更新香港人员年假，0.5为最小单位
update tbm_leavebalance t set
t.curdayorhour=round(decode(pCurdayorhour,-999,t.curdayorhour,pCurdayorhour)*2,0)/2,
t.realdayorhour=round((select nvl(sum(e.LEAVE_QTY),0)*2
from HR_EMPLOYEE_ENJOY_LEAVE e
where e.pk_psndoc=t.pk_psndoc and e.pk_org=t.pk_org and e.start_date ,

t.restdayorhour=round((select nvl(sum(e.LEAVE_QTY),0)*2
from HR_EMPLOYEE_ENJOY_LEAVE e
where e.pk_psndoc=t.pk_psndoc and e.pk_org=t.pk_org and e.start_date +t.lastdayorhour-t.yidayorhour
where t.pk_psndoc =pPK_PSNDOC and t.pk_org=pPK_ORG and t.curyear=pCuryear and t.pk_timeitem='1002Z710000000021ZLJ';

presult:='Success';
else
--非香港地区年假更新
update tbm_leavebalance t set
t.curdayorhour=decode(pCurdayorhour,-999,t.curdayorhour,pCurdayorhour),
t.realdayorhour=(select nvl(sum(e.LEAVE_QTY),0)
from HR_EMPLOYEE_ENJOY_LEAVE e
where e.pk_psndoc=t.pk_psndoc and e.pk_org=t.pk_org and e.start_date ,

t.restdayorhour=(select nvl(sum(e.LEAVE_QTY),0)
from HR_EMPLOYEE_ENJOY_LEAVE e
where e.pk_psndoc=t.pk_psndoc and e.pk_org=t.pk_org and e.start_date +t.lastdayorhour-t.yidayorhour
where t.pk_psndoc =pPK_PSNDOC and t.pk_org=pPK_ORG and t.curyear=pCuryear and t.pk_timeitem='1002Z710000000021ZLJ';

presult:='Success';

end if;




elsif pPK_Timeitem='10018G1000000000BM2N' or pPK_Timeitem='10018G1000000000BM39' or pPK_Timeitem='10018G1000000000BM2R' or pPK_Timeitem='10018G1000000000BM2V' then --司龄假
update tbm_leavebalance t set
t.curdayorhour=decode(pCurdayorhour,-999,t.curdayorhour,pCurdayorhour),
t.realdayorhour=(select nvl(sum(e.LEAVE_QTY),0)
from HR_EMPLOYEE_ENJOY_LEAVE e
where e.pk_psndoc=t.pk_psndoc and e.pk_org=t.pk_org and e.start_date ,

t.restdayorhour=(select nvl(sum(e.LEAVE_QTY),0)
from HR_EMPLOYEE_ENJOY_LEAVE e
where e.pk_psndoc=t.pk_psndoc and e.pk_org=t.pk_org and e.start_date +t.lastdayorhour-t.yidayorhour
where t.pk_psndoc =pPK_PSNDOC and t.pk_org=pPK_ORG and t.curyear=pCuryear and t.pk_timeitem='10018G1000000000BM2N';

/*update tbm_leavebalance t set
t.curdayorhour=decode(pCurdayorhour,-999,t.curdayorhour,pCurdayorhour),
t.realdayorhour=(select nvl(sum(e.LEAVE_QTY),0)
from HR_EMPLOYEE_ENJOY_LEAVE e
where e.pk_psndoc=t.pk_psndoc and e.pk_org=t.pk_org and e.start_date ,

t.restdayorhour=(select nvl(sum(e.LEAVE_QTY),0)
from HR_EMPLOYEE_ENJOY_LEAVE e
where e.pk_psndoc=t.pk_psndoc and e.pk_org=t.pk_org and e.start_date +t.lastdayorhour-t.yidayorhour
where t.pk_psndoc =pPK_PSNDOC and t.pk_org=pPK_ORG and t.curyear=pCuryear and t.pk_timeitem='1002Z710000000021ZLJ';*/

presult:='Success';

elsif pPK_Timeitem='10018G1000000000BM2L' or pPK_Timeitem='10018G1000000000BM33' or pPK_Timeitem='10018G1000000000BM35' then--补休
/* update tbm_leavebalance t set
t.realdayorhour=(select nvl(sum(e.LEAVE_QTY),0)
from HR_EMPLOYEE_ENJOY_LEAVE e
where e.pk_psndoc=t.pk_psndoc and e.pk_org=t.pk_org and e.PK_TIMEITEM in ('10018G1000000000BM2L','10018G1000000000BM33','10018G1000000000BM35') and t.curyear = to_char(e.START_DATE,'YYYY'))
,

t.restdayorhour=(select nvl(sum(e.LEAVE_QTY),0)
from HR_EMPLOYEE_ENJOY_LEAVE e
where e.pk_psndoc=t.pk_psndoc and e.pk_org=t.pk_org and e.PK_TIMEITEM in ('10018G1000000000BM2L','10018G1000000000BM33','10018G1000000000BM35') and t.curyear = to_char(e.START_DATE,'YYYY'))
+t.lastdayorhour-t.yidayorhour
where t.pk_psndoc =pPK_PSNDOC and t.pk_org=pPK_ORG and t.curyear=pCuryear and t.pk_timeitem='10018G1000000000BM2L';*/

/* lastdayorhour 上期结余,
curdayorhour 享有,
realdayorhour 当前享有, 10天
yidayorhour 已休, 3
freezedayorhour 冻结 3
restdayorhour 剩余 7*/

update tbm_leavebalance t set
t.lastdayorhour=0,
t.curdayorhour=0,
t.realdayorhour=nvl(( select
sum(h.leave_qty-nvl((select sum(m.COMPENSATION_QTY) from HR_ELEAVE_MAPPING m where m.hr_employee_enjoy_leave_id = h.id),0))
from HR_EMPLOYEE_ENJOY_LEAVE h
where h.pk_psndoc=t.pk_psndoc and h.end_date>sysdate and h.pk_timeitem in ('10018G1000000000BM2L','10018G1000000000BM33','10018G1000000000BM35')
),0)+t.freezedayorhour+t.yidayorhour,
t.restdayorhour=nvl(( select
sum(h.leave_qty-nvl((select sum(m.COMPENSATION_QTY) from HR_ELEAVE_MAPPING m where m.hr_employee_enjoy_leave_id = h.id),0))
from HR_EMPLOYEE_ENJOY_LEAVE h
where h.pk_psndoc=t.pk_psndoc and h.end_date>sysdate and h.pk_timeitem in ('10018G1000000000BM2L','10018G1000000000BM33','10018G1000000000BM35')
),0)+t.freezedayorhour
where t.pk_psndoc =pPK_PSNDOC and t.pk_org=pPK_ORG and t.curyear=pCuryear and t.pk_timeitem='10018G1000000000BM2L';

presult:='Success';

end if;

end Update_Leave_By_PK_PSNDOC;

/*********************************************************************************************************************
NAME: Insert_Leave_Mapping

DESCRIPTION: 假期享有与休假抵扣

PARAMETERS: pk_leaveb休假ID

Return: Success/Failed

USAGE: PKG_LEAVE.Insert_Leave_Mapping();

HISOTORY:
DATE NAME DESCRIPTION
2016-1-19 River PROCEDURE CREATED
-------------------------------------------------------------------------------
-- Create table
drop table HR_ELEAVE_MAPPING;
create table HR_ELEAVE_MAPPING
(
ID NUMBER not null,
HR_EMPLOYEE_ENJOY_LEAVE_ID NUMBER, --享有假期ID
pk_leaveb CHAR(20) not null, --休假ID
COMPENSATION_QTY NUMBER, --抵扣享有假期数量，假期单位与对应的享有假期ID一样
CREATE_DATE DATE default sysdate
);
-- Create/Recreate primary, unique and foreign key constraints
alter table HR_ELEAVE_MAPPING add constraint HR_ELEAVE_MAPPING_PK primary key (ID);
alter table HR_ELEAVE_MAPPING add constraint HR_ELEAVE_MAPPING_FK1 foreign key (pk_leaveb) references tbm_leaveb (pk_leaveb);
alter table HR_ELEAVE_MAPPING add constraint HR_ELEAVE_MAPPING_FK2 foreign key (HR_EMPLOYEE_ENJOY_LEAVE_ID) references HR_EMPLOYEE_ENJOY_LEAVE (ID);

drop sequence HR_ELEAVE_MAPPING_SEQ;

create sequence HR_ELEAVE_MAPPING_SEQ
minvalue 1
maxvalue 999999999999
start with 1
increment by 1
cache 30;
-------------------------------------------------------------------------------

--tbm_leavebalance 冻结+可用=结余；当前享有=实际享有；上期结余+调整+当前享有=结余

select lh.pk_psndoc 员工,
item.timeitemname 假期类型,
lh.approve_state 审批状态,-- 0 审批未通过 -1 自由态 1 审批通过 2 审批进行中 3 提交 ps:除审批通过的单据都为冻结状态
lb.leavebegintime 休假开始时间,
lb.leaveendtime 休假结束时间,
lb.leavehour 休假时长
from tbm_leaveb lb
left join tbm_leaveh lh on lb.pk_leaveh = lh.pk_leaveh
left join tbm_timeitem item on lh.pk_leavetype = item.pk_timeitem
where item.timeitemname in ('事假', '司龄假', '补休')

1002Z710000000021ZLJ 年假
10018G1000000000BM37 上年年假
10018G1000000000BM2T 调整年假
10018G1000000000BM2P 年假延期

10018G1000000000BM2N 司龄假
10018G1000000000BM39 上年司龄假
10018G1000000000BM2R 调整司龄假
10018G1000000000BM2V 司龄假延期

10018G1000000000BM2L 补休
10018G1000000000BM33 调整补休
10018G1000000000BM35 补休延期

tbm_leavereg

***********************************************************************************************************************/

PROCEDURE Insert_Leave_Mapping_OT(ppk_leaveb CHAR,result out varchar2)
AS
CURSOR TEMP_CUR IS
select
tmp.ENJOY_LEAVE_ID,
tmp.pk_org,
(tmp.leave_qty-tmp.Use_QTY) as leave_balance,
tmp.leave_unit
from (
select
t.id as ENJOY_LEAVE_ID,
t.pk_psndoc,
t.pk_org,
t.end_date,
nvl((select sum(m.COMPENSATION_QTY) from HR_ELEAVE_MAPPING m where m.hr_employee_enjoy_leave_id = t.id and m.pk_leaveb<>ppk_leaveb),0) as Use_QTY,
t.leave_qty,
t.leave_unit
from HR_EMPLOYEE_ENJOY_LEAVE t
inner join tbm_leaveh h on h.pk_psndoc=t.pk_psndoc and h.pk_org=t.pk_org --and h.pk_leavetype=t.pk_timeitem
inner join tbm_leaveb l on l.pk_leaveh = h.pk_leaveh
where
l.pk_leaveb=ppk_leaveb and
t.pk_timeitem in ('10018G1000000000BM2L','10018G1000000000BM33','10018G1000000000BM35') and
h.pk_leavetype in ('10018G1000000000BM2L','10018G1000000000BM33','10018G1000000000BM35') and
to_date(l.leaveenddate,'YYYY-MM-DD') between t.start_date and t.end_date
)tmp where tmp.leave_qty>tmp.Use_QTY
order by tmp.end_date;

vUse_Qty number;
vTotal_Enjoy_Qty number; --可休假
--vUse_Unit number; --1、天 2、小时
vResult varchar2(20);
vPK_PSNDOC CHAR(20);
vpk_org CHAR(20);
vCuryear CHAR(4);
vRecord_QTY number;

begin
result:='Failed';
select count(1) into vRecord_QTY from tbm_leaveb a where a.pk_leaveb=ppk_leaveb;

if vRecord_QTY>0 then--是否存在请假记录
--计算可休假
select
sum(tmp.leave_qty-tmp.Use_QTY) into vTotal_Enjoy_Qty
from (
select
nvl((select sum(m.COMPENSATION_QTY) from HR_ELEAVE_MAPPING m where m.hr_employee_enjoy_leave_id = t.id and m.pk_leaveb<>ppk_leaveb),0) as Use_QTY,
t.leave_qty
from HR_EMPLOYEE_ENJOY_LEAVE t
inner join tbm_leaveh h on h.pk_psndoc=t.pk_psndoc and h.pk_org=t.pk_org --and h.pk_leavetype=t.pk_timeitem
inner join tbm_leaveb l on l.pk_leaveh = h.pk_leaveh
where
l.pk_leaveb=ppk_leaveb and
t.pk_timeitem in ('10018G1000000000BM2L','10018G1000000000BM33','10018G1000000000BM35') and
h.pk_leavetype in ('10018G1000000000BM2L','10018G1000000000BM33','10018G1000000000BM35') and
to_date(l.leaveenddate,'YYYY-MM-DD') between t.start_date and t.end_date
)tmp where tmp.leave_qty>tmp.Use_QTY;


--计算休假
select h.pk_psndoc,h.pk_org,
substr(l.leaveenddate,1,4),
(l.leavehour+
nvl((select sum(o.differencehour)
from tbm_leavereg r
inner join tbm_leaveoff o on o.pk_leavereg=r.pk_leavereg
where r.pk_billsourceb=l.pk_leaveb),0)
)
into vPK_PSNDOC,vpk_org,vCuryear,vUse_Qty
from tbm_leaveb l
inner join tbm_leaveh h on h.pk_leaveh = l.pk_leaveh
where l.pk_leaveb=ppk_leaveb;


if vTotal_Enjoy_Qty>=vUse_Qty then --有足够假期抵扣
delete from HR_ELEAVE_MAPPING t where t.pk_leaveb=ppk_leaveb;

For TEMP_CUR_RECORD in TEMP_CUR loop
if TEMP_CUR_RECORD.leave_unit=1 then --天数作单位
if TEMP_CUR_RECORD.leave_balance>=vUse_Qty then
insert into HR_ELEAVE_MAPPING(ID,HR_EMPLOYEE_ENJOY_LEAVE_ID,pk_leaveb,COMPENSATION_QTY) VALUES(HR_ELEAVE_MAPPING_SEQ.NEXTVAL,TEMP_CUR_RECORD.ENJOY_LEAVE_ID,ppk_leaveb,vUse_Qty);

exit;
else
insert into HR_ELEAVE_MAPPING(ID,HR_EMPLOYEE_ENJOY_LEAVE_ID,pk_leaveb,COMPENSATION_QTY) VALUES(HR_ELEAVE_MAPPING_SEQ.NEXTVAL,TEMP_CUR_RECORD.ENJOY_LEAVE_ID,ppk_leaveb,TEMP_CUR_RECORD.leave_balance);

vUse_Qty:=vUse_Qty-TEMP_CUR_RECORD.leave_balance;

end if;

else --小时作单位
if TEMP_CUR_RECORD.leave_balance>=vUse_Qty then
insert into HR_ELEAVE_MAPPING(ID,HR_EMPLOYEE_ENJOY_LEAVE_ID,pk_leaveb,COMPENSATION_QTY) VALUES(HR_ELEAVE_MAPPING_SEQ.NEXTVAL,TEMP_CUR_RECORD.ENJOY_LEAVE_ID,ppk_leaveb,vUse_Qty);

exit;
else
insert into HR_ELEAVE_MAPPING(ID,HR_EMPLOYEE_ENJOY_LEAVE_ID,pk_leaveb,COMPENSATION_QTY) VALUES(HR_ELEAVE_MAPPING_SEQ.NEXTVAL,TEMP_CUR_RECORD.ENJOY_LEAVE_ID,ppk_leaveb,TEMP_CUR_RECORD.leave_balance);

vUse_Qty:=vUse_Qty-TEMP_CUR_RECORD.leave_balance;

end if;

end if;

end loop;

--更新员工假期
PKG_LEAVE.Update_Leave_By_PK_PSNDOC(vPK_PSNDOC,vpk_org,'10018G1000000000BM2L',vCuryear,-999,vResult);

commit;
result:='Success';
end if;

end if;

end Insert_Leave_Mapping_OT;

/*********************************************************************************************************************
NAME: Insert_Leave_Mapping_AL

alter table HR_EMPLOYEE_ENJOY_LEAVE add constraint HR_EMPLOYEE_ENJOY_LEAVE_UK unique (PK_PSNDOC, PK_TIMEITEM, START_DATE);

DESCRIPTION: 假期享有与年假抵扣 annual leave

PARAMETERS: pk_leaveb年假ID

Return: Success/Failed

USAGE: PKG_LEAVE.Insert_Leave_Mapping_AL();

1002Z710000000021ZLJ 年假
10018G1000000000BM37 上年年假
10018G1000000000BM2T 调整年假
10018G1000000000BM2P 年假延期

10018G1000000000BM2N 司龄假
10018G1000000000BM39 上年司龄假
10018G1000000000BM2R 调整司龄假
10018G1000000000BM2V 司龄假延期

10018G1000000000BM2L 补休
10018G1000000000BM33 调整补休
10018G1000000000BM35 补休延期

HISOTORY:
DATE NAME DESCRIPTION
2016-1-19 River PROCEDURE CREATED
***********************************************************************************************************************/

PROCEDURE Insert_Leave_Mapping_AL(ppk_leaveb CHAR,result out varchar2)
AS
CURSOR TEMP_CUR IS
--1.查询数据查询未抵扣记录
select
tmp.ENJOY_LEAVE_ID,
tmp.pk_org,
(tmp.leave_qty-tmp.Use_QTY) as leave_balance,--剩余未抵扣的假期
tmp.leave_unit
from (
select
t.id as ENJOY_LEAVE_ID,
t.pk_psndoc,
t.pk_org,
t.end_date,
--排除当前单据的数据，考虑修改的情况
nvl((select sum(m.COMPENSATION_QTY) from HR_ELEAVE_MAPPING m where m.hr_employee_enjoy_leave_id = t.id and m.pk_leaveb<>ppk_leaveb),0) as Use_QTY,
t.leave_qty,
t.leave_unit
from HR_EMPLOYEE_ENJOY_LEAVE t
inner join tbm_leaveh h on h.pk_psndoc=t.pk_psndoc and h.pk_org=t.pk_org --and h.pk_leavetype=t.pk_timeitem
inner join tbm_leaveb l on l.pk_leaveh = h.pk_leaveh
where
l.pk_leaveb=ppk_leaveb and
t.pk_timeitem in ('1002Z710000000021ZLJ','10018G1000000000BM37','10018G1000000000BM2T','10018G1000000000BM2P') and
h.pk_leavetype in ('1002Z710000000021ZLJ','10018G1000000000BM37','10018G1000000000BM2T','10018G1000000000BM2P') and
(to_date(l.leaveenddate,'YYYY-MM-DD') between t.start_date and t.end_date or sysdate between t.start_date and t.end_date)
)tmp where tmp.leave_qty>tmp.Use_QTY
order by tmp.end_date;

vUse_Qty number;
vTotal_Enjoy_Qty number; --可休假
vRestdayorhour number; --TW 可预支假
vHR_EMPLOYEE_ENJOY_LEAVE_ID number; --TW 可预支假ID
--vUse_Unit number; --1、天 2、小时

vPK_PSNDOC CHAR(20);
vorg_code CHAR(20);--isTW?
vpk_org CHAR(20);
vResult varchar2(20);
vCuryear CHAR(4);
vTW_Record_QTY number;
vRecord_QTY number;

begin
result:='Failed';
--是否为TW ，可预支假期给组织赋值
select substr(org.code,1,2) into vorg_code
from tbm_leaveh h
inner join tbm_leaveb l on l.pk_leaveh = h.pk_leaveh
inner join org_orgs org on h.pk_org = org.pk_org --?waite
where l.pk_leaveb=ppk_leaveb;


if vorg_code='TA'or vorg_code='HK' then --TW 可预支假，
--计算可预支年假本年应有+上年-已休-冻结+本单据的数据
select t.curdayorhour+t.lastdayorhour-t.yidayorhour-t.freezedayorhour+nvl((select leavehour from tbm_leaveb m where m.pk_leaveb=ppk_leaveb),0)
into vRestdayorhour
from tbm_leaveh h
inner join tbm_leaveb l on l.pk_leaveh = h.pk_leaveh
inner join tbm_leavebalance t on t.pk_psndoc=h.pk_psndoc and t.pk_org=h.pk_org
where l.pk_leaveb=ppk_leaveb and t.pk_timeitem='1002Z710000000021ZLJ' and t.curyear=to_char(sysdate,'YYYY');


--剩余假期抵扣数
select count(1) into vTW_Record_QTY
from (
select
nvl((select sum(m.COMPENSATION_QTY) from HR_ELEAVE_MAPPING m where m.hr_employee_enjoy_leave_id = t.id and m.pk_leaveb<>ppk_leaveb),0) as Use_QTY,
t.leave_qty
from HR_EMPLOYEE_ENJOY_LEAVE t
inner join tbm_leaveh h on h.pk_psndoc=t.pk_psndoc and h.pk_org=t.pk_org --and h.pk_leavetype=t.pk_timeitem
inner join tbm_leaveb l on l.pk_leaveh = h.pk_leaveh
where
l.pk_leaveb=ppk_leaveb and
t.pk_timeitem in ('1002Z710000000021ZLJ','10018G1000000000BM37','10018G1000000000BM2T','10018G1000000000BM2P') and
h.pk_leavetype in ('1002Z710000000021ZLJ','10018G1000000000BM37','10018G1000000000BM2T','10018G1000000000BM2P') and
(to_date(l.leaveenddate,'YYYY-MM-DD') between t.start_date and t.end_date or sysdate between t.start_date and t.end_date)
)tmp where tmp.leave_qty>tmp.Use_QTY;

end if;

select count(1) into vRecord_QTY from tbm_leaveb a where a.pk_leaveb=ppk_leaveb;

if vRecord_QTY>0 then--是否存在请假记录
--计算可休假
select
sum(tmp.leave_qty-tmp.Use_QTY) into vTotal_Enjoy_Qty
from (
select
t.id as ENJOY_LEAVE_ID,
t.pk_psndoc,
t.pk_org,
t.end_date,
nvl((select sum(m.COMPENSATION_QTY) from HR_ELEAVE_MAPPING m where m.hr_employee_enjoy_leave_id = t.id and m.pk_leaveb<>ppk_leaveb),0) as Use_QTY,
t.leave_qty,
t.leave_unit
from HR_EMPLOYEE_ENJOY_LEAVE t
inner join tbm_leaveh h on h.pk_psndoc=t.pk_psndoc and h.pk_org=t.pk_org --and h.pk_leavetype=t.pk_timeitem
inner join tbm_leaveb l on l.pk_leaveh = h.pk_leaveh
where
l.pk_leaveb=ppk_leaveb and
t.pk_timeitem in ('1002Z710000000021ZLJ','10018G1000000000BM37','10018G1000000000BM2T','10018G1000000000BM2P') and
h.pk_leavetype in ('1002Z710000000021ZLJ','10018G1000000000BM37','10018G1000000000BM2T','10018G1000000000BM2P') and
(to_date(l.leaveenddate,'YYYY-MM-DD') between t.start_date and t.end_date or sysdate between t.start_date and t.end_date)
)tmp where tmp.leave_qty>tmp.Use_QTY;


--计算休假
select h.pk_psndoc,h.pk_org,
substr(l.leaveenddate,1,4),
(l.leavehour+
nvl((select sum(o.differencehour) --differencehour 差异时长负数
from tbm_leavereg r
inner join tbm_leaveoff o on o.pk_leavereg=r.pk_leavereg
where r.pk_billsourceb=l.pk_leaveb),0)
)
into vPK_PSNDOC,vpk_org,vCuryear,vUse_Qty
from tbm_leaveb l
inner join tbm_leaveh h on h.pk_leaveh = l.pk_leaveh
where l.pk_leaveb=ppk_leaveb;


if vTotal_Enjoy_Qty>=vUse_Qty or (vRestdayorhour>=vUse_Qty and vorg_code='TA') OR (vRestdayorhour>=vUse_Qty and vorg_code='HK') then --TW 可预支假，但不能超出， PRC HK 检测是否有足够假期抵扣
delete from HR_ELEAVE_MAPPING t where t.pk_leaveb=ppk_leaveb;

/*if (vTW_Record_QTY=0 and vorg_code='TA') OR (vTW_Record_QTY=0 and vorg_code='HK') then --TW 预支假期，没抵扣判断无效
select HR_EMPLOYEE_ENJOY_LEAVE_SEQ.NEXTVAL into vHR_EMPLOYEE_ENJOY_LEAVE_ID from dual;

insert into HR_EMPLOYEE_ENJOY_LEAVE( ID, PK_PSNDOC,PK_ORG,LEAVE_YYYY,LEAVE_MM,PK_TIMEITEM,LEAVE_QTY,START_DATE,END_DATE) values(vHR_EMPLOYEE_ENJOY_LEAVE_ID,vPK_PSNDOC,vpk_org,vCuryear,to_char(sysdate,'MM'),'1002Z710000000021ZLJ',0,sysdate,add_months(sysdate,1));

insert into HR_ELEAVE_MAPPING(ID,HR_EMPLOYEE_ENJOY_LEAVE_ID,pk_leaveb,COMPENSATION_QTY) VALUES(HR_ELEAVE_MAPPING_SEQ.NEXTVAL,vHR_EMPLOYEE_ENJOY_LEAVE_ID,ppk_leaveb,vUse_Qty);

else*/
For TEMP_CUR_RECORD in TEMP_CUR loop
--小时作单位
if TEMP_CUR_RECORD.leave_balance>=vUse_Qty then
insert into HR_ELEAVE_MAPPING(ID,HR_EMPLOYEE_ENJOY_LEAVE_ID,pk_leaveb,COMPENSATION_QTY) VALUES(HR_ELEAVE_MAPPING_SEQ.NEXTVAL,TEMP_CUR_RECORD.ENJOY_LEAVE_ID,ppk_leaveb,vUse_Qty);

exit;
else
insert into HR_ELEAVE_MAPPING(ID,HR_EMPLOYEE_ENJOY_LEAVE_ID,pk_leaveb,COMPENSATION_QTY) VALUES(HR_ELEAVE_MAPPING_SEQ.NEXTVAL,TEMP_CUR_RECORD.ENJOY_LEAVE_ID,ppk_leaveb,TEMP_CUR_RECORD.leave_balance);

vUse_Qty:=vUse_Qty-TEMP_CUR_RECORD.leave_balance;

end if;

end loop;

--end if;

--更新员工假期
PKG_LEAVE.Update_Leave_By_PK_PSNDOC(vPK_PSNDOC,vpk_org,'1002Z710000000021ZLJ',vCuryear,-999,vResult);

commit;
result:='Success';
end if;

end if;

end Insert_Leave_Mapping_AL;

/*********************************************************************************************************************
NAME: Insert_Leave_Mapping_WL

DESCRIPTION: 假期享有与司龄假抵扣 annual leave

PARAMETERS: pk_leaveb司龄假ID

Return: Success/Failed

USAGE: PKG_LEAVE.Insert_Leave_Mapping_WL();

1002Z710000000021ZLJ 年假
10018G1000000000BM37 上年年假
10018G1000000000BM2T 调整年假
10018G1000000000BM2P 年假延期

10018G1000000000BM2N 司龄假
10018G1000000000BM39 上年司龄假
10018G1000000000BM2R 调整司龄假
10018G1000000000BM2V 司龄假延期

10018G1000000000BM2L 补休
10018G1000000000BM33 调整补休
10018G1000000000BM35 补休延期

HISOTORY:
DATE NAME DESCRIPTION
2016-1-19 River PROCEDURE CREATED
***********************************************************************************************************************/

PROCEDURE Insert_Leave_Mapping_WL(ppk_leaveb CHAR,result out varchar2)
AS
CURSOR TEMP_CUR IS
select
tmp.ENJOY_LEAVE_ID,
tmp.pk_org,
(tmp.leave_qty-tmp.Use_QTY) as leave_balance,
tmp.leave_unit
from (
select
t.id as ENJOY_LEAVE_ID,
t.pk_psndoc,
t.pk_org,
t.end_date,
nvl((select sum(m.COMPENSATION_QTY) from HR_ELEAVE_MAPPING m where m.hr_employee_enjoy_leave_id = t.id and m.pk_leaveb<>ppk_leaveb),0) as Use_QTY,
t.leave_qty,
t.leave_unit
from HR_EMPLOYEE_ENJOY_LEAVE t
inner join tbm_leaveh h on h.pk_psndoc=t.pk_psndoc and h.pk_org=t.pk_org --and h.pk_leavetype=t.pk_timeitem
inner join tbm_leaveb l on l.pk_leaveh = h.pk_leaveh
where
l.pk_leaveb=ppk_leaveb and
t.pk_timeitem in ('10018G1000000000BM2N','10018G1000000000BM39','10018G1000000000BM2R','10018G1000000000BM2V') and
h.pk_leavetype in ('10018G1000000000BM2N','10018G1000000000BM39','10018G1000000000BM2R','10018G1000000000BM2V') and
(to_date(l.leaveenddate,'YYYY-MM-DD') between t.start_date and t.end_date or sysdate between t.start_date and t.end_date)
)tmp where tmp.leave_qty>tmp.Use_QTY
order by tmp.end_date;

vUse_Qty number;
vTotal_Enjoy_Qty number; --可休假
--vUse_Unit number; --1、天 2、小时

vPK_PSNDOC CHAR(20);
vpk_org CHAR(20);
vResult varchar2(20);
vCuryear CHAR(4);
vRecord_QTY number;

begin
result:='Failed';
select count(1) into vRecord_QTY from tbm_leaveb a where a.pk_leaveb=ppk_leaveb;
if vRecord_QTY>0 then --是否存在请假记录
--计算可休假
select
sum(tmp.leave_qty-tmp.Use_QTY) into vTotal_Enjoy_Qty
from (
select
nvl((select sum(m.COMPENSATION_QTY) from HR_ELEAVE_MAPPING m where m.hr_employee_enjoy_leave_id = t.id and m.pk_leaveb<>ppk_leaveb),0) as Use_QTY,
t.leave_qty
from HR_EMPLOYEE_ENJOY_LEAVE t
inner join tbm_leaveh h on h.pk_psndoc=t.pk_psndoc and h.pk_org=t.pk_org --and h.pk_leavetype=t.pk_timeitem
inner join tbm_leaveb l on l.pk_leaveh = h.pk_leaveh
where
l.pk_leaveb=ppk_leaveb and
t.pk_timeitem in ('10018G1000000000BM2N','10018G1000000000BM39','10018G1000000000BM2R','10018G1000000000BM2V') and
h.pk_leavetype in ('10018G1000000000BM2N','10018G1000000000BM39','10018G1000000000BM2R','10018G1000000000BM2V') and
(to_date(l.leaveenddate,'YYYY-MM-DD') between t.start_date and t.end_date or sysdate between t.start_date and t.end_date)
)tmp where tmp.leave_qty>tmp.Use_QTY;

--计算休假
select h.pk_psndoc,h.pk_org,
substr(l.leaveenddate,1,4),
(l.leavehour+
nvl((select sum(o.differencehour)
from tbm_leavereg r
inner join tbm_leaveoff o on o.pk_leavereg=r.pk_leavereg
where r.pk_billsourceb=l.pk_leaveb),0)
)
into vPK_PSNDOC,vpk_org,vCuryear,vUse_Qty
from tbm_leaveb l
inner join tbm_leaveh h on h.pk_leaveh = l.pk_leaveh
where l.pk_leaveb=ppk_leaveb;


if vTotal_Enjoy_Qty>=vUse_Qty then --有足够假期抵扣
delete from HR_ELEAVE_MAPPING t where t.pk_leaveb=ppk_leaveb;

For TEMP_CUR_RECORD in TEMP_CUR loop
if TEMP_CUR_RECORD.leave_unit=1 then --天数作单位
if TEMP_CUR_RECORD.leave_balance>=vUse_Qty then
insert into HR_ELEAVE_MAPPING(ID,HR_EMPLOYEE_ENJOY_LEAVE_ID,pk_leaveb,COMPENSATION_QTY) VALUES(HR_ELEAVE_MAPPING_SEQ.NEXTVAL,TEMP_CUR_RECORD.ENJOY_LEAVE_ID,ppk_leaveb,vUse_Qty);

exit;
else
insert into HR_ELEAVE_MAPPING(ID,HR_EMPLOYEE_ENJOY_LEAVE_ID,pk_leaveb,COMPENSATION_QTY) VALUES(HR_ELEAVE_MAPPING_SEQ.NEXTVAL,TEMP_CUR_RECORD.ENJOY_LEAVE_ID,ppk_leaveb,TEMP_CUR_RECORD.leave_balance);

vUse_Qty:=vUse_Qty-TEMP_CUR_RECORD.leave_balance;

end if;

else --小时作单位
if TEMP_CUR_RECORD.leave_balance>=vUse_Qty then
insert into HR_ELEAVE_MAPPING(ID,HR_EMPLOYEE_ENJOY_LEAVE_ID,pk_leaveb,COMPENSATION_QTY) VALUES(HR_ELEAVE_MAPPING_SEQ.NEXTVAL,TEMP_CUR_RECORD.ENJOY_LEAVE_ID,ppk_leaveb,vUse_Qty);

exit;
else
insert into HR_ELEAVE_MAPPING(ID,HR_EMPLOYEE_ENJOY_LEAVE_ID,pk_leaveb,COMPENSATION_QTY) VALUES(HR_ELEAVE_MAPPING_SEQ.NEXTVAL,TEMP_CUR_RECORD.ENJOY_LEAVE_ID,ppk_leaveb,TEMP_CUR_RECORD.leave_balance);

vUse_Qty:=vUse_Qty-TEMP_CUR_RECORD.leave_balance;

end if;

end if;

end loop;

--更新员工假期
PKG_LEAVE.Update_Leave_By_PK_PSNDOC(vPK_PSNDOC,vpk_org,'10018G1000000000BM2N',vCuryear,-999,vResult);
commit;
result:='Success';
end if;

end if;

end Insert_Leave_Mapping_WL;

/*******************************************************************************************************************
NAME: Insert_Leave_Mapping

DESCRIPTION: 假期享有与休假抵扣

PARAMETERS: pPK_PSNDOC
pPK_TIMEITEM:
pLeave_StartDate

RETURN: Success/Failed

USAGE: PKG_LEAVE.Insert_Leave_Mapping(pPK_PSNDOC IN Char,pPK_TIMEITEM IN Char,pLeave_StartDate IN Char);

HISOTORY:
DATE NAME DESCRIPTION
2016-02-02 RIVER HE FUNCTION CREATED

********************************************************************************************************************/

FUNCTION Insert_Leave_Mapping (pLeave_No IN varchar2) RETURN varchar2
AS
CURSOR TEMP_CUR IS
select
h.pk_leavetype,
l.pk_leaveb
from tbm_leaveh h
inner join tbm_leaveb l on l.pk_leaveh = h.pk_leaveh
where h.bill_code=pLeave_No;

-- where h.pk_psndoc=pPK_PSNDOC and h.pk_leavetype=pPK_TIMEITEM and to_char(l.leavebegindate,'YYYYMMDD')=pLeave_StartDate;

vResult varchar2(50);

begin
vResult:='Success';
For TEMP_CUR_RECORD in TEMP_CUR loop
if TEMP_CUR_RECORD.pk_leavetype='1002Z710000000021ZLJ' or TEMP_CUR_RECORD.pk_leavetype='10018G1000000000BM37' or TEMP_CUR_RECORD.pk_leavetype='10018G1000000000BM2T' or TEMP_CUR_RECORD.pk_leavetype='10018G1000000000BM2P' then --年假
PKG_LEAVE.Insert_Leave_Mapping_AL(TEMP_CUR_RECORD.pk_leaveb,vResult);
elsif TEMP_CUR_RECORD.pk_leavetype='10018G1000000000BM2N' or TEMP_CUR_RECORD.pk_leavetype='10018G1000000000BM39' or TEMP_CUR_RECORD.pk_leavetype='10018G1000000000BM2R' or TEMP_CUR_RECORD.pk_leavetype='10018G1000000000BM2V' then --司龄假
PKG_LEAVE.Insert_Leave_Mapping_WL(TEMP_CUR_RECORD.pk_leaveb,vResult);

elsif TEMP_CUR_RECORD.pk_leavetype='10018G1000000000BM2L' or TEMP_CUR_RECORD.pk_leavetype='10018G1000000000BM33' or TEMP_CUR_RECORD.pk_leavetype='10018G1000000000BM35' then --补休
PKG_LEAVE.Insert_Leave_Mapping_OT(TEMP_CUR_RECORD.pk_leaveb,vResult);

end if;

vResult:=vResult;
end loop;

return vResult;
end Insert_Leave_Mapping;

/*******************************************************************************************************************
NAME: Insert_Leave_Mapping

DESCRIPTION: 假期享有与休假抵扣

PARAMETERS: pPK_PSNDOC
pPK_TIMEITEM:
pLeave_StartDate YYYYMMDD

RETURN: Success/Failed

USAGE: PKG_LEAVE.pro_Insert_Leave_Mapping(pLeave_No);

HISOTORY:
DATE NAME DESCRIPTION
2016-02-05 RIVER HE FUNCTION CREATED
********************************************************************************************************************/

PROCEDURE pro_Insert_Leave_Mapping(pLeave_No varchar2,pResult out varchar2)
AS
CURSOR TEMP_CUR IS
select
h.pk_leavetype,
l.pk_leaveb
from tbm_leaveh h
inner join tbm_leaveb l on l.pk_leaveh = h.pk_leaveh
where h.bill_code=pLeave_No;

-- where h.pk_psndoc=pPK_PSNDOC and h.pk_leavetype=pPK_TIMEITEM and to_char(l.leavebegindate,'YYYYMMDD')=pLeave_StartDate;

begin
pResult:='Success';
For TEMP_CUR_RECORD in TEMP_CUR loop
if TEMP_CUR_RECORD.pk_leavetype='1002Z710000000021ZLJ' or TEMP_CUR_RECORD.pk_leavetype='10018G1000000000BM37' or TEMP_CUR_RECORD.pk_leavetype='10018G1000000000BM2T' or TEMP_CUR_RECORD.pk_leavetype='10018G1000000000BM2P' then --年假
PKG_LEAVE.Insert_Leave_Mapping_AL(TEMP_CUR_RECORD.pk_leaveb,pResult);
elsif TEMP_CUR_RECORD.pk_leavetype='10018G1000000000BM2N' or TEMP_CUR_RECORD.pk_leavetype='10018G1000000000BM39' or TEMP_CUR_RECORD.pk_leavetype='10018G1000000000BM2R' or TEMP_CUR_RECORD.pk_leavetype='10018G1000000000BM2V' then --司龄假
PKG_LEAVE.Insert_Leave_Mapping_WL(TEMP_CUR_RECORD.pk_leaveb,pResult);

elsif TEMP_CUR_RECORD.pk_leavetype='10018G1000000000BM2L' or TEMP_CUR_RECORD.pk_leavetype='10018G1000000000BM33' or TEMP_CUR_RECORD.pk_leavetype='10018G1000000000BM35' then --补休
PKG_LEAVE.Insert_Leave_Mapping_OT(TEMP_CUR_RECORD.pk_leaveb,pResult);

end if;

end loop;

end pro_Insert_Leave_Mapping;

/* 需要使用
CREATE OR REPLACE TRIGGER TRI_TBM_LEAVEB_D BEFORE DELETE ON TBM_LEAVEB FOR EACH ROW
declare
vPK_LEAVETYPE char(20);
vPK_PSNDOC char(20);
vCuryear char(4);
vResult varchar2(50);
BEGIN

select h.pk_leavetype,h.pk_psnjob,h.leaveyear into vPK_LEAVETYPE,vPK_PSNDOC,vCuryear from tbm_leaveh h where h.pk_leaveh=:OLD.pk_leaveh;

delete from HR_ELEAVE_MAPPING H WHERE H.PK_LEAVEB =:OLD.pk_leaveb;
PKG_LEAVE.Update_Leave_By_PK_PSNDOC(vPK_PSNDOC,vPK_LEAVETYPE,vCuryear,-999,vResult);

DBMS_OUTPUT.PUT_LINE('成功更新员工假期！');

END TRI_TBM_LEAVEB_D;

以下不用
-------------------------------
CREATE OR REPLACE TRIGGER TRI_TBM_LEAVEB AFTER INSERT OR UPDATE OR DELETE ON TBM_LEAVEB FOR EACH ROW
declare
vPK_LEAVETYPE char(20);
vresult varchar(30);
vPK_PSNDOC char(20);
vCuryear char(4);
BEGIN

--10018G1000000000BM2N 司龄假
--10018G1000000000BM39 上年司龄假
--10018G1000000000BM2R 调整司龄假
--10018G1000000000BM2V 司龄假延期

--1002Z710000000021ZLJ 年假
--10018G1000000000BM37 上年年假
--10018G1000000000BM2T 调整年假
--10018G1000000000BM2P 年假延期

--10018G1000000000BM2L 补休
--10018G1000000000BM33 调整补休
--10018G1000000000BM35 补休延期

select h.pk_leavetype,h.pk_psnjob,h.leaveyear into vPK_LEAVETYPE,vPK_PSNDOC,vCuryear from tbm_leaveh h where h.pk_leaveh=:NEW.pk_leaveh;

IF DELETING THEN
PKG_LEAVE.Update_Leave_By_PK_PSNDOC(vPK_PSNDOC,vPK_LEAVETYPE,vCuryear,-999);
DBMS_OUTPUT.PUT_LINE('成功更新员工假期！');
ELSE --INSERTING UPDATING
if vPK_LEAVETYPE='1002Z710000000021ZLJ' then
PKG_LEAVE.Insert_Leave_Mapping_AL(:NEW.pk_leaveb,vresult);
dbms_output.PUT_LINE('1 TRI_TBM_LEAVEB=' || vPK_LEAVETYPE);
elsif vPK_LEAVETYPE='10018G1000000000BM2N' then
PKG_LEAVE.Insert_Leave_Mapping_WL(:NEW.pk_leaveb,vresult);
dbms_output.PUT_LINE('2 TRI_TBM_LEAVEB=' || vPK_LEAVETYPE);
elsif vPK_LEAVETYPE='10018G1000000000BM2L' then
PKG_LEAVE.Insert_Leave_Mapping_OT(:NEW.pk_leaveb,vresult);
dbms_output.PUT_LINE('3 TRI_TBM_LEAVEB=' || vPK_LEAVETYPE);
end if;
END IF;

END TRI_TBM_LEAVEB;

CREATE OR REPLACE TRIGGER TRI_TBM_LEAVEB_D BEFORE DELETE ON TBM_LEAVEB FOR EACH ROW
BEGIN
delete from HR_ELEAVE_MAPPING H WHERE H.PK_LEAVEB=:OLD.pk_leaveb;
DBMS_OUTPUT.PUT_LINE('成功更新员工假期！');
END TRI_TBM_LEAVEB_D;

----------------------------------
CREATE OR REPLACE TRIGGER TRI_HR_EMPLOYEE_ENJOY_LEAVE AFTER INSERT OR UPDATE OR DELETE ON HR_EMPLOYEE_ENJOY_LEAVE FOR EACH ROW
declare
vPK_LEAVETYPE char(20);
vresult varchar(30);
BEGIN
---
1002Z710000000021ZLJ 年假
10018G1000000000BM37 上年年假
10018G1000000000BM2T 调整年假
10018G1000000000BM2P 年假延期

10018G1000000000BM2N 司龄假
10018G1000000000BM39 上年司龄假
10018G1000000000BM2R 调整司龄假
10018G1000000000BM2V 司龄假延期

10018G1000000000BM2L 补休
10018G1000000000BM33 调整补休
10018G1000000000BM35 补休延期
---
if :NEW.PK_TIMEITEM='10018G1000000000BM2T' or :NEW.PK_TIMEITEM='10018G1000000000BM2R' or :NEW.PK_TIMEITEM='10018G1000000000BM2P' or :NEW.PK_TIMEITEM='10018G1000000000BM2V' or :NEW.PK_TIMEITEM='10018G1000000000BM2L' or :NEW.PK_TIMEITEM='10018G1000000000BM33' or :NEW.PK_TIMEITEM='10018G1000000000BM35' then
PKG_LEAVE.Update_Leave_By_PK_PSNDOC(:NEW.PK_PSNDOC,:NEW.PK_TIMEITEM,:NEW.LEAVE_YYYY,-999);
--dbms_output.PUT_LINE('1 TRI_TBM_LEAVEB=' || vPK_LEAVETYPE);
end if;
END TRI_HR_EMPLOYEE_ENJOY_LEAVE;

-------------
declare
vresult varchar2(20);
begin

PKG_LEAVE.Auto_Gen_Employee_Leave(to_number(to_char(add_months(sysdate,-1),'YYYY')) ,to_number(to_char(add_months(sysdate,-1),'YYYY')),vresult);

PKG_LEAVE.Auto_Gen_Employee_Leave(to_number(to_char(sysdate,'YYYY')) ,to_number(to_char(sysdate,'YYYY')),vresult);

end;
-------------
select pk_timeitem,timeitemname from tbm_timeitem where timeitemname in ('年假','司龄假','上年年假','上年司龄假','调整年假','调整司龄假','年假延期','司龄假延期','补休','调整补休','补休延期')

*/
---add by waite
---定时追补预支假期抵扣
PROCEDURE pro_Supplement_Leave_Mapping(pResult out varchar2)
AS
CURSOR TEMP_CUR IS
--查询假期未插入Mapping的数据
select p.code, p.name, p.glbdef1,h.pk_leavetype,h.bill_code
from tbm_leaveb b
inner join tbm_leaveh h
on b.pk_leaveh = h.pk_leaveh
inner join bd_psndoc p
on p.pk_psndoc = h.pk_psndoc
where b.pk_leaveb not in (select m.pk_leaveb from hr_eleave_mapping m)and h.pk_leavetype in('1002Z710000000021ZLJ','10018G1000000000BM2N','10018G1000000000BM2L') ;

-- where h.pk_psndoc=pPK_PSNDOC and h.pk_leavetype=pPK_TIMEITEM and to_char(l.leavebegindate,'YYYYMMDD')=pLeave_StartDate;

begin
pResult:='Success';
For TEMP_CUR_RECORD in TEMP_CUR loop
PKG_LEAVE.pro_Insert_Leave_Mapping(TEMP_CUR_RECORD.BILL_CODE,pResult);
end loop;

end pro_Supplement_Leave_Mapping;

END PKG_LEAVE;

你可能感兴趣的:(NC)

Cell Insight | 单细胞测序技术又一新发现，可用于HIV-1和Mtb共感染个体诊断尐尐呅
结核病是艾滋病合并其他疾病中导致患者死亡的主要原因。其中结核病由结核分枝杆菌（Mycobacteriumtuberculosis,Mtb）感染引起，获得性免疫缺陷综合症（艾滋病）由人免疫缺陷病毒（Humanimmunodeficiencyvirustype1,HIV-1）感染引起。国家感染性疾病临床医学研究中心/深圳市第三人民医院张国良团队携手深圳华大生命科学研究院吴靓团队，共同研究得出单细胞测序
c++ 的iostream 和 c++的stdio的区别和联系黄卷青灯77 c++算法开发语言 iostream stdio
在C++中，iostream和C语言的stdio.h都是用于处理输入输出的库，但它们在设计、用法和功能上有许多不同。以下是两者的区别和联系：区别1.编程风格iostream（C++风格）：C++标准库中的输入输出流类库，支持面向对象的输入输出操作。典型用法是cin（输入）和cout（输出），使用>操作符来处理数据。更加类型安全，支持用户自定义类型的输入输出。#includeintmain(){in
Linux下QT开发的动态库界面弹出操作（SDL2） 13jjyao QT类 qt 开发语言 sdl2 linux
需求：操作系统为linux，开发框架为qt，做成需带界面的qt动态库，调用方为java等非qt程序难点：调用方为java等非qt程序，也就是说调用方肯定不带QApplication::exec()，缺少了这个，QTimer等事件和QT创建的窗口将不能弹出(包括opencv也是不能弹出)；这与qt调用本身qt库是有本质的区别的思路：1.调用方缺QApplication::exec()，那么我们在接口
每日一题——第八十九题互联网打工人no1 C语言程序设计每日一练 c语言
题目：在字符串中找到提取数字，并统计一共找到多少整数，a123xxyu23&8889，那么找到的整数为123，23，8889//思想：#include#include#includeintmain(){charstr[]="a123xxyu23&8889";intcount=0;intnum=0;//用于临时存放当前正在构建的整数。boolinNum=false;//用于标记当前是否正在读取一个整
每日一题——第九十题互联网打工人no1 C语言程序设计每日一练 c语言
题目：判断子串是否与主串匹配#include#include#include//////判断子串是否在主串中匹配//////主串///子串///boolisSubstring(constchar*str,constchar*substr){intlenstr=strlen(str);//计算主串的长度intlenSub=strlen(substr);//计算子串的长度//遍历主字符串，对每个可能得
每日一题——第八十一题互联网打工人no1 C语言程序设计每日一练 c语言
打印如下图案:#includeintmain(){inti,j;charch='A';for(i=1;i<5;i++,ch++){for(j=0;j<5-i;j++){printf("");//控制空格输出}for(j=1;j<2*i;j++)//条件j<2*i{printf("%c",ch);//控制字符输出}printf("\n");}return0;}
每日一题——第八十四题互联网打工人no1 C语言程序设计每日一练 c语言
题目：编写函数1、输入10个职工的姓名和职工号2、按照职工由大到小顺序排列，姓名顺序也随之调整3、要求输入一个职工号，用折半查找法找出该职工的姓名#define_CRT_SECURE_NO_WARNINGS#include#include#defineMAX_EMPLOYEES10typedefstruct{intid;charname[50];}Empolyee;voidinputEmploye
每日一题——第八十二题互联网打工人no1 C语言程序设计每日一练 c语言
题目：将一个控制台输入的字符串中的所有元音字母复制到另一字符串中#include#include#include#include#defineMAX_INPUT1024boolisVowel(charp);intmain(){charinput[MAX_INPUT];charoutput[MAX_INPUT];printf("请输入一串字符串：\n");fgets(input,sizeof(inp
每日一题——第八十三题互联网打工人no1 C语言程序设计每日一练 c语言
题目：将输入的整形数字输出,输出1990，输出"1990"#include#defineMAX_INPUT1024intmain(){intarrr_num[MAX_INPUT];intnum,i=0;printf("请输入一个数字：");scanf_s("%d",&num);while(num!=0){arrr_num[i++]=num%10;num/=10;}printf("\"");for(
linux sdl windows.h,Windows下的SDL安装奔跑吧linux内核 linux sdl windows.h
首先你要下载并安装SDL开发包。如果装在C盘下，路径为C:\SDL1.2.5如果在WINDOWS下。你可以按以下步骤：1.打开VC++，点击"Tools",Options2,点击directories选项3.选择"Includefiles"增加一个新的路径。"C:\SDL1.2.5\include"4，现在选择"Libaryfiles“增加"C:\SDL1.2.5\lib"现在你可以开始编写你的第
Day17笔记-高阶函数 ~在杰难逃~ Python 笔记 python 开发语言 pycharm 数据分析
高阶函数【重点掌握】函数的本质：函数是一个变量，函数名是一个变量名，一个函数可以作为另一个函数的参数或返回值使用如果A函数作为B函数的参数，B函数调用完成之后，会得到一个结果，则B函数被称为高阶函数常用的高阶函数：map(),reduce(),filter(),sorted()1.map()map(func,iterable)，返回值是一个iterator【容器，迭代器】func:函数iterab
MYSQL面试系列-04 king01299 面试 mysql 面试
MYSQL面试系列-0417.关于redolog和binlog的刷盘机制、redolog、undolog作用、GTID是做什么的？innodb_flush_log_at_trx_commit及sync_binlog参数意义双117.1innodb_flush_log_at_trx_commit该变量定义了InnoDB在每次事务提交时，如何处理未刷入（flush）的重做日志信息（redolog）。它
Redis系列：Geo 类型赋能亿级地图位置计算 Ly768768 redis bootstrap 数据库
1前言我们在篇深刻理解高性能Redis的本质的时候就介绍过Redis的几种基本数据结构，它是基于不同业务场景而设计的：动态字符串(REDIS_STRING)：整数(REDIS_ENCODING_INT)、字符串(REDIS_ENCODING_RAW)双端列表(REDIS_ENCODING_LINKEDLIST)压缩列表(REDIS_ENCODING_ZIPLIST)跳跃表(REDIS_ENCODI
ARM驱动学习之5 LEDS驱动 JT灬新一嵌入式 C 底层 arm开发学习单片机
ARM驱动学习之5LEDS驱动知识点：•linuxGPIO申请函数和赋值函数–gpio_request–gpio_set_value•三星平台配置GPIO函数–s3c_gpio_cfgpin•GPIO配置输出模式的宏变量–S3C_GPIO_OUTPUT注意点：DRIVER_NAME和DEVICE_NAME匹配。实现步骤：1.加入需要的头文件：//Linux平台的gpio头文件#include//三
ARM驱动学习之4小结 JT灬新一嵌入式 C++arm开发学习 linux
ARM驱动学习之4小结#include#include#include#include#include#defineDEVICE_NAME"hello_ctl123"MODULE_LICENSE("DualBSD/GPL");MODULE_AUTHOR("TOPEET");staticlonghello_ioctl(structfile*file,unsignedintcmd,unsignedlo
每日一题——第八十八题互联网打工人no1 C语言程序设计每日一练 c语言
题目：输入一个9位的无符号整数，判断其是否有重复数字#include#include#includeintmain(){charnum_str[10];printf("请输入一个9位数的无符号数：");scanf_s("%9d",&num_str);if(strlen(num_str)!=9){printf("输入的不是一个9位无符号整数，请重新输入");}else{if(hasDuplicate
SpringBlade dict-biz/list 接口 SQL 注入漏洞文章永久免费只为良心 oracle 数据库
SpringBladedict-biz/list接口SQL注入漏洞POC:构造请求包查看返回包你的网址/api/blade-system/dict-biz/list?updatexml(1,concat(0x7e,md5(1),0x7e),1)=1漏洞概述在SpringBlade框架中，如果dict-biz/list接口的后台处理逻辑没有正确地对用户输入进行过滤或参数化查询（PreparedSta
Xinference如何注册自定义模型玩人工智能的辣条哥人工智能 AI 大模型 Xinference
环境：Xinference问题描述：Xinference如何注册自定义模型解决方案：1.写个model_config.json，内容如下{"version":1,"context_length":2048,"model_name":"custom-llama-3","model_lang":["en","ch"],"model_ability":["generate","chat"],"model
Shell、Bash、Zsh这都是啥啊小白码上飞 bash linux 开发语言
Zsh和Bash都是我们常用的Shell，那先搞明白啥是shell吧。Shell作为一个单词，他是“壳”的意思，蛋壳坚果壳。之所以叫壳，是为了和计算机的“核”来区分，用它表示“为使用者提供的操作界面”。所以这个命名其实很形象，翻译成中文，直译过来叫“壳层”。个人认为这个叫法很奇怪，意译貌似也没有什么好的词汇来匹配。就还是叫shell吧。维基百科给的定义是：Incomputing,ashellisa
ios GCD _Waiting_
1.GCD任务和队列学习GCD之前，先来了解GCD中两个核心概念：任务和队列。任务：就是执行操作的意思，换句话说就是你在线程中执行的那段代码。在GCD中是放在block中的。执行任务有两种方式：同步执行（sync）和异步执行（async）。两者的主要区别是：是否等待队列的任务执行结束，以及是否具备开启新线程的能力。同步执行（sync）：同步添加任务到指定的队列中，在添加的任务执行结束之前，会一直等
xilinx vivado PULLMODE 设置思路坚持每天写程序 fpga开发
1.xilinx引脚分类XilinxIO的分类：以XC7A100TFGG484为例，其引脚分类如下：1.UserIO(用户IO)：用户使用的普通IO1.1专用(Dedicated)IO：命名为IO_LXXY_#、IO_XX_#的引脚，有固定的特定用途，多为底层特定功能的直接实现，如差分对信号、关键控制信号等，不能随意变更。1.2多功能(Multi-Function)IO：命名为IO_LXXY_ZZ
Some jenkins settings SnC_
Jenkins连接到特定gitlabproject的特定branch我采用的方法是在pipeline的script中使用git命令来指定branch。如下：stage('Clonerepository'){steps{gitbranch:'develop',credentialsId:'gitlab-credential-id',url:'http://gitlab.com/repo.git'}}
用Python实现读取统计单词个数程序媛了了 python 游戏 java
完整实例代码：fromcollectionsimportCounterdefpythonit():danci={}withopen("pythonit.txt","r",encoding="utf-8")asf:foriinf:words=i.strip().split()forwordinwords:ifwordnotindanci:danci[word]=1else:danci[word]+=
2024.9.14 Python，差分法解决区间加法，消除游戏，压缩字符串 RaidenQ python 游戏开发语言算法力扣
1.区间加法假设你有一个长度为n的数组，初始情况下所有的数字均为0，你将会被给出k个更新的操作。其中，每个操作会被表示为一个三元组：[startIndex,endIndex,inc]，你需要将子数组A[startIndex…endIndex]（包括startIndex和endIndex）增加inc。请你返回k次操作后的数组。示例:输入:length=5,updates=[[1,3,2],[2,4,
BART&BERT Ambition_LAO 深度学习
BART和BERT都是基于Transformer架构的预训练语言模型。模型架构：BERT(BidirectionalEncoderRepresentationsfromTransformers)主要是一个编码器（Encoder）模型，它使用了Transformer的编码器部分来处理输入的文本，并生成文本的表示。BERT特别擅长理解语言的上下文，因为它在预训练阶段使用了掩码语言模型（MLM）任务，即
MongoDB知识概括 GeorgeLin98 持久层 mongodb
MongoDB知识概括MongoDB相关概念单机部署基本常用命令索引-IndexSpirngDataMongoDB集成副本集分片集群安全认证MongoDB相关概念业务应用场景：传统的关系型数据库（如MySQL），在数据操作的“三高”需求以及应对Web2.0的网站需求面前，显得力不从心。解释：“三高”需求：①Highperformance-对数据库高并发读写的需求。②HugeStorage-对海量数
matlab mle 优化,MLE+: Matlab Toolbox for Integrated Modeling, Control and Optimization for Buildings... Simon Zhong matlab mle 优化
摘要：FollowingunilateralopticnervesectioninadultPVGhoodedrat,theaxonguidancecueephrin-A2isup-regulatedincaudalbutnotrostralsuperiorcolliculus(SC)andtheEphA5receptorisdown-regulatedinaxotomisedretinalgan
ARMv8 Debug __pop_ ARMv8 ARM64 架构 linux 运维
内容来自DEN0024A_v8_architecture_PG.pdf本质ARMv8Debug是什么历史在ARMv4开始被引入,并已发展成一系列广泛的调试(debug1)和跟踪(trace)功能ARMv6和ARMv7-a新增了自托管调试(debug2)和性能评测(trace-enhance)ARMv8处理器提供硬件功能侵入式:调试工具能够对核心活动提供显著级别的控制非侵入式:以非侵入性方式收集有关
tiff批量转png 诺有缸的高飞鸟 opencv 图像处理 python opencv 图像处理
目录写在前面代码完写在前面1、本文内容tiff批量转png2、平台/环境opencv,python3、转载请注明出处：https://blog.csdn.net/qq_41102371/article/details/132975023代码importnumpyasnpimportcv2importosdeffindAllFile(base):file_list=[]forroot,ds,fsin
2021 CCF 非专业级别软件能力认证第一轮（CSP-J1）入门级C++语言试题（第三大题：完善程序代码） mmz1207 c++csp
最近有一段时间没更新了，在准备CSP考试，请大家见谅。（1）有n个人围成一个圈，依次标号0到n-1。从0号开始，依次0，1，0，1...交替报数，报到一的人离开，直至圈中剩最后一个人。求最后剩下的人的编号。#includeusingnamespacestd;intf[1000010];intmain(){intn;cin>>n;inti=0,cnt=0,p=0;while(cnt#includeu
Nginx负载均衡 510888780 nginx 应用服务器
Nginx负载均衡一些基础知识: nginx 的 upstream目前支持 4 种方式的分配 1)、轮询（默认）每个请求按时间顺序逐一分配到不同的后端服务器，如果后端服务器down掉，能自动剔除。 2)、weight 指定轮询几率，weight和访问比率成正比
RedHat 6.4 安装 rabbitmq bylijinnan erlang rabbitmq redhat
在 linux 下安装软件就是折腾，首先是测试机不能上外网要找运维开通，开通后发现测试机的 yum 不能使用于是又要配置 yum 源，最后安装 rabbitmq 时也尝试了两种方法最后才安装成功机器版本： [root@redhat1 rabbitmq]# lsb_release LSB Version: :base-4.0-amd64:base-4.0-noarch:core
FilenameUtils工具类 eksliang FilenameUtils common-io
转载请出自出处：http://eksliang.iteye.com/blog/2217081 一、概述这是一个Java操作文件的常用库，是Apache对java的IO包的封装，这里面有两个非常核心的类FilenameUtils跟FileUtils，其中FilenameUtils是对文件名操作的封装;FileUtils是文件封装，开发中对文件的操作，几乎都可以在这个框架里面找到。非常的好用。
xml文件解析SAX 不懂事的小屁孩 xml
xml文件解析:xml文件解析有四种方式， 1.DOM生成和解析XML文档(SAX是基于事件流的解析) 2.SAX生成和解析XML文档(基于XML文档树结构的解析) 3.DOM4J生成和解析XML文档 4.JDOM生成和解析XML 本文章用第一种方法进行解析，使用android常用的DefaultHandler import org.xml.sax.Attributes;
通过定时任务执行mysql的定期删除和新建分区，此处是按日分区酷的飞上天空 mysql
使用python脚本作为命令脚本，linux的定时任务来每天定时执行 #!/usr/bin/python # -*- coding: utf8 -*- import pymysql import datetime import calendar #要分区的表 table_name = 'my_table' #连接数据库的信息 host,user,passwd,db =
如何搭建数据湖架构？听听专家的意见蓝儿唯美架构
Edo Interactive在几年前遇到一个大问题：公司使用交易数据来帮助零售商和餐馆进行个性化促销，但其数据仓库没有足够时间去处理所有的信用卡和借记卡交易数据 “我们要花费27小时来处理每日的数据量，”Edo主管基础设施和信息系统的高级副总裁Tim Garnto说道：“所以在2013年，我们放弃了现有的基于PostgreSQL的关系型数据库系统，使用了Hadoop集群作为公司的数
spring学习——控制反转与依赖注入 a-john spring
控制反转（Inversion of Control，英文缩写为IoC）是一个重要的面向对象编程的法则来削减计算机程序的耦合问题，也是轻量级的Spring框架的核心。控制反转一般分为两种类型，依赖注入（Dependency Injection，简称DI）和依赖查找（Dependency Lookup）。依赖注入应用比较广泛。
用spool+unixshell生成文本文件的方法 aijuans xshell
例如我们把scott.dept表生成文本文件的语句写成dept.sql,内容如下: 　　set pages 50000; 　　set lines 200; 　　set trims on; 　　set heading off; 　　spool /oracle_backup/log/test/dept.lst; 　　select deptno||','||dname||','||loc
1、基础--名词解析(OOA/OOD/OOP) asia007 学习基础知识
OOA:Object-Oriented Analysis（面向对象分析方法）是在一个系统的开发过程中进行了系统业务调查以后，按照面向对象的思想来分析问题。OOA与结构化分析有较大的区别。OOA所强调的是在系统调查资料的基础上，针对OO方法所需要的素材进行的归类分析和整理，而不是对管理业务现状和方法的分析。　　OOA（面向对象的分析）模型由5个层次（主题层、对象类层、结构层、属性层和服务层）
浅谈java转成json编码格式技术百合不是茶 json编码 java转成json编码
json编码;是一个轻量级的数据存储和传输的语言在java中需要引入json相关的包,引包方式在工程的lib下就可以了 JSON与JAVA数据的转换（JSON 即 JavaScript Object Natation，它是一种轻量级的数据交换格式，非常适合于服务器与 JavaScript 之间的数据的交
web.xml之Spring配置(基于Spring+Struts+Ibatis) bijian1013 java web.xml SSI spring配置
指定Spring配置文件位置 <context-param> <param-name>contextConfigLocation</param-name> <param-value> /WEB-INF/spring-dao-bean.xml,/WEB-INF/spring-resources.xml, /WEB-INF/
Installing SonarQube（Fail to download libraries from server） sunjing Install Sonar
1. Download and unzip the SonarQube distribution 2. Starting the Web Server The default port is "9000" and the context path is "/". These values can be changed in &l
【MongoDB学习笔记十一】Mongo副本集基本的增删查 bit1129 mongodb
一、创建复本集假设mongod,mongo已经配置在系统路径变量上，启动三个命令行窗口，分别执行如下命令： mongod --port 27017 --dbpath data1 --replSet rs0 mongod --port 27018 --dbpath data2 --replSet rs0 mongod --port 27019 -
Anychart图表系列二之执行Flash和HTML5渲染白糖_ Flash
今天介绍Anychart的Flash和HTML5渲染功能 HTML5 Anychart从6.0第一个版本起，已经逐渐开始支持各种图的HTML5渲染效果了，也就是说即使你没有安装Flash插件，只要浏览器支持HTML5，也能看到Anychart的图形（不过这些是需要做一些配置的）。这里要提醒下大家，Anychart6.0版本对HTML5的支持还不算很成熟，目前还处于
Laravel版本更新异常4.2.8-> 4.2.9 Declaration of ... CompilerEngine ... should be compa bozch laravel
昨天在为了把laravel升级到最新的版本，突然之间就出现了如下错误： ErrorException thrown with message "Declaration of Illuminate\View\Engines\CompilerEngine::handleViewException() should be compatible with Illuminate\View\Eng
编程之美-NIM游戏分析-石头总数为奇数时如何保证先动手者必胜 bylijinnan 编程之美
import java.util.Arrays; import java.util.Random; public class Nim { /**编程之美 NIM游戏分析问题：有N块石头和两个玩家A和B，玩家A先将石头随机分成若干堆，然后按照BABA...的顺序不断轮流取石头，能将剩下的石头一次取光的玩家获胜，每次取石头时，每个玩家只能从若干堆石头中任选一堆，
lunce创建索引及简单查询 chengxuyuancsdn 查询创建索引 lunce
import java.io.File; import java.io.IOException; import org.apache.lucene.analysis.Analyzer; import org.apache.lucene.analysis.standard.StandardAnalyzer; import org.apache.lucene.document.Docume
[IT与投资]坚持独立自主的研究核心技术 comsci it
和别人合作开发某项产品....如果互相之间的技术水平不同,那么这种合作很难进行,一般都会成为强者控制弱者的方法和手段..... 所以弱者,在遇到技术难题的时候,最好不要一开始就去寻求强者的帮助,因为在我们这颗星球上,生物都有一种控制其
flashback transaction闪回事务查询 daizj oracle sql 闪回事务
闪回事务查询有别于闪回查询的特点有以下3个：（1）其正常工作不但需要利用撤销数据，还需要事先启用最小补充日志。（2）返回的结果不是以前的“旧”数据，而是能够将当前数据修改为以前的样子的撤销SQL（Undo SQL）语句。（3）集中地在名为flashback_transaction_query表上查询，而不是在各个表上通过“as of”或“vers
Java I/O之FilenameFilter类列举出指定路径下某个扩展名的文件游其是你 FilenameFilter
这是一个FilenameFilter类用法的例子，实现的列举出“c:\\folder“路径下所有以“.jpg”扩展名的文件。 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28
C语言学习五函数，函数的前置声明以及如何在软件开发中合理的设计函数来解决实际问题 dcj3sjt126com c
# include <stdio.h> int f(void) //括号中的void表示该函数不能接受数据，int表示返回的类型为int类型 { return 10; //向主调函数返回10 } void g(void) //函数名前面的void表示该函数没有返回值 { //return 10; //error 与第8行行首的void相矛盾 } in
今天在测试环境使用yum安装，遇到一个问题： Error: Cannot retrieve metalink for repository: epel. Pl dcj3sjt126com centos
今天在测试环境使用yum安装，遇到一个问题： Error: Cannot retrieve metalink for repository: epel. Please verify its path and try again 处理很简单，修改文件“/etc/yum.repos.d/epel.repo”，将baseurl的注释取消， mirrorlist注释掉。即可。 &n
单例模式 shuizhaosi888 单例模式
单例模式懒汉式 public class RunMain { /** * 私有构造 */ private RunMain() { } /** * 内部类，用于占位，只有 */ private static class SingletonRunMain { priv
Spring Security（09）——Filter 234390216 Spring Security
Filter 目录 1.1 Filter顺序 1.2 添加Filter到FilterChain 1.3 DelegatingFilterProxy 1.4 FilterChainProxy 1.5
公司项目NODEJS实践0.1 逐行分析JS源代码 mongodb nginx ubuntu nodejs
一、前言前端如何独立用nodeJs实现一个简单的注册、登录功能，是不是只用nodejs+sql就可以了？其实是可以实现，但离实际应用还有距离，那要怎么做才是实际可用的。网上有很多nod
java.lang.Math liuhaibo_ljf java Math lang
System.out.println(Math.PI); System.out.println(Math.abs(1.2)); System.out.println(Math.abs(1.2)); System.out.println(Math.abs(1)); System.out.println(Math.abs(111111111)); System.out.println(Mat
linux下时间同步 nonobaba ntp
今天在linux下做hbase集群的时候，发现hmaster启动成功了，但是用hbase命令进入shell的时候报了一个错误 PleaseHoldException: Master is initializing，查看了日志，大致意思是说master和slave时间不同步，没办法，只好找一种手动同步一下，后来发现一共部署了10来台机器，手动同步偏差又比较大，所以还是从网上找现成的解决方
ZooKeeper3.4.6的集群部署 roadrunners zookeeper 集群部署
ZooKeeper是Apache的一个开源项目，在分布式服务中应用比较广泛。它主要用来解决分布式应用中经常遇到的一些数据管理问题，如：统一命名服务、状态同步、集群管理、配置文件管理、同步锁、队列等。这里主要讲集群中ZooKeeper的部署。 1、准备工作我们准备3台机器做ZooKeeper集群，分别在3台机器上创建ZooKeeper需要的目录。数据存储目录
Java高效读取大文件 tomcat_oracle java
　　读取文件行的标准方式是在内存中读取，Guava 和Apache Commons IO都提供了如下所示快速读取文件行的方法：　　Files.readLines(new File(path), Charsets.UTF_8); 　　FileUtils.readLines(new File(path)); 　　这种方法带来的问题是文件的所有行都被存放在内存中，当文件足够大时很快就会导致
微信支付api返回的xml转换为Map的方法 xu3508620 xml map 微信api
举例如下： <xml> <return_code><![CDATA[SUCCESS]]></return_code> <return_msg><![CDATA[OK]]></return_msg> <appid><