projekt kivitendo

#======================================================================

package Form;

use Data::Dumper;

use CGI;

package IS;

use List::Util qw(max);

use SL::AM;

  }

  # sort items by partsgroup

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

  }

      if ($form->{lizenzen}) {

        if ($form->{"licensenumber_$i"}) {

          $query = qq|SELECT licensenumber, validuntil FROM license WHERE id = ?|;

          push(@{ $form->{licensenumber} }, $licensenumber);

          push(@{ $form->{validuntil} }, $locale->date($myconfig, $validuntil, 0));

          $taxbase{$accno}     += $taxbase;

        }

      }

      push(@{ $form->{tax_rate} }, qq|$tax_rate|);

      if ($form->{"assembly_$i"}) {

        $sameitem = "";

             WHERE (a.bom = '1') AND (a.id = ?) $sortorder|;

        $sth = prepare_execute_query($form, $dbh, $query, conv_i($form->{"id_$i"}));

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

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

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

  $main::lxdebug->enter_sub();

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

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

  my ($description) = selectrow_query($form, $dbh, $query, conv_i($id));

      $form->{"qty_$i"} = $form->parse_amount($myconfig, $form->{"qty_$i"});

    }

    my $basefactor;

    $form->{"marge_percent_$i"} = $form->parse_amount($myconfig, $form->{"marge_percent_$i"}) * 1;

    $form->{"marge_total_$i"} = $form->parse_amount($myconfig, $form->{"marge_total_$i"}) * 1;

       WHERE (a.id = ?)|;

  my $sth = prepare_execute_query($form, $dbh, $query, conv_i($id));

    my $allocated = 0;

    $query =

      qq|INSERT INTO invoice (trans_id, description, parts_id, qty, sellprice, fxsellprice, allocated, assemblyitem, unit)

         VALUES (?, ?, ?, ?, ?, ?, ?, ?, ?)|;

    do_query($form, $dbh, $query, @values);

  }

  my $allocated = 0;

  my $qty;

    if (($qty = (($ref->{base_qty} * -1) - $ref->{allocated})) > $totalqty) {

      $qty = $totalqty;

    }

    # total expenses and inventory

    # sellprice is the cost of the item

    if (!$main::eur) {

      $ref->{expense_accno} = ($form->{"expense_accno_$row"}) ? $form->{"expense_accno_$row"} : $ref->{expense_accno};

       WHERE i.trans_id = ?|;

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

    if ($ref->{inventory_accno_id}) {

      # de-allocated purchases

           ORDER BY i.trans_id DESC|;

      my $sth2 = prepare_execute_query($form, $dbh, $query, conv_i($ref->{"parts_id"}));

        if (($ref->{qty} - $inhref->{allocated}) > 0) {

          $qty = $inhref->{allocated};

        }

  $sth->finish;

  # delete acc_trans

  do_query($form, $dbh, qq|DELETE FROM acc_trans WHERE trans_id = ?|, @values);

  do_query($form, $dbh, qq|DELETE FROM invoice WHERE trans_id = ?|, @values);

  $dbh->disconnect;

  if ($rc) {

  }

  $main::lxdebug->leave_sub();

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

    $sth = prepare_execute_query($form, $dbh, $query, $id);

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

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

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

    $sth = prepare_execute_query($form, $dbh, $query, $id);

      map({ delete($ref->{$_}); } qw(inventory_accno inventory_new_chart inventory_valid)) if !$ref->{"part_inventory_accno_id"};

      delete($ref->{"part_inventory_accno_id"});

      my $stw = prepare_execute_query($form, $dbh, $query, $accno_id);

      $ref->{taxaccounts} = "";

      my $i=0;

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

          $i++;

       WHERE o.customer_id = ?

         AND o.quotation = '0'

         AND o.closed = '0'|;

  while (my ($amount, $exch) = $sth->fetchrow_array) {

    $exch = 1 unless $exch;

    $sth = prepare_execute_query($form, $dbh, $query, $cid, $cid);

    my $i = 0;

      if ($ref->{category} eq 'I') {

        $i++;

        $form->{"AR_amount_$i"} = "$ref->{accno}--$ref->{description}";

       WHERE $where|;

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

    # In der Buchungsgruppe ist immer ein Bestandskonto verknuepft, auch wenn

    # es sich um eine Dienstleistung handelt. Bei Dienstleistungen muss das

    }

    # get tax rates and description

    $query =

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

         FROM tax t

            LIMIT 1)

         ORDER BY c.accno|;

    @values = ($accno_id, $transdate eq "current_date" ? "now" : $transdate);

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

    $ref->{taxaccounts} = "";

    my $i = 0;

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

        $i++;

        $ptr->{accno} = $i;

             FROM license l

             WHERE l.parts_id = ? AND NOT l.id IN (SELECT li.license_id FROM licenseinvoice li)|;

        my $stw = prepare_execute_query($form, $dbh, $query, conv_i($ref->{id}));

          push @{ $form->{LIZENZEN}{ $ref->{id} } }, $ptr;

        }

        $stw->finish;

      $id = $form->{"new_id_$i"};

    }

      $form->{"sellprice_pg_$i"});

    $form->{"new_pricegroup_$i"} = $selectedpricegroup_id;

    $form->{"old_pricegroup_$i"} = $pricegroup_old;

    if (!$form->{"unit_old_$i"}) {

      # Neue Ware aus der Datenbank. In diesem Fall ist unit_$i die

      $form->{"basefactor_$i"} = 1;

    }

      qq|SELECT

           pricegroup_id,

           (SELECT p.sellprice FROM parts p WHERE p.id = ?) AS default_sellprice,

          FROM prices

          ORDER BY pricegroup|;

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

      $pkr->{id}       = $id;

      $pkr->{selected} = '';

package User;

use IO::File;

use Fcntl qw(:seek);

  $main::lxdebug->enter_sub();

  my ($self, $form) = @_;

  local *FH;

  $my_a =~ s/.sql$//;

  $my_b =~ s/.*-upgrade-//;

  $my_b =~ s/.sql$//;

  $res_a = calc_version($my_a_from);

  $res_b = calc_version($my_b_from);

  $main::lxdebug->enter_sub();

  my ($self) = @_;

  # format dbconnect and dboptions string

  dbconnect_vars($self, $self->{dbname});

  my ($login)  = selectrow_query($form, $dbh, qq|SELECT id FROM employee WHERE login = ?|, $self->{login});

  if (!$login) {

    do_query($form, $dbh, $query, ($self->{login}, $myconfig->{name}, $myconfig->{tel}, "user"));

  }