Revision dd40d937
Von Jan Büren vor mehr als 2 Jahren hinzugefügt
| bin/mozilla/ap.pl | ||
|---|---|---|
|
|
||
|
my %project_labels = map { $_->id => $_->projectnumber } @{ SL::DB::Manager::Project->get_all };
|
||
|
|
||
|
my %charts;
|
||
|
my (%charts, %bank_accounts);
|
||
|
my $default_ap_amount_chart_id;
|
||
|
# don't add manual bookings for charts which are assigned to real bank accounts
|
||
|
my $bank_accounts = SL::DB::Manager::BankAccount->get_all();
|
||
|
foreach my $bank (@{ $bank_accounts }) {
|
||
|
my $accno_paid_bank = $bank->chart->accno;
|
||
|
$bank_accounts{$accno_paid_bank} = 1;
|
||
|
}
|
||
|
|
||
|
foreach my $item (@{ $form->{ALL_CHARTS} }) {
|
||
|
if ( grep({ $_ eq 'AP_amount' } @{ $item->{link_split} }) ) {
|
||
|
$default_ap_amount_chart_id //= $item->{id};
|
||
|
|
||
|
} elsif ( grep({ $_ eq 'AP_paid' } @{ $item->{link_split} }) ) {
|
||
|
next if $bank_accounts{$item->{accno}};
|
||
|
push(@{ $form->{ALL_CHARTS_AP_paid} }, $item);
|
||
|
}
|
||
|
|
||
| bin/mozilla/ar.pl | ||
|---|---|---|
|
|
||
|
my %project_labels = map { $_->{id} => $_->{projectnumber} } @{ $form->{"ALL_PROJECTS"} };
|
||
|
|
||
|
my (@AR_paid_values, %AR_paid_labels);
|
||
|
my (@AR_paid_values, %AR_paid_labels, %bank_accounts);
|
||
|
my $default_ar_amount_chart_id;
|
||
|
|
||
|
# don't add manual bookings for charts which are assigned to real bank accounts
|
||
|
my $bank_accounts = SL::DB::Manager::BankAccount->get_all();
|
||
|
foreach my $bank (@{ $bank_accounts }) {
|
||
|
my $accno_paid_bank = $bank->chart->accno;
|
||
|
$bank_accounts{$accno_paid_bank} = 1;
|
||
|
}
|
||
|
foreach my $item (@{ $form->{ALL_CHARTS} }) {
|
||
|
if ($item->{link_split}{AR_amount}) {
|
||
|
$default_ar_amount_chart_id //= $item->{id};
|
||
|
|
||
|
} elsif ($item->{link_split}{AR_paid}) {
|
||
|
next if $bank_accounts{$item->{accno}};
|
||
|
push(@AR_paid_values, $item->{accno});
|
||
|
$AR_paid_labels{$item->{accno}} = "$item->{accno}--$item->{description}";
|
||
|
}
|
||
| bin/mozilla/ir.pl | ||
|---|---|---|
|
if ($form->date_closed($form->{"gldate_$i"})) {
|
||
|
$form->{"changeable_$i"} = 0;
|
||
|
}
|
||
|
|
||
|
# don't add manual bookings for charts which are assigned to real bank accounts
|
||
|
my $bank_accounts = SL::DB::Manager::BankAccount->get_all();
|
||
|
foreach my $bank (@{ $bank_accounts }) {
|
||
|
my $accno_paid_bank = $bank->chart->accno;
|
||
|
$form->{selectAP_paid} =~ s/<option>$accno_paid_bank--(.*?)<\/option>//;
|
||
|
}
|
||
|
$form->{"selectAP_paid_$i"} = $form->{selectAP_paid};
|
||
|
if (!$form->{"AP_paid_$i"}) {
|
||
|
$form->{"selectAP_paid_$i"} =~ s/option>$accno_arap--(.*?)>/option selected>$accno_arap--$1>/;
|
||
| bin/mozilla/is.pl | ||
|---|---|---|
|
if ($form->date_closed($form->{"gldate_$i"})) {
|
||
|
$form->{"changeable_$i"} = 0;
|
||
|
}
|
||
|
# don't add manual bookings for charts which are assigned to real bank accounts
|
||
|
my $bank_accounts = SL::DB::Manager::BankAccount->get_all();
|
||
|
foreach my $bank (@{ $bank_accounts }) {
|
||
|
my $accno_paid_bank = $bank->chart->accno;
|
||
|
$form->{selectAR_paid} =~ s/<option>$accno_paid_bank--(.*?)<\/option>//;
|
||
|
}
|
||
|
|
||
|
$form->{"selectAR_paid_$i"} = $form->{selectAR_paid};
|
||
|
if (!$form->{"AR_paid_$i"}) {
|
||
Auch abrufbar als: Unified diff
Zahlungsbuchung in Belegen: Konten ausblenden, die über Bank verbucht werden