print  "Connecting to sql db...";
my $db=DBI->connect('DBI:ODBC(AutoCommit => 0):DB') or handleError({ErrorMessage=>'DB Error'.DBI->errstr.$!,Subject=>"Transaction Import Error"});
print  "done\nPreparing command...";

my $statement = $db->prepare("Insert INTO Transactions VALUES (?,?,?,convert(date,?),convert(date,?),?,?,?,?,?,?,?,?,?,?,?,?,?,?)") or handleError({ErrorMessage=>'DB Error'.DBI->errstr.$!,Subject=>"Transaction Import Error"});
print  "Getting data\n";
my $lineno=0;
while ( my $line=$csv->getline($io)){
	++$lineno;
	my @thisline=@{$line};
	push @thisline,$thisline[13]-$thisline[16]+$thisline[17];
	print join(',',@thisline)."\n";
	$statement->execute(@thisline) or handleError({ErrorMessage=>'DB Error'."\n".$DBI::errstr."\n".$DBI::err."\n".$DBI::state."\n".$!,Subject=>"GL Transaction Import Error"});	
	print "$lineno\n";
}

$db->commit();
$db->disconnect();