package RPS::Import::EMIUK::v6;

use strict;

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

use lib '/app/tools/rps/lib';
use base 'RPS::Import::EMIUK::v3';

use Data::Dumper;

sub _headerIdentifier { ( price => 'NDS value' ) }

sub _fieldMap {
    my $self = shift;

    my $fieldMap = $self->SUPER::_fieldMap();

    $fieldMap->{dateBegin} = 'A';
    $fieldMap->{dateEnd}   = 'A';

    $fieldMap->{units} = 'I';
    $fieldMap->{price} = 'O';

    return $fieldMap;
}

sub _processHeader {
    my $self = shift;

    return if ( $self->{_dateBegin} );

    my $date = $self->_getByFieldName('dateBegin') || return;
    ($date) = $date =~ /(\d{2}-\w{3}-\d{4})/;
    if ($date) {
        my $d = new Common::Date($date);
        $self->{_dateBegin} = $d->monthBegin();
        $self->{_dateEnd}   = $d->monthEnd();
    }
}

sub price {
    my $self = shift;

    my $units = $self->SUPER::units();
    my $price = $self->SUPER::price();

    # let's not die for zero unit transactions under 2 cents
    # (at least that's my 2 cents, HAR HAR)
    if ( $units == 0 && abs($price) < 0.02 ) {
        $price = 0;
    }

    return $price;
}

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