projekt kivitendo

  my %oid = ('Pg'     => 'oid',

             'Oracle' => 'rowid');

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

  }

  if (@project_ids) {

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

    $sth = prepare_execute_query($form, $dbh, $query, @project_ids);

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

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

    }

    $sth->finish();

  }

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

  $form->{discount} = [];

    qw(runningnumber number description longdescription qty ship unit bin

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

      my ($taxamount, $taxbase);

      my $taxrate = 0;