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

diff --combined bin/mozilla/is.pl
index 5aa916e,d99d1eb..66aa4b8
--- 1/bin/mozilla/is.pl
--- 2/bin/mozilla/is.pl
+++ b/bin/mozilla/is.pl
@@@ -312,7 -312,7 +312,7 @@@ sub form_header 
    $TMPL_VAR{ALL_EMPLOYEES}         = SL::DB::Manager::Employee->get_all(query => [ or => [ id => $::form->{employee_id},  deleted => 0 ] ]);
    $TMPL_VAR{ALL_SALESMEN}          = SL::DB::Manager::Employee->get_all(query => [ or => [ id => $::form->{salesman_id},  deleted => 0 ] ]);
    $TMPL_VAR{ALL_SHIPTO}            = SL::DB::Manager::Shipto->get_all(query => [
-     or => [ trans_id  => $::form->{"$::form->{vc}_id"} * 1, shipto_id => $::form->{shipto_id} * 1 ]
+     or => [ trans_id  => $::form->{"$::form->{vc}_id"} * 1, and => [ shipto_id => $::form->{shipto_id} * 1, trans_id => undef ] ]
    ]);
    $TMPL_VAR{ALL_CONTACTS}          = SL::DB::Manager::Contact->get_all(query => [
      or => [
@@@ -576,7 -576,7 +576,7 @@@ sub update 
  
          $form->{creditremaining} -= $amount;
  
 -        map { $form->{"${_}_$i"} = $form->format_amount(\%myconfig, $form->{"${_}_$i"}, $decimalplaces) } qw(sellprice listprice lastcost);
 +        map { $form->{"${_}_$i"} = $form->format_amount(\%myconfig, $form->{"${_}_$i"}, $decimalplaces) } qw(sellprice lastcost);
  
          $form->{"qty_$i"} = $form->format_amount(\%myconfig, $form->{"qty_$i"});
  
@@@ -938,12 -938,6 +938,12 @@@ sub credit_note 
  #  map { $form->{$_} = $form->parse_amount(\%myconfig, $form->{$_}) }
  #    qw(creditlimit creditremaining);
  
 +  for my $i (1 .. $form->{rowcount}) {
 +    for (qw(listprice)) {
 +      $form->{"${_}_${i}"} = $form->parse_amount(\%myconfig, $form->{"${_}_${i}"}) if $form->{"${_}_${i}"};
 +    }
 +  }
 +
    my $currency = $form->{currency};
    &invoice_links;