CREATE TRIGGER [dbo].[TI_Row_Make] ON [dbo].[TmpHavaleh]
For Insert
AS 
 Declare @Make_Anbar        Varchar(5)
 Set     @Make_Anbar        ='09999'
 Declare @msg_num           Numeric(18,0)
 Declare @Last_AutoId       BigInt
 Declare @TmpIdHavaleh      Numeric(18,0)
 Declare @TmpK_Code         varchar(15)
 Declare @TmpQty            Real
 Declare @Link_Record       bigint
 Declare @Auto_Id           Bigint
 Declare @TotPriceTolid     Money

----------------------------------------------------------------------------------------------------------------
--  ݍ 

 Declare @F_Sender           Varchar(5)
 Declare @F_K_Code           Varchar(15)
 Declare @F_ACC              REAL
 Declare @F_ACC1             REAL
 Declare @F_EditQty_Flag     Flag
 Declare @F_Make_Flag        Flag
 Declare @KindFactor         Char(1)
 Declare @KindSave           Char(1)

-- ǐ ј       ǐ     
Select @KindFactor = TmpH.Kind_Flag , @KindSave =  TmpH.Kind_Save From TmpHeadH  TmpH Inner Join Inserted I On(TmpH.Id_Havaleh = I.Id_Havaleh)
Where TmpH.Id_Havaleh = I.Id_Havaleh
Group By  TmpH.Kind_Flag, TmpH.Kind_Save
IF (@KindFactor = '1' and @KindSave in('9','8')) And (@KindFactor not in(3,4))
Begin
   IF ((Select Make_Flag From inserted) = 1) and ((Select Len(Sender) From inserted) = 5 or (Select Len(Reciver) From inserted) = 5)
   Begin
      Select @TmpIdHavaleh=Id_Havaleh , @TmpK_Code=K_Code , @TmpQty=K_Qty1 , 
                @Link_Record=Link_Record , @Auto_Id=AutoId  From Inserted

      DECLARE MakeD_Kala  CURSOR  LOCAL FOR
      SELECT    dbo.Make_Kala.Sender, dbo.Make_Kala.K_Code_M, dbo.Make_Kala.Account_unit1,dbo.Make_Kala.EditQty_Flag, dbo.KalaId.Make_Flag
      FROM       dbo.Make_Kala INNER JOIN dbo.KalaId ON dbo.Make_Kala.K_Code_M = dbo.KalaId.K_Code
      WHERE     dbo.Make_Kala.K_Code = @TmpK_Code

      OPEN MakeD_Kala
      SET @TotPriceTolid=0
      FETCH NEXT FROM MakeD_Kala  INTO @F_Sender , @F_K_Code , @F_ACC , @F_EditQty_Flag, @F_Make_Flag
      
      WHILE @@FETCH_STATUS = 0     
       BEGIN 
           SET @F_ACC1=@F_ACC
           IF @F_EditQty_Flag=1  Set @F_ACC= @TmpQty*@F_ACC

           Exec   Add_One_Kala   @msg_num,@Last_AutoId,@TmpIdHavaleh ,    @F_Sender   ,   @Make_Anbar ,  @F_K_Code  ,   @F_ACC  ,  1,   @Auto_Id  , @KindSave
           Select @TotPriceTolid = @Last_AutoId
           FETCH NEXT FROM MakeD_Kala INTO @F_Sender , @F_K_Code , @F_ACC , @F_EditQty_Flag,@F_Make_Flag
       End
       CLOSE MakeD_Kala
       DEALLOCATE MakeD_Kala
       
       IF @KindSave = '9'
       Begin
	     
	     Select @TotPriceTolid = (Select Sum(Price_Kharid * K_Qty1) From TmpHavaleh 
  						  Inner Join TmpHeadH on Tmpheadh.Id_Havaleh = TmpHavaleh.Id_Havaleh 								  Where Link_Record = @Auto_Id And kind_Save = @KindSave)

	     	       
		 SELECT  @TotPriceTolid = @TotPriceTolid/K_Qty1 FROM tmphavaleh
		 Where AutoId = @Auto_Id
  
		 Update TmpHavaleh Set Price_KHarid = @TotPriceTolid
		 Where AutoId = @Auto_Id
	       
		 Update Anbar Set Price_Kharid = @TotPriceTolid Where K_Code = @TmpK_Code 
       End

       IF @KindSave = '8'
       Begin
         select  @TotPriceTolid=Price_kharid from TmpHavaleh
         Where AutoId = @Auto_Id

		UPDATE Tmphavaleh SET Price_KHarid = T.Rasio FROM dbo.TmpHavaleh 
		INNER JOIN 
		(
			SELECT Tmphavaleh.Autoid, 
			CASE
			  WHEN ISNULL(PriceRasio,0) =  0 THEN @TotPriceTolid
			  ELSE @TotPriceTolid * PriceRasio
			END AS Rasio  FROM tmphavaleh 
			INNER JOIN dbo.Make_Kala ON tmphavaleh.K_Code = dbo.Make_Kala.K_Code_M
			INNER JOIN tmpheadh ON Tmpheadh.Id_Havaleh = dbo.TmpHavaleh.Id_Havaleh
			WHERE kind_Save = @KindSave AND Link_Record = @Auto_Id 
		) AS T ON T.AutoId = Tmphavaleh.AutoId

		UPDATE Anbar SET Price_KHarid = T.rasio FROM dbo.Anbar
		INNER JOIN 
		(
			SELECT Tmphavaleh.K_Code, 
			CASE
			  WHEN ISNULL(PriceRasio,0) =  0 THEN @TotPriceTolid
			  ELSE @TotPriceTolid * PriceRasio
			END AS Rasio		
			FROM tmphavaleh 
			INNER JOIN dbo.Make_Kala ON tmphavaleh.K_Code = dbo.Make_Kala.K_Code_M
			INNER JOIN tmpheadh ON Tmpheadh.Id_Havaleh = dbo.TmpHavaleh.Id_Havaleh
			WHERE kind_Save = @KindSave AND Link_Record = @Auto_Id 
		) AS T ON T.K_Code = Anbar.K_Code
       End
   End
End
