projekt kivitendo

  my %accnos;

  map { ($accnos{$_}) = split(m/--/, $form->{$_}) } qw(inventory_accno income_accno expense_accno fxgain_accno fxloss_accno ar_paid_accno);

  # these defaults are database wide

  my $query =

        assemblynumber     = ?,

        sdonumber          = ?,

        pdonumber          = ?,

        businessnumber     = ?,

        weightunit         = ?,

        language_id        = ?|;

                $form->{articlenumber},   $form->{servicenumber},

                $form->{assemblynumber},

                $form->{sdonumber},       $form->{pdonumber},

                $form->{businessnumber},  $form->{weightunit},

                conv_i($form->{language_id}));

  do_query($form, $dbh, $query, @values);

  $dbh->commit();

  $main::lxdebug->leave_sub();

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

  # update name

  my $query = qq|UPDATE employee SET name = ? WHERE login = ?|;

  my $rc = $dbh->commit();

  $form->{businessnumber} =  $businessnumber;

  $myconfig = User->new(login => $form->{login});

  my $exchangerate = 0;

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

  ($null, $form->{department_id}) = split(/--/, $form->{department});

    $query = qq|UPDATE ap SET

                invnumber = ?, transdate = ?, ordnumber = ?, vendor_id = ?, taxincluded = ?,

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

                globalproject_id = ?, direct_debit = ?

               WHERE id = ?|;

    @values = ($form->{invnumber}, conv_date($form->{transdate}),

  $form->{exchangerate}    = $form->format_amount($myconfig, $form->{exchangerate});

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

  # Get the AP accno.

  $query =

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

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

  # set exchangerate

  $form->{exchangerate} = ($form->{currency} eq $form->{defaultcurrency}) ? 1 :

    } else {

      $query = qq|SELECT nextval('glid')|;

      ($form->{id}) = selectrow_query($form, $dbh, $query);

      $form->{invnumber} = $form->update_defaults($myconfig, "invnumber", $dbh) unless $form->{invnumber};

    }

  }

      qq|UPDATE ar set

           invnumber = ?, ordnumber = ?, transdate = ?, customer_id = ?,

           taxincluded = ?, amount = ?, duedate = ?, paid = ?,

           employee_id = ?, storno = ?, storno_id = ?, globalproject_id = ?,

           direct_debit = ?

         WHERE id = ?|;

    my @values = ($form->{invnumber}, $form->{ordnumber}, conv_date($form->{transdate}), conv_i($form->{customer_id}), $form->{taxincluded} ? 't' : 'f', $form->{amount},

                  conv_i($form->{employee_id}), $form->{storno} ? 't' : 'f', $form->{storno_id},

                  conv_i($form->{globalproject_id}), $form->{direct_debit} ? 't' : 'f', conv_i($form->{id}));

    do_query($form, $dbh, $query, @values);

  $form->{exchangerate}    = $form->format_amount($myconfig, $form->{exchangerate});

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

  # Get the AR accno (which is normally done by Form::create_links()).

  $query =

  }

  $sth->finish;

  $dbh->disconnect;

  my $arap = $form->{arap} eq "ar" ? "ar" : "ap";

  my $query =

     qq|FROM $arap a | .

     qq|ORDER BY a.id|;

  my $sth = prepare_execute_query($form, $dbh, $query,

                                  conv_i($form->{"${vc}_id"}),

    SELECT COUNT(*)

    FROM $arap

    WHERE (${vc}_id = ?)

      AND (amount <> paid)

SQL

  ($form->{openinvoices_other_currencies}) = selectfirst_array_query($form, $dbh, $query, conv_i($form->{"${vc}_id"}), "$form->{currency}");

        qq|SELECT $buysell | .

        qq|FROM exchangerate e | .

        qq|JOIN ${arap} a ON (a.transdate = e.transdate) | .

      my ($exchangerate) =

        selectrow_query($form, $dbh, $query,

                        $form->{currency}, $form->{"id_$i"});

  my $ref = $sth->fetchrow_hashref("NAME_lc");

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

  if ( $form->{salesman_id} ) {

    my $query =

      qq|SELECT ct.name AS salesman | .

    qq|user_password = ?, | .

    qq|c_vendor_id = ?, | .

    qq|klass = ?, | .

    qq|taxincluded_checked = ? | .

    qq|WHERE id = ?|;

  my @values = (

    $form->{user_password},

    $form->{c_vendor_id},

    conv_i($form->{klass}),

    $form->{taxincluded_checked} ne '' ? $form->{taxincluded_checked} : undef,

    $form->{id}

    );

    qq|  username = ?, | .

    qq|  user_password = ?, | .

    qq|  v_customer_id = ?, | .

    qq|WHERE id = ?|;

  my @values = (

    $form->{vendornumber},

    $form->{username},

    $form->{user_password},

    $form->{v_customer_id},

    $form->{id}

    );

  do_query($form, $dbh, $query, @values);

         -- duedate:

         (SELECT duedate FROM dunning WHERE dunning_id = ? LIMIT 1),

         'f',                   -- invoice

         ?,                     -- notes

         -- employee_id:

         (SELECT id FROM employee WHERE login = ?)

         ar.transdate,       ar.duedate,      ar.customer_id,

         ar.invnumber,       ar.ordnumber,    ar.cp_id,

         ar.amount,          ar.netamount,    ar.paid,

         ar.amount - ar.paid AS open_amount,

         ar.amount - ar.paid + da.fee + da.interest AS linetotal

         shippingpoint = ?, shipvia = ?, notes = ?, intnotes = ?, closed = ?,

         delivered = ?, department_id = ?, language_id = ?, shipto_id = ?,

         globalproject_id = ?, employee_id = ?, salesman_id = ?, cp_id = ?, transaction_description = ?,

       WHERE id = ?|;

  @values = ($form->{donumber}, $form->{ordnumber},

         d.description AS department, dord.language_id,

         dord.shipto_id,

         dord.globalproject_id, dord.delivered, dord.transaction_description,

       FROM delivery_orders dord

       JOIN ${vc} cv ON (dord.${vc}_id = cv.id)

       LEFT JOIN employee e ON (dord.employee_id = e.id)

  }

  $sth->finish();

  $form->{donumber_array} =~ s/\s*$//g;

  $form->{saved_donumber} = $form->{donumber};

    $main::lxdebug->leave_sub();

    return;

  }

  if ($curr eq $defaultcurrency) {

    $main::lxdebug->leave_sub();

  }

  $query = qq|SELECT e.curr FROM exchangerate e

                 FOR UPDATE|;

  my $sth = prepare_execute_query($self, $dbh, $query, $curr, $transdate);

  if ($sth->fetchrow_array) {

    $query = qq|UPDATE exchangerate

                SET $set

                AND transdate = ?|;

  } else {

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

  }

  $sth->finish;

  do_query($self, $dbh, $query, $curr, $transdate);

    return 1;

  }

    $main::lxdebug->leave_sub();

    return 1;

  }

  $query = qq|SELECT e.$fld FROM exchangerate e

  my ($exchangerate) = selectrow_query($self, $dbh, $query, $curr, $transdate);

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

  my $query = qq|SELECT e.$fld FROM exchangerate e

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

  my $self     = shift;

  my $myconfig = shift || \%::myconfig;

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

  $main::lxdebug->leave_sub();

  $main::lxdebug->enter_sub();

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

  $main::lxdebug->leave_sub();

}

