Fix für Bug 1081. Bei Buchung einer Einkaufsrechnung geht das Rabatt verloren. 1...
[kivitendo-erp.git] / bin / mozilla / common.pl
1 #=====================================================================
2 # LX-Office ERP
3 # Copyright (C) 2004
4 # Based on SQL-Ledger Version 2.1.9
5 # Web http://www.lx-office.org
6 ######################################################################
7 #
8 # Stuff that can be used from other modules
9 #
10 ######################################################################
11
12 use SL::Common;
13 use SL::DBUtils;
14 use SL::Form;
15 use SL::MoreCommon;
16
17 sub build_std_url {
18   $lxdebug->enter_sub(2);
19
20   my $script = $form->{script};
21
22   my @parts;
23
24   foreach my $key (@_) {
25     next unless ($key);
26
27     if ($key =~ /(.*?)=(.*)/) {
28       if ($1 eq 'script') {
29         $script = $2;
30       } else {
31         push @parts, $key;
32       }
33
34     } else {
35       foreach my $var ($form->flatten_variables($key)) {
36         push @parts, E($var->{key}) . '=' . E($var->{value});
37       }
38     }
39   }
40
41   my $url = "${script}?" . join('&', @parts);
42
43   $lxdebug->leave_sub(2);
44
45   return $url;
46 }
47
48 # -------------------------------------------------------------------------
49
50 sub select_part {
51   $lxdebug->enter_sub();
52
53   my ($callback_sub, @parts) = @_;
54
55   my $remap_parts_id = 0;
56   if (defined($parts[0]->{parts_id}) && !defined($parts[0]->{id})) {
57     $remap_parts_id = 1;
58     map { $_->{id} = $_->{parts_id}; } @parts;
59   }
60
61   my $remap_partnumber = 0;
62   if (defined($parts[0]->{partnumber}) && !defined($parts[0]->{number})) {
63     $remap_partnumber = 1;
64     map { $_->{number} = $_->{partnumber}; } @parts;
65   }
66
67   my $has_charge = 0;
68   if (defined($parts[0]->{chargenumber})) {
69     $has_charge = 1;
70     map { $_->{has_charge} = 1; } @parts;
71   }
72   my $has_ean = 0;
73   if (defined($parts[0]->{ean})) {
74     $has_ean = 1;
75     map { $_->{has_ean} = 1; } @parts;
76   }
77
78   my $old_form = save_form();
79
80   $form->header();
81   print $form->parse_html_template("generic/select_part",
82                                    { "PARTS"            => \@parts,
83                                      "old_form"         => $old_form,
84                                      "title"            => $locale->text("Select a part"),
85                                      "nextsub"          => "select_part_internal",
86                                      "callback_sub"     => $callback_sub,
87                                      "has_charge"       => $has_charge,
88                                      "has_ean"          => $has_ean,
89                                      "remap_parts_id"   => $remap_parts_id,
90                                      "remap_partnumber" => $remap_partnumber });
91
92   $lxdebug->leave_sub();
93 }
94
95 sub select_part_internal {
96   $lxdebug->enter_sub();
97
98   my ($new_item, $callback_sub);
99
100   my $re = "^new_.*_$form->{selection}\$";
101
102   foreach (grep /$re/, keys %{ $form }) {
103     my $new_key           =  $_;
104     $new_key              =~ s/^new_//;
105     $new_key              =~ s/_\d+$//;
106     $new_item->{$new_key} =  $form->{$_};
107   }
108
109   if ($form->{remap_parts_id}) {
110     $new_item->{parts_id} = $new_item->{id};
111     delete $new_item->{id};
112   }
113
114   if ($form->{remap_partnumber}) {
115     $new_item->{partnumber} = $new_item->{number};
116     delete $new_item->{number};
117   }
118
119   my $callback_sub = $form->{callback_sub};
120
121   restore_form($form->{old_form});
122
123   call_sub($callback_sub, $new_item);
124
125   $lxdebug->leave_sub();
126 }
127
128 sub part_selection_internal {
129   $lxdebug->enter_sub();
130
131   $order_by  = "description";
132   $order_by  = $form->{"order_by"} if (defined($form->{"order_by"}));
133   $order_dir = 1;
134   $order_dir = $form->{"order_dir"} if (defined($form->{"order_dir"}));
135
136   my %options;
137
138   foreach my $opt (split m/:/, $form->{options}) {
139     if ($opt =~ /=/) {
140       my ($key, $value) = split m/=/, $opt, 2;
141       $options{$key} = $value;
142
143     } else {
144       $options{$opt} = 1;
145     }
146   }
147
148   map { $form->{$_} = $options{$_} if ($options{$_}) } qw(no_services no_assemblies assemblies click_button);
149
150   $parts = Common->retrieve_parts(\%myconfig, $form, $order_by, $order_dir);
151
152   if (0 == scalar(@{$parts})) {
153     $form->show_generic_information($locale->text("No part was found matching the search parameters."));
154   } elsif (1 == scalar(@{$parts})) {
155     $onload = "part_selected('1')";
156   }
157
158   map { $parts->[$_]->{selected} = $_ ? 0 : 1; } (0..$#{$parts});
159
160   my $callback = build_std_url('action=part_selection_internal', qw(partnumber description input_partnumber input_description input_partsid),
161                                grep({ /^[fl]_/ } keys %{ $form }));
162
163   my @header_sort  = qw(partnumber description);
164   my %header_title = ( "partnumber"  => $locale->text("Part Number"),
165                        "description" => $locale->text("Part description"),
166                        );
167
168   my @header =
169     map(+{ "column_title" => $header_title{$_},
170            "column"       => $_,
171            "callback"     => $callback . "order_by=${_}&order_dir=" . ($order_by eq $_ ? 1 - $order_dir : $order_dir),
172          },
173         @header_sort);
174
175   $form->{formname} ||= 'Form';
176
177   $form->{title} = $locale->text("Select a part");
178   $form->header();
179   print $form->parse_html_template("generic/part_selection", { "HEADER" => \@header,
180                                                                "PARTS"  => $parts,
181                                                                "onload" => $onload });
182
183   $lxdebug->leave_sub();
184 }
185
186 # -------------------------------------------------------------------------
187
188 sub delivery_customer_selection {
189   $lxdebug->enter_sub();
190
191   $order_by = "name";
192   $order_by = $form->{"order_by"} if (defined($form->{"order_by"}));
193   $order_dir = 1;
194   $order_dir = $form->{"order_dir"} if (defined($form->{"order_dir"}));
195
196   $delivery = Common->retrieve_delivery_customer(\%myconfig, $form, $order_by, $order_dir);
197   map({ $delivery->[$_]->{"selected"} = $_ ? 0 : 1; } (0..$#{$delivery}));
198   if (0 == scalar(@{$delivery})) {
199     $form->show_generic_information($locale->text("No Customer was found matching the search parameters."));
200   } elsif (1 == scalar(@{$delivery})) {
201     $onload = "customer_selected('1')";
202   }
203
204   my $callback = "$form->{script}?action=delivery_customer_selection&";
205   map({ $callback .= "$_=" . $form->escape($form->{$_}) . "&" }
206       (qw(name input_name input_id), grep({ /^[fl]_/ } keys %$form)));
207
208   my @header_sort = qw(name customernumber address);
209   my %header_title = ( "name" => $locale->text("Name"),
210                        "customernumber" => $locale->text("Customer Number"),
211                        "address" => $locale->text("Address"),
212                      );
213
214   my @header =
215     map(+{ "column_title" => $header_title{$_},
216            "column" => $_,
217            "callback" => $callback . "order_by=${_}&order_dir=" . ($order_by eq $_ ? 1 - $order_dir : $order_dir),
218          },
219         @header_sort);
220
221   $form->{"title"} = $locale->text("Select a Customer");
222   $form->header();
223   print $form->parse_html_template("generic/select_delivery_customer", { "HEADER"   => \@header,
224                                                                          "DELIVERY" => $delivery,
225                                                                          "onload"   => $onload });
226
227   $lxdebug->leave_sub();
228 }
229
230 # -------------------------------------------------------------------------
231
232 sub vendor_selection {
233   $lxdebug->enter_sub();
234
235   $order_by = "name";
236   $order_by = $form->{"order_by"} if (defined($form->{"order_by"}));
237   $order_dir = 1;
238   $order_dir = $form->{"order_dir"} if (defined($form->{"order_dir"}));
239
240   $vendor = Common->retrieve_vendor(\%myconfig, $form, $order_by, $order_dir);
241   map({ $vendor->[$_]->{"selected"} = $_ ? 0 : 1; } (0..$#{$vendor}));
242   if (0 == scalar(@{$vendor})) {
243     $form->show_generic_information($locale->text("No Vendor was found matching the search parameters."));
244   } elsif (1 == scalar(@{$vendor})) {
245     $onload = "vendor_selected('1')";
246   }
247
248   my $callback = "$form->{script}?action=vendor_selection&";
249   map({ $callback .= "$_=" . $form->escape($form->{$_}) . "&" }
250       (qw(name input_name input_id), grep({ /^[fl]_/ } keys %$form)));
251
252   my @header_sort = qw(name customernumber address);
253   my %header_title = ( "name" => $locale->text("Name"),
254                        "customernumber" => $locale->text("Customer Number"),
255                        "address" => $locale->text("Address"),
256                      );
257
258   my @header =
259     map(+{ "column_title" => $header_title{$_},
260            "column" => $_,
261            "callback" => $callback . "order_by=${_}&order_dir=" . ($order_by eq $_ ? 1 - $order_dir : $order_dir),
262          },
263         @header_sort);
264
265   $form->{"title"} = $locale->text("Select a Customer");
266   $form->header();
267   print $form->parse_html_template("generic/select_vendor", { "HEADER" => \@header,
268                                                               "VENDOR" => $vendor,
269                                                               "onload" => $onload });
270
271   $lxdebug->leave_sub();
272 }
273
274 # -------------------------------------------------------------------------
275
276 sub calculate_qty {
277   $lxdebug->enter_sub();
278
279   $form->{formel} =~ s/\r\n//g;
280
281   my ($variable_string, $formel) = split /###/,$form->{formel};
282
283   foreach $item (split m/;/, $variable_string) {
284     next unless $item =~ m/^ \s* (\w+) \s* = \s* (\w+) \s* (\w+) \s* $/x;
285     push @variable, {
286       description => $1,
287       name        => $2,
288       unit        => $3,
289     };
290   }
291
292   my @header_sort = qw(variable value unit);
293   my %header_title = (
294     variable => $locale->text("Variable"),
295     value    => $locale->text("Value"),
296     unit     => $locale->text("Unit"),
297   );
298   my @header = map +{
299     column_title => $header_title{$_},
300     column       => $_,
301   }, @header_sort;
302
303   $form->{formel} = $formel;
304   $form->{title}  = $locale->text("Please enter values");
305   $form->header();
306   print $form->parse_html_template("generic/calculate_qty", { "HEADER"    => \@header,
307                                                               "VARIABLES" => \@variable,
308                                                               "onload"    => $onload });
309
310   $lxdebug->leave_sub();
311 }
312
313 # -------------------------------------------------------------------------
314
315 sub set_longdescription {
316   $lxdebug->enter_sub();
317
318   $form->{title} = $locale->text("Enter longdescription");
319   $form->header();
320   print $form->parse_html_template("generic/set_longdescription");
321
322   $lxdebug->leave_sub();
323 }
324
325 # -------------------------------------------------------------------------
326
327 sub H {
328   return $locale->quote_special_chars('HTML', $_[0]);
329 }
330
331 sub Q {
332   return $locale->quote_special_chars('URL@HTML', $_[0]);
333 }
334
335 sub E {
336   return $form->escape($_[0]);
337 }
338
339 sub NTI {
340   my ($element) = @_;
341
342   $element =~ s/tabindex\s*=\s*"\d+"//;
343   return $element;
344 }
345
346 sub format_dates {
347   $lxdebug->enter_sub();
348
349   my ($dateformat, $longformat, @indices) = @_;
350
351   $dateformat = $myconfig{"dateformat"} unless ($dateformat);
352
353   foreach my $idx (@indices) {
354     if ($form->{TEMPLATE_ARRAYS} && (ref($form->{TEMPLATE_ARRAYS}->{$idx}) eq "ARRAY")) {
355       for (my $i = 0; $i < scalar(@{$form->{TEMPLATE_ARRAYS}->{$idx}}); $i++) {
356         $form->{TEMPLATE_ARRAYS}->{$idx}->[$i] =
357           $locale->reformat_date(\%myconfig, $form->{TEMPLATE_ARRAYS}->{$idx}->[$i],
358                                  $dateformat, $longformat);
359       }
360     }
361
362     next unless (defined($form->{$idx}));
363
364     if (!ref($form->{$idx})) {
365       $form->{$idx} = $locale->reformat_date(\%myconfig, $form->{$idx},
366                                              $dateformat, $longformat);
367
368     } elsif (ref($form->{$idx}) eq "ARRAY") {
369       for (my $i = 0; $i < scalar(@{$form->{$idx}}); $i++) {
370         $form->{$idx}->[$i] =
371           $locale->reformat_date(\%myconfig, $form->{$idx}->[$i],
372                                  $dateformat, $longformat);
373       }
374     }
375   }
376
377   $lxdebug->leave_sub();
378 }
379
380 sub reformat_numbers {
381   $lxdebug->enter_sub();
382
383   my ($numberformat, $places, @indices) = @_;
384
385   return $lxdebug->leave_sub()
386     if (!$numberformat || ($numberformat eq $myconfig{"numberformat"}));
387
388   foreach my $idx (@indices) {
389     if ($form->{TEMPLATE_ARRAYS} && (ref($form->{TEMPLATE_ARRAYS}->{$idx}) eq "ARRAY")) {
390       for (my $i = 0; $i < scalar(@{$form->{TEMPLATE_ARRAYS}->{$idx}}); $i++) {
391         $form->{TEMPLATE_ARRAYS}->{$idx}->[$i] = $form->parse_amount(\%myconfig, $form->{TEMPLATE_ARRAYS}->{$idx}->[$i]);
392       }
393     }
394
395     next unless (defined($form->{$idx}));
396
397     if (!ref($form->{$idx})) {
398       $form->{$idx} = $form->parse_amount(\%myconfig, $form->{$idx});
399
400     } elsif (ref($form->{$idx}) eq "ARRAY") {
401       for (my $i = 0; $i < scalar(@{$form->{$idx}}); $i++) {
402         $form->{$idx}->[$i] =
403           $form->parse_amount(\%myconfig, $form->{$idx}->[$i]);
404       }
405     }
406   }
407
408   my $saved_numberformat = $myconfig{"numberformat"};
409   $myconfig{"numberformat"} = $numberformat;
410
411   foreach my $idx (@indices) {
412     if ($form->{TEMPLATE_ARRAYS} && (ref($form->{TEMPLATE_ARRAYS}->{$idx}) eq "ARRAY")) {
413       for (my $i = 0; $i < scalar(@{$form->{TEMPLATE_ARRAYS}->{$idx}}); $i++) {
414         $form->{TEMPLATE_ARRAYS}->{$idx}->[$i] = $form->format_amount(\%myconfig, $form->{TEMPLATE_ARRAYS}->{$idx}->[$i], $places);
415       }
416     }
417
418     next unless (defined($form->{$idx}));
419
420     if (!ref($form->{$idx})) {
421       $form->{$idx} = $form->format_amount(\%myconfig, $form->{$idx}, $places);
422
423     } elsif (ref($form->{$idx}) eq "ARRAY") {
424       for (my $i = 0; $i < scalar(@{$form->{$idx}}); $i++) {
425         $form->{$idx}->[$i] =
426           $form->format_amount(\%myconfig, $form->{$idx}->[$i], $places);
427       }
428     }
429   }
430
431   $myconfig{"numberformat"} = $saved_numberformat;
432
433   $lxdebug->leave_sub();
434 }
435
436 # -------------------------------------------------------------------------
437
438 sub show_history {
439         $lxdebug->enter_sub();
440         my $dbh = $form->dbconnect(\%myconfig);
441         my ($sort, $sortby) = split(/\-\-/, $form->{order});
442   $sort =~ s/.*\.(.*)/$1/;
443
444         $form->{title} = $locale->text("History");
445     $form->header();
446     print $form->parse_html_template( "common/show_history", {
447         "DATEN" => $form->get_history($dbh,$form->{input_name},"",$form->{order}),
448         "SUCCESS" => ($form->get_history($dbh,$form->{input_name}) ne "0"),
449       uc($sort) => 1,
450       uc($sort)."BY" => $sortby
451         } );
452
453         $dbh->disconnect();
454         $lxdebug->leave_sub();
455 }
456
457 # -------------------------------------------------------------------------
458
459 sub call_sub {
460   $lxdebug->enter_sub();
461
462   my $name = shift;
463
464   if (!$name) {
465     $form->error($locale->text("Trying to call a sub without a name"));
466   }
467
468   $name =~ s/[^a-zA-Z0-9_]//g;
469
470   if (!defined(&{ $name })) {
471     $form->error(sprintf($locale->text("Attempt to call an undefined sub named '%s'"), $name));
472   }
473
474   &{ $name }(@_);
475
476   $lxdebug->leave_sub();
477 }
478
479 # -------------------------------------------------------------------------
480
481 sub show_vc_details {
482         $lxdebug->enter_sub();
483
484   $form->{vc} = $form->{vc} eq "customer" ? "customer" : "vendor";
485   $form->isblank("vc_id",
486                  $form->{vc} eq "customer" ?
487                  $locale->text("No customer has been selected yet.") :
488                  $locale->text("No vendor has been selected yet."));
489
490   Common->get_vc_details(\%myconfig, $form, $form->{vc}, $form->{vc_id});
491
492   $form->{title} = $form->{vc} eq "customer" ?
493     $locale->text("Customer details") : $locale->text("Vendor details");
494   $form->header();
495   print $form->parse_html_template("common/show_vc_details", { "is_customer" => $form->{vc} eq "customer" });
496
497         $lxdebug->leave_sub();
498 }
499
500 # -------------------------------------------------------------------------
501
502 sub retrieve_partunits {
503   $lxdebug->enter_sub();
504
505   my @part_ids = grep { $_ } map { $form->{"id_${_}"} } (1..$form->{rowcount});
506
507   if (@part_ids) {
508     my %partunits = IO->retrieve_partunits('part_ids' => \@part_ids);
509
510     foreach my $i (1..$form->{rowcount}) {
511       next unless ($form->{"id_${i}"});
512       $form->{"partunit_${i}"} = $partunits{$form->{"id_${i}"}};
513     }
514   }
515
516   $lxdebug->leave_sub();
517 }
518
519 # -------------------------------------------------------------------------
520
521 sub mark_as_paid_common {
522   $lxdebug->enter_sub();
523
524   my ($myconfig, $db_name) = @_;
525
526   if($form->{mark_as_paid}) {
527     my $dbh ||= $form->get_standard_dbh($myconfig);
528     my $query = qq|UPDATE $db_name SET paid = amount WHERE id = ?|;
529     do_query($form, $dbh, $query, $form->{id});
530     $dbh->commit();
531     $form->redirect($locale->text("Marked as paid"));
532
533   } else {
534     my $referer = $ENV{HTTP_REFERER};
535     if ($referer =~ /action/) {
536       $referer =~ /^(.*)\?action\=[^\&]*(\&.*)$/;
537       $script = $1;
538       $callback = $2;
539     } else {
540       $script = $referer;
541       $callback = "";
542     }
543     $referer = $script . "?action=mark_as_paid&mark_as_paid=1&id=$form->{id}" . $callback;
544     $form->header();
545     print qq|<body>|;
546     print qq|<p><b>|.$locale->text('Mark as paid?').qq|</b></p>|;
547     print qq|<input type="button" value="|.$locale->text('yes').qq|" onclick="document.location.href='|.$referer.qq|'">&nbsp;|;
548     print qq|<input type="button" value="|.$locale->text('no').qq|" onclick="javascript:history.back();">|;
549     print qq|</body></html>|;
550   }
551
552   $lxdebug->leave_sub();
553 }
554
555 sub cov_selection_internal {
556   $lxdebug->enter_sub();
557
558   $order_by = "name";
559   $order_by = $form->{"order_by"} if (defined($form->{"order_by"}));
560   $order_dir = 1;
561   $order_dir = $form->{"order_dir"} if (defined($form->{"order_dir"}));
562
563   my $type = $form->{"is_vendor"} ? $locale->text("vendor") : $locale->text("customer");
564
565   $covs = Common->retrieve_customers_or_vendors(\%myconfig, $form, $order_by, $order_dir, $form->{"is_vendor"}, $form->{"allow_both"});
566   map({ $covs->[$_]->{"selected"} = $_ ? 0 : 1; } (0..$#{$covs}));
567   if (0 == scalar(@{$covs})) {
568     $form->show_generic_information(sprintf($locale->text("No %s was found matching the search parameters."), $type));
569   } elsif (1 == scalar(@{$covs})) {
570     $onload = "cov_selected('1')";
571   }
572
573   my $callback = "$form->{script}?action=cov_selection_internal&";
574   map({ $callback .= "$_=" . $form->escape($form->{$_}) . "&" }
575       (qw(name input_name input_id is_vendor allow_both), grep({ /^[fl]_/ } keys %$form)));
576
577   my @header_sort = qw(name address contact);
578   my %header_title = ( "name" => $locale->text("Name"),
579                        "address" => $locale->text("Address"),
580                        "contact" => $locale->text("Contact"),
581                        );
582
583   my @header =
584     map(+{ "column_title" => $header_title{$_},
585            "column" => $_,
586            "callback" => $callback . "order_by=${_}&order_dir=" . ($order_by eq $_ ? 1 - $order_dir : $order_dir),
587          },
588         @header_sort);
589
590   foreach my $cov (@{ $covs }) {
591     $cov->{address} = "$cov->{street}, $cov->{zipcode} $cov->{city}";
592     $cov->{address} =~ s{^,}{}x;
593     $cov->{address} =~ s{\ +}{\ }gx;
594
595     $cov->{contact} = join " ", map { $cov->{$_} } qw(cp_gender cp_title cp_givenname cp_name);
596     $cov->{contact} =~ s{\ +}{\ }gx;
597   }
598
599   $form->{"title"} = $form->{is_vendor} ? $locale->text("Select a vendor") : $locale->text("Select a customer");
600   $form->header();
601   print($form->parse_html_template("generic/cov_selection", { "HEADER" => \@header,
602                                                               "COVS" => $covs,
603                                                               "onload" => $onload }));
604
605   $lxdebug->leave_sub();
606 }
607
608
609 # Functions to call add routines beneath different reports
610
611 sub sales_invoice {
612   $lxdebug->enter_sub();
613
614   $auth->assert('invoice_edit');
615
616
617   $form->{script} = 'is.pl';
618   $script         = "is";
619   $form->{type} = "invoice";
620   $locale = new Locale "$myconfig{countrycode}", "$script";
621
622   require "bin/mozilla/$form->{script}";
623   &add;
624
625   $lxdebug->leave_sub();
626 }
627
628 sub ar_transaction {
629   $lxdebug->enter_sub();
630
631   $auth->assert('general_ledger');
632
633
634   $form->{script} = 'ar.pl';
635   $script         = "ar";
636   $locale = new Locale "$myconfig{countrycode}", "$script";
637
638   require "bin/mozilla/$form->{script}";
639   &add;
640
641   $lxdebug->leave_sub();
642 }
643
644 sub vendor_invoice {
645   $lxdebug->enter_sub();
646
647   $auth->assert('invoice_edit');
648
649
650   $form->{script} = 'ir.pl';
651   $script         = "ir";
652   $form->{type} = "invoice";
653   $locale = new Locale "$myconfig{countrycode}", "$script";
654
655   require "bin/mozilla/$form->{script}";
656   &add;
657
658   $lxdebug->leave_sub();
659 }
660
661 sub ap_transaction {
662   $lxdebug->enter_sub();
663
664   $auth->assert('general_ledger');
665
666
667   $form->{script} = 'ap.pl';
668   $script         = "ap";
669   $locale = new Locale "$myconfig{countrycode}", "$script";
670
671   require "bin/mozilla/$form->{script}";
672   &add;
673
674   $lxdebug->leave_sub();
675 }
676
677 sub gl_transaction {
678   $lxdebug->enter_sub();
679
680   $auth->assert('general_ledger');
681
682
683   $form->{script} = 'gl.pl';
684   $script         = "gl";
685   $locale = new Locale "$myconfig{countrycode}", "$script";
686
687   require "bin/mozilla/$form->{script}";
688   &add;
689
690   $lxdebug->leave_sub();
691 }
692
693 1;