SF.net SVN: ledger-smb:[6161] trunk

[..hidden..]

Revision: 6161
          http://sourceforge.net/p/ledger-smb/code/6161
Author:   einhverfr
Date:     2013-10-23 11:36:40 +0000 (Wed, 23 Oct 2013)
Log Message:
-----------
Invoice series now work for sales invoices

Modified Paths:
--------------
    trunk/LedgerSMB/IS.pm
    trunk/LedgerSMB/Tax.pm
    trunk/bin/is.pl

Modified: trunk/LedgerSMB/IS.pm
===================================================================
--- trunk/LedgerSMB/IS.pm	2013-10-23 11:24:45 UTC (rev 6160)
+++ trunk/LedgerSMB/IS.pm	2013-10-23 11:36:40 UTC (rev 6161)
@@ -929,7 +929,7 @@
     my ( $self, $myconfig, $form ) = @_;
     $form->all_business_units;
     $form->{invnumber} = $form->update_defaults( $myconfig, "sinumber", $dbh )
-      unless $form->{invnumber};
+      if $form->should_update_defaults('invnumber');
 
     my $dbh = $LedgerSMB::App_State::DBH;;
 

Modified: trunk/LedgerSMB/Tax.pm
===================================================================
--- trunk/LedgerSMB/Tax.pm	2013-10-23 11:24:45 UTC (rev 6160)
+++ trunk/LedgerSMB/Tax.pm	2013-10-23 11:36:40 UTC (rev 6161)
@@ -67,6 +67,7 @@
         if ( defined $taxaccounts2 ) {
             next if $taxaccounts2 !~ /\b$taxaccount\b/;
         }
+        $form->{transdate} = undef unless $form->{transdate};
         $sth->execute($taxaccount, $form->{transdate}) || $form->dberror($query);
         my $ref = $sth->fetchrow_hashref;
         next unless $ref;

Modified: trunk/bin/is.pl
===================================================================
--- trunk/bin/is.pl	2013-10-23 11:24:45 UTC (rev 6160)
+++ trunk/bin/is.pl	2013-10-23 11:36:40 UTC (rev 6161)
@@ -585,7 +585,7 @@
 	      $employee
 	      <tr>
 		<th align=right nowrap>| . $locale->text('Invoice Number') . qq|</th>
-		<td><input name="invnumber" size="20" value="$form->{invnumber}"></td>
+		<td><input name="invnumber" size="20" value="$form->{invnumber}">| .  $form->sequence_dropdown('sinumber') . qq|</td>
 	      </tr>
 	      <tr>
 		<th align=right nowrap>| . $locale->text('Order Number') . qq|</th>

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


------------------------------------------------------------------------------
October Webinars: Code for Performance
Free Intel webinars can help you accelerate application performance.
Explore tips for MPI, OpenMP, advanced profiling, and more. Get the most from 
the latest Intel processors and coprocessors. See abstracts and register >
http://pubads.g.doubleclick.net/gampad/clk?id=60135991&iu=/4140/ostg.clktrk
_______________________________________________
Ledger-smb-commits mailing list
..hidden..
https://lists.sourceforge.net/lists/listinfo/ledger-smb-commits