projekt kivitendo

use Carp;

use SL::DB::MetaSetup::DeliveryOrder;

use SL::DB::Manager::DeliveryOrder;

use SL::DB::Helper::TransNumberGenerator;

use SL::DB::Helper::RecordLink qw(RECORD_ID RECORD_TYPE_REF);

use SL::DB::DeliveryOrder::TypeData qw(:types);

use SL::DB::Reclamation::TypeData qw(:types);

use SL::Helper::Number qw(_format_total _round_total);

use List::Util qw(first);

use List::MoreUtils qw(any pairwise);

use Math::Round qw(nhimult);

sub new_from_time_recordings {

  my ($class, $sources, %params) = @_;

  croak("Unsupported object type in sources")                                      if any { ref($_) ne 'SL::DB::TimeRecording' }            @$sources;

  croak("Cannot create delivery order from source records of different customers") if any { $_->customer_id != $sources->[0]->customer_id } @$sources;