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) 1998-2002

#

# 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., 51 Franklin Street, Fifth Floor, Boston,

# MA 02110-1335, USA.

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

#

# Inventory invoicing module

#

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

use SL::FU;

use SL::IS;

use SL::OE;

use SL::Helper::UserPreferences::DisplayPreferences;

use SL::MoreCommon qw(restore_form save_form);

use SL::RecordLinks;

use Data::Dumper;

use DateTime;

use List::MoreUtils qw(any uniq);

use List::Util qw(max sum);

use List::UtilsBy qw(sort_by);

use English qw(-no_match_vars);

use SL::DB::BankTransactionAccTrans;

use SL::DB::Default;

use SL::DB::Customer;

use SL::DB::Department;

use SL::DB::Invoice;

use SL::DB::PaymentTerm;

use SL::DB::ValidityToken;

use SL::Helper::QrBillFunctions qw(get_ref_number_formatted);

require "bin/mozilla/common.pl";

require "bin/mozilla/io.pl";

use strict;

1;

# end of main

sub _may_view_or_edit_this_invoice {

return 1 if $::auth->assert('invoice_edit', 1); # may edit all invoices

return 0 if !$::form->{id}; # creating new invoices isn't allowed without invoice_edit

return 1 if $::auth->assert('sales_invoice_view', 1); # viewing is allowed with this right

return 0 if !$::form->{globalproject_id}; # existing records without a project ID are not allowed

return SL::DB::Project->new(id => $::form->{globalproject_id})->load->may_employee_view_project_invoices(SL::DB::Manager::Employee->current);

}

sub _assert_access {

my $cache = $::request->cache('is.pl::_assert_access');

$cache->{_may_view_or_edit_this_invoice} = _may_view_or_edit_this_invoice() if !exists $cache->{_may_view_or_edit_this_invoice};

$::form->show_generic_error($::locale->text("You do not have the permissions to access this function.")) if ! $cache->{_may_view_or_edit_this_invoice};

}

sub add {

$main::lxdebug->enter_sub();

my $form = $main::form;

my $locale = $main::locale;

$main::auth->assert('invoice_edit');

$form->{show_details} = $::myconfig{show_form_details};

if ($form->{type} eq "credit_note") {

$form->{title} = $locale->text('Add Credit Note');

if ($form->{storno}) {

$form->{title} = $locale->text('Add Storno Credit Note');

}

} elsif ($form->{type} eq "invoice_for_advance_payment") {

$form->{title} = $locale->text('Add Invoice for Advance Payment');

} elsif ($form->{type} eq "final_invoice") {

$form->{title} = $locale->text('Add Final Invoice');

} else {

$form->{title} = $locale->text('Add Sales Invoice');

}

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

$form->{form_validity_token} = SL::DB::ValidityToken->create(scope => SL::DB::ValidityToken::SCOPE_SALES_INVOICE_POST())->token;

}

$form->{callback} = "$form->{script}?action=add&type=$form->{type}" unless $form->{callback};

invoice_links(is_new => 1);

&prepare_invoice;

&display_form;

$main::lxdebug->leave_sub();

}

sub edit {

$main::lxdebug->enter_sub();

# Delay access check to after the invoice's been loaded in

# "invoice_links" so that project-specific invoice rights can be

# evaluated.

my $form = $main::form;

my $locale = $main::locale;

$form->{show_details} = $::myconfig{show_form_details};

$form->{taxincluded_changed_by_user} = 1;

# show history button

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

my ($language_id, $printer_id);

if ($form->{print_and_post}) {

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

$form->{resubmit} = 1;

$language_id = $form->{language_id};

$printer_id = $form->{printer_id};

}

&invoice_links;

if ($form->{type} eq "credit_note") {

$form->{title} = $locale->text('Edit Credit Note');

$form->{title} = $locale->text('Edit Storno Credit Note') if $form->{storno};

} elsif ($form->{type} eq "invoice_for_advance_payment") {

$form->{title} = $locale->text('Edit Invoice for Advance Payment');

$form->{title} = $locale->text('Edit Storno Invoice for Advance Payment') if $form->{storno};

} elsif ($form->{type} eq "final_invoice") {

$form->{title} = $locale->text('Edit Final Invoice');

} else {

$form->{title} = $locale->text('Edit Sales Invoice');

$form->{title} = $locale->text('Edit Storno Invoice') if $form->{storno};

}

&prepare_invoice;

if ($form->{print_and_post}) {

$form->{language_id} = $language_id;

$form->{printer_id} = $printer_id;

}

&display_form;

$main::lxdebug->leave_sub();

}

