projekt kivitendo

__PACKAGE__->run_before('check_auth',

                        except => [ qw(update_stock_information) ]);

__PACKAGE__->run_before('get_unalterable_data',

                        only => [ qw(save save_as_new save_and_delivery_order save_and_invoice save_and_ap_transaction

                                     print send_email) ]);

sub check_auth {

  my ($self) = @_;

}

# build the selection box for contacts

  my ($self, %params) = @_;

  my $deletion_allowed = $self->type_data->show_menu("delete");

  for my $bar ($::request->layout->get('actionbar')) {

    $bar->add(

          call     => [ 'kivi.DeliveryOrder.save', 'save', $::instance_conf->get_order_warn_duplicate_parts,

                                                           $::instance_conf->get_order_warn_no_deliverydate,

          ],

        ],

        action => [

          t8('Save as new'),

          call     => [ 'kivi.DeliveryOrder.save', 'save_as_new', $::instance_conf->get_order_warn_duplicate_parts ],

                    : !$self->order->id                        ? t8('This object has not been saved yet.')

                    :                                            undef,

        ],

          t8('Save and Quotation'),

          submit   => [ '#order_form', { action => "DeliveryOrder/sales_quotation" } ],

          only_if  => $self->type_data->show_menu("save_and_quotation"),

        ],

        action => [

          t8('Save and RFQ'),

          submit   => [ '#order_form', { action => "DeliveryOrder/request_for_quotation" } ],

          only_if  => $self->type_data->show_menu("save_and_rfq"),

        ],

        action => [

          t8('Save and Sales Order'),

          submit   => [ '#order_form', { action => "DeliveryOrder/sales_order" } ],

          only_if  => $self->type_data->show_menu("save_and_sales_order"),

        ],

        action => [

          t8('Save and Purchase Order'),

          call     => [ 'kivi.DeliveryOrder.purchase_order_check_for_direct_delivery' ],

          only_if  => $self->type_data->show_menu("save_and_purchase_order"),

        ],

        action => [

          t8('Save and Delivery Order'),

                                                                              $::instance_conf->get_order_warn_no_deliverydate,

          ],

          only_if  => $self->type_data->show_menu("save_and_delivery_order"),

        ],

        action => [

          t8('Save and Invoice'),

          call     => [ 'kivi.DeliveryOrder.save', 'save_and_invoice', $::instance_conf->get_order_warn_duplicate_parts ],

          only_if  => $self->type_data->show_menu("save_and_invoice"),

        ],

        action => [

          t8('Save and AP Transaction'),

          call     => [ 'kivi.DeliveryOrder.save', 'save_and_ap_transaction', $::instance_conf->get_order_warn_duplicate_parts ],

          only_if  => $self->type_data->show_menu("save_and_ap_transaction"),

        ],

      ], # end of combobox "Workflow"

           call    => [ 'kivi.DeliveryOrder.save', 'preview_pdf', $::instance_conf->get_order_warn_duplicate_parts,

                                                                  $::instance_conf->get_order_warn_no_deliverydate,

          ],

        ],

        action => [

          t8('Save and print'),

          call     => [ 'kivi.DeliveryOrder.show_print_options', $::instance_conf->get_order_warn_duplicate_parts,

                                                                 $::instance_conf->get_order_warn_no_deliverydate,

          ],

        ],

        action => [

          t8('Save and E-mail'),

          call     => [ 'kivi.DeliveryOrder.save', 'save_and_show_email_dialog', $::instance_conf->get_order_warn_duplicate_parts,

                                                                                 $::instance_conf->get_order_warn_no_deliverydate,

          ],

        ],

        action => [

          t8('Download attachments of all parts'),

          call     => [ 'kivi.File.downloadOrderitemsFiles', $::form->{type}, $::form->{id} ],

          only_if  => $::instance_conf->get_doc_storage,

        ],

      ], # end of combobox "Export"

        id       => 'delete_action',

        call     => [ 'kivi.DeliveryOrder.delete_order' ],

        confirm  => $::locale->text('Do you really want to delete this object?'),

                  : $self->order->delivered ? t8('The parts for this order have already been transferred')

                  :                           undef,

        only_if  => $self->type_data->show_menu("delete"),

          t8('Transfer out'),

          id       => 'transfer_out_action',

          call     => [ 'kivi.DeliveryOrder.save', 'transfer_stock' ],

                    : $self->order->delivered ? t8('The parts for this order have already been transferred')

                    :                           undef,

          only_if  => $self->type_data->properties('transfer') eq 'out',

          t8('Transfer in'),

          id       => 'transfer_in_action',

          call     => [ 'kivi.DeliveryOrder.save', 'transfer_stock' ],

                    : $self->order->delivered ? t8('The parts for this order have already been transferred')

                    :                           undef,

          only_if  => $self->type_data->properties('transfer') eq 'in',

}

sub access {

}

