#!/usr/bin/perl
use strict;


use Data::Dumper;
use Getopt::Std;
use POSIX qw(ceil);
use POSIX ":sys_wait_h";
use Sys::Hostname;
use Carp;


use lib '/app/tools/common/lib';
use Common::DB::Item;
use Common::Assert;
use Common::TextProgressBar;
use Common::Timer;
use Common::DB::Item::Service;
use Common::RSMath;

#use lib '/app/tools/data_classes/lib';
#use File::Sale;
use lib '/app/tools/raptor/lib';
#use Raptor::Sale::Sale;
use Raptor::DB::Item::Sale;
use Raptor::DB::Item::File;

use lib '/app/tools/rps/lib';
use RPS::DB::Item::ArtistRoyaltyAlbum;
use RPS::DB::Item::ArtistRoyaltyRun;
use RPS::DB::Item::ArtistRoyaltyStatement;
use RPS::DB::Item::FinanceAccount;
use RPS::DB::Item::FinanceTransaction;
use RPS::DB::Item::ArtistRoyaltyAlbumBalanceAccount;

my $gVerbosityLevel = 1;



# Parse the command-line options.
#
my %options;
_parseCommandLine(\%options);


# Instantiate the application singleton object.
#
my $appSingleton = Common::RSApp->new(clientID => $options{clientID});

my $db = Common::RSApp::GetClientDB();


# First, run through all the transactions and make note of their amount and balances.
#
my @data;
my $sth = $db->DoCmd("select * from finance_transaction");
while (my $hr = $sth->fetchrow_hashref())
{
    my $id = $hr->{finance_transaction_id};
    my $amount = $hr->{amount};
    my $balance = $hr->{balance};

    print "$id $amount $balance\n";
    
    # Note that we're now rounding to _2_ decimal places...
    #
    my $roundedAmount = Common::RSMath::round($amount, 2);
    my $roundedBalance = Common::RSMath::round($balance, 2);
    print "$id $roundedAmount $roundedBalance\n";

    push @data, { id => $id, balance => $roundedBalance, amount => $roundedAmount};
}

$db->DoCmd("alter table finance_transaction change amount amount decimal(16,2) not null default '0.00'");
$db->DoCmd("alter table finance_transaction change balance balance decimal(16,2) not null default '0.00'");

foreach my $r (@data)
{
    my $id = $r->{id};
    my $roundedAmount = $r->{amount};
    my $roundedBalance = $r->{balance};

    my $sql = "update finance_transaction set amount=".$db->DBQuote($roundedAmount).",balance=".$db->DBQuote($roundedBalance)." WHERE finance_transaction_id=$id";
    $db->DoCmd($sql);
    print $sql . "\n";
    print $db->LastErrorStr(). "\n";
}


sub _usage
{
    print "\nusage: $0 -c client_id [-V]\n";
    print "\n";
    print "Arguments:\n";
    print "\t-c <client_id>\t\tThe client_id of the client to process\n";
    print "\t-V <N>\t\t\tVerbosity level - 0 means no output\n";
}


sub _report
{
    my ($string, $verbosity) = @_;
    $verbosity = 1 unless defined $verbosity;

    if ($gVerbosityLevel >= $verbosity)
    {
        print $string . "\n";
    }
}


# Pass dates in 'yyyy-mm-dd' format.
#
sub _parseCommandLine
{
    my ($settings) = @_;

    my %opt;
    getopts('c:V:', \%opt);

    if (! $opt{c})
    {
        _usage();
        exit(1);
    }
    $settings->{clientID} = $opt{c};

    if (defined $opt{V})
    {
        $gVerbosityLevel = $opt{V};
    }
}