projekt kivitendo

  if ($amount eq "") {

    $amount = 0;

  }

  # Hey watch out! The amount can be an exponential term like 1.13686837721616e-13

  my $neg = ($amount =~ s/^-//);

  my $exp = ($amount =~ m/[e]/) ? 1 : 0;

  if (defined($places) && ($places ne '')) {

    if (not $exp) {

      if ($places < 0) {

          open(OUT, $self->{OUT})

            or $self->error($self->cleanup . "$self->{OUT} : $!");

        } else {

                                       ? $self->{attachment_filename}

                                       : $self->generate_attachment_filename();

  $main::lxdebug->enter_sub();

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

  # connect to database

  my $dbh =

    DBI->connect($myconfig->{dbconnect}, $myconfig->{dbuser},

  if ($curr eq '') {

    $main::lxdebug->leave_sub();

    return;

  $query = qq|SELECT curr FROM defaults|;

  my ($currency) = selectrow_query($self, $dbh, $query);

                SET $set

                WHERE curr = ?

                AND transdate = ?|;

  } else {

    $query = qq|INSERT INTO exchangerate (curr, buy, sell, transdate)

                VALUES (?, $buy, $sell, ?)|;

                       shiptophone = ? AND

                       shiptofax = ? AND

                       shiptoemail = ? AND

                       trans_id = ?|;

      my $insert_check = selectfirst_hashref_query($self, $dbh, $query, @values, $module, $id);

      if(!$insert_check){

  $key = "all_currencies" unless ($key);

  my $query = qq|SELECT curr AS currency FROM defaults|;

  $self->{$key} = [split(/\:/ , selectfirst_hashref_query($self, $dbh, $query)->{currency})];

  $main::lxdebug->leave_sub();

  $key = "all_payments" unless ($key);

  my $query = qq|SELECT * FROM payment_terms ORDER BY id|;

  $self->{$key} = selectall_hashref_query($self, $dbh, $query);

  $main::lxdebug->leave_sub();

  if ($params{"employees"}) {

    $self->_get_employees($dbh, "all_employees", $params{"employees"});

  }

  if ($params{"salesmen"}) {

    $self->_get_employees($dbh, "all_salesmen", $params{"salesmen"});

  }

  if ($params{"dunning_configs"}) {

    $self->_get_dunning_configs($dbh, $params{"dunning_configs"});

  }

  if($params{"currencies"}) {

    $self->_get_currencies($dbh, $params{"currencies"});

  }

  if($params{"customers"}) {

    if (ref $params{"customers"} eq 'HASH') {

      $self->_get_customers($dbh, $params{"customers"}{key}, $params{"customers"}{limit});

      $self->_get_customers($dbh, $params{"customers"});

    }

  }

  if($params{"vendors"}) {

    if (ref $params{"vendors"} eq 'HASH') {

      $self->_get_vendors($dbh, $params{"vendors"}{key}, $params{"vendors"}{limit});

      $self->_get_vendors($dbh, $params{"vendors"});

    }

  }

  if($params{"payments"}) {

    $self->_get_payments($dbh, $params{"payments"});

  }

      qq|WHERE trans_id = | . $trans_id

      . $restriction . qq| |

      . $order;

    my $sth = $dbh->prepare($query) || $self->dberror($query);

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

      $hash_ref->{snumbers} =~ s/^.+_(.*)$/$1/g;

      $tempArray[$i++] = $hash_ref;

    }

      if ($i > 0 && $tempArray[0] ne "");

  }

  $main::lxdebug->leave_sub();