sub is_quotation {

use SL::Locale::String qw(t8);

sub name { 'purchase_delivery_order' }

use SL::Locale::String qw(t8);

sub name { 'sales_delivery_order' }

      transnumber    => 'sdonumber',

    },

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

  },

  PURCHASE_DELIVERY_ORDER_TYPE() => {

    text => {

      transnumber    => 'pdonumber',

    },

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

  },

  SUPPLIER_DELIVERY_ORDER_TYPE() => {

    text => {

      transnumber    => 'sudonumber',

    },

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

  },

  RMA_DELIVERY_ORDER_TYPE() => {

    text => {

      transnumber    => 'rdonumber',

    },

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

  },

);

    push @where, "dord.$item = ?";

    push @values, conv_i($form->{$item});

  }

    push @where, qq|dord.employee_id = (select id from employee where login= ?)|;

    push @values, $::myconfig{login};

  }

# end of main

sub check_do_access {

  validate_type($::form->{type});

  $main::auth->assert($right);

}

sub add {

  $main::lxdebug->enter_sub();

  if (($::form->{type} =~ /purchase/) && !$::instance_conf->get_allow_new_purchase_invoice) {

    $::form->show_generic_error($::locale->text("You do not have the permissions to access this function."));

  if (ref $undo_date eq 'DateTime' && ref $insertdate eq 'DateTime') {

    $undo_transfer = $insertdate > $undo_date;

  }

  for my $bar ($::request->layout->get('actionbar')) {

    $bar->add(

      action =>

        [ t8('Update'),

          submit    => [ '#form', { action => "update" } ],

          id        => 'update_button',

          accesskey => 'enter',

        ],

          t8('Save'),

          submit   => [ '#form', { action => "save" } ],

          checks   => [ 'kivi.validate_form' ],

        ],

        action => [

          t8('Save as new'),

          submit   => [ '#form', { action => "save_as_new" } ],

          checks   => [ 'kivi.validate_form' ],

        ],

        action => [

          t8('Mark as closed'),

          submit   => [ '#form', { action => "mark_closed" } ],

          checks   => [ 'kivi.validate_form' ],

          confirm  => t8('This will remove the delivery order from showing as open even if contents are not delivered. Proceed?'),

                    : $::form->{closed} ? t8('This record has already been closed.')

                    :                     undef,

        ],

        t8('Delete'),

        submit   => [ '#form', { action => "delete" } ],

        confirm  => t8('Do you really want to delete this object?'),

                  : $::form->{delivered}                                                                        ? t8('This record has already been delivered.')

                  : ($::form->{vc} eq 'customer' && !$::instance_conf->get_sales_delivery_order_show_delete)    ? t8('Deleting this type of record has been disabled in the configuration.')

                  : ($::form->{vc} eq 'vendor'   && !$::instance_conf->get_purchase_delivery_order_show_delete) ? t8('Deleting this type of record has been disabled in the configuration.')

          t8('Transfer out'),

          submit   => [ '#form', { action => "transfer_out" } ],

          checks   => [ 'kivi.validate_form', @transfer_qty ],

          only_if  => $is_customer,

        ],

        action => [

          t8('Transfer out via default'),

          submit   => [ '#form', { action => "transfer_out_default" } ],

          checks   => [ 'kivi.validate_form' ],

          only_if  => $is_customer && $::instance_conf->get_transfer_default,

        ],

        action => [

          t8('Transfer in'),

          submit   => [ '#form', { action => "transfer_in" } ],

          checks   => [ 'kivi.validate_form', @transfer_qty ],

          only_if  => !$is_customer,

        ],

        action => [

          t8('Transfer in via default'),

          submit   => [ '#form', { action => "transfer_in_default" } ],

          checks   => [ 'kivi.validate_form' ],

          only_if  => !$is_customer && $::instance_conf->get_transfer_default,

        ],

        action => [

          submit   => [ '#form', { action => "delete_transfers" } ],

          checks   => [ 'kivi.validate_form' ],

          only_if  => $::form->{delivered},

        ],

      ], # end of combobox "Transfer out"

        action => [ t8('Export') ],

        action => [

          t8('Print'),

        ],

        action => [

          t8('E Mail'),

          call   => [ 'kivi.SalesPurchase.show_email_dialog' ],

          checks => [ 'kivi.validate_form' ],

        ],

      ], # end of combobox "Export"

  my (%params) = @_;

  my $form     = $main::form;

  my %myconfig = %main::myconfig;

sub delete {

  $main::lxdebug->enter_sub();

  my $form     = $main::form;

  my %myconfig = %main::myconfig;

sub delete_transfers {

  $main::lxdebug->enter_sub();

  my $form     = $main::form;

  my %myconfig = %main::myconfig;

sub save_as_new {

  $main::lxdebug->enter_sub();

  my $form     = $main::form;

  name: Delivery Orders

  icon: delivery_order_report

  order: 400

  module: do.pl

  params:

    action: search

  id: ap_reports_delivery_orders

  name: Delivery Orders

  order: 300

  module: do.pl

  params:

    action: search

  id: ap_reports_supplier_delivery_orders

  name: Supplier Delivery Orders

  order: 350

  module: do.pl

  params:

    action: search