projekt kivitendo

  $form->{PRICEGROUPS} = selectall_hashref_query($form, $dbh, $query);

  #find not used pricegroups

    my $in_use = 0;

    foreach my $item (@pricegroups) {

      if ($item eq $tmp->{id}) {

  # if not used pricegroups are avaible

  if (@pricegroups_not_used) {

      $form->{"klass_$i"} = "$name->{id}";

      $form->{"pricegroup_id_$i"} = "$name->{id}";

      $form->{"pricegroup_$i"}    = "$name->{pricegroup}";

    if ($form->{makemodel}) {

      $query = qq|SELECT m.make, m.model FROM makemodel m | .

               qq|WHERE m.parts_id = ?|;

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

      $sth->execute(@values) || $form->dberror("$query (" . join(', ', @values) . ")");

       FROM chart c, partstax pt

       WHERE (pt.chart_id = c.id) AND (pt.parts_id = ?)|;

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

    $form->{amount}{$key} = $key;

  }

  my $pricegroups = selectall_hashref_query($form, $dbh, $query);

  my $i = 1;

    $form->{"klass_$i"} = "$pg->{id}";

    $form->{"price_$i"} = $form->format_amount($myconfig, $form->{"price_$i"}, -2);

    $form->{"pricegroup_id_$i"} = "$pg->{id}";

  my $partsgroup_id = 0;

  if ($form->{partsgroup}) {

  }

  my ($subq_inventory, $subq_expense, $subq_income);

  do_query($form, $dbh, qq|DELETE FROM translation WHERE parts_id = ?|, conv_i($form->{id}));

  if ($form->{language_values} ne "") {

      my ($language_id, $translation, $longdescription) = split(/--\+\+--/, $item);

      if ($translation ne "") {

        $query = qq|INSERT into translation (parts_id, language_id, translation, longdescription)

  }

  # insert taxes

    if ($form->{"IC_tax_$item"}) {

      $query =

        qq|INSERT INTO partstax (parts_id, chart_id)

      }

    }

    $a[5] += 1900;

    $a[4]++;

    my $shippingdate = "$a[5]-$a[4]-$a[3]";

       FROM chart c, tax t

       WHERE (c.id = t.chart_id) AND (t.taxkey IN (SELECT taxkey_id FROM chart where accno = ?))

       ORDER BY c.accno|;

  $form->{taxaccount} = "";

    $form->{taxaccount} .= "$ptr->{accno} ";

    if (!($form->{taxaccount2} =~ /\Q$ptr->{accno}\E/)) {

      $form->{"$ptr->{accno}_rate"}        = $ptr->{rate};

  my @select_tokens = qw(id factor);

  my @where_tokens  = qw(1=1);

  my @group_tokens  = ();

  # special case transdate

  if (grep { $form->{$_} } qw(transdatefrom transdateto)) {

  # and yes, that expression is designed to hold that array of regexes only once, so the map is kinda messy, sorry about that.

  # ToDO: implement proper functional sorting

  # Nette Idee von Sven, gibt aber Probleme wenn die Artikelnummern groesser als 32bit sind. Korrekt waere es, dass Sort-Natural-Modul zu nehmen

  #$form->{sort} = join ', ', map { push @select_tokens, $_; ($table_prefix{$_} = "substring(partnumber,'[") . $_ } qw|^[:digit:]]+') [:digit:]]+')::INTEGER|

  #  if $form->{sort} eq 'partnumber';

            || $form->{quoted}  || $form->{rfq};

  my @bsooqr;

  push @select_tokens, @qsooqr_flags                                          if $bsooqr;

  push @select_tokens, @deliverydate_flags                                    if $bsooqr && $form->{l_deliverydate};

  push @select_tokens, $q_assembly_lastcost                                   if ($form->{searchitems} eq 'assembly') && $form->{l_lastcost};

  #============= build query ================#

  %table_prefix = (

     %table_prefix,

     deliverydate => 'apoe.', serialnumber => 'ioi.',

         INNER JOIN assembly a ON (p.id = a.parts_id)

         $joins{pfac}

         WHERE a.id = ?|;

      push(@assemblies, $item);

      do_statement($form, $sth, $query, conv_i($item->{id}));

        $ref->{assemblyitem} = 1;

        map { $ref->{$_} /= $ref->{factor} || 1 } qw(sellprice listprice lastcost);

        push(@assemblies, $ref);

  }

  foreach my $column (qw(make model)) {

    $where .= qq| AND p.id IN (SELECT DISTINCT parts_id FROM makemodel WHERE $column ILIKE ?|;

    push(@where_values, '%' . $form->{$column} . '%');

  }

  my $myconfig = \%main::myconfig;

  my $form     = $main::form;

  my ($where, @where_values) = $self->_create_filter_for_priceupdate();

            FROM parts p

            LEFT JOIN partsgroup pg ON (p.partsgroup_id = pg.id)

            WHERE $where)|;

    $num_updated += $result if (0 <= $result);

  }

      $operator = '*';

    }

      qq|UPDATE parts SET $column = $column $operator ?

         WHERE id IN

           (SELECT p.id

            FROM parts p

            LEFT JOIN partsgroup pg ON (p.partsgroup_id = pg.id)

            WHERE $where)|;

    $num_updated += $result if (0 <= $result);

  }

  my $dbh = $form->dbconnect($myconfig);

  my @values = ('%' . $module . '%');

  if ($form->{id}) {

    $query =

  my @values;

  my $where;

  if ($form->{language_values} ne "") {

    $query =

  while (1) {

    do_statement($form, $sth, $query, $accno_id);

    last unless ($ref && $ref->{"is_valid"} &&

                 !grep({ $_ == $ref->{"new_chart_id"} } @visited_accno_ids));

    $accno_id = $ref->{"new_chart_id"};