Revision 97954312
Von Bernd Bleßmann vor etwa 12 Jahren hinzugefügt
| bin/mozilla/ir.pl | ||
|---|---|---|
| 35 | 35 |
use SL::IR; |
| 36 | 36 |
use SL::IS; |
| 37 | 37 |
use SL::PE; |
| 38 |
use SL::DB::Default; |
|
| 38 | 39 |
use List::Util qw(max sum); |
| 39 | 40 |
|
| 40 | 41 |
require "bin/mozilla/io.pl"; |
| ... | ... | |
| 415 | 416 |
|
| 416 | 417 |
for my $i (1 .. $form->{paidaccounts}) {
|
| 417 | 418 |
$form->{"changeable_$i"} = 1;
|
| 418 |
if ($::lx_office_conf{features}->{payments_changeable} == 0) {
|
|
| 419 |
if (SL::DB::Default->get->payments_changeable == 0) {
|
|
| 419 | 420 |
# never |
| 420 | 421 |
$form->{"changeable_$i"} = ($form->{"acc_trans_id_$i"})? 0 : 1;
|
| 421 |
} elsif ($::lx_office_conf{features}->{payments_changeable} == 2) {
|
|
| 422 |
} elsif (SL::DB::Default->get->payments_changeable == 2) {
|
|
| 422 | 423 |
# on the same day |
| 423 | 424 |
$form->{"changeable_$i"} = (($form->{"gldate_$i"} eq '') ||
|
| 424 | 425 |
($form->current_date(\%myconfig) eq $form->{"gldate_$i"}));
|
Auch abrufbar als: Unified diff
Controller für Mandantenkonfiguration.
Im Moment lässt sich hier die Änderbarkeit für Zahlungen einstellen. Es
sollen demnächst auch noch anderen Konfig-Einstellungen aus der Konfig-Datei
hierher wandern.