projekt kivitendo

    $form->{exchangerate} =

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

      ($form->{"delivery_${vc}_string"})

        = selectrow_query($form, $dbh, qq|SELECT name FROM customer WHERE id = ?|, $id);

    $query =

      qq|SELECT printed, emailed, spoolfile, formname

         FROM status

         WHERE trans_id = ?|;

      $form->{queued} .= "$ref->{formname} $ref->{spoolfile} "

        if $ref->{spoolfile};

    my $transdate =

      $form->{deliverydate} ? $dbh->quote($form->{deliverydate}) :

      $form->{invdate}      ? $dbh->quote($form->{invdate}) :

                              "current_date";

           c1.accno AS inventory_accno,

           c1.new_chart_id AS inventory_new_chart,

           date($transdate) - c1.valid_from AS inventory_valid,

           c2.accno AS income_accno,

           c2.new_chart_id AS income_new_chart,

           date($transdate) - c2.valid_from as income_valid,

           c3.accno AS expense_accno,

           c3.new_chart_id AS expense_new_chart,

           date($transdate) - c3.valid_from AS expense_valid,

           i.description, i.longdescription, i.qty, i.fxsellprice AS sellprice,

           i.discount, i.parts_id AS id, i.unit, i.deliverydate,

           i.project_id, i.serialnumber, i.id AS invoice_pos, i.pricegroup_id,

           i.ordnumber, i.transdate, i.cusordnumber, i.subtotal, i.lastcost,

           p.partnumber, p.assembly, p.bin, p.notes AS partnotes,

           p.inventory_accno_id AS part_inventory_accno_id, p.formel,

           pr.projectnumber,

           pg.partsgroup,

           prg.pricegroup

         LEFT JOIN chart c1 ON

           ((SELECT inventory_accno_id

             FROM buchungsgruppen

             WHERE id = p.buchungsgruppen_id) = c1.id)

         LEFT JOIN chart c2 ON

           ((SELECT income_accno_id_${taxzone_id}

             FROM buchungsgruppen

             WHERE id=p.buchungsgruppen_id) = c2.id)

         LEFT JOIN chart c3 ON

           ((SELECT expense_accno_id_${taxzone_id}

             FROM buchungsgruppen

             WHERE id = p.buchungsgruppen_id) = c3.id)

         WHERE (i.trans_id = ?)

           AND NOT (i.assemblyitem = '1')

         ORDER BY i.id|;

      if (!$ref->{"part_inventory_accno_id"}) {

        map({ delete($ref->{$_}); } qw(inventory_accno inventory_new_chart inventory_valid));

      }

          my $query =

            qq|SELECT accno, new_chart_id, date($transdate) - valid_from

               FROM chart

               WHERE id = ?|;

          ($ref->{"${type}_accno"},

           $ref->{"${type}_new_chart"},

           $ref->{"${type}_valid"})

            = selectrow_query($form, $dbh, $query, $ref->{"${type}_new_chart"});

      my $accno_id =

        ($form->{vc} eq "customer") ? $ref->{income_accno} : $ref->{expense_accno};

        qq|SELECT c.accno, t.taxdescription, t.rate, t.taxnumber

           FROM tax t

             (SELECT tk.tax_id

              FROM taxkeys tk

              WHERE tk.chart_id = (SELECT id FROM chart WHERE accno = ?)

              ORDER BY startdate DESC

              LIMIT 1)

        #    if ($customertax{$ref->{accno}}) {

        $query =

          qq|SELECT l.licensenumber, l.id AS licenseid

             FROM license l, licenseinvoice li

             WHERE l.id = li.license_id AND li.trans_id = ?|;

        my ($licensenumber, $licenseid)

          = selectrow_query($form, $dbh, $query, conv_i($ref->{invoice_pos}));