From 88b46f342209b4f08748fd0e03f5a03d8708306e Mon Sep 17 00:00:00 2001 From: Jared Camins-Esakov Date: Wed, 19 Jun 2013 15:19:06 -0400 Subject: [PATCH] Bug 10401: Add ability to merge invoices Given how easy it is to accidentally receive items from one invoice on multiple invoices, the ability to merge invoices can be quite handy. This patch adds that ability to Koha's Acquisitions module. To test: 1) Apply patch. 2) Run unit test: > prove t/db_dependent/Acquisition/Invoices.t 3) Create two invoices from the same vendor for merging, and receive at least one order on each. 4) Do a search on the Invoices page that brings up both the invoices you created. 5) Check the boxes next to the two invoices. 6) Click "Merge selected invoices." 7) Choose which invoice you want to keep (the default will be the first). 8) Click "Merge." 9) Confirm that the resulting invoice has all the orders you received listed on it. 10) Sign off. Signed-off-by: Paola Rossi Signed-off-by: Katrin Fischer Passes all tests and QA script. Merged several invoices sucessfully - with and without received orders, open and closed. Works nicely. Signed-off-by: Galen Charlton --- C4/Acquisition.pm | 26 +++ acqui/invoice.pl | 3 + acqui/invoices.pl | 9 + .../prog/en/css/staff-global.css | 26 ++- .../prog/en/modules/acqui/invoices.tt | 93 ++++++++++- t/db_dependent/Acquisition/Invoices.t | 156 ++++++++++++++++++ 6 files changed, 307 insertions(+), 6 deletions(-) create mode 100644 t/db_dependent/Acquisition/Invoices.t diff --git a/C4/Acquisition.pm b/C4/Acquisition.pm index 4536902a2e..e470b24e07 100644 --- a/C4/Acquisition.pm +++ b/C4/Acquisition.pm @@ -72,6 +72,7 @@ BEGIN { &CloseInvoice &ReopenInvoice &DelInvoice + &MergeInvoices &GetItemnumbersFromOrder @@ -2574,6 +2575,31 @@ sub DelInvoice { return; } +=head3 MergeInvoices + + MergeInvoices($invoiceid, \@sourceids); + +Merge the invoices identified by the IDs in \@sourceids into +the invoice identified by $invoiceid. + +=cut + +sub MergeInvoices { + my ($invoiceid, $sourceids) = @_; + + return unless $invoiceid; + foreach my $sourceid (@$sourceids) { + next if $sourceid == $invoiceid; + my $source = GetInvoiceDetails($sourceid); + foreach my $order (@{$source->{'orders'}}) { + $order->{'invoiceid'} = $invoiceid; + ModOrder($order); + } + DelInvoice($source->{'invoiceid'}); + } + return; +} + 1; __END__ diff --git a/acqui/invoice.pl b/acqui/invoice.pl index e38e02db88..5971ed161a 100755 --- a/acqui/invoice.pl +++ b/acqui/invoice.pl @@ -83,6 +83,9 @@ elsif ( $op && $op eq 'mod' ) { ReopenInvoice($invoiceid); } elsif ($input->param('close')) { CloseInvoice($invoiceid); + } elsif ($input->param('merge')) { + my @sources = $input->param('merge'); + MergeInvoices($invoiceid, \@sources); } $template->param( modified => 1 ); } diff --git a/acqui/invoices.pl b/acqui/invoices.pl index f30e374c91..451cf05053 100755 --- a/acqui/invoices.pl +++ b/acqui/invoices.pl @@ -36,6 +36,7 @@ use C4::Output; use C4::Acquisition qw/GetInvoices/; use C4::Bookseller qw/GetBookSeller/; use C4::Branch qw/GetBranches/; +use C4::Budgets; my $input = CGI->new; my ( $template, $loggedinuser, $cookie, $flags ) = get_template_and_user( @@ -121,6 +122,14 @@ foreach ( sort keys %$branches ) { }; } +my $budgets = GetBudgets(); +my @budgets_loop; +foreach my $budget (@$budgets) { + push @budgets_loop, $budget if CanUserUseBudget( $loggedinuser, $budget, $flags ); +} + +$template->{'VARS'}->{'budgets_loop'} = \@budgets_loop; + $template->param( do_search => ( $op and $op eq 'do_search' ) ? 1 : 0, invoices => $invoices, diff --git a/koha-tmpl/intranet-tmpl/prog/en/css/staff-global.css b/koha-tmpl/intranet-tmpl/prog/en/css/staff-global.css index b5e8f40efa..aa7310c5f1 100644 --- a/koha-tmpl/intranet-tmpl/prog/en/css/staff-global.css +++ b/koha-tmpl/intranet-tmpl/prog/en/css/staff-global.css @@ -1564,11 +1564,11 @@ div#header_search input.submit { padding : .1em; } -input[type=submit]:active, input[type=button]:active, button.submit:active { +input[type=submit]:active, input[type=button]:active, button.submit:active, a.submit:active { border : 1px inset #999999; } -input[type=submit], input[type=reset], input[type=button], input.submit, button.submit { +input[type=submit], input[type=reset], input[type=button], input.submit, button.submit, a.submit { border: 1px outset #999999; border-top-color: #666; border-left-color: #666; @@ -1589,16 +1589,21 @@ input[type=submit]:disabled, input[type=reset]:disabled, input[type=button]:disabled, input.submit:disabled, -button.submit:disabled { +button.submit:disabled, +a.submit:disabled { color : #999; border : 1px solid #C0C0C0; background : #EEE none; } -input[type=reset]:active, input[type=button]:active, input.submit:active, button.submit:active { +input[type=reset]:active, input[type=button]:active, input.submit:active, button.submit:active, a.submit:active { border : 1px inset #999999; } +a.submit { + display: inline-block; +} + ul li input.submit { font-size : 87%; padding : 2px; @@ -2687,3 +2692,16 @@ span.browse-button { top: 50%; width: 15em; } + +#merge_invoices { + display: none; + margin: 1em auto; +} + +#merge { + margin: 0.5em 0 0 0; +} + +#merge_table tr.active td { + background-color: #FFFFCC; +} diff --git a/koha-tmpl/intranet-tmpl/prog/en/modules/acqui/invoices.tt b/koha-tmpl/intranet-tmpl/prog/en/modules/acqui/invoices.tt index 965fec5c01..66b40a6e43 100644 --- a/koha-tmpl/intranet-tmpl/prog/en/modules/acqui/invoices.tt +++ b/koha-tmpl/intranet-tmpl/prog/en/modules/acqui/invoices.tt @@ -15,9 +15,58 @@ $(document).ready(function() { null,null,{ "sType": "title-string" },null,null,null,null ], aoColumnDefs: [ - { "bSortable": false, "aTargets": [6] } + { "bSortable": false, "aTargets": [0, 7] } ] })); + + $('#merge').click(function (ev) { + var booksellerid; + var mismatch; + var invoices = [ ]; + if ($('.select-invoice:checked').size() < 2) { + alert(_("You must select at least two invoices to merge.")); + return false; + } + $('.select-invoice:checked').each(function () { + var row = $(this).parents('tr'); + booksellerid = booksellerid || $(row).attr('data-booksellerid'); + if (booksellerid !== $(row).attr('data-booksellerid')) { + mismatch = true; + } + invoices.push({ 'invoiceid': $(row).attr('data-invoiceid'), + 'invoicenumber': $(row).find('td:nth-child(2) a').text(), + 'shipmentdate': $(row).attr('data-shipmentdate'), + 'billingdate': $(row).attr('data-billingdate'), + 'shipmentcost': $(row).attr('data-shipmentcost'), + 'shipment_budgetid': $(row).attr('data-shipment_budgetid'), + 'closedate': $(row).attr('data-closedate'), }); + $('#merge_invoice_form').append(''); + }); + if (mismatch) { + alert(_("All invoices for merging must be from the same vendor")); + } else { + $('#merge_table tbody').empty(); + $.each(invoices, function (idx, invoice) { + var row = $('' + invoice.invoicenumber + '' + invoice.shipmentdate + '' + invoice.billingdate + '' + invoice.shipmentcost + ''); + $(row).appendTo('#merge_table tbody'); + $(row).click(function () { + $('#merge_table tbody tr').removeClass('active'); + $(this).addClass('active'); + $('#merge_invoicenumber').text(invoice.invoicenumber); + $.each(['invoiceid', 'shipmentdate', 'billingdate', 'shipmentcost', 'shipment_budgetid'], function (idx, prop) { + $('#merge_' + prop).val(invoice[prop]); + }); + if (invoice.closedate) { + $('#merge_status').text(_("Closed on " + invoice.closedate + "")); + } else { + $('#merge_status').text(_("Open")); + } + }); + }); + $('#merge_table tbody tr:first').click(); + $('#merge_invoices').show(); + } + }); }); //]]> @@ -40,6 +89,7 @@ $(document).ready(function() { + @@ -51,7 +101,8 @@ $(document).ready(function() { [% FOREACH invoice IN invoices %] - + +
  Invoice no. Vendor Billing date
