delete vs4tsystem WHERE tsysname='DecimalDiscountAP'
GO
insert into vs4tsystem (tsysid,tsysname,tsystext,tsysvalue,tsysflag1) values (-1,'DecimalDiscountAP','',1,1)
GO
update vs4tsystem set tsysid=(select max(tsysid)+1 from vs4tsystem) where tsysid=-1
GO

delete vs4tsystem WHERE tsysname='DecimalDiscountAR'
GO
insert into vs4tsystem (tsysid,tsysname,tsystext,tsysvalue,tsysflag1) values (-1,'DecimalDiscountAR','',1,1)
GO
update vs4tsystem set tsysid=(select max(tsysid)+1 from vs4tsystem) where tsysid=-1
GO