projekt kivitendo

#====================================================================

# LX-Office ERP

# Copyright (C) 2004

# Based on SQL-Ledger Version 2.1.9

# Web http://www.lx-office.org

#

#=====================================================================

# SQL-Ledger Accounting

# Copyright (C) 1999-2003

#

#  Author: Dieter Simader

#   Email: dsimader@sql-ledger.org

#     Web: http://www.sql-ledger.org

#

#  Contributors:

#

# This program is free software; you can redistribute it and/or modify

# it under the terms of the GNU General Public License as published by

# the Free Software Foundation; either version 2 of the License, or

# (at your option) any later version.

#

# This program is distributed in the hope that it will be useful,

# but WITHOUT ANY WARRANTY; without even the implied warranty of

# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the

# GNU General Public License for more details.

# You should have received a copy of the GNU General Public License

# along with this program; if not, write to the Free Software

# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.

#======================================================================

#

# Delivery Order entry module

#======================================================================

package DO;

use List::Util qw(max);

use YAML;

use SL::AM;

use SL::Common;

use SL::DBUtils;

sub transactions {

  $main::lxdebug->enter_sub();

  my ($self)   = @_;

  my $myconfig = \%main::myconfig;

  my $form     = $main::form;

  # connect to database

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

  my (@where, @values, $where);

  my $vc = $form->{vc} eq "customer" ? "customer" : "vendor";

  $query =

    qq|SELECT dord.id, dord.donumber, dord.ordnumber, dord.oreqnumber, dord.transdate,

         ct.name, dord.${vc}_id, dord.globalproject_id,

         dord.closed, dord.delivered, dord.shippingpoint, dord.shipvia,

         dord.transaction_description,

         pr.projectnumber AS globalprojectnumber,

         e.name AS employee,

         sm.name AS salesman,

         oreq.id AS oreq_id,

         oe.id AS oe_id

       FROM delivery_orders dord

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

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

       LEFT JOIN employee sm ON (dord.salesman_id = sm.id)

       LEFT JOIN project pr ON (dord.globalproject_id = pr.id)

       LEFT JOIN order_request oreq ON (dord.oreqnumber = oreq.oreqnumber)

       LEFT JOIN oe ON ((dord.ordnumber = oe.ordnumber) AND NOT COALESCE(oe.quotation, FALSE))|;

  push @where, ($form->{type} eq 'sales_delivery_order' ? '' : 'NOT ') . qq|COALESCE(dord.is_sales, FALSE)|;

  my $department_id = (split /--/, $form->{department})[1];

  if ($department_id) {

    push @where,  qq|dord.department_id = ?|;

    push @values, conv_i($department_id);

  }

  if ($form->{project_id}) {

    $query .=

      qq|(dord.globalproject_id = ?) OR EXISTS

          (SELECT * FROM delivery_order_items doi

           WHERE (doi.project_id = ?) AND (oi.delivery_order_id = dord.id))|;

    push @values, conv_i($form->{project_id}), conv_i($form->{project_id});

  }

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

    push @where,  qq|dord.${vc}_id = ?|;

    push @values, $form->{"${vc}_id"};

  } elsif ($form->{$vc}) {

    push @where,  qq|ct.name ILIKE ?|;

    push @values, '%' . $form->{$vc} . '%';

  }

  foreach my $item (qw(employee_id salesman_id)) {

    next unless ($form->{$item});

    push @where, "dord.$item = ?";

    push @values, conv_i($form->{$item});

  }

  foreach my $item (qw(donumber ordnumber cusordnumber transaction_description)) {

    next unless ($form->{$item});

    push @where,  qq|dord.$item ILIKE ?|;

    push @values, '%' . $form->{$item} . '%';

  }

  if (!($form->{open} && $form->{closed})) {

    push @where, ($form->{open} ? "NOT " : "") . "COALESCE(dord.closed, FALSE)";

  }

  if (($form->{notdelivered} || $form->{delivered}) &&

      ($form->{notdelivered} ne $form->{delivered})) {

    push @where, ($form->{delivered} ? "" : "NOT ") . "COALESCE(dord.delivered, FALSE)";

  }

  if($form->{transdatefrom}) {

    push @where,  qq|dord.transdate >= ?|;

    push @values, conv_date($form->{transdatefrom});

  }

  if($form->{transdateto}) {

    push @where,  qq|dord.transdate <= ?|;

    push @values, conv_date($form->{transdateto});

  }

  if (@where) {

    $query .= " WHERE " . join(" AND ", map { "($_)" } @where);

  }

  my %allowed_sort_columns = (

    "transdate"               => "dord.transdate",

    "id"                      => "dord.id",

    "donumber"                => "dord.donumber",

    "ordnumber"               => "dord.ordnumber",

    "oreqnumber"              => "dord.oreqnumber",

    "name"                    => "ct.name",

    "employee"                => "e.name",

    "salesman"                => "sm.name",

    "shipvia"                 => "dord.shipvia",

    "transaction_description" => "dord.transaction_description"

  );

  my $sortoder = "dord.id";

  if ($form->{sort} && grep($form->{sort}, keys(%allowed_sort_columns))) {

    $sortorder = $allowed_sort_columns{$form->{sort}};

  }

  $query .= qq| ORDER by | . $sortorder;

  $form->{DO} = selectall_hashref_query($form, $dbh, $query, @values);

  $main::lxdebug->dump(0, "DO", $form->{DO});

  $main::lxdebug->leave_sub();

}

