X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/62f2141002f5b8c11fa9d881473fd3bc469b4eef..fdebfd5d0c558cb156849b01c9c9268b29dc443b:/SL/IS.pm diff --git a/SL/IS.pm b/SL/IS.pm index e1eb4438b..e9bd54d47 100644 --- a/SL/IS.pm +++ b/SL/IS.pm @@ -2435,16 +2435,6 @@ sub retrieve_item { last; } } - ## customer_id ggf beim ersten mal noch nicht gesetzt nur customer -- - ($form->{customer}, $form->{customer_id}) = split(/--/, $form->{customer}) if ! $form->{customer_id}; - if ( $form->{customer_id} ) { - my $cprice = SL::DB::Manager::PartCustomerPrice->get_first( - query => [ parts_id => $ref->{id} , customer_id => $form->{customer_id} ] ); - if ( $cprice ) { - $::lxdebug->message(LXDebug->DEBUG2(), "cprice id=".$cprice->{id}." price=".$cprice->{price}); - $ref->{sellprice} = $cprice->{price}; - } - } $ref->{onhand} *= 1; push @{ $form->{item_list} }, $ref;