set ANSI_NULLS ON
set QUOTED_IDENTIFIER ON
GO
ALTER PROCEDURE [dbo].[STPEditPerson]  

		@GroupId1 int, 
		@GroupId2 int, 
		@VisitorPer real, 
		@Comment nvarchar(1000), 
		@Introducer nvarchar(1000), 
		@Code bigint ,  
		@SalePriceNo int,
		@contactId int,
		@accountCode 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 and FK_AccountSysCode <> @accountCode) 	raiserror (50101,16,1)   -- Duplicate code
UPDATE    PersonTbl
SET  GroupId1 = @GroupId1, GroupId2 = @GroupId2, VisitorPer = @VisitorPer, Comment = @Comment, Introducer = @Introducer, Code = @Code, 
	SalePriceNo = @SalePriceNo, ContactId = @ContactId,VisitorBaseAmmount=@VisitorBaseAmmount,
	VisitorIncreaseAmmount=@VisitorIncreaseAmmount,VisitorIncreasePer=@VisitorIncreasePer,
	VisitorAutoDoc=@VisitorAutoDoc,VisitorGoodActiveStat=@VisitorGoodActiveStat,
	VisitorPerActiveStat=@VisitorPerActiveStat,VisitorCostAcc=@VisitorCostAcc
	,VisitorGoodGroupCode=@VisitorGoodGroupCode
WHERE     (FK_AccountSysCode = @accountCode)