[% invoice.invoicenumber %] [% invoice.suppliername %] @@ -85,6 +136,44 @@ $(document).ready(function() { [% END %]
+ Merge selected invoices +
+
+
+
    +

  1. Merge invoices

    2. +
  2. + + + +
    Invoice no.Shipment dateBilling dateShipment cost
    3. +
    4. +
  4. +
    5. + +
  5. +
    6. + +
  6. +
    7. +
  7. +
    8. + +
  8. Status:
    9. +
    10. +
+ + +
+
+
[% ELSE %]

Sorry, but there is no results for your search.

Search was: diff --git a/t/db_dependent/Acquisition/Invoices.t b/t/db_dependent/Acquisition/Invoices.t new file mode 100644 index 0000000000..6b3e080144 --- /dev/null +++ b/t/db_dependent/Acquisition/Invoices.t @@ -0,0 +1,156 @@ +#!/usr/bin/perl +# +# This Koha test module is a stub! +# Add more tests here!!! + +use strict; +use warnings; + +use C4::Bookseller qw( GetBookSellerFromId ); +use C4::Biblio qw( AddBiblio ); + +use Test::More tests => 14; + +BEGIN { + use_ok('C4::Acquisition'); +} + +my $dbh = C4::Context->dbh; +$dbh->{AutoCommit} = 0; +$dbh->{RaiseError} = 1; + +my $booksellerid = C4::Bookseller::AddBookseller( + { + name => "my vendor", + address1 => "bookseller's address", + phone => "0123456", + active => 1 + } +); + +my $booksellerinfo = GetBookSellerFromId( $booksellerid ); +my $basketno = NewBasket($booksellerid, 1); +my $basket = GetBasket($basketno); + +my $budgetid = C4::Budgets::AddBudget( + { + budget_code => "budget_code_test_getordersbybib", + budget_name => "budget_name_test_getordersbybib", + } +); +my $budget = C4::Budgets::GetBudget( $budgetid ); + +my ($ordernumber1, $ordernumber2, $ordernumber3); +my ($biblionumber1, $biblioitemnumber1) = AddBiblio(MARC::Record->new, ''); +my ($biblionumber2, $biblioitemnumber2) = AddBiblio(MARC::Record->new, ''); +my ($biblionumber3, $biblioitemnumber3) = AddBiblio(MARC::Record->new, ''); +( undef, $ordernumber1 ) = C4::Acquisition::NewOrder( + { + basketno => $basketno, + quantity => 2, + biblionumber => $biblionumber1, + budget_id => $budget->{budget_id}, + } +); + +( undef, $ordernumber2 ) = C4::Acquisition::NewOrder( + { + basketno => $basketno, + quantity => 1, + biblionumber => $biblionumber2, + budget_id => $budget->{budget_id}, + } +); + +( undef, $ordernumber3 ) = C4::Acquisition::NewOrder( + { + basketno => $basketno, + quantity => 1, + biblionumber => $biblionumber3, + budget_id => $budget->{budget_id}, + ecost => 42, + rrp => 42, + } +); + +my $invoiceid1 = AddInvoice(invoicenumber => 'invoice1', booksellerid => $booksellerid, unknown => "unknown"); +my $invoiceid2 = AddInvoice(invoicenumber => 'invoice2', booksellerid => $booksellerid, unknown => "unknown"); + +my ($datereceived, $new_ordernumber) = ModReceiveOrder( + $biblionumber1, + $ordernumber1, + 2, + undef, + 12, + 12, + $invoiceid1, + 42 + ); + +($datereceived, $new_ordernumber) = ModReceiveOrder( + $biblionumber2, + $ordernumber2, + 1, + undef, + 5, + 5, + $invoiceid2, + 42 + ); + +($datereceived, $new_ordernumber) = ModReceiveOrder( + $biblionumber3, + $ordernumber3, + 1, + undef, + 12, + 12, + $invoiceid2, + 42 + ); + + +my $invoice1 = GetInvoiceDetails($invoiceid1); +my $invoice2 = GetInvoiceDetails($invoiceid2); + +is(scalar @{$invoice1->{'orders'}}, 1, 'Invoice1 has only one order'); +is(scalar @{$invoice2->{'orders'}}, 2, 'Invoice2 has only two orders'); + +my @invoices = GetInvoices(); +cmp_ok(scalar @invoices, '>=', 2, 'GetInvoices returns at least two invoices'); + +@invoices = GetInvoices(invoicenumber => 'invoice2'); +cmp_ok(scalar @invoices, '>=', 1, 'GetInvoices returns at least one invoice when a specific invoice is requested'); + +my $invoicesummary1 = GetInvoice($invoiceid1); +is($invoicesummary1->{'invoicenumber'}, 'invoice1', 'GetInvoice retrieves correct invoice'); +is($invoicesummary1->{'invoicenumber'}, $invoice1->{'invoicenumber'}, 'GetInvoice and GetInvoiceDetails retrieve same information'); + +ModInvoice(invoiceid => $invoiceid1, invoicenumber => 'invoice11'); +$invoice1 = GetInvoiceDetails($invoiceid1); +is($invoice1->{'invoicenumber'}, 'invoice11', 'ModInvoice changed invoice number'); + +is($invoice1->{'closedate'}, undef, 'Invoice is not closed before CloseInvoice call'); +CloseInvoice($invoiceid1); +$invoice1 = GetInvoiceDetails($invoiceid1); +isnt($invoice1->{'closedate'}, undef, 'Invoice is closed after CloseInvoice call'); +ReopenInvoice($invoiceid1); +$invoice1 = GetInvoiceDetails($invoiceid1); +is($invoice1->{'closedate'}, undef, 'Invoice is open after ReopenInvoice call'); + + +MergeInvoices($invoiceid1, [ $invoiceid2 ]); + +my $mergedinvoice = GetInvoiceDetails($invoiceid1); +is(scalar @{$mergedinvoice->{'orders'}}, 3, 'Merged invoice has three orders'); + +my $invoiceid3 = AddInvoice(invoicenumber => 'invoice3', booksellerid => $booksellerid, unknown => "unknown"); +my $invoicecount = GetInvoices(); +DelInvoice($invoiceid3); +@invoices = GetInvoices(); +is(scalar @invoices, $invoicecount - 1, 'DelInvoice deletes invoice'); +is(GetInvoice($invoiceid3), undef, 'DelInvoice deleted correct invoice'); + +END { + $dbh and $dbh->rollback; +} -- 2.39.2