projekt kivitendo

package SL::DB::Helper::PriceUpdater;

use strict;

use parent qw(Exporter);

our @EXPORT = qw(update_prices);

use Carp;

sub update_prices {

  my $self   = shift;

  my %params = @_;

  croak('Missing parameters amount/percent') unless $params{amount} || $params{percent};

  my @prices = ref $params{prices} eq 'ARRAY' ? @{ $params{prices} } : ( $params{prices} || 'sellprice' );

  foreach my $field (@prices) {

    my $rounding_error = 0;

    foreach my $item (@{ $self->items }) {

      my $new_price;

      if ($params{amount}) {

        $new_price = $item->$field + $params{amount}        + $rounding_error;

      } else {

        $new_price = $item->$field * $params{percent} / 100 + $rounding_error;

      }

      $item->$field($::form->round_amount($new_price, 2));

      $rounding_error += $new_price - $item->$field;

      _dbg("new_price $new_price new_price_no_err " . ($new_price - $rounding_error) . " rounded " . $item->$field .

           " error_old " . ($rounding_error - $new_price + $item->$field) . " error_new $rounding_error");

    }

  }

  return $self->calculate_prices_and_taxes if $params{calculate};

  return $self;

}

sub _dbg {

  # $::lxdebug->message(0, __PACKAGE__ . ': ' . join(' ', @_));

}

1;

__END__

=encoding utf8

=head1 NAME

SL::DB::Helper::PriceUpdater - Mixin for updating all prices by a fixed amount or by a percentage

=head1 FUNCTIONS

=over 4

=item C<update_prices %params>

Updates the prices of all items as returned by the function C<items>

provided by the mixing class.

Supported arguments via C<%params> are:

=over 2

=item C<amount>

Absolute amount to add or subtract. Either C<amount> or C<percent>

must be given. Resulting prices are rounded to two significant places.

=item C<percent>

Percentage to set the prices to (with 100 meaning "no

change"). Resulting prices are rounded to two significant

places. Rounding errors are carried over to the next item.

Either C<amount> or C<percent> must be given.

=item C<prices>

A string or an array of strings naming the prices to update. If

missing only the C<sellprice> field will be updated.

=item C<calculate>

If trueish the all prices, taxes and amounts are re-calculated by

calling

L<SL::DB::Helper::PriceTaxCalculator::calculate_prices_and_taxes>.

Returns that function's result.

=back

Returns C<$self> unless C<$params{calculate}> is trueish.

=back

=head1 EXPORTS

This mixin exports the function L</update_prices>.

=head1 BUGS

Nothing here yet.

=head1 AUTHOR

Moritz Bunkus E<lt>m.bunkus@linet-services.deE<gt>

=cut