projekt kivitendo

                                 { name => 'language',                description => $::locale->text('Language (name)')                       },

                                 { name => 'language_id',             description => $::locale->text('Language (database ID)')                },

                                 { name => 'notes',                   description => $::locale->text('Notes')                                 },

                                 { name => 'ordnumber',               description => $::locale->text('Order Number')                          },

                                 { name => 'payment',                 description => $::locale->text('Payment terms (name)')                  },

                                 { name => 'payment_id',              description => $::locale->text('Payment terms (database ID)')           },

      parts_id      => $item_obj->parts_id,

      warehouse_id  => $object->warehouse_id,

      bin_id        => $object->bin_id,

      qty           => $qty,

      chargenumber  => $object->chargenumber,

      employee_id   => $order_obj->employee_id,

sub handle_type {

  my ($self, $entry) = @_;

    # if no type is present - set to sales delivery order or purchase delivery

    # order depending on is_sales or customer/vendor

      $entry->{object}->customer_id  ? SALES_DELIVERY_ORDER_TYPE :

      $entry->{object}->vendor_id    ? PURCHASE_DELIVERY_ORDER_TYPE :

      $entry->{raw_data}->{is_sales} ? SALES_DELIVERY_ORDER_TYPE :

    employee => SL::DB::Manager::Employee->current,

    closed    => 0,

    delivered => 0,

    transdate => DateTime->today_local,

  );

  }

  # infer type from legacy fields if not given

  my $delivery_order = $class->new(%record_args);

  $delivery_order->assign_attributes(%{ $params{attributes} }) if $params{attributes};

  } else {

    my %args = (

      delivered   => 0,

      customer_id => $sources->[0]->customer_id,

      taxzone_id  => $sources->[0]->customer->taxzone_id,

# legacy for compatibility

# use type_data cusomtervendor and transfer direction instead

sub is_sales {

  }

  return $_[0]{is_sales};

}

sub customervendor {

}

sub convert_to_invoice {

  my $type  = lc(shift || '');

  my $prefix = shift // '';

}

sub _sort_spec {

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

  my $delivery_order = SL::DB::DeliveryOrder->new(

    'closed'     => undef,

    customer_id  => $customer->id,

    taxzone_id   => $customer->taxzone_id,

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

  my $delivery_order = SL::DB::DeliveryOrder->new(

    'closed'     => undef,

    vendor_id    => $vendor->id,

    taxzone_id   => $vendor->taxzone_id,

# clean different values

foreach (qw(

  customer_id vendor_id

  donumber salesman_id

  transaction_description

  itime mtime

## converted should be nearly the same

my @different_record_values = qw(

    id employee_id itime mtime reqdate

    amount exchangerate netamount

    cp_id contact_id

    cusordnumber cv_record_number

    donumber record_number