From 0e9f6f033ae78206cfa0fd56e310dd79327f99f4 Mon Sep 17 00:00:00 2001
From: =?utf8?q?Sven=20Sch=C3=B6ling?= <s.schoeling@linet-services.de>
Date: Fri, 5 Jan 2018 15:09:55 +0100
Subject: [PATCH] PartCustomerPrices: Preisbehandlung nicht hart kodieren

---
 SL/IR.pm | 12 ------------
 SL/IS.pm | 10 ----------
 2 files changed, 22 deletions(-)

diff --git a/SL/IR.pm b/SL/IR.pm
index ebb29fdc7..55c0bc8bf 100644
--- a/SL/IR.pm
+++ b/SL/IR.pm
@@ -1378,18 +1378,6 @@ sub retrieve_item {
     $stw->finish();
     chop $ref->{taxaccounts};
 
-    ## vendor_id ggf beim ersten mal noch nicht gesetzt nur vendor <name>--<id>
-    ($form->{vendor}, $form->{vendor_id}) = split(/--/, $form->{vendor}) if  ! $form->{vendor_id};
-
-    if ( $form->{vendor_id} ) {
-      my $mm = SL::DB::Manager::MakeModel->get_first(
-        query => [ parts_id => $ref->{id} , make => $form->{vendor_id} ] );
-      if ( $mm ) {
-        $::lxdebug->message(LXDebug->DEBUG2(), "mm id=".$mm->{id}." price=".$mm->{lastcost});
-        $ref->{lastcost} = $mm->{lastcost};
-      }
-    }
-
     $ref->{onhand} *= 1;
     push @{ $form->{item_list} }, $ref;
 
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 <name>--<id>
-    ($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;
-- 
2.20.1