sub invoice_links {

$main::lxdebug->enter_sub();

# Delay access check to after the invoice's been loaded so that

# project-specific invoice rights can be evaluated.

my %params = @_;

my $form = $main::form;

my %myconfig = %main::myconfig;

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

# create links

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

_assert_access();

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

$form->backup_vars(qw(payment_id language_id taxzone_id salesman_id

taxincluded currency cp_id intnotes id shipto_id

delivery_term_id));

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

$form->{billing_address_id} = $form->{default_billing_address_id} if $params{is_new};

$form->restore_vars(qw(id));

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

$form->restore_vars(qw(payment_id language_id taxzone_id currency intnotes

cp_id shipto_id delivery_term_id));

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

$form->restore_vars(qw(salesman_id)) if $editing;

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

# forex

$form->{forex} = $form->{exchangerate};

my $exchangerate = ($form->{exchangerate}) ? $form->{exchangerate} : 1;

foreach my $key (keys %{ $form->{AR_links} }) {

foreach my $ref (@{ $form->{AR_links}{$key} }) {

$form->{"select$key"} .= "<option>$ref->{accno}--$ref->{description}</option>\n";

}

if ($key eq "AR_paid") {

next unless $form->{acc_trans}{$key};

for my $i (1 .. scalar @{ $form->{acc_trans}{$key} }) {

$form->{"AR_paid_$i"} = "$form->{acc_trans}{$key}->[$i-1]->{accno}--$form->{acc_trans}{$key}->[$i-1]->{description}";

$form->{"acc_trans_id_$i"} = $form->{acc_trans}{$key}->[$i - 1]->{acc_trans_id};

# reverse paid

$form->{"paid_$i"} = $form->{acc_trans}{$key}->[$i - 1]->{amount} * -1;

$form->{"datepaid_$i"} = $form->{acc_trans}{$key}->[$i - 1]->{transdate};

$form->{"gldate_$i"} = $form->{acc_trans}{$key}->[$i - 1]->{gldate};

$form->{"exchangerate_$i"} = $form->{acc_trans}{$key}->[$i - 1]->{exchangerate};

$form->{"forex_$i"} = $form->{"exchangerate_$i"};

$form->{"source_$i"} = $form->{acc_trans}{$key}->[$i - 1]->{source};

$form->{"memo_$i"} = $form->{acc_trans}{$key}->[$i - 1]->{memo};

$form->{paidaccounts} = $i;

# hook for calc of of fx_paid and check if banktransaction has a record exchangerate

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

my $bt_acc_trans;

my $bt_acc_trans = SL::DB::Manager::BankTransactionAccTrans->find_by(acc_trans_id => $form->{"acc_trans_id_$i"});

if ($bt_acc_trans) {

if ($bt_acc_trans->bank_transaction->exchangerate > 0) {

$form->{"exchangerate_$i"} = $bt_acc_trans->bank_transaction->exchangerate;

$form->{"forex_$i"} = $form->{"exchangerate_$i"};

$form->{"record_forex_$i"} = 1;

}

}

$form->{"fx_paid_$i"} = $form->{"paid_$i"} / $form->{"exchangerate_$i"};

$form->{"fx_totalpaid"} += $form->{"fx_paid_$i"};

} # end hook fx_paid

}

} else {

$form->{$key} = "$form->{acc_trans}{$key}->[0]->{accno}--$form->{acc_trans}{$key}->[0]->{description}";

}

}

$form->{paidaccounts} = 1 unless (exists $form->{paidaccounts});

$form->{AR} = $form->{AR_1} unless $form->{id};

$form->{locked} = ($form->datetonum($form->{invdate}, \%myconfig)

<= $form->datetonum($form->{closedto}, \%myconfig));

