X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/902b70fc8afe197df219583aef4913f152f1964f..a2930f9ee294b1288488e8dec1a3092592dc8e97:/bin/mozilla/am.pl

diff --git a/bin/mozilla/am.pl b/bin/mozilla/am.pl
index 5cde7aef8..4d4465e7f 100644
--- a/bin/mozilla/am.pl
+++ b/bin/mozilla/am.pl
@@ -215,29 +215,10 @@ sub account_header {
 
   my $select_eur = q|<option value=""> |. $locale->text('None') .q|</option>\n|;
   my %eur;
-  if(scalar(grep(/^Switzerland/, (selectrow_query($form, $form->get_standard_dbh, 'SELECT coa FROM defaults'))[0]))) {
+  if ($form->{use_case} = scalar(grep(/^Switzerland/, (selectrow_query($form, $form->get_standard_dbh, 'SELECT coa FROM defaults'))[0]))) {
     %eur = (
-         1  => "Umsatzerlöse",
-         2  => "Spenden",
-         3  => "Mitgliederbeiträge",
-         4  => "Finanzerträge",
-         5  => "Ertragsminderungen",
-         6  => "Einkauf",
-         7  => "Löhne und Gehälter",
-         8  => "Sozialversicherungen",
-         9  => "Mieten",
-         10 => "Betriebsversicherungen",
-         11 => "Material- und Warenverluste",
-         12 => "Werbeaufwand",
-         13 => "Werkzeuge, Unterhalt, Betriebsmaterial",
-         14 => "Internet- und Serverhousingkosten",
-         15 => "Arbeitsleistungen externer Firmen",
-         16 => "Bürobedarf, Versandspesen, Telefon",
-         17 => "Sonstige Aufwendungen",
-         18 => "Abschreibungen",
-         19 => "Finanzaufwand",
-         20 => "Aufwandsminderungen",
-         21 => "Betriebliche Steuern",
+         1  => "Ertrag",
+         6  => "Aufwand",
     );
   } else {
     %eur = (
@@ -603,7 +584,7 @@ sub delete_account {
   $form->{title} = $locale->text('Delete Account');
 
   foreach my $id (
-    qw(inventory_accno_id income_accno_id expense_accno_id fxgain_accno_id fxloss_accno_id)
+    qw(inventory_accno_id income_accno_id expense_accno_id fxgain_accno_id fxloss_accno_id rndgain_accno_id rndloss_accno_id)
     ) {
     if ($form->{id} == $form->{$id}) {
       $form->error($locale->text('Cannot delete default account!'));