CREATE PROCEDURE EntWorkSpaceActionEdit

	 @EntWorkSpaceActionID INT,
	 @TypeAction int, 
	 @StuffID int, 
	 @EntStuffID int, 
	 @DateOperation datetime, 
	 @hUnit int, 
	 @hUploader varchar ( 100 ), 
	 @Qnty float, 
	 @Topic varchar ( 150 ), 
	 @hParty int, 
	 @invoiceNum varchar ( 60 ), 
	 @hInvoice int, 
         @Uploaders Varchar( 50 ),
         @OnOrders Varchar( 100 ),
         @Blocked int =  0 ,
         @OnReserved Int =  0 ,
         @ReservedID Int =  0 ,
         @OrdrID Int =  0 ,
         @PartyNum Varchar( 50 ) = '0',
         @EntStuffWorkSpaceID int =  0 ,
         @RearEntrance Int =  0 ,  -- Черный ход
 
         @R3Num varchar( 60 ) = '',
         @NormQnty float =  0 ,
         @EntMixingActID int =  0 ,
	 @MasterMixsingMaterial int =  0 ,
         @StatusParty int =  1 ,
         @MasterEntWorkSpaceActionID INT =  0 ,  -- поле для определения зависимости расхода от прихода
 
         @NeedControlParty int =  0 
AS

Declare @LastIdentity Int 
Select @LastIdentity =  0 
IF @StatusParty is NULL Select @StatusParty =  1 
IF @EntMixingActID is Null Select @EntMixingActID =  0 
IF @MasterMixsingMaterial is Null Select @MasterMixsingMaterial =  0 
IF @MasterEntWorkSpaceActionID is Null Select @MasterEntWorkSpaceActionID =  0 

Select @Qnty = Round(@Qnty, 4 )  -- Округляем количество до 4 знаков ....
 


IF (Select Blocked from EntWorkSpaceAction where EntWorkSpaceActionID  = @EntWorkSpaceActionID) =  1 
 BEGIN
	     RAISERROR ('Запись заблокирована. ', 16 , 10 ) 
	     RETURN
 END

IF @EntStuffWorkSpaceID =  0  
	   BEGIN
	     RAISERROR ('В программе сделаны изменения. Перезапустите программу', 16 , 10 ) 
	     RETURN
	   END



IF @EntWorkSpaceActionID =  0  
BEGIN
 --=====================================================================================
 
IF @ReservedID >  0   --Проверяем не резерв ли это И обрабатываем соответственно.
 