$main::lxdebug->leave_sub();

}

sub prepare_invoice {

$main::lxdebug->enter_sub();

_assert_access();

my $form = $main::form;

my %myconfig = %main::myconfig;

if ($form->{type} eq "credit_note") {

$form->{type} = "credit_note";

$form->{formname} = "credit_note";

} elsif ($form->{type} eq "invoice_for_advance_payment") {

$form->{type} = "invoice_for_advance_payment";

$form->{formname} = "invoice_for_advance_payment";

} elsif ($form->{type} eq "final_invoice") {

$form->{type} = "final_invoice";

$form->{formname} = "final_invoice";

} elsif ($form->{formname} eq "proforma" ) {

$form->{type} = "invoice";

} else {

$form->{type} = "invoice";

$form->{formname} = "invoice";

}

if ($form->{id}) {

my $i = 0;

foreach my $ref (@{ $form->{invoice_details} }) {

$i++;

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

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

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

$dec = length $dec;

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

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

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

$dec_qty = length $dec_qty;

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

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

$form->{"sellprice_pg_$i"} = join ('--', $form->{"sellprice_$i"}, $form->{"pricegroup_id_$i"});

$form->{rowcount} = $i;

}

}

$main::lxdebug->leave_sub();

}

sub setup_is_action_bar {

my ($tmpl_var) = @_;

my $form = $::form;

my $change_never = $::instance_conf->get_is_changeable == 0;

my $change_on_same_day_only = $::instance_conf->get_is_changeable == 2 && ($form->current_date(\%::myconfig) ne $form->{gldate});

my $payments_balanced = ($::form->{oldtotalpaid} == 0);

my $has_storno = ($::form->{storno} && !$::form->{storno_id});

my $may_edit_create = $::auth->assert('invoice_edit', 1);

my $factur_x_enabled = $tmpl_var->{invoice_obj} && $tmpl_var->{invoice_obj}->customer->create_zugferd_invoices_for_this_customer;

my ($is_linked_bank_transaction, $warn_unlinked_delivery_order);

if ($::form->{id}

&& SL::DB::Default->get->payments_changeable != 0

&& SL::DB::Manager::BankTransactionAccTrans->find_by(ar_id => $::form->{id})) {

$is_linked_bank_transaction = 1;

}

if ($::instance_conf->get_warn_no_delivery_order_for_invoice && !$form->{id}) {

$warn_unlinked_delivery_order = 1 unless $form->{convert_from_do_ids};

}

my $has_further_invoice_for_advance_payment;

if ($form->{id} && $form->{type} eq "invoice_for_advance_payment") {

my $invoice_obj = SL::DB::Invoice->load_cached($form->{id});

my $lr = $invoice_obj->linked_records(direction => 'to', to => ['Invoice']);

$has_further_invoice_for_advance_payment = any {'SL::DB::Invoice' eq ref $_ && "invoice_for_advance_payment" eq $_->type} @$lr;

}

my $has_final_invoice;

if ($form->{id} && $form->{type} eq "invoice_for_advance_payment") {

my $invoice_obj = SL::DB::Invoice->load_cached($form->{id});

my $lr = $invoice_obj->linked_records(direction => 'to', to => ['Invoice']);

$has_final_invoice = any {'SL::DB::Invoice' eq ref $_ && "final_invoice" eq $_->invoice_type} @$lr;

}

my $is_invoice_for_advance_payment_from_order;

if ($form->{id} && $form->{type} eq "invoice_for_advance_payment") {

my $invoice_obj = SL::DB::Invoice->load_cached($form->{id});

my $lr = $invoice_obj->linked_records(direction => 'from', from => ['Order']);

$is_invoice_for_advance_payment_from_order = scalar @$lr >= 1;

}

# add readonly state in tmpl_vars

$tmpl_var->{readonly} = !$may_edit_create ? 1

: $form->{locked} ? 1

: $form->{storno} ? 1

: ($form->{id} && $change_never) ? 1

: ($form->{id} && $change_on_same_day_only) ? 1

: $is_linked_bank_transaction ? 1

: 0;

for my $bar ($::request->layout->get('actionbar')) {

$bar->add(

action => [

t8('Update'),

submit => [ '#form', { action => "update" } ],

disabled => !$may_edit_create ? t8('You must not change this invoice.')

: $form->{locked} ? t8('The billing period has already been locked.')

: undef,

id => 'update_button',

accesskey => 'enter',

],

combobox => [

action => [

t8('Post'),

submit => [ '#form', { action => "post" } ],

checks => [ 'kivi.validate_form' ],

confirm => t8('The invoice is not linked with a sales delivery order. Post anyway?') x !!$warn_unlinked_delivery_order,

disabled => !$may_edit_create ? t8('You must not change this invoice.')

: $form->{locked} ? t8('The billing period has already been locked.')

: $form->{storno} ? t8('A canceled invoice cannot be posted.')

: ($form->{id} && $change_never) ? t8('Changing invoices has been disabled in the configuration.')

: ($form->{id} && $change_on_same_day_only) ? t8('Invoices can only be changed on the day they are posted.')

: $is_linked_bank_transaction ? t8('This transaction is linked with a bank transaction. Please undo and redo the bank transaction booking if needed.')

: undef,

],

action => [

t8('Post Payment'),

submit => [ '#form', { action => "post_payment" } ],

checks => [ 'kivi.validate_form' ],

disabled => !$may_edit_create ? t8('You must not change this invoice.')

: !$form->{id} ? t8('This invoice has not been posted yet.')

: $is_linked_bank_transaction ? t8('This transaction is linked with a bank transaction. Please undo and redo the bank transaction booking if needed.')

: undef,

only_if => $form->{type} ne "invoice_for_advance_payment",

],

action => [ t8('Mark as paid'),

submit => [ '#form', { action => "mark_as_paid" } ],

confirm => t8('This will remove the invoice from showing as unpaid even if the unpaid amount does not match the amount. Proceed?'),

disabled => !$may_edit_create ? t8('You must not change this invoice.')

: !$form->{id} ? t8('This invoice has not been posted yet.')

: undef,

only_if => ($::instance_conf->get_is_show_mark_as_paid && $form->{type} ne "invoice_for_advance_payment") || $form->{type} eq 'final_invoice',

],

], # end of combobox "Post"

combobox => [

action => [ t8('Storno'),

submit => [ '#form', { action => "storno" } ],

confirm => t8('Do you really want to cancel this invoice?'),

checks => [ 'kivi.validate_form' ],

disabled => !$may_edit_create ? t8('You must not change this invoice.')

: !$form->{id} ? t8('This invoice has not been posted yet.')

: $form->{storno} ? t8('Cannot storno storno invoice!')

: $form->{locked} ? t8('The billing period has already been locked.')

: !$payments_balanced ? t8('Cancelling is disallowed. Either undo or balance the current payments until the open amount matches the invoice amount')

: undef,

],

action => [ t8('Delete'),

submit => [ '#form', { action => "delete" } ],

confirm => t8('Do you really want to delete this object?'),

checks => [ 'kivi.validate_form' ],

disabled => !$may_edit_create ? t8('You must not change this invoice.')

: !$form->{id} ? t8('This invoice has not been posted yet.')

: $form->{locked} ? t8('The billing period has already been locked.')

: $change_never ? t8('Changing invoices has been disabled in the configuration.')

: $change_on_same_day_only ? t8('Invoices can only be changed on the day they are posted.')

: $has_storno ? t8('Can only delete the "Storno zu" part of the cancellation pair.')

: undef,

],

], # end of combobox "Storno"

'separator',

combobox => [

action => [ t8('Workflow') ],

action => [

t8('Use As New'),

submit => [ '#form', { action => "use_as_new" } ],

checks => [ 'kivi.validate_form' ],

disabled => !$may_edit_create ? t8('You must not change this invoice.')

: !$form->{id} ? t8('This invoice has not been posted yet.')

: undef,

],

action => [

t8('Further Invoice for Advance Payment'),

submit => [ '#form', { action => "further_invoice_for_advance_payment" } ],

checks => [ 'kivi.validate_form' ],

disabled => !$may_edit_create ? t8('You must not change this invoice.')

: !$form->{id} ? t8('This invoice has not been posted yet.')

: $has_further_invoice_for_advance_payment ? t8('This invoice has already a further invoice for advanced payment.')

: $has_final_invoice ? t8('This invoice has already a final invoice.')

: $is_invoice_for_advance_payment_from_order ? t8('This invoice was added from an order. See there.')

: undef,

only_if => $form->{type} eq "invoice_for_advance_payment",

],

action => [

t8('Final Invoice'),

submit => [ '#form', { action => "final_invoice" } ],

checks => [ 'kivi.validate_form' ],

disabled => !$may_edit_create ? t8('You must not change this invoice.')

: !$form->{id} ? t8('This invoice has not been posted yet.')

: $has_further_invoice_for_advance_payment ? t8('This invoice has a further invoice for advanced payment.')

: $has_final_invoice ? t8('This invoice has already a final invoice.')

: $is_invoice_for_advance_payment_from_order ? t8('This invoice was added from an order. See there.')

: undef,

only_if => $form->{type} eq "invoice_for_advance_payment",

],

action => [

t8('Credit Note'),

submit => [ '#form', { action => "credit_note" } ],

checks => [ 'kivi.validate_form' ],

disabled => !$may_edit_create ? t8('You must not change this invoice.')

: $form->{type} eq "credit_note" ? t8('Credit notes cannot be converted into other credit notes.')

: !$form->{id} ? t8('This invoice has not been posted yet.')

: $form->{storno} ? t8('A canceled invoice cannot be used. Please undo the cancellation first.')

: undef,

],

action => [

t8('Sales Order'),

submit => [ '#form', { action => "order" } ],

checks => [ 'kivi.validate_form' ],

disabled => !$form->{id} ? t8('This invoice has not been posted yet.') : undef,

],

], # end of combobox "Workflow"

combobox => [

action => [ t8('Export') ],

action => [

($form->{id} ? t8('Print') : t8('Preview')),

call => [ 'kivi.SalesPurchase.show_print_dialog', $form->{id} ? 'print' : 'preview' ],

checks => [ 'kivi.validate_form' ],

disabled => !$may_edit_create ? t8('You must not print this invoice.')

: !$form->{id} && $form->{locked} ? t8('The billing period has already been locked.')

: undef,

],

action => [ t8('Print and Post'),

call => [ 'kivi.SalesPurchase.show_print_dialog', 'print_and_post' ],

checks => [ 'kivi.validate_form' ],

confirm => t8('The invoice is not linked with a sales delivery order. Post anyway?') x !!$warn_unlinked_delivery_order,

disabled => !$may_edit_create ? t8('You must not change this invoice.')

: $form->{locked} ? t8('The billing period has already been locked.')

: $form->{storno} ? t8('A canceled invoice cannot be posted.')

: ($form->{id} && $change_never) ? t8('Changing invoices has been disabled in the configuration.')

: ($form->{id} && $change_on_same_day_only) ? t8('Invoices can only be changed on the day they are posted.')

: $is_linked_bank_transaction ? t8('This transaction is linked with a bank transaction. Please undo and redo the bank transaction booking if needed.')

: undef,

],

action => [ t8('E Mail'),

call => [ 'kivi.SalesPurchase.show_email_dialog' ],

checks => [ 'kivi.validate_form' ],

disabled => !$may_edit_create ? t8('You must not print this invoice.')

: !$form->{id} ? t8('This invoice has not been posted yet.')

: $form->{postal_invoice} ? t8('This customer wants a postal invoices.')

: undef,

],

action => [ t8('Factur-X/ZUGFeRD'),

submit => [ '#form', { action => "download_factur_x_xml" } ],

checks => [ 'kivi.validate_form' ],

disabled => !$may_edit_create ? t8('You must not print this invoice.')

: !$form->{id} ? t8('This invoice has not been posted yet.')

: !$factur_x_enabled ? t8('Creating Factur-X/ZUGFeRD invoices is not enabled for this customer.')

: undef,

],

], # end of combobox "Export"

combobox => [

action => [ t8('more') ],

action => [

t8('History'),

call => [ 'set_history_window', $form->{id} * 1, 'glid' ],

disabled => !$form->{id} ? t8('This invoice has not been posted yet.') : undef,

],

action => [

t8('Follow-Up'),

call => [ 'follow_up_window' ],

disabled => !$form->{id} ? t8('This invoice has not been posted yet.') : undef,

],

action => [

t8('Drafts'),

call => [ 'kivi.Draft.popup', 'is', 'invoice', $form->{draft_id}, $form->{draft_description} ],

disabled => !$may_edit_create ? t8('You must not change this invoice.')

: $form->{id} ? t8('This invoice has already been posted.')

: $form->{locked} ? t8('The billing period has already been locked.')

: undef,

],

], # end of combobox "more"

);

}

$::request->layout->add_javascripts('kivi.Validator.js');

}

