Adding button to generate entity control code

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

1 files changed, 18 insertions, 1 deletions

diff --git a/scripts/vendor.pl b/scripts/vendor.pl
index 7e5c5371..ed415140 100644
--- a/scripts/vendor.pl
+++ b/scripts/vendor.pl
@@ -41,7 +41,6 @@ of the vendor informations.
 
 =cut
 
-
 sub get {
     
     my ($request) = @_;
@@ -69,6 +68,24 @@ sub add_location {
 	
 }
 
+sub generate_control_code {
+    my ($request) = @_;
+    my $vendor= LedgerSMB::DBObject::Vendor->new({base => $request, copy => 'all'});
+    
+    my ($ref) = $vendor->call_procedure(
+                             procname => 'setting_increment', 
+                             args     => ['entity_control']
+                           );
+    ($vendor->{control_code}) = values %$ref;
+    $vendor->{dbh}->commit;
+    if ($vendor->{meta_number}){
+        edit($vendor);
+    } else {
+       _render_main_screen($vendor);
+    }
+    
+}
+
 =pod
 
 =over