Attachment 129151 Details for Bug 29757 – Bug 29757: Add filters for reversable offsets

[patch] Bug 29757: Add filters for reversable offsets

Bug-29757-Add-filters-for-reversable-offsets.patch (text/plain), 2.17 KB, created by Kyle M Hall (khall) on 2022-01-07 13:07:51 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: Kyle M Hall (khall)

Created: 2022-01-07 13:07:51 UTC

Size: 2.17 KB

patch

obsolete

>From dce21718becd9c1b731eed3adaf40e43d1e2f6ac Mon Sep 17 00:00:00 2001
>From: Martin Renvoize <martin.renvoize@ptfs-europe.com>
>Date: Wed, 22 Dec 2021 16:36:07 -0300
>Subject: [PATCH] Bug 29757: Add filters for reversable offsets
>
>This patch adds filtering methods for (non)reversable offsets.
>
>To test:
>1. Apply this patches
>2. Run:
>   $ kshell
>  k$ prove t/db_dependent/Koha/Account/Offsets.t
>=> SUCCESS: Tests pass!
>3. Sign off :-D
>
>Signed-off-by: Tomas Cohen Arazi <tomascohen@theke.io>
>
>Signed-off-by: Kyle M Hall <kyle@bywatersolutions.com>
>---
> Koha/Account/Offsets.pm | 44 +++++++++++++++++++++++++++++++++++++++++
> 1 file changed, 44 insertions(+)
>
>diff --git a/Koha/Account/Offsets.pm b/Koha/Account/Offsets.pm
>index e2884114f6e..725d4550d85 100644
>--- a/Koha/Account/Offsets.pm
>+++ b/Koha/Account/Offsets.pm
>@@ -60,6 +60,50 @@ sub total {
>       : 0;
> }
> 
>+=head3 filter_by_non_reversable
>+
>+=cut
>+
>+sub filter_by_non_reversable {
>+    my ($self) = @_;
>+
>+    my $me = $self->_resultset()->current_source_alias;
>+
>+    my $where = {
>+        debit_id                  => { '!='      => undef },
>+        credit_id                 => { '!='      => undef },
>+        type                      => 'APPLY',
>+        'credit.credit_type_code' => [ 'WRITEOFF', 'DISCOUNT', 'CANCELLATION' ],
>+        'credit.status'           => [ { '!=' => 'VOID' }, undef ],
>+        $me . '.amount'           => { '<' => 0 }
>+    };
>+    my $attr = { join => 'credit' };
>+
>+    return $self->search( $where, $attr );
>+}
>+
>+=head3 filter_by_reversable
>+
>+=cut
>+
>+sub filter_by_reversable {
>+    my ($self) = @_;
>+
>+    my $me = $self->_resultset()->current_source_alias;
>+
>+    my $where = {
>+        debit_id                  => { '!='      => undef },
>+        credit_id                 => { '!='      => undef },
>+        type                      => 'APPLY',
>+        'credit.credit_type_code' => { -not_in => [ 'WRITEOFF', 'DISCOUNT', 'CANCELLATION' ] },
>+        'credit.status'           => [ { '!=' => 'VOID' }, undef ],
>+        $me . '.amount'           => { '<' => 0 }
>+    };
>+    my $attr = { join => 'credit' };
>+
>+    return $self->search( $where, $attr );
>+}
>+
> =head2 Internal methods
> 
> =head3 _type
>-- 
>2.30.2

Actions: View | Diff | Splinter Review

Attachments on bug 29757: 128865 | 128866 | 128867 | 129150 | 129151 | 129152 | 129178 | 129179 | 129180 | 129296