CREATE TRIGGER updTable_ИзменениеПроданоЗаМесяцНаНовоеКоличествоТовара
ON dbo.СтрокиКороткойНакладной
FOR UPDATE
AS

DECLARE @CardID int, @OldDilerCardID int, @NewDilerCardID int, @SalerID int, @BuyerID int, @ShortAccountID int, @AccountID int, @Quantity int,
                  @OldQuantity int, @NewQuantity int, @DateOfShortAccount datetime, @DayOfChanges nvarchar( 255 ), @strSQL nvarchar ( 1024 ), 
@CurrentCostPriceOfDilerCard_RUB money, @CurrentValueOfCourseUSD money, @CurrentOurPriceOfDilerCard_RUB money


SET NOCOUNT ON

	SELECT @OldDilerCardID = КодТовара, @OldQuantity = Количество
	FROM deleted

	SELECT @NewDilerCardID = КодТовара, @NewQuantity = Количество, @ShortAccountID = КодКороткойНакладной
	FROM inserted

	 /*найдем короткую накладную, которой принадлежит данная строка короткой накладной*/ 
	SELECT @DateOfShortAccount = ДатаВыпискиНакладной, @AccountID = НомерУниверсальногоЛиста
	FROM КороткаяНакладная 
	WHERE (((КодКороткойНакладной)=@ShortAccountID))

	 /*Конвертнем дату в день (12.10.2002 станет 12)*/ 
	Set @DayOfChanges = convert(nvarchar( 255 ),Day(@DateOfShortAccount))

	 /*найдем КодТовара, который соответствовал данному КодуТовараДилера*/ 
	SELECT @CardID = КодТовара
	FROM ТоварыДилера 
	WHERE (((КодТовараДилера)=@OldDilerCardID))

BEGIN
 /*начало блока*/ 

 /*Проверка есть ли строка с данным товаром в учетном листе закупок*/ 
IF 	(EXISTS
    (
	SELECT * 
	FROM ПроданоЗаМесяц 
	WHERE (((ПроданоЗаМесяц.КодТовара)=@CardID) AND ((ПроданоЗаМесяц.НомерУниверсальногоЛиста)=@AccountID))
    )
	)
     BEGIN


	 /*Склеим строку SQL на запуск UPDATE*/ 
	Set @strSQL = N'UPDATE ПроданоЗаМесяц SET ПроданоЗаМесяц.[' + @DayOfChanges + N'] = ПроданоЗаМесяц.[' + @DayOfChanges + N'] - ' + convert(nvarchar( 255 ),@OldQuantity) + N' WHERE (((ПроданоЗаМесяц.КодТовара)=' + convert(nvarchar( 255 ),@CardID) + N') AND ((ПроданоЗаМесяц.НомерУниверсальногоЛиста)=' + convert(nvarchar( 255 ),@AccountID) + N'))'
	exec (@strSQL)


     END

 /*если же нет в закупочном учетном листе записи с таким товаром, то ничего не делаем*/ 

 /*конец блока*/ 
END




	 /*найдем КодТовара, который соответствует данному КодуТовараДилера*/ 
	SELECT @CardID = КодТовара
	FROM ТоварыДилера 
	WHERE (((КодТовараДилера)=@NewDilerCardID))

BEGIN
 /*начало блока*/ 

 /*Проверка есть ли строка с данным товаром в учетном листе закупок*/ 
IF 	(EXISTS
    (
	SELECT * 
	FROM ПроданоЗаМесяц 
	WHERE (((ПроданоЗаМесяц.КодТовара)=@CardID) AND ((ПроданоЗаМесяц.НомерУниверсальногоЛиста)=@AccountID))
    )
	)
     BEGIN
	 /*Склеим строку SQL на запуск UPDATE*/ 
	Set @strSQL = N'UPDATE ПроданоЗаМесяц SET ПроданоЗаМесяц.[' + @DayOfChanges + N'] = ПроданоЗаМесяц.[' + @DayOfChanges + N'] + ' + convert(nvarchar( 255 ),@NewQuantity) + N' WHERE (((ПроданоЗаМесяц.КодТовара)=' + convert(nvarchar( 255 ),@CardID) + N') AND ((ПроданоЗаМесяц.НомерУниверсальногоЛиста)=' + convert(nvarchar( 255 ),@AccountID) + N'))'
	exec (@strSQL)
     END

 /*если же нет в закупочном учетном листе записи с таким товаром, то ничего не делаем*/ 
