AMS - VB

ALTER PROCEDURE dbo.TR_REQUEST_SHOP_DOC_Del

@REQ_ID	varchar(15)

AS

	DECLARE @ERRORSYS NVARCHAR(15) = '' 

	IF ( NOT EXISTS ( SELECT * FROM TR_REQUEST_SHOP_DOC WHERE  REQ_ID= @REQ_ID))

		SET @ERRORSYS = 'REQ-00002'

	IF @ERRORSYS <> ''

	BEGIN

		SELECT ErrorCode Result, ErrorDesc ErrorDesc FROM SYS_ERROR WHERE ErrorCode = @ERRORSYS 

		RETURN '0'

	END

	IF ( NOT EXISTS( SELECT 1 FROM TR_REQUEST_SHOP_DOC WHERE  REQ_ID= @REQ_ID AND AUTH_STATUS IN ('E','R')))

	BEGIN

		SELECT '-1' Result, N'Phiếu đang được gửi phê duyệt. Xoá thất bại' ErrorDesc 

		RETURN '0'

	END

BEGIN TRANSACTION

	IF( (SELECT AUTH_STATUS FROM TR_REQUEST_SHOP_DOC WHERE  REQ_ID= @REQ_ID) = 'A')

	BEGIN

		UPDATE TR_REQUEST_SHOP_DOC SET RECORD_STATUS = '0'

		WHERE  REQ_ID= @REQ_ID

		IF @@Error <> 0 GOTO ABORT

		--UPDATE DETAIL

		UPDATE TR_REQUEST_SHOP_DOC_DT SET RECORD_STATUS = '0' WHERE REQ_DOC_ID = @REQ_ID

	END

	ELSE

	BEGIN

    IF(EXISTS(SELECT 1 FROM TR_REQUEST_SHOP_DOC WHERE AUTH_STATUS IN ('E','R')))

    BEGIN

    		Delete FROM TR_REQUEST_SHOP_DOC WHERE  REQ_ID= @REQ_ID

    		delete FROM TR_REQUEST_SHOP_DOC_DT WHERE REQ_DOC_ID=@REQ_ID

    END

		IF @@Error <> 0 GOTO ABORT

	END

COMMIT TRANSACTION

SELECT '0' as Result, '' ErrorDesc, N'Xoá thành công' SuccessfullyDeleted

RETURN '0'

ABORT:

BEGIN

		ROLLBACK TRANSACTION

		SELECT '-1' as Result, '' ErrorDesc

		RETURN '-1'

End