projekt kivitendo

sub _create_sales_order_or_quotation {

  my (%params) = @_;

  die "illegal type" unless $record_type eq SALES_ORDER_TYPE() or $record_type eq SALES_QUOTATION_TYPE();

  my $orderitems = delete $params{orderitems} // _create_two_items($record_type);

  die "illegal customer" unless ref($customer) eq 'SL::DB::Customer';

  my $record = SL::DB::Order->new(

    customer_id  => delete $params{customer_id} // $customer->id,

    taxzone_id   => delete $params{taxzone_id}  // $customer->taxzone->id,

    currency_id  => delete $params{currency_id} // $::instance_conf->get_currency_id,

    employee_id  => delete $params{employee_id} // SL::DB::Manager::Employee->current->id,

    salesman_id  => delete $params{employee_id} // SL::DB::Manager::Employee->current->id,

    transdate    => delete $params{transdate}   // DateTime->today,

    orderitems   => $orderitems,

  );

  $record->assign_attributes(%params) if %params;

sub _create_purchase_order_or_quotation {

  my (%params) = @_;

  die "illegal type" unless $record_type eq PURCHASE_ORDER_TYPE() or $record_type eq REQUEST_QUOTATION_TYPE();

  my $orderitems = delete $params{orderitems} // _create_two_items($record_type);

  _check_items($orderitems, $record_type);

  die "illegal vendor" unless ref($vendor) eq 'SL::DB::Vendor';

  my $record = SL::DB::Order->new(

    vendor_id    => delete $params{vendor_id}   // $vendor->id,

    taxzone_id   => delete $params{taxzone_id}  // $vendor->taxzone->id,

    currency_id  => delete $params{currency_id} // $::instance_conf->get_currency_id,

    taxincluded  => delete $params{taxincluded} // 0,

    transdate    => delete $params{transdate}   // DateTime->today,

    'closed'     => undef,

    orderitems   => $orderitems,

  );

  $record->assign_attributes(%params) if %params;