sub save {

  $main::lxdebug->enter_sub();

  my ($self)   = @_;

  my $myconfig = \%main::myconfig;

  my $form     = $main::form;

  # connect to database, turn off autocommit

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

  my ($query, @values, $sth, $null);

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

  $form->{all_units} = $all_units;

  $form->{donumber}    = $form->update_defaults($myconfig, $form->{type} eq 'sales_delivery_order' ? 'sdonumber' : 'pdonumber', $dbh) unless $form->{donumber};

  $form->{employee_id} = (split /--/, $form->{employee})[1] if !$form->{employee_id};

  $form->get_employee($dbh) unless ($form->{employee_id});

  my $ml = ($form->{type} eq 'sales_delivery_order') ? 1 : -1;

  if ($form->{id}) {

    $query = qq|DELETE FROM delivery_order_items_stock WHERE delivery_order_item_id IN (SELECT id FROM delivery_order_items WHERE delivery_order_id = ?)|;

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

    $query = qq|DELETE FROM delivery_order_items WHERE delivery_order_id = ?|;

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

    $query = qq|DELETE FROM shipto WHERE trans_id = ? AND module = 'DO'|;

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

  } else {

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

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

    $query = qq|INSERT INTO delivery_orders (id, donumber, employee_id) VALUES (?, '', ?)|;

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

  }

  my $project_id;

  my $reqdate;

  $form->get_lists('price_factors' => 'ALL_PRICE_FACTORS');

  my %price_factors = map { $_->{id} => $_->{factor} } @{ $form->{ALL_PRICE_FACTORS} };

  my $price_factor;

  my %part_id_map = map { $_ => 1 } grep { $_ } map { $form->{"id_$_"} } (1 .. $form->{rowcount});

  my @part_ids    = keys %part_id_map;

  my %part_unit_map;

  if (@part_ids) {

    $query         = qq|SELECT id, unit FROM parts WHERE id IN (| . join(', ', map { '?' } @part_ids) . qq|)|;

    %part_unit_map = selectall_as_map($form, $dbh, $query, 'id', 'unit', @part_ids);

  }

  my $q_item_id = qq|SELECT nextval('delivery_order_items_id')|;

  my $h_item_id = prepare_query($form, $dbh, $q_item_id);

  my $q_item =

    qq|INSERT INTO delivery_order_items (

         id, delivery_order_id, parts_id, description, longdescription, qty, base_qty,

         sellprice, discount, unit, reqdate, project_id, serialnumber,

         ordnumber, transdate, cusordnumber,

         lastcost, price_factor_id, price_factor, marge_price_factor,

         v_partnumber, v_description)

       VALUES (?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?,

         (SELECT factor FROM price_factors WHERE id = ?), ?, ?, ?)|;

  my $h_item = prepare_query($form, $dbh, $q_item);

  my $q_item_stock =

    qq|INSERT INTO delivery_order_items_stock (delivery_order_item_id, qty, unit, warehouse_id, bin_id, chargenumber)

       VALUES (?, ?, ?, ?, ?, ?)|;

  my $h_item_stock = prepare_query($form, $dbh, $q_item_stock);

  my $in_out       = $form->{type} =~ /^sales/ ? 'out' : 'in';

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

    next if (!$form->{"id_$i"});

    $form->{"qty_$i"} = $form->parse_amount($myconfig, $form->{"qty_$i"});

    my $item_unit = $part_unit_map{$form->{"id_$i"}};

    my $basefactor = 1;

    if (defined($all_units->{$item_unit}->{factor}) && (($all_units->{$item_unit}->{factor} * 1) != 0)) {

      $basefactor = $all_units->{$form->{"unit_$i"}}->{factor} / $all_units->{$item_unit}->{factor};

    }

    my $baseqty = $form->{"qty_$i"} * $basefactor;

    $form->{"lastcost_$i"} *= 1;

    # set values to 0 if nothing entered

    $form->{"discount_$i"}  = $form->parse_amount($myconfig, $form->{"discount_$i"}) / 100;

    $form->{"sellprice_$i"} = $form->parse_amount($myconfig, $form->{"sellprice_$i"});

    $price_factor = $price_factors{ $form->{"price_factor_id_$i"} } || 1;

    $linetotal    = $form->round_amount($form->{"sellprice_$i"} * $form->{"qty_$i"} / $price_factor, 2);

    $reqdate = ($form->{"reqdate_$i"}) ? $form->{"reqdate_$i"} : undef;

    do_statement($form, $h_item_id, $q_item_id);

    my ($item_id) = $h_item_id->fetchrow_array();

    # save detail record in delivery_order_items table

    @values = (conv_i($item_id), conv_i($form->{id}), conv_i($form->{"id_$i"}),

               $form->{"description_$i"}, $form->{"longdescription_$i"},

               $form->{"qty_$i"}, $baseqty,

               $form->{"sellprice_$i"}, $form->{"discount_$i"},

               $form->{"unit_$i"}, conv_date($reqdate), conv_i($form->{"project_id_$i"}),

               $form->{"serialnumber_$i"},

               $form->{"ordnumber_$i"}, conv_date($form->{"transdate_$i"}),

               $form->{"cusordnumber_$i"},

               $form->{"lastcost_$i"},

               conv_i($form->{"price_factor_id_$i"}), conv_i($form->{"price_factor_id_$i"}),

               conv_i($form->{"marge_price_factor_$i"}),

               $form->{"v_partnumber_$i"}, $form->{"v_description_$i"});

    do_statement($form, $h_item, $q_item, @values);

    my $stock_info = DO->unpack_stock_information('packed' => $form->{"stock_${in_out}_$i"});

    foreach my $sinfo (@{ $stock_info }) {

      @values = ($item_id, $sinfo->{qty}, $sinfo->{unit}, conv_i($sinfo->{warehouse_id}),

                 conv_i($sinfo->{bin_id}), $sinfo->{chargenumber});

      do_statement($form, $h_item_stock, $q_item_stock, @values);

    }

  }

  $h_item_id->finish();

  $h_item->finish();

  $h_item_stock->finish();

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

  # save DO record

  $query =

    qq|UPDATE delivery_orders SET

         donumber = ?, ordnumber = ?, cusordnumber = ?, oreqnumber = ?, transdate = ?, vendor_id = ?,

         customer_id = ?, reqdate = ?,

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

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

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

         is_sales = ?

       WHERE id = ?|;

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

             $form->{cusordnumber}, $form->{oreqnumber}, conv_date($form->{transdate}),

             conv_i($form->{vendor_id}), conv_i($form->{customer_id}),

             conv_date($reqdate), $form->{shippingpoint}, $form->{shipvia},

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

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

             conv_i($form->{department_id}), conv_i($form->{language_id}), conv_i($form->{shipto_id}),

             conv_i($form->{globalproject_id}), conv_i($form->{employee_id}),

             conv_i($form->{salesman_id}), conv_i($form->{cp_id}),

             $form->{transaction_description},

             $form->{type} =~ /^sales/ ? 't' : 'f',

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

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

  # add shipto

  $form->{name} = $form->{ $form->{vc} };

  $form->{name} =~ s/--$form->{"$form->{vc}_id"}//;

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

    $form->add_shipto($dbh, $form->{id}, "DO");

  }

  # save printed, emailed, queued

  $form->save_status($dbh);

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

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

  Common::webdav_folder($form) if ($main::webdav);

  $main::lxdebug->leave_sub();

  return $rc;

}