ELSE
     BEGIN
	INSERT ПроданоЗаМесяц (КодТовара, НомерУниверсальногоЛиста) 
	VALUES (@CardID, @AccountID)

	 /*Склеим строку SQL на запуск UPDATE*/ 
	Set @strSQL = N'UPDATE ПроданоЗаМесяц SET ПроданоЗаМесяц.[' + @DayOfChanges + N'] = ПроданоЗаМесяц.[' + @DayOfChanges + N'] + ' + convert(nvarchar( 255 ),@NewQuantity) + N' WHERE (((ПроданоЗаМесяц.КодТовара)=' + convert(nvarchar( 255 ),@CardID) + N') AND ((ПроданоЗаМесяц.НомерУниверсальногоЛиста)=' + convert(nvarchar( 255 ),@AccountID) + N'))'
	exec (@strSQL)
     END

 /*конец блока*/ 
END


 /*Возьмем курс дня выписки накладной*/ 
SELECT @CurrentValueOfCourseUSD = КурсДолл
FROM КурсДолл
WHERE Дата = @DateOfShortAccount


 /*-----------------------------------вычитаем все OLD-----------------------------------*/ 

 /*Получим значение закупочной цены карты в рублях на сегодняшний день*/ 
SELECT @CurrentOurPriceOfDilerCard_RUB = 
					Case
							when [ЦенаЗакупки] =  0  then [ЦенаЗакупкиИсходная] * @CurrentValueOfCourseUSD
							when [ЦенаЗакупки] <>  0  then [ЦенаЗакупки]
					End
FROM Товары INNER JOIN ТоварыДилера ON (Товары.КодТовара = ТоварыДилера.КодТовара) 
WHERE (([КодТовараДилера] = @OldDilerCardID))


 /*Получим значение продажной цены карты в рублях на сегодняшний день*/ 
SELECT @CurrentCostPriceOfDilerCard_RUB = 
					Case
							when [ЦенаПрРуб] =  0  then [ЦенаПрДол] * @CurrentValueOfCourseUSD
							when [ЦенаПрРуб] <>  0  then [ЦенаПрРуб]
					End
FROM [ТоварыДилера] 
WHERE (([КодТовараДилера] = @OldDilerCardID))

 /*Необходимо изменить стоимость накладной на сумму составляющую стоимость карт текущей строки*/ 
UPDATE КороткаяНакладная
Set СуммаПоНакладнойRUB = СуммаПоНакладнойRUB - (@OldQuantity * @CurrentCostPriceOfDilerCard_RUB), 
ЗакСтПоНакладнойRUB = ЗакСтПоНакладнойRUB - (@OldQuantity * @CurrentOurPriceOfDilerCard_RUB) 
WHERE (((КодКороткойНакладной)=@ShortAccountID))


 /*-----------------------------------прибавляем все NEW-----------------------------------*/ 

 /*Получим значение закупочной цены карты в рублях на сегодняшний день*/ 
SELECT @CurrentOurPriceOfDilerCard_RUB = 
					Case
							when [ЦенаЗакупки] =  0  then [ЦенаЗакупкиИсходная] * @CurrentValueOfCourseUSD
							when [ЦенаЗакупки] <>  0  then [ЦенаЗакупки]
					End
FROM Товары INNER JOIN ТоварыДилера ON (Товары.КодТовара = ТоварыДилера.КодТовара) 
WHERE (([КодТовараДилера] = @NewDilerCardID))


 /*Получим значение продажной цены карты в рублях на сегодняшний день*/ 
SELECT @CurrentCostPriceOfDilerCard_RUB = 
					Case
							when [ЦенаПрРуб] =  0  then [ЦенаПрДол] * @CurrentValueOfCourseUSD
							when [ЦенаПрРуб] <>  0  then [ЦенаПрРуб]
					End
FROM [ТоварыДилера] 
WHERE (([КодТовараДилера] = @NewDilerCardID))

 /*Необходимо изменить стоимость накладной на сумму составляющую стоимость карт текущей строки*/ 
UPDATE КороткаяНакладная
Set СуммаПоНакладнойRUB = СуммаПоНакладнойRUB + (@NewQuantity * @CurrentCostPriceOfDilerCard_RUB), 
ЗакСтПоНакладнойRUB = ЗакСтПоНакладнойRUB + (@NewQuantity * @CurrentOurPriceOfDilerCard_RUB)
WHERE (((КодКороткойНакладной)=@ShortAccountID))