sub set_payment_options {

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

  $main::lxdebug->leave_sub();

}

    $query =

      qq|SELECT

           a.cp_id, a.invnumber, a.transdate, a.${table}_id, a.datepaid,

           a.intnotes, a.department_id, a.amount AS oldinvtotal,

           a.paid AS oldtotalpaid, a.employee_id, a.gldate, a.type,

           a.globalproject_id, ${extra_columns}

      $self->{$key} = $ref->{$key};

    }

    my $transdate = "current_date";

    if ($self->{transdate}) {

      $transdate = $dbh->quote($self->{transdate});

    }

    $sth->finish;

    $query =

      qq|SELECT

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

           (SELECT c.accno FROM chart c WHERE d.fxloss_accno_id = c.id) AS fxloss_accno

         FROM defaults d|;

    # get date

    $query =

       qq|SELECT

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

            (SELECT c.accno FROM chart c WHERE d.fxloss_accno_id = c.id) AS fxloss_accno

          FROM defaults d|;

    if ($self->{"$self->{vc}_id"}) {

      # only setup currency

    } else {

  my ($arap, $where);

  $table         = $table eq "customer" ? "customer" : "vendor";

                    "a.department_id"         => "department_id",

                    "d.description"           => "department",

                    "ct.name"                 => $table,

                    "current_date + ct.terms" => "duedate",

    );

  if ($self->{type} =~ /delivery_order/) {

    $arap  = 'delivery_orders';

  } elsif ($self->{type} =~ /_order/) {

    $arap  = 'oe';

                        FROM $arap a

                        LEFT JOIN $table     ct ON (a.${table}_id = ct.id)

                        LEFT JOIN department d  ON (a.department_id = d.id)

                        WHERE a.id = ?|;

  my $ref          = selectfirst_hashref_query($self, $dbh, $query, $trans_id);

  map { $self->{$_} = $ref->{$_} } values %column_map;

  $main::lxdebug->leave_sub();

}

  # 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',

  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

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

  if ($form->{delivery_customer_id}) {

    $query =

      qq|SELECT *, notes as customernotes

  }

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

  # Seit neuestem wird die department_id schon übergeben UND $form->department nicht mehr

  # korrekt zusammengebaut. Sehr wahrscheinlich beim Umstieg auf T8 kaputt gegangen

  # Ich lass den Code von 2005 erstmal noch stehen ;-) jb 03-2011

      $query = qq|SELECT nextval('glid')|;

      ($form->{"id"}) = selectrow_query($form, $dbh, $query);

      if (!$form->{invnumber}) {

        $form->{invnumber} =

  my ($netamount, $invoicediff) = (0, 0);

  my ($amount, $linetotal, $lastincomeaccno);

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

    $form->{exchangerate} = 1;

  } else {

                amount      = ?, netamount     = ?, paid          = ?,

                duedate     = ?, deliverydate  = ?, invoice       = ?, shippingpoint = ?,

                shipvia     = ?, terms         = ?, notes         = ?, intnotes      = ?,

                type        = ?, language_id   = ?, taxzone_id    = ?, shipto_id     = ?,

                employee_id = ?, salesman_id   = ?, storno_id     = ?, storno        = ?,

                cp_id       = ?, marge_total   = ?, marge_percent = ?,

         (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,

         ${query_transdate}

       FROM defaults d|;

           a.orddate, a.quodate, a.globalproject_id,

           a.transdate AS invdate, a.deliverydate, a.paid, a.storno, a.gldate,

           a.shippingpoint, a.shipvia, a.terms, a.notes, a.intnotes, a.taxzone_id,

           a.employee_id, a.salesman_id, a.payment_id,

           a.language_id, a.delivery_customer_id, a.delivery_vendor_id, a.type,

           a.transaction_description, a.donumber, a.invnumber_for_credit_note,

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

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

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

    # get shipto

         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

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

  $query =

    qq|SELECT sum(amount - paid) AS dunning_amount

    $query = qq|SELECT nextval('id')|;

    ($form->{id}) = selectrow_query($form, $dbh, $query);

    do_query($form, $dbh, $query, $form->{id}, $form->{employee_id});

  }

    qq|UPDATE oe SET

         ordnumber = ?, quonumber = ?, cusordnumber = ?, transdate = ?, vendor_id = ?,

         customer_id = ?, amount = ?, netamount = ?, reqdate = ?, taxincluded = ?,

         delivered = ?, proforma = ?, quotation = ?, department_id = ?, language_id = ?,

         taxzone_id = ?, shipto_id = ?, payment_id = ?, delivery_vendor_id = ?, delivery_customer_id = ?,

         globalproject_id = ?, employee_id = ?, salesman_id = ?, cp_id = ?, transaction_description = ?, marge_total = ?, marge_percent = ?

             $amount, $netamount, conv_date($reqdate),

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

             $form->{shipvia}, $form->{notes}, $form->{intnotes},

             $form->{delivered} ? "t" : "f", $form->{proforma} ? 't' : 'f',

             $quotation, conv_i($form->{department_id}),

             conv_i($form->{language_id}), conv_i($form->{taxzone_id}),

                     (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,

              $query_add

              FROM defaults d|;

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

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

  # set reqdate if this is an invoice->order conversion. If someone knows a better check to ensure

  # we come from invoices, feel free.

    $query =

      qq|SELECT o.cp_id, o.ordnumber, o.transdate, o.reqdate,

           o.taxincluded, o.shippingpoint, o.shipvia, o.notes, o.intnotes,

           o.${vc}_id, cv.name AS ${vc}, o.amount AS invtotal,

           o.closed, o.reqdate, o.quonumber, o.department_id, o.cusordnumber,

           d.description AS department, o.payment_id, o.language_id, o.taxzone_id,

    if ($ref) {

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

      $form->{saved_xyznumber} = $form->{$form->{type} =~ /_quotation$/ ? "quonumber" : "ordnumber"};

      # set all entries for multiple ids blank that yield different information

  # geben und hier reinparsen, oder besser multibox oder html auslagern?

  # Antwort: form->currency wird mit oldcurrency oder curr[0] überschrieben

  # Wofür macht das Sinn?

  $form->{defaultcurrency} = $form->{currency} = $form->{oldcurrency} =

  # Entsprechend präventiv die Auswahlliste für Währungen

  # auch mit value= zusammenbauen (s.a. oben bugfix 1771)

  IC->create_links("IC", \%myconfig, \%$form);

  # currencies

  # parts and assemblies have the same links

  my $item = $form->{item};

    $form->{currency} = $currency;

  }

  map { $form->{selectcurrency} .= "<option>$_\n" } @curr;

  $form->{oldvendor} = "$form->{vendor}--$form->{vendor_id}";

     <input type="hidden" name="rowcount" value="[% CURRENCIES.size %]">

     <th align="right">[% 'Currencies' | $T8 %]</th>

     <td colspan="3">[% FOREACH row = CURRENCIES %]<input name="curr_[% loop.count %]" size="3" value="[% HTML.escape(row.curr) %]">

                     [% END %]

                     <input name="new_curr" size="3" value="">

     </td>