From 57ac7b3c45f98e44a8bd8452da70ac7fba182ca4 Mon Sep 17 00:00:00 2001 From: Moritz Bunkus Date: Wed, 7 Nov 2012 16:18:21 +0100 Subject: [PATCH] =?utf8?q?"Verk=C3=A4ufer/in"=20bei=20Wechsel=20Kunde/Lief?= =?utf8?q?erant=20auf=20aktuellen=20Benutzer=20setzen,=20falls=20K/L=20kei?= =?utf8?q?nen=20gesetzt=20hat?= MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit Fixt #1949. --- bin/mozilla/arap.pl | 12 ++++++++++++ 1 file changed, 12 insertions(+) diff --git a/bin/mozilla/arap.pl b/bin/mozilla/arap.pl index 27b0e3bfa..fe5fa2d27 100644 --- a/bin/mozilla/arap.pl +++ b/bin/mozilla/arap.pl @@ -78,6 +78,7 @@ sub check_name { $form->{"${name}_id"} = $new_id; + _reset_salesman_id(); IS->get_customer(\%myconfig, \%$form) if ($name eq 'customer'); IR->get_vendor(\%myconfig, \%$form) if ($name eq 'vendor'); @@ -119,6 +120,7 @@ sub check_name { $form->{$name} = $form->{name_list}[0]->{name}; $form->{"old$name"} = qq|$form->{$name}--$form->{"${name}_id"}|; + _reset_salesman_id(); IS->get_customer(\%myconfig, \%$form) if ($name eq 'customer'); IR->get_vendor(\%myconfig, \%$form) if ($name eq 'vendor'); @@ -266,6 +268,8 @@ sub name_selected { # index for new item my $i = $form->{ndx}; + _reset_salesman_id(); + $form->{ $form->{vc} } = $form->{"new_name_$i"}; $form->{"$form->{vc}_id"} = $form->{"new_id_$i"}; $form->{"old$form->{vc}"} = @@ -286,6 +290,14 @@ sub name_selected { $main::lxdebug->leave_sub(); } +# Reset the $::form field 'salesman_id' to the ID of the currently +# logged in user. Useful when changing to a customer/vendor that has +# no salesman listed in their master data. +sub _reset_salesman_id { + my $current_employee = SL::DB::Manager::Employee->current; + $::form->{salesman_id} = $current_employee->id if $current_employee && exists $::form->{salesman_id}; +} + sub check_project { $main::lxdebug->enter_sub(); -- 2.20.1