X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=bin%2Fmozilla%2Fcommon.pl;h=30548f63f04c300905b21b98c5a024668e29aee0;hb=1936914faa606aa5114592851c0d94913f6a005d;hp=429a1ec6b28d9d60aa9b8db521231d1a181c8e57;hpb=ed42de15a13ad4cea92e7f744c8741c7a868bd7c;p=kivitendo-erp.git

diff --git a/bin/mozilla/common.pl b/bin/mozilla/common.pl
index 429a1ec6b..30548f63f 100644
--- a/bin/mozilla/common.pl
+++ b/bin/mozilla/common.pl
@@ -11,6 +11,8 @@
 
 use Data::Dumper;
 
+use SL::Common;
+
 sub save_form {
   $lxdebug->enter_sub();
 
@@ -39,8 +41,453 @@ sub restore_form {
   $lxdebug->leave_sub();
 }
 
+sub select_employee {
+  $lxdebug->enter_sub();
+
+  my ($callback_sub, @employees) = @_;
+
+  if (0 == scalar(@employees)) {
+    @employees = SystemBrace->get_all_employees(\%myconfig, $form);
+  }
+
+  my $old_form = save_form();
+
+  $form->header();
+  print($form->parse_html_template("generic/select_employee",
+                                   { "EMPLOYEES" => \@employees,
+                                     "old_form" => $old_form,
+                                     "title" => $locale->text("Select an employee"),
+                                     "nextsub" => "select_employee_internal",
+                                     "callback_sub" => $callback_sub }));
+
+  $lxdebug->leave_sub();
+}
+
+sub select_employee_internal {
+  $lxdebug->enter_sub();
+
+  my ($new_id, $new_name, $callback_sub);
+
+  my $new_id = $form->{"new_id_" . $form->{"selection"}};
+  my $new_name = $form->{"new_name_" . $form->{"selection"}};
+  my $callback_sub = $form->{"callback_sub"};
+
+  restore_form($form->{"old_form"});
+
+  &{ $callback_sub }($new_id, $new_name);
+
+  $lxdebug->leave_sub();
+}
+
+sub select_part {
+  $lxdebug->enter_sub();
+
+  my ($callback_sub, @parts) = @_;
+
+  my $remap_parts_id = 0;
+  if (defined($parts[0]->{"parts_id"}) && !defined($parts[0]->{"id"})) {
+    $remap_parts_id = 1;
+    map({ $_->{"id"} = $_->{"parts_id"}; } @parts);
+  }
+
+  my $remap_partnumber = 0;
+  if (defined($parts[0]->{"partnumber"}) && !defined($parts[0]->{"number"})) {
+    $remap_partnumber = 1;
+    map({ $_->{"number"} = $_->{"partnumber"}; } @parts);
+  }
+
+  my $has_charge = 0;
+  if (defined($parts[0]->{"chargenumber"})) {
+    $has_charge = 1;
+    map({ $_->{"has_charge"} = 1; } @parts);
+  }
+
+  my $old_form = save_form();
+
+  $form->header();
+  print($form->parse_html_template("generic/select_part",
+                                   { "PARTS" => \@parts,
+                                     "old_form" => $old_form,
+                                     "title" => $locale->text("Select a part"),
+                                     "nextsub" => "select_part_internal",
+                                     "callback_sub" => $callback_sub,
+                                     "has_charge" => $has_charge,
+                                     "remap_parts_id" => $remap_parts_id,
+                                     "remap_partnumber" => $remap_partnumber }));
+
+  $lxdebug->leave_sub();
+}
+
+sub select_part_internal {
+  $lxdebug->enter_sub();
+
+  my ($new_item, $callback_sub);
+
+  my $re = "^new_.*_" . $form->{"selection"};
+  map({
+    my $key = $_;
+    $key =~ s/^new_//;
+    $key =~ s/_\d+$//;
+    $new_item->{$key} = $form->{$_};
+  } grep(/$re/, keys(%{$form})));
+
+  if ($form->{"remap_parts_id"}) {
+    $new_item->{"parts_id"} = $new_item->{"id"};
+    delete($new_item->{"id"});
+  }
+  if ($form->{"remap_partnumber"}) {
+    $new_item->{"partnumber"} = $new_item->{"number"};
+    delete($new_item->{"number"});
+  }
+
+  my $callback_sub = $form->{"callback_sub"};
+
+  restore_form($form->{"old_form"});
+
+  &{ $callback_sub }($new_item);
+
+  $lxdebug->leave_sub();
+}
+
+sub part_selection_internal {
+  $lxdebug->enter_sub();
+
+  $order_by = "description";
+  $order_by = $form->{"order_by"} if (defined($form->{"order_by"}));
+  $order_dir = 1;
+  $order_dir = $form->{"order_dir"} if (defined($form->{"order_dir"}));
+
+  $parts = Common->retrieve_parts(\%myconfig, $form, $order_by, $order_dir);
+  map({ $parts->[$_]->{"selected"} = $_ ? 0 : 1; } (0..$#{$parts}));
+  if (0 == scalar(@{$parts})) {
+    $form->show_generic_information($locale->text("No part was found matching the search parameters."));
+  } elsif (1 == scalar(@{$parts})) {
+    $onload = "part_selected('1')";
+  }
+
+  my $callback = "$form->{script}?action=part_selection_internal&";
+  map({ $callback .= "$_=" . $form->escape($form->{$_}) . "&" }
+      (qw(login path password partnumber description input_partnumber input_description input_partsid), grep({ /^[fl]_/ } keys %$form)));
+
+  my @header_sort = qw(partnumber description);
+  my %header_title = ( "partnumber" => $locale->text("Part Number"),
+                       "description" => $locale->text("Part description"),
+                       );
+
+  my @header =
+    map(+{ "column_title" => $header_title{$_},
+           "column" => $_,
+           "callback" => $callback . "order_by=${_}&order_dir=" . ($order_by eq $_ ? 1 - $order_dir : $order_dir),
+         },
+        @header_sort);
+
+  $form->{"title"} = $locale->text("Select a part");
+  $form->header();
+  print($form->parse_html_template("generic/part_selection", { "HEADER" => \@header,
+                                                               "PARTS" => $parts,
+                                                               "onload" => $onload }));
+
+  $lxdebug->leave_sub();
+}
+
+sub project_selection_internal {
+  $lxdebug->enter_sub();
+
+  $order_by = "description";
+  $order_by = $form->{"order_by"} if (defined($form->{"order_by"}));
+  $order_dir = 1;
+  $order_dir = $form->{"order_dir"} if (defined($form->{"order_dir"}));
+
+  $projects = Common->retrieve_projects(\%myconfig, $form, $order_by, $order_dir);
+  map({ $projects->[$_]->{"selected"} = $_ ? 0 : 1; } (0..$#{$projects}));
+  if (0 == scalar(@{$projects})) {
+    $form->show_generic_information($locale->text("No project was found matching the search parameters."));
+  } elsif (1 == scalar(@{$projects})) {
+    $onload = "project_selected('1')";
+  }
+
+  my $callback = "$form->{script}?action=project_selection_internal&";
+  map({ $callback .= "$_=" . $form->escape($form->{$_}) . "&" }
+      (qw(login path password projectnumber description input_projectnumber input_description input_project_id), grep({ /^[fl]_/ } keys %$form)));
+
+  my @header_sort = qw(projectnumber description);
+  my %header_title = ( "projectnumber" => $locale->text("Project Number"),
+                       "description" => $locale->text("Project description"),
+                       );
+
+  my @header =
+    map(+{ "column_title" => $header_title{$_},
+           "column" => $_,
+           "callback" => $callback . "order_by=${_}&order_dir=" . ($order_by eq $_ ? 1 - $order_dir : $order_dir),
+         },
+        @header_sort);
+
+  $form->{"title"} = $locale->text("Select a project");
+  $form->header();
+  print($form->parse_html_template("generic/project_selection", { "HEADER" => \@header,
+                                                                  "PROJECTS" => $projects,
+                                                                  "onload" => $onload }));
+
+  $lxdebug->leave_sub();
+}
+
+sub employee_selection_internal {
+  $lxdebug->enter_sub();
+
+  $order_by = "name";
+  $order_by = $form->{"order_by"} if (defined($form->{"order_by"}));
+  $order_dir = 1;
+  $order_dir = $form->{"order_dir"} if (defined($form->{"order_dir"}));
+
+  $employees = Common->retrieve_employees(\%myconfig, $form, $order_by, $order_dir);
+  map({ $employees->[$_]->{"selected"} = $_ ? 0 : 1; } (0..$#{$employees}));
+  if (0 == scalar(@{$employees})) {
+    $form->show_generic_information($locale->text("No employee was found matching the search parameters."));
+  } elsif (1 == scalar(@{$employees})) {
+    $onload = "employee_selected('1')";
+  }
+
+  my $callback = "$form->{script}?action=employee_selection_internal&";
+  map({ $callback .= "$_=" . $form->escape($form->{$_}) . "&" }
+      (qw(login path password name input_name input_id), grep({ /^[fl]_/ } keys %$form)));
+
+  my @header_sort = qw(name);
+  my %header_title = ( "name" => $locale->text("Name"),
+                       );
+
+  my @header =
+    map(+{ "column_title" => $header_title{$_},
+           "column" => $_,
+           "callback" => $callback . "order_by=${_}&order_dir=" . ($order_by eq $_ ? 1 - $order_dir : $order_dir),
+         },
+        @header_sort);
+
+  $form->{"title"} = $locale->text("Select an employee");
+  $form->header();
+  print($form->parse_html_template("generic/employee_selection", { "HEADER" => \@header,
+                                                                   "EMPLOYEES" => $employees,
+                                                                   "onload" => $onload }));
+
+  $lxdebug->leave_sub();
+}
+
+sub delivery_customer_selection {
+  $lxdebug->enter_sub();
+
+  $order_by = "name";
+  $order_by = $form->{"order_by"} if (defined($form->{"order_by"}));
+  $order_dir = 1;
+  $order_dir = $form->{"order_dir"} if (defined($form->{"order_dir"}));
+
+  $delivery = Common->retrieve_delivery_customer(\%myconfig, $form, $order_by, $order_dir);
+  map({ $delivery->[$_]->{"selected"} = $_ ? 0 : 1; } (0..$#{$delivery}));
+  if (0 == scalar(@{$delivery})) {
+    $form->show_generic_information($locale->text("No Customer was found matching the search parameters."));
+  } elsif (1 == scalar(@{$delivery})) {
+    $onload = "customer_selected('1')";
+  }
+
+  my $callback = "$form->{script}?action=delivery_customer_selection&";
+  map({ $callback .= "$_=" . $form->escape($form->{$_}) . "&" }
+      (qw(login path password name input_name input_id), grep({ /^[fl]_/ } keys %$form)));
+
+  my @header_sort = qw(name customernumber address);
+  my %header_title = ( "name" => $locale->text("Name"),
+                       "customernumber" => $locale->text("Customer Number"),
+                       "address" => $locale->text("Address"),
+                     );
+
+  my @header =
+    map(+{ "column_title" => $header_title{$_},
+           "column" => $_,
+           "callback" => $callback . "order_by=${_}&order_dir=" . ($order_by eq $_ ? 1 - $order_dir : $order_dir),
+         },
+        @header_sort);
+
+  $form->{"title"} = $locale->text("Select a Customer");
+  $form->header();
+  print($form->parse_html_template("generic/select_delivery_customer", { "HEADER" => \@header,
+                                                                   "DELIVERY" => $delivery,
+                                                                   "onload" => $onload }));
+
+  $lxdebug->leave_sub();
+}
+
+sub vendor_selection {
+  $lxdebug->enter_sub();
+
+  $order_by = "name";
+  $order_by = $form->{"order_by"} if (defined($form->{"order_by"}));
+  $order_dir = 1;
+  $order_dir = $form->{"order_dir"} if (defined($form->{"order_dir"}));
+
+  $vendor = Common->retrieve_vendor(\%myconfig, $form, $order_by, $order_dir);
+  map({ $vendor->[$_]->{"selected"} = $_ ? 0 : 1; } (0..$#{$vendor}));
+  if (0 == scalar(@{$vendor})) {
+    $form->show_generic_information($locale->text("No Vendor was found matching the search parameters."));
+  } elsif (1 == scalar(@{$vendor})) {
+    $onload = "vendor_selected('1')";
+  }
+
+  my $callback = "$form->{script}?action=vendor_selection&";
+  map({ $callback .= "$_=" . $form->escape($form->{$_}) . "&" }
+      (qw(login path password name input_name input_id), grep({ /^[fl]_/ } keys %$form)));
+
+  my @header_sort = qw(name customernumber address);
+  my %header_title = ( "name" => $locale->text("Name"),
+                       "customernumber" => $locale->text("Customer Number"),
+                       "address" => $locale->text("Address"),
+                     );
+
+  my @header =
+    map(+{ "column_title" => $header_title{$_},
+           "column" => $_,
+           "callback" => $callback . "order_by=${_}&order_dir=" . ($order_by eq $_ ? 1 - $order_dir : $order_dir),
+         },
+        @header_sort);
+
+  $form->{"title"} = $locale->text("Select a Customer");
+  $form->header();
+  print($form->parse_html_template("generic/select_vendor", { "HEADER" => \@header,
+                                                                   "VENDOR" => $vendor,
+                                                                   "onload" => $onload }));
+
+  $lxdebug->leave_sub();
+}
+
+sub calculate_qty {
+  $lxdebug->enter_sub();
+
+  my @variable_sort = ();
+  my %variable_list = ();
+  my $unit_list = ();
+  $form->{formel} =~ s/\r\n//g;
+
+  my ($variable_string, $formel) = split /###/,$form->{formel};
+
+
+  split /;/, $variable_string;
+  foreach $item (@_) {
+    my($name, $valueunit) = split /=/,$item;
+    my($value, $unit) = split / /, $valueunit;
+
+    push(@variable_sort, $value);
+    $variable_list{$value} = $name;
+    $unit_list{$value} = $unit;
+  }
+
+  my @header_sort = qw(variable value unit);
+  my %header_title = ( "variable" => $locale->text("Variable"),
+                       "value" => $locale->text("Value"),
+                       "unit" => $locale->text("Unit"),
+                     );
+
+  my @variable = map(+{ "description" => $variable_list{$_},
+                        "name" => $_,
+                        "unit" => $unit_list{$_} }, @variable_sort);
+
+  my @header =
+    map(+{ "column_title" => $header_title{$_},
+           "column" => $_,
+         },
+        @header_sort);
+  $form->{formel} = $formel; 
+  $form->{"title"} = $locale->text("Please enter values");
+  $form->header();
+  print($form->parse_html_template("generic/calculate_qty", { "HEADER" => \@header,
+                                                                   "VARIABLES" => \@variable,
+                                                                   "onload" => $onload }));
+
+  $lxdebug->leave_sub();
+}
+
+sub set_longdescription {
+  $lxdebug->enter_sub();
+
+
+  my $callback = "$form->{script}?action=set_longdescription&";
+  map({ $callback .= "$_=" . $form->escape($form->{$_}) . "&" }
+      (qw(login path password name input_name input_id), grep({ /^[fl]_/ } keys %$form)));
+
+  $form->{"title"} = $locale->text("Enter longdescription");
+  $form->header();
+  print($form->parse_html_template("generic/set_longdescription"));
+
+  $lxdebug->leave_sub();
+}
+
 sub H {
   return $form->quote_html($_[0]);
 }
 
+sub format_dates {
+  $lxdebug->enter_sub();
+
+  my ($dateformat, $longformat, @indices) = @_;
+
+  $dateformat = $myconfig{"dateformat"} unless ($dateformat);
+
+  foreach my $idx (@indices) {
+    next unless (defined($form->{$idx}));
+
+    if (!ref($form->{$idx})) {
+      $form->{$idx} = $locale->reformat_date(\%myconfig, $form->{$idx},
+                                             $dateformat, $longformat);
+
+    } elsif (ref($form->{$idx}) eq "ARRAY") {
+      for (my $i = 0; $i < scalar(@{$form->{$idx}}); $i++) {
+        $form->{$idx}->[$i] =
+          $locale->reformat_date(\%myconfig, $form->{$idx}->[$i],
+                                 $dateformat, $longformat);
+      }
+    }
+  }
+
+  $lxdebug->leave_sub();
+}
+
+sub reformat_numbers {
+  $lxdebug->enter_sub();
+
+  my ($numberformat, $places, @indices) = @_;
+
+  return $lxdebug->leave_sub()
+    if (!$numberformat || ($numberformat eq $myconfig{"numberformat"}));
+
+  foreach my $idx (@indices) {
+    next unless (defined($form->{$idx}));
+
+    if (!ref($form->{$idx})) {
+      $form->{$idx} = $form->parse_amount(\%myconfig, $form->{$idx});
+
+    } elsif (ref($form->{$idx}) eq "ARRAY") {
+      for (my $i = 0; $i < scalar(@{$form->{$idx}}); $i++) {
+        $form->{$idx}->[$i] =
+          $form->parse_amount(\%myconfig, $form->{$idx}->[$i]);
+      }
+    }
+  }
+
+  my $saved_numberformat = $myconfig{"numberformat"};
+  $myconfig{"numberformat"} = $numberformat;
+
+  foreach my $idx (@indices) {
+    next unless (defined($form->{$idx}));
+
+    if (!ref($form->{$idx})) {
+      $form->{$idx} = $form->format_amount(\%myconfig, $form->{$idx}, $places);
+
+    } elsif (ref($form->{$idx}) eq "ARRAY") {
+      for (my $i = 0; $i < scalar(@{$form->{$idx}}); $i++) {
+        $form->{$idx}->[$i] =
+          $form->format_amount(\%myconfig, $form->{$idx}->[$i], $places);
+      }
+    }
+  }
+
+  $myconfig{"numberformat"} = $saved_numberformat;
+
+  $lxdebug->leave_sub();
+}
+
 1;