sub close_order {

  $main::lxdebug->enter_sub();

  my ($self)   = @_;

  my $myconfig = \%main::myconfig;

  my $form     = $main::form;

  return $main::lxdebug->leave_sub() unless ($form->{id});

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

  do_query($form, $dbh, qq|UPDATE do SET closed = TRUE where id = ?|, conv_i($form->{id}));

  $dbh->commit();

  $main::lxdebug->leave_sub();

}

sub delete {

  $main::lxdebug->enter_sub();

  my ($self)   = @_;

  my $myconfig = \%main::myconfig;

  my $form     = $main::form;

  my $spool    = $main::spool;

  # connect to database

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

  # delete spool files

  my $query = qq|SELECT s.spoolfile FROM status s WHERE s.trans_id = ?|;

  my $sth   = prepare_execute_query($form, $dbh, $query, conv_i($form->{id}));

  my $spoolfile;

  my @spoolfiles = ();

  while (($spoolfile) = $sth->fetchrow_array) {

    push @spoolfiles, $spoolfile;

  }

  $sth->finish();

  # delete-values

  @values = (conv_i($form->{id}));

  # delete status entries

  $query = qq|DELETE FROM status

              WHERE trans_id = ?|;

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

  # delete individual entries

  $query = qq|DELETE FROM delivery_order_items_stock

              WHERE delivery_order_item_id IN (

                SELECT id FROM delivery_order_items

                WHERE delivery_order_id = ?

              )|;

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

  # delete individual entries

  $query = qq|DELETE FROM delivery_order_items

              WHERE delivery_order_id = ?|;

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

  # delete DO record

  $query = qq|DELETE FROM delivery_orders

              WHERE id = ?|;

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

  $query = qq|DELETE FROM shipto

              WHERE trans_id = ? AND module = 'DO'|;

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

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

  if ($rc) {

    foreach $spoolfile (@spoolfiles) {

      unlink "$spool/$spoolfile" if $spoolfile;

    }

  }

  $main::lxdebug->leave_sub();

  return $rc;

}

sub retrieve {

  $main::lxdebug->enter_sub();

  my ($self)   = @_;

  my $myconfig = \%main::myconfig;

  my $form     = $main::form;

  # connect to database

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

  my ($query, $query_add, @values, $sth, $ref);

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

    $ref = selectfirst_hashref_query($form, $dbh, qq|SELECT current_date AS transdate, current_date AS reqdate|);

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

  }

  my $vc = $form->{vc} eq "customer" ? "customer" : "vendor";

  if ($form->{id}) {

    # retrieve order for single id

    # NOTE: this query is intended to fetch all information only ONCE.

    # so if any of these infos is important (or even different) for any item,

    # it will be killed out and then has to be fetched from the item scope query further down

    $query =

      qq|SELECT dord.cp_id, dord.donumber, dord.ordnumber, dord.oreqnumber, dord.transdate, dord.reqdate,

           dord.shippingpoint, dord.shipvia, dord.notes, dord.intnotes,

           e.name AS employee, dord.employee_id, dord.salesman_id,

           dord.${vc}_id, cv.name AS ${vc},

           dord.closed, dord.reqdate, dord.department_id, dord.cusordnumber,

           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)

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

         WHERE dord.id = ?|;

    $sth = prepare_execute_query($form, $dbh, $query, conv_i($form->{id}));

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

    $sth->finish();

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

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

    # if not given, fill transdate with current_date

    $form->{transdate} = $form->current_date($myconfig) unless $form->{transdate};

    $query = qq|SELECT s.* FROM shipto s WHERE s.trans_id = ? AND s.module = 'DO'|;

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

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

    delete($ref->{id});

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

    $sth->finish;

    # get printed, emailed and queued

    $query = qq|SELECT s.printed, s.emailed, s.spoolfile, s.formname FROM status s WHERE s.trans_id = ?|;

    $sth = prepare_execute_query($form, $dbh, $query, conv_i($form->{id}));

    while ($ref = $sth->fetchrow_hashref(NAME_lc)) {

      $form->{printed} .= "$ref->{formname} " if $ref->{printed};

      $form->{emailed} .= "$ref->{formname} " if $ref->{emailed};

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

    }

    $sth->finish;

    map { $form->{$_} =~ s/ +$//g } qw(printed emailed queued);

    my %oid = ('Pg'     => 'oid',

               'Oracle' => 'rowid');

    my $transdate = $form->{transdate} ? $dbh->quote($form->{transdate}) : "current_date";

    # retrieve individual items

    # this query looks up all information about the items

    # stuff different from the whole will not be overwritten, but saved with a suffix.

    $query =

      qq|SELECT doi.id AS delivery_order_items_id,

           p.partnumber, p.assembly, doi.description, doi.qty,

           doi.sellprice, doi.parts_id AS id, doi.unit, doi.discount, p.bin, p.notes AS partnotes,

           doi.reqdate, doi.project_id, doi.serialnumber, doi.lastcost,

           doi.ordnumber, doi.transdate, doi.cusordnumber, doi.longdescription,

           doi.price_factor_id, doi.price_factor, doi.marge_price_factor,

           doi.v_partnumber, doi.v_description,

           pr.projectnumber,

           pg.partsgroup

         FROM delivery_order_items doi

         JOIN parts p ON (doi.parts_id = p.id)

         JOIN delivery_orders dord ON (doi.delivery_order_id = dord.id)

         LEFT JOIN project pr ON (doi.project_id = pr.id)

         LEFT JOIN partsgroup pg ON (p.partsgroup_id = pg.id)

         WHERE doi.delivery_order_id = ?

         ORDER BY doi.$oid{$myconfig->{dbdriver}}|;

    $form->{form_details} = selectall_hashref_query($form, $dbh, $query, conv_i($form->{id}));

    my $in_out = $form->{type} =~ /^sales/ ? 'out' : 'in';

    $query =

      qq|SELECT qty, unit, bin_id, warehouse_id, chargenumber

           FROM delivery_order_items_stock

           WHERE delivery_order_item_id = ?|;

    my $sth = prepare_query($form, $dbh, $query);

    foreach my $doi (@{ $form->{form_details} }) {

      do_statement($form, $sth, $query, conv_i($doi->{delivery_order_items_id}));

      my $requests = [];

      while (my $ref = $sth->fetchrow_hashref()) {

        push @{ $requests }, $ref;

      }

      $doi->{"stock_${in_out}"} = YAML::Dump($requests);

    }

    $sth->finish();

  } else {

    # get last name used

    $form->lastname_used($dbh, $myconfig, $form->{vc}) unless $form->{"$form->{vc}_id"};

  }

  Common::webdav_folder($form) if ($main::webdav);

  $main::lxdebug->leave_sub();

}

