projekt kivitendo

  my ($tax, $subtotal);

  $form->{taxaccounts_array} = [ split / /, $form->{taxaccounts} ];

  IS->get_customer(\%myconfig, \%$form) if $form->{type} =~ /sales_(order|quotation)/;

  if ( $form->{vc} eq 'customer' && !$form->{taxincluded_changed_by_user} ) {

    $form->{taxincluded} = defined($form->{taxincluded_checked}) ? $form->{taxincluded_checked} : $myconfig{taxincluded_checked};

    map { $form->{"${_}_$i"} = $form->parse_amount(\%myconfig, $form->{"${_}_$i"}) } qw(paid exchangerate);

    if (!$form->{"forex_$i"}) {   #read exchangerate from input field (not hidden)

      $form->{exchangerate} = $form->{"exchangerate_$i"};

    $form->{"forex_$i"}        = $form->check_exchangerate(\%myconfig, $form->{currency}, $form->{"datepaid_$i"}, 'buy');

    $form->{"exchangerate_$i"} = $form->{"forex_$i"} if $form->{"forex_$i"};

  }