Revision 9257ca9a
Von Sven Schöling vor mehr als 15 Jahren hinzugefügt
| bin/mozilla/common.pl | ||
|---|---|---|
|
use SL::Form;
|
||
|
use SL::MoreCommon;
|
||
|
|
||
|
use strict;
|
||
|
|
||
|
sub build_std_url {
|
||
|
$lxdebug->enter_sub(2);
|
||
|
$main::lxdebug->enter_sub(2);
|
||
|
|
||
|
my $form = $main::form;
|
||
|
|
||
|
my $script = $form->{script};
|
||
|
|
||
| ... | ... | |
|
|
||
|
my $url = "${script}?" . join('&', @parts);
|
||
|
|
||
|
$lxdebug->leave_sub(2);
|
||
|
$main::lxdebug->leave_sub(2);
|
||
|
|
||
|
return $url;
|
||
|
}
|
||
| ... | ... | |
|
# -------------------------------------------------------------------------
|
||
|
|
||
|
sub select_part {
|
||
|
$lxdebug->enter_sub();
|
||
|
$main::lxdebug->enter_sub();
|
||
|
|
||
|
my ($callback_sub, @parts) = @_;
|
||
|
|
||
|
my $form = $main::form;
|
||
|
my $locale = $main::locale;
|
||
|
|
||
|
my $remap_parts_id = 0;
|
||
|
if (defined($parts[0]->{parts_id}) && !defined($parts[0]->{id})) {
|
||
|
$remap_parts_id = 1;
|
||
| ... | ... | |
|
"remap_parts_id" => $remap_parts_id,
|
||
|
"remap_partnumber" => $remap_partnumber });
|
||
|
|
||
|
$lxdebug->leave_sub();
|
||
|
$main::lxdebug->leave_sub();
|
||
|
}
|
||
|
|
||
|
sub select_part_internal {
|
||
|
$lxdebug->enter_sub();
|
||
|
$main::lxdebug->enter_sub();
|
||
|
|
||
|
my $form = $main::form;
|
||
|
|
||
|
my ($new_item, $callback_sub);
|
||
|
|
||
| ... | ... | |
|
delete $new_item->{number};
|
||
|
}
|
||
|
|
||
|
my $callback_sub = $form->{callback_sub};
|
||
|
$callback_sub = $form->{callback_sub};
|
||
|
|
||
|
restore_form($form->{old_form});
|
||
|
|
||
|
call_sub($callback_sub, $new_item);
|
||
|
|
||
|
$lxdebug->leave_sub();
|
||
|
$main::lxdebug->leave_sub();
|
||
|
}
|
||
|
|
||
|
sub part_selection_internal {
|
||
|
$lxdebug->enter_sub();
|
||
|
$main::lxdebug->enter_sub();
|
||
|
|
||
|
my $form = $main::form;
|
||
|
my %myconfig = %main::myconfig;
|
||
|
my $locale = $main::locale;
|
||
|
|
||
|
$order_by = "description";
|
||
|
my $order_by = "description";
|
||
|
$order_by = $form->{"order_by"} if (defined($form->{"order_by"}));
|
||
|
$order_dir = 1;
|
||
|
my $order_dir = 1;
|
||
|
$order_dir = $form->{"order_dir"} if (defined($form->{"order_dir"}));
|
||
|
|
||
|
my %options;
|
||
| ... | ... | |
|
|
||
|
map { $form->{$_} = $options{$_} if ($options{$_}) } qw(no_services no_assemblies assemblies click_button);
|
||
|
|
||
|
$parts = Common->retrieve_parts(\%myconfig, $form, $order_by, $order_dir);
|
||
|
my $parts = Common->retrieve_parts(\%myconfig, $form, $order_by, $order_dir);
|
||
|
my $onload;
|
||
|
|
||
|
if (0 == scalar(@{$parts})) {
|
||
|
$form->show_generic_information($locale->text("No part was found matching the search parameters."));
|
||
| ... | ... | |
|
"PARTS" => $parts,
|
||
|
"onload" => $onload });
|
||
|
|
||
|
$lxdebug->leave_sub();
|
||
|
$main::lxdebug->leave_sub();
|
||
|
}
|
||
|
|
||
|
# -------------------------------------------------------------------------
|
||
|
|
||
|
sub delivery_customer_selection {
|
||
|
$lxdebug->enter_sub();
|
||
|
$main::lxdebug->enter_sub();
|
||
|
|
||
|
my $form = $main::form;
|
||
|
my %myconfig = %main::myconfig;
|
||
|
my $locale = $main::locale;
|
||
|
|
||
|
$order_by = "name";
|
||
|
my $order_by = "name";
|
||
|
$order_by = $form->{"order_by"} if (defined($form->{"order_by"}));
|
||
|
$order_dir = 1;
|
||
|
my $order_dir = 1;
|
||
|
$order_dir = $form->{"order_dir"} if (defined($form->{"order_dir"}));
|
||
|
|
||
|
$delivery = Common->retrieve_delivery_customer(\%myconfig, $form, $order_by, $order_dir);
|
||
|
my $delivery = Common->retrieve_delivery_customer(\%myconfig, $form, $order_by, $order_dir);
|
||
|
map({ $delivery->[$_]->{"selected"} = $_ ? 0 : 1; } (0..$#{$delivery}));
|
||
|
|
||
|
my $onload;
|
||
|
if (0 == scalar(@{$delivery})) {
|
||
|
$form->show_generic_information($locale->text("No Customer was found matching the search parameters."));
|
||
|
} elsif (1 == scalar(@{$delivery})) {
|
||
| ... | ... | |
|
"DELIVERY" => $delivery,
|
||
|
"onload" => $onload });
|
||
|
|
||
|
$lxdebug->leave_sub();
|
||
|
$main::lxdebug->leave_sub();
|
||
|
}
|
||
|
|
||
|
# -------------------------------------------------------------------------
|
||
|
|
||
|
sub vendor_selection {
|
||
|
$lxdebug->enter_sub();
|
||
|
$main::lxdebug->enter_sub();
|
||
|
|
||
|
my $form = $main::form;
|
||
|
my %myconfig = %main::myconfig;
|
||
|
my $locale = $main::locale;
|
||
|
|
||
|
$order_by = "name";
|
||
|
my $order_by = "name";
|
||
|
$order_by = $form->{"order_by"} if (defined($form->{"order_by"}));
|
||
|
$order_dir = 1;
|
||
|
my $order_dir = 1;
|
||
|
$order_dir = $form->{"order_dir"} if (defined($form->{"order_dir"}));
|
||
|
|
||
|
$vendor = Common->retrieve_vendor(\%myconfig, $form, $order_by, $order_dir);
|
||
|
my $vendor = Common->retrieve_vendor(\%myconfig, $form, $order_by, $order_dir);
|
||
|
map({ $vendor->[$_]->{"selected"} = $_ ? 0 : 1; } (0..$#{$vendor}));
|
||
|
|
||
|
my $onload;
|
||
|
if (0 == scalar(@{$vendor})) {
|
||
|
$form->show_generic_information($locale->text("No Vendor was found matching the search parameters."));
|
||
|
} elsif (1 == scalar(@{$vendor})) {
|
||
| ... | ... | |
|
"VENDOR" => $vendor,
|
||
|
"onload" => $onload });
|
||
|
|
||
|
$lxdebug->leave_sub();
|
||
|
$main::lxdebug->leave_sub();
|
||
|
}
|
||
|
|
||
|
# -------------------------------------------------------------------------
|
||
|
|
||
|
sub calculate_qty {
|
||
|
$lxdebug->enter_sub();
|
||
|
$main::lxdebug->enter_sub();
|
||
|
|
||
|
my $form = $main::form;
|
||
|
my $locale = $main::locale;
|
||
|
|
||
|
$form->{formel} =~ s/\r\n//g;
|
||
|
|
||
|
my ($variable_string, $formel) = split /###/,$form->{formel};
|
||
|
my @variable;
|
||
|
my $onload; # note! this sub is mostly called over a javascript invocation, and it's unlikey that onload is set.
|
||
|
|
||
|
foreach $item (split m/;/, $variable_string) {
|
||
|
foreach my $item (split m/;/, $variable_string) {
|
||
|
next unless $item =~ m/^ \s* (\w+) \s* = \s* (\w+) \s* (\w+) \s* $/x;
|
||
|
push @variable, {
|
||
|
description => $1,
|
||
| ... | ... | |
|
"VARIABLES" => \@variable,
|
||
|
"onload" => $onload });
|
||
|
|
||
|
$lxdebug->leave_sub();
|
||
|
$main::lxdebug->leave_sub();
|
||
|
}
|
||
|
|
||
|
# -------------------------------------------------------------------------
|
||
|
|
||
|
sub set_longdescription {
|
||
|
$lxdebug->enter_sub();
|
||
|
$main::lxdebug->enter_sub();
|
||
|
|
||
|
my $form = $main::form;
|
||
|
my $locale = $main::locale;
|
||
|
|
||
|
$form->{title} = $locale->text("Enter longdescription");
|
||
|
$form->header();
|
||
|
print $form->parse_html_template("generic/set_longdescription");
|
||
|
|
||
|
$lxdebug->leave_sub();
|
||
|
$main::lxdebug->leave_sub();
|
||
|
}
|
||
|
|
||
|
# -------------------------------------------------------------------------
|
||
|
|
||
|
sub H {
|
||
|
return $locale->quote_special_chars('HTML', $_[0]);
|
||
|
return $main::locale->quote_special_chars('HTML', $_[0]);
|
||
|
}
|
||
|
|
||
|
sub Q {
|
||
|
return $locale->quote_special_chars('URL@HTML', $_[0]);
|
||
|
return $main::locale->quote_special_chars('URL@HTML', $_[0]);
|
||
|
}
|
||
|
|
||
|
sub E {
|
||
|
return $form->escape($_[0]);
|
||
|
return $main::form->escape($_[0]);
|
||
|
}
|
||
|
|
||
|
sub NTI {
|
||
| ... | ... | |
|
}
|
||
|
|
||
|
sub format_dates {
|
||
|
$lxdebug->enter_sub();
|
||
|
$main::lxdebug->enter_sub();
|
||
|
|
||
|
my ($dateformat, $longformat, @indices) = @_;
|
||
|
|
||
|
my $form = $main::form;
|
||
|
my %myconfig = %main::myconfig;
|
||
|
my $locale = $main::locale;
|
||
|
|
||
|
$dateformat = $myconfig{"dateformat"} unless ($dateformat);
|
||
|
|
||
|
foreach my $idx (@indices) {
|
||
| ... | ... | |
|
}
|
||
|
}
|
||
|
|
||
|
$lxdebug->leave_sub();
|
||
|
$main::lxdebug->leave_sub();
|
||
|
}
|
||
|
|
||
|
sub reformat_numbers {
|
||
|
$lxdebug->enter_sub();
|
||
|
$main::lxdebug->enter_sub();
|
||
|
|
||
|
my ($numberformat, $places, @indices) = @_;
|
||
|
|
||
|
return $lxdebug->leave_sub()
|
||
|
my $form = $main::form;
|
||
|
my %myconfig = %main::myconfig;
|
||
|
|
||
|
return $main::lxdebug->leave_sub()
|
||
|
if (!$numberformat || ($numberformat eq $myconfig{"numberformat"}));
|
||
|
|
||
|
foreach my $idx (@indices) {
|
||
| ... | ... | |
|
|
||
|
$myconfig{"numberformat"} = $saved_numberformat;
|
||
|
|
||
|
$lxdebug->leave_sub();
|
||
|
$main::lxdebug->leave_sub();
|
||
|
}
|
||
|
|
||
|
# -------------------------------------------------------------------------
|
||
|
|
||
|
sub show_history {
|
||
|
$lxdebug->enter_sub();
|
||
|
$main::lxdebug->enter_sub();
|
||
|
|
||
|
my $form = $main::form;
|
||
|
my %myconfig = %main::myconfig;
|
||
|
my $locale = $main::locale;
|
||
|
|
||
|
my $dbh = $form->dbconnect(\%myconfig);
|
||
|
my ($sort, $sortby) = split(/\-\-/, $form->{order});
|
||
|
$sort =~ s/.*\.(.*)/$1/;
|
||
| ... | ... | |
|
} );
|
||
|
|
||
|
$dbh->disconnect();
|
||
|
$lxdebug->leave_sub();
|
||
|
$main::lxdebug->leave_sub();
|
||
|
}
|
||
|
|
||
|
# -------------------------------------------------------------------------
|
||
|
|
||
|
sub call_sub {
|
||
|
$lxdebug->enter_sub();
|
||
|
$main::lxdebug->enter_sub();
|
||
|
|
||
|
my $name = shift;
|
||
|
|
||
|
my $form = $main::form;
|
||
|
my $locale = $main::locale;
|
||
|
|
||
|
if (!$name) {
|
||
|
$form->error($locale->text("Trying to call a sub without a name"));
|
||
|
}
|
||
| ... | ... | |
|
$form->error(sprintf($locale->text("Attempt to call an undefined sub named '%s'"), $name));
|
||
|
}
|
||
|
|
||
|
&{ $name }(@_);
|
||
|
{
|
||
|
no strict "refs";
|
||
|
&{ $name }(@_);
|
||
|
}
|
||
|
|
||
|
$lxdebug->leave_sub();
|
||
|
$main::lxdebug->leave_sub();
|
||
|
}
|
||
|
|
||
|
# -------------------------------------------------------------------------
|
||
|
|
||
|
sub show_vc_details {
|
||
|
$lxdebug->enter_sub();
|
||
|
$main::lxdebug->enter_sub();
|
||
|
|
||
|
my $form = $main::form;
|
||
|
my %myconfig = %main::myconfig;
|
||
|
my $locale = $main::locale;
|
||
|
|
||
|
$form->{vc} = $form->{vc} eq "customer" ? "customer" : "vendor";
|
||
|
$form->isblank("vc_id",
|
||
| ... | ... | |
|
$form->header();
|
||
|
print $form->parse_html_template("common/show_vc_details", { "is_customer" => $form->{vc} eq "customer" });
|
||
|
|
||
|
$lxdebug->leave_sub();
|
||
|
$main::lxdebug->leave_sub();
|
||
|
}
|
||
|
|
||
|
# -------------------------------------------------------------------------
|
||
|
|
||
|
sub retrieve_partunits {
|
||
|
$lxdebug->enter_sub();
|
||
|
$main::lxdebug->enter_sub();
|
||
|
|
||
|
my $form = $main::form;
|
||
|
|
||
|
my @part_ids = grep { $_ } map { $form->{"id_${_}"} } (1..$form->{rowcount});
|
||
|
|
||
| ... | ... | |
|
}
|
||
|
}
|
||
|
|
||
|
$lxdebug->leave_sub();
|
||
|
$main::lxdebug->leave_sub();
|
||
|
}
|
||
|
|
||
|
# -------------------------------------------------------------------------
|
||
|
|
||
|
sub mark_as_paid_common {
|
||
|
$lxdebug->enter_sub();
|
||
|
$main::lxdebug->enter_sub();
|
||
|
|
||
|
my ($myconfig, $db_name) = @_;
|
||
|
|
||
|
my $form = $main::form;
|
||
|
my $locale = $main::locale;
|
||
|
|
||
|
if($form->{mark_as_paid}) {
|
||
|
my $dbh ||= $form->get_standard_dbh($myconfig);
|
||
|
my $query = qq|UPDATE $db_name SET paid = amount WHERE id = ?|;
|
||
| ... | ... | |
|
|
||
|
} else {
|
||
|
my $referer = $ENV{HTTP_REFERER};
|
||
|
my $script;
|
||
|
my $callback;
|
||
|
if ($referer =~ /action/) {
|
||
|
$referer =~ /^(.*)\?action\=[^\&]*(\&.*)$/;
|
||
|
$script = $1;
|
||
| ... | ... | |
|
print qq|</body></html>|;
|
||
|
}
|
||
|
|
||
|
$lxdebug->leave_sub();
|
||
|
$main::lxdebug->leave_sub();
|
||
|
}
|
||
|
|
||
|
sub cov_selection_internal {
|
||
|
$lxdebug->enter_sub();
|
||
|
$main::lxdebug->enter_sub();
|
||
|
|
||
|
$order_by = "name";
|
||
|
my $form = $main::form;
|
||
|
my %myconfig = %main::myconfig;
|
||
|
my $locale = $main::locale;
|
||
|
|
||
|
my $order_by = "name";
|
||
|
$order_by = $form->{"order_by"} if (defined($form->{"order_by"}));
|
||
|
$order_dir = 1;
|
||
|
my $order_dir = 1;
|
||
|
$order_dir = $form->{"order_dir"} if (defined($form->{"order_dir"}));
|
||
|
|
||
|
my $type = $form->{"is_vendor"} ? $locale->text("vendor") : $locale->text("customer");
|
||
|
|
||
|
$covs = Common->retrieve_customers_or_vendors(\%myconfig, $form, $order_by, $order_dir, $form->{"is_vendor"}, $form->{"allow_both"});
|
||
|
my $covs = Common->retrieve_customers_or_vendors(\%myconfig, $form, $order_by, $order_dir, $form->{"is_vendor"}, $form->{"allow_both"});
|
||
|
map({ $covs->[$_]->{"selected"} = $_ ? 0 : 1; } (0..$#{$covs}));
|
||
|
|
||
|
my $onload;
|
||
|
if (0 == scalar(@{$covs})) {
|
||
|
$form->show_generic_information(sprintf($locale->text("No %s was found matching the search parameters."), $type));
|
||
|
} elsif (1 == scalar(@{$covs})) {
|
||
| ... | ... | |
|
"COVS" => $covs,
|
||
|
"onload" => $onload }));
|
||
|
|
||
|
$lxdebug->leave_sub();
|
||
|
$main::lxdebug->leave_sub();
|
||
|
}
|
||
|
|
||
|
|
||
|
# Functions to call add routines beneath different reports
|
||
|
|
||
|
sub sales_invoice {
|
||
|
$lxdebug->enter_sub();
|
||
|
$main::lxdebug->enter_sub();
|
||
|
|
||
|
$auth->assert('invoice_edit');
|
||
|
$main::auth->assert('invoice_edit');
|
||
|
|
||
|
my $form = $main::form;
|
||
|
my %myconfig = %main::myconfig;
|
||
|
my $locale = $main::locale;
|
||
|
|
||
|
$form->{script} = 'is.pl';
|
||
|
$script = "is";
|
||
|
my $script = "is";
|
||
|
$form->{type} = "invoice";
|
||
|
$locale = new Locale "$myconfig{countrycode}", "$script";
|
||
|
|
||
|
require "bin/mozilla/$form->{script}";
|
||
|
&add;
|
||
|
|
||
|
$lxdebug->leave_sub();
|
||
|
$main::lxdebug->leave_sub();
|
||
|
}
|
||
|
|
||
|
sub ar_transaction {
|
||
|
$lxdebug->enter_sub();
|
||
|
$main::lxdebug->enter_sub();
|
||
|
|
||
|
$auth->assert('general_ledger');
|
||
|
$main::auth->assert('general_ledger');
|
||
|
|
||
|
my $form = $main::form;
|
||
|
my %myconfig = %main::myconfig;
|
||
|
my $locale = $main::locale;
|
||
|
|
||
|
$form->{script} = 'ar.pl';
|
||
|
$script = "ar";
|
||
|
my $script = "ar";
|
||
|
$locale = new Locale "$myconfig{countrycode}", "$script";
|
||
|
|
||
|
require "bin/mozilla/$form->{script}";
|
||
|
&add;
|
||
|
|
||
|
$lxdebug->leave_sub();
|
||
|
$main::lxdebug->leave_sub();
|
||
|
}
|
||
|
|
||
|
sub vendor_invoice {
|
||
|
$lxdebug->enter_sub();
|
||
|
$main::lxdebug->enter_sub();
|
||
|
|
||
|
$auth->assert('invoice_edit');
|
||
|
$main::auth->assert('invoice_edit');
|
||
|
|
||
|
my $form = $main::form;
|
||
|
my %myconfig = %main::myconfig;
|
||
|
my $locale = $main::locale;
|
||
|
|
||
|
$form->{script} = 'ir.pl';
|
||
|
$script = "ir";
|
||
|
my $script = "ir";
|
||
|
$form->{type} = "invoice";
|
||
|
$locale = new Locale "$myconfig{countrycode}", "$script";
|
||
|
|
||
|
require "bin/mozilla/$form->{script}";
|
||
|
&add;
|
||
|
|
||
|
$lxdebug->leave_sub();
|
||
|
$main::lxdebug->leave_sub();
|
||
|
}
|
||
|
|
||
|
sub ap_transaction {
|
||
|
$lxdebug->enter_sub();
|
||
|
$main::lxdebug->enter_sub();
|
||
|
|
||
|
$auth->assert('general_ledger');
|
||
|
$main::auth->assert('general_ledger');
|
||
|
|
||
|
my $form = $main::form;
|
||
|
my %myconfig = %main::myconfig;
|
||
|
my $locale = $main::locale;
|
||
|
|
||
|
$form->{script} = 'ap.pl';
|
||
|
$script = "ap";
|
||
|
my $script = "ap";
|
||
|
$locale = new Locale "$myconfig{countrycode}", "$script";
|
||
|
|
||
|
require "bin/mozilla/$form->{script}";
|
||
|
&add;
|
||
|
|
||
|
$lxdebug->leave_sub();
|
||
|
$main::lxdebug->leave_sub();
|
||
|
}
|
||
|
|
||
|
sub gl_transaction {
|
||
|
$lxdebug->enter_sub();
|
||
|
$main::lxdebug->enter_sub();
|
||
|
|
||
|
$auth->assert('general_ledger');
|
||
|
$main::auth->assert('general_ledger');
|
||
|
|
||
|
my $form = $main::form;
|
||
|
my %myconfig = %main::myconfig;
|
||
|
my $locale = $main::locale;
|
||
|
|
||
|
$form->{script} = 'gl.pl';
|
||
|
$script = "gl";
|
||
|
my $script = "gl";
|
||
|
$locale = new Locale "$myconfig{countrycode}", "$script";
|
||
|
|
||
|
require "bin/mozilla/$form->{script}";
|
||
|
&add;
|
||
|
|
||
|
$lxdebug->leave_sub();
|
||
|
$main::lxdebug->leave_sub();
|
||
|
}
|
||
|
|
||
|
1;
|
||
Auch abrufbar als: Unified diff
common strict