Revision ca4e97fd
Von Jan Büren vor etwa 6 Jahren hinzugefügt
| bin/mozilla/gl.pl | ||
|---|---|---|
|
use List::Util qw(first sum);
|
||
|
|
||
|
use SL::DB::RecordTemplate;
|
||
|
use SL::DB::BankTransactionAccTrans;
|
||
|
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});
|
||
|
my $is_linked_bank_transaction;
|
||
|
|
||
|
if ($form->{id} && SL::DB::Manager::BankTransactionAccTrans->find_by(gl_id => $form->{id})) {
|
||
|
$is_linked_bank_transaction = 1;
|
||
|
}
|
||
|
|
||
|
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.')
|
||
|
: $is_linked_bank_transaction ? t8('This transaction is linked with a bank transaction. Please undo and redo the bank transaction booking if needed.')
|
||
|
: 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.')
|
||
|
: $is_linked_bank_transaction ? t8('This transaction is linked with a bank transaction. Please undo and redo the bank transaction booking if needed.')
|
||
|
: undef,
|
||
|
],
|
||
|
], # end of combobox "Storno"
|
||
| ... | ... | |
|
to_id => $::form->{id},
|
||
|
);
|
||
|
SL::DB::RecordLink->new(@props)->save;
|
||
|
# and tighten holy acc_trans_id for this bank_transaction
|
||
|
my %props_acc = (
|
||
|
acc_trans_id => $payment->[0]->acc_trans_id,
|
||
|
bank_transaction_id => $bt->id,
|
||
|
gl_id => $payment->[0]->trans_id,
|
||
|
);
|
||
|
my $bta = SL::DB::BankTransactionAccTrans->new(%props_acc);
|
||
|
$bta->save;
|
||
|
|
||
|
}
|
||
|
1;
|
||
Auch abrufbar als: Unified diff
GL mit Bankbewegungen verbuchen. Helfertabelle und striktere Aktionen
Neue acc_trans_id können wir bei diesem Typ von gl-Einträgen nicht
gebrauchen. Alle Anwendermöglichkeiten von der Oberflächen verbieten