print p_header('Monthly Sales Report');

if ($ENV{'REQUEST_METHOD'} ne 'POST') {
    print <<__EOT;
<form method=post action='MonthSales'>
<p>Sales For:
<input type=text name='Month' size='2' value='$m'> /
<input type=text name='Year' size='4' value='$y'>
<input type=submit></p>
</form>
__EOT
} else {
    print <<__EOT;
<h3>Sales for $m/$y</h3>
<table width='100%' cols='7' class='management'>
<tr><th>Day</th>
<th>$PP[0]</th><th>$PP[1]</th><th>$PP[2]</th><th>$PP[3],<br> $PP[7]</th>
<th>$PP[8]</th><th>Total</th><th>Over Short</th></tr>
__EOT

    @T = qw(0 0 0 0 0 0);
    $nDays = DM($m); $nds = 0;

    for ($d = 1; $d <= $nDays; $d++) {
        $sth = $conn->prepare(<<__EOSQL);
select min(id),max(id) from invoices where datetime>='$y-$m-$d' and datetime<='$y-$m-$d 23:59:59'
__EOSQL
        $sth->execute();
        @r = $sth->fetchrow_array(); $i1 = $r[0] || 0; $i2 = $r[1] || 0;
        
        $sth = $conn->prepare(<<__EOSQL);
select paymenttype,sum(amount) from payments
where id>= $i1 and id<=$i2
group by paymenttype
__EOSQL
        $sth->execute();
        @x = qw(0 0 0 0 0 0 0 0 0);
        while (@r = $sth->fetchrow_array()) {$x[$r[0]] = $r[1];}
        $sth = $conn->prepare("select amount from overshort where date='$y-$m-$d'");
        $sth->execute();
        if ($overshort = $sth->fetchrow_array()) {
            $T[5] += $overshort[0];
            $overshort = FormatCent($overshort);
        } else {
            $overshort = '&nbsp;';
        }
        $sth->finish();

        print "<tr class='${\(++$count % 2? 'odd': 'even')}'><td>$m/$d/$y</td>";
        $dt = 0;
        for ($p = 0; $p < 4; $p++) {
            $T[$p] += $x[$p] + $x[$p + 4]; $dt += $x[$p] + $x[$p + 4];
            print "<td class='right'>@{[FormatCent($x[$p] + $x[$p + 4])]}</td>";
        }
        $T[4] += $x[8]; $nds++ if ($dt);
        print <<__EOT;
<td class='right'>@{[FormatCent($x[8])]}</td><td class='right'>@{[FormatCent($dt)]}</td>
<td class='right'>$overshort</td></tr>
__EOT
    }

    $dt = 0;
    print "<tr><th>Totals</th>";
    for ($p = 0; $p <= 4; $p++) {
        $dt += $T[$p];
        print "<th>@{[FormatCent($T[$p])]}</th>";
    }

    $dt -= $T[4];
    print <<__EOT;
<th>@{[FormatCent($dt)]}</th><th>@{[FormatCent($T[5])]}</th></tr>
<tr><th>Averages</th>
__EOT
    for ($p = 0; $p <= 4; $p++) {
        print "<th>@{[FormatCent(int($T[$p]/$nds))]}</th>";
    }

    print <<__EOT;
<th>@{[FormatCent(int($dt/$nds))]}</th><th>@{[FormatCent(int($T[5]/$nds))]}</th></tr>
</table>
__EOT
}