projekt kivitendo

use Data::Dumper;

use SL::DBUtils;

sub get_account {

  $main::lxdebug->enter_sub();

package CP;

use SL::DBUtils;

sub new {

  $main::lxdebug->enter_sub();

package SL::Chart;

use SL::Form;

use SL::DBUtils;

sub list {

  $main::lxdebug->enter_sub();

use SL::RecordLinks;

use SL::IC;

sub transactions {

  $main::lxdebug->enter_sub();

  my $vc = $form->{vc} eq "customer" ? "customer" : "vendor";

    qq|SELECT dord.id, dord.donumber, dord.ordnumber, dord.transdate,

         ct.name, dord.${vc}_id, dord.globalproject_id,

         dord.closed, dord.delivered, dord.shippingpoint, dord.shipvia,

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

    $price_factor = $price_factors{ $form->{"price_factor_id_$i"} } || 1;

    $reqdate = ($form->{"reqdate_$i"}) ? $form->{"reqdate_$i"} : undef;

  my $spoolfile;

  my @spoolfiles = ();

  while (($spoolfile) = $sth->fetchrow_array) {

    push @spoolfiles, $spoolfile;

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

  delete $form->{"${vc}_id"};

    if ($form->{"${vc}_id"} && ($ref->{"${vc}_id"} != $form->{"${vc}_id"})) {

      $sth->finish();

      $main::lxdebug->leave_sub();

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

    $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, conv_i($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};

                    JOIN parts p ON (a.parts_id = p.id)

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

                    WHERE a.bom = '1'

  my $h_pg     = prepare_query($form, $dbh, $q_pg);

  my $q_bin_wh = qq|SELECT (SELECT description FROM bin       WHERE id = ?) AS bin,

       si_runningnumber si_number si_description

       si_warehouse si_bin si_chargenumber si_qty si_unit);

  push @arrays, map { "ic_cvar_$_->{name}" } @{ $ic_cvar_configs };

  my $sameitem = "";

  foreach $item (sort { $a->[1] cmp $b->[1] } @partsgroup) {

    $i = $item->[0];

      do_statement($form, $h_pg, $q_pg, conv_i($form->{"id_$i"}));

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

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

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

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

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

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

  my @parts_ids = 'ARRAY' eq ref $params{parts_id} ? @{ $params{parts_id} } : ($params{parts_id});

  my $form      = $main::form;

  my $query     =

    qq|SELECT i.warehouse_id, i.bin_id, i.chargenumber, SUM(qty) AS qty, i.parts_id,

use SL::CVar;

use SL::DBUtils;

sub get_part {

  $main::lxdebug->enter_sub();

package IO;

use SL::DBUtils;

sub retrieve_partunits {

  $main::lxdebug->enter_sub();

use SL::Common;

use SL::DBUtils;

sub save {

  $main::lxdebug->enter_sub();

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

  $main::lxdebug->leave_sub();

  $dbh->commit() unless ($params{dbh});

  $main::lxdebug->leave_sub();

}

1;

package Taxkeys;

use Memoize;

use SL::DBUtils;

sub new {

  my $type = shift;