[freeside-commits] freeside/httemplate/search h_inventory_item.html, NONE, 1.1 report_h_inventory_item.html, NONE, 1.1

[Mark Wells]

Update of /home/cvs/cvsroot/freeside/httemplate/search
In directory wavetail.420.am:/tmp/cvs-serv6484/httemplate/search

Added Files:
	h_inventory_item.html report_h_inventory_item.html 
Log Message:
RT#8460: inventory activity report

--- NEW FILE: report_h_inventory_item.html ---
<% include('/elements/header.html', 'Inventory activity report') %>

<FORM ACTION="h_inventory_item.html" METHOD="GET">
<TABLE BGCOLOR="#cccccc" CELLSPACING="0">
  <TR>
    <TD ALIGN="right">Inventory class: </TD>
    <TD><% include('/elements/select-table.html',
                      'element_name' => 'classnum',
                      'table'        => 'inventory_class',
                      'name_col'     => 'classname',
                      'value'        => '',
                      'empty_label'  => '(all)') %></TD>
  </TR>
  <TR>
    <TD ALIGN="right">Time period: </TD>
    <TD><% include('/elements/select-month_year.html') %></TD>
  </TR>
</TABLE>

<BR>
<INPUT TYPE="submit" VALUE="Get Report">
</FORM>

<%init>
</%init>

--- NEW FILE: h_inventory_item.html ---
<% include('/elements/header.html', "$classname Inventory Activity Report") %>
<% include('/elements/table-grid.html') %>
  <TR>
% my $TH = 'TH CLASS="grid" BGCOLOR="#cccccc" ROWSPAN=1';
    <<%$TH%> WIDTH="10%" ALIGN="left">Day (<% time2str("%B %Y", $sdate) %>)</TH>
% foreach my $day (0..$numdays-1) {
    <<%$TH%> WIDTH="2%" ALIGN="right"><% $day+1 %></TH>
% }
  </TR>
% for (my $r=0; $r < scalar(@rows); $r++) {
  <TR>
% my $TD = 'TD CLASS="grid" BGCOLOR="'.($r % 2 ? '#ffffff' : '#eeeeee').'"';
    <<%$TD%>><% $labels[$r] %></TD>
%   for my $day (0..$numdays-1) {
    <<%$TD%> ALIGN="right"><% $rows[$r][$day] %></TD>
%   }
  </TR>
% }
</TABLE>

<%init>
use Date::Parse 'str2time';
use Date::Format 'time2str';
#use Data::Dumper::HTML 'dumper_html';

my ($classnum, $month, $year, $sdate, $edate);
$classnum = $cgi->param('classnum'); # may be empty
my $classname = '';
if($classnum) {
  my $class = qsearchs('inventory_class', { classnum => $classnum });
  die "classnum $classnum not found!" if !$class;
  $classname = $class->classname . ' ';
}

$month = $cgi->param('_month') || time2str('%m', time);
$year = $cgi->param('_year') || time2str('%Y', time);

$sdate = str2time("$year-$month-01");
$edate = str2time($year + ($month == 12 ? 1 : 0) .
                  '-' .
                  (($month + 1) % 12 || 12) .
                  '-01');
my $numdays = sprintf("%.0f",($edate-$sdate)/86400);
my @days = (0..$numdays - 1);
# Initialize each row with zeroes.
my @labels = (
  'Opening Balance',
  'Quantity Received',
  'Quantity Sold',
  'Quantity Returned',
  'Closing Balance',
);
my @rows = ( map {[ (0) x $numdays ]} @labels);

foreach my $day (0..$numdays-1) {
  $rows[0][$day] = $rows[4][$day-1] if($day > 0);

  my %history;
  foreach my $action (qw(insert replace_new replace_old)) {
    $history{$action} = [
                        qsearch({
                          'table'     => 'h_inventory_item',
                          'hashref'   => { $classnum ? ('classnum' => $classnum) : (),
                                           'history_action' => $action },
                          'order_by'  => 'ORDER BY itemnum, history_date',
                          'extra_sql' => 
                            ' AND history_date >= '.($sdate + 86400*$day).
                            ' AND history_date < ' .($sdate + 86400*($day+1)),
                          } ) 
                        ];
  }
  # Incoming items: simple, just count the inserts
  $rows[1][$day] = scalar(@{ $history{'insert'} });

  # Other item changes: trickier.
  # Notice the order_by parameter above.
  # Both lists are sorted by itemnum, then by date, so unless some villain has 
  # been rapidly replacing the same record several times per second, the 
  # replace_old and replace_new from the same operation will be in the same 
  # position.
  while(my $h_new = shift @{ $history{'replace_new'} }) {
    my $h_old = shift @{ $history{'replace_old'} };
    die "history error" if !defined($h_old) 
                           or $h_old->itemnum != $h_new->itemnum;
    if(!$h_old->svcnum and $h_new->svcnum) {
      # item was put into service.
      $rows[2][$day]++;
    }
    elsif($h_old->svcnum and !$h_new->svcnum) {
      # item was taken out of service.
      $rows[3][$day]++;
    }
    # Add other cases here.
  }
  # Closing balance
  $rows[4][$day] = $rows[0][$day]
                 + $rows[1][$day]
                 - $rows[2][$day]
                 + $rows[3][$day];
}

</%init>