Revision 97954312
Von Bernd Bleßmann vor etwa 12 Jahren hinzugefügt
| bin/mozilla/is.pl | ||
|---|---|---|
| 35 | 35 |
use SL::IS; |
| 36 | 36 |
use SL::PE; |
| 37 | 37 |
use SL::OE; |
| 38 |
use SL::DB::Default; |
|
| 38 | 39 |
use Data::Dumper; |
| 39 | 40 |
use List::Util qw(max sum); |
| 40 | 41 |
|
| ... | ... | |
| 444 | 445 |
|
| 445 | 446 |
for my $i (1 .. $form->{paidaccounts}) {
|
| 446 | 447 |
$form->{"changeable_$i"} = 1;
|
| 447 |
if ($::lx_office_conf{features}->{payments_changeable} == 0) {
|
|
| 448 |
if (SL::DB::Default->get->payments_changeable == 0) {
|
|
| 448 | 449 |
# never |
| 449 | 450 |
$form->{"changeable_$i"} = ($form->{"acc_trans_id_$i"})? 0 : 1;
|
| 450 |
} elsif ($::lx_office_conf{features}->{payments_changeable} == 2) {
|
|
| 451 |
} elsif (SL::DB::Default->get->payments_changeable == 2) {
|
|
| 451 | 452 |
# on the same day |
| 452 | 453 |
$form->{"changeable_$i"} = (($form->{"gldate_$i"} eq '') ||
|
| 453 | 454 |
($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.