From 9b24d1041b7c8e96962d1aa95dd4efba39f912b2 Mon Sep 17 00:00:00 2001
From: einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>
Date: Wed, 3 Sep 2008 18:15:41 +0000
Subject: 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
---
 scripts/vendor.pl | 19 ++++++++++++++++++-
 1 file changed, 18 insertions(+), 1 deletion(-)

(limited to 'scripts')

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
-- 
cgit v1.2.3