if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPLメッセージ取得受信]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPLメッセージ取得受信]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPLメッセージ取得送信]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPLメッセージ取得送信]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPLメッセージ受信一覧]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPLメッセージ受信一覧]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPLメッセージ送信一覧]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPLメッセージ送信一覧]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPLメッセージ送信先一覧]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPLメッセージ送信先一覧]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPLメッセージ開封]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPLメッセージ開封]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPTメッセージ受信]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPTメッセージ受信]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPTメッセージ送信]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPTメッセージ送信]
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO




CREATE PROCEDURE dbo.SPLメッセージ取得受信
@システムCD varchar(12), @アプリケーションCD varchar(12), @連携DB名 varchar(64)
, @受信ユーザー区分 int
, @受信ユーザーID varchar(12)
, @受信Seq int

AS

SELECT TMSメッセージ受信F.システムCD
	, TMSメッセージ受信F.アプリケーションCD
	, TMSメッセージ受信F.受信ユーザー区分
	, TMSメッセージ受信F.受信ユーザーID
	, TMSメッセージ受信F.受信Seq
	, TMSメッセージ受信F.送信ユーザー区分
	, TMSメッセージ受信F.送信ユーザーID
	, TMSメッセージ受信F.送信Seq
	, TMSメッセージ送信F.送信日時
	, TMSメッセージ送信F.表題
	, TMSメッセージ送信F.本文
	, TMSメッセージ受信F.削除フラグ
FROM TMSメッセージ受信F
INNER JOIN TMSメッセージ送信F
	ON TMSメッセージ受信F.システムCD = TMSメッセージ送信F.システムCD
	AND TMSメッセージ受信F.アプリケーションCD = TMSメッセージ送信F.アプリケーションCD
	AND TMSメッセージ受信F.連携DB名 = TMSメッセージ送信F.連携DB名
	AND TMSメッセージ受信F.送信ユーザー区分 = TMSメッセージ送信F.送信ユーザー区分
	AND TMSメッセージ受信F.送信ユーザーID = TMSメッセージ送信F.送信ユーザーID
	AND TMSメッセージ受信F.送信Seq = TMSメッセージ送信F.送信Seq
WHERE TMSメッセージ受信F.システムCD = @システムCD
	AND TMSメッセージ受信F.アプリケーションCD = @アプリケーションCD
	AND TMSメッセージ受信F.連携DB名 = @連携DB名
	AND TMSメッセージ受信F.受信ユーザー区分 = @受信ユーザー区分
	AND TMSメッセージ受信F.受信ユーザーID = @受信ユーザーID
	AND TMSメッセージ受信F.受信Seq = @受信Seq




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO




CREATE PROCEDURE dbo.SPLメッセージ取得送信
@システムCD varchar(12), @アプリケーションCD varchar(12), @連携DB名 varchar(64)
, @送信ユーザー区分 int
, @送信ユーザーID varchar(12)
, @送信Seq int

AS

SELECT TMSメッセージ送信F.システムCD
	, TMSメッセージ送信F.アプリケーションCD
	, TMSメッセージ送信F.送信ユーザー区分
	, TMSメッセージ送信F.送信ユーザーID
	, TMSメッセージ送信F.送信Seq
	, TMSメッセージ送信F.送信日時
	, TMSメッセージ送信F.表題
	, TMSメッセージ送信F.本文
	, TMSメッセージ送信F.削除フラグ
FROM TMSメッセージ送信F
WHERE TMSメッセージ送信F.システムCD = @システムCD
	AND TMSメッセージ送信F.アプリケーションCD = @アプリケーションCD
	AND TMSメッセージ送信F.連携DB名 = @連携DB名
	AND TMSメッセージ送信F.送信ユーザー区分 = @送信ユーザー区分
	AND TMSメッセージ送信F.送信ユーザーID = @送信ユーザーID
	AND TMSメッセージ送信F.送信Seq = @送信Seq




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO




CREATE PROCEDURE dbo.SPLメッセージ受信一覧
@システムCD varchar(12), @アプリケーションCD varchar(12), @連携DB名 varchar(64)
, @受信ユーザー区分 int
, @受信ユーザーID varchar(12)

AS

SELECT TMSメッセージ受信F.システムCD
	, TMSメッセージ受信F.アプリケーションCD
	, TMSメッセージ受信F.受信ユーザー区分
	, TMSメッセージ受信F.受信ユーザーID
	, TMSメッセージ受信F.受信Seq
	, TMSメッセージ受信F.送信ユーザー区分
	, TMSメッセージ受信F.送信ユーザーID
	, TMSメッセージ受信F.送信Seq
	, TMSメッセージ送信F.送信日時
	, TMSメッセージ送信F.表題
