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.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
76.
77.
78.
79.
80.
81.
82.
83.
84.
85.
86.
87.
88.
89.
90.
91.
92.
93.
94.
95.
96.
97.
98.
99.
100.
101.
102.
103.
104.
105.
106.
107.
108.
109.
110.
111.
112.
113.
114.
115.
116.
117.
118.
119.
120.
121.
122.
123.
124.
125.
126.
127.
128.
129.
CREATE PROC zpsp_BolnList2009
@tn smallint,
@date_beg smalldatetime , -- дата начала больничного
@date_end smalldatetime, -- дата окончания
@tip bit, -- 0 -первичный лист, 1 -продолжение листа
@N_osn int -- N первичного листа, если @tip= 1
AS
SET NOCOUNT ON
--PRINT ' Расчет больничного листа '
-- версия от 20 . 03 . 2009 14 : 45
--BEGIN TRANSACTION
DECLARE
@zpl_mes tinyint ,
@zpl_year smallint ,
@i tinyint,
@datavid smalldatetime,
@nomerbl varchar( 20 ),
@tmp_mes tinyint ,
@tmp_year smallint ,
@date_beg_cont smalldatetime
SELECT @zpl_mes=value FROM zptb_minzpl WHERE id='month' AND name=USER_NAME()
SELECT @zpl_year=value FROM zptb_minzpl WHERE id='year' AND name=USER_NAME()
IF @zpl_mes IS NOT NULL AND @zpl_year IS NOT NULL
BEGIN
CREATE TABLE #Tmp(
Fio varchar( 40 ) NULL ,
Zpl real null , -- Оклад или ставка
Shifr smallint NULL , -- Шифр оклада
TipPremii varchar( 3 ) NULL , -- Тип премии
NeprStag real NULL , -- Непрерывный стаж работы
Mes int NULL , -- Месяц
Year int NULL , -- Год
Day smallint NULL , -- Количесво отработанных дней
DayKal smallint NULL , -- Количесво дней в месяце
Summa money NULL , -- Сумма
Prem money NULL , -- Премия
PremMes money NULL , -- Премия с разбивкой по месяцам
Rr int NULL , -- режим работы
Smena char( 1 ) NULL ) -- смена
IF @tip= 1 -- продолжение больничного листка
BEGIN
SELECT @date_beg_cont=@date_beg
--ищем первичный больничный лист и дату его начала
--вставили case т.к. в zptb_nachisl note в дате нач. больничного год в разном формате
SELECT @date_beg=ISNULL(MIN(CONVERT(smalldatetime,
(case
when SUBSTRING(note, patindex('%[сСcC]___[./-,]%__[./-,]%__[./-,]%', note)+10, 1)= ' ' then
SUBSTRING(note, patindex('%[сСcC]___[./-,]%__[./-,]%__[./-,]%', note)+2, 8 )
else SUBSTRING(note, patindex('%[сСcC]___[./-,]%__[./-,]%__[./-,]%', note)+2, 10 ) end),
case when SUBSTRING(note, patindex('%[сСcC]___[./-,]%__[./-,]%__[./-,]%', note)+10, 1)= ' ' then 4 else 104 end )),@date_beg)
from zptb_nachisl where tn=@tn and shifr in ( 115 , 116 , 125 , 143 , 144 )
and note LIKE '%'+CONVERT(varchar(10), @N_osn)+'%'
IF @date_beg_cont=@date_beg
PRINT 'Не найден первичный листок или неверно указаны даты !'
END
/* Больничный расчитывается за 12 месяцев перед болезнью за календарные дни.
В расчет включается : оклад, сдельно, ночные, бригадирские, тек.простои, постоянные совмещения, премия, средний и ученические
*/
BEGIN
-- Вычисляем первый и последний день периода расчета количества календарных дней и начислений
DECLARE @cnt_mes int
DECLARE @firstdate datetime
DECLARE @lastdate datetime
SELECT @cnt_mes= 1
SELECT @lastdate=DATEADD(month, 0 ,DATEADD(day, 1 -day(@date_beg),@date_beg))- 1
SELECT @cnt_mes= 12
SELECT @firstdate=CAST('01.'+ CAST(DATEPART(mm, DATEADD(mm, -@cnt_mes, @date_beg)) AS CHAR(2))+ '.' +CAST( DATEPART(yy, DATEADD(mm, -@cnt_mes, @date_beg)) AS CHAR(4)) AS DATETIME)
SELECT @cnt_mes= 1
-- Устанавливаем выходные в период отпусков в символ отпуска по таблице kdtb_otpusk
CREATE TABLE #tmp2 (kod_otp char( 1 ), tn smallint, datebeg datetime, dateend datetime)
INSERT #tmp2 (kod_otp, tn, datebeg, dateend)
SELECT kod_otp, tn, data_beg, data_end
FROM kdtb_otpusk WHERE tn=@tn AND ((data_beg BETWEEN @firstdate AND @lastdate) OR (data_end BETWEEN @firstdate AND @lastdate))
INSERT #tmp2 (kod_otp, tn, datebeg, dateend)
SELECT kod_otp, tn, data_beg_prod, data_end_prod
FROM kdtb_otpusk WHERE tn=@tn AND data_beg_prod BETWEEN @firstdate AND @lastdate
CREATE TABLE #tmp3 (tn smallint, p char( 2 ), date smalldatetime)
CREATE TABLE #tmp5 (tn smallint, p char( 2 ), date smalldatetime)
INSERT #tmp3 SELECT DISTINCT tn, '1', date FROM tutb_tabelall WHERE tutb_tabelall.tn=@tn -- все дни ставим как работу в первую смену для того, чтобы избежать двойных записей при двух записях за один день в табеле, 09.10.2008
UPDATE #tmp3 SET p=#tmp2.kod_otp FROM #tmp2, #tmp3 WHERE #tmp3.date BETWEEN #tmp2.datebeg AND #tmp2.dateend AND #tmp2.tn=#tmp3.tn
INSERT #tmp5 SELECT DISTINCT tn, p, date FROM tutb_tabelall WHERE tutb_tabelall.tn=@tn
UPDATE #tmp5 SET p=#tmp2.kod_otp FROM #tmp2, #tmp5 WHERE #tmp5.date BETWEEN #tmp2.datebeg AND #tmp2.dateend AND #tmp2.tn=#tmp5.tn
-- Устанавливаем выходные в период болезни в 'Б' по таблице kdtb_boln
CREATE TABLE #tmp6 (tn smallint, datebeg datetime, dateend datetime)
INSERT #tmp6 (tn, datebeg, dateend)
SELECT tn, s, po
FROM kdtb_boln WHERE tn=@tn AND ((s BETWEEN @firstdate AND @lastdate) OR (po BETWEEN @firstdate AND @lastdate))
UPDATE #tmp3 SET p='Б' FROM #tmp6, #tmp3 WHERE #tmp3.date BETWEEN #tmp6.datebeg AND #tmp6.dateend AND #tmp3.tn=#tmp6.tn
-- расчет количества календарных дней за 12 предыдущих месяцев
CREATE TABLE #tmp4 (day tinyint, tn smallint, mes tinyint, year smallint)
INSERT #tmp4(day, tn, mes, year)
SELECT COUNT(*), tn, month(date), year(date) FROM #tmp3
WHERE tn=@tn
AND date BETWEEN @firstdate AND @lastdate
AND p NOT IN ('Б','О','А','У','Р','Д','Е','Я') GROUP BY tn, month(date), year(date)
--select * from #tmp4
-- расчет начислений за 12 предыдущих месяцев
WHILE @cnt_mes<= 12
BEGIN
INSERT #Tmp( Day, Summa, Prem, mes, year)
-- SELECT SUM(CASE WHEN shifr IN ( 100 , 101 , 102 , 113 , 120 , 108 , 139 ) THEN day ELSE 0 END), - старый вариант, использовался при расчете по рабочим дням
SELECT CASE WHEN #tmp4.day= 0 THEN 0 ELSE #tmp4.day END,
SUM(zptb_nachisl.Summa), 0 , zptb_nachisl.mes, zptb_nachisl.year
FROM zptb_nachisl, #tmp4 WHERE zptb_nachisl.tn=@tn AND #tmp4.tn=zptb_nachisl.tn AND
(zptb_nachisl.shifr NOT IN ( 5 , 15 , 106 , 109 , 110 , 112 , 114 , 115 , 116 , 117 , 118 , 119 , 125 , 135 , 137 , 138 , 140 , 143 , 144 ) AND
zptb_nachisl.shifr< 500 ) AND
zptb_nachisl.year=DATEPART(yy, DATEADD(mm, -@cnt_mes, @date_beg)) AND
zptb_nachisl.mes=DATEPART(mm, DATEADD(mm, -@cnt_mes, @date_beg)) AND #tmp4.year=zptb_nachisl.year AND #tmp4.mes=zptb_nachisl.mes
GROUP BY zptb_nachisl.year, zptb_nachisl.mes, #tmp4.day
SELECT @cnt_mes=@cnt_mes+ 1
END
UPDATE #Tmp SET zpl=zptb_schet.zpl, shifr=zptb_schet.shifr, tipPremii='Fzp' FROM zptb_schet
WHERE tn=@tn AND date_end is null
END
IF @tip= 1
SELECT @date_beg=@date_beg_cont
-- ЗАМЕНЕН РАСЧЕТ СТАЖА НЕПРЕРЫВНОГО НА ОБЩИЙ СТРАХОВОЙ
UPDATE #Tmp SET Fio=LTRIM(sr_fam)+' '+sr_io,
--NeprStag=CONVERT(real,DATEDIFF(mm, sr_nepst,@date_beg ))/ 12 ,
NeprStag =(CONVERT(real,DATEDIFF(mm, sr_datapr,@date_beg ))+(CONVERT(real,(sr_ost_let* 12 +sr_ost_mes))))/ 12 ,
Rr=sr_nomrr, smena=sr_smn
FROM spr_ml151 WHERE sr_sys=@tn
END
SELECT * FROM #Tmp ORDER BY year, mes
GO
