[open-ils-commits] SPAM: r8785 - branches/acq-experiment/Open-ILS/src/perlmods/OpenILS/Application/Acq

[svn at svn.open-ils.org]

Author: erickson
Date: 2008-02-19 17:29:38 -0500 (Tue, 19 Feb 2008)
New Revision: 8785

Modified:
   branches/acq-experiment/Open-ILS/src/perlmods/OpenILS/Application/Acq/Financials.pm
Log:
added initial po line item detail creation code

Modified: branches/acq-experiment/Open-ILS/src/perlmods/OpenILS/Application/Acq/Financials.pm
===================================================================
--- branches/acq-experiment/Open-ILS/src/perlmods/OpenILS/Application/Acq/Financials.pm	2008-02-19 22:29:08 UTC (rev 8784)
+++ branches/acq-experiment/Open-ILS/src/perlmods/OpenILS/Application/Acq/Financials.pm	2008-02-19 22:29:38 UTC (rev 8785)
@@ -499,7 +499,25 @@
     return $e->retrieve_all_acq_currency_type();
 }
 
+sub currency_conversion_impl {
+    my($src_currency, $dest_currency, $amount) = @_;
+    my $result = new_editor()->json_query({
+        select => {
+            acqct => [{
+                params => [$dest_currency, $amount],
+                transform => 'acq.exchange_ratio',
+                column => 'code',
+                alias => 'value'
+            }]
+        },
+        where => {code => $src_currency},
+        from => 'acqct'
+    });
 
+    return $result->{value};
+}
+
+
 # ----------------------------------------------------------------------------
 # Purchase Orders
 # ----------------------------------------------------------------------------
@@ -715,7 +733,65 @@
     return $po_li->id;
 }
 
+__PACKAGE__->register_method(
+	method => 'create_po_li_detail',
+	api_name	=> 'open-ils.acq.po_li_detail.create',
+	signature => {
+        desc => q/Creates a new purchase order line item detail.  
+            Additionally creates the associated fund_debit/,
+        params => [
+            {desc => 'Authentication token', type => 'string'},
+            {desc => 'purchase order line item to create', type => 'object'},
+            {desc => q/Options hash.  fund_id, the fund funding this line item
+                price, the price we are paying the vendor, in the vendor's currency/, type => 'hash'}
+        ],
+        return => {desc => 'The purchase order line item detail id, Event on failure'}
+    }
+);
 
+sub create_po_li_detail {
+    my($self, $conn, $auth, $li_detail, $options) = @_;
+    my $e = new_editor(xact=>1, authtoken=>$auth);
+    return $e->die_event unless $e->checkauth;
 
+    my $po_li = $e->retrieve_acq_po_lineitem($li_detail->po_lineitem)
+        or return $e->die_event;
 
+    my $po = $e->retrieve_acq_purchase_order($po_li->purchase_order);
+    my $provider = $e->retrieve_acq_provider($po->provider);
+
+    my $fund = $e->retrieve_acq_fund($$options{fund_id})
+        or return $e->die_event;
+
+    if($e->requestor->id != $po->owner) {
+        return $e->die_event unless 
+            $e->allowed('MANAGE_PURCHASE_ORDER', $provider->owner, $po);
+    }
+
+    return $e->die_event unless 
+        $e->allowed('MANAGE_FUND', $fund->org, $fund);
+
+    my $fct = $e->retrieve_acq_currency_type($fund->currency_type);
+    my $pct = $e->retrieve_acq_currency_type($provider->currency_type);
+    my $price = $$options{price};
+
+    # create the fund_debit for this line item detail
+    my $fdebit = Fieldmapper::acq::fund_debit->new;
+    $fdebit->fund($$options{fund_id});
+    $fdebit->origin_amount($price);
+    $fdebit->origin_currency_type($pct->code); # == vendor's currency
+    $fdebit->encumberance('t');
+    $fdebit->debit_type(OILS_ACQ_DEBIT_TYPE_PURCHASE);
+    $fdebit->amount(currency_conversion_impl($pct->code, $fct->code, $price));
+    $e->create_acq_fund_debit($fdebit) or return $e->die_event;
+
+    $li_detail->fund_debit($fdebit->id);
+    $e->create_acq_po_li_detail($li_detail) or return $e->die_event;
+
+    $e->commit;
+    return $li_detail->id;
+}
+
+
+
 1;