sub order_details {

  $main::lxdebug->enter_sub();

  my ($self)   = @_;

  my $myconfig = \%main::myconfig;

  my $form     = $main::form;

  # connect to database

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

  my $query;

  my @values = ();

  my $sth;

  my $item;

  my $i;

  my @partsgroup = ();

  my $partsgroup;

  my $position = 0;

  my %oid = ('Pg'     => 'oid',

             'Oracle' => 'rowid');

  my (@project_ids, %projectnumbers);

  push(@project_ids, $form->{"globalproject_id"}) if ($form->{"globalproject_id"});

  # sort items by partsgroup

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

    $partsgroup = "";

    if ($form->{"partsgroup_$i"} && $form->{groupitems}) {

      $partsgroup = $form->{"partsgroup_$i"};

    }

    push @partsgroup, [$i, $partsgroup];

    push(@project_ids, $form->{"project_id_$i"}) if ($form->{"project_id_$i"});

  }

  if (@project_ids) {

    $query = "SELECT id, projectnumber FROM project WHERE id IN (" .

      join(", ", map("?", @project_ids)) . ")";

    $sth = prepare_execute_query($form, $dbh, $query, @project_ids);

    while (my $ref = $sth->fetchrow_hashref()) {

      $projectnumbers{$ref->{id}} = $ref->{projectnumber};

    }

    $sth->finish();

  }

  $form->{"globalprojectnumber"} =

    $projectnumbers{$form->{"globalproject_id"}};

  my $q_pg     = qq|SELECT p.partnumber, p.description, p.unit, a.qty, pg.partsgroup

                    FROM assembly a

                    JOIN parts p ON (a.parts_id = p.id)

                    LEFT JOIN partsgroup pg ON (p.partsgroup_id = pg.id)

                    WHERE a.bom = '1'

                      AND a.id = ? $sortorder|;

  my $h_pg     = prepare_query($form, $dbh, $q_pg);

  my $q_bin_wh = qq|SELECT (SELECT description FROM bin       WHERE id = ?) AS bin,

                           (SELECT description FROM warehouse WHERE id = ?) AS warehouse|;

  my $h_bin_wh = prepare_query($form, $dbh, $q_bin_wh);

  my $in_out   = $form->{type} =~ /^sales/ ? 'out' : 'in';

  my $num_si   = 0;

  my @arrays =

    qw(runningnumber number description longdescription qty unit

       partnotes serialnumber reqdate projectnumber

       si_runningnumber si_number si_description

       si_warehouse si_bin si_chargenumber si_qty si_unit

       v_partnumber v_description);

  my $sameitem = "";

  foreach $item (sort { $a->[1] cmp $b->[1] } @partsgroup) {

    $i = $item->[0];

    next if (!$form->{"id_$i"});

    $position++;

    if ($item->[1] ne $sameitem) {

      push(@{ $form->{description} }, qq|$item->[1]|);

      $sameitem = $item->[1];

      map({ push(@{ $form->{$_} }, "") } grep({ $_ ne "description" } @arrays));

    }

    $form->{"qty_$i"} = $form->parse_amount($myconfig, $form->{"qty_$i"});

    # add number, description and qty to $form->{number}, ....

    my $price_factor = $price_factors{$form->{"price_factor_id_$i"}} || { 'factor' => 1 };

    push @{ $form->{runningnumber} },   $position;

    push @{ $form->{number} },          $form->{"partnumber_$i"};

    push @{ $form->{description} },     $form->{"description_$i"};

    push @{ $form->{longdescription} }, $form->{"longdescription_$i"};

    push @{ $form->{qty} },             $form->format_amount($myconfig, $form->{"qty_$i"});

    push @{ $form->{unit} },            $form->{"unit_$i"};

    push @{ $form->{partnotes} },       $form->{"partnotes_$i"};

    push @{ $form->{serialnumber} },    $form->{"serialnumber_$i"};

    push @{ $form->{reqdate} },         $form->{"reqdate_$i"};

    push @{ $form->{projectnumber} },   $projectnumbers{$form->{"project_id_$i"}};

    push @{ $form->{v_partnumber} },    $form->{"v_partnumber_$i"};

    push @{ $form->{v_description} },   $form->{"v_description_$i"};

    if ($form->{"assembly_$i"}) {

      $sameitem = "";

      # get parts and push them onto the stack

      my $sortorder = "";

      if ($form->{groupitems}) {

        $sortorder =

          qq|ORDER BY pg.partsgroup, a.$oid{$myconfig->{dbdriver}}|;

      } else {

        $sortorder = qq|ORDER BY a.$oid{$myconfig->{dbdriver}}|;

      }

      do_statement($form, $h_pg, $q_pg, conv_i($form->{"id_$i"}));

      while (my $ref = $h_pg->fetchrow_hashref(NAME_lc)) {

        if ($form->{groupitems} && $ref->{partsgroup} ne $sameitem) {

          map({ push(@{ $form->{$_} }, "") } grep({ $_ ne "description" } @arrays));

          $sameitem = ($ref->{partsgroup}) ? $ref->{partsgroup} : "--";

          push(@{ $form->{description} }, $sameitem);

        }

        push(@{ $form->{description} }, $form->format_amount($myconfig, $ref->{qty} * $form->{"qty_$i"}) . qq|, $ref->{partnumber}, $ref->{description}|);

        map({ push(@{ $form->{$_} }, "") } grep({ $_ ne "description" } @arrays));

      }

    }

    if ($form->{"inventory_accno_$i"} && !$form->{"assembly_$i"}) {

      my $stock_info = DO->unpack_stock_information('packed' => $form->{"stock_${in_out}_$i"});

      foreach my $si (@{ $stock_info }) {

        $num_si++;

        do_statement($form, $h_bin_wh, $q_bin_wh, conv_i($si->{bin_id}), conv_i($si->{warehouse_id}));

        my $bin_wh = $h_bin_wh->fetchrow_hashref();

        push @{ $form->{si_runningnumber} }, $num_si;

        push @{ $form->{si_number} },        $form->{"partnumber_$i"};

        push @{ $form->{si_description} },   $form->{"description_$i"};

        push @{ $form->{si_warehouse} },     $bin_wh->{warehouse};

        push @{ $form->{si_bin} },           $bin_wh->{bin};

        push @{ $form->{si_chargenumber} },  $si->{chargenumber};

        push @{ $form->{si_qty} },           $form->format_amount($myconfig, $si->{qty} * 1);

        push @{ $form->{si_unit} },          $si->{unit};

      }

    }

  }

  $h_pg->finish();

  $h_bin_wh->finish();

  $form->{username} = $myconfig->{name};

  $main::lxdebug->leave_sub();

}

