projekt kivitendo

  for my $i (1..$form->{rowcount}) {

    if ($form->{"curr_$i"} ne $form->{"old_curr_$i"}) {

    }

  }

  if (length($form->{new_curr}) > 0) {

  }

  $dbh->commit();

  $sth->finish;

  #Get currencies:

  #Which of them is the default currency?

  $query = qq|SELECT name AS defaultcurrency FROM currencies WHERE id = (SELECT currency_id FROM defaults LIMIT 1);|;

  $dbh->disconnect;

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

  my @currencies =();

  $main::lxdebug->leave_sub();

         v.id AS vendor_id, v.name AS vendor, v.discount as vendor_discount,

         v.creditlimit, v.terms, v.notes AS intnotes,

         v.email, v.cc, v.bcc, v.language_id, v.payment_id,

         $duedate + COALESCE(pt.terms_netto, 0) AS duedate,

         b.description AS business

       FROM vendor v

       LEFT JOIN business b       ON (b.id = v.business_id)

       LEFT JOIN payment_terms pt ON (v.payment_id = pt.id)

       WHERE 1=1 $where|;

  my $ref = selectfirst_hashref_query($form, $dbh, $query, @values);

  map { $params->{$_} = $ref->{$_} } keys %$ref;

  # fax and phone and email as vendor*

  my $query =

    qq|SELECT ct.*, cp.*, ct.notes as vendornotes, phone as vendorphone, fax as vendorfax, email as vendoremail,

       FROM vendor ct

       LEFT JOIN contacts cp ON (ct.id = cp.cp_cv_id)

       WHERE (ct.id = ?) $contact

       ORDER BY cp.cp_id

       LIMIT 1|;

  my $query =

    qq|SELECT ct.*, cp.*, ct.notes as customernotes,

         ct.phone AS customerphone, ct.fax AS customerfax, ct.email AS customeremail,

       FROM customer ct

       LEFT JOIN contacts cp on ct.id = cp.cp_cv_id

       WHERE (ct.id = ?) $where

       ORDER BY cp.cp_id

       LIMIT 1|;

         c.id AS customer_id, c.name AS customer, c.discount as customer_discount, c.creditlimit, c.terms,

         c.email, c.cc, c.bcc, c.language_id, c.payment_id,

         c.street, c.zipcode, c.city, c.country,

         c.taxincluded_checked, c.direct_debit,

         $duedate + COALESCE(pt.terms_netto, 0) AS duedate,

         b.discount AS tradediscount, b.description AS business

       FROM customer c

       LEFT JOIN business b ON (b.id = c.business_id)

       LEFT JOIN payment_terms pt ON ($payment_id (c.payment_id = pt.id))

       WHERE c.id = ?|;

  push @values, $cid;

  $ref = selectfirst_hashref_query($form, $dbh, $query, @values);