Project

General

Profile

CM_GOODS_Ins.txt

Luc Tran Van, 10/26/2022 03:55 PM

 
1
ALTER PROCEDURE dbo.CM_GOODS_Ins
2
	@p_GD_CODE	varchar(150)  = NULL,
3
	@p_GD_NAME	nvarchar(200)  = NULL,
4
	@p_GD_TYPE_ID	varchar(15)  = NULL,
5
	@p_DESCRIPTION	nvarchar(2000)  = NULL,
6
	@p_SUP_ID	varchar(15)  = NULL,
7
	@p_PRICE	decimal(18)  = NULL,
8
	@p_UNIT_ID	varchar(15)  = NULL,
9
	@p_NOTES	nvarchar(1000)  = NULL,
10
	@p_RECORD_STATUS	varchar(1)  = NULL,
11
	@p_MAKER_ID	varchar(12)  = NULL,
12
	@p_CREATE_DT	VARCHAR(20) = NULL,
13
	@p_AUTH_STATUS	varchar(50)  = NULL,
14
	@p_CHECKER_ID	varchar(12)  = NULL,
15
	@p_APPROVE_DT	VARCHAR(20) = NULL,
16
	@p_MONTHLY_ALLOCATED VARCHAR(20) = NULL,
17
	@p_DVDM_ID VARCHAR(20) = NULL
18
AS
19
	DECLARE @l_GD_ID VARCHAR(15)
20

    
21
	DECLARE @ERRORSYS NVARCHAR(15) = '' 
22
	IF ( EXISTS ( SELECT * FROM CM_GOODS WHERE GD_CODE = @p_GD_CODE AND RECORD_STATUS = '1'))
23
		SET @ERRORSYS = 'CMCD-00001'	
24
	IF @ERRORSYS <> '' 
25
	BEGIN
26
		SELECT ErrorCode Result, '' ID, ErrorDesc ErrorDesc FROM SYS_ERROR WHERE ErrorCode = @ERRORSYS
27
		RETURN '0'
28
	END 
29

    
30
	
31
BEGIN TRANSACTION
32

    
33
		EXEC SYS_CodeMasters_Gen 'CM_GOODS', @l_GD_ID out
34
		IF @l_GD_ID='' OR @l_GD_ID IS NULL GOTO ABORT
35
	
36
		INSERT INTO CM_GOODS([GD_ID],[GD_CODE],[GD_NAME],[GD_TYPE_ID],[DESCRIPTION],[SUP_ID],[PRICE],[UNIT_ID],[NOTES],[RECORD_STATUS],[MAKER_ID],[CREATE_DT],[AUTH_STATUS],[CHECKER_ID],[APPROVE_DT],[MONTHLY_ALLOCATED],[DVDM_ID])
37
		VALUES(@l_GD_ID ,@p_GD_CODE ,@p_GD_NAME ,@p_GD_TYPE_ID ,@p_DESCRIPTION ,@p_SUP_ID ,@p_PRICE ,@p_UNIT_ID ,@p_NOTES ,@p_RECORD_STATUS ,@p_MAKER_ID ,CONVERT(DATETIME, @p_CREATE_DT, 103) ,@p_AUTH_STATUS ,@p_CHECKER_ID ,CONVERT(DATETIME, @p_APPROVE_DT, 103),@p_MONTHLY_ALLOCATED,@p_DVDM_ID)
38

    
39
    INSERT INTO CM_GOOD_DVDM (GD_ID, DVDM_ID)
40
    VALUES(@l_GD_ID,@p_DVDM_ID)
41
		IF @@Error <> 0 GOTO ABORT
42
		
43
COMMIT TRANSACTION
44
SELECT 0 as Result, @l_GD_ID  ID, '' ErrorDesc
45
RETURN 0
46
ABORT:
47
BEGIN
48
		ROLLBACK TRANSACTION
49
		SELECT -1 as Result, '' ID, '' ErrorDesc
50
		RETURN -1
51
End