projekt kivitendo

use List::Util qw(first sum);

use SL::DB::ApGl;

use SL::DB::RecordTemplate;

use SL::DB::ReconciliationLink;

use SL::DB::BankTransactionAccTrans;

  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;

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

    $is_linked_ap_transaction = 1;

  }

  if ($form->{id}) {

    my @acc_trans_ids = map { $_->acc_trans_id } @{ SL::DB::Manager::AccTransaction->get_all(select => ["acc_trans_id"], where => [ trans_id => $form->{id} ] ) };

    if (scalar @acc_trans_ids && scalar @{ SL::DB::Manager::ReconciliationLink->get_all(where => [ acc_trans_id  => [ @acc_trans_ids ] ]) }) {

      $is_reconciled_bank_transaction = 1;

    }

  }

  my $create_post_action = sub {

    # $_[0]: description

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

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

                : $is_reconciled_bank_transaction           ? t8('This transaction is reconciled with a bank transaction. Please undo the reconciliation if needed.')

                : undef,

    ],

  };

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

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

                    : $is_reconciled_bank_transaction ? t8('This transaction is reconciled with a bank transaction. Please undo the reconciliation if needed.')

                    : undef,

        ],

        action => [ t8('Delete'),

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

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

                    : $is_reconciled_bank_transaction ? t8('This transaction is reconciled with a bank transaction. Please undo the reconciliation if needed.')

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

                    : undef,

        ],