diff options
Diffstat (limited to 'scripts')
| -rw-r--r-- | scripts/vendor.pl | 19 |
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 |