projekt kivitendo

use POSIX qw(strftime);

use List::Util qw(first sum);

use SL::DB::RecordTemplate;

use SL::DB::BankTransactionAccTrans;

use SL::DB::Tax;

  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});

  if ($form->{id} && SL::DB::Manager::BankTransactionAccTrans->find_by(gl_id => $form->{id})) {

    $is_linked_bank_transaction = 1;

  }

  my $create_post_action = sub {

    # $_[0]: description

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

                : $is_linked_bank_transaction               ? t8('This transaction is linked with a bank transaction. Please undo and redo the bank transaction booking if needed.')

    ],

  };

          disabled => !$form->{id}                ? t8('This general ledger transaction has not been posted yet.')

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

                    : $is_linked_bank_transaction ? t8('This transaction is linked with a bank transaction. Please undo and redo the bank transaction booking if needed.')

                    : undef,

        ],

        action => [ t8('Delete'),

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

                    : $is_linked_bank_transaction ? t8('This transaction is linked with a bank transaction. Please undo and redo the bank transaction booking if needed.')

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

        ],

      ], # end of combobox "Storno"

          call     => [ 'kivi.Draft.popup', 'gl', 'unknown', $form->{draft_id}, $form->{draft_description} ],

          disabled => $form->{id}     ? t8('This invoice has already been posted.')

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

        ],

      ], # end of combobox "more"

    );