SF.net SVN: ledger-smb:[6779] trunk/LedgerSMB

[..hidden..]

Revision: 6779
          http://sourceforge.net/p/ledger-smb/code/6779
Author:   einhverfr
Date:     2014-02-06 07:30:51 +0000 (Thu, 06 Feb 2014)
Log Message:
-----------
Inventory adjustment reports can now be approved.  Delete not yet working.

Modified Paths:
--------------
    trunk/LedgerSMB/Form.pm
    trunk/LedgerSMB/IR.pm
    trunk/LedgerSMB/Report/Inventory/Adj_Details.pm
    trunk/LedgerSMB/Scripts/inv_reports.pm

Modified: trunk/LedgerSMB/Form.pm
===================================================================
--- trunk/LedgerSMB/Form.pm	2014-02-06 06:22:57 UTC (rev 6778)
+++ trunk/LedgerSMB/Form.pm	2014-02-06 07:30:51 UTC (rev 6779)
@@ -1729,7 +1729,6 @@
     my $sth = $self->{dbh}->prepare($query);
     $sth->execute($login);
     my (@a) = $sth->fetchrow_array();
-    $a[1] *= 1;
 
     $sth->finish;
 

Modified: trunk/LedgerSMB/IR.pm
===================================================================
--- trunk/LedgerSMB/IR.pm	2014-02-06 06:22:57 UTC (rev 6778)
+++ trunk/LedgerSMB/IR.pm	2014-02-06 07:30:51 UTC (rev 6779)
@@ -779,7 +779,7 @@
 		       curr = ?,
 		       language_code = ?,
 		       ponumber = ?, 
-                       approved = ?
+                       approved = ?,
 		       crdate = ?
 		 WHERE id = ?|;
 

Modified: trunk/LedgerSMB/Report/Inventory/Adj_Details.pm
===================================================================
--- trunk/LedgerSMB/Report/Inventory/Adj_Details.pm	2014-02-06 06:22:57 UTC (rev 6778)
+++ trunk/LedgerSMB/Report/Inventory/Adj_Details.pm	2014-02-06 07:30:51 UTC (rev 6779)
@@ -20,6 +20,7 @@
 use LedgerSMB::IR;
 use LedgerSMB::AA;
 use LedgerSMB::App_State;
+use LedgerSMB::Setting;
 
 =head1 DESCRIPTION
 
@@ -152,19 +153,29 @@
     my ($self) = @_;
     my $form_ar = bless({rowcount => 1}, 'Form');
     my $form_ap = bless({rowcount => 1}, 'Form');
+    my $curr = LedgerSMB::Setting->get('curr');
+    ($curr) = split(':', $curr);
 
     ## Setting up forms
     #
     # ar
     $form_ar->{dbh} = LedgerSMB::App_State::DBH;
-    $form_ar->{customer} = 'Inventory';
-    AA->get_name( {}, $form_ar );
+    $form_ar->{customer} = '00000';
+    $form_ar->{vc} = 'customer';
+    $form_ar->get_name( {}, 'customer', 'today', '2' );
+    $form_ar->{customer_id} = $form_ar->{'name_list'}->[0]->{id};
+    $form_ar->{currency} = $curr;
+    $form_ar->{defaultcurrency} = $curr;
 
 
     # ap
     $form_ap->{dbh} = LedgerSMB::App_State::DBH;
-    $form_ap->{vendor} = 'Inventory';
-    AA->get_name( {}, $form_ar );
+    $form_ap->{vendor} = '00000';
+    $form_ap->{vc} = 'vendor';
+    $form_ap->get_name( {}, 'vendor', 'today', '1' );
+    $form_ap->{vendor_id} = $form_ap->{'name_list'}->[0]->{id};
+    $form_ap->{currency} = $curr;
+    $form_ap->{defaultcurrency} = $curr;
     
 
     ## Processing reports

Modified: trunk/LedgerSMB/Scripts/inv_reports.pm
===================================================================
--- trunk/LedgerSMB/Scripts/inv_reports.pm	2014-02-06 06:22:57 UTC (rev 6778)
+++ trunk/LedgerSMB/Scripts/inv_reports.pm	2014-02-06 07:30:51 UTC (rev 6779)
@@ -23,6 +23,7 @@
 package LedgerSMB::Scripts::inv_reports;
 use LedgerSMB::Report::Inventory::Search_Adj;
 use LedgerSMB::Report::Inventory::Adj_Details;
+use LedgerSMB::Scripts::reports;
 
 sub search_adj{
     my ($request) = @_;

This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.


------------------------------------------------------------------------------
Managing the Performance of Cloud-Based Applications
Take advantage of what the Cloud has to offer - Avoid Common Pitfalls.
Read the Whitepaper.
http://pubads.g.doubleclick.net/gampad/clk?id=121051231&iu=/4140/ostg.clktrk
_______________________________________________
Ledger-smb-commits mailing list
..hidden..
https://lists.sourceforge.net/lists/listinfo/ledger-smb-commits