From 2d03cbd1b75ac7d12cd6feea3e595ca630efacf6 Mon Sep 17 00:00:00 2001
From: erickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Tue, 9 Feb 2010 17:21:06 +0000
Subject: [PATCH] consolidate inactive provider test in the po create code. 
 added support for preventing fund debit creation when a fund has or is about
 to exceed the balance stop percent (if defined)

git-svn-id: svn://svn.open-ils.org/ILS/trunk@15482 dcc99617-32d9-48b4-a31d-7c20da2025e4
---
 .../perlmods/OpenILS/Application/Acq/Order.pm | 47 +++++++++++++------
 1 file changed, 32 insertions(+), 15 deletions(-)

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Acq/Order.pm b/Open-ILS/src/perlmods/OpenILS/Application/Acq/Order.pm
index 1b7cbebecd..34b327ac6c 100644
--- a/Open-ILS/src/perlmods/OpenILS/Application/Acq/Order.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Acq/Order.pm
@@ -587,6 +587,29 @@ sub create_lineitem_detail_debit {
 # ----------------------------------------------------------------------------
 sub create_fund_debit {
     my($mgr, %args) = @_;
+
+    # Verify the fund is not being spent beyond the hard stop amount
+    my $fund = $mgr->editor->retrieve_acq_fund($args{fund}) or return 0;
+
+    if($fund->balance_stop_percent) {
+
+        my $balance = $mgr->editor->search_acq_fund_combined_balance({fund => $fund->id})->[0];
+        my $allocations = $mgr->editor->search_acq_fund_allocation_total({fund => $fund->id})->[0];
+        $balance = ($balance) ? $balance->amount : 0;
+        $allocations = ($allocations) ? $allocations->amount : 0;
+
+        if( 
+            $allocations == 0 || # if no allocations were ever made, assume we have hit the stop percent
+            ( ( ( ($balance - $args{amount}) / $allocations ) * 100 ) < $fund->balance_stop_percent)) 
+        {
+                $mgr->editor->event(OpenILS::Event->new(
+                    'FUND_EXCEEDS_STOP_PERCENT', 
+                    payload => {fund => $fund->id, debit_amount => $args{amount}}
+                ));
+                return 0;
+        }
+    }
+
     my $debit = Fieldmapper::acq::fund_debit->new;
     $debit->debit_type('purchase');
     $debit->encumbrance('t');
@@ -678,6 +701,15 @@ sub update_purchase_order {
 
 sub create_purchase_order {
     my($mgr, %args) = @_;
+
+    # verify the chosen provider is still active
+    my $provider = $mgr->editor->retrieve_acq_provider($args{provider}) or return 0;
+    unless($U->is_true($provider->active)) {
+        $logger->error("provider is not active.  cannot create PO");
+        $mgr->editor->event(OpenILS::Event->new('ACQ_PROVIDER_INACTIVE'));
+        return 0;
+    }
+
     my $po = Fieldmapper::acq::purchase_order->new;
     $po->creator($mgr->editor->requestor->id);
     $po->editor($mgr->editor->requestor->id);
@@ -979,13 +1011,6 @@ sub upload_records {
 
     if($create_po) {
 
-        # verify the provider is still active
-        unless($U->is_true($provider->active)) {
-            $logger->error("provider is not active.  cannot create PO");
-            $e->rollback;
-            return OpenILS::Event->new('ACQ_PROVIDER_INACTIVE');
-        }
-
         $po = create_purchase_order($mgr, 
             ordering_agency => $ordering_agency,
             provider => $provider->id,
@@ -1298,14 +1323,6 @@ sub create_purchase_order_api {
     return $e->die_event unless $e->allowed('CREATE_PURCHASE_ORDER', $po->ordering_agency);
     my $mgr = OpenILS::Application::Acq::BatchManager->new(editor => $e, conn => $conn);
 
-    # verify the provider is still active
-    my $provider = $e->retrieve_acq_provider($po->provider) or return $e->die_event;
-    unless($U->is_true($provider->active)) {
-        $logger->error("provider is not active.  cannot create PO");
-        $e->rollback;
-        return OpenILS::Event->new('ACQ_PROVIDER_INACTIVE');
-    }
-
     # create the PO
     my %pargs = (ordering_agency => $e->requestor->ws_ou); # default
     $pargs{provider} = $po->provider if $po->provider;
-- 
2.43.2