From 360934c0f7cf9e2e0bf86272207b3b9cd878be26 Mon Sep 17 00:00:00 2001
From: einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>
Date: Tue, 12 Sep 2006 14:46:23 +0000
Subject: New sl-stack changes extensions Added parts notify trigger to
 pg-functions.sql

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@74 4979c152-3d1c-0410-bac9-87ea11338e46
---
 sql/Pg-functions.sql | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)

(limited to 'sql/Pg-functions.sql')

diff --git a/sql/Pg-functions.sql b/sql/Pg-functions.sql
index 4ae22270..4eea5011 100755
--- a/sql/Pg-functions.sql
+++ b/sql/Pg-functions.sql
@@ -252,3 +252,19 @@ END;
 ' language 'plpgsql';
 -- end function
 --
+CREATE OR REPLACE FUNCTION trigger_parts_short() RETURNS TRIGGER
+AS
+'
+
+CREATE OR REPLACE FUNCTION trigger_parts_short() RETURNS TRIGGER
+AS
+BEGIN
+  IF NEW.onhand >= NEW.rop THEN
+    NOTIFY parts_short;
+  END IF;
+  RETURN NEW;
+END;
+' LANGUAGE PLPGSQL;
+
+CREATE TRIGGER parts_short AFTER UPDATE ON parts 
+FOR EACH ROW EXECUTE PROCEDURE trigger_parts_short();
-- 
cgit v1.2.3

