Including sub-types of customer invoice

lib/leaflet-customer-component.tcl

@@ -44,7 +44,8 @@ set customer_sql "
 		     THEN 1 ELSE 0 END as needs_update_p,
 		(	select greatest(round(coalesce(sum(co.amount),0.0)), 0.0)
 			from im_costs co 
-			where co.cost_type_id = 3700 and co.customer_id = c.company_id
+			where co.cost_type_id in (select * from im_sub_categories([im_cost_type_invoice])) and 
+			      co.customer_id = c.company_id
 		) as invoice_amount
 	from	im_companies c,
 		im_offices o,