Project

General

Profile

Bug #2323 » PHRPYBASEWTBENEFIT_NOPROTATE_202309150915.sql

Tri Rizqiaty, 09/15/2023 05:45 PM

 
1
??USE [MinovaES_HINO_Dev]
2

3
GO
4

5
/****** Object:  StoredProcedure [dbo].[PHRPYBASEWTBENEFIT_NOPROTATE]    Script Date: 15/09/2023 08.43.43 ******/
6

7
SET ANSI_NULLS ON
8

9
GO
10

11
--SET QUOTED_IDENTIFIER ON
12

13
--GO
14

15
--ALTER PROCEDURE [dbo].[PHRPYBASEWTBENEFIT_NOPROTATE]
16

17
--(
18

19
--	@EmpID VARCHAR(20)
20

21
--	,@EndDate VARCHAR(20)
22

23
--	,@BaseWT VARCHAR(20)
24

25
--	,@NoProrate VARCHAR(50)
26

27
--)
28

29
--AS 
30

31
DECLARE @EmpID VARCHAR(20) = '00000036'
32

33
DECLARE @EndDate VARCHAR(20) = '20230831'
34

35
DECLARE @BaseWT VARCHAR(20) = 'B002'
36

37
DECLARE @NoProrate VARCHAR(50) = '1'
38

39

40

41
DECLARE @BaseAmount DECIMAL(22,0) = 0
42

43
IF(@NoProrate = '1')
44

45
BEGIN
46

47

48

49
	DECLARE @TWT TABLE
50

51
	(
52

53
		WageType VARCHAR(20)
54

55
	)
56

57
	INSERT INTO @TWT
58

59
	SELECT DISTINCT WageType
60

61
	FROM dbo.PHRPYCU0305
62

63
	WHERE WageTypeCum = @BaseWT
64

65

66

67
	DECLARE @c_wt varchar(8)
68

69
	DECLARE cur_wt CURSOR FOR SELECT WageType FROM @TWT
70

71
	OPEN cur_wt
72

73
	FETCH cur_wt INTO @c_wt
74

75
	WHILE @@Fetch_Status = 0
76

77
		BEGIN
78

79
			SELECT @BaseAmount = @BaseAmount + CAST(REPLACE(ISNULL(dbo.GetPEN(Amount), '0'), ',','.') AS DECIMAL)
80

81
			FROM dbo.PHRPA0004 
82

83
			WHERE EmployeeID = @EmpID AND StartDate <= @EndDate AND EndDate >= @EndDate
84

85
				AND WageType = @c_wt
86

87
		FETCH cur_wt INTO @c_wt  
88

89
		END
90

91
	CLOSE cur_wt
92

93
	DEALLOCATE cur_wt
94

95
END
96

97

98

99
SELECT ISNULL(@BaseAmount,0) AS BaseAmount
100

101

(3-3/5)