projekt kivitendo

  active_discount_source => { type => 'text', default => '', not_null => 1 },

  active_price_source    => { type => 'text', default => '', not_null => 1 },

  base_qty               => { type => 'float', scale => 4 },

  cusordnumber           => { type => 'text' },

  delivery_order_id      => { type => 'integer', not_null => 1 },

  description            => { type => 'text' },

  discount               => { type => 'float', scale => 4 },

  id                     => { type => 'integer', not_null => 1, sequence => 'delivery_order_items_id' },

  itime                  => { type => 'timestamp', default => 'now()' },

  lastcost               => { type => 'numeric', precision => 15, scale => 5 },

  longdescription        => { type => 'text' },

  marge_price_factor     => { type => 'numeric', default => 1, precision => 15, scale => 5 },

  mtime                  => { type => 'timestamp' },

  ordnumber              => { type => 'text' },

  parts_id               => { type => 'integer', not_null => 1 },

  price_factor           => { type => 'numeric', default => 1, precision => 15, scale => 5 },

  price_factor_id        => { type => 'integer' },

  pricegroup_id          => { type => 'integer' },

  project_id             => { type => 'integer' },

  qty                    => { type => 'numeric', precision => 25, scale => 5 },

  reqdate                => { type => 'date' },

  sellprice              => { type => 'numeric', precision => 15, scale => 5 },

  serialnumber           => { type => 'text' },

  transdate              => { type => 'text' },

  unit                   => { type => 'varchar', length => 20 },

  active_discount_source => { type => 'text', default => '', not_null => 1 },

  active_price_source    => { type => 'text', default => '', not_null => 1 },

  allocated              => { type => 'float', scale => 4 },

  assemblyitem           => { type => 'boolean', default => 'false' },

  base_qty               => { type => 'float', scale => 4 },

  cusordnumber           => { type => 'text' },

  deliverydate           => { type => 'date' },

  description            => { type => 'text' },

  discount               => { type => 'float', scale => 4 },

  donumber               => { type => 'text' },

  fxsellprice            => { type => 'numeric', precision => 15, scale => 5 },

  id                     => { type => 'integer', not_null => 1, sequence => 'invoiceid' },

  itime                  => { type => 'timestamp', default => 'now()' },

  lastcost               => { type => 'numeric', precision => 15, scale => 5 },

  longdescription        => { type => 'text' },

  marge_percent          => { type => 'numeric', precision => 15, scale => 5 },

  marge_price_factor     => { type => 'numeric', default => 1, precision => 15, scale => 5 },

  marge_total            => { type => 'numeric', precision => 15, scale => 5 },

  mtime                  => { type => 'timestamp' },

  ordnumber              => { type => 'text' },

  parts_id               => { type => 'integer' },

  price_factor           => { type => 'numeric', default => 1, precision => 15, scale => 5 },

  price_factor_id        => { type => 'integer' },

  pricegroup_id          => { type => 'integer' },

  project_id             => { type => 'integer' },

  qty                    => { type => 'float', scale => 4 },

  sellprice              => { type => 'numeric', precision => 15, scale => 5 },

  serialnumber           => { type => 'text' },

  subtotal               => { type => 'boolean', default => 'false' },

  trans_id               => { type => 'integer' },

  transdate              => { type => 'text' },

  unit                   => { type => 'varchar', length => 20 },

  active_discount_source => { type => 'text', default => '', not_null => 1 },

  active_price_source    => { type => 'text', default => '', not_null => 1 },

  base_qty               => { type => 'float', scale => 4 },

  cusordnumber           => { type => 'text' },

  description            => { type => 'text' },

  discount               => { type => 'float', scale => 4 },

  id                     => { type => 'integer', not_null => 1, sequence => 'orderitemsid' },

  itime                  => { type => 'timestamp', default => 'now()' },

  lastcost               => { type => 'numeric', precision => 15, scale => 5 },

  longdescription        => { type => 'text' },

  marge_percent          => { type => 'numeric', precision => 15, scale => 5 },

  marge_price_factor     => { type => 'numeric', default => 1, precision => 15, scale => 5 },

  marge_total            => { type => 'numeric', precision => 15, scale => 5 },

  mtime                  => { type => 'timestamp' },

  ordnumber              => { type => 'text' },

  parts_id               => { type => 'integer' },

  price_factor           => { type => 'numeric', default => 1, precision => 15, scale => 5 },

  price_factor_id        => { type => 'integer' },

  pricegroup_id          => { type => 'integer' },

  project_id             => { type => 'integer' },

  qty                    => { type => 'float', scale => 4 },

  reqdate                => { type => 'date' },

  sellprice              => { type => 'numeric', precision => 15, scale => 5 },

  serialnumber           => { type => 'text' },

  ship                   => { type => 'float', scale => 4 },

  subtotal               => { type => 'boolean', default => 'false' },

  trans_id               => { type => 'integer' },

  transdate              => { type => 'text' },

  unit                   => { type => 'varchar', length => 20 },

         active_price_source, active_discount_source)

         (SELECT factor FROM price_factors WHERE id = ?), ?, ?, ?, ?)|;

               $form->{"active_price_source_$i"}, $form->{"active_discount_source_$i"});

         doi.active_price_source, doi.active_discount_source,

                              project_id, serialnumber, price_factor_id, price_factor, marge_price_factor,

                              active_price_source, active_discount_source)

         VALUES (?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, (SELECT factor FROM price_factors WHERE id = ?), ?, ?, ?)|;

               conv_i($form->{"active_price_source_$i"}), conv_i($form->{"active_discount_source_$i"}),

        i.price_factor_id, i.price_factor, i.marge_price_factor, i.discount, i.active_price_source, i.active_discount_source,

                                marge_percent, marge_total, lastcost, active_price_source, active_discount_source,

           VALUES (?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?,

                 $form->{"active_price_source_$i"}, $form->{"active_discount_source_$i"},

           i.price_factor_id, i.price_factor, i.marge_price_factor, i.active_price_source, i.active_discount_source,

          active_price_source = ?, active_discount_source = ?,

           $form->{"active_price_source_$i"}, $form->{"active_discount_source_$i"},

           o.price_factor_id, o.price_factor, o.marge_price_factor, o.active_price_source, o.active_discount_source,

use List::UtilsBy qw(min_by max_by);

  map {

    ? $class->new(record_item => $self->record_item, record => $self->record)->price_from_source($source, $spec)

sub available_discounts {

  map { $_->available_discounts } $_[0]->all_price_sources;

}

  min_by { $_->price } grep { $_->price > 0 } grep { $_ } map { $_->best_price } $_[0]->all_price_sources;

}

sub best_discount {

  max_by { $_->discount } grep { $_->discount } grep { $_ } map { $_->best_discount } $_[0]->all_price_sources;

use SL::PriceSource::Customer;

use SL::PriceSource::Vendor;

use SL::PriceSource::Business;

  customer    => 'SL::PriceSource::Customer',

  vendor      => 'SL::PriceSource::Vendor',

  business    => 'SL::PriceSource::Business',

  customer

  vendor

  business

sub available_discounts { die 'available_discounts needs to be implemented' }

sub best_discounts { die 'best_discounts needs to be implemented' }

sub customer_vendor {

  $_[0]->record->is_sales ? $_[0]->record->customer : $_[0]->record->vendor;

}

=item C<customer_vendor>

Shortcut to C<< record->is_sales ? record->customer : record->vendor >>

=item C<available_discounts>

Must return a list of all prices that you algorithm can recommend the user

for the current situation. Each discount must have a unique spec that can be

used to recreate it later. Try to be brief, no one needs 20 different discount

suggestions.

=item C<best_discount>

Must return what you think of as the best matching discount in your

C<available_discounts>. This does not have to be the highest discount, but it

will be compared later to other price sources, and the highest will be set.

Must recreate the price or discount from C<SPEC> and return. For reference, the

complete C<SOURCE> entry from C<record_item.active_price_source> or

C<record_item.active_discount_source> is included.

package SL::PriceSource::Business;

use strict;

use parent qw(SL::PriceSource::Base);

use SL::DB::Business;

use SL::PriceSource::Discount;

use SL::Locale::String;

sub name { 'business' }

sub description { t8('Business') }

sub available_prices { }

sub available_discounts {

  my ($self, %params) = @_;

  return unless $self->customer_vendor;

  return unless $self->customer_vendor->business;

  return unless $self->customer_vendor->business->discount != 0;

  SL::PriceSource::Discount->new(

    discount     => $self->customer_vendor->business->discount,

    spec         => $self->customer_vendor->business->id,

    description  => t8('Business Discount'),

    price_source => $self,

  );

}

sub price_from_source {

  my ($self, $source, $spec) = @_;

  my $business = SL::DB::Business->load_cached($spec);

  if (!$business) {

    return SL::PriceSource::Discount->new(

      missing      => t8('Could not load this business'),

      price_source => $self,

    )

  }

  if (!$self->customer_vendor) {

    return SL::PriceSource::Discount->new(

      discount     => $business->discount,

      spec         => $business->id,

      description  => t8('Business Discount'),

      price_source => $self,

      invalid      => t8('This discount is only valid in records with customer or vendor'),

    )

  }

  if ($business->id != $self->customer_vendor->business->id) {

    return SL::PriceSource::Discount->new(

      discount     => $business->discount,

      spec         => $business->id,

      description  => t8('Business Discount'),

      price_source => $self,

      invalid      => t8('This discount is only valid for business #1', $business->full_description),

    )

  }

  return SL::PriceSource::Discount->new(

    discount     => $business->discount,

    spec         => $business->id,

    description  => t8('Business Discount'),

    price_source => $self,

  );

}

sub best_price { }

sub best_discount {

  &available_discounts;

}

1;

package SL::PriceSource::Customer;

use strict;

use parent qw(SL::PriceSource::Base);

use SL::DB::Customer;

use SL::PriceSource::Discount;

use SL::Locale::String;

sub name { 'customer_discount' }

sub description { t8('Customer Discount') }

sub available_prices { }

sub available_discounts {

  my ($self, %params) = @_;

  return unless $self->record->is_sales;

  return unless $self->record->customer;

  return unless $self->record->customer->discount != 0;

  SL::PriceSource::Discount->new(

    discount     => $self->record->customer->discount,

    spec         => $self->record->customer->id,

    description  => t8('Customer Discount'),

    price_source => $self,

  );

}

sub price_from_source {

  my ($self, $source, $spec) = @_;

  my $customer = SL::DB::Customer->load_cached($spec);

  if (!$customer) {

    return SL::PriceSource::Discount->new(

      missing      => t8('Could not load this customer'),

      price_source => $self,

    )

  }

  if (!$self->record->customer) {

    return SL::PriceSource::Discount->new(

      discount     => $customer->discount,

      spec         => $customer->id,

      description  => t8('Customer Discount'),

      price_source => $self,

      invalid      => t8('This discount is only valid in sales documents'),

    )

  }

  if ($customer->id != $self->record->customer->id) {

    return SL::PriceSource::Discount->new(

      discount     => $customer->discount,

      spec         => $customer->id,

      description  => t8('Customer Discount'),

      price_source => $self,

      invalid      => t8('This discount is only valid for customer #1', $customer->full_description),

    )

  }

  return SL::PriceSource::Discount->new(

    discount     => $customer->discount,

    spec         => $customer->id,

    description  => t8('Customer Discount'),

    price_source => $self,

  );

}

sub best_price { }

sub best_discount {

  &available_discounts;

}

1;

package SL::PriceSource::Discount;

use strict;

use parent 'SL::DB::Object';

use Rose::Object::MakeMethods::Generic (

  scalar => [ qw(discount description spec price_source invalid missing) ],

);

require SL::DB::Helper::Attr;

SL::DB::Helper::Attr::make(__PACKAGE__,

  discount => 'numeric(15,5)',

);

sub source {

  $_[0]->price_source

  ? $_[0]->price_source->name . '/' . $_[0]->spec

  : '';

}

sub full_description {

  my ($self) = @_;

  $self->price_source

    ? $self->price_source->description . ': ' . $self->description

    : $self->description

}

sub source_description {

  my ($self) = @_;

  $self->price_source

    ? $self->price_source->description

    : $self->description

}

sub to_str {

  "source: @{[ $_[0]->source ]}, discount: @{[ $_[0]->discount ]}, description: @{[ $_[0]->description ]}"

}

1;

__END__

=encoding utf-8

=head1 NAME

SL::PriceSource::Price - contrainer to pass calculated prices around

=head1 SYNOPSIS

  # in PriceSource::Base implementation

  $price = SL::PriceSource::Price->new(

    discount     => 10,

    spec         => 'summersale2014', # something you can easily parse later

    description  => t8('10% discount during summer sale 2014'),

    price_source => $self,

  )

  # special empty price in SL::PriceSource, for internal use.

  SL::PriceSource::Price->new(

    description => t8('None (PriceSource)'),

  );

  # price can't be restored

  SL::PriceSource::Price->new(

    missing      => t8('Um, sorry, cannot find that one'),

    price_source => $self,

  );

  # invalid price

  SL::PriceSource::Price->new(

    price        => $original_price,

    spec         => $original_spec,

    description  => $original_description,

    invalid      => t8('Offer expired #1 weeks ago', $dt->delta_weeks),

    price_source => $self,

  );

=head1 DESCRIPTION

See L<SL::PriceSource> for information about the mechanism.

This is a container for prices that are generated by L<SL::PriceSource::Base>

implementations.

=head1 CONSTRUCTOR FIELDS

=over 4

=item C<discount>

The discount in percent. A discount of 0 will be ignored. If passed as

part of C<available_prices> it will be filtered out. If returned as

C<best_price> or C<price_from_source> it will trigger a warning.

=item C<spec>

A unique string that can later be understood by the creating implementation.

Can be empty if the implementation only supports one price for a given

record_item.

=item C<description>

A localized short description of the origins of this price.

=item C<price_source>

A ref to the creating algorithm.

=item C<missing>

OPTIONAL. Both indicator and localized message that the price with this spec

could not be reproduced and should be changed.

If price is missing, you do not need to supply anything except C<source>.

=item C<invalid>

OPTIONAL. Both indicator and localized message that the conditions for this

price are no longer valid, and that the price should be changed.

If price is missing, you do not need to supply anything except C<source>.

=back

=head1 SEE ALSO

L<SL::PriceSource>,

L<SL::PriceSource::Base>,

L<SL::PriceSource::ALL>

=head1 BUGS

None yet. :)

=head1 AUTHOR

Sven Schoeling E<lt>s.schoeling@linet-services.deE<gt>

=cut

sub available_discounts { }

sub best_discount { }

sub available_discounts { }

sub best_discount { }

require SL::DB::Helper::Attr;

  ? $_[0]->price_source->name . '/' . $_[0]->spec

    : $self->description

  "source: @{[ $_[0]->source ]}, price: @{[ $_[0]->price ]}, description: @{[ $_[0]->description ]}"

    spec         => '3', # something you can easily parse later

    description  => t8('Fix price 10.3 for customer 3'),

  # special empty price in SL::PriceSource, for internal use.

  # price can't be restored

    missing      => t8('Um, sorry, cannot find that one'),

  # invalid price

    price        => $original_price,

    description  => $original_description,

    invalid      => t8('Offer expired #1 weeks ago', $dt->delta_weeks),

C<best_price> or C<price_from_source> it will trigger a warning.

If price is missing, you do not need to supply anything except C<source>.

If price is missing, you do not need to supply anything except C<source>.

sub available_discounts { }

sub best_discount { }

package SL::PriceSource::Vendor;

use strict;

use parent qw(SL::PriceSource::Base);

use SL::DB::Vendor;

use SL::PriceSource::Price;

use SL::Locale::String;

sub name { 'vendor_discount' }

sub description { t8('Vendor Discount') }

sub available_prices { }

sub available_discounts {

  my ($self, %params) = @_;

  return if     $self->record->is_sales;

  return unless $self->record->vendor;

  return unless $self->record->vendor->discount != 0;

  SL::PriceSource::Vendor->new(

    discount     => $self->record->vendor->discount,

    spec         => $self->record->vendor->id,

    description  => t8('Vendor Discount'),

    price_source => $self,

  );

}

sub price_from_source {

  my ($self, $source, $spec) = @_;

  my $vendor = SL::DB::Vendor->load_cached($spec);

  if (!$vendor) {

    return SL::PriceSource::Discount->new(

      missing      => t8('Could not load this vendor'),

      price_source => $self,

    )

  }

  if (!$self->record->vendor) {

    return SL::PriceSource::Discount->new(

      discount     => $vendor->discount,

      spec         => $vendor->id,

      description  => t8('Vendor Discount'),

      price_source => $self,

      invalid      => t8('This discount is only valid in purchase documents'),

    )

  }

  if ($vendor->id != $self->record->vendor->id) {

    return SL::PriceSource::Discount->new(

      discount     => $vendor->discount,

      spec         => $vendor->id,

      description  => t8('Vendor Discount'),

      price_source => $self,

      invalid      => t8('This discount is only valid for vendor #1', $vendor->full_description),

    )

  }

  return SL::PriceSource::Discount->new(

    discount     => $vendor->discount,

    spec         => $vendor->id,

    description  => t8('Vendor Discount'),

    price_source => $self,

  );

}

sub best_price { }

sub best_discount {

  &available_discounts;

}

1;

        $form->{"sellprice_$i"}          = $form->format_amount(\%myconfig, $form->{"sellprice_$i"});

    my $record_item = $record->id && $record->items ? $record->items->[$i-1] : _make_record_item($i);

    my $discount_value  = $form->format_amount(\%myconfig, $form->{"discount_$i"});

    my $edit_discounts  = $main::auth->assert('edit_prices', 1) && !$::form->{"active_discount_source_$i"};

    $column_data{discount}    = (!$edit_discounts)

                                  ? $cgi->hidden(   -name => "discount_$i", -id => "discount_$i", -value => $discount_value) . $discount_value . ' %'

                                  : $cgi->textfield(-name => "discount_$i", -id => "discount_$i", -size => 3, -value => $discount_value);

      my $price    = $price_source->price_from_source($::form->{"active_price_source_$i"});

      my $discount = $price_source->price_from_source($::form->{"active_discount_source_$i"});

        if (!$price->missing && !$price->invalid) {

          $column_data{price_source} .= ' ' . $cgi->img({src => 'image/up.png',   alt => t8('This price has since gone up'),      title => t8('This price has since gone up' )     }) if $price->price > $record_item->sellprice;

          $column_data{price_source} .= ' ' . $cgi->img({src => 'image/down.png', alt => t8('This price has since gone down'),    title => t8('This price has since gone down')    }) if $price->price < $record_item->sellprice;

          $column_data{price_source} .= ' ' . $cgi->img({src => 'image/ok.png',   alt => t8('There is a better price available'), title => t8('There is a better price available') }) if $price->source ne $price_source->best_price->source;

        }

      }

      if ($discount->source) {

        $column_data{discount_source} .= ' ' . $cgi->img({src => 'image/flag-red.png', alt => $discount->invalid, title => $discount->invalid }) if $discount->invalid;

        $column_data{discount_source} .= ' ' . $cgi->img({src => 'image/flag-red.png', alt => $discount->missing, title => $discount->missing }) if $discount->missing;

        if (!$discount->missing && !$discount->invalid) {

          $column_data{price_source} .= ' ' . $cgi->img({src => 'image/up.png',   alt => t8('This discount has since gone up'),      title => t8('This discount has since gone up')      }) if $discount->discount * 100 > $record_item->discount;

          $column_data{price_source} .= ' ' . $cgi->img({src => 'image/down.png', alt => t8('This discount has since gone down'),    title => t8('This discount has since gone down')    }) if $discount->discount * 100 < $record_item->discount;

          $column_data{price_source} .= ' ' . $cgi->img({src => 'image/ok.png',   alt => t8('There is a better discount available'), title => t8('There is a better discount available') }) if $discount->source ne $price_source->best_discount->source;

        }

            (qw(orderitems_id bo price_old id inventory_accno bin partsgroup partnotes active_price_source active_discount_source

  my $best_discount = $price_source->best_discount;

  if ($best_discount) {

    $::form->{"discount_$i"}               = $best_discount->discount;

    $::form->{"active_discount_source_$i"} = $best_discount->source;

  }

                active_price_source active_discount_source);

          my $record        = _make_record();

          my $price_source  = SL::PriceSource->new(record_item => $record->items->[$i-1], record => $record);

          my $best_price    = $price_source->best_price;

          my $best_discount = $price_source->best_discount;

          if ($best_price) {

            $::form->{"sellprice_$i"}           = $best_price->price;

            $::form->{"active_price_source_$i"} = $best_price->source;

          }

          if ($best_discount) {

            $::form->{"discount_$i"}               = $best_discount->discount;

            $::form->{"active_discount_source_$i"} = $best_discount->source;

          }

          my $record        = _make_record();

          my $price_source  = SL::PriceSource->new(record_item => $record->items->[$i-1], record => $record);

          my $best_price    = $price_source->best_price;

          my $best_discount = $price_source->best_discount;

          if ($best_price) {

            $::form->{"sellprice_$i"}           = $best_price->price;

            $::form->{"active_price_source_$i"} = $best_price->source;

          }

          if ($best_discount) {

            $::form->{"discount_$i"}               = $best_discount->discount;

            $::form->{"active_discount_source_$i"} = $best_discount->source;

          }

          my $record        = _make_record();

          my $price_source  = SL::PriceSource->new(record_item => $record->items->[$i-1], record => $record);

          my $best_price    = $price_source->best_price;

          my $best_discount = $price_source->best_discount;

          if ($best_discount) {

            $::form->{"discount_$i"}               = $best_discount->discount;

            $::form->{"active_discount_source_$i"} = $best_discount->source;

          }

  ns.update_discount_source = function(row, source, discount_str) {

    $('#active_discount_source_' + row).val(source);

    if (discount_str) $('#discount_' + row).val(discount_str);

    $('#update_button').click();

  }

  'Best Discount'               => 'Bester Rabatt',

  'Business'                    => 'Kunden-/Lieferantentyp',

  'Business Discount'           => 'Kunden-/Lieferantentyp-Rabatt',

  'Could not load this business' => 'Konnte diesen Kunden-/Lieferantentyp nicht laden',

  'Could not load this customer' => 'Konnte diesen Kunden nicht laden',

  'Could not load this vendor'  => 'Konnte diesen Lieferanten nicht laden',

  'Customer Discount'           => 'Kundenrabatt',

  'Details'                     => 'Details',

  'Discounts'                   => 'Rabatte',

  'None (PriceSource Discount)' => 'Freier Rabatt',

  'Prices'                      => 'Preise',

  'There is a better discount available' => 'Es is ein besserer Rabatt verfügbar',

  'This discount has since gone down' => 'Dieser Rabatt ist mittlerweile niedriger',

  'This discount has since gone up' => 'Dieser Rabatt ist mittlerweile höher',

  'This discount is only valid for business #1' => 'Dieser Rabatt ist nur für Kunden-/Lieferantentyp #1 gültig',

  'This discount is only valid for customer #1' => 'Dieser Rabatt ist nur für Kunde #1 gültig',

  'This discount is only valid for vendor #1' => 'Dieser Rabatt ist nur für Lieferant #1 gültig',

  'This discount is only valid in purchase documents' => 'Dieser Rabatt ist nur in Einkaufsdokumenten gültig',

  'This discount is only valid in records with customer or vendor' => 'Dieser Rabatt ist nur in Dokumenten mit Kunde oder Lieferant gültig',

  'This discount is only valid in sales documents' => 'Dieser Rabatt ist nur in Verkaufsdokumenten gültig',

  'Update Discount'             => 'Rabatt übernehmen',

  'Vendor Discount'             => 'Lieferantenrabatt',

-- @tag: recorditem_active_record_source

-- @description: Preisquellen: Rabatte

-- @depends: release_3_1_0 recorditem_active_price_source

-- @encoding: utf-8

ALTER TABLE orderitems           ADD COLUMN active_discount_source TEXT NOT NULL DEFAULT '';

ALTER TABLE delivery_order_items ADD COLUMN active_discount_source TEXT NOT NULL DEFAULT '';

ALTER TABLE invoice              ADD COLUMN active_discount_source TEXT NOT NULL DEFAULT '';

[% SET best_discount = price_source.best_discount %]

  <h2>[% 'Prices' | $T8 %]</h2>

    <th>[% 'Details' | $T8 %]</th>

    <td></td>

[%- ELSIF price_source.record_item.sellprice != price.price %]

     <td>[% price.source_description | html %]</td>

     <td>[% price.description | html %]</td>

    </tr>

   [%- END %]

  </table>

  <h2>[% 'Discounts' | $T8 %]</h2>

  <table>

   <tr class='listheading'>

    <th></th>

    <th>[% 'Price Source' | $T8 %]</th>

    <th>[% 'Discount' | $T8 %]</th>

    <th>[% 'Best Discount' | $T8 %]</th>

    <th>[% 'Details' | $T8 %]</th>

   </tr>

   <tr class='listrow'>

[%- IF price_source.record_item.active_discount_source %]

    <td>[% L.button_tag('kivi.io.update_discount_source(' _ FORM.row _ ', \'\')', LxERP.t8('Select')) %]</td>

[%- ELSE %]

    <td><b>[% 'Selected' | $T8 %]</b></td>

[%- END %]

    <td>[% 'None (PriceSource Discount)' | $T8 %]</td>

    <td>-</td>

    <td></td>

    <td></td>

   </tr>

   [%- FOREACH price IN price_source.available_discounts %]

    <tr class='listrow'>

[%- IF price_source.record_item.active_discount_source != price.source %]

     <td>[% L.button_tag('kivi.io.update_discount_source(' _ FORM.row _ ', \'' _ price.source _ '\', \'' _ price.discount_as_percent _ '\')', LxERP.t8('Select')) %]</td>

[%- ELSIF price_source.record_item.discount != price.discount * 100 %]

     <td>[% L.button_tag('kivi.io.update_discount_source(' _ FORM.row _ ', \'' _ price.source _ '\', \'' _ price.discount_as_percent  _ '\')', LxERP.t8('Update Discount')) %]</td>

[%- ELSE %]

    <td><b>[% 'Selected' | $T8 %]</b></td>