sub project_description {

  $main::lxdebug->enter_sub();

  my ($self, $dbh, $id) = @_;

  my $query = qq|SELECT description FROM project WHERE id = ?|;

  my ($value) = selectrow_query($form, $dbh, $query, $id);

  $main::lxdebug->leave_sub();

  return $value;

}

sub unpack_stock_information {

  $main::lxdebug->enter_sub();

  my $self   = shift;

  my %params = @_;

  Common::check_params_x(\%params, qw(packed));

  my $unpacked;

  eval { $unpacked = $params{packed} ? YAML::Load($params{packed}) : []; };

  $unpacked = [] if (!$unpacked || ('ARRAY' ne ref $unpacked));

  foreach my $entry (@{ $unpacked }) {

    next if ('HASH' eq ref $entry);

    $unpacked = [];

    last;

  }

  $main::lxdebug->leave_sub();

  return $unpacked;

}

sub get_item_availability {

  $main::lxdebug->enter_sub();

  my $self     = shift;

  my %params   = @_;

  Common::check_params(\%params, qw(parts_id));

  my @parts_ids = 'ARRAY' eq ref $params{parts_id} ? @{ $params{parts_id} } : ($params{parts_id});

  my $form      = $main::form;

  my $query     =

    qq|SELECT i.warehouse_id, i.bin_id, i.chargenumber, SUM(qty) AS qty, i.parts_id,

         w.description AS warehousedescription,

         b.description AS bindescription

       FROM inventory i

       LEFT JOIN warehouse w ON (i.warehouse_id = w.id)

       LEFT JOIN bin b       ON (i.bin_id       = b.id)

       WHERE (i.parts_id IN (| . join(', ', ('?') x scalar(@parts_ids)) . qq|))

         AND qty > 0

       GROUP BY i.warehouse_id, i.bin_id, i.chargenumber, i.parts_id, w.description, b.description

       ORDER BY LOWER(w.description), LOWER(b.description), LOWER(i.chargenumber)|;

  my $contents = selectall_hashref_query($form, $form->get_standard_dbh($myconfig), $query, @parts_ids);

  $main::lxdebug->leave_sub();

  return @{ $contents };

}

sub check_stock_availability {

  $main::lxdebug->enter_sub();

  my $self     = shift;

  my %params   = @_;

  Common::check_params(\%params, qw(requests parts_id));

  my $myconfig    = \%main::myconfig;

  my $form        =  $main::form;

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

  my $units       = AM->retrieve_units($myconfig, $form, "dimension");

  my ($partunit)  = selectrow_query($form, $dbh, qq|SELECT unit FROM parts WHERE id = ?|, conv_i($params{parts_id}));

  my $unit_factor = $units->{$partunit}->{factor} || 1;

  my @contents    = $self->get_item_availability(%params);

  my @errors;

  foreach my $sinfo (@{ $params{requests} }) {

    my $found = 0;

    foreach my $row (@contents) {

      next if (($row->{bin_id}       != $sinfo->{bin_id}) ||

               ($row->{warehouse_id} != $sinfo->{warehouse_id}) ||

               ($row->{chargenumber} ne $sinfo->{chargenumber}));

      $found       = 1;

      my $base_qty = $sinfo->{qty} * $units->{$sinfo->{unit}}->{factor} / $unit_factor;

      if ($base_qty > $row->{qty}) {

        $sinfo->{error} = 1;

        push @errors, $sinfo;

        last;

      }

    }

    push @errors, $sinfo if (!$found);

  }

  $main::lxdebug->leave_sub();

  return @errors;

}

sub transfer_in_out {

  $main::lxdebug->enter_sub();

  my $self     = shift;

  my %params   = @_;

  Common::check_params(\%params, qw(direction requests));

  if (!@{ $params{requests} }) {

    $main::lxdebug->leave_sub();

    return;

  }

  my $myconfig = \%main::myconfig;

  my $form     = $main::form;

  my $prefix   = $params{direction} eq 'in' ? 'dst' : 'src';

  my @transfers;

  foreach my $request (@{ $params{requests} }) {

    push @transfers, {

      'parts_id'               => $request->{parts_id},

      "${prefix}_warehouse_id" => $request->{warehouse_id},

      "${prefix}_bin_id"       => $request->{bin_id},

      'chargenumber'           => $request->{chargenumber},

      'qty'                    => $request->{qty},

      'unit'                   => $request->{unit},

      'oe_id'                  => $form->{id},

      'shippingdate'           => 'current_date',

      'transfer_type'          => $params{direction} eq 'in' ? 'stock' : 'shipped',

    };

  }

  WH->transfer(@transfers);

  $main::lxdebug->leave_sub();

}

1;

