set ANSI_NULLS ON
set QUOTED_IDENTIFIER ON
GO






ALTER  PROCEDURE [dbo].[STPCreatePerson]

		@AccountCode int,
		@GroupId1 int , 
		@GroupId2 int , 
		@VisitorPer real, 
		@Comment nvarchar(1000), 
		@Introducer nvarchar(1000), 
		@Code bigint =0,   
		@ContactId int,
		@SalePriceNo int,
		@VisitorCostAcc int,
		@VisitorBaseAmmount money,
		@VisitorIncreaseAmmount money,
		@VisitorIncreasePer real,
		@VisitorAutoDoc bit,
		@VisitorGoodActiveStat smallint,
		@VisitorPerActiveStat bit,
		@VisitorGoodGroupCode int
		 
AS


	if @groupid1=0 set @groupid1=null
	if @groupid2=0 set @groupid2=null
if @contactId=0 set @contactId=null

	if @Code=0 set @Code=null
if not @code is null	if exists(select code from persontbl where code=@code) 	raiserror (50101,16,1)   -- Duplicate code
INSERT INTO PersonTbl
(FK_AccountSysCode, GroupId1, GroupId2, VisitorPer, Comment
, Introducer, Code, SalePriceNo, ContactId
,VisitorCostAcc,VisitorBaseAmmount,VisitorIncreaseAmmount
,VisitorIncreasePer,VisitorAutoDoc,VisitorGoodActiveStat,VisitorPerActiveStat,VisitorGoodGroupCode)
	VALUES     
(@AccountCode,@GroupId1,@GroupId2,@VisitorPer,@Comment
,@Introducer,@Code,@SalePriceNo,@ContactId
,@VisitorCostAcc,@VisitorBaseAmmount,@VisitorIncreaseAmmount
,@VisitorIncreasePer,@VisitorAutoDoc,@VisitorGoodActiveStat,@VisitorPerActiveStat,@VisitorGoodGroupCode)