--	, TMSメッセージ送信F.本文
	, TMSメッセージ送信F.対象演習CD
	, TMSメッセージ送信F.対象グループCD
	, TMSメッセージ受信F.未読フラグ
	, TMSメッセージ受信F.削除フラグ
FROM TMSメッセージ受信F
INNER JOIN TMSメッセージ送信F
	ON TMSメッセージ受信F.システムCD = TMSメッセージ送信F.システムCD
	AND TMSメッセージ受信F.アプリケーションCD = TMSメッセージ送信F.アプリケーションCD
	AND TMSメッセージ受信F.連携DB名 = TMSメッセージ送信F.連携DB名
	AND TMSメッセージ受信F.送信ユーザー区分 = TMSメッセージ送信F.送信ユーザー区分
	AND TMSメッセージ受信F.送信ユーザーID = TMSメッセージ送信F.送信ユーザーID
	AND TMSメッセージ受信F.送信Seq = TMSメッセージ送信F.送信Seq
WHERE TMSメッセージ受信F.システムCD = @システムCD
	AND TMSメッセージ受信F.アプリケーションCD = @アプリケーションCD
	AND TMSメッセージ受信F.連携DB名 = @連携DB名
	AND TMSメッセージ受信F.受信ユーザー区分 = @受信ユーザー区分
	AND TMSメッセージ受信F.受信ユーザーID = @受信ユーザーID
ORDER BY TMSメッセージ送信F.送信日時 DESC
	, TMSメッセージ受信F.受信Seq DESC





GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO




CREATE PROCEDURE dbo.SPLメッセージ送信一覧
@システムCD varchar(12), @アプリケーションCD varchar(12), @連携DB名 varchar(64)
, @送信ユーザー区分 int
, @送信ユーザーID varchar(12)

AS

SELECT TMSメッセージ送信F.システムCD
	, TMSメッセージ送信F.アプリケーションCD
	, TMSメッセージ送信F.送信ユーザー区分
	, TMSメッセージ送信F.送信ユーザーID
	, TMSメッセージ送信F.送信Seq
	, TMSメッセージ送信F.送信日時
	, TMSメッセージ送信F.表題
--	, TMSメッセージ送信F.本文
	, TMSメッセージ送信F.対象演習CD
	, TMSメッセージ送信F.対象グループCD
	, TMSメッセージ送信F.削除フラグ
FROM TMSメッセージ送信F
WHERE TMSメッセージ送信F.システムCD = @システムCD
	AND TMSメッセージ送信F.アプリケーションCD = @アプリケーションCD
	AND TMSメッセージ送信F.連携DB名 = @連携DB名
	AND TMSメッセージ送信F.送信ユーザー区分 = @送信ユーザー区分
	AND TMSメッセージ送信F.送信ユーザーID = @送信ユーザーID
ORDER BY TMSメッセージ送信F.送信日時 DESC
	, TMSメッセージ送信F.送信Seq DESC




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO




CREATE PROCEDURE dbo.SPLメッセージ送信先一覧
@システムCD varchar(12), @アプリケーションCD varchar(12), @連携DB名 varchar(64)
, @送信ユーザー区分 int
, @送信ユーザーID varchar(12)
, @送信Seq int

AS

SELECT TMSメッセージ送信F.システムCD
	, TMSメッセージ送信F.アプリケーションCD
	, TMSメッセージ送信F.送信ユーザー区分
	, TMSメッセージ送信F.送信ユーザーID
	, TMSメッセージ送信F.送信Seq
	, TMSメッセージ受信F.受信ユーザー区分
	, TMSメッセージ受信F.受信ユーザーID
FROM TMSメッセージ送信F
INNER JOIN TMSメッセージ受信F
	ON TMSメッセージ送信F.システムCD = TMSメッセージ受信F.システムCD
	AND TMSメッセージ送信F.アプリケーションCD = TMSメッセージ受信F.アプリケーションCD
	AND TMSメッセージ送信F.連携DB名 = TMSメッセージ受信F.連携DB名
	AND TMSメッセージ送信F.送信ユーザー区分 = TMSメッセージ受信F.送信ユーザー区分
	AND TMSメッセージ送信F.送信ユーザーID = TMSメッセージ受信F.送信ユーザーID
	AND TMSメッセージ送信F.送信Seq = TMSメッセージ受信F.送信Seq
WHERE TMSメッセージ送信F.システムCD = @システムCD
	AND TMSメッセージ送信F.アプリケーションCD = @アプリケーションCD
	AND TMSメッセージ送信F.連携DB名 = @連携DB名
	AND TMSメッセージ送信F.送信ユーザー区分 = @送信ユーザー区分
	AND TMSメッセージ送信F.送信ユーザーID = @送信ユーザーID
	AND TMSメッセージ送信F.送信Seq = @送信Seq
