projekt kivitendo

  $self->render(

    'reclamation/form',

    %{$self->{template_args}},

  );

}

  }

  my $order = SL::DB::Order->new(id => $::form->{from_id})->load;

  $self->reclamation($reclamation);

  $self->render(

    'reclamation/form',

    %{$self->{template_args}},

  );

}

  }

  my $delivery_order = SL::DB::DeliveryOrder->new(id => $::form->{from_id})->load;

  $self->reclamation($reclamation);

  $self->render(

    'reclamation/form',

    %{$self->{template_args}},

  );

}

  }

  my $invoice = SL::DB::Invoice->new(id => $::form->{from_id})->load;

  $self->reclamation($reclamation);

  $self->render(

    'reclamation/form',

    %{$self->{template_args}},

  );

}

  require SL::DB::PurchaseInvoice;

  my $invoice = SL::DB::PurchaseInvoice->new(id => $::form->{from_id})->load;

  $invoice->{type} = $invoice->invoice_type; #can't add type → invoice_type in SL/DB/PurchaseInvoice

  $self->reclamation($reclamation);

  $self->render(

    'reclamation/form',

    %{$self->{template_args}},

  );

}

  $self->render(

    'reclamation/form',

    %{$self->{template_args}},

  );

}

  SL::Model::Record->delete($self->reclamation);

  my @redirect_params = (

    action => 'add',

  unless ($self->reclamation->customervendor) {

    return $self->js->flash('error',

  }

  my $form = Form->new;

                                  email_form  => $email_form,

                                  show_bcc    => $::auth->assert('email_bcc', 'may fail'),

                                  FILES       => \%files,

                                  ALL_EMPLOYEES => $self->{all_employees},

  );

  $self->recalc();

  if ( $self->reclamation->customervendor->contacts

       && scalar @{ $self->reclamation->customervendor->contacts } > 0) {

    $self->js->show('#cp_row');

sub action_show_customer_vendor_details_dialog {

  my ($self) = @_;

  my $cv;

    $cv = SL::DB::Customer->new(id => $::form->{cv_id})->load;

  } else {

    $cv = SL::DB::Vendor->new(id => $::form->{cv_id})->load;

  $details{language}            = $cv->language_obj->description  if $cv->language_obj;

  $details{delivery_terms}      = $cv->delivery_term->description if $cv->delivery_term;

  $details{payment_terms}       = $cv->payment->description       if $cv->payment;

  foreach my $entry (@{ $cv->shipto }) {

    push @{ $details{SHIPTO} },   { map { $_ => $entry->$_ } @{$entry->meta->columns} };

  }

  $_[0]->render('common/show_vc_details', { layout => 0 },

                %details);

}

  $self->render(

    'reclamation/form',

    %{$self->{template_args}}

  );

}

sub init_cv {

  my ($self) = @_;

}

sub init_search_cvpartnumber {

  my $user_prefs = SL::Helper::UserPreferences::PartPickerSearch->new();

  my $search_cvpartnumber;

  return $search_cvpartnumber;

}

      language                => t8('Language'),

      department              => t8('Department'),

      globalproject           => t8('Project Number'),

      transaction_description => t8('Description'),

      notes                   => t8('Notes'),

      intnotes                => t8('Internal Notes'),

sub init_part_picker_classification_ids {

  my ($self)    = @_;

}

sub check_auth {

  my ($self) = @_;

}

# build the selection box for contacts

                     reclamation_items  => [],

                     currency_id => $::instance_conf->get_currency_id(),

                   );

  }

  my $form_reclamation_items = delete $::form->{reclamation}->{reclamation_items};

                       ? SL::DB::Manager::ReclamationItem->get_all(where => [id => $self->item_ids_to_delete])

                       : undef;

                          with_validity_token  => { scope => SL::DB::ValidityToken::SCOPE_RECLAMATION_SAVE(), token => $::form->{form_validity_token} },

                          delete_custom_shipto => $self->is_custom_shipto_to_delete || $self->reclamation->custom_shipto->is_empty,

                          items_to_delete      => $items_to_delete,

  # check for direct delivery

  # copy shipto in custom shipto (custom shipto will be copied by new_from() in case)

    if ($::form->{use_shipto}) {

      my $custom_shipto = $source_reclamation->shipto->clone('SL::DB::Reclamation');

      $self->reclamation->custom_shipto($custom_shipto) if $custom_shipto;

  $self->render(

    'reclamation/form',

    %{$self->{template_args}}

  );

}

      sub      => sub { $_[0]->closed ? t8('Yes') : t8('No') },

    },

  );

    $column_defs{customer} = ({

      raw_data => sub { $_[0]->customervendor->presenter->customer(display => 'table-cell', callback => $callback) },

      sub      => sub { $_[0]->customervendor->name },

      },

      sub      => sub { $_[0]->contact ? $_[0]->contact->cp_name : '' },

    });

    $column_defs{vendor} = ({

      raw_data => sub { $_[0]->customervendor->presenter->vendor(display => 'table-cell', callback => $callback) },

      sub      => sub { $_[0]->customervendor->name },

     { output => 0 },

     models => $self->models

    ),

    allow_pdf_export      => 1,

    allow_csv_export      => 1,

  );

sub _setup_edit_action_bar {

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

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

    $bar->add(

      combobox => [

            $::instance_conf->get_reclamation_warn_duplicate_parts,

            $::instance_conf->get_reclamation_warn_no_reqdate,

          ],

        ],

        action => [

          t8('Save and Purchase Reclamation'),

          call      => [ 'kivi.Reclamation.purchase_reclamation_check_for_direct_delivery' ],

        ],

        action => [

          t8('Save and Order'),

            $::instance_conf->get_reclamation_warn_duplicate_parts,

            $::instance_conf->get_reclamation_warn_no_reqdate,

          ],

        ],

        action => [

          t8('Save and Supplier Delivery Order'),

            $::instance_conf->get_reclamation_warn_duplicate_parts,

            $::instance_conf->get_reclamation_warn_no_reqdate,

          ],

        ],

        action => [

          t8('Save and Credit Note'),

            $::instance_conf->get_reclamation_warn_duplicate_parts,

            $::instance_conf->get_reclamation_warn_no_reqdate,

          ],

        ],

      ], # end of combobox "Workflow"

        call     => [ 'kivi.Reclamation.delete_reclamation' ],

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

        disabled => !$self->reclamation->id ? t8('This object has not been saved yet.') : undef,

      ],

      combobox => [

  return %files;

}

sub get_item_cvpartnumber {

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

  return if !$self->search_cvpartnumber;

  return if !$self->reclamation->customervendor;

    my @mms = grep { $_->make eq $self->reclamation->customervendor->id } @{$item->part->makemodels};

    $item->{cvpartnumber} = $mms[0]->model if scalar @mms;

    my @cps = grep { $_->customer_id eq $self->reclamation->customervendor->id } @{$item->part->customerprices};

    $item->{cvpartnumber} = $cps[0]->customer_partnumber if scalar @cps;

  }