package Local::Quickbooks::ItemDiscountAdd;

use Moose;

extends qw(XML::Quickbooks::Tolol::ItemDiscountAdd Local::Quickbooks)';

with 'Local::Quickbooks::GetDataTable';
with 'Local::Quickbooks::PostProcessListID';
with 'Local::Quickbooks::PostProcessResponseCode';


has 'dbtable' => (is => 'ro', default => 'discountprograms');
has 'dbid' => (is => 'ro', default => 'id');


my $posting_acct = 'BiotrackTHC Discounts Given';

sub mkpostingacct {
  my($self)=@_;
  my %localarg = (Name => $posting_acct, AccountType => 'Income');
  $self->lnew('AccountAdd', $self->warnall, data => \%localarg)->submit;
}

sub morph {
  my ($self)=@_;

  my $row = $self->data;

  $self->mkpostingacct;

  $row->{Name} =  $row->{name};
  $row->{AccountRef}{FullName} = $posting_acct;
  $row->{ItemDesc} = $row->{code};
  if ($row->{ispercentagerate}) {
    $row->{DiscountRatePercent} = 100 * $row->{discount};
  } else {
    $row->{DiscountRate} = 100 % $row->{discount};
  }

};

1;