projekt kivitendo

use List::Util qw(first sum);

use SL::DB::RecordTemplate;

use SL::DB::Tax;

use SL::FU;

use SL::GL;

  my $form   = $::form;

  my $change_never            = $::instance_conf->get_gl_changeable == 0;

  my $change_on_same_day_only = $::instance_conf->get_gl_changeable == 2 && ($form->current_date(\%::myconfig) ne $form->{gldate});

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

    $bar->add(

                  : $form->{storno}                           ? t8('A canceled general ledger transaction cannot be posted.')

                  : ($form->{id} && $change_never)            ? t8('Changing general ledger transaction has been disabled in the configuration.')

                  : ($form->{id} && $change_on_same_day_only) ? t8('General ledger transactions can only be changed on the day they are posted.')

                  :                                             undef,

        ],

      combobox => [

                    : $form->{locked}          ? t8('The billing period has already been locked.')

                    : $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.')

                    :                            undef,

        ],

      ], # end of combobox "Storno"

        to_id      => $::form->{id},

      );

      SL::DB::RecordLink->new(@props)->save;

    }

    1;