Merge branch 'master' of vc.linet-services.de:public/lx-office-erp

diff --combined SL/Form.pm
index 5af5ea196f0237836655fb1c625b8457261e091b,050614d5622879178350d3aae21cc04eecc4c2bf..84d64bd9fad82eba4538c5079e440c6bf55b6e0c
--- 1/SL/Form.pm
--- 2/SL/Form.pm
+++ b/SL/Form.pm
@@@ -507,7 -507,6 +507,7 @@@ sub header 
    push @header, "<link rel='shortcut icon' href='$self->{favicon}' type='image/x-icon'>" if -f $self->{favicon};
    push @header, map { qq|<script type="text/javascript" src="js/$_.js"></script>| }
         qw(jquery common jscalendar/calendar jscalendar/lang/calendar-de jscalendar/calendar-setup part_selection jquery-ui jqModal switchmenuframe);
 +  push @header, $self->{javascript} if $self->{javascript};
    push @header, map { qq|<link rel="stylesheet" type="text/css" href="$css_path/$_.css">| }
         qw(main menu tabcontent list_accounts jquery.autocomplete jquery.multiselect2side frame_header/header ui-lightness/jquery-ui-1.8.12.custom);
    push @header, map { qq|<link rel="stylesheet" type="text/css" href="js/jscalendar/calendar-win2k-1.css">| }
@@@ -2546,14 -2545,14 +2546,14 @@@ sub all_vc 
  
    $table = $table eq "customer" ? "customer" : "vendor";
  
-   my $query = qq|SELECT count(*) FROM $table WHERE NOT obsolete|;
-   my ($count) = selectrow_query($self, $dbh, $query);
- 
    # build selection list
    # Hotfix für Bug 1837 - Besser wäre es alte Buchungsbelege
    # OHNE Auswahlliste (reines Textfeld) zu laden. Hilft aber auch
    # nicht für veränderbare Belege (oe, do, ...)
    my $obsolete = "WHERE NOT obsolete" unless $self->{id};
+   my $query = qq|SELECT count(*) FROM $table $obsolete|;
+   my ($count) = selectrow_query($self, $dbh, $query);
+ 
    if ($count < $myconfig->{vclimit}) {
      $query = qq|SELECT id, name, salesman_id
                  FROM $table $obsolete