projekt kivitendo

use SL::Helper::UserPreferences::PositionsScrollbar;

use SL::Helper::UserPreferences::UpdatePositions;

use SL::Controller::Helper::GetModels;

use List::Util qw(first sum0);

    $has_final_invoice               = any {'SL::DB::Invoice' eq ref $_ && "final_invoice" eq $_->type} @$lr;

  }

  my $right_for         = { map { $_ => $_.'_edit' } @{$self->valid_types} };

  $right_for->{ sales_order_intake_type() } = 'sales_order_edit';

  $right_for->{ purchase_quotation_intake_type() } = 'request_quotation_edit';

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

        disabled => !$may_edit_create  ? t8('You do not have the permissions to access this function.')

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

                  :                      undef,

        only_if  => $deletion_allowed,

      ],

  return $result;

}

sub is_storno {

  $main::lxdebug->enter_sub();

  my $is_storno               = IS->is_storno(\%::myconfig, $::form, 'ap', $::form->{id});

  my $has_storno              = IS->has_storno(\%::myconfig, $::form, 'ap');

  my $may_edit_create         = $::auth->assert('ap_transactions', 1);

                    : $change_never               ? t8('Changing invoices has been disabled in the configuration.')

                    : $change_on_same_day_only    ? t8('Invoices can only be changed on the day they are posted.')

                    : $has_storno                 ? t8('This invoice has been canceled already.')

                    :                               undef,

        ],

      ], # end of combobox "Storno"