use strict;

use lib '/app/tools/common/lib';
use Common::RSApp;

use lib '/app/tools/rps/lib';
use RPS::DB::Item::MechanicalStatementItem;
use RPS::DB::Item::MechanicalStatement;
use RPS::DB::Item::SaleMechanicalStatementItemMap;
use RPS::DB::Item::SaleRunMap;

my @clientIDs;
push @clientIDs, _getLocalClientIDs();

foreach my $clientID (@clientIDs) {
    next unless ($clientID);
    print $clientID. "\n";

    my $app = Common::RSApp->new( clientID => $clientID );

    _convert();
}

sub _convert {
    my $saleMapEntries = RPS::DB::Item::SaleMechanicalStatementItemMap->GetAll();

    while ( my $oldMapItem = $saleMapEntries->next() ) {
        my $item =
          RPS::DB::Item::MechanicalStatementItem->Lookup( mechanical_statement_item_id => $oldMapItem->mechanical_statement_item_id );
        if ($item) {
            my $statement = RPS::DB::Item::MechanicalStatement->Lookup( mechanical_statement_id => $item->mechanical_statement_item_id );
            if ($statement) {
                my $newMap = RPS::DB::Item::SaleRunMap->Create(
                    run_id            => $statement->mechanical_run_id,
                    run_type          => RPS::DB::Item::SaleRunMap::kRunTypeMechanical,
                    statement_item_id => $item->mechanical_statement_item_id,
                    status            => RPS::DB::Item::SaleRunMap::kStatusPaid,
                );
                $newMap->save();
            }
        }
    }
}

sub _getLocalClientIDs {

    # We have a nifty little script that will give us a list of client databases.
    #
    my $clientListString = `/app/tools/rps/bin/db/list_client_dbs.pl`;
    chomp $clientListString;

    # Find the client id that matches each database.
    #
    my @ids;
    my @dbNames = split( / /, $clientListString );
    foreach my $dbName (@dbNames) {
        my $id = Common::RSDB::DBNameToClientID($dbName);
        push @ids, $id;

    }

    #    return @ids;
    return 3;
}