USE [coolest_company]
GO
/****** Object:  StoredProcedure [dbo].[csp_createprojecttodos]    Script Date: 2018-06-18 09:09:48 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
-- =============================================
-- Author:		Joakim Johansson
-- Create date: 2018-06-15
-- Comment:		This procedure is called from VBA ActionPadTools.CreateProjectTodos
-- =============================================
ALTER PROCEDURE [dbo].[csp_createprojecttodos]
(
	@@deal INT,
	@@occupationdate DATE
)
AS
BEGIN
	-- FLAG_EXTERNALACCESS --

	-- SET NOCOUNT ON added to prevent extra result sets from
	-- interfering with SELECT statements.
	SET NOCOUNT ON;

	-- create todos related to the project
	BEGIN
		INSERT INTO [todo]
		(
			[status]
			,[createduser]
			,[createdtime]
			,[updateduser]
			,[timestamp]
			,[subject]
			,[coworker]
			,[starttime]
		--	,[endtime]
			,[todostatus]
			,[note]
			,[deal]
		)
		SELECT
			0
			,1
			,GETDATE()
			,1
			,GETDATE()
			,(SELECT s.sv FROM [string] s WHERE s.idstring = p.[action])
			,(SELECT coworker FROM deal WHERE iddeal = @@deal)
			,CASE WHEN DATEADD(month, leadtime, @@occupationdate) < GETDATE() THEN CAST(GETDATE() AS DATE) ELSE DATEADD(month, leadtime, @@occupationdate) END
		--	,[endtime]
			,[dbo].[cfn_lc_getidstringbykey] (N'todo', N'todostatus', N'active')
			,comment
			,@@deal
		FROM projectactivity p
	END

END