use List::Util qw(first max min sum);

    bin_list                => $main::locale->text('Bin List'),

    credit_note             => $main::locale->text('Credit Note'),

    invoice                 => $main::locale->text('Invoice'),

    packing_list            => $main::locale->text('Packing List'),

    pick_list               => $main::locale->text('Pick List'),

    proforma                => $main::locale->text('Proforma Invoice'),

    purchase_order          => $main::locale->text('Purchase Order'),

    request_quotation       => $main::locale->text('RFQ'),

    sales_order             => $main::locale->text('Confirmation'),

    sales_quotation         => $main::locale->text('Quotation'),

    storno_invoice          => $main::locale->text('Storno Invoice'),

    storno_packing_list     => $main::locale->text('Storno Packing List'),

    sales_delivery_order    => $main::locale->text('Delivery Order'),

    purchase_delivery_order => $main::locale->text('Delivery Order'),

  my $prefix =

      (first { $self->{type} eq $_ } qw(invoice credit_note)) ? 'inv'

    : ($self->{type} =~ /_quotation$/)                        ? 'quo'

    : ($self->{type} =~ /_delivery_order$/)                   ? 'do'

    :                                                           'ord';

    default_printer_id copies show_form_details favorites

    pdonumber sdonumber);

# #=====================================================================

# LX-Office ERP

# Copyright (C) 2004

# Based on SQL-Ledger Version 2.1.9

# Web http://www.lx-office.org

#

#=====================================================================

# SQL-Ledger, Accounting

# Copyright (c) 1998-2003

#

#  Author: Dieter Simader

#   Email: dsimader@sql-ledger.org

#     Web: http://www.sql-ledger.org

#

#

# This program is free software; you can redistribute it and/or modify

# it under the terms of the GNU General Public License as published by

# the Free Software Foundation; either version 2 of the License, or

# (at your option) any later version.

#

# This program is distributed in the hope that it will be useful,

# but WITHOUT ANY WARRANTY; without even the implied warranty of

# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the

# GNU General Public License for more details.

# You should have received a copy of the GNU General Public License

# along with this program; if not, write to the Free Software

# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.

#======================================================================

#

# Delivery orders

#======================================================================

use List::Util qw(max sum);

use POSIX qw(strftime);

use YAML;

use SL::DO;

use SL::IR;

use SL::IS;

use SL::ReportGenerator;

use SL::WH;

require "bin/mozilla/arap.pl";

require "bin/mozilla/common.pl";

require "bin/mozilla/invoice_io.pl";

require "bin/mozilla/io.pl";

require "bin/mozilla/reportgenerator.pl";

1;

# end of main

sub check_do_access {

  $auth->assert($form->{type} . '_edit');

}

sub set_headings {

  $lxdebug->enter_sub();

  check_do_access();

  my ($action) = @_;

  if ($form->{type} eq 'purchase_delivery_order') {

    $form->{vc}    = 'vendor';

    $form->{title} = $action eq "edit" ? $locale->text('Edit Purchase Delivery Order') : $locale->text('Add Purchase Delivery Order');

  } else {

    $form->{vc}    = 'customer';

    $form->{title} = $action eq "edit" ? $locale->text('Edit Sales Delivery Order') : $locale->text('Add Sales Delivery Order');

  }

  $form->{heading} = $locale->text('Delivery Order');

  $lxdebug->leave_sub();

}

sub add {

  $lxdebug->enter_sub();

  check_do_access();

  set_headings("add");

  $form->{callback} = build_std_url('action=add', 'type', 'vc') unless ($form->{callback});

  order_links();

  prepare_order();

  display_form();

  $lxdebug->leave_sub();

}

sub edit {

  $lxdebug->enter_sub();

  check_do_access();

  # show history button

  $form->{javascript} = qq|<script type="text/javascript" src="js/show_history.js"></script>|;

  #/show hhistory button

  $form->{simple_save} = 0;

  set_headings("edit");

  # editing without stuff to edit? try adding it first

  if ($form->{rowcount} && !$form->{print_and_save}) {

#     map { $id++ if $form->{"multi_id_$_"} } (1 .. $form->{rowcount});

#     if (!$id) {

      # reset rowcount

      undef $form->{rowcount};

      add();

      $lxdebug->leave_sub();

      return;

#     }

  } elsif (!$form->{id}) {

    add();

    $lxdebug->leave_sub();

    return;

  }

  if ($form->{print_and_save}) {

    $form->{action}   = "print";

    $form->{resubmit} = 1;

    $language_id      = $form->{language_id};

    $printer_id       = $form->{printer_id};

  }

  set_headings("edit");

  order_links();

  prepare_order();

  if ($form->{print_and_save}) {

    $form->{language_id} = $language_id;

    $form->{printer_id}  = $printer_id;

  }

  display_form();

  $lxdebug->leave_sub();

}

sub order_links {

  $lxdebug->enter_sub();

  check_do_access();

  # get customer/vendor

  $form->all_vc(\%myconfig, $form->{vc}, ($form->{vc} eq 'customer') ? "AR" : "AP");

  # retrieve order/quotation

  $form->{webdav}   = $webdav;

  $form->{jsscript} = 1;

  my $editing = $form->{id};

  DO->retrieve();

  $payment_id  = $form->{payment_id}  if ($form->{payment_id});

  $language_id = $form->{language_id} if ($form->{language_id});

  $taxzone_id  = $form->{taxzone_id}  if ($form->{taxzone_id});

  $salesman_id = $form->{salesman_id} if ($editing);

  $taxincluded    = $form->{taxincluded};

  $form->{shipto} = 1 if $form->{id};

  if ($form->{"all_$form->{vc}"}) {

    unless ($form->{"$form->{vc}_id"}) {

      $form->{"$form->{vc}_id"} = $form->{"all_$form->{vc}"}->[0]->{id};

    }

  }

  $cp_id    = $form->{cp_id};

  $intnotes = $form->{intnotes};

  $form->{cp_id} = $cp_id;

  $form->{payment_id}  = $payment_id  if ($payment_id);

  $form->{language_id} = $language_id if ($language_id);

  $form->{taxzone_id}  = $taxzone_id  if ($taxzone_id);

  $form->{intnotes}    = $intnotes    if ($intnotes);

  ($form->{ $form->{vc} })  = split /--/, $form->{ $form->{vc} };

  $form->{"old$form->{vc}"} = qq|$form->{$form->{vc}}--$form->{"$form->{vc}_id"}|;

  $form->{taxincluded} = $taxincluded if ($form->{id});

  $form->{employee} = "$form->{employee}--$form->{employee_id}";

  $form->{salesman_id} = $salesman_id if ($editing);

  $lxdebug->leave_sub();

}

