Revision c0249f11
Von Jan Büren vor fast 14 Jahren hinzugefügt
| bin/mozilla/is.pl | ||
|---|---|---|
| 423 | 423 |
$form->{paidaccounts}++ if ($form->{"paid_$form->{paidaccounts}"});
|
| 424 | 424 |
$form->{paid_indices} = [ 1 .. $form->{paidaccounts} ];
|
| 425 | 425 |
|
| 426 |
# Standard Konto für Umlaufvermögen |
|
| 427 |
my $accno_arap = IS->get_standard_accno_current_assets(\%myconfig, \%$form); |
|
| 428 |
|
|
| 426 | 429 |
for my $i (1 .. $form->{paidaccounts}) {
|
| 427 | 430 |
$form->{"selectAR_paid_$i"} = $form->{selectAR_paid};
|
| 428 |
$form->{"selectAR_paid_$i"} =~ s/option>\Q$form->{"AR_paid_$i"}\E/option selected>$form->{"AR_paid_$i"}/;
|
|
| 431 |
if (!$form->{"AR_paid_$i"}) {
|
|
| 432 |
$form->{"selectAR_paid_$i"} =~ s/option>$accno_arap--(.*?)</option selected>$accno_arap--$1</;
|
|
| 433 |
} else {
|
|
| 434 |
$form->{"selectAR_paid_$i"} =~ s/option>\Q$form->{"AR_paid_$i"}\E/option selected>$form->{"AR_paid_$i"}/;
|
|
| 435 |
} |
|
| 436 |
|
|
| 429 | 437 |
$totalpaid += $form->{"paid_$i"};
|
| 430 | 438 |
} |
| 431 | 439 |
|
Auch abrufbar als: Unified diff
Vergessen is.pl für Commit 0e0ff15052f7cb7ed1a2b04235a8a217da97a183 (Standard-Umlaufvermögenskonto) hinzugefügt