projekt kivitendo

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

  # connect to db

  my $sth;

  $form->{"unit_changeable"} = $form->{orphaned};

  $main::lxdebug->leave_sub();

}

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

  # get pricegroups

  my $query = qq|SELECT id, pricegroup FROM pricegroup ORDER BY lower(pricegroup)|;

  #correct rows

  $form->{price_rows} = $i - 1;

  $main::lxdebug->leave_sub();

  return $pricegroups;

  my ($query, $sth);

  # get buchungsgruppen

  $query = qq|SELECT id, description FROM buchungsgruppen ORDER BY sortkey|;

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

  # connect to database

  my $where = qq|NOT p.obsolete|;

  my @values;

  $form->{assembly_items} = selectall_hashref_query($form, $dbh, $query, @values);

  $main::lxdebug->leave_sub();

}

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

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

  # connect to database, turn off AutoCommit

  my %columns = ( "assembly" => "id", "parts" => "id" );

  # commit

  my $rc = $dbh->commit;

  $main::lxdebug->leave_sub();

  }

  # connect to database

  my $query =

    qq|SELECT p.id, p.partnumber, p.description, p.sellprice,

       WHERE $where|;

  $form->{item_list} = selectall_hashref_query($form, $dbh, $query, @values);

  $main::lxdebug->leave_sub();

}

  my $num_updated = 0;

  # connect to database

  for my $column (qw(sellprice listprice)) {

    next if ($form->{$column} eq "");

  $sth_multiply->finish();

  my $rc= $dbh->commit;

  $main::lxdebug->leave_sub();

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

  # connect to database

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

  my $query;

    ($form->{priceupdate}) = selectrow_query($form, $dbh, qq|SELECT current_date|);

  }

  $main::lxdebug->leave_sub();

}

  $main::lxdebug->enter_sub();

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

  my $order = qq| p.partnumber|;

  my $where = qq|1 = 1|;

  my @values;

  }    #while

  $form->{rows} = $j;

  $sth->finish;

  $main::lxdebug->leave_sub();

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

  # connect to database

  my @values;

  my $where;

  my $languages = selectall_hashref_query($form, $dbh, $query, @values);

  $main::lxdebug->leave_sub();

  return $languages;