projekt kivitendo

  $form->{businessnumber} =  $businessnumber;

  foreach my $item (keys %$form) {

    $myconfig->{$item} = $form->{$item};

  $main::lxdebug->enter_sub(2);

  ($this, $a, $b, $all_units) = @_;

  $main::lxdebug->leave_sub(2) and return 0 unless $all_units->{$a} && $all_units->{$b};

  $main::lxdebug->leave_sub(2) and return 0 unless $all_units->{$a}{base_unit} eq $all_units->{$b}{base_unit};

}

sub unit_select_data {

  my %id = ();

  $form->{OE} = [];

    $ref->{exchangerate} = 1 unless $ref->{exchangerate};

    push @{ $form->{OE} }, $ref if $ref->{id} != $id{ $ref->{id} };

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

  my $project_id;

  my $reqdate;

  my $taxrate;

  my $taxamount = 0;

  my $fxsellprice;

  my %taxbase;

      if ($form->round_amount($taxrate, 7) == 0) {

        if ($form->{taxincluded}) {

            $taxamount = $form->round_amount($linetotal * $form->{"${item}_rate"} / (1 + abs($form->{"${item}_rate"})), 2);

            $taxaccounts{$item} += $taxamount;

            $taxdiff            += $taxamount;

          }

          $taxaccounts{ $taxaccounts[0] } += $taxdiff;

        } else {

            $taxaccounts{$item} += $linetotal * $form->{"${item}_rate"};

            $taxbase{$item}     += $taxbase;

          }

        }

      } else {

          $taxaccounts{$item} += $taxamount * $form->{"${item}_rate"} / $taxrate;

          $taxbase{$item} += $taxbase;

        }

  my $query = qq|SELECT s.spoolfile FROM status s | .

              qq|WHERE s.trans_id = ?|;

  my @values = (conv_i($form->{id}));

  $sth->execute(@values) || $self->dberror($query);

  my $spoolfile;

    undef @ids;

  }

  if (!$form->{id}) {

    my $wday         = (localtime(time))[6];

    my $next_workday = $wday == 5 ? 3 : $wday == 6 ? 2 : 1;

    @values = $form->{id} ? ($form->{id}) : @ids;

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

    map { $form->{$_} = $ref->{$_} } keys %$ref;

    $form->{saved_xyznumber} = $form->{$form->{type} =~ /_quotation$/ ?

      $query = qq|SELECT s.* FROM shipto s WHERE s.trans_id = ? AND s.module = 'OE'|;

      $sth = prepare_execute_query($form, $dbh, $query, $form->{id});

      delete($ref->{id});

      map { $form->{$_} = $ref->{$_} } keys %$ref;

      $sth->finish;

      $query = qq|SELECT s.printed, s.emailed, s.spoolfile, s.formname FROM status s WHERE s.trans_id = ?|;

      $sth = prepare_execute_query($form, $dbh, $query, $form->{id});

        $form->{printed} .= "$ref->{formname} " if $ref->{printed};

        $form->{emailed} .= "$ref->{formname} " if $ref->{emailed};

        $form->{queued}  .= "$ref->{formname} $ref->{spoolfile} " if $ref->{spoolfile};

    @ids = $form->{id} ? ($form->{id}) : @ids;

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

      # Retrieve custom variables.

      my $cvars = CVar->get_custom_variables(dbh        => $dbh,

                                             module     => 'IC',

      delete $ref->{orderitems_id} if (@ids);

      # get tax rates and description

      $query =

        qq|SELECT c.accno, t.taxdescription, t.rate, t.taxnumber | .

        qq|FROM tax t LEFT JOIN chart c on (c.id = t.chart_id) | .

        qq|               WHERE tk.chart_id = (SELECT id FROM chart WHERE accno = ?) | .

        qq|                 AND startdate <= $transdate ORDER BY startdate DESC LIMIT 1) | .

        qq|ORDER BY c.accno|;

      $ref->{taxaccounts} = "";

      my $i = 0;

        if (($ptr->{accno} eq "") && ($ptr->{rate} == 0)) {

          $i++;

          $ptr->{accno} = $i;

  my $position = 0;

  my $subtotal_header = 0;

  my $subposition = 0;

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

             'Oracle' => 'rowid');

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

        $sth->execute(@values) || $form->dberror($query);

          if ($form->{groupitems} && $ref->{partsgroup} ne $sameitem) {

            map({ push(@{ $form->{TEMPLATE_ARRAYS}->{$_} }, "") } grep({ $_ ne "description" } @arrays));

            $sameitem = ($ref->{partsgroup}) ? $ref->{partsgroup} : "--";

  my ($self, $dbh, $id) = @_;

  my $query = qq|SELECT description FROM project WHERE id = ?|;

  $main::lxdebug->leave_sub();