projekt kivitendo

  $TMPL_VAR{sales_employee_labels} = sub { $_[0]->{name} || $_[0]->{login} };

  $TMPL_VAR{shipto_labels}         = sub { join "; ", grep { $_ } map { $_[0]->{"shipto${_}" } } qw(name department_1 street city) };

  $TMPL_VAR{contact_labels}        = sub { join(', ', $_[0]->{"cp_name"}, $_[0]->{"cp_givenname"}) . ($_[0]->{cp_abteilung} ? " ($_[0]->{cp_abteilung})" : "") };

  # vendor/customer

  $TMPL_VAR{vc_keys} = sub { "$_[0]->{name}--$_[0]->{id}" };

  # credit remaining

  $creditwarning = (($form->{creditlimit} != 0) && ($form->{creditremaining} < 0) && !$form->{update}) ? 1 : 0;

  $TMPL_VAR{is_credit_remaining_negativ} = ($form->{creditremaining} =~ /-/) ? "0" : "1";

  # business

  $TMPL_VAR{business_label} = ($form->{vc} eq "customer" ? $locale->text('Customer type') : $locale->text('Vendor type'));

sub update {

  $lxdebug->enter_sub();

  my ($recursive_call) = shift;

  check_oe_access();

  map { $form->{$_} = $form->parse_amount(\%myconfig, $form->{$_}) } qw(exchangerate) unless $recursive_call;

  $form->{update} = 1;

  $payment_id = $form->{payment_id} if $form->{payment_id};

  &check_name($form->{vc});

  $form->{payment_id} = $payment_id if $form->{payment_id} eq "";

  $buysell              = 'buy';

  $buysell              = 'sell' if ($form->{vc} eq 'vendor');

  $form->{forex}        = $form->check_exchangerate(\%myconfig, $form->{currency}, $form->{transdate}, $buysell);

    push(@values, $item->{"id"});

    $labels{$item->{"id"}} = $item->{"name"} ne "" ? $item->{"name"} : $item->{"login"};

  }

  #salesmen

  my %labels_salesmen = ();

  my @values_salesmen = ('');

  my $vc_label = $form->{vc} eq "customer" ? $locale->text('Customer') : $locale->text('Vendor');

  $vc =

    $myconfig{vclimit} <=  scalar(@values)

    : NTI($cgi->popup_menu('-name' => "$form->{vc}",

                           '-default' => $form->{"old$form->{vc}"},

                           '-onChange' => 'document.getElementById(\'update_button\').click();',

	      <tr>

	        <td><input name="l_name" class=checkbox type=checkbox value=Y checked> $vc_label</td>

	        <td><input name="l_employee" class=checkbox type=checkbox value=Y checked> $employee</td>

		<td><input name="l_shipvia" class=checkbox type=checkbox value=Y> | . $locale->text('Ship via') . qq|</td>

	      </tr>

	      <tr>

    if ($form->{currency} ne $form->{defaultcurrency});

  &validate_items;

    $payment_id = $form->{payment_id};

  }

  # if the name changed get new values

  if (&check_name($form->{vc})) {

      $form->{payment_id} = $payment_id;

    }

    &update;

    if ($form->{currency} ne $form->{defaultcurrency});

  &validate_items;

    $payment_id = $form->{payment_id};

  }

  # if the name changed get new values

  if (&check_name($form->{vc})) {

      $form->{payment_id} = $payment_id;

    }

    &update;

  	$form->{addition} = "SAVED";

  	$form->save_history($form->dbconnect(\%myconfig));

  }

  $form->{simple_save} = 1;

  if(!$form->{print_and_save}) {

  	  $form->{addition} = "DELETED";

  	  $form->save_history($form->dbconnect(\%myconfig));

    }

    $form->info($msg);

    exit();

  }

    $form->{ordnumber}    = "";

    $form->{quodate}      = $form->{transdate};

  }

  $payment_id = $form->{payment_id} if $form->{payment_id};

  # if the name changed get new values

  if (&check_name($form->{vc})) {

    $form->{payment_id} = $payment_id if $form->{payment_id} eq "";

    $buysell        = 'sell';

  }

      || $form->{type} eq 'sales_quotation') {

    $form->{title}  = $locale->text('Add Sales Invoice');

    $form->{script} = 'is.pl';