From 0e9f6f033ae78206cfa0fd56e310dd79327f99f4 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Sven=20Sch=C3=B6ling?= 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 -- - ($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 -- - ($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