Batch numbers assigned at batch creation phase. Tests working.

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@2414 4979c152-3d1c-0410-bac9-87ea11338e46

1 files changed, 9 insertions, 0 deletions

diff --git a/LedgerSMB/Batch.pm b/LedgerSMB/Batch.pm
index 8c4e397b..f18200c8 100644
--- a/LedgerSMB/Batch.pm
+++ b/LedgerSMB/Batch.pm
@@ -1,8 +1,17 @@
 
 
 package LedgerSMB::Batch;
+use LedgerSMB::Setting;
 use base qw(LedgerSMB::DBObject);
 
+sub get_new_info {
+    $self = shift @_;
+    my $cc_object = LedgerSMB::Setting->new({base => $self});
+    $cc_object->{key} = 'batch_cc';
+    $self->{batch_number} = $cc_object->increment;
+    $self->{dbh}->commit;
+}
+
 sub create {
     $self = shift @_;
     my ($ref) = $self->exec_method(funcname => 'batch_create');