Dumped on 2005-03-22

Index of database - koumbit

• public
• acc_trans
• ap
• ar
• assembly
• audittrail
• business
• chart
• customer
• customertax
• defaults
• department
• dpt_trans
• employee
• exchangerate
• gifi
• gl
• inventory
• invoice
• language
• makemodel
• oe
• orderitems
• parts
• partscustomer
• partsgroup
• partstax
• partsvendor
• pricegroup
• project
• shipto
• sic
• status
• tax
• translation
• vendor
• vendortax
• warehouse
• yearend
• check_department( )
• check_inventory( )
• del_customer( )
• del_department( )
• del_exchangerate( )
• del_vendor( )
• del_yearend( )

Table: acc_trans

Index - Schema public

Table: ap

Index - Schema public

Table: ar

Index - Schema public

Table: assembly

Index - Schema public

Table: audittrail

Index - Schema public

Table: business

Index - Schema public

Table: chart

Index - Schema public

Table: customer

Index - Schema public

Table: customertax

Index - Schema public

Table: defaults

Index - Schema public

Table: department

Index - Schema public

Table: dpt_trans

Index - Schema public

Table: employee

Index - Schema public

Table: exchangerate

Index - Schema public

Table: gifi

Index - Schema public

Table: gl

Index - Schema public

Table: inventory

Index - Schema public

Table: invoice

Index - Schema public

Table: language

Index - Schema public

Table: makemodel

Index - Schema public

Table: oe

Index - Schema public

Table: orderitems

Index - Schema public

Table: parts

Index - Schema public

Table: partscustomer

Index - Schema public

Table: partsgroup

Index - Schema public

Table: partstax

Index - Schema public

Table: partsvendor

Index - Schema public

Table: pricegroup

Index - Schema public

Table: project

Index - Schema public

Table: shipto

Index - Schema public

Table: sic

Index - Schema public

Table: status

Index - Schema public

Table: tax

Index - Schema public

Table: translation

Index - Schema public

Table: vendor

Index - Schema public

Table: vendortax

Index - Schema public

Table: warehouse

Index - Schema public

Table: yearend

Index - Schema public

Function: check_department( )

Returns: "trigger"

Language: PLPGSQL

declare
  dpt_id int;
begin
  if new.department_id = 0 then
    delete from dpt_trans where trans_id = new.id;
    return NULL;
  end if;
  select into dpt_id trans_id from dpt_trans where trans_id = new.id;
  if dpt_id > 0 then
    update dpt_trans set department_id = new.department_id where trans_id = dpt_id;
  else
    insert into dpt_trans (trans_id, department_id) values (new.id, new.department_id);
  end if;
return NULL;
end;

Function: check_inventory( )

Returns: "trigger"

Language: PLPGSQL

declare
  itemid int;
  row_data inventory%rowtype;
begin
  if not old.quotation then
    for row_data in select * from inventory where oe_id = old.id loop
      select into itemid id from orderitems where trans_id = old.id and id = row_data.orderitems_id;
      if itemid is null then
	delete from inventory where oe_id = old.id and orderitems_id = row_data.orderitems_id;
      end if;
    end loop;
  end if;
  return old;
end;

Function: del_customer( )

Returns: "trigger"

Language: PLPGSQL

begin
  delete from shipto where trans_id = old.id;
  delete from customertax where customer_id = old.id;
  delete from partscustomer where customer_id = old.id;
  return NULL;
end;

Function: del_department( )

Returns: "trigger"

Language: PLPGSQL

begin
  delete from dpt_trans where trans_id = old.id;
  return NULL;
end;

Function: del_exchangerate( )

Returns: "trigger"

Language: PLPGSQL

declare
  t_transdate date;
  t_curr char(3);
  t_id int;
  d_curr text;
begin
  select into d_curr substr(curr,1,3) from defaults;
  if TG_RELNAME = 'ar' then
    select into t_curr, t_transdate curr, transdate from ar where id = old.id;
  end if;
  if TG_RELNAME = 'ap' then
    select into t_curr, t_transdate curr, transdate from ap where id = old.id;
  end if;
  if TG_RELNAME = 'oe' then
    select into t_curr, t_transdate curr, transdate from oe where id = old.id;
  end if;
  if d_curr != t_curr then
    select into t_id a.id from acc_trans ac
    join ar a on (a.id = ac.trans_id)
    where a.curr = t_curr
    and ac.transdate = t_transdate
    except select a.id from ar a where a.id = old.id
    union
    select a.id from acc_trans ac
    join ap a on (a.id = ac.trans_id)
    where a.curr = t_curr
    and ac.transdate = t_transdate
    except select a.id from ap a where a.id = old.id
    union
    select o.id from oe o
    where o.curr = t_curr
    and o.transdate = t_transdate
    except select o.id from oe o where o.id = old.id;
    if not found then
      delete from exchangerate where curr = t_curr and transdate = t_transdate;
    end if;
  end if;
return old;
end;

Function: del_vendor( )

Returns: "trigger"

Language: PLPGSQL

begin
  delete from shipto where trans_id = old.id;
  delete from vendortax where vendor_id = old.id;
  delete from partsvendor where vendor_id = old.id;
  return NULL;
end;

Function: del_yearend( )

Returns: "trigger"

Language: PLPGSQL

begin
  delete from yearend where trans_id = old.id;
  return NULL;
end;

Generated by PostgreSQL Autodoc

W3C HTML 4.01 Strict