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