projekt kivitendo

  my $query = qq|SELECT date | . conv_dateq($form->{duedate}) . qq| - date | . conv_dateq($form->{invdate}) . qq| AS terms|;

  ($form->{terms}) = selectrow_query($form, $dbh, $query);

  $form->{TEMPLATE_ARRAYS} = {};

  push(@project_ids, $form->{"globalproject_id"}) if ($form->{"globalproject_id"});

  }

  if (@project_ids) {

      join(", ", map({ "?" } @project_ids)) . ")";

    $sth = $dbh->prepare($query);

    $sth->execute(@project_ids) ||

      $form->dberror($query . " (" . join(", ", @project_ids) . ")");

    while (my $ref = $sth->fetchrow_hashref()) {

      $projectnumbers{$ref->{id}} = $ref->{projectnumber};

    }

    $sth->finish();

  }

  $form->{"globalprojectnumber"} =

    $projectnumbers{$form->{"globalproject_id"}};

  my $tax = 0;

  my $item;

       deliverydate_oe ordnumber_oe transdate_oe licensenumber validuntil

       partnotes serialnumber reqdate sellprice listprice netprice

       discount p_discount discount_sub nodiscount_sub

       price_factor price_factor_name partsgroup);

  push @arrays, map { "ic_cvar_$_->{name}" } @{ $ic_cvar_configs };

      push @{ $form->{TEMPLATE_ARRAYS}->{nodiscount_linetotal} }, $form->format_amount($myconfig, $nodiscount_linetotal, 2);

      push(@{ $form->{TEMPLATE_ARRAYS}->{projectnumber} }, $projectnumbers{$form->{"project_id_$i"}});

      @taxaccounts = split(/ /, $form->{"taxaccounts_$i"});

      $taxrate     = 0;