From: Michael Wagner Date: Fri, 12 Aug 2022 11:56:13 +0000 (+0200) Subject: Merge branch 'test' of ../kivitendo-erp_20220811 X-Git-Tag: kivitendo-mebil_0.1-0~9 X-Git-Url: http://wagnertech.de/git?p=kivitendo-erp.git;a=commitdiff_plain;h=b90ff6b18df92c98b1b875d14835d1fdf9ff339a;hp=2d0387d1624b5b7ed6b13b79b9d5a87ce9b6d12b Merge branch 'test' of ../kivitendo-erp_20220811 --- diff --git a/SL/AM.pm b/SL/AM.pm index 57e6b445a..2d8ed4cff 100644 --- a/SL/AM.pm +++ b/SL/AM.pm @@ -52,6 +52,7 @@ use SL::DB::Part; use SL::DB::Vendor; use SL::DB; use SL::GenericTranslations; +use SL::Helper::UserPreferences::DisplayPreferences; use SL::Helper::UserPreferences::PositionsScrollbar; use SL::Helper::UserPreferences::PartPickerSearch; use SL::Helper::UserPreferences::TimeRecording; @@ -551,12 +552,16 @@ sub time_recording_use_duration { SL::Helper::UserPreferences::TimeRecording->new()->get_use_duration(); } +sub longdescription_dialog_size_percentage { + SL::Helper::UserPreferences::DisplayPreferences->new()->get_longdescription_dialog_size_percentage(); +} + sub save_preferences { $main::lxdebug->enter_sub(); my ($self, $form) = @_; - my $employee = SL::DB::Manager::Employee->find_by(login => $::myconfig{login}); + my $employee = SL::DB::Manager::Employee->current; $employee->update_attributes(name => $form->{name}); my $user = SL::DB::Manager::AuthUser->find_by(login => $::myconfig{login}); @@ -591,6 +596,9 @@ sub save_preferences { if (exists $form->{time_recording_use_duration}) { SL::Helper::UserPreferences::TimeRecording->new()->store_use_duration($form->{time_recording_use_duration}) } + if (exists $form->{longdescription_dialog_size_percentage}) { + SL::Helper::UserPreferences::DisplayPreferences->new()->store_longdescription_dialog_size_percentage($form->{longdescription_dialog_size_percentage}) + } $main::lxdebug->leave_sub(); @@ -1249,6 +1257,8 @@ sub save_warehouse { my ($self, $myconfig, $form) = @_; + croak('Need at least one new bin') unless $form->{number_of_new_bins} > 0; + SL::DB->client->with_transaction(sub { my $dbh = SL::DB->client->dbh; diff --git a/SL/AP.pm b/SL/AP.pm index 601083b8d..d399b7c1b 100644 --- a/SL/AP.pm +++ b/SL/AP.pm @@ -39,6 +39,7 @@ use SL::DATEV qw(:CONSTANTS); use SL::DBUtils; use SL::IO; use SL::MoreCommon; +use SL::DB::ApGl; use SL::DB::Default; use SL::DB::Draft; use SL::DB::Order; @@ -141,7 +142,7 @@ sub _post_transaction { transdate = ?, ordnumber = ?, vendor_id = ?, taxincluded = ?, amount = ?, duedate = ?, deliverydate = ?, tax_point = ?, paid = ?, netamount = ?, currency_id = (SELECT id FROM currencies WHERE name = ?), notes = ?, department_id = ?, storno = ?, storno_id = ?, - globalproject_id = ?, direct_debit = ?, payment_id = ? + globalproject_id = ?, direct_debit = ?, payment_id = ?, transaction_description = ? WHERE id = ?|; @values = ($form->{invnumber}, conv_date($form->{transdate}), $form->{ordnumber}, conv_i($form->{vendor_id}), @@ -152,7 +153,7 @@ sub _post_transaction { conv_i($form->{department_id}), $form->{storno}, $form->{storno_id}, conv_i($form->{globalproject_id}), $form->{direct_debit} ? 't' : 'f', - conv_i($form->{payment_id}), + conv_i($form->{payment_id}), $form->{transaction_description}, $form->{id}); do_query($form, $dbh, $query, @values); @@ -406,6 +407,8 @@ sub _post_transaction { SL::DB::Manager::Draft->delete_all(where => [ id => delete($form->{draft_id}) ]); } + # hook for taxkey 94 + $self->_reverse_charge($myconfig, $form); # safety check datev export if ($::instance_conf->get_datev_check_on_ap_transaction) { my $datev = SL::DATEV->new( @@ -422,12 +425,86 @@ sub _post_transaction { return 1; } +sub _reverse_charge { + my ($self, $myconfig, $form) = @_; + + # delete previous bookings, if they exists (repost) + my $ap_gl = SL::DB::Manager::ApGl->get_first(where => [ ap_id => $form->{id} ]); + my $gl_id = ref $ap_gl eq 'SL::DB::ApGl' ? $ap_gl->gl_id : undef; + + SL::DB::Manager::GLTransaction->delete_all(where => [ id => $gl_id ]) if $gl_id; + SL::DB::Manager::ApGl-> delete_all(where => [ ap_id => $form->{id} ]) if $gl_id; + SL::DB::Manager::RecordLink-> delete_all(where => [ from_table => 'ap', to_table => 'gl', from_id => $form->{id} ]); + + my ($i, $current_transaction); + + for $i (1 .. $form->{rowcount}) { + + my $tax = SL::DB::Manager::Tax->get_first( where => [id => $form->{"tax_id_$i"}, '!reverse_charge_chart_id' => undef ]); + next unless ref $tax eq 'SL::DB::Tax'; + + # gl booking + my ($credit, $debit); + $credit = SL::DB::Manager::Chart->find_by(id => $tax->chart_id); + $debit = SL::DB::Manager::Chart->find_by(id => $tax->reverse_charge_chart_id); + + croak("No such Chart ID" . $tax->chart_id) unless ref $credit eq 'SL::DB::Chart'; + croak("No such Chart ID" . $tax->reverse_chart_id) unless ref $debit eq 'SL::DB::Chart'; + + my ($tmpnetamount, $tmptaxamount) = $form->calculate_tax($form->{"amount_$i"}, $tax->rate, $form->{taxincluded}, 2); + $current_transaction = SL::DB::GLTransaction->new( + employee_id => $form->{employee_id}, + transdate => $form->{transdate}, + description => $form->{notes} || $form->{invnumber}, + reference => $form->{invnumber}, + department_id => $form->{department_id} ? $form->{department_id} : undef, + imported => 0, # not imported + taxincluded => 0, + )->add_chart_booking( + chart => $tmptaxamount > 0 ? $debit : $credit, + debit => abs($tmptaxamount), + source => "Reverse Charge for " . $form->{invnumber}, + tax_id => 0, + )->add_chart_booking( + chart => $tmptaxamount > 0 ? $credit : $debit, + credit => abs($tmptaxamount), + source => "Reverse Charge for " . $form->{invnumber}, + tax_id => 0, + )->post; + # add a stable link from ap to gl + my %props_gl = ( + ap_id => $form->{id}, + gl_id => $current_transaction->id, + ); + SL::DB::ApGl->new(%props_gl)->save; + # Record a record link from ap to gl + my %props_rl = ( + from_table => 'ap', + from_id => $form->{id}, + to_table => 'gl', + to_id => $current_transaction->id, + ); + SL::DB::RecordLink->new(%props_rl)->save; + } +} + sub delete_transaction { $main::lxdebug->enter_sub(); my ($self, $myconfig, $form) = @_; SL::DB->client->with_transaction(sub { + + # if tax 94 reverse charge, clear all GL bookings and links + my $ap_gl = SL::DB::Manager::ApGl->get_first(where => [ ap_id => $form->{id} ]); + my $gl_id = ref $ap_gl eq 'SL::DB::ApGl' ? $ap_gl->gl_id : undef; + + SL::DB::Manager::GLTransaction->delete_all(where => [ id => $gl_id ]) if $gl_id; + SL::DB::Manager::ApGl-> delete_all(where => [ ap_id => $form->{id} ]) if $gl_id; + SL::DB::Manager::RecordLink-> delete_all(where => [ from_table => 'ap', to_table => 'gl', from_id => $form->{id} ]); + # done gl delete for tax 94 case + + # begin ap delete my $query = qq|DELETE FROM ap WHERE id = ?|; do_query($form, SL::DB->client->dbh, $query, $form->{id}); 1; @@ -487,16 +564,16 @@ sub ap_transactions { # Permissions: # - Always return invoices & AP transactions for projects the employee has "view invoices" permissions for, no matter what the other rules say. # - Exclude AP transactions if no permissions for them exist. - # - Limit to own invoices unless may edit all invoices. - # - If may edit all, allow filtering by employee. + # - Limit to own invoices unless may edit all invoices or view invoices is allowed. + # - If may edit all or view invoices is allowed, allow filtering by employee. my (@permission_where, @permission_values); - if ($::auth->assert('vendor_invoice_edit', 1)) { + if ($::auth->assert('vendor_invoice_edit', 1) || $::auth->assert('purchase_invoice_view', 1)) { if (!$::auth->assert('show_ap_transactions', 1)) { push @permission_where, "NOT invoice = 'f'"; # remove ap transactions from Purchase -> Reports -> Invoices } - if (!$::auth->assert('purchase_all_edit', 1)) { + if (!$::auth->assert('purchase_all_edit', 1) && !$::auth->assert('purchase_invoice_view', 1)) { # only show own invoices push @permission_where, "a.employee_id = ?"; push @permission_values, SL::DB::Manager::Employee->current->id; @@ -509,7 +586,7 @@ sub ap_transactions { } } - if (@permission_where || !$::auth->assert('vendor_invoice_edit', 1)) { + if (@permission_where || (!$::auth->assert('vendor_invoice_edit', 1) && !$::auth->assert('purchase_invoice_view', 1))) { my $permission_where_str = @permission_where ? "OR (" . join(" AND ", map { "($_)" } @permission_where) . ")" : ""; $where .= qq| AND ( (a.globalproject_id IN ( @@ -541,12 +618,16 @@ sub ap_transactions { $where .= " AND a.ordnumber ILIKE ?"; push(@values, like($form->{ordnumber})); } + if ($form->{taxzone_id}) { + $where .= " AND a.taxzone_id = ?"; + push(@values, $form->{taxzone_id}); + } if ($form->{transaction_description}) { $where .= " AND a.transaction_description ILIKE ?"; push(@values, like($form->{transaction_description})); } if ($form->{notes}) { - $where .= " AND lower(a.notes) LIKE ?"; + $where .= " AND a.notes ILIKE ?"; push(@values, like($form->{notes})); } if ($form->{project_id}) { @@ -621,7 +702,7 @@ SQL my $sortdir = !defined $form->{sortdir} ? 'ASC' : $form->{sortdir} ? 'ASC' : 'DESC'; my $sortorder = join(', ', map { "$_ $sortdir" } @a); - if (grep({ $_ eq $form->{sort} } qw(transdate id invnumber ordnumber name netamount tax amount paid datepaid due duedate notes employee transaction_description direct_debit department))) { + if (grep({ $_ eq $form->{sort} } qw(transdate id invnumber ordnumber name netamount tax amount paid datepaid due duedate notes employee transaction_description direct_debit department taxzone))) { $sortorder = $form->{sort} . " $sortdir"; } diff --git a/SL/AR.pm b/SL/AR.pm index b856f44a7..db8a4aca7 100644 --- a/SL/AR.pm +++ b/SL/AR.pm @@ -138,14 +138,15 @@ sub _post_transaction { currency_id = (SELECT id FROM currencies WHERE name = ?), netamount = ?, notes = ?, department_id = ?, employee_id = ?, storno = ?, storno_id = ?, globalproject_id = ?, - direct_debit = ? + direct_debit = ?, transaction_description = ? WHERE id = ?|; my @values = ($form->{invnumber}, $form->{ordnumber}, conv_date($form->{transdate}), conv_i($form->{customer_id}), $form->{taxincluded} ? 't' : 'f', $form->{amount}, conv_date($form->{duedate}), conv_date($form->{deliverydate}), conv_date($form->{tax_point}), $form->{paid}, $form->{currency}, $form->{netamount}, $form->{notes}, conv_i($form->{department_id}), 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})); + conv_i($form->{globalproject_id}), $form->{direct_debit} ? 't' : 'f', $form->{transaction_description}, + conv_i($form->{id})); do_query($form, $dbh, $query, @values); # add individual transactions for AR, amount and taxes @@ -487,6 +488,7 @@ sub ar_transactions { qq| a.shippingpoint, a.storno, a.storno_id, a.globalproject_id, | . qq| a.marge_total, a.marge_percent, | . qq| a.transaction_description, a.direct_debit, | . + qq| a.type, | . qq| pr.projectnumber AS globalprojectnumber, | . qq| c.name, c.customernumber, c.country, c.ustid, b.description as customertype, | . qq| c.id as customer_id, | . @@ -520,16 +522,16 @@ sub ar_transactions { # Permissions: # - Always return invoices & AR transactions for projects the employee has "view invoices" permissions for, no matter what the other rules say. # - Exclude AR transactions if no permissions for them exist. - # - Limit to own invoices unless may edit all invoices. - # - If may edit all, allow filtering by employee/salesman. + # - Limit to own invoices unless may edit all invoices or view invoices is allowed. + # - If may edit all or view invoices is allowed, allow filtering by employee/salesman. my (@permission_where, @permission_values); - if ($::auth->assert('invoice_edit', 1)) { + if ($::auth->assert('invoice_edit', 1) || $::auth->assert('sales_invoice_view', 1)) { if (!$::auth->assert('show_ar_transactions', 1) ) { push @permission_where, "NOT invoice = 'f'"; # remove ar transactions from Sales -> Reports -> Invoices } - if (!$::auth->assert('sales_all_edit', 1)) { + if (!$::auth->assert('sales_all_edit', 1) && !$::auth->assert('sales_invoice_view', 1)) { # only show own invoices push @permission_where, "a.employee_id = ?"; push @permission_values, SL::DB::Manager::Employee->current->id; @@ -546,7 +548,7 @@ sub ar_transactions { } } - if (@permission_where || !$::auth->assert('invoice_edit', 1)) { + if (@permission_where || (!$::auth->assert('invoice_edit', 1) && !$::auth->assert('sales_invoice_view', 1))) { my $permission_where_str = @permission_where ? "OR (" . join(" AND ", map { "($_)" } @permission_where) . ")" : ""; $where .= qq| AND ( (a.globalproject_id IN ( @@ -571,11 +573,11 @@ sub ar_transactions { $where .= " AND c.business_id = ?"; push(@values, $business_id); } - if ($form->{department_id}) { - $where .= " AND a.department_id = ?"; - push(@values, $form->{department_id}); + if ($form->{taxzone_id}) { + $where .= " AND a.taxzone_id = ?"; + push(@values, $form->{taxzone_id}); } - foreach my $column (qw(invnumber ordnumber cusordnumber notes transaction_description)) { + foreach my $column (qw(invnumber ordnumber cusordnumber notes transaction_description shipvia shippingpoint)) { if ($form->{$column}) { $where .= " AND a.$column ILIKE ?"; push(@values, like($form->{$column})); @@ -683,7 +685,7 @@ SQL my $sortdir = !defined $form->{sortdir} ? 'ASC' : $form->{sortdir} ? 'ASC' : 'DESC'; my $sortorder = join(', ', map { "$_ $sortdir" } @a); - if (grep({ $_ eq $form->{sort} } qw(id transdate duedate invnumber ordnumber cusordnumber donumber deliverydate name datepaid employee shippingpoint shipvia transaction_description department))) { + if (grep({ $_ eq $form->{sort} } qw(id transdate duedate invnumber ordnumber cusordnumber donumber deliverydate name datepaid employee shippingpoint shipvia transaction_description department taxzone))) { $sortorder = $form->{sort} . " $sortdir"; } diff --git a/SL/BackgroundJob/CreateOrUpdateFileFullTexts.pm b/SL/BackgroundJob/CreateOrUpdateFileFullTexts.pm new file mode 100644 index 000000000..055accda3 --- /dev/null +++ b/SL/BackgroundJob/CreateOrUpdateFileFullTexts.pm @@ -0,0 +1,144 @@ +package SL::BackgroundJob::CreateOrUpdateFileFullTexts; + +use strict; + +use parent qw(SL::BackgroundJob::Base); + +use Encode qw(decode); +use English qw( -no_match_vars ); +use File::Slurp qw(read_file); +use List::MoreUtils qw(uniq); +use IPC::Run qw(); +use Unicode::Normalize qw(); + +use SL::DB::File; +use SL::DB::FileFullText; +use SL::HTML::Util; + +my %extractor_by_mime_type = ( + 'application/pdf' => \&_pdf_to_strings, + 'text/html' => \&_html_to_strings, + 'text/plain' => \&_text_to_strings, +); + +sub create_job { + $_[0]->create_standard_job('20 3 * * *'); # # every day at 3:20 am +} + +# +# If job does not throw an error, +# success in background_job_histories is 'success'. +# It is 'failure' otherwise. +# +# return value goes to result in background_job_histories +# +sub run { + my $self = shift; + my $db_obj = shift; + + my $all_dbfiles = SL::DB::Manager::File->get_all; + + foreach my $dbfile (@$all_dbfiles) { + next if $dbfile->full_text && (($dbfile->mtime || $dbfile->itime) <= ($dbfile->full_text->mtime || $dbfile->full_text->itime)); + next if !defined $extractor_by_mime_type{$dbfile->mime_type}; + + my $file_name; + if (!eval { $file_name = SL::File->get(dbfile => $dbfile)->get_file(); 1; }) { + $::lxdebug->message(LXDebug::WARN(), "CreateOrUpdateFileFullTexts::run: get_file failed: " . $EVAL_ERROR); + next; + } + + my $text = $extractor_by_mime_type{$dbfile->mime_type}->($file_name); + + if ($dbfile->full_text) { + $dbfile->full_text->update_attributes(full_text => $text); + } else { + SL::DB::FileFullText->new(file => $dbfile, full_text => $text)->save; + } + } + + return 'ok'; +} + +sub _pdf_to_strings { + my ($file_name) = @_; + + my @cmd = qw(pdftotext -enc UTF-8); + push @cmd, $file_name; + push @cmd, '-'; + + my ($txt, $err); + + IPC::Run::run \@cmd, \undef, \$txt, \$err; + + if ($CHILD_ERROR) { + $::lxdebug->message(LXDebug::WARN(), "CreateOrUpdateFileFullTexts::_pdf_to_text failed for '$file_name': " . ($CHILD_ERROR >> 8) . ": " . $err); + return ''; + } + + $txt = Encode::decode('utf-8-strict', $txt); + $txt =~ s{\r}{ }g; + $txt =~ s{\p{WSpace}+}{ }g; + $txt = Unicode::Normalize::normalize('C', $txt); + $txt = join ' ' , uniq(split(' ', $txt)); + + return $txt; +} + +sub _html_to_strings { + my ($file_name) = @_; + + my $txt = read_file($file_name); + + $txt = Encode::decode('utf-8-strict', $txt); + $txt = SL::HTML::Util::strip($txt); + $txt =~ s{\r}{ }g; + $txt =~ s{\p{WSpace}+}{ }g; + $txt = Unicode::Normalize::normalize('C', $txt); + $txt = join ' ' , uniq(split(' ', $txt)); + + return $txt; +} + +sub _text_to_strings { + my ($file_name) = @_; + + my $txt = read_file($file_name); + + $txt = Encode::decode('utf-8-strict', $txt); + $txt =~ s{\r}{ }g; + $txt =~ s{\p{WSpace}+}{ }g; + $txt = Unicode::Normalize::normalize('C', $txt); + $txt = join ' ' , uniq(split(' ', $txt)); + + return $txt; +} + +1; + +__END__ + +=pod + +=encoding utf8 + +=head1 NAME + +SL::BackgroundJob::CreateOrUpdateFileFullTexts - Extract text strings/words from +files in the DMS for full text search. + +=head1 SYNOPSIS + +Search all documents in the files table and try to extract strings from them +and store the strings in the database. + +Duplicate strings/words in one text are removed. + +Strings are updated if the change or creation time of the document is newer than +the old entry. + +=head1 AUTHOR + +Bernd Bleßmann Ebernd@kivitendo-premium.deE + +=cut diff --git a/SL/BackgroundJob/CreatePeriodicInvoices.pm b/SL/BackgroundJob/CreatePeriodicInvoices.pm index 6151ec158..4e3206317 100644 --- a/SL/BackgroundJob/CreatePeriodicInvoices.pm +++ b/SL/BackgroundJob/CreatePeriodicInvoices.pm @@ -143,8 +143,10 @@ sub _replace_vars { my $sub_fmt = lc($params{attribute_format} // 'text'); my ($start_tag, $end_tag) = $sub_fmt eq 'html' ? ('<%', '%>') : ('<%', '%>'); + my @invoice_keys = $params{invoice} ? (map { $_->name } $params{invoice}->meta->columns) : (); + my $key_name_re = join '|', map { quotemeta } (@invoice_keys, keys %{ $params{vars} }); - $str =~ s{ ${start_tag} ([a-z0-9_]+) ( \s+ format \s*=\s* (.*?) \s* )? ${end_tag} }{ + $str =~ s{ ${start_tag} ($key_name_re) ( \s+ format \s*=\s* (.*?) \s* )? ${end_tag} }{ my ($key, $format) = ($1, $3); $key = $::locale->unquote_special_chars('html', $key) if $sub_fmt eq 'html'; my $new_value; @@ -449,6 +451,7 @@ sub _email_invoice { longdescription => 'html', partnotes => 'html', notes => 'html', + $::form->get_variable_content_types_for_cvars, }, ); @@ -470,7 +473,7 @@ sub _email_invoice { invoice => $data->{invoice}, vars => $data->{time_period_vars}, attribute => $_, - attribute_format => 'text' + attribute_format => ($_ eq 'email_body' ? 'html' : 'text') ); } @@ -486,6 +489,8 @@ sub _email_invoice { $mail->{bcc} = $global_bcc; $mail->{subject} = $data->{config}->email_subject; $mail->{message} = $data->{config}->email_body; + $mail->{message} .= SL::DB::Default->get->signature; + $mail->{content_type} = 'text/html'; $mail->{attachments} = [{ path => $pdf_file_name, name => sprintf('%s %s.pdf', $label, $data->{invoice}->invnumber), diff --git a/SL/BackgroundJob/MassRecordCreationAndPrinting.pm b/SL/BackgroundJob/MassRecordCreationAndPrinting.pm index 0ab03bd4e..4cc2519d5 100644 --- a/SL/BackgroundJob/MassRecordCreationAndPrinting.pm +++ b/SL/BackgroundJob/MassRecordCreationAndPrinting.pm @@ -11,6 +11,7 @@ use SL::DB::Invoice; use SL::DB::Printer; use SL::SessionFile; use SL::Template; +use SL::ARAP; use SL::Locale::String qw(t8); use SL::Helper::MassPrintCreatePDF qw(:all); use SL::Helper::CreatePDF qw(:all); @@ -41,6 +42,7 @@ sub create_invoices { my $job_obj = $self->{job_obj}; my $db = $job_obj->db; + my $dbh = $db->dbh; $job_obj->set_data(status => CONVERTING_DELIVERY_ORDERS())->save; @@ -56,6 +58,25 @@ sub create_invoices { die $db->error if !$invoice; + ARAP->close_orders_if_billed('dbh' => $dbh, + 'arap_id' => $invoice->id, + 'table' => 'ar',); + + # update shop status + my @linked_shop_orders = $invoice->linked_records( + from => 'ShopOrder', + via => [ 'DeliveryOrder', 'Order' ], + ); + #if (scalar @linked_shop_orders[0][0] >= 1){ + #do update + my $shop_order = $linked_shop_orders[0][0]; + if ($shop_order){ + require SL::Shop; + my $shop_config = SL::DB::Manager::Shop->get_first( query => [ id => $shop_order->shop_id ] ); + my $shop = SL::Shop->new( config => $shop_config ); + $shop->connector->set_orderstatus($shop_order->shop_trans_id, "completed"); + } + $data->{num_created}++; push @{ $data->{invoice_ids} }, $invoice->id; push @{ $self->{invoices} }, $invoice; diff --git a/SL/BackgroundJob/SelfTest/Transactions.pm b/SL/BackgroundJob/SelfTest/Transactions.pm index 9eda7222c..ab145cece 100644 --- a/SL/BackgroundJob/SelfTest/Transactions.pm +++ b/SL/BackgroundJob/SelfTest/Transactions.pm @@ -472,6 +472,7 @@ sub check_ar_acc_trans_amount { from acc_trans ac left join ar on (ac.trans_id = ar.id) WHERE ac.chart_link like 'AR_amount%' AND ac.transdate >= ? AND ac.transdate <= ? + AND ar.type = 'invoice' group by invnumber,netamount having sum(ac.amount) <> ar.netamount|; my $ar_amount_not_ac_amount = selectall_hashref_query($::form, $self->dbh, $query, $self->fromdate, $self->todate); diff --git a/SL/CT.pm b/SL/CT.pm index 031ef112d..b52c8794a 100644 --- a/SL/CT.pm +++ b/SL/CT.pm @@ -42,6 +42,7 @@ use SL::Common; use SL::CVar; use SL::DBUtils; use SL::DB; +use SL::Util qw(trim); use Text::ParseWords; use strict; @@ -244,6 +245,28 @@ sub search { push @values, $form->{create_zugferd_invoices}; } + if ($form->{all_phonenumbers}) { + my $search_term = trim($form->{all_phonenumbers}); + $search_term =~ s{\p{WSpace}+}{}g; + $search_term = join ' *', split(//, $search_term); + + $where .= qq| AND (ct.phone ~* ? OR + ct.fax ~* ? OR + ct.id IN + (SELECT cp_cv_id FROM contacts + WHERE cp_phone1 ~* ? OR + cp_phone2 ~* ? OR + cp_fax ~* ? OR + cp_mobile1 ~* ? OR + cp_mobile2 ~* ? OR + cp_satphone ~* ? OR + cp_satfax ~* ? OR + cp_privatphone ~* ? + ) + )|; + push @values, ($search_term)x10; + } + my ($cvar_where, @cvar_values) = CVar->build_filter_query('module' => 'CT', 'trans_id_field' => 'ct.id', 'filter' => $form); @@ -289,6 +312,7 @@ sub search { qq|SELECT ct.*, ct.itime::DATE AS insertdate, b.description AS business, e.name as salesman, | . qq| pt.description as payment | . $pg_select . + $main_cp_select . qq|, a.invnumber, a.ordnumber, a.quonumber, a.id AS invid, | . qq| '$module' AS module, 'invoice' AS formtype, | . qq| (a.amount = a.paid) AS closed | . @@ -308,6 +332,7 @@ sub search { qq|SELECT ct.*, ct.itime::DATE AS insertdate, b.description AS business, e.name as salesman, | . qq| pt.description as payment | . $pg_select . + $main_cp_select . qq|, ' ' AS invnumber, o.ordnumber, o.quonumber, o.id AS invid, | . qq| 'oe' AS module, 'order' AS formtype, o.closed | . qq|FROM $cv ct | . @@ -326,6 +351,7 @@ sub search { qq|SELECT ct.*, ct.itime::DATE AS insertdate, b.description AS business, e.name as salesman, | . qq| pt.description as payment | . $pg_select . + $main_cp_select . qq|, ' ' AS invnumber, o.ordnumber, o.quonumber, o.id AS invid, | . qq| 'oe' AS module, 'quotation' AS formtype, o.closed | . qq|FROM $cv ct | . diff --git a/SL/CVar.pm b/SL/CVar.pm index a905edee7..637f129c8 100644 --- a/SL/CVar.pm +++ b/SL/CVar.pm @@ -10,6 +10,7 @@ use Data::Dumper; use SL::DBUtils; use SL::MoreCommon qw(listify); +use SL::Presenter::Text; use SL::Util qw(trim); use SL::DB; @@ -46,7 +47,7 @@ SQL } elsif ($config->{type} eq 'number') { $config->{precision} = $1 if ($config->{options} =~ m/precision=(\d+)/i); - } elsif ($config->{type} eq 'textfield') { + } elsif ($config->{type} =~ m{^(?:html|text)field$}) { $config->{width} = 30; $config->{height} = 5; $config->{width} = $1 if ($config->{options} =~ m/width=(\d+)/i); @@ -112,7 +113,7 @@ sub get_custom_variables { my $custom_variables = $self->get_configs(module => $params{module}); foreach my $cvar (@{ $custom_variables }) { - if ($cvar->{type} eq 'textfield') { + if ($cvar->{type} =~ m{^(?:html|text)field}) { $cvar->{width} = 30; $cvar->{height} = 5; @@ -271,7 +272,7 @@ sub _save_custom_variables { my $value = $params{variables}->{"$params{name_prefix}cvar_$config->{name}$params{name_postfix}"}; - if (($config->{type} eq 'text') || ($config->{type} eq 'textfield') || ($config->{type} eq 'select')) { + if (any { $config->{type} eq $_ } qw(text textfield htmlfield select)) { push @values, undef, undef, $value, undef; } elsif (($config->{type} eq 'date') || ($config->{type} eq 'timestamp')) { @@ -375,7 +376,7 @@ sub build_filter_query { my (@sub_values, @sub_where, $not); - if (($config->{type} eq 'text') || ($config->{type} eq 'textfield')) { + if (any { $config->{type} eq $_ } qw(text textfield htmlfield)) { next unless ($params{filter}->{$name}); push @sub_where, qq|cvar.text_value ILIKE ?|; @@ -525,6 +526,7 @@ sub add_custom_variables_to_report { : $cfg->{type} eq 'vendor' ? (SL::DB::Manager::Vendor->find_by(id => 1*$ref->{number_value}) || SL::DB::Vendor->new)->name : $cfg->{type} eq 'part' ? (SL::DB::Manager::Part->find_by(id => 1*$ref->{number_value}) || SL::DB::Part->new)->partnumber : $cfg->{type} eq 'bool' ? ($ref->{bool_value} ? $locale->text('Yes') : $locale->text('No')) + : $cfg->{type} eq 'htmlfield' ? SL::Presenter::Text::stripped_html($ref->{text_value}) : $ref->{text_value}; } } diff --git a/SL/Clipboard/Base.pm b/SL/Clipboard/Base.pm deleted file mode 100644 index fc0a16a1f..000000000 --- a/SL/Clipboard/Base.pm +++ /dev/null @@ -1,236 +0,0 @@ -package SL::Clipboard::Base; - -use strict; - -use parent qw(Rose::Object); - -use Rose::Object::MakeMethods::Generic ( - 'scalar --get_set_init' => [ qw(content timestamp) ], -); - -use Rose::DB::Object::Helpers (); - -sub init_timestamp { die "'timestamp' property not set"; } -sub init_content { die "'content' property not set"; } - -sub type { - my ($self_or_class) = @_; - return (split m/::/, ref($self_or_class) ? ref($self_or_class) : $self_or_class)[-1]; -} - -sub reload_object { - my ($self, $object) = @_; - - return ref($object)->new(map { $_ => $object->$_ } $object->meta->primary_key)->load; -} - -sub as_tree { - my ($self, $object, %params) = @_; - - my $tree = Rose::DB::Object::Helpers::as_tree($object, %params); - $self->_fix_tree($tree, $object); - return $tree; -} - -sub to_object { - my ($self) = @_; - my $object = Rose::DB::Object::Helpers::new_from_tree("SL::DB::" . $self->type, $self->content); - - # Reset primary key columns and itime/mtime if the class supports it. - foreach ($object->meta->primary_key, 'itime', 'mtime') { - $object->$_(undef) if $object->can($_); - } - - # Let sub classes fix the objects further. - $self->_fix_object($object); - return $object; -} - -sub dump { - my ($self, $object) = @_; - return $self->as_tree($self->reload_object($object), max_depth => 1); -} - -sub describe { - die "'describe' method not overwritten by derived class"; -} - -sub _fix_object { - my ($self, $object) = @_; - # To be overwritten by child classes. -} - -sub _fix_tree { - my ($self, $tree, $object) = @_; - - # Delete primary key columns and itime/mtime if the class supports it. - foreach ($object->meta->primary_key, 'itime', 'mtime') { - delete $tree->{$_} if $object->can($_); - } -} - -sub _binary_column_names { - my ($self, $class) = @_; - return map { $_->name } - grep { ref($_) =~ m/Pg::Bytea$/i } - @{ $class->meta->columns }; -} - -1; -__END__ - -=pod - -=encoding utf8 - -=head1 NAME - -SL::Clipboard::Base - Base class for clipboard specialization classes - -=head1 SYNOPSIS - -See the synopsis of L. - -=head1 OVERVIEW - -This is a base class providing a lot of utility and -defaults. Sub-classes must overwrite at least the function -L but can overwrite others as well. - -Writing a specialized sub-class for a database type involves -overwriting one or more functions. These are: - -=over 4 - -=item * C - -Must be overwritten. Returns a human-readable description of the -content. Should only be one line. - -=item * C - -Optional. Overwrite if sub-class needs to dump more/less than the -implementation in this class dumps. - -=item * C<_fix_object> - -Optional. Overwrite if re-created Rose::DB::Object instances must be -cleaned further before they're returned to the caller. - -=item * C<_fix_tree> - -Optional. Overwrite if the tree created during a copy operation of a -Rose::DB::Object instance must be cleaned further before it's stored. - -=back - -You don't have to or should not overwrite the other functions: - -=over 4 - -=item * C - -=item * C - -=item * C - -=item * C - -=back - -Don't forget to C the specialized module here in Base! - -=head1 FUNCTIONS - -=over 4 - -=item C - -A convenience function calling L -with C<$object> and C<%params> as parameters. Returns a hash/array -reference tree of the function. - -Don't overwrite this function in sub-classes. Overwrite L -instead. - -=item C - -Returns a human-readable description of the content. This should only -be a single line without any markup. - -Sub-classes must overwrite this function. - -=item C - -Dumps the object as a hash/array tree and returns it by calling -L. The default implementation -reloads the object first by calling L. It also only -dumps the object itself, not any of the relationships, by calling -C with the parameter C 1>. - -Overwrite this in a sub-class if you need to dump more or differently -(see L for an example). - -=item C - -Reloads C<$object> from the database and returns a new instance. Can -be useful for sanitizing the object given to L before -converting into a tree. It is used by the default implementation of -L. - -=item C - -Converts the dumped representation back to a Rose::DB::Object -instance. Several columns of the newly created object are cleared by -C itself: the primary key columns (if any) and the columns -C and C (if the object has such columns). - -This function should not be overwritten by sub-classes. Instead, -functions can overwrite C<_fix_object> which can be used for sanitizing -the newly created object before handing it back to the caller. - -=item C - -Returns the actual clipped type (e.g. C). This is -derived from the actual class name of C<$self>. - -=item C<_binary_column_names $class> - -Returns an array of column names that have a binary type. Useful for -sub-classes which need to encode binary content in Base64 during -C. - -=item C<_fix_object $object> - -This function is called by L before the object is passed -back to the caller. It does not do anything in the default -implementation, but sub-classes are free to overwrite it if they need -to sanitize the object. See L for -an example. - -Its return value is ignored. - -=item C<_fix_tree $tree, $object> - -This function is called by L after dumping and before the -object is stored during a copy operation. In the default -implementation all primary key columns and the columns C and -C (if the object has such columns) are removed from the tree. -Sub-classes are free to overwrite it if they need to sanitize the -tree. See L for an example. - -C<$object> is just passed in for reference and should not be modified. - -Its return value is ignored. - -=back - -=head1 BUGS - -Nothing here yet. - -=head1 AUTHOR - -Moritz Bunkus Em.bunkus@linet-services.deE - -=cut diff --git a/SL/Clipboard/RequirementSpecItem.pm b/SL/Clipboard/RequirementSpecItem.pm deleted file mode 100644 index 85bd5d967..000000000 --- a/SL/Clipboard/RequirementSpecItem.pm +++ /dev/null @@ -1,101 +0,0 @@ -package SL::Clipboard::RequirementSpecItem; - -use strict; - -use parent qw(SL::Clipboard::Base); - -use List::Util qw(sum); - -use SL::Common; -use SL::Locale::String; - -sub dump { - my ($self, $object) = @_; - - return $self->as_tree(_load_children($self->reload_object($object)), exclude => sub { ref($_[0]) !~ m/::RequirementSpecItem$/ }); -} - -sub describe { - my ($self) = @_; - - my $item = $self->content; - my $num_children = @{ $item->{children} || [] }; - my $num_grandchildren = sum map { scalar(@{ $_->{children} || [] }) } @{ $item->{children} || [] }; - - if ($item->{item_type} eq 'section') { - return t8('Requirement spec section #1 "#2" with #3 function blocks and a total of #4 sub function blocks; preamble: "#5"', - $item->{fb_number}, $item->{title}, $num_children, $num_grandchildren, Common::truncate($item->{description}, strip => 'full')); - } elsif ($item->{item_type} eq 'function-block') { - return t8('Requirement spec function block #1 with #2 sub function blocks; description: "#3"', - $item->{fb_number}, $num_children, Common::truncate($item->{description}, strip => 'full')); - } else { - return t8('Requirement spec sub function block #1; description: "#2"', - $item->{fb_number}, Common::truncate($item->{description}, strip => 'full')); - } -} - -sub _load_children { - my ($object) = @_; - - _load_children($_) for @{ $object->children }; - - return $object; -} - -sub _fix_object { - my ($self, $object) = @_; - - $object->$_(undef) for qw(fb_number); - $self->_fix_object($_) for @{ $object->children || [] }; -} - -sub _fix_tree { - my ($self, $tree, $object) = @_; - - delete @{ $tree }{ qw(id itime mtime parent_id position requirement_spec_id) }; - $self->_fix_tree($_) for @{ $tree->{children} || [] }; -} - -1; -__END__ - -=pod - -=encoding utf8 - -=head1 NAME - -SL::Clipboard::RequirementSpecItem - Clipboard specialization for -SL::DB::RequirementSpecItem - -=head1 FUNCTIONS - -=over 4 - -=item C - -Returns a human-readable description depending on the copied type -(section, function block or sub function block). - -=item C - -This specialization reloads C<$object> from the database, loads all of -its children (but only the other requirement spec items, no other -relationships) and dumps it. - -=item C<_fix_object $object> - -Fixes C<$object> and all of its children by clearing certain columns -like the position or function block numbers. - -=back - -=head1 BUGS - -Nothing here yet. - -=head1 AUTHOR - -Moritz Bunkus Em.bunkus@linet-services.deE - -=cut diff --git a/SL/Clipboard/RequirementSpecPicture.pm b/SL/Clipboard/RequirementSpecPicture.pm deleted file mode 100644 index 7a3757f82..000000000 --- a/SL/Clipboard/RequirementSpecPicture.pm +++ /dev/null @@ -1,84 +0,0 @@ -package SL::Clipboard::RequirementSpecPicture; - -use strict; - -use parent qw(SL::Clipboard::Base); - -use SL::Common; -use SL::Locale::String; -use MIME::Base64; - -sub dump { - my ($self, $object) = @_; - - $self->reload_object($object); - - my $tree = $self->as_tree($object, exclude => sub { ref($_[0]) !~ m/::RequirementSpecPicture$/ }); - $tree->{$_} = encode_base64($tree->{$_}, '') for $self->_binary_column_names('SL::DB::RequirementSpecPicture'); - - return $tree; -} - -sub describe { - my ($self) = @_; - - return t8('Requirement spec picture "#1"', $self->content->{description} ? $self->content->{description} . ' (' . $self->content->{picture_file_name} . ')' : $self->content->{picture_file_name}); -} - -sub _fix_object { - my ($self, $object) = @_; - - $object->$_(undef) for qw(number); - $object->$_(decode_base64($object->$_)) for $self->_binary_column_names('SL::DB::RequirementSpecPicture'); - - return $object; -} - -1; -__END__ - -=pod - -=encoding utf8 - -=head1 NAME - -SL::Clipboard::RequirementSpecPicture - Clipboard specialization for -SL::DB::RequirementSpecPicture - -=head1 NOTES - -The underlying RDBO model contains binary columns, but binary data -cannot be dumped as YAML. Therefore the binary content is encoded in -Base64 in L and decoded back to binary form in L. - -=head1 FUNCTIONS - -=over 4 - -=item C - -Returns a human-readable description including the title and an -excerpt of its content. - -=item C - -This specialization reloads C<$object> from the database, and dumps -it. Binary columns are dumped encoded in Base64. - -=item C<_fix_object $object> - -Fixes C<$object> by clearing certain columns like the number. Also -decodes binary columns from Base64 back to binary. - -=back - -=head1 BUGS - -Nothing here yet. - -=head1 AUTHOR - -Moritz Bunkus Em.bunkus@linet-services.deE - -=cut diff --git a/SL/Clipboard/RequirementSpecTextBlock.pm b/SL/Clipboard/RequirementSpecTextBlock.pm deleted file mode 100644 index 4b40a8e8c..000000000 --- a/SL/Clipboard/RequirementSpecTextBlock.pm +++ /dev/null @@ -1,81 +0,0 @@ -package SL::Clipboard::RequirementSpecTextBlock; - -use strict; - -use parent qw(SL::Clipboard::Base); - -use SL::Clipboard::RequirementSpecPicture; -use SL::Common; -use SL::Locale::String; - -sub dump { - my ($self, $object) = @_; - - $self->reload_object($object); - - my $tree = $self->as_tree($object, exclude => sub { ref($_[0]) !~ m/::RequirementSpecTextBlock$/ }); - $tree->{pictures} = [ map { SL::Clipboard::RequirementSpecPicture->new->dump($_) } @{ $object->pictures } ]; - - return $tree; -} - -sub describe { - my ($self) = @_; - - return t8('Requirement spec text block "#1"; content: "#2"', $self->content->{title}, Common::truncate($self->content->{text}, strip => 'full')); -} - -sub _fix_object { - my ($self, $object) = @_; - - $object->$_(undef) for qw(output_position position requirement_spec_id); - - SL::Clipboard::RequirementSpecPicture->new->_fix_object($_) for @{ $object->pictures || [] }; - - return $object; -} - -1; -__END__ - -=pod - -=encoding utf8 - -=head1 NAME - -SL::Clipboard::RequirementSpecTextBlock - Clipboard specialization for -SL::DB::RequirementSpecTextBlock - -=head1 FUNCTIONS - -=over 4 - -=item C - -Returns a human-readable description including the title and an -excerpt of its content. - -=item C - -This specialization reloads C<$object> from the database, loads all of -its pictures and dumps it. The pictures are dumped using the clipboard -specialization for it, L. - -=item C<_fix_object $object> - -Fixes C<$object> by clearing certain columns like the position. Lets -pictures be fixed by the clipboard specialization for it, -L. - -=back - -=head1 BUGS - -Nothing here yet. - -=head1 AUTHOR - -Moritz Bunkus Em.bunkus@linet-services.deE - -=cut diff --git a/SL/Common.pm b/SL/Common.pm index fb1b4b850..126a30ed8 100644 --- a/SL/Common.pm +++ b/SL/Common.pm @@ -25,6 +25,7 @@ use Encode qw(decode); use SL::DBUtils; use SL::DB; +use SL::HTML::Util; sub unique_id { my ($a, $b) = gettimeofday(); @@ -342,6 +343,11 @@ sub get_vc_details { $query = qq|SELECT * FROM shipto WHERE (trans_id = ?)|; $form->{SHIPTO} = selectall_hashref_query($form, $dbh, $query, $vc_id); + if ($vc eq 'customer') { + $query = qq|SELECT * FROM additional_billing_addresses WHERE (customer_id = ?)|; + $form->{ADDITIONAL_BILLING_ADDRESSES} = selectall_hashref_query($form, $dbh, $query, $vc_id); + } + $query = qq|SELECT * FROM contacts WHERE (cp_cv_id = ?)|; $form->{CONTACTS} = selectall_hashref_query($form, $dbh, $query, $vc_id); @@ -382,6 +388,8 @@ sub save_email_status { my ($self, $myconfig, $form) = @_; + return unless ($::instance_conf->get_email_journal); + my ($table, $query, $dbh); if ($form->{script} eq 'oe.pl') { @@ -418,7 +426,7 @@ sub save_email_status { . $main::locale->text('To (email)') . ": $form->{email}\n" . "${cc}${bcc}" . $main::locale->text('Subject') . ": $form->{subject}\n\n" - . $main::locale->text('Message') . ": $form->{message}"; + . $main::locale->text('Message') . ": " . SL::HTML::Util->strip($form->{message}); $intnotes =~ s|\r||g; @@ -588,8 +596,10 @@ sub copy_file_to_webdav_folder { return; } + $form->{attachment_filename} ||= $form->generate_attachment_filename; + my $timestamp = get_current_formatted_time(); - my $new_file = File::Spec->catfile($form->{cwd}, $webdav_folder, $form->generate_attachment_filename()); + my $new_file = File::Spec->catfile($form->{cwd}, $webdav_folder, $form->{attachment_filename}); $new_file =~ s{(.*)\.}{$1$timestamp\.}; if (!File::Copy::copy($current_file, $new_file)) { @@ -638,6 +648,11 @@ C (replace consecutive line feed/carriage return characters in the middle by a single space and remove tailing line feed/carriage return characters). +=item C + +Adds sending information to internal notes. +Does nothing if the client config email_journal is enabled. + =back =head1 BUGS diff --git a/SL/Controller/Admin.pm b/SL/Controller/Admin.pm index e6200896c..c22fdca74 100644 --- a/SL/Controller/Admin.pm +++ b/SL/Controller/Admin.pm @@ -592,6 +592,13 @@ sub use_multiselect_js { return $self; } +sub use_ckeditor_js { + my ($self) = @_; + + $::request->{layout}->use_javascript("${_}.js") for qw(ckeditor/ckeditor ckeditor/adapters/jquery); + return $self; +} + sub login_form { my ($self, %params) = @_; $::request->layout(SL::Layout::AdminLogin->new); @@ -601,7 +608,7 @@ sub login_form { sub edit_user_form { my ($self, %params) = @_; - $self->use_multiselect_js->render('admin/edit_user', %params); + $self->use_multiselect_js->use_ckeditor_js->render('admin/edit_user', %params); } sub edit_client_form { diff --git a/SL/Controller/BankTransaction.pm b/SL/Controller/BankTransaction.pm index d34021692..9d432d556 100644 --- a/SL/Controller/BankTransaction.pm +++ b/SL/Controller/BankTransaction.pm @@ -90,24 +90,28 @@ sub gather_bank_transactions_and_proposals { sort_by => $sort_by, limit => 10000, where => [ - amount => {ne => \'invoice_amount'}, + amount => {ne => \'invoice_amount'}, # '} make emacs happy local_bank_account_id => $params{bank_account}->id, cleared => 0, @where ], ); # credit notes have a negative amount, treat differently - my $all_open_ar_invoices = SL::DB::Manager::Invoice ->get_all(where => [ or => [ amount => { gt => \'paid' }, - and => [ type => 'credit_note', - amount => { lt => \'paid' } - ], - ], - ], - with_objects => ['customer','payment_terms']); - - my $all_open_ap_invoices = SL::DB::Manager::PurchaseInvoice->get_all(where => [amount => { ne => \'paid' }], with_objects => ['vendor' ,'payment_terms']); - my $all_open_sepa_export_items = SL::DB::Manager::SepaExportItem->get_all(where => [chart_id => $params{bank_account}->chart_id , - 'sepa_export.executed' => 0, 'sepa_export.closed' => 0 ], with_objects => ['sepa_export']); + my $all_open_ar_invoices = SL::DB::Manager::Invoice->get_all(where => [ or => [ amount => { gt => \'paid' }, # '} make emacs happy + and => [ type => 'credit_note', + amount => { lt => \'paid' } # '} make emacs happy + ], + ], + ], + with_objects => ['customer','payment_terms']); + + my $all_open_ap_invoices = SL::DB::Manager::PurchaseInvoice->get_all(where => [amount => { ne => \'paid' }], # '}] make emacs happy + with_objects => ['vendor' ,'payment_terms']); + my $all_open_sepa_export_items = SL::DB::Manager::SepaExportItem->get_all(where => [chart_id => $params{bank_account}->chart_id , + 'sepa_export.executed' => 0, + 'sepa_export.closed' => 0 + ], + with_objects => ['sepa_export']); my @all_open_invoices; # filter out invoices with less than 1 cent outstanding @@ -274,12 +278,14 @@ sub action_create_invoice { my $templates_ap = SL::DB::Manager::RecordTemplate->get_all( where => [ template_type => 'ap_transaction' ], + sort_by => [ qw(template_name) ], with_objects => [ qw(employee vendor) ], ); my $templates_gl = SL::DB::Manager::RecordTemplate->get_all( query => [ template_type => 'gl_transaction', chart_id => SL::DB::Manager::BankAccount->find_by(id => $self->transaction->local_bank_account_id)->chart_id, ], + sort_by => [ qw(template_name) ], with_objects => [ qw(employee record_template_items) ], ); @@ -293,14 +299,21 @@ sub action_create_invoice { 'filter.fromdate' => $::form->{filter}->{fromdate}, )); - $self->render( - 'bank_transactions/create_invoice', - { layout => 0 }, - title => t8('Create invoice'), - TEMPLATES_GL => $use_vendor_filter && @{ $templates_ap } ? undef : $templates_gl, - TEMPLATES_AP => $templates_ap, - vendor_name => $use_vendor_filter && @{ $templates_ap } ? $vendor_of_transaction->name : undef, - ); + # if we have exactly one ap match, use this directly + if (1 == scalar @{ $templates_ap }) { + $self->redirect_to($self->load_ap_record_template_url($templates_ap->[0])); + + } else { + my $dialog_html = $self->render( + 'bank_transactions/create_invoice', + { layout => 0, output => 0 }, + title => t8('Create invoice'), + TEMPLATES_GL => $use_vendor_filter && @{ $templates_ap } ? undef : $templates_gl, + TEMPLATES_AP => $templates_ap, + vendor_name => $use_vendor_filter && @{ $templates_ap } ? $vendor_of_transaction->name : undef, + ); + $self->js->run('kivi.BankTransaction.show_create_invoice_dialog', $dialog_html)->render; + } } sub action_ajax_payment_suggestion { @@ -678,6 +691,7 @@ sub save_single_bank_transaction { source => $source, memo => $memo, skonto_amount => $free_skonto_amount, + bt_id => $bt_id, transdate => $bank_transaction->valutadate->to_kivitendo); # ... and record the origin via BankTransactionAccTrans if (scalar(@acc_ids) < 2) { @@ -969,6 +983,7 @@ sub load_ap_record_template_url { 'form_defaults.paid_1_suggestion' => $::form->format_amount(\%::myconfig, -1 * $self->transaction->amount, 2), 'form_defaults.AP_paid_1_suggestion' => $self->transaction->local_bank_account->chart->accno, 'form_defaults.callback' => $self->callback, + 'form_defaults.notes' => $self->convert_purpose_for_template($template, $self->transaction->purpose), ); } @@ -984,10 +999,18 @@ sub load_gl_record_template_url { 'form_defaults.callback' => $self->callback, 'form_defaults.bt_id' => $self->transaction->id, 'form_defaults.bt_chart_id' => $self->transaction->local_bank_account->chart->id, - 'form_defaults.description' => $self->transaction->purpose, + 'form_defaults.description' => $self->convert_purpose_for_template($template, $self->transaction->purpose), ); } +sub convert_purpose_for_template { + my ($self, $template, $purpose) = @_; + + # enter custom code here + + return $purpose; +} + sub setup_search_action_bar { my ($self, %params) = @_; @@ -1105,6 +1128,13 @@ GL-records will be deleted completely if a bank transaction was the source. TODO: we still rely on linked_records for the check boxes +=item C + +This method can be used to parse, filter and convert the bank transaction's +purpose string before it will be assigned to the description field of a +gl transaction or to the notes field of an ap transaction. +You have to write your own custom code. + =back =head1 AUTHOR diff --git a/SL/Controller/Base.pm b/SL/Controller/Base.pm index 5e0fd26cb..63f153fa8 100644 --- a/SL/Controller/Base.pm +++ b/SL/Controller/Base.pm @@ -15,7 +15,7 @@ use SL::Presenter; use Rose::Object::MakeMethods::Generic ( scalar => [ qw(action_name) ], - 'scalar --get_set_init' => [ qw(js) ], + 'scalar --get_set_init' => [ qw(js p) ], ); # @@ -184,6 +184,10 @@ sub presenter { return SL::Presenter->get; } +sub init_p { + return SL::Presenter->get; +} + sub controller_name { my $class = ref($_[0]) || $_[0]; $class =~ s/^SL::Controller:://; diff --git a/SL/Controller/ClientConfig.pm b/SL/Controller/ClientConfig.pm index 12125122e..bc0f28701 100644 --- a/SL/Controller/ClientConfig.pm +++ b/SL/Controller/ClientConfig.pm @@ -246,7 +246,7 @@ sub check_auth { sub edit_form { my ($self) = @_; - $::request->layout->use_javascript("${_}.js") for qw(jquery.selectboxes jquery.multiselect2side kivi.File); + $::request->layout->use_javascript("${_}.js") for qw(jquery.selectboxes jquery.multiselect2side kivi.File ckeditor/ckeditor ckeditor/adapters/jquery); $self->setup_edit_form_action_bar; $self->render('client_config/form', title => t8('Client Configuration'), diff --git a/SL/Controller/CsvImport.pm b/SL/Controller/CsvImport.pm index 06f4bc2cc..d1ff7199f 100644 --- a/SL/Controller/CsvImport.pm +++ b/SL/Controller/CsvImport.pm @@ -13,6 +13,7 @@ use SL::Helper::Flash; use SL::Locale::String; use SL::SessionFile; use SL::SessionFile::Random; +use SL::Controller::CsvImport::AdditionalBillingAddress; use SL::Controller::CsvImport::Contact; use SL::Controller::CsvImport::CustomerVendor; use SL::Controller::CsvImport::Part; @@ -307,7 +308,7 @@ sub check_auth { sub check_type { my ($self) = @_; - die "Invalid CSV import type" if none { $_ eq $::form->{profile}->{type} } qw(parts inventories customers_vendors addresses contacts projects orders delivery_orders bank_transactions ar_transactions); + die "Invalid CSV import type" if none { $_ eq $::form->{profile}->{type} } qw(parts inventories customers_vendors billing_addresses addresses contacts projects orders delivery_orders bank_transactions ar_transactions); $self->type($::form->{profile}->{type}); } @@ -348,6 +349,7 @@ sub render_inputs { } my $title = $self->type eq 'customers_vendors' ? $::locale->text('CSV import: customers and vendors') + : $self->type eq 'billing_addresses' ? $::locale->text('CSV import: additional billing addresses') : $self->type eq 'addresses' ? $::locale->text('CSV import: shipping addresses') : $self->type eq 'contacts' ? $::locale->text('CSV import: contacts') : $self->type eq 'parts' ? $::locale->text('CSV import: parts and services') @@ -720,6 +722,7 @@ sub init_worker { return $self->{type} eq 'customers_vendors' ? SL::Controller::CsvImport::CustomerVendor->new(@args) : $self->{type} eq 'contacts' ? SL::Controller::CsvImport::Contact->new(@args) + : $self->{type} eq 'billing_addresses' ? SL::Controller::CsvImport::AdditionalBillingAddress->new(@args) : $self->{type} eq 'addresses' ? SL::Controller::CsvImport::Shipto->new(@args) : $self->{type} eq 'parts' ? SL::Controller::CsvImport::Part->new(@args) : $self->{type} eq 'inventories' ? SL::Controller::CsvImport::Inventory->new(@args) diff --git a/SL/Controller/CsvImport/AdditionalBillingAddress.pm b/SL/Controller/CsvImport/AdditionalBillingAddress.pm new file mode 100644 index 000000000..6d2d8ea80 --- /dev/null +++ b/SL/Controller/CsvImport/AdditionalBillingAddress.pm @@ -0,0 +1,90 @@ +package SL::Controller::CsvImport::AdditionalBillingAddress; + +use strict; + +use SL::Helper::Csv; + +use parent qw(SL::Controller::CsvImport::Base); + +use Rose::Object::MakeMethods::Generic +( + scalar => [ qw(table) ], +); + +sub set_profile_defaults { +}; + +sub init_class { + my ($self) = @_; + $self->class('SL::DB::AdditionalBillingAddress'); +} + +sub _hash_object { + my ($o) = @_; + return join('--', map({ s/[\s,\.\-]//g; $_ } ($o->name, $o->street))); +} + +sub check_objects { + my ($self) = @_; + + $self->controller->track_progress(phase => 'building data', progress => 0); + + my %existing_by_id_name_street = map { (_hash_object($_) => $_) } @{ $self->existing_objects }; + my $methods = $self->controller->headers->{methods}; + + my $i = 0; + my $num_data = scalar @{ $self->controller->data }; + foreach my $entry (@{ $self->controller->data }) { + $self->controller->track_progress(progress => $i/$num_data * 100) if $i % 100 == 0; + + $self->check_vc($entry, 'customer_id'); + + next if @{ $entry->{errors} }; + + my $object = $entry->{object}; + my $idx = _hash_object($object); + my $existing = $existing_by_id_name_street{$idx}; + + if (!$existing) { + $existing_by_id_name_street{$idx} = $object; + } else { + $entry->{object_to_save} = $existing; + + $existing->$_( $object->$_ ) for @{ $methods }; + + push @{ $entry->{information} }, $::locale->text('Updating existing entry in database'); + } + + } continue { + $i++; + } + + $self->add_info_columns({ header => $::locale->text('Customer/Vendor'), method => 'vc_name' }); +} + +sub setup_displayable_columns { + my ($self) = @_; + + $self->SUPER::setup_displayable_columns; + + $self->add_displayable_columns( + { name => 'default_address', description => $::locale->text('Default address flag') }, + { name => 'name', description => $::locale->text('Name') }, + { name => 'department_1', description => $::locale->text('Department 1') }, + { name => 'department_2', description => $::locale->text('Department 2') }, + { name => 'street', description => $::locale->text('Street') }, + { name => 'zipcode', description => $::locale->text('Zipcode') }, + { name => 'city', description => $::locale->text('City') }, + { name => 'country', description => $::locale->text('Country') }, + { name => 'contact', description => $::locale->text('Contact') }, + { name => 'email', description => $::locale->text('E-mail') }, + { name => 'fax', description => $::locale->text('Fax') }, + { name => 'gln', description => $::locale->text('GLN') }, + { name => 'phone', description => $::locale->text('Phone') }, + { name => 'customer_id', description => $::locale->text('Customer') }, + { name => 'customer', description => $::locale->text('Customer (name)') }, + { name => 'customernumber', description => $::locale->text('Customer Number') }, + ); +} + +1; diff --git a/SL/Controller/CsvImport/Base.pm b/SL/Controller/CsvImport/Base.pm index fe8af336a..1aaec79c9 100644 --- a/SL/Controller/CsvImport/Base.pm +++ b/SL/Controller/CsvImport/Base.pm @@ -293,6 +293,7 @@ sub handle_cvars { my %type_to_column = ( text => 'text_value', textfield => 'text_value', + htmlfield => 'text_value', select => 'text_value', date => 'timestamp_value_as_date', timestamp => 'timestamp_value_as_date', @@ -539,9 +540,11 @@ sub save_objects { SL::DB->client->with_transaction(sub { foreach my $entry_index ($chunk_size * $chunk .. min( $last_index, $chunk_size * ($chunk + 1) - 1 )) { my $entry = $data->[$entry_index]; - next if @{ $entry->{errors} }; my $object = $entry->{object_to_save} || $entry->{object}; + $self->save_additions_always($object); + + next if @{ $entry->{errors} }; my $ret; if (!eval { $ret = $object->save(cascade => !!$self->save_with_cascade()); 1 }) { @@ -602,6 +605,18 @@ sub save_additions { return; } +sub save_additions_always { + my ($self, $object) = @_; + + # Can be overridden by derived specialized importer classes to save + # additional tables always. + # This sub is called before the object is saved. Therefore this + # hook will always be executed whether or not the import entry can be saved successfully. + + return; +} + + sub _save_history { my ($self, $object) = @_; diff --git a/SL/Controller/CsvImport/BaseMulti.pm b/SL/Controller/CsvImport/BaseMulti.pm index 2632722ad..9ddb86bea 100644 --- a/SL/Controller/CsvImport/BaseMulti.pm +++ b/SL/Controller/CsvImport/BaseMulti.pm @@ -174,6 +174,7 @@ sub handle_cvars { my %type_to_column = ( text => 'text_value', textfield => 'text_value', + htmlfield => 'text_value', select => 'text_value', date => 'timestamp_value_as_date', timestamp => 'timestamp_value_as_date', diff --git a/SL/Controller/CsvImport/Clipboard/Base.pm b/SL/Controller/CsvImport/Clipboard/Base.pm new file mode 100644 index 000000000..fc0a16a1f --- /dev/null +++ b/SL/Controller/CsvImport/Clipboard/Base.pm @@ -0,0 +1,236 @@ +package SL::Clipboard::Base; + +use strict; + +use parent qw(Rose::Object); + +use Rose::Object::MakeMethods::Generic ( + 'scalar --get_set_init' => [ qw(content timestamp) ], +); + +use Rose::DB::Object::Helpers (); + +sub init_timestamp { die "'timestamp' property not set"; } +sub init_content { die "'content' property not set"; } + +sub type { + my ($self_or_class) = @_; + return (split m/::/, ref($self_or_class) ? ref($self_or_class) : $self_or_class)[-1]; +} + +sub reload_object { + my ($self, $object) = @_; + + return ref($object)->new(map { $_ => $object->$_ } $object->meta->primary_key)->load; +} + +sub as_tree { + my ($self, $object, %params) = @_; + + my $tree = Rose::DB::Object::Helpers::as_tree($object, %params); + $self->_fix_tree($tree, $object); + return $tree; +} + +sub to_object { + my ($self) = @_; + my $object = Rose::DB::Object::Helpers::new_from_tree("SL::DB::" . $self->type, $self->content); + + # Reset primary key columns and itime/mtime if the class supports it. + foreach ($object->meta->primary_key, 'itime', 'mtime') { + $object->$_(undef) if $object->can($_); + } + + # Let sub classes fix the objects further. + $self->_fix_object($object); + return $object; +} + +sub dump { + my ($self, $object) = @_; + return $self->as_tree($self->reload_object($object), max_depth => 1); +} + +sub describe { + die "'describe' method not overwritten by derived class"; +} + +sub _fix_object { + my ($self, $object) = @_; + # To be overwritten by child classes. +} + +sub _fix_tree { + my ($self, $tree, $object) = @_; + + # Delete primary key columns and itime/mtime if the class supports it. + foreach ($object->meta->primary_key, 'itime', 'mtime') { + delete $tree->{$_} if $object->can($_); + } +} + +sub _binary_column_names { + my ($self, $class) = @_; + return map { $_->name } + grep { ref($_) =~ m/Pg::Bytea$/i } + @{ $class->meta->columns }; +} + +1; +__END__ + +=pod + +=encoding utf8 + +=head1 NAME + +SL::Clipboard::Base - Base class for clipboard specialization classes + +=head1 SYNOPSIS + +See the synopsis of L. + +=head1 OVERVIEW + +This is a base class providing a lot of utility and +defaults. Sub-classes must overwrite at least the function +L but can overwrite others as well. + +Writing a specialized sub-class for a database type involves +overwriting one or more functions. These are: + +=over 4 + +=item * C + +Must be overwritten. Returns a human-readable description of the +content. Should only be one line. + +=item * C + +Optional. Overwrite if sub-class needs to dump more/less than the +implementation in this class dumps. + +=item * C<_fix_object> + +Optional. Overwrite if re-created Rose::DB::Object instances must be +cleaned further before they're returned to the caller. + +=item * C<_fix_tree> + +Optional. Overwrite if the tree created during a copy operation of a +Rose::DB::Object instance must be cleaned further before it's stored. + +=back + +You don't have to or should not overwrite the other functions: + +=over 4 + +=item * C + +=item * C + +=item * C + +=item * C + +=back + +Don't forget to C the specialized module here in Base! + +=head1 FUNCTIONS + +=over 4 + +=item C + +A convenience function calling L +with C<$object> and C<%params> as parameters. Returns a hash/array +reference tree of the function. + +Don't overwrite this function in sub-classes. Overwrite L +instead. + +=item C + +Returns a human-readable description of the content. This should only +be a single line without any markup. + +Sub-classes must overwrite this function. + +=item C + +Dumps the object as a hash/array tree and returns it by calling +L. The default implementation +reloads the object first by calling L. It also only +dumps the object itself, not any of the relationships, by calling +C with the parameter C 1>. + +Overwrite this in a sub-class if you need to dump more or differently +(see L for an example). + +=item C + +Reloads C<$object> from the database and returns a new instance. Can +be useful for sanitizing the object given to L before +converting into a tree. It is used by the default implementation of +L. + +=item C + +Converts the dumped representation back to a Rose::DB::Object +instance. Several columns of the newly created object are cleared by +C itself: the primary key columns (if any) and the columns +C and C (if the object has such columns). + +This function should not be overwritten by sub-classes. Instead, +functions can overwrite C<_fix_object> which can be used for sanitizing +the newly created object before handing it back to the caller. + +=item C + +Returns the actual clipped type (e.g. C). This is +derived from the actual class name of C<$self>. + +=item C<_binary_column_names $class> + +Returns an array of column names that have a binary type. Useful for +sub-classes which need to encode binary content in Base64 during +C. + +=item C<_fix_object $object> + +This function is called by L before the object is passed +back to the caller. It does not do anything in the default +implementation, but sub-classes are free to overwrite it if they need +to sanitize the object. See L for +an example. + +Its return value is ignored. + +=item C<_fix_tree $tree, $object> + +This function is called by L after dumping and before the +object is stored during a copy operation. In the default +implementation all primary key columns and the columns C and +C (if the object has such columns) are removed from the tree. +Sub-classes are free to overwrite it if they need to sanitize the +tree. See L for an example. + +C<$object> is just passed in for reference and should not be modified. + +Its return value is ignored. + +=back + +=head1 BUGS + +Nothing here yet. + +=head1 AUTHOR + +Moritz Bunkus Em.bunkus@linet-services.deE + +=cut diff --git a/SL/Controller/CsvImport/Clipboard/RequirementSpecItem.pm b/SL/Controller/CsvImport/Clipboard/RequirementSpecItem.pm new file mode 100644 index 000000000..85bd5d967 --- /dev/null +++ b/SL/Controller/CsvImport/Clipboard/RequirementSpecItem.pm @@ -0,0 +1,101 @@ +package SL::Clipboard::RequirementSpecItem; + +use strict; + +use parent qw(SL::Clipboard::Base); + +use List::Util qw(sum); + +use SL::Common; +use SL::Locale::String; + +sub dump { + my ($self, $object) = @_; + + return $self->as_tree(_load_children($self->reload_object($object)), exclude => sub { ref($_[0]) !~ m/::RequirementSpecItem$/ }); +} + +sub describe { + my ($self) = @_; + + my $item = $self->content; + my $num_children = @{ $item->{children} || [] }; + my $num_grandchildren = sum map { scalar(@{ $_->{children} || [] }) } @{ $item->{children} || [] }; + + if ($item->{item_type} eq 'section') { + return t8('Requirement spec section #1 "#2" with #3 function blocks and a total of #4 sub function blocks; preamble: "#5"', + $item->{fb_number}, $item->{title}, $num_children, $num_grandchildren, Common::truncate($item->{description}, strip => 'full')); + } elsif ($item->{item_type} eq 'function-block') { + return t8('Requirement spec function block #1 with #2 sub function blocks; description: "#3"', + $item->{fb_number}, $num_children, Common::truncate($item->{description}, strip => 'full')); + } else { + return t8('Requirement spec sub function block #1; description: "#2"', + $item->{fb_number}, Common::truncate($item->{description}, strip => 'full')); + } +} + +sub _load_children { + my ($object) = @_; + + _load_children($_) for @{ $object->children }; + + return $object; +} + +sub _fix_object { + my ($self, $object) = @_; + + $object->$_(undef) for qw(fb_number); + $self->_fix_object($_) for @{ $object->children || [] }; +} + +sub _fix_tree { + my ($self, $tree, $object) = @_; + + delete @{ $tree }{ qw(id itime mtime parent_id position requirement_spec_id) }; + $self->_fix_tree($_) for @{ $tree->{children} || [] }; +} + +1; +__END__ + +=pod + +=encoding utf8 + +=head1 NAME + +SL::Clipboard::RequirementSpecItem - Clipboard specialization for +SL::DB::RequirementSpecItem + +=head1 FUNCTIONS + +=over 4 + +=item C + +Returns a human-readable description depending on the copied type +(section, function block or sub function block). + +=item C + +This specialization reloads C<$object> from the database, loads all of +its children (but only the other requirement spec items, no other +relationships) and dumps it. + +=item C<_fix_object $object> + +Fixes C<$object> and all of its children by clearing certain columns +like the position or function block numbers. + +=back + +=head1 BUGS + +Nothing here yet. + +=head1 AUTHOR + +Moritz Bunkus Em.bunkus@linet-services.deE + +=cut diff --git a/SL/Controller/CsvImport/Clipboard/RequirementSpecPicture.pm b/SL/Controller/CsvImport/Clipboard/RequirementSpecPicture.pm new file mode 100644 index 000000000..7a3757f82 --- /dev/null +++ b/SL/Controller/CsvImport/Clipboard/RequirementSpecPicture.pm @@ -0,0 +1,84 @@ +package SL::Clipboard::RequirementSpecPicture; + +use strict; + +use parent qw(SL::Clipboard::Base); + +use SL::Common; +use SL::Locale::String; +use MIME::Base64; + +sub dump { + my ($self, $object) = @_; + + $self->reload_object($object); + + my $tree = $self->as_tree($object, exclude => sub { ref($_[0]) !~ m/::RequirementSpecPicture$/ }); + $tree->{$_} = encode_base64($tree->{$_}, '') for $self->_binary_column_names('SL::DB::RequirementSpecPicture'); + + return $tree; +} + +sub describe { + my ($self) = @_; + + return t8('Requirement spec picture "#1"', $self->content->{description} ? $self->content->{description} . ' (' . $self->content->{picture_file_name} . ')' : $self->content->{picture_file_name}); +} + +sub _fix_object { + my ($self, $object) = @_; + + $object->$_(undef) for qw(number); + $object->$_(decode_base64($object->$_)) for $self->_binary_column_names('SL::DB::RequirementSpecPicture'); + + return $object; +} + +1; +__END__ + +=pod + +=encoding utf8 + +=head1 NAME + +SL::Clipboard::RequirementSpecPicture - Clipboard specialization for +SL::DB::RequirementSpecPicture + +=head1 NOTES + +The underlying RDBO model contains binary columns, but binary data +cannot be dumped as YAML. Therefore the binary content is encoded in +Base64 in L and decoded back to binary form in L. + +=head1 FUNCTIONS + +=over 4 + +=item C + +Returns a human-readable description including the title and an +excerpt of its content. + +=item C + +This specialization reloads C<$object> from the database, and dumps +it. Binary columns are dumped encoded in Base64. + +=item C<_fix_object $object> + +Fixes C<$object> by clearing certain columns like the number. Also +decodes binary columns from Base64 back to binary. + +=back + +=head1 BUGS + +Nothing here yet. + +=head1 AUTHOR + +Moritz Bunkus Em.bunkus@linet-services.deE + +=cut diff --git a/SL/Controller/CsvImport/Clipboard/RequirementSpecTextBlock.pm b/SL/Controller/CsvImport/Clipboard/RequirementSpecTextBlock.pm new file mode 100644 index 000000000..4b40a8e8c --- /dev/null +++ b/SL/Controller/CsvImport/Clipboard/RequirementSpecTextBlock.pm @@ -0,0 +1,81 @@ +package SL::Clipboard::RequirementSpecTextBlock; + +use strict; + +use parent qw(SL::Clipboard::Base); + +use SL::Clipboard::RequirementSpecPicture; +use SL::Common; +use SL::Locale::String; + +sub dump { + my ($self, $object) = @_; + + $self->reload_object($object); + + my $tree = $self->as_tree($object, exclude => sub { ref($_[0]) !~ m/::RequirementSpecTextBlock$/ }); + $tree->{pictures} = [ map { SL::Clipboard::RequirementSpecPicture->new->dump($_) } @{ $object->pictures } ]; + + return $tree; +} + +sub describe { + my ($self) = @_; + + return t8('Requirement spec text block "#1"; content: "#2"', $self->content->{title}, Common::truncate($self->content->{text}, strip => 'full')); +} + +sub _fix_object { + my ($self, $object) = @_; + + $object->$_(undef) for qw(output_position position requirement_spec_id); + + SL::Clipboard::RequirementSpecPicture->new->_fix_object($_) for @{ $object->pictures || [] }; + + return $object; +} + +1; +__END__ + +=pod + +=encoding utf8 + +=head1 NAME + +SL::Clipboard::RequirementSpecTextBlock - Clipboard specialization for +SL::DB::RequirementSpecTextBlock + +=head1 FUNCTIONS + +=over 4 + +=item C + +Returns a human-readable description including the title and an +excerpt of its content. + +=item C + +This specialization reloads C<$object> from the database, loads all of +its pictures and dumps it. The pictures are dumped using the clipboard +specialization for it, L. + +=item C<_fix_object $object> + +Fixes C<$object> by clearing certain columns like the position. Lets +pictures be fixed by the clipboard specialization for it, +L. + +=back + +=head1 BUGS + +Nothing here yet. + +=head1 AUTHOR + +Moritz Bunkus Em.bunkus@linet-services.deE + +=cut diff --git a/SL/Controller/CsvImport/DeliveryOrder.pm b/SL/Controller/CsvImport/DeliveryOrder.pm index 62ecb11fe..2e5a9e9ab 100644 --- a/SL/Controller/CsvImport/DeliveryOrder.pm +++ b/SL/Controller/CsvImport/DeliveryOrder.pm @@ -9,6 +9,7 @@ use DateTime; use SL::Controller::CsvImport::Helper::Consistency; use SL::DB::DeliveryOrder; +use SL::DB::DeliveryOrder::TypeData qw(:types); use SL::DB::DeliveryOrderItem; use SL::DB::DeliveryOrderItemsStock; use SL::DB::Part; @@ -21,6 +22,7 @@ use SL::DB::Unit; use SL::DB::Inventory; use SL::DB::TransferType; use SL::DBUtils; +use SL::Helper::ShippedQty; use SL::PriceSource; use SL::TransNumber; use SL::Util qw(trim); @@ -214,10 +216,10 @@ sub setup_displayable_columns { { name => 'globalprojectnumber', description => $::locale->text('Document Project (number)') }, { name => 'globalproject_id', description => $::locale->text('Document Project (database ID)') }, { name => 'intnotes', description => $::locale->text('Internal Notes') }, - { name => 'is_sales', description => $::locale->text('Is sales') }, { name => 'language', description => $::locale->text('Language (name)') }, { name => 'language_id', description => $::locale->text('Language (database ID)') }, { name => 'notes', description => $::locale->text('Notes') }, + { name => 'order_type', description => $::locale->text('Delivery Order Type') }, { name => 'ordnumber', description => $::locale->text('Order Number') }, { name => 'payment', description => $::locale->text('Payment terms (name)') }, { name => 'payment_id', description => $::locale->text('Payment terms (database ID)') }, @@ -552,7 +554,7 @@ sub handle_order { push @{ $entry->{errors} }, $::locale->text('Error: Customer/vendor missing'); } - $self->handle_is_sales($entry); + $self->handle_type($entry); $self->check_contact($entry); $self->check_language($entry); $self->check_payment($entry); @@ -684,11 +686,19 @@ sub handle_stock { } } -sub handle_is_sales { +sub handle_type { my ($self, $entry) = @_; - if (!exists $entry->{raw_data}->{is_sales}) { - $entry->{object}->is_sales(!!$entry->{object}->customer_id); + if (!exists $entry->{raw_data}->{order_type}) { + # if no type is present - set to sales delivery order or purchase delivery + # order depending on is_sales or customer/vendor + + $entry->{object}->order_type( + $entry->{object}->customer_id ? SALES_DELIVERY_ORDER_TYPE : + $entry->{object}->vendor_id ? PURCHASE_DELIVERY_ORDER_TYPE : + $entry->{raw_data}->{is_sales} ? SALES_DELIVERY_ORDER_TYPE : + PURCHASE_DELIVERY_ORDER_TYPE + ); } } @@ -710,6 +720,10 @@ sub handle_order_sources { push @{ $entry->{errors} }, $::locale->text('Error: More than one source order found'); } + foreach my $order (@$orders) { + $self->{remaining_source_qtys_by_item_id} = { map { $_->id => $_->qty } @{ $order->items } }; + } + $record->{source_orders} = $orders; } @@ -721,9 +735,38 @@ sub handle_item_source { return if !@{ $record->{source_orders} }; + # Todo: units? + foreach my $order (@{ $record->{source_orders} }) { - $item->{source_item} = first { $item->parts_id == $_->parts_id && $item->qty == $_->qty} @{ $order->items_sorted }; - last if $item->{source_item}; + # First: Excact matches and source order position is still complete. + $item->{source_item} = first { + $item->parts_id == $_->parts_id + && $item->qty == $_->qty + && $self->{remaining_source_qtys_by_item_id}->{$_->id} == $_->qty + } @{ $order->items_sorted }; + if ($item->{source_item}) { + $self->{remaining_source_qtys_by_item_id}->{$item->{source_item}->id} -= $item->qty; + last; + } + + # Second: Smallest remaining order qty greater or equal delivery order qty. + $item->{source_item} = first { + $item->parts_id == $_->parts_id + && $self->{remaining_source_qtys_by_item_id}->{$_->id} >= $item->qty + } sort { $self->{remaining_source_qtys_by_item_id}->{$a->id} <=> $self->{remaining_source_qtys_by_item_id}->{$b->id} } @{ $order->items_sorted }; + if ($item->{source_item}) { + $self->{remaining_source_qtys_by_item_id}->{$item->{source_item}->id} -= $item->qty; + last; + } + + # Last: Overdelivery? + # $item->{source_item} = first { + # $item->parts_id == $_->parts_id + # } @{ $order->items_sorted }; + # if ($item->{source_item}) { + # $self->{remaining_source_qtys_by_item_id}->{$item->{source_item}->id} -= $item->qty; + # last; + # } } } @@ -1112,18 +1155,8 @@ sub save_additions { # delivery order for all positions created? if (scalar(@$orders)) { - foreach my $order (@{ $orders }) { - my $all_deliverd; - foreach my $orderitem (@{ $order->items }) { - my $delivered_qty = 0; - foreach my $do_item (@{$orderitem->linked_records(to => 'DeliveryOrderItem')}) { - $delivered_qty += $do_item->unit_obj->convert_to($do_item->qty, $orderitem->unit_obj); - } - $all_deliverd = $orderitem->qty <= $delivered_qty; - last if !$all_deliverd; - } - $order->update_attributes(delivered => !!$all_deliverd); - } + SL::Helper::ShippedQty->new->calculate($orders)->write_to_objects; + $_->update_attributes(delivered => $_->delivered) for @{ $orders }; } # inventory (or use WH->transfer?) diff --git a/SL/Controller/CsvImport/Helper/Consistency.pm b/SL/Controller/CsvImport/Helper/Consistency.pm index d1ce92bb1..5538a738c 100644 --- a/SL/Controller/CsvImport/Helper/Consistency.pm +++ b/SL/Controller/CsvImport/Helper/Consistency.pm @@ -208,7 +208,7 @@ sub handle_salesman { if ($vc_obj && $vc_obj->salesman_id) { $object->salesman(SL::DB::Manager::Employee->find_by(id => $vc_obj->salesman_id)); } else { - $object->salesman(SL::DB::Manager::Employee->find_by(login => $::myconfig{login})); + $object->salesman(SL::DB::Manager::Employee->current); } } } diff --git a/SL/Controller/CsvImport/Inventory.pm b/SL/Controller/CsvImport/Inventory.pm index c724fb8fc..e6f679471 100644 --- a/SL/Controller/CsvImport/Inventory.pm +++ b/SL/Controller/CsvImport/Inventory.pm @@ -53,7 +53,8 @@ sub init_parts_by { my ($self) = @_; my $all_parts = SL::DB::Manager::Part->get_all; - return { map { my $col = $_; ( $col => { map { ( $_->$col => $_ ) } @{ $all_parts } } ) } qw(id partnumber ean description) }; + return { map { my $col = $_; ( $col => + { map { ( $_->$col => $_ ) } grep { defined $_->$col } @{ $all_parts } } ) } qw(id partnumber ean description) }; } sub init_warehouses_by { @@ -70,7 +71,6 @@ sub init_bins_by { my $bins_by; $bins_by->{_wh_id_and_id_ident()} = { map { ( _wh_id_and_id_maker($_->warehouse_id, $_->id) => $_ ) } @{ $all_bins } }; $bins_by->{_wh_id_and_description_ident()} = { map { ( _wh_id_and_description_maker($_->warehouse_id, $_->description) => $_ ) } @{ $all_bins } }; - return $bins_by; } @@ -127,6 +127,8 @@ sub check_warehouse { my $object = $entry->{object}; + $self->settings->{apply_warehouse} ||= ''; # avoid warnings if undefined + # If warehouse from front-end is enforced for all transfers, use this, if valid. if ($self->settings->{apply_warehouse} eq 'all') { $object->warehouse_id(undef); @@ -185,6 +187,8 @@ sub check_bin { my $object = $entry->{object}; + $self->settings->{apply_bin} ||= ''; # avoid warnings if undefined + # If bin from front-end is enforced for all transfers, use this, if valid. if ($self->settings->{apply_bin} eq 'all') { $object->bin_id(undef); @@ -217,7 +221,7 @@ sub check_bin { } # Map description to ID if given. - if (!$object->bin_id && $entry->{raw_data}->{bin}) { + if (!$object->bin_id && $entry->{raw_data}->{bin} && $object->warehouse_id) { my $bin = $self->bins_by->{_wh_id_and_description_ident()}->{ _wh_id_and_description_maker($object->warehouse_id, $entry->{raw_data}->{bin}) }; if (!$bin) { push @{ $entry->{errors} }, $::locale->text('Error: Invalid bin'); @@ -272,11 +276,20 @@ sub check_part { # This imports inventories when target_qty is given, transfers else. # So we get the actual qty in stock and transfer the difference in case of # a given target_qty -sub check_qty{ +sub check_qty { my ($self, $entry) = @_; my $object = $entry->{object}; + # parse qty (may be float values) + if (exists $entry->{raw_data}->{target_qty}) { + $entry->{raw_data}->{target_qty} = $::form->parse_amount(\%::myconfig, $entry->{raw_data}->{target_qty}); + # $object->target_qty($entry->{raw_data}->{target_qty}); + } + if (exists $entry->{raw_data}->{qty}) { + $entry->{raw_data}->{qty} = $::form->parse_amount(\%::myconfig, $entry->{raw_data}->{qty}); + $object->qty($entry->{raw_data}->{qty}); + } if (! exists $entry->{raw_data}->{target_qty} && ! exists $entry->{raw_data}->{qty}) { push @{ $entry->{errors} }, $::locale->text('Error: A quantity or a target quantity must be given.'); return 0; @@ -370,7 +383,7 @@ sub handle_employee { # employee from login if not given if (!$object->employee_id) { - $object->employee_id(SL::DB::Manager::Employee->find_by(login => $::myconfig{login})->id); + $object->employee_id(SL::DB::Manager::Employee->current->id) if SL::DB::Manager::Employee->current; } if ($object->employee_id) { diff --git a/SL/Controller/CustomVariableConfig.pm b/SL/Controller/CustomVariableConfig.pm index 0b124e9fb..193523a85 100644 --- a/SL/Controller/CustomVariableConfig.pm +++ b/SL/Controller/CustomVariableConfig.pm @@ -25,6 +25,7 @@ __PACKAGE__->run_before('load_config', only => [ qw(edit update destroy) ]); our %translations = ( text => t8('Free-form text'), textfield => t8('Text field'), + htmlfield => t8('HTML field'), number => t8('Number'), date => t8('Date'), timestamp => t8('Timestamp'), @@ -35,7 +36,7 @@ our %translations = ( part => t8('Part'), ); -our @types = qw(text textfield number date bool select customer vendor part); # timestamp +our @types = qw(text textfield htmlfield number date bool select customer vendor part); # timestamp # # actions diff --git a/SL/Controller/CustomerVendor.pm b/SL/Controller/CustomerVendor.pm index 54702844f..f9e251578 100644 --- a/SL/Controller/CustomerVendor.pm +++ b/SL/Controller/CustomerVendor.pm @@ -61,6 +61,7 @@ __PACKAGE__->run_before( 'delete', 'delete_contact', 'delete_shipto', + 'delete_additional_billing_address', ] ); @@ -71,6 +72,7 @@ __PACKAGE__->run_before( 'show', 'update', 'ajaj_get_shipto', + 'ajaj_get_additional_billing_address', 'ajaj_get_contact', 'ajax_list_prices', ] @@ -88,6 +90,7 @@ __PACKAGE__->run_before( __PACKAGE__->run_before('normalize_name'); +my @ADDITIONAL_BILLING_ADDRESS_COLUMNS = qw(name department_1 department_2 contact street zipcode city country gln email phone fax default_address); sub action_add { my ($self) = @_; @@ -280,6 +283,21 @@ sub _save { $self->{shipto}->save(cascade => 1); } + if ($self->is_customer && any { $self->{additional_billing_address}->$_ ne '' } grep { $_ ne 'default_address' } @ADDITIONAL_BILLING_ADDRESS_COLUMNS) { + $self->{additional_billing_address}->customer_id($self->{cv}->id); + $self->{additional_billing_address}->save(cascade => 1); + + # Make sure only one address per customer has "default address" set. + if ($self->{additional_billing_address}->default_address) { + SL::DB::Manager::AdditionalBillingAddress->update_all( + set => { default_address => 0, }, + where => [ + customer_id => $self->{cv}->id, + '!id' => $self->{additional_billing_address}->id, + ]); + } + } + my $snumbers = $self->is_vendor() ? 'vendornumber_'. $self->{cv}->vendornumber : 'customernumber_'. $self->{cv}->customernumber; SL::DB::History->new( trans_id => $self->{cv}->id, @@ -325,6 +343,10 @@ sub action_save { push(@redirect_params, shipto_id => $self->{shipto}->shipto_id); } + if ( $self->is_customer && $self->{additional_billing_address}->id ) { + push(@redirect_params, additional_billing_address_id => $self->{additional_billing_address}->id); + } + $self->redirect_to(@redirect_params); } @@ -512,6 +534,32 @@ sub action_delete_shipto { $self->action_edit(); } +sub action_delete_additional_billing_address { + my ($self) = @_; + + my $db = $self->{additional_billing_address}->db; + + if ( !$self->{additional_billing_address}->id ) { + SL::Helper::Flash::flash('error', $::locale->text('No address selected to delete')); + } else { + $db->with_transaction(sub { + if ( $self->{additional_billing_address}->used ) { + $self->{additional_billing_address}->detach; + $self->{additional_billing_address}->save(cascade => 1); + SL::Helper::Flash::flash('info', $::locale->text('Address is in use and was flagged invalid.')); + } else { + $self->{additional_billing_address}->delete(cascade => 1); + SL::Helper::Flash::flash('info', $::locale->text('Address deleted.')); + } + + 1; + }) || die($db->error); + + $self->{additional_billing_address} = SL::DB::AdditionalBillingAddress->new; + } + + $self->action_edit; +} sub action_search { my ($self) = @_; @@ -637,6 +685,18 @@ sub action_ajaj_get_shipto { $self->render(\SL::JSON::to_json($data), { type => 'json', process => 0 }); } +sub action_ajaj_get_additional_billing_address { + my ($self) = @_; + + my $data = { + additional_billing_address => { + map { ($_ => $self->{additional_billing_address}->$_) } ('id', @ADDITIONAL_BILLING_ADDRESS_COLUMNS) + }, + }; + + $self->render(\SL::JSON::to_json($data), { type => 'json', process => 0 }); +} + sub action_ajaj_get_contact { my ($self) = @_; @@ -899,6 +959,15 @@ sub _instantiate_args { $self->{shipto}->assign_attributes(%{$::form->{shipto}}); $self->{shipto}->module('CT'); + if ($self->is_customer) { + if ( $::form->{additional_billing_address}->{id} ) { + $self->{additional_billing_address} = SL::DB::AdditionalBillingAddress->new(id => $::form->{additional_billing_address}->{id})->load; + } else { + $self->{additional_billing_address} = SL::DB::AdditionalBillingAddress->new; + } + $self->{additional_billing_address}->assign_attributes(%{ $::form->{additional_billing_address} }); + } + if ( $::form->{contact}->{cp_id} ) { $self->{contact} = SL::DB::Contact->new(cp_id => $::form->{contact}->{cp_id})->load(); } else { @@ -940,6 +1009,16 @@ sub _load_customer_vendor { $self->{shipto} = SL::DB::Shipto->new(); } + if ($self->is_customer) { + if ( $::form->{additional_billing_address_id} ) { + $self->{additional_billing_address} = SL::DB::AdditionalBillingAddress->new(id => $::form->{additional_billing_address_id})->load; + die($::locale->text('Error')) if $self->{additional_billing_address}->customer_id != $self->{cv}->id; + + } else { + $self->{additional_billing_address} = SL::DB::AdditionalBillingAddress->new; + } + } + if ( $::form->{contact_id} ) { $self->{contact} = SL::DB::Contact->new(cp_id => $::form->{contact_id})->load(); @@ -988,6 +1067,7 @@ sub _create_customer_vendor { $self->{note_followup} = SL::DB::FollowUp->new(); $self->{shipto} = SL::DB::Shipto->new(); + $self->{additional_billing_address} = SL::DB::AdditionalBillingAddress->new if $self->is_customer; $self->{contact} = $self->_new_contact_object; } @@ -1064,6 +1144,11 @@ sub _pre_render { $self->{shiptos} = $self->{cv}->shipto; $self->{shiptos} ||= []; + if ($self->is_customer) { + $self->{additional_billing_addresses} = $self->{cv}->additional_billing_addresses; + $self->{additional_billing_addresses} ||= []; + } + $self->{notes} = SL::DB::Manager::Note->get_all( query => [ trans_id => $self->{cv}->id, @@ -1120,9 +1205,7 @@ sub _pre_render { $self->{template_args} ||= {}; - $::request->{layout}->add_javascripts('kivi.CustomerVendor.js'); - $::request->{layout}->add_javascripts('kivi.File.js'); - $::request->{layout}->add_javascripts('kivi.CustomerVendorTurnover.js'); + $::request->{layout}->add_javascripts("$_.js") for qw (kivi.CustomerVendor kivi.File kivi.CustomerVendorTurnover ckeditor/ckeditor ckeditor/adapters/jquery); $self->_setup_form_action_bar; } @@ -1311,11 +1394,15 @@ sub _new_customer_vendor_object { my ($self) = @_; my $class = 'SL::DB::' . ($self->is_vendor ? 'Vendor' : 'Customer'); - return $class->new( + my $object = $class->new( contacts => [], shipto => [], custom_variables => [], ); + + $object->additional_billing_addresses([]) if $self->is_customer; + + return $object; } sub _new_contact_object { diff --git a/SL/Controller/DeliveryOrder.pm b/SL/Controller/DeliveryOrder.pm new file mode 100644 index 000000000..7c4a99bfa --- /dev/null +++ b/SL/Controller/DeliveryOrder.pm @@ -0,0 +1,2419 @@ +package SL::Controller::DeliveryOrder; + +use strict; +use parent qw(SL::Controller::Base); + +use SL::Helper::Flash qw(flash_later); +use SL::Helper::Number qw(_format_number _parse_number); +use SL::Presenter::Tag qw(select_tag hidden_tag div_tag); +use SL::Presenter::DeliveryOrder qw(delivery_order_status_line); +use SL::Locale::String qw(t8); +use SL::SessionFile::Random; +use SL::PriceSource; +use SL::Webdav; +use SL::File; +use SL::MIME; +use SL::Util qw(trim); +use SL::YAML; +use SL::DB::History; +use SL::DB::Order; +use SL::DB::Default; +use SL::DB::Unit; +use SL::DB::Order; +use SL::DB::Part; +use SL::DB::PartClassification; +use SL::DB::PartsGroup; +use SL::DB::Printer; +use SL::DB::Language; +use SL::DB::RecordLink; +use SL::DB::Shipto; +use SL::DB::Translation; +use SL::DB::TransferType; + +use SL::Helper::CreatePDF qw(:all); +use SL::Helper::PrintOptions; +use SL::Helper::ShippedQty; +use SL::Helper::UserPreferences::DisplayPreferences; +use SL::Helper::UserPreferences::PositionsScrollbar; +use SL::Helper::UserPreferences::UpdatePositions; + +use SL::Controller::Helper::GetModels; +use SL::Controller::DeliveryOrder::TypeData qw(:types); + +use List::Util qw(first sum0); +use List::UtilsBy qw(sort_by uniq_by); +use List::MoreUtils qw(any none pairwise first_index); +use English qw(-no_match_vars); +use File::Spec; +use Cwd; +use Sort::Naturally; + +use Rose::Object::MakeMethods::Generic +( + scalar => [ qw(item_ids_to_delete is_custom_shipto_to_delete) ], + 'scalar --get_set_init' => [ qw(order valid_types type cv p all_price_factors search_cvpartnumber show_update_button part_picker_classification_ids type_data) ], +); + + +# safety +__PACKAGE__->run_before('check_auth', + except => [ qw(update_stock_information) ]); + +__PACKAGE__->run_before('check_auth_for_edit', + except => [ qw(update_stock_information edit show_customer_vendor_details_dialog price_popup stock_in_out_dialog load_second_rows) ]); + +__PACKAGE__->run_before('get_unalterable_data', + only => [ qw(save save_as_new save_and_delivery_order save_and_invoice save_and_ap_transaction + print send_email) ]); + +# +# actions +# + +# add a new order +sub action_add { + my ($self) = @_; + + $self->order->transdate(DateTime->now_local()); + $self->type_data->set_reqdate_by_type; + + + $self->pre_render(); + $self->render( + 'delivery_order/form', + title => $self->get_title_for('add'), + %{$self->{template_args}} + ); +} + +sub action_add_from_order { + my ($self) = @_; + # this interfers with init_order + $self->{converted_from_oe_id} = delete $::form->{id}; + + $self->type_data->validate($::form->{type}); + + my $order = SL::DB::Order->new(id => $self->{converted_from_oe_id})->load; + + $self->order(SL::DB::DeliveryOrder->new_from($order, type => $::form->{type})); + + $self->action_add; +} + +# edit an existing order +sub action_edit { + my ($self) = @_; + + if ($::form->{id}) { + $self->load_order; + + } else { + # this is to edit an order from an unsaved order object + + # set item ids to new fake id, to identify them as new items + foreach my $item (@{$self->order->items_sorted}) { + $item->{new_fake_id} = join('_', 'new', Time::HiRes::gettimeofday(), int rand 1000000000000); + } + # trigger rendering values for second row as hidden, because they + # are loaded only on demand. So we need to keep the values from + # the source. + $_->{render_second_row} = 1 for @{ $self->order->items_sorted }; + } + + $self->pre_render(); + $self->render( + 'delivery_order/form', + title => $self->get_title_for('edit'), + %{$self->{template_args}} + ); +} + +# edit a collective order (consisting of one or more existing orders) +sub action_edit_collective { + my ($self) = @_; + + # collect order ids + my @multi_ids = map { + $_ =~ m{^multi_id_(\d+)$} && $::form->{'multi_id_' . $1} && $::form->{'trans_id_' . $1} && $::form->{'trans_id_' . $1} + } grep { $_ =~ m{^multi_id_\d+$} } keys %$::form; + + # fall back to add if no ids are given + if (scalar @multi_ids == 0) { + $self->action_add(); + return; + } + + # fall back to save as new if only one id is given + if (scalar @multi_ids == 1) { + $self->order(SL::DB::DeliveryOrder->new(id => $multi_ids[0])->load); + $self->action_save_as_new(); + return; + } + + # make new order from given orders + my @multi_orders = map { SL::DB::DeliveryOrder->new(id => $_)->load } @multi_ids; + $self->{converted_from_oe_id} = join ' ', map { $_->id } @multi_orders; + $self->order(SL::DB::DeliveryOrder->new_from_multi(\@multi_orders, sort_sources_by => 'transdate')); + + $self->action_edit(); +} + +# delete the order +sub action_delete { + my ($self) = @_; + + my $errors = $self->delete(); + + if (scalar @{ $errors }) { + $self->js->flash('error', $_) foreach @{ $errors }; + return $self->js->render(); + } + + flash_later('info', $self->type_data->text("delete")); + + my @redirect_params = ( + action => 'add', + type => $self->type, + ); + + $self->redirect_to(@redirect_params); +} + +# save the order +sub action_save { + my ($self) = @_; + + my $errors = $self->save(); + + if (scalar @{ $errors }) { + $self->js->flash('error', $_) foreach @{ $errors }; + return $self->js->render(); + } + + flash_later('info', $self->type_data->text("saved")); + + my @redirect_params = ( + action => 'edit', + type => $self->type, + id => $self->order->id, + ); + + $self->redirect_to(@redirect_params); +} + +# save the order as new document an open it for edit +sub action_save_as_new { + my ($self) = @_; + + my $order = $self->order; + + if (!$order->id) { + $self->js->flash('error', t8('This object has not been saved yet.')); + return $self->js->render(); + } + + # load order from db to check if values changed + my $saved_order = SL::DB::DeliveryOrder->new(id => $order->id)->load; + + my %new_attrs; + # Lets assign a new number if the user hasn't changed the previous one. + # If it has been changed manually then use it as-is. + $new_attrs{number} = (trim($order->number) eq $saved_order->number) + ? '' + : trim($order->number); + + # Clear transdate unless changed + $new_attrs{transdate} = ($order->transdate == $saved_order->transdate) + ? DateTime->today_local + : $order->transdate; + + # Set new reqdate unless changed if it is enabled in client config + $new_attrs{reqdate} = $self->type_data->get_reqdate_by_type($order->reqdate, $saved_order->reqdate); + + # Update employee + $new_attrs{employee} = SL::DB::Manager::Employee->current; + + # Create new record from current one + $self->order(SL::DB::DeliveryOrder->new_from($order, destination_type => $order->type, attributes => \%new_attrs)); + + # no linked records on save as new + delete $::form->{$_} for qw(converted_from_oe_id converted_from_orderitems_ids); + + # save + $self->action_save(); +} + +# print the order +# +# This is called if "print" is pressed in the print dialog. +# If PDF creation was requested and succeeded, the pdf is offered for download +# via send_file (which uses ajax in this case). +sub action_print { + my ($self) = @_; + + my $errors = $self->save(); + + if (scalar @{ $errors }) { + $self->js->flash('error', $_) foreach @{ $errors }; + return $self->js->render(); + } + + $self->js_reset_order_and_item_ids_after_save; + + my $format = $::form->{print_options}->{format}; + my $media = $::form->{print_options}->{media}; + my $formname = $::form->{print_options}->{formname}; + my $copies = $::form->{print_options}->{copies}; + my $groupitems = $::form->{print_options}->{groupitems}; + my $printer_id = $::form->{print_options}->{printer_id}; + + # only pdf and opendocument by now + if (none { $format eq $_ } qw(pdf opendocument opendocument_pdf)) { + return $self->js->flash('error', t8('Format \'#1\' is not supported yet/anymore.', $format))->render; + } + + # only screen or printer by now + if (none { $media eq $_ } qw(screen printer)) { + return $self->js->flash('error', t8('Media \'#1\' is not supported yet/anymore.', $media))->render; + } + + # create a form for generate_attachment_filename + my $form = Form->new; + $form->{$self->nr_key()} = $self->order->number; + $form->{type} = $self->type; + $form->{format} = $format; + $form->{formname} = $formname; + $form->{language} = '_' . $self->order->language->template_code if $self->order->language; + my $pdf_filename = $form->generate_attachment_filename(); + + my $pdf; + my @errors = generate_pdf($self->order, \$pdf, { format => $format, + formname => $formname, + language => $self->order->language, + printer_id => $printer_id, + groupitems => $groupitems }); + if (scalar @errors) { + return $self->js->flash('error', t8('Conversion to PDF failed: #1', $errors[0]))->render; + } + + if ($media eq 'screen') { + # screen/download + $self->js->flash('info', t8('The PDF has been created')); + $self->send_file( + \$pdf, + type => SL::MIME->mime_type_from_ext($pdf_filename), + name => $pdf_filename, + js_no_render => 1, + ); + + } elsif ($media eq 'printer') { + # printer + my $printer_id = $::form->{print_options}->{printer_id}; + SL::DB::Printer->new(id => $printer_id)->load->print_document( + copies => $copies, + content => $pdf, + ); + + $self->js->flash('info', t8('The PDF has been printed')); + } + + my @warnings = store_pdf_to_webdav_and_filemanagement($self->order, $pdf, $pdf_filename); + if (scalar @warnings) { + $self->js->flash('warning', $_) for @warnings; + } + + $self->save_history('PRINTED'); + + $self->js + ->run('kivi.ActionBar.setEnabled', '#save_and_email_action') + ->render; +} +sub action_preview_pdf { + my ($self) = @_; + + my $errors = $self->save(); + if (scalar @{ $errors }) { + $self->js->flash('error', $_) foreach @{ $errors }; + return $self->js->render(); + } + + $self->js_reset_order_and_item_ids_after_save; + + my $format = 'pdf'; + my $media = 'screen'; + my $formname = $self->type; + + # only pdf + # create a form for generate_attachment_filename + my $form = Form->new; + $form->{$self->nr_key()} = $self->order->number; + $form->{type} = $self->type; + $form->{format} = $format; + $form->{formname} = $formname; + $form->{language} = '_' . $self->order->language->template_code if $self->order->language; + my $pdf_filename = $form->generate_attachment_filename(); + + my $pdf; + my @errors = generate_pdf($self->order, \$pdf, { format => $format, + formname => $formname, + language => $self->order->language, + }); + if (scalar @errors) { + return $self->js->flash('error', t8('Conversion to PDF failed: #1', $errors[0]))->render; + } + $self->save_history('PREVIEWED'); + $self->js->flash('info', t8('The PDF has been previewed')); + # screen/download + $self->send_file( + \$pdf, + type => SL::MIME->mime_type_from_ext($pdf_filename), + name => $pdf_filename, + js_no_render => 0, + ); +} + +# open the email dialog +sub action_save_and_show_email_dialog { + my ($self) = @_; + + my $errors = $self->save(); + + if (scalar @{ $errors }) { + $self->js->flash('error', $_) foreach @{ $errors }; + return $self->js->render(); + } + + my $cv_method = $self->cv; + + if (!$self->order->$cv_method) { + return $self->js->flash('error', $self->cv eq 'customer' ? t8('Cannot send E-mail without customer given') : t8('Cannot send E-mail without vendor given')) + ->render($self); + } + + my $email_form; + $email_form->{to} = $self->order->contact->cp_email if $self->order->contact; + $email_form->{to} ||= $self->order->$cv_method->email; + $email_form->{cc} = $self->order->$cv_method->cc; + $email_form->{bcc} = join ', ', grep $_, $self->order->$cv_method->bcc, SL::DB::Default->get->global_bcc; + # Todo: get addresses from shipto, if any + + my $form = Form->new; + $form->{$self->nr_key()} = $self->order->number; + $form->{cusordnumber} = $self->order->cusordnumber; + $form->{formname} = $self->type; + $form->{type} = $self->type; + $form->{language} = '_' . $self->order->language->template_code if $self->order->language; + $form->{language_id} = $self->order->language->id if $self->order->language; + $form->{format} = 'pdf'; + $form->{cp_id} = $self->order->contact->cp_id if $self->order->contact; + + $email_form->{subject} = $form->generate_email_subject(); + $email_form->{attachment_filename} = $form->generate_attachment_filename(); + $email_form->{message} = $form->generate_email_body(); + $email_form->{js_send_function} = 'kivi.DeliveryOrder.send_email()'; + + my %files = $self->get_files_for_email_dialog(); + $self->{all_employees} = SL::DB::Manager::Employee->get_all(query => [ deleted => 0 ]); + my $dialog_html = $self->render('common/_send_email_dialog', { output => 0 }, + email_form => $email_form, + show_bcc => $::auth->assert('email_bcc', 'may fail'), + FILES => \%files, + is_customer => $self->type_data->is_customer, + ALL_EMPLOYEES => $self->{all_employees}, + ); + + $self->js + ->run('kivi.DeliveryOrder.show_email_dialog', $dialog_html) + ->reinit_widgets + ->render($self); +} + +# send email +# +# Todo: handling error messages: flash is not displayed in dialog, but in the main form +sub action_send_email { + my ($self) = @_; + + my $errors = $self->save(); + + if (scalar @{ $errors }) { + $self->js->run('kivi.DeliveryOrder.close_email_dialog'); + $self->js->flash('error', $_) foreach @{ $errors }; + return $self->js->render(); + } + + $self->js_reset_order_and_item_ids_after_save; + + my $email_form = delete $::form->{email_form}; + my %field_names = (to => 'email'); + + $::form->{ $field_names{$_} // $_ } = $email_form->{$_} for keys %{ $email_form }; + + # for Form::cleanup which may be called in Form::send_email + $::form->{cwd} = getcwd(); + $::form->{tmpdir} = $::lx_office_conf{paths}->{userspath}; + + $::form->{$_} = $::form->{print_options}->{$_} for keys %{ $::form->{print_options} }; + $::form->{media} = 'email'; + + if (($::form->{attachment_policy} // '') !~ m{^(?:old_file|no_file)$}) { + my $pdf; + my @errors = generate_pdf($self->order, \$pdf, {media => $::form->{media}, + format => $::form->{print_options}->{format}, + formname => $::form->{print_options}->{formname}, + language => $self->order->language, + printer_id => $::form->{print_options}->{printer_id}, + groupitems => $::form->{print_options}->{groupitems}}); + if (scalar @errors) { + return $self->js->flash('error', t8('Conversion to PDF failed: #1', $errors[0]))->render($self); + } + + my @warnings = store_pdf_to_webdav_and_filemanagement($self->order, $pdf, $::form->{attachment_filename}); + if (scalar @warnings) { + flash_later('warning', $_) for @warnings; + } + + my $sfile = SL::SessionFile::Random->new(mode => "w"); + $sfile->fh->print($pdf); + $sfile->fh->close; + + $::form->{tmpfile} = $sfile->file_name; + $::form->{tmpdir} = $sfile->get_path; # for Form::cleanup which may be called in Form::send_email + } + + $::form->{id} = $self->order->id; # this is used in SL::Mailer to create a linked record to the mail + $::form->send_email(\%::myconfig, 'pdf'); + + # internal notes unless no email journal + unless ($::instance_conf->get_email_journal) { + + my $intnotes = $self->order->intnotes; + $intnotes .= "\n\n" if $self->order->intnotes; + $intnotes .= t8('[email]') . "\n"; + $intnotes .= t8('Date') . ": " . $::locale->format_date_object(DateTime->now_local, precision => 'seconds') . "\n"; + $intnotes .= t8('To (email)') . ": " . $::form->{email} . "\n"; + $intnotes .= t8('Cc') . ": " . $::form->{cc} . "\n" if $::form->{cc}; + $intnotes .= t8('Bcc') . ": " . $::form->{bcc} . "\n" if $::form->{bcc}; + $intnotes .= t8('Subject') . ": " . $::form->{subject} . "\n\n"; + $intnotes .= t8('Message') . ": " . $::form->{message}; + + $self->order->update_attributes(intnotes => $intnotes); + } + + $self->save_history('MAILED'); + + flash_later('info', t8('The email has been sent.')); + + my @redirect_params = ( + action => 'edit', + type => $self->type, + id => $self->order->id, + ); + + $self->redirect_to(@redirect_params); +} + +# save the order and redirect to the frontend subroutine for a new +# delivery order +sub action_save_and_delivery_order { + my ($self) = @_; + + $self->save_and_redirect_to( + controller => 'oe.pl', + action => 'oe_delivery_order_from_order', + ); +} + +# save the order and redirect to the frontend subroutine for a new +# invoice +sub action_save_and_invoice { + my ($self) = @_; + + $self->save_and_redirect_to( + controller => 'oe.pl', + action => 'oe_invoice_from_order', + ); +} + +# workflow from sales order to sales quotation +sub action_sales_quotation { + $_[0]->workflow_sales_or_request_for_quotation(); +} + +# workflow from sales order to sales quotation +sub action_request_for_quotation { + $_[0]->workflow_sales_or_request_for_quotation(); +} + +# workflow from sales quotation to sales order +sub action_sales_order { + $_[0]->workflow_sales_or_purchase_order(); +} + +# workflow from rfq to purchase order +sub action_purchase_order { + $_[0]->workflow_sales_or_purchase_order(); +} + +# workflow from purchase order to ap transaction +sub action_save_and_ap_transaction { + my ($self) = @_; + + $self->save_and_redirect_to( + controller => 'ap.pl', + action => 'add_from_purchase_order', + ); +} + +# set form elements in respect to a changed customer or vendor +# +# This action is called on an change of the customer/vendor picker. +sub action_customer_vendor_changed { + my ($self) = @_; + + setup_order_from_cv($self->order); + + my $cv_method = $self->cv; + + if ($self->order->$cv_method->contacts && scalar @{ $self->order->$cv_method->contacts } > 0) { + $self->js->show('#cp_row'); + } else { + $self->js->hide('#cp_row'); + } + + if ($self->order->$cv_method->shipto && scalar @{ $self->order->$cv_method->shipto } > 0) { + $self->js->show('#shipto_selection'); + } else { + $self->js->hide('#shipto_selection'); + } + + $self->js->val( '#order_salesman_id', $self->order->salesman_id) if $self->order->is_sales; + + $self->js + ->replaceWith('#order_cp_id', $self->build_contact_select) + ->replaceWith('#order_shipto_id', $self->build_shipto_select) + ->replaceWith('#shipto_inputs ', $self->build_shipto_inputs) + ->replaceWith('#business_info_row', $self->build_business_info_row) + ->val( '#order_taxzone_id', $self->order->taxzone_id) + ->val( '#order_taxincluded', $self->order->taxincluded) + ->val( '#order_currency_id', $self->order->currency_id) + ->val( '#order_payment_id', $self->order->payment_id) + ->val( '#order_delivery_term_id', $self->order->delivery_term_id) + ->val( '#order_intnotes', $self->order->intnotes) + ->val( '#order_language_id', $self->order->$cv_method->language_id) + ->focus( '#order_' . $self->cv . '_id') + ->run('kivi.DeliveryOrder.update_exchangerate'); + + $self->js_redisplay_cvpartnumbers; + $self->js->render(); +} + +# open the dialog for customer/vendor details +sub action_show_customer_vendor_details_dialog { + my ($self) = @_; + + my $is_customer = 'customer' eq $::form->{vc}; + my $cv; + if ($is_customer) { + $cv = SL::DB::Customer->new(id => $::form->{vc_id})->load; + } else { + $cv = SL::DB::Vendor->new(id => $::form->{vc_id})->load; + } + + my %details = map { $_ => $cv->$_ } @{$cv->meta->columns}; + $details{discount_as_percent} = $cv->discount_as_percent; + $details{creditlimt} = $cv->creditlimit_as_number; + $details{business} = $cv->business->description if $cv->business; + $details{language} = $cv->language_obj->description if $cv->language_obj; + $details{delivery_terms} = $cv->delivery_term->description if $cv->delivery_term; + $details{payment_terms} = $cv->payment->description if $cv->payment; + $details{pricegroup} = $cv->pricegroup->pricegroup if $is_customer && $cv->pricegroup; + + foreach my $entry (@{ $cv->shipto }) { + push @{ $details{SHIPTO} }, { map { $_ => $entry->$_ } @{$entry->meta->columns} }; + } + foreach my $entry (@{ $cv->contacts }) { + push @{ $details{CONTACTS} }, { map { $_ => $entry->$_ } @{$entry->meta->columns} }; + } + + $_[0]->render('common/show_vc_details', { layout => 0 }, + is_customer => $is_customer, + %details); + +} + +# called if a unit in an existing item row is changed +sub action_unit_changed { + my ($self) = @_; + + my $idx = first_index { $_ eq $::form->{item_id} } @{ $::form->{orderitem_ids} }; + my $item = $self->order->items_sorted->[$idx]; + + my $old_unit_obj = SL::DB::Unit->new(name => $::form->{old_unit})->load; + $item->sellprice($item->unit_obj->convert_to($item->sellprice, $old_unit_obj)); + + $self->js + ->run('kivi.DeliveryOrder.update_sellprice', $::form->{item_id}, $item->sellprice_as_number); + $self->js_redisplay_line_values; + $self->js->render(); +} + +# add an item row for a new item entered in the input row +sub action_add_item { + my ($self) = @_; + + delete $::form->{add_item}->{create_part_type}; + + my $form_attr = $::form->{add_item}; + + return unless $form_attr->{parts_id}; + + my $item = new_item($self->order, $form_attr); + + $self->order->add_items($item); + + $self->get_item_cvpartnumber($item); + + my $item_id = join('_', 'new', Time::HiRes::gettimeofday(), int rand 1000000000000); + my $row_as_html = $self->p->render('delivery_order/tabs/_row', + ITEM => $item, + ID => $item_id, + SELF => $self, + in_out => $self->type_data->transfer, + ); + + if ($::form->{insert_before_item_id}) { + $self->js + ->before ('.row_entry:has(#item_' . $::form->{insert_before_item_id} . ')', $row_as_html); + } else { + $self->js + ->append('#row_table_id', $row_as_html); + } + + if ( $item->part->is_assortment ) { + $form_attr->{qty_as_number} = 1 unless $form_attr->{qty_as_number}; + foreach my $assortment_item ( @{$item->part->assortment_items} ) { + my $attr = { parts_id => $assortment_item->parts_id, + qty => $assortment_item->qty * $::form->parse_amount(\%::myconfig, $form_attr->{qty_as_number}), # TODO $form_attr->{unit} + unit => $assortment_item->unit, + description => $assortment_item->part->description, + }; + my $item = new_item($self->order, $attr); + + # set discount to 100% if item isn't supposed to be charged, overwriting any customer discount + $item->discount(1) unless $assortment_item->charge; + + $self->order->add_items( $item ); + $self->get_item_cvpartnumber($item); + my $item_id = join('_', 'new', Time::HiRes::gettimeofday(), int rand 1000000000000); + my $row_as_html = $self->p->render('delivery_order/tabs/_row', + ITEM => $item, + ID => $item_id, + SELF => $self, + ); + if ($::form->{insert_before_item_id}) { + $self->js + ->before ('.row_entry:has(#item_' . $::form->{insert_before_item_id} . ')', $row_as_html); + } else { + $self->js + ->append('#row_table_id', $row_as_html); + } + }; + }; + + $self->js + ->val('.add_item_input', '') + ->run('kivi.DeliveryOrder.init_row_handlers') + ->run('kivi.DeliveryOrder.renumber_positions') + ->focus('#add_item_parts_id_name'); + + $self->js->run('kivi.DeliveryOrder.row_table_scroll_down') if !$::form->{insert_before_item_id}; + + $self->js->render(); +} + +# add item rows for multiple items at once +sub action_add_multi_items { + my ($self) = @_; + + my @form_attr = grep { $_->{qty_as_number} } @{ $::form->{add_items} }; + return $self->js->render() unless scalar @form_attr; + + my @items; + foreach my $attr (@form_attr) { + my $item = new_item($self->order, $attr); + push @items, $item; + if ( $item->part->is_assortment ) { + foreach my $assortment_item ( @{$item->part->assortment_items} ) { + my $attr = { parts_id => $assortment_item->parts_id, + qty => $assortment_item->qty * $item->qty, # TODO $form_attr->{unit} + unit => $assortment_item->unit, + description => $assortment_item->part->description, + }; + my $item = new_item($self->order, $attr); + + # set discount to 100% if item isn't supposed to be charged, overwriting any customer discount + $item->discount(1) unless $assortment_item->charge; + push @items, $item; + } + } + } + $self->order->add_items(@items); + + foreach my $item (@items) { + $self->get_item_cvpartnumber($item); + my $item_id = join('_', 'new', Time::HiRes::gettimeofday(), int rand 1000000000000); + my $row_as_html = $self->p->render('delivery_order/tabs/_row', + ITEM => $item, + ID => $item_id, + SELF => $self, + in_out => $self->type_data->transfer, + ); + + if ($::form->{insert_before_item_id}) { + $self->js + ->before ('.row_entry:has(#item_' . $::form->{insert_before_item_id} . ')', $row_as_html); + } else { + $self->js + ->append('#row_table_id', $row_as_html); + } + } + + $self->js + ->run('kivi.Part.close_picker_dialogs') + ->run('kivi.DeliveryOrder.init_row_handlers') + ->run('kivi.DeliveryOrder.renumber_positions') + ->focus('#add_item_parts_id_name'); + + $self->js->run('kivi.DeliveryOrder.row_table_scroll_down') if !$::form->{insert_before_item_id}; + + $self->js->render(); +} + +sub action_update_exchangerate { + my ($self) = @_; + + my $data = { + is_standard => $self->order->currency_id == $::instance_conf->get_currency_id, + currency_name => $self->order->currency->name, + }; + + $self->render(\SL::JSON::to_json($data), { type => 'json', process => 0 }); +} + +# redisplay item rows if they are sorted by an attribute +sub action_reorder_items { + my ($self) = @_; + + my %sort_keys = ( + partnumber => sub { $_[0]->part->partnumber }, + description => sub { $_[0]->description }, + qty => sub { $_[0]->qty }, + sellprice => sub { $_[0]->sellprice }, + discount => sub { $_[0]->discount }, + cvpartnumber => sub { $_[0]->{cvpartnumber} }, + ); + + $self->get_item_cvpartnumber($_) for @{$self->order->items_sorted}; + + my $method = $sort_keys{$::form->{order_by}}; + my @to_sort = map { { old_pos => $_->position, order_by => $method->($_) } } @{ $self->order->items_sorted }; + if ($::form->{sort_dir}) { + if ( $::form->{order_by} =~ m/qty|sellprice|discount/ ){ + @to_sort = sort { $a->{order_by} <=> $b->{order_by} } @to_sort; + } else { + @to_sort = sort { $a->{order_by} cmp $b->{order_by} } @to_sort; + } + } else { + if ( $::form->{order_by} =~ m/qty|sellprice|discount/ ){ + @to_sort = sort { $b->{order_by} <=> $a->{order_by} } @to_sort; + } else { + @to_sort = sort { $b->{order_by} cmp $a->{order_by} } @to_sort; + } + } + $self->js + ->run('kivi.DeliveryOrder.redisplay_items', \@to_sort) + ->render; +} + +# show the popup to choose a price/discount source +sub action_price_popup { + my ($self) = @_; + + my $idx = first_index { $_ eq $::form->{item_id} } @{ $::form->{orderitem_ids} }; + my $item = $self->order->items_sorted->[$idx]; + + $self->render_price_dialog($item); +} + +# save the order in a session variable and redirect to the part controller +sub action_create_part { + my ($self) = @_; + + my $previousform = $::auth->save_form_in_session(non_scalars => 1); + + my $callback = $self->url_for( + action => 'return_from_create_part', + type => $self->type, # type is needed for check_auth on return + previousform => $previousform, + ); + + flash_later('info', t8('You are adding a new part while you are editing another document. You will be redirected to your document when saving the new part or aborting this form.')); + + my @redirect_params = ( + controller => 'Part', + action => 'add', + part_type => $::form->{add_item}->{create_part_type}, + callback => $callback, + inline_create => 1, + ); + + $self->redirect_to(@redirect_params); +} + +sub action_return_from_create_part { + my ($self) = @_; + + $self->{created_part} = SL::DB::Part->new(id => delete $::form->{new_parts_id})->load if $::form->{new_parts_id}; + + $::auth->restore_form_from_session(delete $::form->{previousform}); + + # set item ids to new fake id, to identify them as new items + foreach my $item (@{$self->order->items_sorted}) { + $item->{new_fake_id} = join('_', 'new', Time::HiRes::gettimeofday(), int rand 1000000000000); + } + + $self->get_unalterable_data(); + $self->pre_render(); + + # trigger rendering values for second row/longdescription as hidden, + # because they are loaded only on demand. So we need to keep the values + # from the source. + $_->{render_second_row} = 1 for @{ $self->order->items_sorted }; + $_->{render_longdescription} = 1 for @{ $self->order->items_sorted }; + + $self->render( + 'delivery_order/form', + title => $self->get_title_for('edit'), + %{$self->{template_args}} + ); + +} + +sub action_stock_in_out_dialog { + my ($self) = @_; + + my $part = SL::DB::Part->load_cached($::form->{parts_id}) or die "need parts_id"; + my $unit = SL::DB::Unit->load_cached($::form->{unit}) or die "need unit"; + my $stock = $::form->{stock}; + my $row = $::form->{row}; + my $item_id = $::form->{item_id}; + my $qty = _parse_number($::form->{qty_as_number}); + + my $inout = $self->type_data->transfer; + + my @contents = DO->get_item_availability(parts_id => $part->id); + my $stock_info = DO->unpack_stock_information(packed => $stock); + + $self->merge_stock_data($stock_info, \@contents, $part, $unit); + + $self->render("delivery_order/stock_dialog", { layout => 0 }, + WHCONTENTS => $self->order->delivered ? $stock_info : \@contents, + part => $part, + do_qty => $qty, + do_unit => $unit->unit, + delivered => $self->order->delivered, + row => $row, + item_id => $item_id, + ); +} + +sub action_update_stock_information { + my ($self) = @_; + + my $stock_info = $::form->{stock_info}; + my $unit = $::form->{unit}; + my $yaml = SL::YAML::Dump($stock_info); + my $stock_qty = $self->calculate_stock_in_out_from_stock_info($unit, $stock_info); + + my $response = { + stock_info => $yaml, + stock_qty => $stock_qty, + }; + $self->render(\ SL::JSON::to_json($response), { layout => 0, type => 'json', process => 0 }); +} + +sub merge_stock_data { + my ($self, $stock_info, $contents, $part, $unit) = @_; + # TODO rewrite to mapping + + if (!$self->order->delivered) { + for my $row (@$contents) { + # row here is in parts units. stock is in item units + $row->{available_qty} = _format_number($part->unit_obj->convert_to($row->{qty}, $unit)); + + for my $sinfo (@{ $stock_info }) { + next if $row->{bin_id} != $sinfo->{bin_id} || + $row->{warehouse_id} != $sinfo->{warehouse_id} || + $row->{chargenumber} ne $sinfo->{chargenumber} || + $row->{bestbefore} ne $sinfo->{bestbefore}; + + $row->{"stock_$_"} = $sinfo->{$_} + for qw(qty unit error delivery_order_items_stock_id); + } + } + + } else { + for my $sinfo (@{ $stock_info }) { + my $bin = SL::DB::Bin->load_cached($sinfo->{bin_id}); + $sinfo->{warehousedescription} = $bin->warehouse->description; + $sinfo->{bindescription} = $bin->description; + map { $sinfo->{"stock_$_"} = $sinfo->{$_} } qw(qty unit); + } + } +} + +# load the second row for one or more items +# +# This action gets the html code for all items second rows by rendering a template for +# the second row and sets the html code via client js. +sub action_load_second_rows { + my ($self) = @_; + + foreach my $item_id (@{ $::form->{item_ids} }) { + my $idx = first_index { $_ eq $item_id } @{ $::form->{orderitem_ids} }; + my $item = $self->order->items_sorted->[$idx]; + + $self->js_load_second_row($item, $item_id, 0); + } + + $self->js->run('kivi.DeliveryOrder.init_row_handlers') if $self->order->is_sales; # for lastcosts change-callback + + $self->js->render(); +} + +# update description, notes and sellprice from master data +sub action_update_row_from_master_data { + my ($self) = @_; + + foreach my $item_id (@{ $::form->{item_ids} }) { + my $idx = first_index { $_ eq $item_id } @{ $::form->{orderitem_ids} }; + my $item = $self->order->items_sorted->[$idx]; + my $texts = get_part_texts($item->part, $self->order->language_id); + + $item->description($texts->{description}); + $item->longdescription($texts->{longdescription}); + + my $price_source = SL::PriceSource->new(record_item => $item, record => $self->order); + + my $price_src; + if ($item->part->is_assortment) { + # add assortment items with price 0, as the components carry the price + $price_src = $price_source->price_from_source(""); + $price_src->price(0); + } else { + $price_src = $price_source->best_price + ? $price_source->best_price + : $price_source->price_from_source(""); + $price_src->price($::form->round_amount($price_src->price / $self->order->exchangerate, 5)) if $self->order->exchangerate; + $price_src->price(0) if !$price_source->best_price; + } + + + $item->sellprice($price_src->price); + $item->active_price_source($price_src); + + $self->js + ->run('kivi.DeliveryOrder.update_sellprice', $item_id, $item->sellprice_as_number) + ->html('.row_entry:has(#item_' . $item_id . ') [name = "partnumber"] a', $item->part->partnumber) + ->val ('.row_entry:has(#item_' . $item_id . ') [name = "order.orderitems[].description"]', $item->description) + ->val ('.row_entry:has(#item_' . $item_id . ') [name = "order.orderitems[].longdescription"]', $item->longdescription); + + if ($self->search_cvpartnumber) { + $self->get_item_cvpartnumber($item); + $self->js->html('.row_entry:has(#item_' . $item_id . ') [name = "cvpartnumber"]', $item->{cvpartnumber}); + } + } + + $self->js_redisplay_line_values; + + $self->js->render(); +} + +sub action_transfer_stock { + my ($self) = @_; + + if ($self->order->delivered) { + return $self->js->flash("error", t8('The parts for this order have already been transferred'))->render; + } + + my $inout = $self->type_data->properties('transfer'); + + my $errors = $self->save; + + if (@$errors) { + $self->js->flash('error', $_) for @$errors; + return $self->js->render; + } + + my $order = $self->order; + + # TODO move to type data + my $trans_type = $inout eq 'in' + ? SL::DB::Manager::TransferType->find_by(direction => "id", description => "stock") + : SL::DB::Manager::TransferType->find_by(direction => "out", description => "shipped"); + + my @transfer_requests; + + for my $item (@{ $order->items_sorted }) { + for my $stock (@{ $item->delivery_order_stock_entries }) { + my $transfer = SL::DB::Inventory->new_from($stock); + $transfer->trans_type($trans_type); + $transfer->qty($transfer->qty * -1) if $inout eq 'out'; + + push @transfer_requests, $transfer if defined $transfer->qty && $transfer->qty != 0; + }; + } + + if (!@transfer_requests) { + return $self->js->flash("error", t8("No stock to transfer"))->render; + } + + SL::DB->client->with_transaction(sub { + $_->save for @transfer_requests; + $self->order->update_attributes(delivered => 1); + }); + + $self->js + ->flash("info", t8("Stock transfered")) + ->run('kivi.ActionBar.setDisabled', '#transfer_out_action', t8('The parts for this order have already been transferred')) + ->run('kivi.ActionBar.setDisabled', '#transfer_in_action', t8('The parts for this order have already been transferred')) + ->run('kivi.ActionBar.setDisabled', '#delete_action', t8('The parts for this order have already been transferred')) + ->replaceWith('#data-status-line', delivery_order_status_line($self->order)) + ->render; + +} + +sub js_load_second_row { + my ($self, $item, $item_id, $do_parse) = @_; + + if ($do_parse) { + # Parse values from form (they are formated while rendering (template)). + # Workaround to pre-parse number-cvars (parse_custom_variable_values does not parse number values). + # This parsing is not necessary at all, if we assure that the second row/cvars are only loaded once. + foreach my $var (@{ $item->cvars_by_config }) { + $var->unparsed_value($::form->parse_amount(\%::myconfig, $var->{__unparsed_value})) if ($var->config->type eq 'number' && exists($var->{__unparsed_value})); + } + $item->parse_custom_variable_values; + } + + my $row_as_html = $self->p->render('delivery_order/tabs/_second_row', ITEM => $item, TYPE => $self->type); + + $self->js + ->html('#second_row_' . $item_id, $row_as_html) + ->data('#second_row_' . $item_id, 'loaded', 1); +} + +sub js_redisplay_line_values { + my ($self) = @_; + + my $is_sales = $self->order->is_sales; + + # sales orders with margins + my @data; + if ($is_sales) { + @data = map { + [ + $::form->format_amount(\%::myconfig, $_->{linetotal}, 2, 0), + $::form->format_amount(\%::myconfig, $_->{marge_total}, 2, 0), + $::form->format_amount(\%::myconfig, $_->{marge_percent}, 2, 0), + ]} @{ $self->order->items_sorted }; + } else { + @data = map { + [ + $::form->format_amount(\%::myconfig, $_->{linetotal}, 2, 0), + ]} @{ $self->order->items_sorted }; + } + + $self->js + ->run('kivi.DeliveryOrder.redisplay_line_values', $is_sales, \@data); +} + +sub js_redisplay_cvpartnumbers { + my ($self) = @_; + + $self->get_item_cvpartnumber($_) for @{$self->order->items_sorted}; + + my @data = map {[$_->{cvpartnumber}]} @{ $self->order->items_sorted }; + + $self->js + ->run('kivi.DeliveryOrder.redisplay_cvpartnumbers', \@data); +} + +sub js_reset_order_and_item_ids_after_save { + my ($self) = @_; + + $self->js + ->val('#id', $self->order->id) + ->val('#converted_from_oe_id', '') + ->val('#order_' . $self->nr_key(), $self->order->number); + + my $idx = 0; + foreach my $form_item_id (@{ $::form->{orderitem_ids} }) { + next if !$self->order->items_sorted->[$idx]->id; + next if $form_item_id !~ m{^new}; + $self->js + ->val ('[name="orderitem_ids[+]"][value="' . $form_item_id . '"]', $self->order->items_sorted->[$idx]->id) + ->val ('#item_' . $form_item_id, $self->order->items_sorted->[$idx]->id) + ->attr('#item_' . $form_item_id, "id", 'item_' . $self->order->items_sorted->[$idx]->id); + } continue { + $idx++; + } + $self->js->val('[name="converted_from_orderitems_ids[+]"]', ''); +} + +# +# helpers +# + +sub init_type { + my ($self) = @_; + + if (none { $::form->{type} eq $_ } @{$self->valid_types}) { + die "Not a valid type for delivery order"; + } + + $self->type($::form->{type}); +} + +sub init_cv { + my ($self) = @_; + + return $self->type_data->customervendor; +} + +sub init_search_cvpartnumber { + my ($self) = @_; + + my $user_prefs = SL::Helper::UserPreferences::PartPickerSearch->new(); + my $search_cvpartnumber; + $search_cvpartnumber = !!$user_prefs->get_sales_search_customer_partnumber() if $self->cv eq 'customer'; + $search_cvpartnumber = !!$user_prefs->get_purchase_search_makemodel() if $self->cv eq 'vendor'; + + return $search_cvpartnumber; +} + +sub init_show_update_button { + my ($self) = @_; + + !!SL::Helper::UserPreferences::UpdatePositions->new()->get_show_update_button(); +} + +sub init_p { + SL::Presenter->get; +} + +sub init_order { + $_[0]->make_order; +} + +sub init_all_price_factors { + SL::DB::Manager::PriceFactor->get_all; +} + +sub init_part_picker_classification_ids { + my ($self) = @_; + + return [ map { $_->id } @{ SL::DB::Manager::PartClassification->get_all(where => $self->type_data->part_classification_query) } ]; +} + +sub check_auth { + my ($self) = @_; + + $::auth->assert($self->type_data->access('view') || 'DOES_NOT_EXIST'); +} + +sub check_auth_for_edit { + my ($self) = @_; + + $::auth->assert($self->type_data->access('edit') || 'DOES_NOT_EXIST'); +} + +# build the selection box for contacts +# +# Needed, if customer/vendor changed. +sub build_contact_select { + my ($self) = @_; + + select_tag('order.cp_id', [ $self->order->{$self->cv}->contacts ], + value_key => 'cp_id', + title_key => 'full_name_dep', + default => $self->order->cp_id, + with_empty => 1, + style => 'width: 300px', + ); +} + +# build the selection box for shiptos +# +# Needed, if customer/vendor changed. +sub build_shipto_select { + my ($self) = @_; + + select_tag('order.shipto_id', + [ {displayable_id => t8("No/individual shipping address"), shipto_id => ''}, $self->order->{$self->cv}->shipto ], + value_key => 'shipto_id', + title_key => 'displayable_id', + default => $self->order->shipto_id, + with_empty => 0, + style => 'width: 300px', + ); +} + +# build the inputs for the cusom shipto dialog +# +# Needed, if customer/vendor changed. +sub build_shipto_inputs { + my ($self) = @_; + + my $content = $self->p->render('common/_ship_to_dialog', + vc_obj => $self->order->customervendor, + cs_obj => $self->order->custom_shipto, + cvars => $self->order->custom_shipto->cvars_by_config, + id_selector => '#order_shipto_id'); + + div_tag($content, id => 'shipto_inputs'); +} + +# render the info line for business +# +# Needed, if customer/vendor changed. +sub build_business_info_row +{ + $_[0]->p->render('delivery_order/tabs/_business_info_row', SELF => $_[0]); +} + + +sub load_order { + my ($self) = @_; + + return if !$::form->{id}; + + $self->order(SL::DB::DeliveryOrder->new(id => $::form->{id})->load); + + # Add an empty custom shipto to the order, so that the dialog can render the cvar inputs. + # You need a custom shipto object to call cvars_by_config to get the cvars. + $self->order->custom_shipto(SL::DB::Shipto->new(module => 'OE', custom_variables => [])) if !$self->order->custom_shipto; + + $self->prepare_stock_info($_) for $self->order->items; + + return $self->order; +} + +# load or create a new order object +# +# And assign changes from the form to this object. +# If the order is loaded from db, check if items are deleted in the form, +# remove them form the object and collect them for removing from db on saving. +# Then create/update items from form (via make_item) and add them. +sub make_order { + my ($self) = @_; + + # add_items adds items to an order with no items for saving, but they cannot + # be retrieved via items until the order is saved. Adding empty items to new + # order here solves this problem. + my $order; + $order = SL::DB::DeliveryOrder->new(id => $::form->{id})->load(with => [ 'orderitems', 'orderitems.part' ]) if $::form->{id}; + $order ||= SL::DB::DeliveryOrder->new(orderitems => [], currency_id => $::instance_conf->get_currency_id(), order_type => $self->type_data->validate($::form->{type})); + + my $cv_id_method = $self->cv . '_id'; + if (!$::form->{id} && $::form->{$cv_id_method}) { + $order->$cv_id_method($::form->{$cv_id_method}); + setup_order_from_cv($order); + } + + my $form_orderitems = delete $::form->{order}->{orderitems}; + + $order->assign_attributes(%{$::form->{order}}); + + $self->setup_custom_shipto_from_form($order, $::form); + + # remove deleted items + $self->item_ids_to_delete([]); + foreach my $idx (reverse 0..$#{$order->orderitems}) { + my $item = $order->orderitems->[$idx]; + if (none { $item->id == $_->{id} } @{$form_orderitems}) { + splice @{$order->orderitems}, $idx, 1; + push @{$self->item_ids_to_delete}, $item->id; + } + } + + my @items; + my $pos = 1; + foreach my $form_attr (@{$form_orderitems}) { + my $item = make_item($order, $form_attr); + $item->position($pos); + push @items, $item; + $pos++; + } + + $self->prepare_stock_info($_) for $order->items, @items; + + $order->add_items(grep {!$_->id} @items); + + return $order; +} + +# create or update items from form +# +# Make item objects from form values. For items already existing read from db. +# Create a new item else. And assign attributes. +sub make_item { + my ($record, $attr) = @_; + + my $item; + $item = first { $_->id == $attr->{id} } @{$record->items} if $attr->{id}; + + my $is_new = !$item; + + # add_custom_variables adds cvars to an orderitem with no cvars for saving, but + # they cannot be retrieved via custom_variables until the order/orderitem is + # saved. Adding empty custom_variables to new orderitem here solves this problem. + $item ||= SL::DB::DeliveryOrderItem->new(custom_variables => []); + + # handle stock info + if (my $stock_info = delete $attr->{stock_info}) { + my %existing = map { $_->id => $_ } $item->delivery_order_stock_entries; + my @save; + + for my $line (@{ DO->unpack_stock_information(packed => $stock_info) }) { + # lookup existing or make new + my $obj = delete $existing{$line->{delivery_order_items_stock_id}} + // SL::DB::DeliveryOrderItemsStock->new; + + # assign attributes + $obj->$_($line->{$_}) for qw(bin_id warehouse_id chargenumber qty unit); + $obj->bestbefore_as_date($line->{bestfbefore}) + if $line->{bestbefore} && $::instance_conf->get_show_bestbefore; + push @save, $obj if $obj->qty; + } + + $item->delivery_order_stock_entries(@save); + } + + $item->assign_attributes(%$attr); + + if ($is_new) { + my $texts = get_part_texts($item->part, $record->language_id); + $item->longdescription($texts->{longdescription}) if !defined $attr->{longdescription}; + $item->project_id($record->globalproject_id) if !defined $attr->{project_id}; + $item->lastcost($record->is_sales ? $item->part->lastcost : 0) if !defined $attr->{lastcost_as_number}; + } + + return $item; +} + +# create a new item +# +# This is used to add one item +sub new_item { + my ($record, $attr) = @_; + + my $item = SL::DB::DeliveryOrderItem->new; + + # Remove attributes where the user left or set the inputs empty. + # So these attributes will be undefined and we can distinguish them + # from zero later on. + for (qw(qty_as_number sellprice_as_number discount_as_percent)) { + delete $attr->{$_} if $attr->{$_} eq ''; + } + + $item->assign_attributes(%$attr); + + my $part = SL::DB::Part->new(id => $attr->{parts_id})->load; + my $price_source = SL::PriceSource->new(record_item => $item, record => $record); + + $item->unit($part->unit) if !$item->unit; + + my $price_src; + if ( $part->is_assortment ) { + # add assortment items with price 0, as the components carry the price + $price_src = $price_source->price_from_source(""); + $price_src->price(0); + } elsif (defined $item->sellprice) { + $price_src = $price_source->price_from_source(""); + $price_src->price($item->sellprice); + } else { + $price_src = $price_source->best_price + ? $price_source->best_price + : $price_source->price_from_source(""); + $price_src->price(0) if !$price_source->best_price; + } + + my $discount_src; + if (defined $item->discount) { + $discount_src = $price_source->discount_from_source(""); + $discount_src->discount($item->discount); + } else { + $discount_src = $price_source->best_discount + ? $price_source->best_discount + : $price_source->discount_from_source(""); + $discount_src->discount(0) if !$price_source->best_discount; + } + + my %new_attr; + $new_attr{part} = $part; + $new_attr{description} = $part->description if ! $item->description; + $new_attr{qty} = 1.0 if ! $item->qty; + $new_attr{price_factor_id} = $part->price_factor_id if ! $item->price_factor_id; + $new_attr{sellprice} = $price_src->price; + $new_attr{discount} = $discount_src->discount; + $new_attr{active_price_source} = $price_src; + $new_attr{active_discount_source} = $discount_src; + $new_attr{longdescription} = $part->notes if ! defined $attr->{longdescription}; + $new_attr{project_id} = $record->globalproject_id; + $new_attr{lastcost} = $record->is_sales ? $part->lastcost : 0; + + # add_custom_variables adds cvars to an orderitem with no cvars for saving, but + # they cannot be retrieved via custom_variables until the order/orderitem is + # saved. Adding empty custom_variables to new orderitem here solves this problem. + $new_attr{custom_variables} = []; + + my $texts = get_part_texts($part, $record->language_id, description => $new_attr{description}, longdescription => $new_attr{longdescription}); + + $item->assign_attributes(%new_attr, %{ $texts }); + + return $item; +} + +sub prepare_stock_info { + my ($self, $item) = @_; + + $item->{stock_info} = SL::YAML::Dump([ + map +{ + delivery_order_items_stock_id => $_->id, + qty => $_->qty, + warehouse_id => $_->warehouse_id, + bin_id => $_->bin_id, + chargenumber => $_->chargenumber, + unit => $_->unit, + }, $item->delivery_order_stock_entries + ]); +} + +sub setup_order_from_cv { + my ($order) = @_; + + $order->$_($order->customervendor->$_) for (qw(taxzone_id payment_id delivery_term_id currency_id)); + + $order->intnotes($order->customervendor->notes); + + if ($order->is_sales) { + $order->salesman_id($order->customer->salesman_id || SL::DB::Manager::Employee->current->id); + $order->taxincluded(defined($order->customer->taxincluded_checked) + ? $order->customer->taxincluded_checked + : $::myconfig{taxincluded_checked}); + } + +} + +# setup custom shipto from form +# +# The dialog returns form variables starting with 'shipto' and cvars starting +# with 'shiptocvar_'. +# Mark it to be deleted if a shipto from master data is selected +# (i.e. order has a shipto). +# Else, update or create a new custom shipto. If the fields are empty, it +# will not be saved on save. +sub setup_custom_shipto_from_form { + my ($self, $order, $form) = @_; + + if ($order->shipto) { + $self->is_custom_shipto_to_delete(1); + } else { + my $custom_shipto = $order->custom_shipto || $order->custom_shipto(SL::DB::Shipto->new(module => 'OE', custom_variables => [])); + + my $shipto_cvars = {map { my ($key) = m{^shiptocvar_(.+)}; $key => delete $form->{$_}} grep { m{^shiptocvar_} } keys %$form}; + my $shipto_attrs = {map { $_ => delete $form->{$_}} grep { m{^shipto} } keys %$form}; + + $custom_shipto->assign_attributes(%$shipto_attrs); + $custom_shipto->cvar_by_name($_)->value($shipto_cvars->{$_}) for keys %$shipto_cvars; + } +} + +# get data for saving, printing, ..., that is not changed in the form +# +# Only cvars for now. +sub get_unalterable_data { + my ($self) = @_; + + foreach my $item (@{ $self->order->items }) { + # autovivify all cvars that are not in the form (cvars_by_config can do it). + # workaround to pre-parse number-cvars (parse_custom_variable_values does not parse number values). + foreach my $var (@{ $item->cvars_by_config }) { + $var->unparsed_value($::form->parse_amount(\%::myconfig, $var->{__unparsed_value})) if ($var->config->type eq 'number' && exists($var->{__unparsed_value})); + } + $item->parse_custom_variable_values; + } +} + +# delete the order +# +# And remove related files in the spool directory +sub delete { + my ($self) = @_; + + my $errors = []; + my $db = $self->order->db; + + $db->with_transaction( + sub { + my @spoolfiles = grep { $_ } map { $_->spoolfile } @{ SL::DB::Manager::Status->get_all(where => [ trans_id => $self->order->id ]) }; + $self->order->delete; + my $spool = $::lx_office_conf{paths}->{spool}; + unlink map { "$spool/$_" } @spoolfiles if $spool; + + $self->save_history('DELETED'); + + 1; + }) || push(@{$errors}, $db->error); + + return $errors; +} + +# save the order +# +# And delete items that are deleted in the form. +sub save { + my ($self) = @_; + + my $errors = []; + my $db = $self->order->db; + + $db->with_transaction(sub { + # delete custom shipto if it is to be deleted or if it is empty + if ($self->order->custom_shipto && ($self->is_custom_shipto_to_delete || $self->order->custom_shipto->is_empty)) { + $self->order->custom_shipto->delete if $self->order->custom_shipto->shipto_id; + $self->order->custom_shipto(undef); + } + + SL::DB::DeliveryOrderItem->new(id => $_)->delete for @{$self->item_ids_to_delete || []}; + $self->order->save(cascade => 1); + + # link records + if ($::form->{converted_from_oe_id}) { + my @converted_from_oe_ids = split ' ', $::form->{converted_from_oe_id}; + foreach my $converted_from_oe_id (@converted_from_oe_ids) { + my $src = SL::DB::Order->new(id => $converted_from_oe_id)->load; + $src->update_attributes(closed => 1) if $src->type =~ /_quotation$/ && $self->order->is_type(PURCHASE_DELIVERY_ORDER_TYPE); + $src->link_to_record($self->order); + } + if (scalar @{ $::form->{converted_from_orderitems_ids} || [] }) { + my $idx = 0; + foreach (@{ $self->order->items_sorted }) { + my $from_id = $::form->{converted_from_orderitems_ids}->[$idx]; + next if !$from_id; + SL::DB::RecordLink->new(from_table => 'orderitems', + from_id => $from_id, + to_table => 'orderitems', + to_id => $_->id + )->save; + $idx++; + } + } + } + + $self->save_history('SAVED'); + + 1; + }) || push(@{$errors}, $db->error); + + return $errors; +} + +sub workflow_sales_or_request_for_quotation { + my ($self) = @_; + + # always save + my $errors = $self->save(); + + if (scalar @{ $errors }) { + $self->js->flash('error', $_) for @{ $errors }; + return $self->js->render(); + } + + my $destination_type = $self->type_data->workflow("to_quotation_type"); + + $self->order(SL::DB::DeliveryOrder->new_from($self->order, destination_type => $destination_type)); + $self->{converted_from_oe_id} = delete $::form->{id}; + + # set item ids to new fake id, to identify them as new items + foreach my $item (@{$self->order->items_sorted}) { + $item->{new_fake_id} = join('_', 'new', Time::HiRes::gettimeofday(), int rand 1000000000000); + } + + # change form type + $::form->{type} = $destination_type; + $self->type($self->init_type); + $self->cv ($self->init_cv); + $self->check_auth; + + $self->get_unalterable_data(); + $self->pre_render(); + + # trigger rendering values for second row as hidden, because they + # are loaded only on demand. So we need to keep the values from the + # source. + $_->{render_second_row} = 1 for @{ $self->order->items_sorted }; + + $self->render( + 'delivery_order/form', + title => $self->get_title_for('edit'), + %{$self->{template_args}} + ); +} + +sub workflow_sales_or_purchase_order { + my ($self) = @_; + + # always save + my $errors = $self->save(); + + if (scalar @{ $errors }) { + $self->js->flash('error', $_) foreach @{ $errors }; + return $self->js->render(); + } + + my $destination_type = $self->type_data->workflow("to_order_type"); + + # check for direct delivery + # copy shipto in custom shipto (custom shipto will be copied by new_from() in case) + my $custom_shipto; + if ($self->type_data->workflow("to_order_copy_shipto") && $::form->{use_shipto} && $self->order->shipto) { + $custom_shipto = $self->order->shipto->clone('SL::DB::DeliveryOrder'); + } + + $self->order(SL::DB::DeliveryOrder->new_from($self->order, destination_type => $destination_type)); + $self->{converted_from_oe_id} = delete $::form->{id}; + + # set item ids to new fake id, to identify them as new items + foreach my $item (@{$self->order->items_sorted}) { + $item->{new_fake_id} = join('_', 'new', Time::HiRes::gettimeofday(), int rand 1000000000000); + } + + if ($self->type_data->workflow("to_order_copy_shipto")) { + if ($::form->{use_shipto}) { + $self->order->custom_shipto($custom_shipto) if $custom_shipto; + } else { + # remove any custom shipto if not wanted + $self->order->custom_shipto(SL::DB::Shipto->new(module => 'OE', custom_variables => [])); + } + } + + # change form type + $::form->{type} = $destination_type; + $self->type($self->init_type); + $self->cv ($self->init_cv); + $self->check_auth; + + $self->get_unalterable_data(); + $self->pre_render(); + + # trigger rendering values for second row as hidden, because they + # are loaded only on demand. So we need to keep the values from the + # source. + $_->{render_second_row} = 1 for @{ $self->order->items_sorted }; + + $self->render( + 'delivery_order/form', + title => $self->get_title_for('edit'), + %{$self->{template_args}} + ); +} + +sub pre_render { + my ($self) = @_; + + $self->{all_taxzones} = SL::DB::Manager::TaxZone->get_all_sorted(); + $self->{all_currencies} = SL::DB::Manager::Currency->get_all_sorted(); + $self->{all_departments} = SL::DB::Manager::Department->get_all_sorted(); + $self->{all_languages} = SL::DB::Manager::Language->get_all_sorted( query => [ or => [ obsolete => 0, id => $self->order->language_id ] ] ); + $self->{all_employees} = SL::DB::Manager::Employee->get_all(where => [ or => [ id => $self->order->employee_id, + deleted => 0 ] ], + sort_by => 'name'); + $self->{all_salesmen} = SL::DB::Manager::Employee->get_all(where => [ or => [ id => $self->order->salesman_id, + deleted => 0 ] ], + sort_by => 'name'); + $self->{all_payment_terms} = SL::DB::Manager::PaymentTerm->get_all_sorted(where => [ or => [ id => $self->order->payment_id, + obsolete => 0 ] ]); + $self->{all_delivery_terms} = SL::DB::Manager::DeliveryTerm->get_all_sorted(); + $self->{current_employee_id} = SL::DB::Manager::Employee->current->id; + $self->{order_probabilities} = [ map { { title => ($_ * 10) . '%', id => $_ * 10 } } (0..10) ]; + $self->{positions_scrollbar_height} = SL::Helper::UserPreferences::PositionsScrollbar->new()->get_height(); + + my $print_form = Form->new(''); + $print_form->{type} = $self->type; + $print_form->{printers} = SL::DB::Manager::Printer->get_all_sorted; + $self->{print_options} = SL::Helper::PrintOptions->get_print_options( + form => $print_form, + options => {dialog_name_prefix => 'print_options.', + show_headers => 1, + no_queue => 1, + no_postscript => 1, + no_opendocument => 0, + no_html => 1}, + ); + + foreach my $item (@{$self->order->orderitems}) { + my $price_source = SL::PriceSource->new(record_item => $item, record => $self->order); + $item->active_price_source( $price_source->price_from_source( $item->active_price_source )); + $item->active_discount_source($price_source->discount_from_source($item->active_discount_source)); + } + + if ($self->order->${\ $self->type_data->nr_key } && $::instance_conf->get_webdav) { + my $webdav = SL::Webdav->new( + type => $self->type, + number => $self->order->number, + ); + my @all_objects = $webdav->get_all_objects; + @{ $self->{template_args}->{WEBDAV} } = map { { name => $_->filename, + type => t8('File'), + link => File::Spec->catfile($_->full_filedescriptor), + } } @all_objects; + } + + $self->{template_args}{in_out} = $self->type_data->transfer; + $self->{template_args}{longdescription_dialog_size_percentage} = SL::Helper::UserPreferences::DisplayPreferences->new()->get_longdescription_dialog_size_percentage(); + + $self->get_item_cvpartnumber($_) for @{$self->order->items_sorted}; + + $::request->{layout}->use_javascript("${_}.js") for qw(kivi.SalesPurchase kivi.DeliveryOrder kivi.File ckeditor/ckeditor ckeditor/adapters/jquery + calculate_qty kivi.Validator follow_up show_history); + $self->setup_edit_action_bar; +} + +sub setup_edit_action_bar { + my ($self, %params) = @_; + + my $deletion_allowed = $self->type_data->show_menu("delete"); + my $may_edit_create = $::auth->assert($self->type_data->access('edit') || 'DOES_NOT_EXIST', 1); + + for my $bar ($::request->layout->get('actionbar')) { + $bar->add( + combobox => [ + action => [ + t8('Save'), + call => [ 'kivi.DeliveryOrder.save', 'save', $::instance_conf->get_order_warn_duplicate_parts, + $::instance_conf->get_order_warn_no_deliverydate, + ], + disabled => !$may_edit_create ? t8('You do not have the permissions to access this function.') : undef, + ], + action => [ + t8('Save as new'), + call => [ 'kivi.DeliveryOrder.save', 'save_as_new', $::instance_conf->get_order_warn_duplicate_parts ], + disabled => !$may_edit_create ? t8('You do not have the permissions to access this function.') + : $self->type eq 'supplier_delivery_order' ? t8('Need a workflow for Supplier Delivery Order') + : !$self->order->id ? t8('This object has not been saved yet.') + : undef, + ], + ], # end of combobox "Save" + + combobox => [ + action => [ + t8('Workflow'), + ], + action => [ + t8('Save and Quotation'), + submit => [ '#order_form', { action => "DeliveryOrder/sales_quotation" } ], + only_if => $self->type_data->show_menu("save_and_quotation"), + disabled => !$may_edit_create ? t8('You do not have the permissions to access this function.') : undef, + ], + action => [ + t8('Save and RFQ'), + submit => [ '#order_form', { action => "DeliveryOrder/request_for_quotation" } ], + only_if => $self->type_data->show_menu("save_and_rfq"), + disabled => !$may_edit_create ? t8('You do not have the permissions to access this function.') : undef, + ], + action => [ + t8('Save and Sales Order'), + submit => [ '#order_form', { action => "DeliveryOrder/sales_order" } ], + only_if => $self->type_data->show_menu("save_and_sales_order"), + disabled => !$may_edit_create ? t8('You do not have the permissions to access this function.') : undef, + ], + action => [ + t8('Save and Purchase Order'), + call => [ 'kivi.DeliveryOrder.purchase_order_check_for_direct_delivery' ], + only_if => $self->type_data->show_menu("save_and_purchase_order"), + disabled => !$may_edit_create ? t8('You do not have the permissions to access this function.') : undef, + ], + action => [ + t8('Save and Delivery Order'), + call => [ 'kivi.DeliveryOrder.save', 'save_and_delivery_order', $::instance_conf->get_order_warn_duplicate_parts, + $::instance_conf->get_order_warn_no_deliverydate, + ], + only_if => $self->type_data->show_menu("save_and_delivery_order"), + disabled => !$may_edit_create ? t8('You do not have the permissions to access this function.') : undef, + ], + action => [ + t8('Save and Invoice'), + call => [ 'kivi.DeliveryOrder.save', 'save_and_invoice', $::instance_conf->get_order_warn_duplicate_parts ], + only_if => $self->type_data->show_menu("save_and_invoice"), + disabled => !$may_edit_create ? t8('You do not have the permissions to access this function.') : undef, + ], + action => [ + t8('Save and AP Transaction'), + call => [ 'kivi.DeliveryOrder.save', 'save_and_ap_transaction', $::instance_conf->get_order_warn_duplicate_parts ], + only_if => $self->type_data->show_menu("save_and_ap_transaction"), + disabled => !$may_edit_create ? t8('You do not have the permissions to access this function.') : undef, + ], + + ], # end of combobox "Workflow" + + combobox => [ + action => [ + t8('Export'), + ], + action => [ + t8('Save and preview PDF'), + call => [ 'kivi.DeliveryOrder.save', 'preview_pdf', $::instance_conf->get_order_warn_duplicate_parts, + $::instance_conf->get_order_warn_no_deliverydate, + ], + disabled => !$may_edit_create ? t8('You do not have the permissions to access this function.') : undef, + ], + action => [ + t8('Save and print'), + call => [ 'kivi.DeliveryOrder.show_print_options', $::instance_conf->get_order_warn_duplicate_parts, + $::instance_conf->get_order_warn_no_deliverydate, + ], + disabled => !$may_edit_create ? t8('You do not have the permissions to access this function.') : undef, + ], + action => [ + t8('Save and E-mail'), + id => 'save_and_email_action', + call => [ 'kivi.DeliveryOrder.save', 'save_and_show_email_dialog', $::instance_conf->get_order_warn_duplicate_parts, + $::instance_conf->get_order_warn_no_deliverydate, + ], + disabled => !$may_edit_create ? t8('You do not have the permissions to access this function.') + : !$self->order->id ? t8('This object has not been saved yet.') + : undef, + ], + action => [ + t8('Download attachments of all parts'), + call => [ 'kivi.File.downloadOrderitemsFiles', $::form->{type}, $::form->{id} ], + disabled => !$may_edit_create ? t8('You do not have the permissions to access this function.') + : !$self->order->id ? t8('This object has not been saved yet.') + : undef, + only_if => $::instance_conf->get_doc_storage, + ], + ], # end of combobox "Export" + + action => [ + t8('Delete'), + id => 'delete_action', + call => [ 'kivi.DeliveryOrder.delete_order' ], + confirm => $::locale->text('Do you really want to delete this object?'), + disabled => !$may_edit_create ? t8('You do not have the permissions to access this function.') + : !$self->order->id ? t8('This object has not been saved yet.') + : $self->order->delivered ? t8('The parts for this order have already been transferred') + : undef, + only_if => $self->type_data->show_menu("delete"), + ], + + combobox => [ + action => [ + t8('Transfer out'), + id => 'transfer_out_action', + call => [ 'kivi.DeliveryOrder.save', 'transfer_stock' ], + disabled => !$may_edit_create ? t8('You do not have the permissions to access this function.') + : !$self->order->id ? t8('This object has not been saved yet.') + : $self->order->delivered ? t8('The parts for this order have already been transferred') + : undef, + only_if => $self->type_data->properties('transfer') eq 'out', + confirm => t8('Do you really want to transfer the stock and set this order to delivered?'), + ], + action => [ + t8('Transfer in'), + id => 'transfer_in_action', + call => [ 'kivi.DeliveryOrder.save', 'transfer_stock' ], + disabled => !$may_edit_create ? t8('You do not have the permissions to access this function.') + : !$self->order->id ? t8('This object has not been saved yet.') + : $self->order->delivered ? t8('The parts for this order have already been transferred') + : undef, + only_if => $self->type_data->properties('transfer') eq 'in', + confirm => t8('Do you really want to transfer the stock and set this order to delivered?'), + ], + ], + + combobox => [ + action => [ + t8('more') + ], + action => [ + t8('Follow-Up'), + call => [ 'kivi.DeliveryOrder.follow_up_window' ], + disabled => !$self->order->id ? t8('This object has not been saved yet.') : undef, + only_if => $::auth->assert('productivity', 1), + ], + action => [ + t8('History'), + call => [ 'set_history_window', $self->order->id, 'id' ], + disabled => !$self->order->id ? t8('This record has not been saved yet.') : undef, + ], + ], # end of combobox "more" + ); + } +} + +sub generate_pdf { + my ($order, $pdf_ref, $params) = @_; + + my @errors = (); + + my $print_form = Form->new(''); + $print_form->{type} = $order->type; + $print_form->{formname} = $params->{formname} || $order->type; + $print_form->{format} = $params->{format} || 'pdf'; + $print_form->{media} = $params->{media} || 'file'; + $print_form->{groupitems} = $params->{groupitems}; + $print_form->{printer_id} = $params->{printer_id}; + $print_form->{media} = 'file' if $print_form->{media} eq 'screen'; + + $order->language($params->{language}); + $order->flatten_to_form($print_form, format_amounts => 1); + + my $template_ext; + my $template_type; + if ($print_form->{format} =~ /(opendocument|oasis)/i) { + $template_ext = 'odt'; + $template_type = 'OpenDocument'; + } + + # search for the template + my ($template_file, @template_files) = SL::Helper::CreatePDF->find_template( + name => $print_form->{formname}, + extension => $template_ext, + email => $print_form->{media} eq 'email', + language => $params->{language}, + printer_id => $print_form->{printer_id}, + ); + + if (!defined $template_file) { + push @errors, $::locale->text('Cannot find matching template for this print request. Please contact your template maintainer. I tried these: #1.', join ', ', map { "'$_'"} @template_files); + } + + return @errors if scalar @errors; + + $print_form->throw_on_error(sub { + eval { + $print_form->prepare_for_printing; + + $$pdf_ref = SL::Helper::CreatePDF->create_pdf( + format => $print_form->{format}, + template_type => $template_type, + template => $template_file, + variables => $print_form, + variable_content_types => { + longdescription => 'html', + partnotes => 'html', + notes => 'html', + }, + ); + 1; + } || push @errors, ref($EVAL_ERROR) eq 'SL::X::FormError' ? $EVAL_ERROR->error : $EVAL_ERROR; + }); + + return @errors; +} + +sub get_files_for_email_dialog { + my ($self) = @_; + + my %files = map { ($_ => []) } qw(versions files vc_files part_files); + + return %files if !$::instance_conf->get_doc_storage; + + if ($self->order->id) { + $files{versions} = [ SL::File->get_all_versions(object_id => $self->order->id, object_type => $self->order->type, file_type => 'document') ]; + $files{files} = [ SL::File->get_all( object_id => $self->order->id, object_type => $self->order->type, file_type => 'attachment') ]; + $files{vc_files} = [ SL::File->get_all( object_id => $self->order->{$self->cv}->id, object_type => $self->cv, file_type => 'attachment') ]; + $files{project_files} = [ SL::File->get_all( object_id => $self->order->globalproject_id, object_type => 'project', file_type => 'attachment') ]; + } + + my @parts = + uniq_by { $_->{id} } + map { + +{ id => $_->part->id, + partnumber => $_->part->partnumber } + } @{$self->order->items_sorted}; + + foreach my $part (@parts) { + my @pfiles = SL::File->get_all(object_id => $part->{id}, object_type => 'part'); + push @{ $files{part_files} }, map { +{ %{ $_ }, partnumber => $part->{partnumber} } } @pfiles; + } + + foreach my $key (keys %files) { + $files{$key} = [ sort_by { lc $_->{db_file}->{file_name} } @{ $files{$key} } ]; + } + + return %files; +} + +sub get_title_for { + my ($self, $action) = @_; + + return '' if none { lc($action)} qw(add edit); + return $self->type_data->text($action); +} + +sub get_item_cvpartnumber { + my ($self, $item) = @_; + + return if !$self->search_cvpartnumber; + return if !$self->order->customervendor; + + if ($self->cv eq 'vendor') { + my @mms = grep { $_->make eq $self->order->customervendor->id } @{$item->part->makemodels}; + $item->{cvpartnumber} = $mms[0]->model if scalar @mms; + } elsif ($self->cv eq 'customer') { + my @cps = grep { $_->customer_id eq $self->order->customervendor->id } @{$item->part->customerprices}; + $item->{cvpartnumber} = $cps[0]->customer_partnumber if scalar @cps; + } +} + +sub get_part_texts { + my ($part_or_id, $language_or_id, %defaults) = @_; + + my $part = ref($part_or_id) ? $part_or_id : SL::DB::Part->load_cached($part_or_id); + my $language_id = ref($language_or_id) ? $language_or_id->id : $language_or_id; + my $texts = { + description => $defaults{description} // $part->description, + longdescription => $defaults{longdescription} // $part->notes, + }; + + return $texts unless $language_id; + + my $translation = SL::DB::Manager::Translation->get_first( + where => [ + parts_id => $part->id, + language_id => $language_id, + ]); + + $texts->{description} = $translation->translation if $translation && $translation->translation; + $texts->{longdescription} = $translation->longdescription if $translation && $translation->longdescription; + + return $texts; +} + +sub nr_key { + return $_[0]->type_data->nr_key; +} + +sub save_and_redirect_to { + my ($self, %params) = @_; + + my $errors = $self->save(); + + if (scalar @{ $errors }) { + $self->js->flash('error', $_) foreach @{ $errors }; + return $self->js->render(); + } + + flash_later('info', $self->type_data->text("saved")); + + $self->redirect_to(%params, id => $self->order->id); +} + +sub save_history { + my ($self, $addition) = @_; + + my $number_type = $self->nr_key; + my $snumbers = $number_type . '_' . $self->order->$number_type; + + SL::DB::History->new( + trans_id => $self->order->id, + employee_id => SL::DB::Manager::Employee->current->id, + what_done => $self->order->type, + snumbers => $snumbers, + addition => $addition, + )->save; +} + +sub store_pdf_to_webdav_and_filemanagement { + my($order, $content, $filename) = @_; + + my @errors; + + # copy file to webdav folder + if ($order->number && $::instance_conf->get_webdav_documents) { + my $webdav = SL::Webdav->new( + type => $order->type, + number => $order->number, + ); + my $webdav_file = SL::Webdav::File->new( + webdav => $webdav, + filename => $filename, + ); + eval { + $webdav_file->store(data => \$content); + 1; + } or do { + push @errors, t8('Storing PDF to webdav folder failed: #1', $@); + }; + } + if ($order->id && $::instance_conf->get_doc_storage) { + eval { + SL::File->save(object_id => $order->id, + object_type => $order->type, + mime_type => 'application/pdf', + source => 'created', + file_type => 'document', + file_name => $filename, + file_contents => $content); + 1; + } or do { + push @errors, t8('Storing PDF in storage backend failed: #1', $@); + }; + } + + return @errors; +} + +sub calculate_stock_in_out_from_stock_info { + my ($self, $unit, $stock_info) = @_; + + return "" if !$unit; + + my %units_by_name = map { $_->name => $_ } @{ SL::DB::Manager::Unit->get_all }; + + my $sum = sum0 map { + $units_by_name{$_->{unit}}->convert_to($_->{qty}, $units_by_name{$unit}) + } @$stock_info; + + my $content = _format_number($sum, 2) . ' ' . $unit; + + return $content; +} + +sub calculate_stock_in_out { + my ($self, $item, $stock_info) = @_; + + return "" if !$item->part || !$item->part->unit || !$item->unit; + + my $sum = sum0 map { + $_->unit_obj->convert_to($_->qty, $item->unit_obj) + } $item->delivery_order_stock_entries; + + my $content = _format_number($sum, 2); + + return $content; +} + +sub init_type_data { + SL::Controller::DeliveryOrder::TypeData->new($_[0]); +} + +sub init_valid_types { + $_[0]->type_data->valid_types; +} + +1; + +__END__ + +=encoding utf-8 + +=head1 NAME + +SL::Controller::Order - controller for orders + +=head1 SYNOPSIS + +This is a new form to enter orders, completely rewritten with the use +of controller and java script techniques. + +The aim is to provide the user a better experience and a faster workflow. Also +the code should be more readable, more reliable and better to maintain. + +=head2 Key Features + +=over 4 + +=item * + +One input row, so that input happens every time at the same place. + +=item * + +Use of pickers where possible. + +=item * + +Possibility to enter more than one item at once. + +=item * + +Item list in a scrollable area, so that the workflow buttons stay at +the bottom. + +=item * + +Reordering item rows with drag and drop is possible. Sorting item rows is +possible (by partnumber, description, qty, sellprice and discount for now). + +=item * + +No C is necessary. All entries and calculations are managed +with ajax-calls and the page only reloads on C. + +=item * + +User can see changes immediately, because of the use of java script +and ajax. + +=back + +=head1 CODE + +=head2 Layout + +=over 4 + +=item * C + +the controller + +=item * C