Block encoding of transactions to diff whse & w/ same items in one document

Question

Hi,
i need to block all transactions encoded in inventory transactions if their warehouse is different and also if same items are in the same documents. Could you help me with the script? I want to have this in SP_transaction notification but i dont have the script .
I found a script in this forum related to having same items in the sam document but does not apply to inventory transfer, could someone help me how this can be attached in inventory transfer document. The original script is referring to PO, i just change the objecttype and the table name to work for invty transfer but it still accepting same items in invty transfer.
Here's the script:
--Invty transfer
if @object_type = N'67' and @transaction_type in (N'A', N'U')
begin
declare @line1 int
declare @lin1 int
declare @out1 int
Set @out1 = 0
SET @lin1 = 0
Declare @Vend as varchar(200)
Declare @ItemCode as varchar(200)
Select @Vend = CardCode From OWTR Where DocEntry = @list_of_cols_val_tab_del
Select @line1 = Max (LineNum)FROM WTR1 WHERE WTR1.DocEntry = @list_of_cols_val_tab_del
While @lin1 < @line1
Begin
     Select @ItemCode=ItemCode From WTR1 Where DocEntry=@list_of_cols_val_tab_del and LineNum = @lin1
      if (SELECT COUNT(T0.DocEntry) FROM WTR1 T0 inner join OWTR T1 on T0.DocEntry = T1.DocEntry
      WHERE T0.ItemCode = @ItemCode and T1.CardCode = @Vend and T1.[DocStatus] = 'O')> 1
      Begin
           Set @Out1 = 1
           Break;
      END
           Else
           Begin
           Set @lin1 = @lin1+1
           Continue
      END
END
Set @lin1 = @lin1 + 1
if @out1 = 1
begin
      Set @error = 1
      Set @error_message = 'Item Code in line ' + CONVERT(nvarchar(4), @lin1) + N'already Exists For This Vendor!'
End
END
Thanks.

Answer 1

Hi,
Welcome you post on the forum.
You may try,
IF @object_type = N'67' and @transaction_type in (N'A', N'U')
BEGIN
IF Exists (Select T0.ItemCode, count(T0.ItemCode) From WTR1 T0 inner join OWTR T1 on T0.DocEntry = T1.DocEntry
Where DocEntry=@list_of_cols_val_tab_del
Group BY T0.ItemCode Having count(T0.ItemCode)> 1)
Begin
Set @error = 1
Set @error_message = 'Item Code more than once!'
End
END
Thanks,
Gordon