Revision e7117e52
Von Jan Büren vor fast 2 Jahren hinzugefügt
| bin/mozilla/ar.pl | ||
|---|---|---|
| 399 | 399 |
|
| 400 | 400 |
my %project_labels = map { $_->{id} => $_->{projectnumber} } @{ $form->{"ALL_PROJECTS"} };
|
| 401 | 401 |
|
| 402 |
my (@AR_paid_values, %AR_paid_labels); |
|
| 402 |
my (@AR_paid_values, %AR_paid_labels, %bank_accounts);
|
|
| 403 | 403 |
my $default_ar_amount_chart_id; |
| 404 |
|
|
| 404 |
# don't add manual bookings for charts which are assigned to real bank accounts |
|
| 405 |
my $bank_accounts = SL::DB::Manager::BankAccount->get_all(); |
|
| 406 |
foreach my $bank (@{ $bank_accounts }) {
|
|
| 407 |
my $accno_paid_bank = $bank->chart->accno; |
|
| 408 |
$bank_accounts{$accno_paid_bank} = 1;
|
|
| 409 |
} |
|
| 405 | 410 |
foreach my $item (@{ $form->{ALL_CHARTS} }) {
|
| 406 | 411 |
if ($item->{link_split}{AR_amount}) {
|
| 407 | 412 |
$default_ar_amount_chart_id //= $item->{id};
|
| 408 | 413 |
|
| 409 | 414 |
} elsif ($item->{link_split}{AR_paid}) {
|
| 415 |
next if $bank_accounts{$item->{accno}};
|
|
| 410 | 416 |
push(@AR_paid_values, $item->{accno});
|
| 411 | 417 |
$AR_paid_labels{$item->{accno}} = "$item->{accno}--$item->{description}";
|
| 412 | 418 |
} |
Auch abrufbar als: Unified diff
Zahlungsbuchung in Belegen: Konten ausblenden, die über Bank verbucht werden