package RPS::Import::ADA::v8;

use strict;


use lib '/app/tools/common/lib';
use Common::Util qw(normalize_date normalize_upc);
use Date::Calc qw(Days_in_Month);
use Data::Dumper;

use lib '/app/tools/data_classes/lib';

use lib '/app/tools/rps/lib';
use RPS::File::Sale;

use base 'RPS::Import::ADA::ADABase';

# NB: non-standard _fieldMap; need to override _importLines
sub _fieldMap {
    {
        'digital sales' => {
            date_row        => 4,
            date_col        => 10,
            label           => 0,  # A
            format_type     => 2,  # C
            serviceName     => 3,  # D
            country_code    => 4,  # E
            clientProductID => 8,  # I
            productTypeCode => 9,  # J
            artistName      => 6,  # G
            title           => 7,  # H
            units           => 11, # L
            price           => 12, # M
        },

        'label ds' => {
           currency_row     => 8,
           currency_col     => 2, # C

           distfee_row      => 23,
           distfee_col      => 1, # B

           no_detail        => 1, # prevent sales detail from being processed on this sheet
        }
    }
}

sub _getGlobalCurrencyCode
{
    my $self = shift;
    my( $args )  = @_;

    my $currencyCode;
    my $err;

    my $offsets     = $self->_fieldMap;
    my $sheet_names = $args->{sheet_names};
    my $sheetCount  = 0;
    
    foreach my $sheet (@{$args->{sheets}})
    {
        my $sheetName = $sheet_names->[$sheetCount];

        if ( !$currencyCode && exists $offsets->{ lc $sheetName } )
        {
           my $data = $offsets->{lc $sheetName};
           if ( exists $data->{currency_row} )
           {
               my $row = $data->{currency_row};
               my $col = $data->{currency_col};
               $currencyCode = substr( $sheet->[$row][$col], 0, 3);;
           }
        }
        $sheetCount++;
    }

    $err= RPS::Import::ADA::ADABase::kDataNotFound if ( !$currencyCode );
    return($currencyCode, $err);

}

sub _getGlobalDistributionFee
{
    my $self = shift;
    my( $args )  = @_;

    my $distFee;
    my $err;

    my $offsets     = $self->_fieldMap;
    my $sheet_names = $args->{sheet_names};

    my $sheetCount = 0;
    
    foreach my $sheet (@{$args->{sheets}})
    {
        my $sheetName = $sheet_names->[$sheetCount];

        if ( !$distFee && exists $offsets->{ lc $sheetName } )
        {
           my $data = $offsets->{lc $sheetName};
           if ( exists $data->{distfee_row} )
           {
               my $row = $data->{distfee_row};
               my $col = $data->{distfee_col};
               $distFee = $sheet->[$row][$col];
           }
        }
        $sheetCount++;
    }

    $err= RPS::Import::ADA::ADABase::kDataNotFound if ( !$distFee );
    return($distFee,$err);
}

###
1;# Play nicely.
###