ORDER BY TMSメッセージ受信F.受信ユーザーID




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO




CREATE PROCEDURE dbo.SPLメッセージ開封
@システムCD varchar(12), @アプリケーションCD varchar(12), @連携DB名 varchar(64)
, @受信ユーザー区分 int
, @受信ユーザーID varchar(12)
, @受信Seq int

AS

begin transaction

UPDATE TMSメッセージ受信F
SET 未読フラグ = '0'
WHERE TMSメッセージ受信F.システムCD = @システムCD
	AND TMSメッセージ受信F.アプリケーションCD = @アプリケーションCD
	AND TMSメッセージ受信F.連携DB名 = @連携DB名
	AND TMSメッセージ受信F.受信ユーザー区分 = @受信ユーザー区分
	AND TMSメッセージ受信F.受信ユーザーID = @受信ユーザーID
	AND TMSメッセージ受信F.受信Seq = @受信Seq

if @@error <> 0 
begin
	rollback transaction
	select -1
	return
end

commit transaction




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO




CREATE PROCEDURE dbo.SPTメッセージ受信
@システムCD varchar(12), @アプリケーションCD varchar(12), @連携DB名 varchar(64)
, @受信ユーザー区分 int
, @受信ユーザーID varchar(12)
, @送信ユーザー区分 int
, @送信ユーザーID varchar(12)
, @送信Seq int

AS

declare @番号 int

begin transaction

--採番
if exists(SELECT 受信Seq FROM TMSメッセージ受信F WHERE システムCD = @システムCD AND アプリケーションCD = @アプリケーションCD AND 連携DB名 = @連携DB名 AND 受信ユーザー区分 = @受信ユーザー区分 AND 受信ユーザーID = @受信ユーザーID)
begin
	SELECT @番号 = (SELECT MAX(受信Seq) FROM TMSメッセージ受信F WHERE システムCD = @システムCD AND アプリケーションCD = @アプリケーションCD AND 連携DB名 = @連携DB名 AND 受信ユーザー区分 = @受信ユーザー区分 AND 受信ユーザーID = @受信ユーザーID)
	SELECT @番号 = @番号 + 1	
end
else
begin
	SELECT @番号 = 1
end 

INSERT INTO TMSメッセージ受信F (システムCD, アプリケーションCD, 連携DB名
	, 受信ユーザー区分
	, 受信ユーザーID
	, 受信Seq
	, 送信ユーザー区分
	, 送信ユーザーID
	, 送信Seq
	, 未読フラグ
	, 削除フラグ)
VALUES (@システムCD, @アプリケーションCD, @連携DB名
	, @受信ユーザー区分
	, @受信ユーザーID
	, @番号
	, @送信ユーザー区分
	, @送信ユーザーID
	, @送信Seq
	, '1'
	, '0')

if @@error <> 0 
begin
	rollback transaction
	select -1
	return
end

commit transaction




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO




CREATE PROCEDURE dbo.SPTメッセージ送信
@システムCD varchar(12), @アプリケーションCD varchar(12), @連携DB名 varchar(64)
, @送信ユーザー区分 int
, @送信ユーザーID varchar(12)
, @表題 varchar(100)
, @本文 varchar(8000)
, @対象演習CD varchar(12)
, @対象グループCD varchar(12)

AS

declare @番号 int

begin transaction

--採番
if exists(SELECT 送信Seq FROM TMSメッセージ送信F WHERE システムCD = @システムCD AND アプリケーションCD = @アプリケーションCD AND 連携DB名 = @連携DB名 AND 送信ユーザー区分 = @送信ユーザー区分 AND 送信ユーザーID = @送信ユーザーID)
begin
	SELECT @番号 = (SELECT MAX(送信Seq) FROM TMSメッセージ送信F WHERE システムCD = @システムCD AND アプリケーションCD = @アプリケーションCD AND 連携DB名 = @連携DB名 AND 送信ユーザー区分 = @送信ユーザー区分 AND 送信ユーザーID = @送信ユーザーID)
	SELECT @番号 = @番号 + 1	
end
else
begin
	SELECT @番号 = 1
end 

INSERT INTO TMSメッセージ送信F (システムCD, アプリケーションCD, 連携DB名
	, 送信ユーザー区分
	, 送信ユーザーID
	, 送信Seq
	, 送信日時
	, 表題
	, 本文
	, 対象演習CD
	, 対象グループCD
	, 削除フラグ)
VALUES (@システムCD, @アプリケーションCD, @連携DB名
	, @送信ユーザー区分
	, @送信ユーザーID
	, @番号
	, GETDATE()
	, @表題
	, @本文
	, @対象演習CD
	, @対象グループCD
	, '0')

if @@error <> 0 
begin
	rollback transaction
	select -1
	return
end

commit transaction

SELECT @番号




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO