projekt kivitendo

  # connect to database, turn off autocommit

  my $dbh = $provided_dbh ? $provided_dbh : $form->dbconnect_noauto($myconfig);

  $form->{defaultcurrency} = $form->get_default_currency($myconfig);

  my $ic_cvar_configs = CVar->get_configs(module => 'IC',

                                          dbh    => $dbh);

  my $all_units = AM->retrieve_units($myconfig, $form);

  if (!$payments_only) {

    if ($form->{id}) {

      &reverse_invoice($dbh, $form);

    } else {

      ($form->{id}) = selectrow_query($form, $dbh, qq|SELECT nextval('glid')|);

    }

  }

  if ($form->{currency} eq $defaultcurrency) {

    $form->{exchangerate} = 1;

  } else {

                orddate      = ?, quodate     = ?, vendor_id     = ?, amount      = ?,

                netamount    = ?, paid        = ?, duedate       = ?,

                invoice      = ?, taxzone_id  = ?, notes         = ?, taxincluded = ?,

                cp_id        = ?, employee_id = ?, department_id = ?,

                globalproject_id = ?, direct_debit = ?

              WHERE id = ?|;

      conv_date($form->{orddate}), conv_date($form->{quodate}),     conv_i($form->{vendor_id}),               $amount,

                $netamount,                  $form->{paid},      conv_date($form->{duedate}),

            '1',                             $taxzone_id,                  $form->{notes},          $form->{taxincluded} ? 't' : 'f',

         conv_i($form->{cp_id}),      conv_i($form->{employee_id}), conv_i($form->{department_id}),

         conv_i($form->{globalproject_id}),

                $form->{direct_debit} ? 't' : 'f',

               (SELECT c.accno FROM chart c WHERE d.income_accno_id = c.id)    AS income_accno,

               (SELECT c.accno FROM chart c WHERE d.expense_accno_id = c.id)   AS expense_accno,

               (SELECT c.accno FROM chart c WHERE d.fxgain_accno_id = c.id)    AS fxgain_accno,

               $q_invdate

               FROM defaults d|;

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

  $query = qq|SELECT cp_id, invnumber, transdate AS invdate, duedate,

                orddate, quodate, globalproject_id,

                ordnumber, quonumber, paid, taxincluded, notes, taxzone_id, storno, gldate,

              FROM ap

              WHERE id = ?|;

  $ref = selectfirst_hashref_query($form, $dbh, $query, conv_i($form->{id}));

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

  $form->{exchangerate}  = $form->get_exchangerate($dbh, $form->{currency}, $form->{invdate}, "sell");

  # get shipto

         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

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

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

  $params->{creditremaining} = $params->{creditlimit};

  # 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

  }

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

  my $custom_variables = CVar->get_custom_variables('dbh'      => $dbh,

                                                    'module'   => 'CT',