projekt kivitendo

  # $locale->text('Assembly Number missing!')

  # save part

  $rc = IC->save(\%myconfig, \%$form);

  if ($rc == 3) {

    $form->error($locale->text('Partnumber not unique!'));

      map { $form->{"${_}_$i"} = $newform{$_} }

        qw(partnumber description bin unit listprice inventory_accno income_accno expense_accno sellprice);

      $form->{"sellprice_$i"} = $newform{lastcost} if ($form->{vendor_id});

      if ($form->{exchangerate} != 0) {

        $form->{"sellprice_$i"} /= $form->{exchangerate};

      }

      map { $form->{"taxaccounts_$i"} .= "$_ " } split / /,

        $newform{taxaccount};

      chop $form->{"taxaccounts_$i"};

      $form->{creditremaining} -= $amount;

    }

    $form->{"id_$i"} = $parts_id;

    }

    $form->{callback} = $callback;

  }

  # redirect

  $form->redirect;