sub prepare_order {

  $lxdebug->enter_sub();

  check_do_access();

  $form->{formname} = $form->{type} unless $form->{formname};

  my $i = 0;

  foreach $ref (@{ $form->{form_details} }) {

    $form->{rowcount} = ++$i;

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

  }

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

    if ($form->{id}) {

      $form->{"discount_$i"} = $form->format_amount(\%myconfig, $form->{"discount_$i"} * 100);

    } else {

      $form->{"discount_$i"} = $form->format_amount(\%myconfig, $form->{"discount_$i"});

    }

    ($dec) = ($form->{"sellprice_$i"} =~ /\.(\d+)/);

    $dec           = length $dec;

    $decimalplaces = ($dec > 2) ? $dec : 2;

    # copy reqdate from deliverydate for invoice -> order conversion

    $form->{"reqdate_$i"} = $form->{"deliverydate_$i"} unless $form->{"reqdate_$i"};

    $form->{"sellprice_$i"} = $form->format_amount(\%myconfig, $form->{"sellprice_$i"}, $decimalplaces);

    (my $dec_qty) = ($form->{"qty_$i"} =~ /\.(\d+)/);

    $dec_qty = length $dec_qty;

    $form->{"qty_$i"} = $form->format_amount(\%myconfig, $form->{"qty_$i"}, $dec_qty);

    map { $form->{"${_}_$i"} =~ s/\"/"/g } qw(partnumber description unit);

  }

  $lxdebug->leave_sub();

}

sub form_header {

  $lxdebug->enter_sub();

  check_do_access();

  $form->{employee_id} = $form->{old_employee_id} if $form->{old_employee_id};

  $form->{salesman_id} = $form->{old_salesman_id} if $form->{old_salesman_id};

  # use JavaScript Calendar or not

  $form->{jsscript} = 1;

  #write Trigger

  $jsscript = Form->write_trigger(\%myconfig, "2", "transdate", "BL", "trigger1", "reqdate", "BL", "trigger2");

  my @old_project_ids = ($form->{"globalproject_id"});

  map({ push(@old_project_ids, $form->{"project_id_$_"})

          if ($form->{"project_id_$_"}); } (1..$form->{"rowcount"}));

  my $vc = $form->{vc} eq "customer" ? "customers" : "vendors";

  $form->get_lists("contacts"       => "ALL_CONTACTS",

                   "shipto"         => "ALL_SHIPTO",

                   "projects"       => {

                     "key"          => "ALL_PROJECTS",

                     "all"          => 0,

                     "old_id"       => \@old_project_ids

                   },

                   "employees"      => "ALL_EMPLOYEES",

                   "salesmen"       => "ALL_SALESMEN",

                   $vc              => "ALL_VC",

                   "price_factors"  => "ALL_PRICE_FACTORS",

                   "departments"    => "ALL_DEPARTMENTS",

                   "business_types" => "ALL_BUSINESS_TYPES",

    );

  map { $_->{value} = "$_->{description}--$_->{id}" } @{ $form->{ALL_DEPARTMENTS} };

  map { $_->{value} = "$_->{name}--$_->{id}"        } @{ $form->{ALL_VC} };

  $form->{SHOW_VC_DROP_DOWN} =  $myconfig{vclimit} > scalar @{ $form->{ALL_VC} };

  $form->{oldvcname}         =  $form->{"old$form->{vc}"};

  $form->{oldvcname}         =~ s/--.*//;

  $form->{onload} = "";

  if ($form->{resubmit}) {

    if ($form->{format} eq "html") {

      $form->{onload} = "window.open('about:blank','Beleg'); document.do.target = 'Beleg';";

    }

    $form->{onload} .= "document.do.submit();"

  }

  $form->header();

  print $form->parse_html_template('do/form_header');

  $lxdebug->leave_sub();

}

sub form_footer {

  $lxdebug->enter_sub();

  check_do_access();

  $form->{PRINT_OPTIONS} = print_options('inline' => 1);

  print $form->parse_html_template('do/form_footer');

  $lxdebug->leave_sub();

}

sub update_delivery_order {

  $lxdebug->enter_sub();

  check_do_access();

  set_headings($form->{"id"} ? "edit" : "add");

  $form->{update} = 1;

  $payment_id = $form->{payment_id} if $form->{payment_id};

  check_name($form->{vc});

  $form->{payment_id} = $payment_id if $form->{payment_id} eq "";

  # for pricegroups

  $i = $form->{rowcount};

  if (   ($form->{"partnumber_$i"} eq "")

      && ($form->{"description_$i"} eq "")

      && ($form->{"partsgroup_$i"}  eq "")) {

    check_form();

  } else {

    if ($form->{type} eq 'purchase_delivery_order') {

      IR->retrieve_item(\%myconfig, $form);

    } else {

      IS->retrieve_item(\%myconfig, $form);

    }

    my $rows = scalar @{ $form->{item_list} };

    if ($rows) {

      $form->{"qty_$i"} = 1 unless ($form->{"qty_$i"});

      if ($rows > 1) {

        select_item();

        exit;

      } else {

        map { $form->{item_list}[$i]{$_} =~ s/\"/"/g }    qw(partnumber description unit);

        map { $form->{"${_}_$i"} = $form->{item_list}[0]{$_} } keys %{ $form->{item_list}[0] };

        $form->{"marge_price_factor_$i"} = $form->{item_list}->[0]->{price_factor};

        $form->{"sellprice_$i"}          = $form->format_amount(\%myconfig, $form->{"sellprice_$i"});

        $form->{"qty_$i"}                = $form->format_amount(\%myconfig, $form->{"qty_$i"});

      }

      display_form();

    } else {

      # ok, so this is a new part

      # ask if it is a part or service item

      if (   $form->{"partsgroup_$i"}

          && ($form->{"partsnumber_$i"} eq "")

          && ($form->{"description_$i"} eq "")) {

        $form->{rowcount}--;

        $form->{"discount_$i"} = "";

        display_form();

      } else {

        $form->{"id_$i"}   = 0;

        new_item();

      }

    }

  }

  $lxdebug->leave_sub();

}

