Revision 0ce47aa2
Von Jan Büren vor 9 Monaten hinzugefügt
- ID 0ce47aa28d363a507ea549793c8287c91b39c7df
- Vorgänger 89be7ff7
bin/mozilla/is.pl | ||
---|---|---|
288 | 288 |
|
289 | 289 |
$form->{paidaccounts} = 1 unless (exists $form->{paidaccounts}); |
290 | 290 |
|
291 |
foreach my $ref (@{ $form->{AR_links}{AR} } ) { |
|
292 |
if ( $ref->{chart_id} == $::instance_conf->get_ar_chart_id ) { |
|
293 |
$form->{AR_1} = "$ref->{accno}--$ref->{description}"; |
|
294 |
} |
|
295 |
} |
|
296 |
$form->{AR} = $form->{AR_1} unless $form->{id}; |
|
297 | 291 |
my ($chart_accno) = split /--/, $form->{AR}; # is empty if total is 0 |
298 | 292 |
$form->{AR_chart_id} = $form->{id} && $chart_accno ? SL::DB::Manager::Chart->find_by(accno => $chart_accno)->id |
299 |
: $::instance_conf->get_ar_chart_id || $form->{AR_links}->{AR}->[0]->{chart_id}; |
|
293 |
: $form->{AR_chart_id} ? $form->{AR_chart_id} |
|
294 |
: $::instance_conf->get_ar_chart_id; |
|
300 | 295 |
|
301 | 296 |
$form->{locked} = ($form->datetonum($form->{invdate}, \%myconfig) |
302 | 297 |
<= $form->datetonum($form->{closedto}, \%myconfig)); |
Auch abrufbar als: Unified diff
Sammelkonto bei Gutschriften nicht auf Standard ändern => Übernahme