Trigger dbo.L_Currency_UTrig

CREATE TRIGGER L_Currency_UTrig ON L_Currency FOR UPDATE AS

/ *
* VALIDATION RULE FOR FIELD ´CurrencyRate´
* /
IF (SELECT Count(*) FROM inserted WHERE NOT (CurrencyRate<>0)) > 0
BEGIN
RAISERROR(778403, 16, 1)
ROLLBACK TRANSACTION
END
/ *
* CASCADE UPDATES TO ´D_GLJournalItem´
* /
IF UPDATE(CurrencyCode)
BEGIN
UPDATE D_GLJournalItem
SET D_GLJournalItem.CurrencyCode = inserted.CurrencyCode
FROM D_GLJournalItem, deleted, inserted
WHERE deleted.CurrencyCode = D_GLJournalItem.CurrencyCode
END

/ *
* CASCADE UPDATES TO ´D_GLSum´
* /
IF UPDATE(CurrencyCode)
BEGIN
UPDATE D_GLSum
SET D_GLSum.CurrencyCode = inserted.CurrencyCode
FROM D_GLSum, deleted, inserted
WHERE deleted.CurrencyCode = D_GLSum.CurrencyCode
END

Updated On: 05.04.01