- Added new cost type "Customer Purchase Order" to intranet-cost package

- In invoices/view.tcl showing the related customer purchase orders
- Allowing to promote a normal invoice to a timesheet invoice, so that
  the report period is shown

sql/postgresql/intranet-cost-common.sql

@@ -88,6 +88,7 @@ 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 (3738,'Planned Purchase','Intranet Cost Type');
+SELECT im_category_new (3740,'Customer Purchase Order','Intranet Cost Type');
 -- reserved until 3799
 
 

tcl/intranet-cost-procs.tcl

@@ -53,6 +53,7 @@ ad_proc -public im_cost_type_provider_receipt {} { return 3734 }
 # Fake cost types for timesheet _hours_
 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_short_name { cost_type_id } {