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"};

  }

  $TMPL_VAR{notes}    = qq|<textarea name=notes rows="$rows" cols="25">| . H($form->{notes}) . qq|</textarea>|;

  $TMPL_VAR{intnotes} = qq|<textarea name=intnotes rows="$introws" cols="35">| . H($form->{intnotes}) . qq|</textarea>|;

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

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

  my @columns = (

    "transdate",               "reqdate",

    "id",                      $ordnumber,

    "name",                    "netamount",

    "tax",                     "amount",

    "curr",                    "employee",