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,

        ],

  'This sales order has an active configuration for periodic invoices. If you save then all subsequently created invoices will contain those changes as well, but not those that have already been created. Do you want to continue?' => 'Dieser Auftrag besitzt eine aktive Konfiguration für wiederkehrende Rechnungen. Wenn Sie jetzt speichern, so werden alle zukünftig hieraus erzeugten Rechnungen die Änderungen enthalten, nicht aber die bereits erzeugten Rechnungen. Möchten Sie speichern?',

  'This status output will be refreshed every five seconds.' => 'Diese Statusausgabe wird alle fünf Sekunden aktualisiert.',

  'This sub-version is not yet finalized' => 'Diese Version ist noch in Bearbeitung.',

  'This transaction has to be split into several transactions manually.' => 'Diese Buchung muss manuell in mehrere Buchungen aufgeteilt werden.',

  'This transaction is linked with a AP transaction. Please undo and redo the AP transaction booking if needed.' => 'Diese Buchung ist mit einer Kreditorenbuchung verknüpft. Bitte Löschen oder Ändern Sie die Kreditorenbuchung nötigenfalls.',

  'This transaction is linked with a bank transaction. Please undo and redo the bank transaction booking if needed.' => 'Ein oder mehrere Zahlungen des Belegs sind über das Verbuchen von Kontoauszüge erstellt worden, falls notwendig kann eine Neuverbuchung über Zahlungsverkehr -> Bericht Bankbewegung möglich gemacht werden.',

  'This sales order has an active configuration for periodic invoices. If you save then all subsequently created invoices will contain those changes as well, but not those that have already been created. Do you want to continue?' => '',

  'This status output will be refreshed every five seconds.' => '',

  'This sub-version is not yet finalized' => '',

  'This transaction has to be split into several transactions manually.' => '',

  'This transaction is linked with a AP transaction. Please undo and redo the AP transaction booking if needed.' => '',

  'This transaction is linked with a bank transaction. Please undo and redo the bank transaction booking if needed.' => '',