sub form_header {

$main::lxdebug->enter_sub();

_assert_access();

my $form = $main::form;

my %myconfig = %main::myconfig;

my $locale = $main::locale;

my $cgi = $::request->{cgi};

my %TMPL_VAR = ();

my @custom_hiddens;

$TMPL_VAR{customer_obj} = SL::DB::Customer->load_cached($form->{customer_id}) if $form->{customer_id};

$TMPL_VAR{invoice_obj} = SL::DB::Invoice->load_cached($form->{id}) if $form->{id};

# only print, no mail

$form->{postal_invoice} = $TMPL_VAR{customer_obj}->postal_invoice if ref $TMPL_VAR{customer_obj} eq 'SL::DB::Customer';

my $current_employee = SL::DB::Manager::Employee->current;

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

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

$form->{employee_id} ||= $current_employee->id;

$form->{salesman_id} ||= $current_employee->id;

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

$form->get_lists("taxzones" => ($form->{id} ? "ALL_TAXZONES" : "ALL_ACTIVE_TAXZONES"),

"currencies" => "ALL_CURRENCIES",

"price_factors" => "ALL_PRICE_FACTORS");

$form->{ALL_DEPARTMENTS} = SL::DB::Manager::Department->get_all_sorted;

$form->{ALL_LANGUAGES} = SL::DB::Manager::Language->get_all_sorted;

$form->{ALL_DELIVERY_TERMS} = SL::DB::Manager::DeliveryTerm->get_all_sorted();

# Projects

my @old_project_ids = uniq grep { $_ } map { $_ * 1 } ($form->{"globalproject_id"}, map { $form->{"project_id_$_"} } 1..$form->{"rowcount"});

my @old_ids_cond = @old_project_ids ? (id => \@old_project_ids) : ();

my @customer_cond;

if ($::instance_conf->get_customer_projects_only_in_sales) {

@customer_cond = (

or => [

customer_id => $::form->{customer_id},

billable_customer_id => $::form->{customer_id},

]);

}

my @conditions = (

or => [

and => [ active => 1, @customer_cond ],

@old_ids_cond,

]);

$TMPL_VAR{ALL_PROJECTS} = SL::DB::Manager::Project->get_all_sorted(query => \@conditions);

$form->{ALL_PROJECTS} = $TMPL_VAR{ALL_PROJECTS}; # make projects available for second row drop-down in io.pl

$TMPL_VAR{ALL_EMPLOYEES} = SL::DB::Manager::Employee->get_all_sorted(query => [ or => [ id => $::form->{employee_id}, deleted => 0 ] ]);

$TMPL_VAR{ALL_SALESMEN} = SL::DB::Manager::Employee->get_all_sorted(query => [ or => [ id => $::form->{salesman_id}, deleted => 0 ] ]);

$TMPL_VAR{ALL_SHIPTO} = SL::DB::Manager::Shipto->get_all_sorted(query => [

or => [ trans_id => $::form->{"$::form->{vc}_id"} * 1, and => [ shipto_id => $::form->{shipto_id} * 1, trans_id => undef ] ]

]);

$TMPL_VAR{ALL_CONTACTS} = SL::DB::Manager::Contact->get_all_sorted(query => [

or => [

cp_cv_id => $::form->{"$::form->{vc}_id"} * 1,

and => [

cp_cv_id => undef,

cp_id => $::form->{cp_id} * 1

]

]

]);

# currencies and exchangerate

my @values = map { $_ } @{ $form->{ALL_CURRENCIES} };