X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;ds=sidebyside;f=bin%2Fmozilla%2Farap.pl;h=35a7761cba5a04896d9cf54750ef187af2b8472f;hb=f3f2ec384d905c686df842ac7175d48792273487;hp=8c49dc23df38964cd53dc3b39b681048747fdb2d;hpb=1521c33d91f45cfaecfda6258f66a4efff4cfc71;p=kivitendo-erp.git diff --git a/bin/mozilla/arap.pl b/bin/mozilla/arap.pl index 8c49dc23d..35a7761cb 100644 --- a/bin/mozilla/arap.pl +++ b/bin/mozilla/arap.pl @@ -24,22 +24,21 @@ # GNU General Public License for more details. # You should have received a copy of the GNU General Public License # along with this program; if not, write to the Free Software -# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. +# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, +# MA 02110-1335, USA. #====================================================================== # # common routines for gl, ar, ap, is, ir, oe # -use SL::Projects; - use strict; # any custom scripts for this one if (-f "bin/mozilla/custom_arap.pl") { eval { require "bin/mozilla/custom_arap.pl"; }; } -if (-f "bin/mozilla/$main::form->{login}_arap.pl") { - eval { require "bin/mozilla/$main::form->{login}_arap.pl"; }; +if (-f "bin/mozilla/$::myconfig{login}_arap.pl") { + eval { require "bin/mozilla/$::myconfig{login}_arap.pl"; }; } 1; @@ -48,412 +47,29 @@ require "bin/mozilla/common.pl"; # end of main -sub check_name { - $main::lxdebug->enter_sub(); - - my $form = $main::form; - my %myconfig = %main::myconfig; - my $locale = $main::locale; - - $main::auth->assert('general_ledger | vendor_invoice_edit | sales_order_edit | invoice_edit |' . - 'request_quotation_edit | sales_quotation_edit | purchase_order_edit | cash |' . - 'purchase_delivery_order_edit | sales_delivery_order_edit'); - - my ($name, %params) = @_; - - $name = $name eq "customer" ? "customer" : "vendor"; - - my ($new_name, $new_id) = split /--/, $form->{$name}; - my $i = 0; - # if we use a selection - if ($form->{"select$name"}) { - if ($form->{"old$name"} ne $form->{$name}) { - - # this is needed for is, ir and oe - $form->{update} = 0; - # for credit calculations - $form->{oldinvtotal} = 0; - $form->{oldtotalpaid} = 0; - $form->{calctax} = 1; - - $form->{"${name}_id"} = $new_id; - - IS->get_customer(\%myconfig, \%$form) if ($name eq 'customer'); - IR->get_vendor(\%myconfig, \%$form) if ($name eq 'vendor'); - - $form->{$name} = $form->{"old$name"} = "$new_name--$new_id"; - - $i = 1; - } - } else { - - # check name, combine name and id - if ($form->{"old$name"} ne qq|$form->{$name}--$form->{"${name}_id"}|) { - - # this is needed for is, ir and oe - $form->{update} = 0; - - # for credit calculations - $form->{oldinvtotal} = 0; - $form->{oldtotalpaid} = 0; - $form->{calctax} = 1; - - # return one name or a list of names in $form->{name_list} - $i = $form->get_name(\%myconfig, $name); - - if ($i > 1) { - if ($params{no_select}) { - # $locale->text('Customer') - # $locale->text('Vendor') - $form->error($locale->text("More than one #1 found matching, please be more specific.", $locale->text(ucfirst $name))); - } else { - &select_name($name); - exit; - } - } - - if ($i == 1) { - - # we got one name - $form->{"${name}_id"} = $form->{name_list}[0]->{id}; - $form->{$name} = $form->{name_list}[0]->{name}; - $form->{"old$name"} = qq|$form->{$name}--$form->{"${name}_id"}|; - - IS->get_customer(\%myconfig, \%$form) if ($name eq 'customer'); - IR->get_vendor(\%myconfig, \%$form) if ($name eq 'vendor'); - - } else { - - # name is not on file - # $locale->text('Customer not on file or locked!') - # $locale->text('Vendor not on file or locked!') - my $msg = ucfirst $name . " not on file or locked!"; - $form->error($locale->text($msg)); - } - } - } - $form->language_payment(\%myconfig); - - $main::lxdebug->leave_sub(); - - return $i; -} - -# $locale->text('Customer not on file!') -# $locale->text('Vendor not on file!') - -sub select_name { - $main::lxdebug->enter_sub(); - - my $form = $main::form; - my $locale = $main::locale; - - $main::auth->assert('general_ledger | vendor_invoice_edit | sales_order_edit | invoice_edit |' . - 'request_quotation_edit | sales_quotation_edit | purchase_order_edit | cash'); - - my ($table) = @_; - - my @column_index = qw(ndx name address); - - my $label = ucfirst $table; - my %column_data; - $column_data{ndx} = qq|