- Added new procurement financial document types

sql/postgresql/intranet-cost-common.sql

@@ -69,7 +69,6 @@ SELECT im_category_new (910,'po.es.adp','Intranet Cost Template');
 -- Creating category Cost Type
 SELECT im_category_new (3700,'Customer Invoice','Intranet Cost Type');
 SELECT im_category_new (3702,'Quote','Intranet Cost Type');
--- SELECT im_category_new (3703,'Order','Intranet Cost Type');
 SELECT im_category_new (3704,'Provider Bill','Intranet Cost Type');
 SELECT im_category_new (3706,'Purchase Order','Intranet Cost Type');
 SELECT im_category_new (3708,'Customer Documents','Intranet Cost Type');
@@ -85,10 +84,13 @@ SELECT im_category_new (3728,'Expense Planned Cost','Intranet Cost Type');
 SELECT im_category_new (3730,'InterCo Invoice','Intranet Cost Type');
 SELECT im_category_new (3732,'InterCo Quote','Intranet Cost Type');
 SELECT im_category_new (3734,'Provider Receipt','Intranet Cost Type');
--- Fake cost types for timesheet _hours_
-SELECT im_category_new (3736,'Timesheet Hours','Intranet Cost Type');
+SELECT im_category_new (3736,'Timesheet Hours','Intranet Cost Type'); -- Fake cost types for timesheet_hours
 SELECT im_category_new (3738,'Planned Purchase','Intranet Cost Type');
 SELECT im_category_new (3740,'Customer Purchase Order','Intranet Cost Type');
+SELECT im_category_new (3742,'Goods Received','Intranet Cost Type');
+SELECT im_category_new (3744,'Goods Accepted','Intranet Cost Type');
+SELECT im_category_new (3744,'Purchase Request','Intranet Cost Type');
+SELECT im_category_new (3746,'Purchase Request','Intranet Cost Type');
 -- reserved until 3799
 
 

tcl/intranet-cost-procs.tcl

@@ -54,6 +54,9 @@ ad_proc -public im_cost_type_provider_receipt {} { return 3734 }
 ad_proc -public im_cost_type_timesheet_hours {} { return 3736 }
 ad_proc -public im_cost_type_planned_purchase {} { return 3738 }
 ad_proc -public im_cost_type_customer_po {} { return 3740 }
+ad_proc -public im_cost_type_goods_received {} { return 3742 }
+ad_proc -public im_cost_type_goods_accepted {} { return 3744 }
+ad_proc -public im_cost_type_purchase_request {} { return 3746 }
 
 
 ad_proc -public im_cost_type_short_name { cost_type_id } { 
@@ -176,6 +179,7 @@ ad_proc -public im_cost_permissions {user_id cost_id view_var read_var write_var
 	where	c.cost_id = :cost_id
     "
 
+    # Return no permissions instead of a hard error in case the cost does not exist
     if {![info exists provider_otype]} {
 	ns_log Error "im_cost_permissions: cost_id=$cost_id probably is not a cost item."
 	set view 0