BEGIN
	IF @TypeAction =  2 
	 BEGIN
	  IF (dbo.EntRestOnStuffWControlParty(@EntStuffID,@StuffID, 1 )-@Qnty) < 0  
	   BEGIN
	     RAISERROR ('Добавить расход из резерва невозможно. Это приведет к отрицательному остатку.Отредактируйте количество выдачи.', 16 , 10 ) 
	     RETURN
	   END
         --(((((((((((((((((((((((((((((((((((((((
 
          Select @Blocked =  1 
          IF  (select Qnty from EntWorkSpaceAction where EntWorkSpaceActionID = @EntWorkSpaceActionID) > @Qnty
	   BEGIN
	     RAISERROR ('Выдать из резерва невозможно. Вы пытаетесь выдать больше чем зарезервировано.', 16 , 10 ) 
	     RETURN
	   END

          exec EntUpdateReservedCount @ReservedID,@Qnty
          
         --(((((((((((((((((((((((((((((((((((((((
 
	END
END
IF @ReservedID =  0    -- Обработка обычного расхода
 
BEGIN
	IF @TypeAction =  2  and @StatusParty =  1 
        BEGIN
         IF @RearEntrance =  0   -- Черный ход выключен
 
             BEGIN
	     IF (dbo.EntRestOnStuffWControlParty(@EntStuffID,@StuffID, 1 ) - dbo.EntReserveOnStuff(@EntStuffID,@StuffID) - @Qnty) < 0  
	           BEGIN
                   RAISERROR ('Добавить расход невозможно. Это приведет к отрицательному остатку', 16 , 10 ) 
 	           RETURN
                   END
	     END
         IF @RearEntrance =  1   -- Черный ход включен (для перемещений между складами без учета резерва)
 
             BEGIN
	     IF (dbo.EntRestOnStuffWControlParty(@EntStuffID,@StuffID, 1 ) - @Qnty) < 0  
	           BEGIN
                   RAISERROR ('Добавить расход невозможно. Это приведет к отрицательному остатку', 16 , 10 ) 
 	           RETURN
                   END
	     END
        END
	IF @TypeAction =  2  and @StatusParty <>  1   -- Выдаем партию попартийно.
 
        BEGIN
          IF @StatusParty =  0 
         	   BEGIN
                   RAISERROR ('Партия непроверена. Расход невозможен.', 16 , 10 ) 
 	           RETURN
                   END
          IF @StatusParty >  1 
         	   BEGIN
                   IF @Qnty > (Select Qnty from EntWorkSpaceAction where EntWorkSpaceActionID = @MasterEntWorkSpaceActionID) - (Select ISNULL(SUM(QNTY), 0 ) from EntWorkSpaceAction where Typeaction =  2  and MasterEntWorkSpaceActionID = @MasterEntWorkSpaceActionID)
                      BEGIN
                       Select @Qnty = (Select Qnty from EntWorkSpaceAction where EntWorkSpaceActionID = @MasterEntWorkSpaceActionID) - (Select ISNULL(SUM(QNTY), 0 ) from EntWorkSpaceAction where Typeaction =  2  and MasterEntWorkSpaceActionID = @MasterEntWorkSpaceActionID)
                       IF @Qnty =  0  or @QNTY < 0 
                          BEGIN
		                   RAISERROR ('Эта партия выдана.', 16 , 10 ) 
 	        		   RETURN
                          END
                      END
                   END
        END
END



 IF (@Qnty <=  0  )
   BEGIN
     RAISERROR ('Неверно указано количество материала.', 16 , 10 ) 
     RETURN
   END

 --=====================================================================================
 
 --=====================================================================================
 
 --IF @TypeAction = 3
 
 -- BEGIN
 
 --  IF (dbo.EntRestOnStuff(@EntStuffID,@StuffID) - @Qnty) <0 
 
 --   BEGIN
 
 --     RAISERROR ('Добавить резерв невозможно. Это приведет к отрицательному остатку',16,10) 
 
 --     RETURN
 
 --   END
 
 --END
 
 --=====================================================================================
 
 --IF @PartyNum<>'' Select @StatusParty = 1
 
IF @NeedControlParty =  1  and @TypeAction <>  2  Select @StatusParty =  0   --Контроль партии на расходе неможнт существовать.
 
IF @StatusParty= 0  and @TypeAction =  2  Select @StatusParty =  1  --Контроль партии на расходе неможнт существовать.
 
IF @StatusParty= 0  and @TypeAction =  3  Select @StatusParty =  1  --Контроль партии на расходе неможнт существовать.
 

INSERT EntWorkSpaceAction (
	 [EntStuffWorkSpaceID],
	 [TypeAction],
	 [StuffID],
	 [EntStuffID],
	 [DateOperation],
	 [hUnit],
	 [hUploader],
	 [Qnty],
	 [Topic],
	 [hParty],
	 [invoiceNum],
	 [hInvoice],
	 [Blocked],
	 [OnOrders],
	 [OnReserved],
	 [OrdrID],
	 [PartyNum],
         realDateOperation,
         R3Num,
         NormQnty,
         EntMixingActID,
         MasterMixsingMaterial,
         StatusParty,
         MasterEntWorkSpaceActionID,
         NeedControlParty
	)
VALUES (
	 @EntStuffWorkSpaceID,
	 @TypeAction,
	 @StuffID,
	 @EntStuffID,
	 @DateOperation,
	 @hUnit,
	 @hUploader,
	 @Qnty,
	 @Topic,
	 @hParty,
	 @invoiceNum,
	 @hInvoice,
	 @Blocked,
	 @OnOrders,
	 @OnReserved,
	 @OrdrID,
	 @PartyNum,
         GetDate(),
         @R3Num,
         @NormQnty,
         @EntMixingActID,
         @MasterMixsingMaterial,
         @StatusParty,
         @MasterEntWorkSpaceActionID,
         @NeedControlParty
	)

Select @LastIdentity = @@IDentity
END

IF @EntWorkSpaceActionID >  0  
BEGIN
IF (Select Blocked from EntWorkSpaceAction where EntWorkSpaceActionID = -@EntWorkSpaceActionID)> 0  
   BEGIN
     RAISERROR ('Редактирование невозможно.Запись заблокирована. (Либо выдача из резерва, либо требуется контроль партии ', 16 , 10 ) 
   RETURN
   END
 IF (@Qnty <=  0  )
   BEGIN
     RAISERROR ('Неверно указано количество материала.', 16 , 10 ) 
     RETURN
   END


UPDATE EntWorkSpaceAction SET
	 [TypeAction] = @TypeAction,
	 [DateOperation] = @DateOperation,
	 [hUnit] = @hUnit,
	 [hUploader] = @hUploader,
	 [Qnty] = @Qnty,
	 [Topic] = @Topic,
	 [hParty] = @hParty,
	 [invoiceNum] = @invoiceNum,
         OnOrders=@OnOrders,
         OnReserved=@OnReserved,
         OrdrID=@OrdrID,
 --         PartyNum=@PartyNum,
 
         realDateOperation = GetDate(),
         R3Num = @R3Num,
         NormQnty = @NormQnty
WHERE  	 [EntWorkSpaceActionID] = @EntWorkSpaceActionID

 -- Обнуляем партию если это обычный приход.
 
IF @PartyNum = '' 
UPDATE EntWorkSpaceAction 
SET  StatusParty =  1  where [EntWorkSpaceActionID] = @EntWorkSpaceActionID

Select @LastIdentity = @EntWorkSpaceActionID
END

IF @EntWorkSpaceActionID <  0  
BEGIN
 --=====================================================================================
 
 --IF @TypeAction = 3
 
 -- BEGIN
 
 --  IF (dbo.EntRestOnStuff(@EntStuffID,@StuffID) - @Qnty) <0 
 
 --   BEGIN
 
 --     RAISERROR ('Удаление невозможно. Это приведет к отрицательному остатку',16,10) 
 
 --   RETURN
 
 --   END
 
 --END
 
 --=====================================================================================
 
 --=====================================================================================
 
IF @TypeAction =  2 
 BEGIN
 --  IF (dbo.EntRestOnStuff(@EntStuffID,@StuffID) - @Qnty) <0 
 
 --   BEGIN
 
 --     RAISERROR ('Удаление невозможно. Это приведет к отрицательному остатку',16,10) 
 
 --   RETURN
 
 --   END
 
 IF (Select Blocked from EntWorkSpaceAction where  [EntWorkSpaceActionID] = -@EntWorkSpaceActionID) =  1 
    BEGIN
    RAISERROR ('Эта запись заблокирована. ', 16 , 10 ) 
    RETURN
    END
END
 --=====================================================================================
 
 --=====================================================================================
 
IF @TypeAction =  1 
 BEGIN
  IF (Select dbo.EntRestOnStuff(@EntStuffID,@StuffID) - @Qnty) < 0  
   BEGIN
     RAISERROR ('Удаление невозможно. Это приведет к отрицательному остатку ', 16 , 10 ) 
   RETURN
   END
END

IF (Select hInvoice from EntWorkSpaceAction where EntWorkSpaceActionID = -@EntWorkSpaceActionID)> 0  
   BEGIN
     RAISERROR ('Удаление невозможно.На эту позицию выписна накладная. (расходная либо приходная) ', 16 , 10 ) 
   RETURN
   END

IF (Select Blocked from EntWorkSpaceAction where EntWorkSpaceActionID = -@EntWorkSpaceActionID)> 0  
   BEGIN
     RAISERROR ('Удаление невозможно.Либо из резерва, либо требуется контроль в лаборатории. ', 16 , 10 ) 
   RETURN
   END

Delete from EntWorkSpaceAction where  [EntWorkSpaceActionID] = -@EntWorkSpaceActionID
Select @LastIdentity =  0 
END


Select 'ID' = @LastIdentity
GO