#!/usr/bin/perl

use Digest::MD5 qw(md5 md5_hex md5_base64);
use Net::MySQL;

$mysql = Net::MySQL->new(hostname=>'0.0.0.0', database=>'', user=>'', password=>'');

$VERSION="1.0.0";
$TABELNAAM="transacties";

$passen[0]="pasnr. 001";
$passen[1]="pasnr. 002";
$passen[2]="pasnr. 003";

$passenNaam{'pasnr. 011'}="Pas 1";
$passenNaam{'pasnr. 010'}="Pas 2";
$passenNaam{'pasnr. 012'}="Pas 3";

$categorie[0]="Huis";
$categorie[1]="Auto";
$categorie[2]="Boodschappen";
$categorie[3]="Diverse";
$categorie[4]="Donatie";
$categorie[5]="Gokken";
$categorie[6]="Telefoon";
$categorie[7]="Verzekering";
$categorie[8]="Salaris";
$categorie[9]="Spaargeld";
$categorie[10]="Geld Pinnen";
$categorie[11]="TV / Internet";
$categorie[12]="Hond";
$categorie[13]="Kleding";
$categorie[14]="Belasting";
$categorie[15]="Lekker eten";
$categorie[16]="Tuin";
$categorie[17]="Verzorging";
$categorie[18]="Bank";
$categorie[19]="Rijles";
$categorie[20]="Trouwen";
$categorie[21]="Reizen";
$categorie[22]="I-deal";
$categorie[23]="Geld van andere";
$categorie[24]="Geld naar andere";
$categorie[25]="Eigen rekening";
$categorie[26]="Loterij";
$categorie[27]="Klussen";
@categorie = sort @categorie;

$maandenNaam[0]="Jan"; $maandenNaam[1]="Feb"; $maandenNaam[2]="Mrt"; $maandenNaam[3]="Apr"; $maandenNaam[4]="Mei"; $maandenNaam[5]="Jun"; $maandenNaam[6]="Jul"; $maandenNaam[7]="Aug"; $maandenNaam[8]="Sep"; $maandenNaam[9]="Okt"; $maandenNaam[10]="Nov"; $maandenNaam[11]="Dec";
$maanden[0]="1"; $maanden[1]="2"; $maanden[2]="3"; $maanden[3]="4"; $maanden[4]="5"; $maanden[5]="6"; $maanden[6]="7"; $maanden[7]="8"; $maanden[8]="9"; $maanden[9]="10"; $maanden[10]="11"; $maanden[11]="12";
$maandNaarNaam{'1'}="Januari"; $maandNaarNaam{'2'}="Februari"; $maandNaarNaam{'3'}="Maart"; $maandNaarNaam{'4'}="April"; $maandNaarNaam{'5'}="Mei"; $maandNaarNaam{'6'}="Juni"; $maandNaarNaam{'7'}="Juli"; $maandNaarNaam{'8'}="Augustus"; $maandNaarNaam{'9'}="September"; $maandNaarNaam{'10'}="Oktober"; $maandNaarNaam{'11'}="November"; $maandNaarNaam{'12'}="December";
$maandNaarNaamKort{'1'}="Jan"; $maandNaarNaamKort{'2'}="Feb"; $maandNaarNaamKort{'3'}="Mrt"; $maandNaarNaamKort{'4'}="Apr"; $maandNaarNaamKort{'5'}="Mei"; $maandNaarNaamKort{'6'}="Jun"; $maandNaarNaamKort{'7'}="Jul"; $maandNaarNaamKort{'8'}="Aug"; $maandNaarNaamKort{'9'}="Sep"; $maandNaarNaamKort{'10'}="Okt"; $maandNaarNaamKort{'11'}="Nov"; $maandNaarNaamKort{'12'}="Dec";

# ==============================================================================================
# =============================================== CREATE TABLE TRANSACTIES =====================

# DROP TABLE IF EXISTS transacties;
# CREATE TABLE IF NOT EXISTS transacties (
#  id int(11) NOT NULL auto_increment,
#  eigenrekening varchar(15) default NULL,
#  valuta varchar(5) default NULL,
#  datum date default NULL,
#  debetcredit varchar(1) default NULL,
#  bedrag float default NULL,
#  naarrekening varchar(20) default NULL,
#  naam varchar(60) default NULL,
#  datum2 date default NULL,
#  `type` varchar(5) default NULL,
#  omschrijving1 varchar(100) default NULL,
#  omschrijving2 varchar(100) default NULL,
#  omschrijving3 varchar(100) default NULL,
#  `hash` varchar(50) default NULL,
#  categorie varchar(50) default NULL,
#  PRIMARY KEY  (id)
# ) ENGINE=MyISAM  DEFAULT CHARSET=latin1 AUTO_INCREMENT=1;

