2006-12-07 13:41:40 +00:00
##############################################################################
#
2008-06-16 11:00:21 +00:00
# Copyright (c) 2004-2008 TINY SPRL. (http://tiny.be) All Rights Reserved.
2006-12-07 13:41:40 +00:00
#
2008-06-16 06:44:24 +00:00
# $Id$
2006-12-07 13:41:40 +00:00
#
# WARNING: This program as such is intended to be used by professional
# programmers who take the whole responsability of assessing all potential
# consequences resulting from its eventual inadequacies and bugs
# End users who are looking for a ready-to-use solution with commercial
# garantees and support are strongly adviced to contract a Free Software
# Service Company
#
# This program is Free Software; you can redistribute it and/or
# modify it under the terms of the GNU General Public License
# as published by the Free Software Foundation; either version 2
# of the License, or (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
#
##############################################################################
from mx import DateTime
import time
def compute_burndown ( cr , uid , tasks_id , date_start , date_stop ) :
2008-07-22 15:11:28 +00:00
latest = False
if len ( tasks_id ) :
cr . execute ( ' select id,create_date,state,planned_hours from project_task where id in ( ' + ' , ' . join ( map ( str , tasks_id ) ) + ' ) order by create_date ' )
tasks = cr . fetchall ( )
2006-12-07 13:41:40 +00:00
2008-07-22 15:11:28 +00:00
cr . execute ( ' select w.date,w.hours from project_task_work w left join project_task t on (t.id=w.task_id) where t.id in ( ' + ' , ' . join ( map ( str , tasks_id ) ) + ' ) and t.state in ( \' open \' , \' progress \' ) order by date ' )
2006-12-07 13:41:40 +00:00
2008-07-22 15:11:28 +00:00
tasks2 = cr . fetchall ( )
2006-12-07 13:41:40 +00:00
2008-07-22 15:11:28 +00:00
cr . execute ( ' select date_close,planned_hours from project_task where id in ( ' + ' , ' . join ( map ( str , tasks_id ) ) + ' ) and state in ( \' cancelled \' , \' done \' ) order by date_close ' )
tasks2 + = cr . fetchall ( )
tasks2 . sort ( )
else :
tasks = [ ]
tasks2 = [ ]
2006-12-07 13:41:40 +00:00
2008-07-22 15:11:28 +00:00
current_date = date_start
total = 0
done = 0
result = [ ]
while current_date < = date_stop :
while len ( tasks ) and tasks [ 0 ] [ 1 ] and tasks [ 0 ] [ 1 ] [ : 10 ] < = current_date :
latest = tasks . pop ( 0 )
total + = latest [ 3 ]
i = 0
while i < len ( tasks2 ) :
if tasks2 [ i ] [ 0 ] [ : 10 ] < = current_date :
t = tasks2 . pop ( i )
done + = t [ 1 ]
else :
i + = 1
result . append ( ( int ( time . mktime ( time . strptime ( current_date , ' % Y- % m- %d ' ) ) ) , total - done ) )
current_date = ( DateTime . strptime ( current_date , ' % Y- % m- %d ' ) + DateTime . RelativeDateTime ( days = 1 ) ) . strftime ( ' % Y- % m- %d ' )
if not len ( tasks ) and not len ( tasks2 ) :
break
result . append ( ( int ( time . mktime ( time . strptime ( date_stop , ' % Y- % m- %d ' ) ) ) , 0 ) )
return result
2006-12-07 13:41:40 +00:00