sub search {

  $lxdebug->enter_sub();

  check_do_access();

  $form->{vc} = $form->{type} eq 'purchase_order' ? 'vendor' : 'customer';

  $form->get_lists("projects"     => { "key" => "ALL_PROJECTS",

                                       "all" => 1 },

                   "employees"    => "ALL_EMPLOYEES",

                   "salesmen"     => "ALL_SALESMEN",

                   "$form->{vc}s" => "ALL_VC");

  $form->{SHOW_VC_DROP_DOWN} =  $myconfig{vclimit} > scalar @{ $form->{ALL_VC} };

  $form->{jsscript}          = 1;

  $form->{title}             = $locale->text('Delivery Orders');

  $form->header();

  print $form->parse_html_template('do/search');

  $lxdebug->leave_sub();

}

sub orders {

  $lxdebug->enter_sub();

  check_do_access();

  ($form->{ $form->{vc} }, $form->{"${form->{vc}}_id"}) = split(/--/, $form->{ $form->{vc} });

  $form->{sort} ||= 'transdate';

  DO->transactions();

  $form->{rowcount} = scalar @{ $form->{DO} };

  my @columns = qw(

    transdate

    id                      donumber

    ordnumber               oreqnumber

    name                    employee

    shipvia                 globalprojectnumber

    transaction_description

    open                    delivered

  );

  $form->{l_open}      = $form->{l_closed} = "Y" if ($form->{open}      && $form->{closed});

  $form->{l_delivered} = "Y"                     if ($form->{delivered} && $form->{notdelivered});

  $form->{title}       = $locale->text('Delivery Orders');

  my $attachment_basename = $form->{vc} eq 'vendor' ? $locale->text('purchase_delivery_order_list') : $locale->text('sales_delivery_order_list');

  my $report = SL::ReportGenerator->new(\%myconfig, $form);

  my @hidden_variables = map { "l_${_}" } @columns;

  push @hidden_variables, $form->{vc}, qw(l_closed l_notdelivered open closed delivered notdelivered donumber ordnumber

                                          transaction_description transdatefrom transdateto type vc employee_id salesman_id);

  my $href = build_std_url('action=orders', grep { $form->{$_} } @hidden_variables);

  my %column_defs = (

    'ids'                     => { 'text' => '', },

    'transdate'               => { 'text' => $locale->text('Date'), },

    'id'                      => { 'text' => $locale->text('ID'), },

    'donumber'                => { 'text' => $locale->text('Delivery Order'), },

    'ordnumber'               => { 'text' => $locale->text('Order'), },

    'oreqnumber'              => { 'text' => $locale->text('Order Request Number'), },

    'name'                    => { 'text' => $form->{vc} eq 'customer' ? $locale->text('Customer') : $locale->text('Vendor'), },

    'employee'                => { 'text' => $locale->text('Salesperson'), },

    'shipvia'                 => { 'text' => $locale->text('Ship via'), },

    'globalprojectnumber'     => { 'text' => $locale->text('Project Number'), },

    'transaction_description' => { 'text' => $locale->text('Transaction description'), },

    'open'                    => { 'text' => $locale->text('Open'), },

    'delivered'               => { 'text' => $locale->text('Delivered'), },

  );

  foreach my $name (qw(id transdate donumber ordnumber oreqnumber name employee shipvia)) {

    $column_defs{$name}->{link} = $href . "&sort=$name";

  }

  $form->{"l_type"} = "Y";

  map { $column_defs{$_}->{visible} = $form->{"l_${_}"} ? 1 : 0 } @columns;

  $column_defs{ids}->{visible} = $allow_multiple_orders ? 'HTML' : 0;

  $report->set_columns(%column_defs);

  $report->set_column_order(@columns);

  $report->set_export_options('orders', @hidden_variables);

  $report->set_sort_indicator($form->{sort}, 1);

  my @options;

  if ($form->{customer}) {

    push @options, $locale->text('Customer') . " : $form->{customer}";

  }

  if ($form->{vendor}) {

    push @options, $locale->text('Vendor') . " : $form->{vendor}";

  }

  if ($form->{department}) {

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

    push @options, $locale->text('Department') . " : $department";

  }

  if ($form->{donumber}) {

    push @options, $locale->text('Delivery Order Number') . " : $form->{donumber}";

  }

  if ($form->{ordnumber}) {

    push @options, $locale->text('Order Number') . " : $form->{ordnumber}";

  }

  if ($form->{transaction_description}) {

    push @options, $locale->text('Transaction description') . " : $form->{transaction_description}";

  }

  if ($form->{transdatefrom}) {

    push @options, $locale->text('From') . " " . $locale->date(\%myconfig, $form->{transdatefrom}, 1);

  }

  if ($form->{transdateto}) {

    push @options, $locale->text('Bis') . " " . $locale->date(\%myconfig, $form->{transdateto}, 1);

  }

  if ($form->{open}) {

    push @options, $locale->text('Open');

  }

  if ($form->{closed}) {

    push @options, $locale->text('Closed');

  }

  if ($form->{delivered}) {

    push @options, $locale->text('Delivered');

  }

  if ($form->{notdelivered}) {

    push @options, $locale->text('Not delivered');

  }

  $report->set_options('top_info_text'       => join("\n", @options),

                       'output_format'       => 'HTML',

                       'title'               => $form->{title},

                       'attachment_basename' => $attachment_basename . strftime('_%Y%m%d', localtime time),

    );

  $report->set_options_from_form();

  # add sort and escape callback, this one we use for the add sub

  $form->{callback} = $href .= "&sort=$form->{sort}";

  # escape callback for href

  $callback = $form->escape($href);

  my $edit_url       = build_std_url('action=edit', 'type', 'vc');

  my $edit_order_url = build_std_url('script=oe.pl', 'type=' . ($form->{type} eq 'sales_delivery_order' ? 'sales_order' : 'purchase_order'), 'action=edit');