projekt kivitendo

      is_customer    => 1,

      nr_key         => "donumber",

      transfer       => 'out',

    },

    part_classification_query => [ "used_for_sale" => 1 ],

    right => "sales_delivery_order_edit",

      is_customer    => 0,

      nr_key         => "donumber",

      transfer       => 'in',

    },

    part_classification_query => [ "used_for_purchase" => 1 ],

    right => "purchase_delivery_order_edit",

      is_customer    => 0,

      nr_key         => "donumber",

      transfer       => 'out',

    },

    part_classification_query => [ "used_for_purchase" => 1 ],

    right => "purchase_delivery_order_edit",

      is_customer    => 0,

      nr_key         => "donumber",

      transfer       => 'in',

    },

    part_classification_query => [ "used_for_sale" => 1 ],

    right => "sales_delivery_order_edit",

              purchase_order          => { number_column => 'ordnumber',      number_range_column => 'ponumber',       scoping => \&oe_scoping,    },

              sales_delivery_order    => { number_column => 'donumber',       number_range_column => 'sdonumber',      scoping => \&do_scoping,    },

              purchase_delivery_order => { number_column => 'donumber',       number_range_column => 'pdonumber',      scoping => \&do_scoping,    },

              customer                => { number_column => 'customernumber', number_range_column => 'customernumber',                             },

              vendor                  => { number_column => 'vendornumber',   number_range_column => 'vendornumber',                               },

              part                    => { number_column => 'partnumber',     number_range_column => 'articlenumber',  scoping => \&parts_scoping, },

use SL::DB::Helper::Sorted;

use SL::DB::Helper::Filtered;

sub object_class { 'SL::DB::DeliveryOrder' }

__PACKAGE__->make_manager_methods;

  my $class = shift;

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

}

sub _sort_spec {

  purchase_delivery_order_show_delete       => { type => 'boolean', default => 'true' },

  purchase_order_show_delete                => { type => 'boolean', default => 'true' },

  quick_search_modules                      => { type => 'array' },

  reqdate_interval                          => { type => 'integer', default => '0' },

  reqdate_on                                => { type => 'boolean', default => 'true' },

  require_transaction_description_ps        => { type => 'boolean', default => 'false', not_null => 1 },

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

  stocktaking_qty_threshold                 => { type => 'numeric', default => '0', precision => 25, scale => 5 },

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

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

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

  transfer_default                          => { type => 'boolean', default => 'true' },

use SL::DBUtils;

use SL::PrefixedNumber;

use SL::DB;

use Rose::Object::MakeMethods::Generic

(

 scalar => [ qw(type id number save dbh dbh_provided business_id) ],

);

sub new {

  my $class = shift;

    $filters{numberfield}   = "${type}number";

    $filters{table}         = $type;

    $filters{table}         = "delivery_orders";

  } elsif ($type =~ /_order$/) {

    $filters{trans_number}  = "ordnumber";

  my @values = ($self->number);

  push @where, $filters{where} if $filters{where};

  if ($self->id) {

    push @where,  qq|id <> ?|;

SQL

    do_query($form, $self->dbh, "LOCK TABLE " . $filters{table}) || die $self->dbh->errstr;

    my $business_number;

    ($business_number) = selectfirst_array_query($form, $self->dbh, qq|SELECT customernumberinit FROM business WHERE id = ? FOR UPDATE|, $self->business_id) if $self->business_id;