-
Notifications
You must be signed in to change notification settings - Fork 0
/
SP_KHOPLENH_LO.sql
95 lines (88 loc) · 2.73 KB
/
SP_KHOPLENH_LO.sql
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
USE [CHUNGKHOAN]
GO
/****** Object: StoredProcedure [dbo].[SP_KHOPLENH_LO] Script Date: 5/13/2021 10:05:11 PM ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
ALTER PROC [dbo].[SP_KHOPLENH_LO]
@macp NVARCHAR( 10), @Ngay NVARCHAR( 10), @LoaiGD CHAR,
@soluongMB INT, @giadatMB FLOAT
AS
SET DATEFORMAT DMY
DECLARE @CrsrVar CURSOR, @id INT, @ngaydat NVARCHAR(10), @soluong INT, @giadat FLOAT, @soluongkhop INT, @giakhop FLOAT
IF (@LoaiGD='B')
EXEC CursorLoaiGD @CrsrVar OUTPUT, @macp,@Ngay, 'M'
ELSE
EXEC CursorLoaiGD @CrsrVar OUTPUT, @macp,@Ngay, 'B'
FETCH NEXT FROM @CrsrVar INTO @id, @ngaydat, @soluong, @giadat
--SELECT @ngaydat , @soluong , @giadat
WHILE (@@FETCH_STATUS <> -1 AND @soluongMB > 0)
BEGIN
IF (@LoaiGD='B' )
IF (@giadatMB <= @giadat)
BEGIN
IF @soluongMB > @soluong
BEGIN
SET @soluongkhop = @soluong
SET @giakhop = @giadat
SET @soluongMB = @soluongMB - @soluong
UPDATE dbo.LENHDAT
SET SOLUONG = 0, TRANGTHAILENH='Khop'
WHERE CURRENT OF @CrsrVar
END
ELSE --@soluongMB <= @soluong
BEGIN
SET @soluongkhop = @soluongMB
SET @giakhop = @giadat
UPDATE dbo.LENHDAT
SET SOLUONG = SOLUONG - @soluongMB
WHERE CURRENT OF @CrsrVar
SET @soluongMB = 0
END
--SELECT @soluongkhop, @giakhop
INSERT INTO LENHKHOP VALUES(@Ngay, @soluongkhop, @giakhop, @id)
END
ELSE --(@giadatMB > @giadat)
BEGIN
INSERT INTO LENHDAT VALUES(@macp, @Ngay, @LoaiGD, 'LO', @soluongMB, @giadatMB, 'Chokhop')
GOTO THOAT
END
ELSE --(@LoaiGD='M')
-- Còn Trường hợp lệnh gởi vào là lệnh mua
IF (@giadatMB >= @giadat)
BEGIN
IF @soluongMB >= @soluong
BEGIN
SET @soluongkhop = @soluong
SET @giakhop = @giadatMB
SET @soluongMB = @soluongMB - @soluong
UPDATE dbo.LENHDAT
SET SOLUONG = 0, TRANGTHAILENH='Khop'
WHERE CURRENT OF @CrsrVar
END
ELSE --@soluongMB < @soluong
BEGIN
SET @soluongkhop = @soluongMB
SET @giakhop = @giadatMB
UPDATE dbo.LENHDAT
SET SOLUONG = SOLUONG - @soluongMB
WHERE CURRENT OF @CrsrVar
SET @soluongMB = 0
END
--SELECT @soluongkhop, @giakhop
INSERT INTO LENHKHOP VALUES(@Ngay, @soluongkhop, @giakhop, @id)
END
ELSE --(@giadatMB < @giadat)
BEGIN
INSERT INTO LENHDAT VALUES(@macp, @Ngay, @LoaiGD, 'LO', @soluongMB, @giadatMB, 'Chokhop')
GOTO THOAT
END
FETCH NEXT FROM @CrsrVar INTO @id, @ngaydat , @soluong , @giadat
END
IF (@@FETCH_STATUS = -1 AND @soluongMB > 0)
INSERT INTO LENHDAT VALUES(@macp, @Ngay, @LoaiGD, 'LO', @soluongMB, @giadatMB, 'Khop 1 phan')
THOAT:
CLOSE @CrsrVar
DEALLOCATE @CrsrVar
GO