Vergessen is.pl für Commit 0e0ff15052f7cb7ed1a2b04235a8a217da97a183 (Standard-Umlaufv...
authorJan Büren <jan@lx-office-hosting.de>
Tue, 28 Dec 2010 14:05:49 +0000 (15:05 +0100)
committerJan Büren <jan@lx-office-hosting.de>
Tue, 28 Dec 2010 14:05:49 +0000 (15:05 +0100)
bin/mozilla/is.pl

index 9ec9bec..a94a720 100644 (file)
@@ -423,9 +423,17 @@ sub form_footer {
   $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"};
   }