Typica/config/Windows/navigation.xml

<window id="navwindow">
    <layout type="grid">
        <row>
            <column>
                <button name="Configure Roasters" id="configure" type="push" />
            </column>
        </row>
        <row>
            <column>
                <sqldrop id="machineselector" />
            </column>
            <column>
                <button name="Roast Coffee" id="roast" type="push" />
            </column>
        </row>
		<row>
			<column>
				<button name="Manual Roasting Log Entry" id="manual" type="push" />
			</column>
		</row>
        <row>
            <column>
                <button name="Purchase Green Coffee" id="green" type="push" />
            </column>
        </row>
        <row>
            <column>
                <button name="Manage Roasted Coffee Items" id="newroasted" type="push" />
            </column>
        </row>
        <row>
            <column>
                <button name="Edit Roasting Specification" id="roastspec" type="push" />
            </column>
        </row>
        <row>
            <column>
                <button name="Update Inventory" id="inventory" type="push" />
            </column>
        </row>
        <row>
            <column>
                <button name="New Cupping Session" id="createcupping" type="push" />
            </column>
        </row>
        <row>
            <column>
                <button name="Join Cupping Session" id="joincupping" type="push" />
            </column>
        </row>
        <row>
            <column>
                <button name="Summarize Cupping Session" id="sumcupping" type="push" />
            </column>
        </row>
        <row>
            <column>
                <button name="View Target Roast Profiles" id="profilehistory" type="push" />
            </column>
        </row>
        <row>
            <column>
                <button name="Import Target Roast Profiles" id="target" type="push" />
            </column>
        </row>
        <row>
            <column>
                <button name="Enter Green Coffee Sales" id="greensales" type="push" />
            </column>
        </row>
    </layout>
    <menu name="Reports" type="reports" src="Reports" />
    <menu name="Database">
        <item id="resetconnection">Forget Connection Details</item>
    </menu>
    <program>
        var window = this;
        var navigationwindow = window;
        window.loggingWindow = undefined;
        var roasterlist = findChildObject(this, 'machineselector');
        var model = new DeviceTreeModel;
        roasterlist.setModel(model);
        roasterlist.currentIndex = QSettings.value("machineSelection", 0);
        roasterlist['currentIndexChanged(int)'].connect(function() {
            QSettings.setValue("machineSelection", roasterlist.currentIndex);
        });
        var resetdbconnection = findChildObject(this, 'resetconnection');
        resetdbconnection.triggered.connect(function() {
            QSettings.setValue("database/exists", false);
            QSettings.setValue("database/hostname", "");
            QSettings.setValue("database/dbname", "");
            QSettings.setValue("database/user", "");
            QSettings.setValue("database/password", "");
        });
		var manual = findChildObject(this, 'manual');
		manual.clicked.connect(function() {
			createWindow("manualLogEntry");
		});
        var profilehistory = findChildObject(this, 'profilehistory');
        profilehistory.clicked.connect(function() {
                createWindow("profilehistory");
        });
        var greensalesbutton = findChildObject(this, 'greensales');
        greensalesbutton.clicked.connect(function() {
                createWindow("greensales");
        });
        var sumcup = findChildObject(this, 'sumcupping');
        sumcup.clicked.connect(function() {
            var sessionlist = createWindow("finsessionlist");
            sessionlist.windowTitle = "Typica - Summarize Cupping Session";
        });
        var ncsbutton = findChildObject(this, 'createcupping')
        ncsbutton.clicked.connect(function() {
            var ncswindow = createWindow("session");
            ncswindow.windowTitle = "Typica - New Cupping Session";
        });
        var jcsbutton = findChildObject(this, 'joincupping')
        jcsbutton.clicked.connect(function() {
            var jcswindow = createWindow("sessionlist");
            jcswindow.windowTitle = "Typica - Join Cupping Session";
        });
		/*
        var nrbutton = findChildObject(this, 'newroaster');
        nrbutton.clicked.connect(function() {
            var nrwindow = createWindow("newroaster");
            nrwindow.windowTitle = "Typica - New Roaster";
        });
		*/
        var inventory = findChildObject(this, 'inventory');
        inventory.clicked.connect(function() {
            var invwin = createWindow("inventory");
            invwin.windowTitle = "Typica - Inventory";
        });
        var roastspecbutton = findChildObject(this, 'roastspec');
        roastspecbutton.clicked.connect(function() {
            var specwindow = createWindow("roastspec");
        });
        var gbutton = findChildObject(this, 'green');
        gbutton.clicked.connect(function() {
            var purchasewindow = createWindow("purchase");
        });
        var nrbutton = findChildObject(this, 'newroasted');
        nrbutton.clicked.connect(function() {
            var nrwindow = createWindow("newroasted");
            nrwindow.windowTitle = "Manage Roasted Coffee Items";
        });
        var importb = findChildObject(this, 'target');
        importb.clicked.connect(function() {
            var importWindow = createWindow("importTargets");
            importWindow.windowTitle = "Typica - Import Target Roast Profiles";
        });
        var roastbutton = findChildObject(this, 'roast');
        roastbutton.clicked.connect(function() {
            if(typeof(window.loggingWindow) == "undefined")
            {
                window.loggingWindow = createWindow("basicWindow");
                window.loggingWindow.windowTitle = "Typica [*]";
                window.loggingWindow.navigationWindow = window;
            }
            else
            {
                window.loggingWindow.raise();
                window.loggingWindow.activateWindow();
            }
        });
        var configurebutton = findChildObject(this, 'configure');
        configurebutton.clicked.connect(function() {
            var confwindow = new SettingsWindow;
            confwindow.show();
        });
        <![CDATA[
            var DBCreateBase = function() {
                var query = new QSqlQuery();
                query.exec("CREATE TABLE IF NOT EXISTS certifications (item bigint NOT NULL, certification text NOT NULL)");
                query.exec("CREATE TABLE IF NOT EXISTS cupping_samples (session bigint NOT NULL, sample text NOT NULL, position bigint NOT NULL, type text NOT NULL, \"time\" timestamp without time zone, machine bigint, point text, item bigint)");
                query.exec("CREATE TABLE cupping_sessions (id bigserial NOT NULL, event text, name text NOT NULL, \"time\" timestamp without time zone NOT NULL, blind boolean NOT NULL, open boolean NOT NULL, note text)");
                query.exec("CREATE TABLE IF NOT EXISTS cuppingforms (session bigint NOT NULL, sample text NOT NULL, position bigint NOT NULL, grader text, finalscore numeric, notes text, serialization text)");
                query.exec("CREATE TABLE IF NOT EXISTS cuppingform_t1 (aroma numeric, flavor numeric, aftertaste numeric, acidity numeric, body numeric, uniformity numeric, balance numeric, cleancup numeric, sweetness numeric, overall numeric, total numeric) INHERITS (cuppingforms)");
                query.exec("CREATE TABLE IF NOT EXISTS invoices (id bigserial PRIMARY KEY NOT NULL, invoice text, vendor text NOT NULL, \"time\" timestamp without time zone NOT NULL)");
                query.exec("CREATE TABLE IF NOT EXISTS invoice_items (invoice_id bigint NOT NULL, record_type text NOT NULL, item_id bigint, description text NOT NULL, cost numeric NOT NULL)");
                query.exec("CREATE TABLE IF NOT EXISTS transactions (\"time\" timestamp without time zone NOT NULL, item bigint NOT NULL)");
                query.exec("CREATE TABLE IF NOT EXISTS inventory (quantity numeric NOT NULL) INHERITS (transactions)");
                query.exec("CREATE TABLE IF NOT EXISTS loss (quantity numeric NOT NULL, reason text) INHERITS (transactions)");
                query.exec("CREATE TABLE IF NOT EXISTS make (quantity numeric NOT NULL) INHERITS (transactions)");
                query.exec("CREATE TABLE IF NOT EXISTS purchase (quantity numeric NOT NULL, cost numeric NOT NULL, vendor text NOT NULL) INHERITS (transactions)");
                query.exec("CREATE TABLE IF NOT EXISTS sale (quantity numeric NOT NULL, customer text) INHERITS (transactions)");
                query.exec("CREATE TABLE IF NOT EXISTS use (quantity numeric NOT NULL) INHERITS (transactions)");
                query.exec("CREATE VIEW all_transactions AS ((((SELECT purchase.\"time\", purchase.item, purchase.quantity, purchase.cost, purchase.vendor, NULL::unknown AS reason, NULL::unknown AS customer, 'PURCHASE' AS type FROM purchase UNION SELECT use.\"time\", use.item, use.quantity, NULL::unknown AS cost, NULL::unknown AS vendor, NULL::unknown AS reason, NULL::unknown AS customer, 'USE' AS type FROM use) UNION SELECT inventory.\"time\", inventory.item, inventory.quantity, NULL::unknown AS cost, NULL::unknown AS vendor, NULL::unknown AS reason, NULL::unknown AS customer, 'INVENTORY' AS type FROM inventory) UNION SELECT loss.\"time\", loss.item, loss.quantity, NULL::unknown AS cost, NULL::unknown AS vendor, loss.reason, NULL::unknown AS customer, 'LOSS' AS type FROM loss) UNION SELECT make.\"time\", make.item, make.quantity, NULL::unknown AS cost, NULL::unknown AS vendor, NULL::unknown AS reason, NULL::unknown AS customer, 'MAKE' AS type FROM make) UNION SELECT sale.\"time\", sale.item, sale.quantity, NULL::unknown AS cost, NULL::unknown AS vendor, NULL::unknown AS reason, sale.customer, 'SALE' AS type FROM sale");
                query.exec("CREATE FUNCTION time_range(bigint) RETURNS integer AS $$ BEGIN IF (SELECT quantity FROM items WHERE id = $1) > 0 THEN RETURN (SELECT current_date - min(time)::date + 1 FROM use WHERE item = $1); ELSE RETURN (SELECT max(time)::date - min(time)::date + 1 FROM use WHERE item = $1); END IF; END; $$ LANGUAGE plpgsql STRICT");
                query.exec("CREATE TABLE IF NOT EXISTS items(id bigint NOT NULL, name text NOT NULL, reference text, unit text NOT NULL, quantity numeric DEFAULT 0, category text)");
                query.exec("CREATE SEQUENCE items_id_seq INCREMENT BY 1 NO MAXVALUE NO MINVALUE CACHE 1");
                query.exec("CREATE TABLE IF NOT EXISTS coffees(origin text NOT NULL, region text, producer text, grade text, milling text, drying text) INHERITS (items)");
                query.exec("CREATE VIEW coffee_history AS SELECT coffees.id, coffees.name, coffees.origin, coffees.quantity AS stock, (SELECT sum(use.quantity) AS sum FROM use WHERE (use.item = coffees.id)) AS used, time_range(coffees.id) AS \"interval\", ((SELECT (sum(use.quantity) / (time_range(use.item))::numeric) FROM use WHERE (use.item = coffees.id) GROUP BY use.item))::numeric(10,2) AS rate, (SELECT (('now'::text)::date + ((coffees.quantity / (SELECT (sum(use.quantity) / (time_range(use.item))::numeric) FROM use WHERE (use.item = coffees.id) GROUP BY use.item)))::integer)) AS \"out\" FROM coffees WHERE (coffees.id IN (SELECT use.item FROM use)) ORDER BY coffees.origin");
                query.exec("CREATE TABLE IF NOT EXISTS current_items (item bigint NOT NULL)");
                query.exec("CREATE TABLE IF NOT EXISTS decaf_coffees (decaf_method text NOT NULL) INHERITS (coffees)");
                query.exec("CREATE TABLE IF NOT EXISTS files (id bigint NOT NULL, name text NOT NULL, type text NOT NULL, note text, file bytea NOT NULL)");
                query.exec("CREATE TABLE IF NOT EXISTS item_files(\"time\" timestamp without time zone NOT NULL, item bigint NOT NULL, files bigint[] NOT NULL)");
                query.exec("CREATE TYPE item_transaction_with_balance AS (\"time\" timestamp without time zone, item bigint, quantity numeric, cost numeric, vendor text, reason text, customer text, type text, balance numeric)");
                query.exec("CREATE TABLE IF NOT EXISTS lb_bag_conversion (item bigint NOT NULL, conversion numeric NOT NULL)");
                query.exec("CREATE TABLE IF NOT EXISTS machine (id bigint NOT NULL, name text NOT NULL)");
                query.exec("CREATE VIEW regular_coffees AS SELECT coffees.id, coffees.name, coffees.reference, coffees.unit, coffees.quantity, coffees.category, coffees.origin, coffees.region, coffees.producer, coffees.grade, coffees.milling, coffees.drying FROM coffees WHERE (NOT (coffees.id IN (SELECT decaf_coffees.id FROM decaf_coffees)))");
                query.exec("CREATE TABLE IF NOT EXISTS roasting_log (\"time\" timestamp without time zone NOT NULL, unroasted_id bigint[], unroasted_quantity numeric[], unroasted_total_quantity numeric, roasted_id bigint, roasted_quantity numeric, transaction_type text NOT NULL, annotation text, machine bigint NOT NULL, duration interval, approval boolean, humidity numeric, barometric numeric, indoor_air numeric, outdoor_air numeric, files bigint[])");
                query.exec("CREATE VIEW short_log AS SELECT roasting_log.\"time\", (SELECT items.name FROM items WHERE (items.id = roasting_log.roasted_id)) AS name, roasting_log.unroasted_total_quantity, roasting_log.roasted_quantity, ((((roasting_log.unroasted_total_quantity - roasting_log.roasted_quantity) / roasting_log.unroasted_total_quantity) * (100)::numeric))::numeric(12,2) AS weight_loss, roasting_log.duration FROM roasting_log ORDER BY roasting_log.\"time\"");
                query.exec("CREATE FUNCTION add_inventory() RETURNS trigger AS $$ BEGIN UPDATE items SET quantity = quantity + NEW.quantity WHERE id = NEW.item; RETURN NEW; END; $$ LANGUAGE plpgsql");
                query.exec("CREATE FUNCTION bags_in_stock(bigint) RETURNS numeric AS $_$SELECT quantity / (SELECT conversion FROM lb_bag_conversion WHERE item = id) FROM items WHERE id = $1;$_$ LANGUAGE sql IMMUTABLE STRICT");
                query.exec("CREATE FUNCTION log_use() RETURNS trigger AS $$ DECLARE i integer := array_lower(NEW.unroasted_id, 1); u integer := array_upper(NEW.unroasted_id, 1); BEGIN WHILE i <= u LOOP INSERT INTO use VALUES(NEW.time, NEW.unroasted_id[i], NEW.unroasted_quantity[i]); i := i + 1; END LOOP; RETURN NEW; END; $$ LANGUAGE plpgsql");
                query.exec("CREATE FUNCTION replace_inventory() RETURNS trigger AS $$ BEGIN UPDATE items SET quantity = NEW.quantity WHERE id = NEW.item; RETURN NEW; END; $$ LANGUAGE plpgsql");
                query.exec("CREATE FUNCTION subtract_inventory() RETURNS trigger AS $$ BEGIN UPDATE items SET quantity = quantity - NEW.quantity WHERE id = NEW.item; RETURN NEW; END; $$ LANGUAGE plpgsql");
                query.exec("CREATE SEQUENCE files_id_seq START WITH 1 INCREMENT BY 1 NO MAXVALUE NO MINVALUE CACHE 1");
                query.exec("ALTER TABLE files ALTER COLUMN id SET DEFAULT nextval('files_id_seq'::regclass)");
                query.exec("ALTER TABLE items ALTER COLUMN id SET DEFAULT nextval('items_id_seq'::regclass)");
                query.exec("ALTER TABLE ONLY files ADD CONSTRAINT file_pkey PRIMARY KEY (id)");
                query.exec("ALTER TABLE ONLY items ADD CONSTRAINT items_pkey PRIMARY KEY (id)");
                query.exec("ALTER TABLE ONLY lb_bag_conversion ADD CONSTRAINT lb_bag_conversion_item_key UNIQUE (item)");
                query.exec("ALTER TABLE ONLY roasting_log ADD CONSTRAINT roasting_log_pkey PRIMARY KEY (\"time\", machine)");
                query.exec("CREATE INDEX itemcategories ON items USING btree (category)");
                query.exec("CREATE INDEX itemnames ON items USING btree (name)");
                query.exec("CREATE INDEX roasting_log_index ON roasting_log USING btree (\"time\")");
                query.exec("CREATE INDEX transactionitems ON transactions USING btree (item)");
                query.exec("CREATE INDEX transactiontimes ON transactions USING btree (\"time\")");
                query.exec("CREATE TRIGGER add_inventory_trigger AFTER INSERT ON purchase FOR EACH ROW EXECUTE PROCEDURE add_inventory()");
                query.exec("CREATE TRIGGER add_inventory_trigger AFTER INSERT ON make FOR EACH ROW EXECUTE PROCEDURE add_inventory()");
                query.exec("CREATE TRIGGER log_use_trigger AFTER INSERT ON roasting_log FOR EACH ROW EXECUTE PROCEDURE log_use()");
                query.exec("CREATE TRIGGER replace_inventory_trigger AFTER INSERT ON inventory FOR EACH ROW EXECUTE PROCEDURE replace_inventory()");
                query.exec("CREATE TRIGGER subtract_inventory_trigger AFTER INSERT ON loss FOR EACH ROW EXECUTE PROCEDURE subtract_inventory()");
                query.exec("CREATE TRIGGER subtract_inventory_trigger AFTER INSERT ON sale FOR EACH ROW EXECUTE PROCEDURE subtract_inventory()");
                query.exec("CREATE TRIGGER subtract_inventory_trigger AFTER INSERT ON use FOR EACH ROW EXECUTE PROCEDURE subtract_inventory()");
                query.exec("ALTER TABLE ONLY item_files ADD CONSTRAINT item_files_item_fkey FOREIGN KEY (item) REFERENCES items(id)");
                query.exec("ALTER TABLE ONLY transactions ADD CONSTRAINT transactions_item_fkey FOREIGN KEY (item) REFERENCES items(id)");
                query.exec("INSERT INTO TypicaFeatures (feature, enabled, version) VALUES('base-features', TRUE, 1)");
                query = query.invalidate();
            };
		
		/* Some changes to the database are required for sample roasting features in
		   Typica 1.6 and later. */
		var DBCreateSampleRoasting = function() {
			var query = new QSqlQuery;
			query.exec("CREATE TABLE IF NOT EXISTS item_attributes (id bigint PRIMARY KEY NOT NULL, name text NOT NULL)");
			query.exec("CREATE TABLE IF NOT EXISTS coffee_sample_items(arrival timestamp without time zone, vendor text, attribute_ids bigint[], attribute_values text[], item_id bigint) INHERITS (items)");
			query.exec("INSERT INTO TypicaFeatures (feature, enabled, version) VALUES('sample-roasting', TRUE, 1)");
			query = query.invalidate();
		};
		
		/* Some changes to the database are required to log who performed what tasks.
		   This adds logging for all transaction types and also for the roasting log.*/
		var DBUpdateMultiUser = function() {
			var query = new QSqlQuery;
			query.exec("ALTER TABLE transactions ADD COLUMN person text DEFAULT NULL");
			query.exec("ALTER TABLE roasting_log ADD COLUMN person text DEFAULT NULL");
			query.exec("CREATE OR REPLACE FUNCTION log_session_user() RETURNS trigger AS $$ BEGIN NEW.person := session_user; RETURN NEW; END; $$ LANGUAGE plpgsql");
			query.exec("CREATE TRIGGER log_person BEFORE INSERT ON inventory FOR EACH ROW EXECUTE PROCEDURE log_session_user()");
			query.exec("CREATE TRIGGER log_person BEFORE INSERT ON loss FOR EACH ROW EXECUTE PROCEDURE log_session_user()");
			query.exec("CREATE TRIGGER log_person BEFORE INSERT ON make FOR EACH ROW EXECUTE PROCEDURE log_session_user()");
			query.exec("CREATE TRIGGER log_person BEFORE INSERT ON purchase FOR EACH ROW EXECUTE PROCEDURE log_session_user()");
			query.exec("CREATE TRIGGER log_person BEFORE INSERT ON sale FOR EACH ROW EXECUTE PROCEDURE log_session_user()");
			query.exec("CREATE TRIGGER log_person BEFORE INSERT ON use FOR EACH ROW EXECUTE PROCEDURE log_session_user()");
			query.exec("CREATE TRIGGER log_person BEFORE INSERT ON roasting_log FOR EACH ROW EXECUTE PROCEDURE log_session_user()");
			query.exec("UPDATE TypicaFeatures SET version = 2 WHERE feature = 'base-features'");
			query = query.invalidate();
		};
		
		/* Bug fix and optimization for item_history */
		var DBUpdateHistory = function() {
			var query = new QSqlQuery;
			query.exec("CREATE TYPE transaction_type AS (type text, quantity numeric)");
			query.exec("CREATE FUNCTION update_balance(numeric, transaction_type) RETURNS numeric AS $$ BEGIN CASE $2.type WHEN 'PURCHASE', 'MAKE' THEN RETURN $1 + $2.quantity; WHEN 'INVENTORY' THEN RETURN $2.quantity; WHEN 'USE', 'SALE', 'LOSS' THEN RETURN $1 - $2.quantity; END CASE; END; $$ LANGUAGE plpgsql STRICT");
			query.exec("CREATE AGGREGATE transaction_balance (BASETYPE = transaction_type, SFUNC = update_balance, STYPE = numeric, INITCOND = '0')");
			query.exec("CREATE OR REPLACE FUNCTION item_history(bigint) RETURNS SETOF item_transaction_with_balance AS $$ SELECT time, item, quantity, cost, vendor, reason, customer, type, transaction_balance((type, quantity)::transaction_type) OVER (PARTITION BY item ORDER BY time ASC) AS balance FROM all_transactions WHERE item = $1; $$ LANGUAGE SQL");
			query.exec("DROP FUNCTION calculate_inventory_balance()");
			query = query.invalidate();
		};
		
		/* Asynchronous notifications */
		var DBUpdateNotifications = function() {
			var query = new QSqlQuery;
			query.exec("CREATE OR REPLACE FUNCTION notify_roasting_log_change() RETURNS TRIGGER AS $$ BEGIN NOTIFY RoastingLogChange; RETURN NULL; END; $$ LANGUAGE plpgsql");
			query.exec("CREATE TRIGGER notify_roasting_log_change AFTER INSERT OR UPDATE ON roasting_log FOR EACH STATEMENT EXECUTE PROCEDURE notify_roasting_log_change()");
			query = query.invalidate();
		};
		
		/* Update trigger functions to make column names explicit */
		var DBUpdateTriggers = function() {
			var query = new QSqlQuery;
			query.exec("CREATE OR REPLACE FUNCTION log_make() RETURNS trigger AS $$ BEGIN IF NEW.roasted_quantity IS NOT NULL THEN INSERT INTO make (time, item, quantity) VALUES(NEW.time, NEW.roasted_id, NEW.roasted_quantity); END IF; RETURN NEW; END; $$ LANGUAGE plpgsql");
			query.exec("CREATE OR REPLACE FUNCTION log_make_update() RETURNS trigger AS $$ BEGIN IF NEW.roasted_quantity <> OLD.roasted_quantity AND NEW.roasted_quantity IS NOT NULL THEN INSERT INTO make (time, item, quantity) VALUES(NEW.time, NEW.roasted_id, NEW.roasted_quantity); END IF; RETURN NEW; END; $$ LANGUAGE plpgsql");
			query.exec("CREATE OR REPLACE FUNCTION log_use() RETURNS trigger AS $$ DECLARE i integer := array_lower(NEW.unroasted_id, 1); u integer := array_upper(NEW.unroasted_id, 1); BEGIN IF NEW.transaction_type = 'ROAST' THEN WHILE i <= u LOOP INSERT INTO use (time, item, quantity) VALUES(NEW.time, NEW.unroasted_id[i], NEW.unroasted_quantity[i]); i := i + 1; END LOOP; END IF; RETURN NEW; END; $$ LANGUAGE plpgsql");
			query.exec("UPDATE TypicaFeatures SET version = 4 WHERE feature = 'base-features'");
		};
        var DBUpdateReminders = function() {
            var query = new QSqlQuery;
            query.exec("CREATE TABLE IF NOT EXISTS reminders (id bigserial PRIMARY KEY NOT NULL, reminder text NOT NULL)");
            query.exec("UPDATE TypicaFeatures SET version = 5 WHERE feature = 'base-features'");
            query = query.invalidate();
        };
		var DBUpdateSpecification = function() {
            var query = new QSqlQuery;
            query.exec("CREATE TABLE IF NOT EXISTS roasting_specification (\"time\" timestamp without time zone NOT NULL, item bigint NOT NULL, loss numeric, tolerance numeric, notes text)");
            query.exec("UPDATE TypicaFeatures SET version = 6 WHERE feature = 'base-features'");
            query = query.invalidate();
        };
		
		/* Updates for Typica version 1.8 */
		var DBUpdate18 = function() {
			var query = new QSqlQuery;
			/* Create a table for Typica users login data */
			query.exec("CREATE TABLE IF NOT EXISTS typica_users(name TEXT PRIMARY KEY NOT NULL, password TEXT, active boolean NOT NULL, auto_login boolean NOT NULL)");
			/* Update session user logging to only use the database user when a Typica user is not explicitly provided. This maintains compatibility for mixed version use. */
			query.exec("CREATE OR REPLACE FUNCTION log_session_user() RETURNS trigger AS $$ BEGIN IF NEW.person IS NULL THEN NEW.person := session_user; END IF; RETURN NEW; END; $$ LANGUAGE plpgsql");
			
			/* Uncomment before release */
			// query.exec("UPDATE TypicaFeatures SET version = 7 WHERE feature = 'base-features'");
			query = query.invalidate();
		};
		if(Application.databaseConnected()) {
			query = new QSqlQuery();
			/* A table keeps track of database versioning information. This
			   table is created
			   if required. */
			query.exec("CREATE TABLE IF NOT EXISTS TypicaFeatures (feature TEXT PRIMARY KEY, enabled boolean, version bigint)");
			query.exec("SELECT feature, enabled, version FROM TypicaFeatures WHERE feature = 'sample-roasting'");
			if(query.next())
			{
				if(query.value(2) < 1)
				{
					DBCreateSampleRoasting();
				}
			}
			else
			{
				DBCreateSampleRoasting();
			}
			query.exec("SELECT feature, enabled, version FROM TypicaFeatures WHERE feature = 'base-features'");
			if(query.next())
			{
				if(query.value(2) < 1)
				{
				        DBCreateBase();
				}
				if(query.value(2) < 2)
				{
			        DBUpdateMultiUser();
			        DBUpdateHistory();
				}
				if(query.value(2) < 3)
				{
			        DBUpdateNotifications();
				}
				if(query.value(2) < 4)
				{
			        DBUpdateTriggers();
				}
				if(query.value(2) < 5)
				{
				    DBUpdateReminders();
				}
				if(query.value(2) < 6)
				{
					DBUpdateSpecification();
				}
				if(query.value(2) < 7) {
					DBUpdate18();
				}
			}
			else
			{
				DBCreateBase();
			}
			var promptNewUsers = true;
			query.exec("SELECT count(1) FROM typica_users");
			if(query.next()) {
				if(Number(query.value(0)) > 0) {
					promptNewUsers = false;
				}
			}
			if(promptNewUsers) {
				var newUserDialog = new NewTypicaUser();
				newUserDialog.exec();
			}
			query = query.invalidate();
		}
        ]]>
    </program>
</window>