#===============================================================================================
#========== Gegevens uit query halen ===========================================================
#===============================================================================================
$datalen = $ENV{'QUERY_STRING'};
read (STDIN, $querystring, $datalen);
        @namevaluepairs = split (/&/, $datalen);
        $n = 0;
        foreach $namevalue (@namevaluepairs)
	        {
	        ($name[$n], $value[$n]) = split ( /=/, $namevalue );
	        $value[$n]=~ tr/\<\>//d;
	        $value[$n]=~ tr/\`//d;
	        $key{$name[$n]}=$value[$n];
	        $n++;
	        }
# ======================================== POST STUK ===========================================
$content_len = $ENV{'CONTENT_LENGTH'};
binmode STDIN;
read(STDIN, $buffer, $content_len);
        @namevaluepairs = split (/&/, $buffer);
        $n = 0;
        foreach $namevalue (@namevaluepairs)
					{
					($nameP[$n], $valueP[$n]) = split ( /=/, $namevalue );
	        $valueP[$n]=~ tr/\<\>//d;
	        $valueP[$n]=~ tr/\`//d;
					$key{$nameP[$n]}=$valueP[$n];
					$n++;
					}
# ======================================== MULTIPART STUK ======================================
$content_type = $ENV{'CONTENT_TYPE'};
if ($content_type =~ m#^multipart/form-data#)
	{
	($boundary = $content_type) =~ s/^.*boundary="?(.*?)"?$/\1/;
	@pairs = split(/\ name=\"/, $buffer);
	foreach $part(@pairs)
		{
		if ($part =~ /filename/)
			{
			($line1, $line2, $line3) = split (/\r\n/, $part, 3);
			($name, $value) = split (/\"\;\ /, $line1, 2);
			($tmp, $value) = split (/filename\=\"/, $value);
			($value, $tmp) = split (/\"/, $value);
			($dump,$line3) = split(/\r\n/,$line3,2);
			($line3, $tmp) = split (/--$boundary/, $line3);
			$data{$name}=$line3;
			}
		else
			{
			($line1, $line2, $line3, $tmp) = split (/\r\n/, $part, 4);
			($name, $tmp) = split (/\"/, $line1);
			($value, $tmp) = split (/\"/, $line3);
			}
    $value=~ tr/\<\>//d;
    $value=~ tr/\`//d;
		$key{$name}=$value;
		}
	}

while ( my ($keytje, $valuetje) = each(%key) ) 
    {
    $key{$keytje}=~s/%([\dA-Fa-f][\dA-Fa-f])/pack("C",hex($1))/eg;
    $key{$keytje}=~tr/+/ /;
    }

print "Content-type: text/html\n\n";
print "<html>";
print "<head>";
print "<title>Rabobank - Inkomen en Uitgave ($VERSION)</title>";
print "</head>";
print "<body link=\"#0080C0\" alink=\"#0080C0\" vlink=\"#0080C0\">";

if ($key{'action'} eq "cattoevoegen")
	{
	$key{'name'}=~ s/\'/\'\'/g;
	$query="update $TABELNAAM set categorie='$key{'categorie'}' where naam='$key{'name'}'";
	$mysql->query($query);	
	$key{'categorie'}="";
	}

if ($key{'action'} eq "upload")
	{
	$tellergedaan=0;
	$tellernietgedaan=0;
	(@lines) = split (/\n/, $data{'filename'});
	foreach $line (@lines)
		{
		$line=~ s/\'/\'\'/g;
		($zooi, $eigenrekening, $valuta, $datum, $debitcredit, $bedrag, $rekeningnaar, $naam, $datum2, $type, $onbekend, $omschrijving1, $omschrijving2, $omschrijving3) = split (/^\"|\"\,\"|\"$|\"\,|\,\"/, $line);
		$digest = md5_hex($line);
	
		$aantal_entries_gevonden=0;
		$query="select count(*) from $TABELNAAM where hash='$digest'";
		$mysql->query($query);
		$record_set = $mysql->create_record_iterator;
		while ($record = $record_set->each)
			{ 
			$aantal_entries_gevonden=$record->[0]; 
			}		
		if (($aantal_entries_gevonden eq "0") && ($eigenrekening eq "0124824803"))
			{

			$categorie_gevonden="";
			$query="select categorie from $TABELNAAM where naam='$naam'";
			$mysql->query($query);
			$record_set = $mysql->create_record_iterator;
			while ($record = $record_set->each)
				{ 
				$categorie_gevonden=$record->[0]; 
				}					
			
			$query="insert into $TABELNAAM (eigenrekening, valuta, datum, debetcredit, bedrag, naarrekening, naam, datum2, type, omschrijving1, omschrijving2, omschrijving3, hash, categorie) values ('$eigenrekening', '$valuta', '$datum', '$debitcredit', $bedrag, '$rekeningnaar', '$naam', '$datum2', '$type', '$omschrijving1', '$omschrijving2', '$omschrijving2', '$digest','$categorie_gevonden')";
			$mysql->query($query);
			$tellergedaan++;
			}
		else
			{
			$tellernietgedaan++;		
			}
		}
	print "<center>Er zijn $tellergedaan records geimporteerd en er zijn $tellernietgedaan records niet geimporteerd</center><br><br>";
	}

# ========================================================================================================================================
# ======================= Rabobank Jaar Overzicht ========================================================================================
# ========================================================================================================================================
if ($key{'page'} eq "")
	{
	print "<center>";
	print "<table border=\"0\" cellpadding=\"0\" cellspacing=\"0\" width=\"1000\">";
	print "<tr><td height=\"50\" bgcolor=\"05049d\"><font color=\"#FFFFFF\" face=\"verdana, arial\" size=\"5\"><b>&nbsp; Rabobank - Inkomsten en Uitgaven <i>($VERSION)</i></b></font></td></tr>";
	print "<tr><td height=\"25\" bgcolor=\"fe6600\"><font color=\"#FFFFFF\" face=\"verdana, arial\" size=\"2\"><b>&nbsp; FILER:";
	
	if ($key{'jaar'})
		{ print " <u>Jaar:</u> $key{'jaar'} "; }
	if ($key{'maand'})
		{ print " <u>Maand:</u> $maandNaarNaam{$key{'maand'}} "; }
	if ($key{'categorie'})
		{ print " <u>Categorie:</u> $key{'categorie'} "; }
	if ($key{'type'})
		{ print " <u>Type:</u> $key{'type'} "; }
	if ($key{'debetcredit'} eq "C")
		{ print " <u>Credit Debet:</u> CREDIT "; }
	if ($key{'debetcredit'} eq "D")
		{ print " <u>Credit Debet:</u> DEBET "; }
	if ($key{'pasje'})
		{ print " <u>Pas:</u> $key{'pasje'} ($passenNaam{$key{'pasje'}})"; }
					
	print "</b></font></td></tr>";
	print "<tr><td>";
	# =============================
	# =============================	
	
	print "<table border=\"0\" width=\"100%\" cellpadding=\"0\" cellspacing=\"0\">";
	print "<tr>";
		print "<td>";

				@scope=undef;
				%transacties=undef;
				%gevonden=undef;	
				$som1=0;
				$som2=0;
				$som3=0;	
				print "<br>";
				print "<table border=\"0\" width=\"320\" cellpadding=\"0\" cellspacing=\"1\">";
				print "<tr><td colspan=\"4\" bgcolor=\"05049d\"><font size=\"2\" face=\"verdana, arial\" color=\"#FFFFFF\"><b>Maandelijks In / Uit</b></font></td></tr>";
				print "<tr>";
				print "<td bgcolor=\"fe6600\" width=\"110\"><font size=\"1\" face=\"verdana, arial\" color=\"#FFFFFF\"><b>Maand</b></font></td>";
				print "<td bgcolor=\"fe6600\" align=\"right\" width=\"70\"><font size=\"1\" face=\"verdana, arial\" color=\"#FFFFFF\"><b>In</b></font></td>";
				print "<td bgcolor=\"fe6600\" align=\"right\" width=\"70\"><font size=\"1\" face=\"verdana, arial\" color=\"#FFFFFF\"><b>Uit</b></font></td>";
				print "<td bgcolor=\"fe6600\" align=\"right\" width=\"70\"><font size=\"1\" face=\"verdana, arial\" color=\"#FFFFFF\"><b>Verschil</b></font></td>";
				print "</tr>";
				$teller=0;
				$query="select year(datum), month(datum), debetcredit, round(sum(bedrag), 2) from $TABELNAAM group by year(datum), month(datum), debetcredit order by year(datum) desc, month(datum) desc";
				$mysql->query($query);
				$record_set = $mysql->create_record_iterator;
				while ($record = $record_set->each)
					{ 		
					$jaar=$record->[0];
					$maand=$record->[1];
					$debetcredit=$record->[2];
					$bedrag=$record->[3];
					$transacties{$jaar}{$maand}{$debetcredit}="$bedrag";
					if (!$gevonden{$jaar}{$maand})
						{ $scope[$teller]="$jaar-$maand"; $teller++; }
					$gevonden{$jaar}{$maand}=1;
					}		
				$jaarteller=1;			
				foreach $item (@scope)
					{
					if ($jaarteller <= 12)
						{							
						($jaartje, $maandje) = split (/\-/, $item);
						$verschil = $transacties{$jaartje}{$maandje}{'C'} - $transacties{$jaartje}{$maandje}{'D'};
						if ($bgcolor eq "#EEEEEE")
							{ $bgcolor="#FFFFFF"; }
						else
							{ $bgcolor="#EEEEEE"; }
						if (($key{'maand'} eq $maandje) && ($key{'jaar'} eq $jaartje))
							{
							$bgcolor="#FFFF64";
							}								
						print "<tr bgcolor=\"$bgcolor\">";
						print "<td><a href=\"?jaar=$jaartje&maand=$maandje\"><font size=\"1\" face=\"verdana, arial\" color=\"#000000\">$jaartje <b>$maandNaarNaam{$maandje}</b></font></a></td>";
						print "<td align=\"right\"><font size=\"1\" face=\"verdana, arial\" color=\"#009900\">€ $transacties{$jaartje}{$maandje}{'C'}</font></td>";
						print "<td align=\"right\"><font size=\"1\" face=\"verdana, arial\" color=\"#FF0000\">€ $transacties{$jaartje}{$maandje}{'D'}</font></td>";
						if ($verschil < 0)
							{ $color="#FF0000"; }
						else
							{ $color="#009900"; }
						print "<td align=\"right\"><font size=\"1\" face=\"verdana, arial\" color=\"$color\">€ ".sprintf("%.2f",$verschil)."</font></td>";				
						print "</tr>";			
						$som1=$som1+$transacties{$jaartje}{$maandje}{'C'};
						$som2=$som2+$transacties{$jaartje}{$maandje}{'D'};
						$som3=$som3+$verschil;
						}
					$jaarteller++;
					}	
				print "<tr bgcolor=\"#CCCCCC\">";
				print "<td><font size=\"1\" face=\"verdana, arial\" color=\"#000000\"><b><u>Totaal</b></u><br>&nbsp;</font></td>";
				print "<td align=\"right\"><font size=\"1\" face=\"verdana, arial\" color=\"#009900\"><b><u>€ ".sprintf("%.2f",$som1)."</b></u><br>&nbsp;</font></td>";
				print "<td align=\"right\"><font size=\"1\" face=\"verdana, arial\" color=\"#FF0000\"><b><u>€ ".sprintf("%.2f",$som2)."</b></u><br>&nbsp;</font></td>";			
				if ($som3 < 0)
					{ $color="#FF0000"; }
				else
					{ $color="#009900"; }				
				print "<td align=\"right\"><font size=\"1\" face=\"verdana, arial\" color=\"$color\"><b><u>€ ".sprintf("%.2f",$som3)."</b></u><br>&nbsp;</font></td>";
				print "</tr>";												
				print "</table>";
		
		print "</td>";
		print "<td>";
		
				@scope=undef;
				%transacties=undef;
				%gevonden=undef;
				$som=0;
				print "<br>";
				print "<table border=\"0\" width=\"140\" cellpadding=\"0\" cellspacing=\"1\">";
				print "<tr><td colspan=\"4\" bgcolor=\"05049d\"><font size=\"2\" face=\"verdana, arial\" color=\"#FFFFFF\"><b>Betaalautomaat</b></font></td></tr>";
				print "<tr>";
				print "<td bgcolor=\"fe6600\" width=\"70\"><font size=\"1\" face=\"verdana, arial\" color=\"#FFFFFF\"><b>Maand</b></font></td>";
				print "<td bgcolor=\"fe6600\" align=\"right\" width=\"70\"><font size=\"1\" face=\"verdana, arial\" color=\"#FFFFFF\"><b>Bedrag</b></font></td>";
				print "</tr>";
				$teller=0;
				$query="select year(datum), month(datum), round(sum(bedrag), 2) from $TABELNAAM where type='BA' group by year(datum), month(datum) order by year(datum) desc, month(datum) desc";
				$mysql->query($query);
				$record_set = $mysql->create_record_iterator;
				while ($record = $record_set->each)
					{ 		
					$jaar=$record->[0];
					$maand=$record->[1];
					$bedrag=$record->[2];
					$transacties{$jaar}{$maand}="$bedrag";
					if (!$gevonden{$jaar}{$maand})
						{ $scope[$teller]="$jaar-$maand"; $teller++; }
					$gevonden{$jaar}{$maand}=1;
					}		
				$jaarteller=1;
				foreach $item (@scope)
					{
					if ($jaarteller <= 12)
						{						
						($jaartje, $maandje) = split (/\-/, $item);
						if ($bgcolor eq "#EEEEEE")
							{ $bgcolor="#FFFFFF"; }
						else
							{ $bgcolor="#EEEEEE"; }
						if (($key{'maand'} eq $maandje) && ($key{'jaar'} eq $jaartje))
							{
							$bgcolor="#FFFF64";
							}								
						print "<tr bgcolor=\"$bgcolor\">";
						print "<td><a href=\"?jaar=$jaartje&maand=$maandje&type=ba\"><font size=\"1\" face=\"verdana, arial\" color=\"#000000\"><b>$maandNaarNaam{$maandje}</b></font></a></td>";
						print "<td align=\"right\"><font size=\"1\" face=\"verdana, arial\" color=\"#FF0000\">€ $transacties{$jaartje}{$maandje}</font></td>";			
						print "</tr>";		
						$betaalautomaten[$jaarteller]=$transacties{$jaartje}{$maandje};
						$som=$som+$transacties{$jaartje}{$maandje};
						}
					$jaarteller++;
					}
				print "<tr bgcolor=\"#CCCCCC\">";
				print "<td><font size=\"1\" face=\"verdana, arial\" color=\"#000000\"><b><u>Totaal</b></u><br>&nbsp;</font></td><td align=\"right\"><font size=\"1\" face=\"verdana, arial\" color=\"#FF0000\"><b><u>€ ".sprintf("%.2f",$som)."</b></u>";
				print "<br><u><b><font color=\"#800080\">€ ".sprintf("%.2f",$som/12)."</u></b></font>";
				print "</font></td>";
				print "</tr>";						
				print "</table>";				
		
		print "</td>";
		print "<td>";

				@scope=undef;
				%transacties=undef;
				%gevonden=undef;
				$som=0;
				print "<br>";
				print "<table border=\"0\" width=\"140\" cellpadding=\"0\" cellspacing=\"1\">";
				print "<tr><td colspan=\"4\" bgcolor=\"05049d\"><font size=\"2\" face=\"verdana, arial\" color=\"#FFFFFF\"><b>Geldautomaat</b></font></td></tr>";
				print "<tr>";
				print "<td bgcolor=\"fe6600\" width=\"70\"><font size=\"1\" face=\"verdana, arial\" color=\"#FFFFFF\"><b>Maand</b></font></td>";
				print "<td bgcolor=\"fe6600\" align=\"right\" width=\"70\"><font size=\"1\" face=\"verdana, arial\" color=\"#FFFFFF\"><b>Bedrag</b></font></td>";
				print "</tr>";
				$teller=0;
				$query="select year(datum), month(datum), round(sum(bedrag), 2) from $TABELNAAM where type='GA' and debetcredit='D' group by year(datum), month(datum) order by year(datum) desc, month(datum) desc";
				$mysql->query($query);
				$record_set = $mysql->create_record_iterator;
				while ($record = $record_set->each)
					{ 		
					$jaar=$record->[0];
					$maand=$record->[1];
					$bedrag=$record->[2];
					$transacties{$jaar}{$maand}="$bedrag";
					if (!$gevonden{$jaar}{$maand})
						{ $scope[$teller]="$jaar-$maand"; $teller++; }
					$gevonden{$jaar}{$maand}=1;
					}		
				$jaarteller=1;
				foreach $item (@scope)
					{
					if ($jaarteller <= 12)
						{
						($jaartje, $maandje) = split (/\-/, $item);
						if ($bgcolor eq "#EEEEEE")
							{ $bgcolor="#FFFFFF"; }
						else
							{ $bgcolor="#EEEEEE"; }
						if (($key{'maand'} eq $maandje) && ($key{'jaar'} eq $jaartje))
							{
							$bgcolor="#FFFF64";
							}	
						print "<tr bgcolor=\"$bgcolor\">";
						print "<td><a href=\"?jaar=$jaartje&maand=$maandje&type=ga\"><font size=\"1\" face=\"verdana, arial\" color=\"#000000\"><b>$maandNaarNaam{$maandje}</b></font></a></td>";
						print "<td align=\"right\"><font size=\"1\" face=\"verdana, arial\" color=\"#FF0000\">€ $transacties{$jaartje}{$maandje}</font></td>";			
						print "</tr>";	
						$pinautomaten[$jaarteller]=$transacties{$jaartje}{$maandje};		
						$som=$som+$transacties{$jaartje}{$maandje};
						}
					$jaarteller++;
					}
				print "<tr bgcolor=\"#CCCCCC\">";
				print "<td><font size=\"1\" face=\"verdana, arial\" color=\"#000000\"><b><u>Totaal</b></u><br>&nbsp;</font></td><td align=\"right\"><font size=\"1\" face=\"verdana, arial\" color=\"#FF0000\"><b><u>€ ".sprintf("%.2f",$som)."</b></u>";
				print "<br><u><b><font color=\"#800080\">€ ".sprintf("%.2f",$som/12)."</u></b></font>";
				print "</font></td>";
				print "</tr>";
				print "</table>";		
		
		print "</td>";
		print "<td>";
	
				@scope=undef;
				%transacties=undef;
				%gevonden=undef;
				$som=0;
				print "<br>";
				print "<table border=\"0\" width=\"140\" cellpadding=\"0\" cellspacing=\"1\">";
				print "<tr><td colspan=\"4\" bgcolor=\"05049d\"><font size=\"2\" face=\"verdana, arial\" color=\"#FFFFFF\"><b>Machtiging</b></font></td></tr>";
				print "<tr>";
				print "<td bgcolor=\"fe6600\" width=\"70\"><font size=\"1\" face=\"verdana, arial\" color=\"#FFFFFF\"><b>Maand</b></font></td>";
				print "<td bgcolor=\"fe6600\" align=\"right\" width=\"70\"><font size=\"1\" face=\"verdana, arial\" color=\"#FFFFFF\"><b>Bedrag</b></font></td>";
				print "</tr>";
				$teller=0;
				$query="select year(datum), month(datum), round(sum(bedrag), 2) from $TABELNAAM where type='MA' and debetcredit='D' group by year(datum), month(datum) order by year(datum) desc, month(datum) desc";
				$mysql->query($query);
				$record_set = $mysql->create_record_iterator;
				while ($record = $record_set->each)
					{ 		
					$jaar=$record->[0];
					$maand=$record->[1];
					$bedrag=$record->[2];
					$transacties{$jaar}{$maand}="$bedrag";
					if (!$gevonden{$jaar}{$maand})
						{ $scope[$teller]="$jaar-$maand"; $teller++; }
					$gevonden{$jaar}{$maand}=1;
					}		
				$jaarteller=1;
				foreach $item (@scope)
					{
					if ($jaarteller <= 12)
						{
						($jaartje, $maandje) = split (/\-/, $item);
						if ($bgcolor eq "#EEEEEE")
							{ $bgcolor="#FFFFFF"; }
						else
							{ $bgcolor="#EEEEEE"; }
						if (($key{'maand'} eq $maandje) && ($key{'jaar'} eq $jaartje))
							{
							$bgcolor="#FFFF64";
							}								
						print "<tr bgcolor=\"$bgcolor\">";
						print "<td><a href=\"?jaar=$jaartje&maand=$maandje&type=ma\"><font size=\"1\" face=\"verdana, arial\" color=\"#000000\"><b>$maandNaarNaam{$maandje}</b></font></a></td>";
						print "<td align=\"right\"><font size=\"1\" face=\"verdana, arial\" color=\"#FF0000\">€ $transacties{$jaartje}{$maandje}</font></td>";			
						print "</tr>";			
						$machtigingen[$jaarteller]=$transacties{$jaartje}{$maandje};								
						$som=$som+$transacties{$jaartje}{$maandje};
						}
					$jaarteller++;
					}
				print "<tr bgcolor=\"#CCCCCC\">";
				print "<td><font size=\"1\" face=\"verdana, arial\" color=\"#000000\"><b><u>Totaal</b></u><br>&nbsp;</font></td><td align=\"right\"><font size=\"1\" face=\"verdana, arial\" color=\"#FF0000\"><b><u>€ ".sprintf("%.2f",$som)."</b></u>";
				print "<br><u><b><font color=\"#800080\">€ ".sprintf("%.2f",$som/12)."</u></b></font>";
				print "</font></td>";
				print "</tr>";					
				print "</table>";		
		
		print "</td>";
		print "<td valign=\"top\">";
				print "<br>";
				print "<table border=\"0\" cellpadding=\"0\" cellspacing=\"1\">";
				print "<tr><td bgcolor=\"05049d\"><font size=\"2\" face=\"verdana, arial\" color=\"#FFFFFF\"><b><center>Totaal</center></b></font></td></tr>";
				print "<tr>";
				print "<td bgcolor=\"fe6600\"><font size=\"1\" face=\"verdana, arial\" color=\"#FFFFFF\"><b><center>Pin/Betaal</center></b></font></td>";
				print "</tr>";
				$jaarteller=1;
				$som=0;
				foreach $item (@scope)
					{
					if ($jaarteller <= 12)
						{
						($jaartje, $maandje) = split (/\-/, $item);
						if ($bgcolor eq "#CCCCCC")
							{ $bgcolor="#DDDDDD"; }
						else
							{ $bgcolor="#CCCCCC"; }
						if (($key{'maand'} eq $maandje) && ($key{'jaar'} eq $jaartje))
							{
							$bgcolor="#FFFF64";
							}								
						$superTotaal = $pinautomaten[$jaarteller] + $betaalautomaten[$jaarteller];
						print "<tr bgcolor=\"$bgcolor\">";
						print "<td align=\"right\"><font size=\"1\" face=\"verdana, arial\" color=\"#FF0000\"><b>€ ".sprintf("%.2f",$superTotaal)."</b></font></td>";			
						print "</tr>";				
						$som=$som+$superTotaal;
						}
					$jaarteller++;
					}				
				print "<tr bgcolor=\"#CCCCCC\"><td align=\"right\"><font size=\"1\" face=\"verdana, arial\" color=\"#FF0000\"><b><u>€ ".sprintf("%.2f",$som)."</b></u>";
				print "<br><u><b><font color=\"#800080\">€ ".sprintf("%.2f",$som/12)."</u></b></font>";
				print "</font></td></tr>";		
				print "</table>";		
		print "</td>";
		print "<td valign=\"top\">";
				print "<br>";
				print "<table border=\"0\" cellpadding=\"0\" cellspacing=\"1\">";
				print "<tr><td bgcolor=\"05049d\"><font size=\"2\" face=\"verdana, arial\" color=\"#FFFFFF\"><b><center>Totaal</center></b></font></td></tr>";
				print "<tr>";
				print "<td bgcolor=\"fe6600\"><font size=\"1\" face=\"verdana, arial\" color=\"#FFFFFF\"><b><center>Alles</center></b></font></td>";
				print "</tr>";
				$jaarteller=1;
				$som=0;
				foreach $item (@scope)
					{
					if ($jaarteller <= 12)
						{
						($jaartje, $maandje) = split (/\-/, $item);
						if ($bgcolor eq "#CCCCCC")
							{ $bgcolor="#DDDDDD"; }
						else
							{ $bgcolor="#CCCCCC"; }
						if (($key{'maand'} eq $maandje) && ($key{'jaar'} eq $jaartje))
							{
							$bgcolor="#FFFF64";
							}								
						$superTotaal = $pinautomaten[$jaarteller] + $betaalautomaten[$jaarteller] + $machtigingen[$jaarteller];
						print "<tr bgcolor=\"$bgcolor\">";
						print "<td align=\"right\"><font size=\"1\" face=\"verdana, arial\" color=\"#FF0000\">€ ".sprintf("%.2f",$superTotaal)."</font></td>";			
						print "</tr>";											
						$som=$som+$superTotaal;						
						}
					$jaarteller++;
					}		
				print "<tr bgcolor=\"#CCCCCC\"><td align=\"right\"><font size=\"1\" face=\"verdana, arial\" color=\"#FF0000\"><b><u>€ ".sprintf("%.2f",$som)."</b></u>";
				print "<br><u><b><font color=\"#800080\">€ ".sprintf("%.2f",$som/12)."</u></b></font>";
				print "</font></td></tr>";		
				print "</table>";		
		print "</td>";
		
		# ====================================================== SALARIS BLOK =====================================================
		print "<td valign=\"top\">";
				print "<br>";
				print "<table border=\"0\" width=\"80\" cellpadding=\"0\" cellspacing=\"1\">";
				print "<tr><td bgcolor=\"05049d\"><font size=\"2\" face=\"verdana, arial\" color=\"#FFFFFF\"><b><center>Salaris</center></b></font></td></tr>";
				print "<tr>";
				print "<td bgcolor=\"fe6600\"><font size=\"1\" face=\"verdana, arial\" color=\"#FFFFFF\"><b><center>&nbsp;</center></b></font></td>";
				print "</tr>";
				$jaarteller=1;
				$som=0;
				foreach $item (@scope)
					{
					if ($jaarteller <= 12)
						{
						($jaartje, $maandje) = split (/\-/, $item);
						if ($bgcolor eq "#FFB9FF")
							{ $bgcolor="#FFD7FF"; }
						else
							{ $bgcolor="#FFB9FF"; }
						if (($key{'maand'} eq $maandje) && ($key{'jaar'} eq $jaartje))
							{
							$bgcolor="#FFFF64";
							}									
						$superTotaal=0;
						$query="select round(sum(bedrag), 2) from $TABELNAAM where debetcredit='C' and year(datum)='$jaartje' and month(datum)='$maandje' and categorie='Salaris'";
						$mysql->query($query);
						$record_set = $mysql->create_record_iterator;
						while ($record = $record_set->each)
							{ 		
							$superTotaal=$record->[0];
							}
						print "<tr bgcolor=\"$bgcolor\">";
						print "<td align=\"right\"><font size=\"1\" face=\"verdana, arial\" color=\"#009900\">€ ".sprintf("%.2f",$superTotaal)."</font></td>";			
						print "</tr>";											
						$som=$som+$superTotaal;						
						}
					$jaarteller++;
					}		
				print "<tr bgcolor=\"#CCCCCC\"><td align=\"right\"><font size=\"1\" face=\"verdana, arial\" color=\"#009900\"><b><u>€ ".sprintf("%.2f",$som)."</b></u>";
				print "<br><u><b><font color=\"#800080\">€ ".sprintf("%.2f",$som/12)."</u></b></font>";
				print "</font></td></tr>";		
				print "</table>";		
		print "</td>";
		# ====================================================== SALARIS BLOK =====================================================
		
	print "</tr>";
	print "</table>";
	
	# ==========================================================================================
	# ================================= DETAIL OVERZICHT WEERGEVEN ALS DEZE IS AANGEKLIKT ======
	if (($key{'jaar'}) && ($key{'maand'}))
		{
		print "<table border=\"0\" width=\"100%\" cellpadding=\"0\" cellspacing=\"0\">";
		print "<tr>";
			print "<td valign=\"top\">";
	
				$totaal=0;
				print "<br>";
				print "<table border=\"0\" width=\"100%\" cellpadding=\"0\" cellspacing=\"1\">";
				print "<tr><td colspan=\"14\" bgcolor=\"05049d\"><font size=\"2\" face=\"verdana, arial\" color=\"#FFFFFF\"><b>Categorie overzicht: $maandNaarNaam{$key{'maand'}}</b></font></td></tr>";
				print "<tr>";
				print "<td bgcolor=\"fe6600\" width=\"180\"><font size=\"1\" face=\"verdana, arial\" color=\"#FFFFFF\"><b>Categorie</b></font></td>";
				print "<td bgcolor=\"fe6600\" align=\"right\" width=\"70\"><font size=\"1\" face=\"verdana, arial\" color=\"#FFFFFF\"><b>Bedrag</b></font></td>";
				for ($i=1; $i<=12; $i++)
						{
						($jaartje, $maandje) = split (/\-/, $scope[$i - 1]);
						print "<td bgcolor=\"fe6600\" align=\"right\" width=\"70\"><font size=\"1\" face=\"verdana, arial\" color=\"#FFFFFF\"><b>$maandNaarNaam{$maandje}</b></font></td>";
						}						
				print "</tr>";
				$teller=0;
				if ($key{'type'})
					{
					$query="select categorie, round(sum(bedrag), 2), debetcredit from $TABELNAAM where year(datum)=$key{'jaar'} and month(datum)=$key{'maand'} and type='$key{'type'}' group by categorie, debetcredit order by categorie";
					}
				else
					{
					$query="select categorie, round(sum(bedrag), 2), debetcredit from $TABELNAAM where year(datum)=$key{'jaar'} and month(datum)=$key{'maand'} group by categorie, debetcredit order by categorie";						
					}
				$mysql->query($query);
				$record_set = $mysql->create_record_iterator;
				while ($record = $record_set->each)
					{ 		
					$categorie=$record->[0];
					$bedrag=$record->[1];
					$debetcredit=$record->[2];
					$color="#FF0000";
					if (($debetcredit eq "c") || ($debetcredit eq "C"))
						{
						$bedrag=0 - $bedrag;	
						$color="#009900";
						}
					if ($bgcolor eq "#EEEEEE")
						{ $bgcolor="#FFFFFF"; }
					else
						{ $bgcolor="#EEEEEE"; }
					if (($categorie eq $key{'categorie'}) && ($debetcredit eq $key{'debetcredit'}))
						{
						$bgcolor="#FFFF64";
						}
					print "<tr bgcolor=\"$bgcolor\">";
					print "<td><a href=\"?jaar=$key{'jaar'}&maand=$key{'maand'}&type=$key{'type'}&categorie=$categorie&debetcredit=$debetcredit\"><font size=\"1\" face=\"verdana, arial\" color=\"#000000\">($debetcredit) <b>$categorie</b></font></a></td>";
					$totaal = $totaal + $bedrag;
					$bedrag=~ s/\-//g;
					print "<td align=\"right\"><font size=\"1\" face=\"verdana, arial\" color=\"$color\"><b>€ ".sprintf("%.2f",$bedrag)."</b></font></td>";			
					for ($i=1; $i<=12; $i++)
						{
						($jaartje, $maandje) = split (/\-/, $scope[$i - 1]);	
						$bedrag=0;
						if ($key{'type'})
							{
							$query2="select round(sum(bedrag), 2) from $TABELNAAM where categorie='$categorie' and debetcredit='$debetcredit' and year(datum)=$jaartje and month(datum)=$maandje and type='$key{'type'}' group by categorie, debetcredit order by categorie";
							}
						else
							{
							$query2="select round(sum(bedrag), 2) from $TABELNAAM where categorie='$categorie' and debetcredit='$debetcredit' and year(datum)=$jaartje and month(datum)=$maandje group by categorie, debetcredit order by categorie";						
							}
						$mysql->query($query2);
						$record_set2 = $mysql->create_record_iterator;
						while ($record2 = $record_set2->each)
							{ 		
							$bedrag=$record2->[0];
							}
						$color="#000000";
						
						if (($debetcredit eq "c") || ($debetcredit eq "C"))
							{
							$bedrag=0 - $bedrag;	
							$color="#009900";
							}									

						$maandTotaal[$maandje]=$maandTotaal[$maandje] + $bedrag;
						$bedrag=~ s/\-//g;
						
						if ($maandje eq $key{'maand'})				
							{
							print "<td align=\"right\" bgcolor=\"#FFFF64\"><font size=\"1\" face=\"verdana, arial\" color=\"$color\">";
							if ($bedrag != 0)
								{
								print "€ ".sprintf("%.2f",$bedrag);
								}
							print "</font></td>";									
							}
						else
							{											
							print "<td align=\"right\"><font size=\"1\" face=\"verdana, arial\" color=\"$color\">";
							if ($bedrag != 0)
								{
								print "€ ".sprintf("%.2f",$bedrag);
								}
							print "</font></td>";									
							}
						}					
					
					print "</tr>";			
					}		
				print "<tr bgcolor=\"CCCCCC\">";
				print "<td><font size=\"1\" face=\"verdana, arial\" color=\"#000000\"><u><b>TOTAAL</b></u></font></td>";
				$color="#FF0000";
				if ($totaal < 0)
					{
					$totaal =~ s/\-//g;
					$color="#009900";
					}
				print "<td align=\"right\"><font size=\"1\" face=\"verdana, arial\" color=\"$color\"><u><b>€ ".sprintf("%.2f",$totaal)."</b></u></font></td>";			

				for ($i=1; $i<=12; $i++)
					{
					($jaartje, $maandje) = split (/\-/, $scope[$i - 1]);	
					$color="#FF0000";
					if ($maandTotaal[$maandje] < 0)
						{
						$maandTotaal[$maandje] =~ s/\-//g;
						$color="#009900";
						}					
					print "<td align=\"right\"><font size=\"1\" face=\"verdana, arial\" color=\"$color\"><u><b>€ ".sprintf("%.2f",$maandTotaal[$maandje])."</b></u></font></td>";									
					}	

				print "</tr>";			
				print "</table>";			
	
			print "</td>";
		print "</tr>";
		print "</table>";
		}
	# ==========================================================================================
	# ==========================================================================================
		print "<table border=\"0\" width=\"100%\" cellpadding=\"0\" cellspacing=\"0\">";
		print "<tr>";
			print "<td valign=\"top\">";
	
				$totaal=0;
				print "<br>";
				print "<table border=\"0\" width=\"100%\" cellpadding=\"0\" cellspacing=\"1\">";
				print "<tr><td colspan=\"14\" bgcolor=\"05049d\"><font size=\"2\" face=\"verdana, arial\" color=\"#FFFFFF\"><b>Passen overzicht: $maandNaarNaam{$key{'maand'}}</b></font></td></tr>";
				print "<tr>";
				print "<td bgcolor=\"fe6600\" width=\"180\"><font size=\"1\" face=\"verdana, arial\" color=\"#FFFFFF\"><b>Pas</b></font></td>";
				for ($i=1; $i<=12; $i++)
						{
						($jaartje, $maandje) = split (/\-/, $scope[$i - 1]);
						print "<td bgcolor=\"fe6600\" align=\"right\" width=\"70\"><font size=\"1\" face=\"verdana, arial\" color=\"#FFFFFF\"><b>$maandNaarNaam{$maandje}</b></font></td>";
						}										
				print "</tr>";				
				foreach $pasje (@passen)
					{
					if ($bgcolor2 eq "#EEEEEE")
						{ $bgcolor2="#FFFFFF"; }
					else
						{ $bgcolor2="#EEEEEE"; }						
					print "<tr bgcolor=\"$bgcolor2\">";
					print "<td><font size=\"1\" face=\"verdana, arial\">$pasje <b>($passenNaam{$pasje})</b></font></td>";
					for ($i=1; $i<=12; $i++)
						{
						($jaartje, $maandje) = split (/\-/, $scope[$i - 1]);	
						$bedrag=0;
						if (($key{'type'}) && ($key{'categorie'}))
							{
							$query2="select round(sum(bedrag), 2) from $TABELNAAM where categorie='$key{'categorie'}' and year(datum)=$jaartje and month(datum)=$maandje and type='$key{'type'}' and omschrijving1 like '%$pasje%' and debetcredit='$key{'debetcredit'}'";
							}
						elsif ($key{'type'})
							{
							$query2="select round(sum(bedrag), 2) from $TABELNAAM where  year(datum)=$jaartje and month(datum)=$maandje and type='$key{'type'}' and omschrijving1 like '%$pasje%'";								
							}
						elsif ($key{'categorie'})
							{
							$query2="select round(sum(bedrag), 2) from $TABELNAAM where categorie='$key{'categorie'}' and year(datum)=$jaartje and month(datum)=$maandje and omschrijving1 like '%$pasje%' and debetcredit='$key{'debetcredit'}'";								
							}
						else
							{
							$query2="select round(sum(bedrag), 2) from $TABELNAAM where year(datum)=$jaartje and month(datum)=$maandje and omschrijving1 like '%$pasje%'";						
							}
						$mysql->query($query2);
						$record_set2 = $mysql->create_record_iterator;
						while ($record2 = $record_set2->each)
							{ 		
							$bedrag=$record2->[0];
							$color="#FF0000";
							if ($bedrag < 0)
								{
								$bedrag =~ s/\-//g;
								$color="#009900";
								}		
							$bgcolor="";														
							if ($maandje eq $key{'maand'})				
								{
								$bgcolor="#FFFF64";
								}																
							print "<td bgcolor=\"$bgcolor\" align=\"right\"><a href=\"?jaar=$jaartje&maand=$maandje&type=$key{'type'}&categorie=$key{'categorie'}&debetcredit=$key{'debetcredit'}&pasje=$pasje\"><font size=\"1\" face=\"verdana, arial\" color=\"$color\">";
							if ($bedrag)
								{
								print "€ ".sprintf("%.2f",$bedrag);
								}
							print "</font></a></td>";									
							$passensom[$i]=$passensom[$i]+$bedrag;
							}
						}	
					print "</tr>";		

					}
				print "<tr>";
				print "<td bgcolor=\"#CCCCCC\"><font size=\"1\" face=\"verdana, arial\"><b>Totaal</b></font></td>";
				for ($i=1; $i<=12; $i++)
					{
					($jaartje, $maandje) = split (/\-/, $scope[$i - 1]);	
					$bgcolor="#CCCCCC";														
					if ($maandje eq $key{'maand'})				
						{
						$bgcolor="#FFFF64";
						}																						
					print "<td bgcolor=\"$bgcolor\" align=\"right\"><a href=\"?jaar=$jaartje&maand=$maandje&type=$key{'type'}&categorie=$key{'categorie'}&debetcredit=$key{'debetcredit'}&pasje=ALL\"><font size=\"1\" face=\"verdana, arial\" color=\"$color\"><b>€ ".sprintf("%.2f",$passensom[$i])."</b></font></a></td>";									
					}					
				print "</tr>";									
				print "</table>";
			
			print "</td>";
		print "</tr>";
		print "</table>";
	
	print "<br>";
	print "<table border=\"0\" width=\"100%\" cellpadding=\"0\" cellspacing=\"0\">";
	print "<tr>";
		print "<td>";

				print "<table border=\"0\" width=\"1000\" cellpadding=\"0\" cellspacing=\"1\">";
				print "<tr><td colspan=\"8\" bgcolor=\"05049d\"><font size=\"2\" face=\"verdana, arial\" color=\"#FFFFFF\"><b>Detailoverzicht transacties</b></font></td></tr>";
				print "<tr>";
				print "<td bgcolor=\"fe6600\"><font size=\"1\" face=\"verdana, arial\" color=\"#FFFFFF\"><b>Categorie</b></font></td>";
				print "<td width=\"80\" bgcolor=\"fe6600\"><font size=\"1\" face=\"verdana, arial\" color=\"#FFFFFF\"><b>Datum</b></font></td>";
				print "<td width=\"40\" bgcolor=\"fe6600\"><font size=\"1\" face=\"verdana, arial\" color=\"#FFFFFF\"><b>Type</b></font></td>";
				print "<td width=\"20\" bgcolor=\"fe6600\"><font size=\"1\" face=\"verdana, arial\" color=\"#FFFFFF\"><b></b></font></td>";
				print "<td width=\"90\" bgcolor=\"fe6600\"><font size=\"1\" face=\"verdana, arial\" color=\"#FFFFFF\"><b>Rekening</b></font></td>";
				print "<td width=\"180\" bgcolor=\"fe6600\"><font size=\"1\" face=\"verdana, arial\" color=\"#FFFFFF\"><b>Naam</b></font></td>";
				print "<td width=\"230\" bgcolor=\"fe6600\"><font size=\"1\" face=\"verdana, arial\" color=\"#FFFFFF\"><b>Omschrijving</b></font></td>";
				print "<td width=\"70\" bgcolor=\"fe6600\"><font size=\"1\" face=\"verdana, arial\" color=\"#FFFFFF\"><b>Bedrag</b></font></td>";																
				print "</tr>";	
				print "</table>";

				$gevonden=0;
				# print "<DIV STYLE=\"overflow: auto; width: 920px; height: 200; border-left: 0px gray solid; border-bottom: 0px gray solid; padding:0px; margin: 0px\">";
				print "<table border=\"0\" width=\"1000\" cellpadding=\"0\" cellspacing=\"1\">";
				$andpasje="";
				if ($key{'pasje'})
					{
					$andpasje=" and omschrijving1 like '%$key{'pasje'}%'";
					}
				if ($key{'pasje'} eq "ALL")
					{
					$andpasje="";
					$runner="";
					foreach $pasje (@passen)
						{
						if ($runner)
							{ $runner="$runner OR omschrijving1 like '%$pasje%' "; }
						else
							{ $runner="omschrijving1 like '%$pasje%'"; }
						}
					$andpasje=" and ($runner)";
					}
				if (($key{'type'}) && ($key{'categorie'}))
					{
					if ($key{'debetcredit'})
						{
						$query="select datum, debetcredit, bedrag, naarrekening, naam, type, omschrijving1, omschrijving2, omschrijving3, categorie from $TABELNAAM where year(datum)=$key{'jaar'} and month(datum)=$key{'maand'} and type='$key{'type'}' and categorie='$key{'categorie'}' and debetcredit='$key{'debetcredit'}' $andpasje order by datum desc";						
						}
					else
						{
						$query="select datum, debetcredit, bedrag, naarrekening, naam, type, omschrijving1, omschrijving2, omschrijving3, categorie from $TABELNAAM where year(datum)=$key{'jaar'} and month(datum)=$key{'maand'} and type='$key{'type'}' and categorie='$key{'categorie'}' $andpasje order by datum desc";													
						}
					}
				elsif ($key{'type'})
					{
					$query="select datum, debetcredit, bedrag, naarrekening, naam, type, omschrijving1, omschrijving2, omschrijving3, categorie from $TABELNAAM where year(datum)=$key{'jaar'} and month(datum)=$key{'maand'} and type='$key{'type'}' $andpasje order by datum desc";
					}
				elsif ($key{'categorie'})
					{
					if ($key{'debetcredit'})
						{
						$query="select datum, debetcredit, bedrag, naarrekening, naam, type, omschrijving1, omschrijving2, omschrijving3, categorie from $TABELNAAM where year(datum)=$key{'jaar'} and month(datum)=$key{'maand'} and categorie='$key{'categorie'}' and debetcredit='$key{'debetcredit'}' $andpasje order by datum desc";						
						}
					else
						{
						$query="select datum, debetcredit, bedrag, naarrekening, naam, type, omschrijving1, omschrijving2, omschrijving3, categorie from $TABELNAAM where year(datum)=$key{'jaar'} and month(datum)=$key{'maand'} and categorie='$key{'categorie'}' order by datum $andpasje desc";													
						}
					}
				elsif (($key{'jaar'}) && ($key{'maand'}))
					{
					$query="select datum, debetcredit, bedrag, naarrekening, naam, type, omschrijving1, omschrijving2, omschrijving3, categorie from $TABELNAAM where year(datum)=$key{'jaar'} and month(datum)=$key{'maand'} $andpasje order by datum desc";												
					}
				else
					{
					$query="select datum, debetcredit, bedrag, naarrekening, naam, type, omschrijving1, omschrijving2, omschrijving3, categorie from $TABELNAAM where 1=0 $andpasje order by datum desc";						
					}
				$mysql->query($query);
				$record_set = $mysql->create_record_iterator;
				while ($record = $record_set->each)
					{ 		
					$datum=$record->[0];
					$debetcredet=$record->[1];
					$bedrag=$record->[2];
					$naarrekening=$record->[3];
					$naam=$record->[4];
					$type=$record->[5];
					$omschrijving1=$record->[6];
					$omschrijving2=$record->[7];
					$omschrijving3=$record->[8];
					$cat=$record->[9];					
					if ($bgcolor eq "#EEEEEE")
						{ $bgcolor="#FFFFFF"; }
					else
						{ $bgcolor="#EEEEEE"; }					
					print "<tr bgcolor=\"$bgcolor\">";
					print "<form>";
					print "<input type=\"hidden\" name=\"action\" value=\"cattoevoegen\">";
					print "<input type=\"hidden\" name=\"name\" value=\"$naam\">";
					print "<input type=\"hidden\" name=\"jaar\" value=\"$key{'jaar'}\">";
					print "<input type=\"hidden\" name=\"maand\" value=\"$key{'maand'}\">";					
					print "<input type=\"hidden\" name=\"debetcredit\" value=\"$key{'debetcredit'}\">";									
					print "<td valign=\"top\"><font size=\"1\" face=\"verdana, arial\" color=\"#000000\"><select style=\"width:180; font-size: 9px\" onchange=\"submit();\" name=\"categorie\">";
					print "<option value=\"\"></option>";
					foreach $item (@categorie)
						{
						if ($cat eq $item)
							{ print "<option SELECTED value=\"$item\">$item</option>"; }
						else
							{ print "<option value=\"$item\">$item</option>"; }
						}
					print "</select></font></td>";
					print "</form>";
					print "<td width=\"80\"><font size=\"1\" face=\"verdana, arial\" color=\"#000000\">$datum</font></td>";
					print "<td width=\"40\"><font size=\"1\" face=\"verdana, arial\" color=\"#000000\">$type</font></td>";
					print "<td width=\"20\"><font size=\"1\" face=\"verdana, arial\" color=\"#000000\">$debetcredet</font></td>";
					print "<td width=\"90\"><font size=\"1\" face=\"verdana, arial\" color=\"#000000\">$naarrekening</font></td>";
					print "<td width=\"180\"><font size=\"1\" face=\"verdana, arial\" color=\"#000000\">$naam</font></td>";
					print "<td width=\"230\"><font size=\"1\" face=\"verdana, arial\" color=\"#000000\">$omschrijving1</font></td>";
					$color="#FF0000";
					if ($debetcredet =~ /C|c/)
						{ $color="#009900"; }
					print "<td width=\"70\" align=\"right\"><font size=\"1\" face=\"verdana, arial\" color=\"$color\">€ ".sprintf("%.2f",$bedrag)."</font></td>";
					if ($debetcredet =~ /D|d/)
						{ $supersom = $supersom - $bedrag; }
					else
						{ $supersom = $supersom + $bedrag; }
					print "</tr>";
					$gevonden++;
					}		
				$color="#FF0000";
				if ($supersom > 0)
					{ $color="#009900"; }
				else
					{ $supersom =~ s/\-//g; }						
				print "<tr bgcolor=\"#CCCCCC\"><td colspan=\"7\"><font size=\"2\" face=\"verdana, arial\" color=\"#000000\"><b><u>Totaal</b></u></font></td><td align=\"right\"><font size=\"2\" face=\"verdana, arial\" color=\"$color\"><b><u>€ ".sprintf("%.2f",$supersom)."</b></u></font></td></tr>";	
				
				print "<table>";
				# print "</div>";
		print "</td>";
	print "</tr>";
	print "</table>";
				if (!$gevonden)
					{
					print "<center><font face=\"verdana, arial\" size=\"2\">Er zijn geen transacties gevonden</font></center>";
					}	
	# =============================
	# =============================	
	print "</td></tr>";
	print "</table>";
	print "</center>";
	}

print "<form method=\"post\" enctype=\"multipart/form-data\">";
print "<input type=\"hidden\" name=\"action\" value=\"upload\">";
print "<font size=\"2\" face=\"verdana, arial\"><center>Rabobank comma MUT file: <input type=\"file\" name=\"filename\" value=\"\" size=\"20\"> <input type=\"submit\" value=\"uploaden\"></center></font>";
print "</form>";

print "</body>";
print "</html>";