Buchungsgruppen: Bei aktivierter EUR muss das Inventarkonto automatisch ausgewaehlt...
authorMoritz Bunkus <m.bunkus@linet-services.de>
Mon, 11 Dec 2006 12:53:03 +0000 (12:53 +0000)
committerMoritz Bunkus <m.bunkus@linet-services.de>
Mon, 11 Dec 2006 12:53:03 +0000 (12:53 +0000)
SL/AM.pm
bin/mozilla/am.pl

index 01167ee..843d5ea 100644 (file)
--- a/SL/AM.pm
+++ b/SL/AM.pm
@@ -998,6 +998,10 @@ sub get_buchungsgruppe {
     $sth->finish;
 
   }
+
+  $query = "SELECT inventory_accno_id FROM defaults";
+  ($form->{"std_inventory_accno_id"}) = $dbh->selectrow_array($query);
+
   my $module = "IC";
   $query = qq|SELECT c.accno, c.description, c.link, c.id,
               d.inventory_accno_id, d.income_accno_id, d.expense_accno_id
@@ -1010,6 +1014,9 @@ sub get_buchungsgruppe {
   $sth->execute || $form->dberror($query);
   while (my $ref = $sth->fetchrow_hashref(NAME_lc)) {
     foreach my $key (split(/:/, $ref->{link})) {
+      if (!$form->{"std_inventory_accno_id"} && ($key eq "IC")) {
+        $form->{"std_inventory_accno_id"} = $ref->{"id"};
+      }
       if ($key =~ /$module/) {
         if (   ($ref->{id} eq $ref->{inventory_accno_id})
             || ($ref->{id} eq $ref->{income_accno_id})
index e7d7db2..fcf7d01 100644 (file)
@@ -1712,6 +1712,9 @@ sub add_buchungsgruppe {
     "$form->{script}?action=add_buchungsgruppe&path=$form->{path}&login=$form->{login}&password=$form->{password}"
     unless $form->{callback};
   AM->get_buchungsgruppe(\%myconfig, \%$form);
+  if ($eur) {
+    $form->{"inventory_accno_id"} = $form->{"std_inventory_accno_id"};
+  }
 
   &buchungsgruppe_header;
   &form_footer;