Einige Browser (Opera) mögen es nicht, wenn "checked" bei Checkboxen in Anführungszei...
[kivitendo-erp.git] / bin / mozilla / oe.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 # SQL-Ledger, Accounting
9 # Copyright (c) 1998-2003
10 #
11 #  Author: Dieter Simader
12 #   Email: dsimader@sql-ledger.org
13 #     Web: http://www.sql-ledger.org
14 #
15 #
16 # This program is free software; you can redistribute it and/or modify
17 # it under the terms of the GNU General Public License as published by
18 # the Free Software Foundation; either version 2 of the License, or
19 # (at your option) any later version.
20 #
21 # This program is distributed in the hope that it will be useful,
22 # but WITHOUT ANY WARRANTY; without even the implied warranty of
23 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
24 # GNU General Public License for more details.
25 # You should have received a copy of the GNU General Public License
26 # along with this program; if not, write to the Free Software
27 # Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
28 #======================================================================
29 #
30 # Order entry module
31 # Quotation module
32 #======================================================================
33
34 use POSIX qw(strftime);
35
36 use SL::OE;
37 use SL::IR;
38 use SL::IS;
39 use SL::PE;
40 use SL::ReportGenerator;
41 use List::Util qw(max);
42
43 require "bin/mozilla/io.pl";
44 require "bin/mozilla/arap.pl";
45 require "bin/mozilla/reportgenerator.pl";
46
47 1;
48
49 # end of main
50
51 # For locales.pl:
52 # $locale->text('Edit the purchase_order');
53 # $locale->text('Edit the sales_order');
54 # $locale->text('Edit the request_quotation');
55 # $locale->text('Edit the sales_quotation');
56
57 # $locale->text('Workflow purchase_order');
58 # $locale->text('Workflow sales_order');
59 # $locale->text('Workflow request_quotation');
60 # $locale->text('Workflow sales_quotation');
61
62 sub set_headings {
63   $lxdebug->enter_sub();
64
65   my ($action) = @_;
66
67   if ($form->{type} eq 'purchase_order') {
68     $form->{title}   = $action eq "edit" ?
69       $locale->text('Edit Purchase Order') :
70       $locale->text('Add Purchase Order');
71     $form->{heading} = $locale->text('Purchase Order');
72     $form->{vc}      = 'vendor';
73   }
74   if ($form->{type} eq 'sales_order') {
75     $form->{title}   = $action eq "edit" ?
76       $locale->text('Edit Sales Order') :
77       $locale->text('Add Sales Order');
78     $form->{heading} = $locale->text('Sales Order');
79     $form->{vc}      = 'customer';
80   }
81   if ($form->{type} eq 'request_quotation') {
82     $form->{title}   = $action eq "edit" ?
83       $locale->text('Edit Request for Quotation') :
84       $locale->text('Add Request for Quotation');
85     $form->{heading} = $locale->text('Request for Quotation');
86     $form->{vc}      = 'vendor';
87   }
88   if ($form->{type} eq 'sales_quotation') {
89     $form->{title}   = $action eq "edit" ?
90       $locale->text('Edit Quotation') :
91       $locale->text('Add Quotation');
92     $form->{heading} = $locale->text('Quotation');
93     $form->{vc}      = 'customer';
94   }
95
96   $lxdebug->leave_sub();
97 }
98
99 sub add {
100   $lxdebug->enter_sub();
101
102   set_headings("add");
103
104   $form->{callback} =
105     "$form->{script}?action=add&type=$form->{type}&vc=$form->{vc}&login=$form->{login}&password=$form->{password}"
106     unless $form->{callback};
107
108   &order_links;
109   &prepare_order;
110   &display_form;
111
112   $lxdebug->leave_sub();
113 }
114
115 sub edit {
116   $lxdebug->enter_sub();
117   # show history button
118   $form->{javascript} = qq|<script type="text/javascript" src="js/show_history.js"></script>|;
119   #/show hhistory button
120
121   $form->{simple_save} = 0;
122
123   set_headings("edit");
124
125   # editing without stuff to edit? try adding it first
126   if ($form->{rowcount} && !$form->{print_and_save}) {
127     map { $id++ if $form->{"multi_id_$_"} } (1 .. $form->{rowcount});
128     if (!$id) {
129
130       # reset rowcount
131       undef $form->{rowcount};
132       &add;
133       $lxdebug->leave_sub();
134       return;
135     }
136   } elsif (!$form->{id}) {
137     &add;
138     $lxdebug->leave_sub();
139     return;
140   }
141
142   if ($form->{print_and_save}) {
143     $form->{action}   = "print";
144     $form->{resubmit} = 1;
145     $language_id = $form->{language_id};
146     $printer_id = $form->{printer_id};
147   }
148
149   set_headings("edit");
150
151   &order_links;
152   &prepare_order;
153   if ($form->{print_and_save}) {
154     $form->{language_id} = $language_id;
155     $form->{printer_id} = $printer_id;
156   }
157   &display_form;
158
159   $lxdebug->leave_sub();
160 }
161
162 sub order_links {
163   $lxdebug->enter_sub();
164   # get customer/vendor
165   $form->all_vc(\%myconfig, $form->{vc},
166                 ($form->{vc} eq 'customer') ? "AR" : "AP");
167
168   # retrieve order/quotation
169   $form->{webdav}   = $webdav;
170   $form->{jsscript} = 1;
171
172   my $editing = $form->{id};
173
174   OE->retrieve(\%myconfig, \%$form);
175
176   if ($form->{payment_id}) {
177     $payment_id = $form->{payment_id};
178   }
179   if ($form->{language_id}) {
180     $language_id = $form->{language_id};
181   }
182   if ($form->{taxzone_id}) {
183     $taxzone_id = $form->{taxzone_id};
184   }
185
186   $salesman_id = $form->{salesman_id} if ($editing);
187
188
189   # if multiple rowcounts (== collective order) then check if the
190   # there were more than one customer (in that case OE::retrieve removes
191   # the content from the field)
192   if (   $form->{rowcount}
193       && $form->{type} eq 'sales_order'
194       && defined $form->{customer}
195       && $form->{customer} eq '') {
196
197     #    $main::lxdebug->message(0, "Detected Edit order with concurrent customers");
198     $form->error(
199                  $locale->text(
200                    'Collective Orders only work for orders from one customer!')
201     );
202   }
203
204   $taxincluded = $form->{taxincluded};
205   $form->{shipto} = 1 if $form->{id};
206
207   if ($form->{"all_$form->{vc}"}) {
208     unless ($form->{"$form->{vc}_id"}) {
209       $form->{"$form->{vc}_id"} = $form->{"all_$form->{vc}"}->[0]->{id};
210     }
211   }
212
213   $cp_id    = $form->{cp_id};
214   $intnotes = $form->{intnotes};
215
216   # get customer / vendor
217   if ($form->{type} =~ /(purchase_order|request_quotation)/) {
218     IR->get_vendor(\%myconfig, \%$form);
219
220     #quote all_vendor Bug 133
221     foreach $ref (@{ $form->{all_vendor} }) {
222       $ref->{name} = $form->quote($ref->{name});
223     }
224
225   }
226   if ($form->{type} =~ /sales_(order|quotation)/) {
227     IS->get_customer(\%myconfig, \%$form);
228
229     #quote all_vendor Bug 133
230     foreach $ref (@{ $form->{all_customer} }) {
231       $ref->{name} = $form->quote($ref->{name});
232     }
233
234   }
235   $form->{cp_id} = $cp_id;
236
237   if ($payment_id) {
238     $form->{payment_id} = $payment_id;
239   }
240   if ($language_id) {
241     $form->{language_id} = $language_id;
242   }
243   if ($taxzone_id) {
244     $form->{taxzone_id} = $taxzone_id;
245   }
246   $form->{intnotes} = $intnotes if $intnotes;
247   ($form->{ $form->{vc} }) = split /--/, $form->{ $form->{vc} };
248   $form->{"old$form->{vc}"} =
249     qq|$form->{$form->{vc}}--$form->{"$form->{vc}_id"}|;
250
251   # build the popup menus
252   if (@{ $form->{"all_$form->{vc}"} }) {
253     $form->{ $form->{vc} } =
254       qq|$form->{$form->{vc}}--$form->{"$form->{vc}_id"}|;
255     map { $form->{"select$form->{vc}"} .=
256 "<option>$_->{name}--$_->{id}</option>\n" }
257       (@{ $form->{"all_$form->{vc}"} });
258   }
259
260   $form->{taxincluded} = $taxincluded if ($form->{id});
261
262   # departments
263   if (@{ $form->{all_departments} }) {
264     $form->{selectdepartment} = "<option>\n";
265     $form->{department}       = "$form->{department}--$form->{department_id}";
266
267     map {
268       $form->{selectdepartment} .=
269         "<option>$_->{description}--$_->{id}</option>\n"
270     } (@{ $form->{all_departments} });
271   }
272
273   $form->{employee} = "$form->{employee}--$form->{employee_id}";
274
275   # forex
276   $form->{forex} = $form->{exchangerate};
277
278   $form->{salesman_id} = $salesman_id if ($editing);
279
280   $lxdebug->leave_sub();
281 }
282
283 sub prepare_order {
284   $lxdebug->enter_sub();
285   $form->{formname} = $form->{type} unless $form->{formname};
286
287   my $i = 0;
288   foreach $ref (@{ $form->{form_details} }) {
289     $form->{rowcount} = ++$i;
290
291     map { $form->{"${_}_$i"} = $ref->{$_} } keys %{$ref};
292   }
293   for my $i (1 .. $form->{rowcount}) {
294     if ($form->{id}) {
295       $form->{"discount_$i"} =
296         $form->format_amount(\%myconfig, $form->{"discount_$i"} * 100);
297     } else {
298       $form->{"discount_$i"} =
299         $form->format_amount(\%myconfig, $form->{"discount_$i"});
300     }
301     ($dec) = ($form->{"sellprice_$i"} =~ /\.(\d+)/);
302     $dec           = length $dec;
303     $decimalplaces = ($dec > 2) ? $dec : 2;
304
305     # copy reqdate from deliverydate for invoice -> order conversion
306     $form->{"reqdate_$i"} = $form->{"deliverydate_$i"}
307       unless $form->{"reqdate_$i"};
308
309     $form->{"sellprice_$i"} =
310       $form->format_amount(\%myconfig, $form->{"sellprice_$i"},
311                            $decimalplaces);
312
313     (my $dec_qty) = ($form->{"qty_$i"} =~ /\.(\d+)/);
314     $dec_qty = length $dec_qty;
315     $form->{"qty_$i"} =
316       $form->format_amount(\%myconfig, $form->{"qty_$i"}, $dec_qty);
317
318     map { $form->{"${_}_$i"} =~ s/\"/&quot;/g }
319       qw(partnumber description unit);
320   }
321
322   $lxdebug->leave_sub();
323 }
324
325 sub form_header {
326   $lxdebug->enter_sub();
327
328   my $checkedclosed    = $form->{"closed"}    ? "checked" : "";
329   my $checkeddelivered = $form->{"delivered"} ? "checked" : "";
330
331   $form->{employee_id} = $form->{old_employee_id} if $form->{old_employee_id};
332   $form->{salesman_id} = $form->{old_salesman_id} if $form->{old_salesman_id};
333
334   $form->{defaultcurrency} = $form->get_default_currency(\%myconfig);
335
336   $form->{employee_id} = $form->{old_employee_id} if $form->{old_employee_id};
337   $form->{salesman_id} = $form->{old_salesman_id} if $form->{old_salesman_id};
338
339   map { $form->{$_} =~ s/\"/&quot;/g }
340     qw(ordnumber quonumber shippingpoint shipvia notes intnotes shiptoname
341        shiptostreet shiptozipcode shiptocity shiptocountry shiptocontact
342        shiptophone shiptofax shiptodepartment_1 shiptodepartment_2);
343
344   # use JavaScript Calendar or not
345   $form->{jsscript} = 1;
346   $jsscript = "";
347
348   $button1 = qq|
349      <td><input name=transdate id=transdate size=11 title="$myconfig{dateformat}" value="$form->{transdate}" onBlur=\"check_right_date_format(this)\">
350       <input type=button name=transdate id="trigger1" value=|
351     . $locale->text('button') . qq|></td>
352     |;
353   $button2 = qq|
354      <td width="13"><input name=reqdate id=reqdate size=11 title="$myconfig{dateformat}" value="$form->{reqdate}" onBlur=\"check_right_date_format(this)\">
355       <input type=button name=reqdate name=reqdate id="trigger2" value=|
356     . $locale->text('button') . qq|></td>
357    |;
358
359   #write Trigger
360   $jsscript = Form->write_trigger(\%myconfig, "2", "transdate", "BL", "trigger1", "reqdate", "BL", "trigger2");
361
362   my @tmp;
363
364   if (($form->{"type"} eq "sales_order") ||
365       ($form->{"type"} eq "purchase_order")) {
366     push(@tmp, qq|<input name="delivered" id="delivered" type="checkbox" class="checkbox" value="1" $checkeddelivered>
367                   <label for="delivered">| . $locale->text('Delivered') . qq|</label>|);
368   }
369
370   if ($form->{id}) {
371     push(@tmp, qq|<input name="closed" id="closed" type="checkbox" class="checkbox" value="1" $checkedclosed>
372                   <label for="closed">| . $locale->text('Closed') . qq|</label>|);
373   }
374
375   if (@tmp) {
376     $openclosed .= qq|<tr>
377                         <td colspan=| . (2 * scalar(@tmp)) . qq| align=center>| . join("\n", @tmp) . qq|
378                         </td>
379                       </tr>\n|;
380   }
381
382   # set option selected
383   foreach $item ($form->{vc}, currency, department, ($form->{vc} eq "customer" ? customer : vendor)) {
384     $form->{"select$item"} =~ s/ selected//;
385     $form->{"select$item"} =~ s/option>\Q$form->{$item}\E/option selected>$form->{$item}/;
386   }
387
388   #quote select[customer|vendor] Bug 133
389   $form->{"select$form->{vc}"} = $form->quote($form->{"select$form->{vc}"});
390
391   #substitute \n and \r to \s (bug 543)
392   $form->{"select$form->{vc}"} =~ s/[\n\r]/&nbsp;/g;
393   
394   my @old_project_ids = ($form->{"globalproject_id"});
395   map({ push(@old_project_ids, $form->{"project_id_$_"})
396           if ($form->{"project_id_$_"}); } (1..$form->{"rowcount"}));
397
398   my $vc = $form->{vc} eq "customer" ? "customers" : "vendors";
399   $form->get_lists("contacts"   => "ALL_CONTACTS",
400                    "shipto"     => "ALL_SHIPTO",
401                    "projects"   => {
402                      "key"      => "ALL_PROJECTS",
403                      "all"      => 0,
404                      "old_id"   => \@old_project_ids
405                    },
406                    "employees"  => "ALL_EMPLOYEES",
407                    "salesmen"   => "ALL_SALESMEN",
408                    "taxzones"   => "ALL_TAXZONES",
409                    "payments"   => "ALL_PAYMENTS",
410                    "currencies" => "ALL_CURRENCIES",
411                    $vc          => "ALL_" . uc($vc));
412
413   my %labels;
414   my @values = (undef);
415   foreach my $item (@{ $form->{"ALL_CONTACTS"} }) {
416     push(@values, $item->{"cp_id"});
417     $labels{$item->{"cp_id"}} = $item->{"cp_name"} . ($item->{"cp_abteilung"} ? " ($item->{cp_abteilung})" : "");
418   }
419
420   my $contact;
421   if (scalar @values > 1) {
422     $contact = qq|
423     <tr>
424       <th align="right">| . $locale->text('Contact Person') . qq|</th>
425       <td>| .
426       NTI($cgi->popup_menu('-name' => 'cp_id', '-values' => \@values, '-style' => 'width: 250px',
427                            '-labels' => \%labels, '-default' => $form->{"cp_id"}))
428       . qq|
429       </td>
430     </tr>|;
431   }
432
433   %labels = ();
434   @values = ();
435
436   foreach my $item (@{ $form->{($form->{vc} eq "customer" ? "ALL_CUSTOMERS" : "ALL_VENDORS")}}) {
437     push(@values, $item->{"name"}.qq|--|.$item->{"id"});
438     $labels{$item->{"name"}.qq|--|.$item->{"id"}} = $item->{name};
439   }
440
441   $vc = qq|
442       <input type="hidden" name="$form->{vc}_id" value="| . H($form->{"$form->{vc}_id"}) . qq|">
443       <input type="hidden" name="old$form->{vc}" value="| . H($form->{"old$form->{vc}"}) . qq|">
444       <th align="right">| . $locale->text(ucfirst($form->{vc})) . qq|</th>
445       <td>| . 
446         (($myconfig{vclimit} <=  scalar(@values)) 
447               ? qq|<input type="text" value="| . H(($form->{"old$form->{vc}"} =~ /^(.*)\-\-.*$/)) . qq|" name="$form->{vc}">| 
448               : (NTI($cgi->popup_menu('-name' => "$form->{vc}", '-default' => $form->{"old$form->{vc}"}, 
449                              '-onChange' => 'document.getElementById(\'update_button\').click();',
450                              '-values' => \@values, '-labels' => \%labels, '-style' => 'width: 250px')))) . qq|
451         <input type="button" value="?" onclick="show_vc_details('$form->{vc}')">
452       </td><input type=hidden name="select$form->{vc}" value="| .
453     Q($form->{"select$form->{vc}"}) . qq|">|;
454
455   %labels = ();
456   @values = ("");
457   foreach my $item (@{ $form->{"ALL_PAYMENTS"} }) {
458     push(@values, $item->{"id"});
459     $labels{$item->{"id"}} = $item->{"description"};
460   }
461   
462   $payments = qq|
463     <th align="right">| . $locale->text('Payment Terms') . qq|</th>
464     <td>| .
465     NTI($cgi->popup_menu('-name' => 'payment_id', '-values' => \@values, '-style' => 'width: 250px',
466                          '-labels' => \%labels, '-default' => $form->{payment_id}))
467     . qq|</td>|;
468
469   %labels = ();
470   @values = ("");
471   foreach my $item (@{ $form->{"ALL_SHIPTO"} }) {
472     push(@values, $item->{"shipto_id"});
473     $labels{$item->{"shipto_id"}} = join "; ", grep { $_ } map { $item->{"shipto${_}" } } qw(name department_1 street city);
474   }
475
476   my $shipto;
477   if (scalar @values > 1) {
478     $shipto = qq|
479     <tr>
480       <th align="right">| . $locale->text('Shipping Address') . qq|</th>
481       <td>| .
482       NTI($cgi->popup_menu('-name' => 'shipto_id', '-values' => \@values, '-style' => 'width: 250px',
483                            '-labels' => \%labels, '-default' => $form->{"shipto_id"}))
484     . qq|</td>|;
485   }
486
487   %labels = ();
488   @values = ("");
489   foreach my $item (@{ $form->{"ALL_PROJECTS"} }) {
490     push(@values, $item->{"id"});
491     $labels{$item->{"id"}} = $item->{"projectnumber"};
492   }
493   my $globalprojectnumber = NTI($cgi->popup_menu('-name' => 'globalproject_id', '-values' => \@values,
494                                                  '-labels' => \%labels,
495                                                  '-default' => $form->{"globalproject_id"}));
496   
497   my $salesmen = "";
498   %labels = ();
499   @values = ();
500   if ($form->{type} =~ /^sales_/) {
501     foreach my $item (@{ $form->{"ALL_SALESMEN"} }) {
502       push(@values, $item->{"id"});
503       $labels{$item->{"id"}} = ($item->{"name"} ne "" ? $item->{"name"} : $item->{"login"});
504     }
505     $salesmen =
506       qq|<tr>
507           <th align="right">| . $locale->text('Salesman') . qq|</th>
508           <td>| .
509       NTI($cgi->popup_menu('-name' => 'salesman_id', '-default' => $form->{"salesman_id"} ? $form->{"salesman_id"} : $form->{"employee_id"},
510                            '-values' => \@values, '-labels' => \%labels))
511       . qq|</td>
512          </tr>|;
513   }
514
515   %labels = ();
516   @values = ();
517   foreach my $item (@{ $form->{"ALL_EMPLOYEES"} }) {
518     push(@values, $item->{"id"});
519     $labels{$item->{"id"}} = $item->{"name"} ne "" ? $item->{"name"} : $item->{"login"};
520   }
521
522   my $employee = qq|
523     <tr>
524       <th align="right">| . $locale->text('Employee') . qq|</th>
525       <td>| .
526         NTI($cgi->popup_menu('-name' => 'employee_id', '-default' => $form->{"employee_id"},
527                              '-values' => \@values, '-labels' => \%labels)) . qq|
528       </td>
529     </tr>|;
530
531   %labels = ();
532   @values = ();
533   foreach my $item (@{ $form->{"ALL_TAXZONES"} }) {
534     push(@values, $item->{"id"});
535     $labels{$item->{"id"}} = $item->{"description"};
536   }
537
538   $taxzone = qq|
539     <tr>
540       <th align="right">| . $locale->text('Steuersatz') . qq|</th>
541       <td>| .
542         NTI($cgi->popup_menu('-name' => 'taxzone_id', '-default' => $form->{"taxzone_id"},
543                              '-values' => \@values, '-labels' => \%labels, '-style' => 'width: 250px')) . qq|
544       </td>
545     </tr>|;
546
547   %labels = ();
548   @values = ();
549   my $i = 0;
550   foreach my $item (@{ $form->{"ALL_CURRENCIES"} }) {
551     push(@values, $item);
552     $labels{$item} = $item;
553   }
554
555   $form->{currency} = $form->{defaultcurrency} unless $form->{currency};
556   my $currencies;
557   if (scalar @values) {
558     $currencies = qq|
559     <tr>
560       <th align="right">| . $locale->text('Currency') . qq|</th>
561       <td>| .
562         NTI($cgi->popup_menu('-name' => 'currency', '-default' => $form->{"currency"},
563                              '-values' => \@values, '-labels' => \%labels)) . qq|
564       </td>
565     </tr>|;
566   }
567
568   $form->{exchangerate} = $form->format_amount(\%myconfig, $form->{exchangerate});
569   $form->{exchangerate} = "" unless $form->{exchangerate};
570
571   $creditwarning = (($form->{creditlimit} != 0) && ($form->{creditremaining} < 0) && !$form->{update}) ? 1 : 0;
572
573   $form->{creditlimit}     = $form->format_amount(\%myconfig, $form->{creditlimit}, 0, "0");
574   $form->{creditremaining} = $form->format_amount(\%myconfig, $form->{creditremaining}, 0, "0");
575
576   $exchangerate = qq|\n<input type=hidden name=forex value=$form->{forex}>\n|;
577
578   if ($form->{currency} ne $form->{defaultcurrency}) {
579     if ($form->{forex}) {
580       $exchangerate .=
581           qq|<th align=right>| . $locale->text('Exchangerate')
582         . qq|</th><td>$form->{exchangerate}</td>
583       <input type=hidden name=exchangerate value=$form->{exchangerate}>
584 |;
585     } else {
586       $exchangerate .=
587           qq|<th align=right>| . $locale->text('Exchangerate')
588         . qq|</th><td><input name=exchangerate size=10 value=$form->{exchangerate}></td>|;
589     }
590   }
591
592   if ($form->{business}) {
593     $business = qq|
594               <tr>
595           <th align="right">| . ($form->{vc} eq "customer" ? $locale->text('Customer type') : $locale->text('Vendor type')) . qq|</th>
596           <td>$form->{business}; | . $locale->text('Trade Discount') . qq| |
597       . $form->format_amount(\%myconfig, $form->{tradediscount} * 100)
598       . qq| %</td>
599         </tr>
600 |;
601   }
602
603   if ($form->{max_dunning_level}) {
604     $dunning = qq|
605       <tr>
606         <th align="right">| . $locale->text('Max. Dunning Level') . qq|:</th>
607         <td>
608           <b>$form->{max_dunning_level}</b>;
609           | . $locale->text('Dunning Amount') . qq|: <b>|
610         . $form->format_amount(\%myconfig, $form->{dunning_amount},2)
611         . qq|</b>
612         </td>
613       </tr>
614 |;
615   }
616
617   if ($form->{type} !~ /_quotation$/) {
618     $ordnumber = qq|
619               <tr>
620                 <th width=70% align=right nowrap>| . $locale->text('Order Number') . qq|</th>
621                 <td><input name=ordnumber size=11 value="$form->{ordnumber}"></td>
622               </tr>
623               <tr>
624                 <th width=70% align=right nowrap>|
625       . $locale->text('Quotation Number') . qq|</th>
626                 <td><input name=quonumber size=11 value="$form->{quonumber}"></td>
627               </tr>
628               <tr>
629                 <th width=70% align=right nowrap>|
630       . $locale->text('Customer Order Number') . qq|</th>
631                 <td><input name=cusordnumber size=11 value="$form->{cusordnumber}"></td>
632               </tr>
633               <tr>
634                 <th align=right nowrap>| . $locale->text('Order Date') . qq|</th>
635                 $button1
636
637               </tr>
638               <tr>
639                 <th align=right nowrap=true>| . $locale->text('Required by') . qq|</th>
640                 $button2
641               </tr>
642 |;
643
644     $n = ($form->{creditremaining} =~ /-/) ? "0" : "1";
645
646     $creditremaining = qq|
647         $shipto
648         <tr>
649           <td align="right">| . $locale->text('Credit Limit') . qq|</td>
650           <td>$form->{creditlimit}; | . $locale->text('Remaining') . qq| <span class="plus$n">$form->{creditremaining}</span></td>
651         </tr>
652               </tr>
653 |;
654   } else {
655     $reqlabel = ($form->{type} eq 'sales_quotation') ? $locale->text('Valid until') : $locale->text('Required by');
656     if ($form->{type} eq 'sales_quotation') {
657       $ordnumber = qq|
658               <tr>
659                 <th width=70% align=right nowrap>|
660         . $locale->text('Quotation Number') . qq|</th>
661                 <td><input name=quonumber size=11 value="$form->{quonumber}"></td>
662                 <input type=hidden name=ordnumber value="$form->{ordnumber}">
663               </tr>
664 |;
665     } else {
666       $ordnumber = qq|
667               <tr>
668                 <th width=70% align=right nowrap>| . $locale->text('RFQ Number') . qq|</th>
669                 <td><input name=quonumber size=11 value="$form->{quonumber}"></td>
670                 <input type=hidden name=ordnumber value="$form->{ordnumber}">
671               </tr>
672 |;
673
674     }
675
676     $ordnumber      .= qq| <tr> <th align=right nowrap>| . $locale->text('Quotation Date') . qq|</th> $button1 </tr>
677                            <tr> <th align=right nowrap=true>$reqlabel</th> $button2 </tr>\n|;
678     $creditremaining = qq| <tr> <td colspan=4></td> $shipto </tr>|;
679   }
680
681   $department = qq|
682               <tr>
683                 <th align="right" nowrap>| . $locale->text('Department') . qq|</th>
684                 <td colspan=3><select name=department style="width: 250px">$form->{selectdepartment}</select>
685                 <input type=hidden name=selectdepartment value="$form->{selectdepartment}">
686                 </td>
687               </tr> | if $form->{selectdepartment};
688
689   if ($form->{type} eq 'sales_order') {
690     $employee .= qq|\n<input type="hidden" name="customer_klass" value="$form->{customer_klass}">| if $form->{selectemployee};
691   } else {
692     $employee .= qq|\n<input type="hidden" name="customer_klass" value="$form->{customer_klass}">|;
693   }
694
695   $credittext = $locale->text('Credit Limit exceeded!!!');
696
697   $onload = ($form->{resubmit} && ($form->{format} eq "html")) ? "window.open('about:blank','Beleg'); document.oe.target = 'Beleg';document.oe.submit()"
698           : ($form->{resubmit})                                ? "document.oe.submit()"
699           : ($creditwarning)                                   ? "alert('$credittext')"
700           :                                                      "focus()";
701
702   $onload .= qq|;setupDateFormat('|. $myconfig{dateformat} .qq|', '|. $locale->text("Falsches Datumsformat!") .qq|')|;
703   $onload .= qq|;setupPoints('|.   $myconfig{numberformat} .qq|', '|. $locale->text("wrongformat") .qq|')|;
704   
705   $form->{javascript} .= qq|<script type="text/javascript" src="js/show_form_details.js"></script>|;
706   $form->{javascript} .= qq|<script type="text/javascript" src="js/show_history.js"></script>|;
707   $form->{javascript} .= qq|<script type="text/javascript" src="js/show_vc_details.js"></script>|;
708
709   $form->header;
710
711   print qq|
712 <body onLoad="$onload">
713
714 <form method=post name=oe action=$form->{script}>
715
716  <script type="text/javascript" src="js/common.js"></script>
717  <script type="text/javascript" src="js/delivery_customer_selection.js"></script>
718  <script type="text/javascript" src="js/vendor_selection.js"></script>
719  <script type="text/javascript" src="js/calculate_qty.js"></script>
720 |;
721
722   $form->hide_form(qw(id action type vc formname media format proforma queued printed emailed
723                       title discount creditlimit creditremaining tradediscount business
724                       max_dunning_level dunning_amount shiptoname shiptostreet shiptozipcode
725                       shiptocity shiptocountry shiptocontact shiptophone shiptofax 
726                       shiptodepartment_1 shiptodepartment_2 shiptoemail 
727                       message email subject cc bcc taxpart taxservice taxaccounts), 
728                       map { $_.'_rate', $_.'_description' } split / /, $form->{taxaccounts} );
729   print qq|
730
731 <table width=100%>
732   <tr class=listtop>
733     <th class=listtop>$form->{title}</th>
734   </tr>
735   <tr height="5"></tr>
736   <tr>
737     <td>
738       <table width="100%">
739         <tr valign=top>
740           <td>
741             <table width=100%>
742               <tr>
743         $vc
744         $contact
745               $creditremaining
746               $business
747               $dunning
748               $taxzone
749               $department
750               <tr>
751                 $currencies
752                 $exchangerate
753               </tr>
754               <tr>
755                 <th align=right>| . $locale->text('Shipping Point') . qq|</th>
756                 <td colspan=3><input name=shippingpoint size=35 value="$form->{shippingpoint}"></td>
757               </tr>
758               <tr>
759                 <th align=right>| . $locale->text('Ship via') . qq|</th>
760                 <td colspan=3><input name=shipvia size=35 value="$form->{shipvia}"></td>
761               </tr>
762               <tr>
763                 <th align="right">| . $locale->text('Transaction description') . qq|</th>
764                 <td colspan="3"><input name="transaction_description" size="35" value="| . H($form->{transaction_description}) . qq|"></td>
765               </tr>|;
766 #              <tr>
767 #                 <td colspan=4>
768 #                   <table>
769 #                     <tr>
770 #                       <td colspan=2>
771 #                         <button type="button" onclick="delivery_customer_selection_window('delivery_customer_string','delivery_customer_id')">| . $locale->text('Choose Customer') . qq|</button>
772 #                       </td>
773 #                       <td colspan=2><input type=hidden name=delivery_customer_id value="$form->{delivery_customer_id}">
774 #                       <input size=45 id=delivery_customer_string name=delivery_customer_string value="$form->{delivery_customer_string}"></td>
775 #                     </tr>
776 #                     <tr>
777 #                       <td colspan=2>
778 #                         <button type="button" onclick="vendor_selection_window('delivery_vendor_string','delivery_vendor_id')">| . $locale->text('Choose Vendor') . qq|</button>
779 #                       </td>
780 #                       <td colspan=2><input type=hidden name=delivery_vendor_id value="$form->{delivery_vendor_id}">
781 #                       <input size=45 id=vendor_string name=delivery_vendor_string value="$form->{delivery_vendor_string}"></td>
782 #                     </tr>
783 #                   </table>
784 #                 </td>
785 #               </tr>
786 print qq|           </table>
787           </td>
788           <td align=right>
789             <table>
790               $openclosed
791               $employee
792         $salesmen
793               $ordnumber
794               <tr>
795           <th width="70%" align="right" nowrap>| . $locale->text('Project Number') . qq|</th>
796           <td>$globalprojectnumber</td>
797               </tr>
798             </table>
799           </td>
800         </tr>
801       </table>
802     </td>
803   </tr>
804
805 $jsscript
806
807 |;
808
809   $lxdebug->leave_sub();
810 }
811
812 sub form_footer {
813   $lxdebug->enter_sub();
814
815   $form->{invtotal} = $form->{invsubtotal};
816
817   if (($rows = $form->numtextrows($form->{notes}, 25, 8)) < 2) {
818     $rows = 2;
819   }
820   if (($introws = $form->numtextrows($form->{intnotes}, 35, 8)) < 2) {
821     $introws = 2;
822   }
823   $rows = ($rows > $introws) ? $rows : $introws;
824   $notes =
825     qq|<textarea name=notes rows=$rows cols=25 wrap=soft>$form->{notes}</textarea>|;
826   $intnotes =
827     qq|<textarea name=intnotes rows=$rows cols=35 wrap=soft>$form->{intnotes}</textarea>|;
828
829   $form->{taxincluded} = ($form->{taxincluded}) ? "checked" : "";
830
831   $taxincluded = "";
832   if ($form->{taxaccounts}) {
833     $taxincluded = qq|
834               <input name=taxincluded class=checkbox type=checkbox value=1 $form->{taxincluded}> <b>|
835       . $locale->text('Tax Included') . qq|</b><br><br>
836 |;
837   }
838
839   if (!$form->{taxincluded}) {
840
841     foreach $item (split / /, $form->{taxaccounts}) {
842       if ($form->{"${item}_base"}) {
843         $form->{invtotal} += $form->{"${item}_total"} =
844           $form->round_amount(
845                              $form->{"${item}_base"} * $form->{"${item}_rate"},
846                              2);
847         $form->{"${item}_total"} =
848           $form->format_amount(\%myconfig, $form->{"${item}_total"}, 2);
849
850         $tax .= qq|
851               <tr>
852                 <th align=right>$form->{"${item}_description"}&nbsp;|
853                                     . $form->{"${item}_rate"} * 100 .qq|%</th>
854                 <td align=right>$form->{"${item}_total"}</td>
855               </tr>
856 |;
857       }
858     }
859
860     $form->{invsubtotal} =
861       $form->format_amount(\%myconfig, $form->{invsubtotal}, 2, 0);
862
863     $subtotal = qq|
864               <tr>
865                 <th align=right>| . $locale->text('Subtotal') . qq|</th>
866                 <td align=right>$form->{invsubtotal}</td>
867               </tr>
868 |;
869
870   }
871
872   if ($form->{taxincluded}) {
873     foreach $item (split / /, $form->{taxaccounts}) {
874       if ($form->{"${item}_base"}) {
875         $form->{"${item}_total"} =
876           $form->round_amount(
877                            ($form->{"${item}_base"} * $form->{"${item}_rate"} /
878                               (1 + $form->{"${item}_rate"})
879                            ),
880                            2);
881         $form->{"${item}_netto"} =
882           $form->round_amount(
883                           ($form->{"${item}_base"} - $form->{"${item}_total"}),
884                           2);
885         $form->{"${item}_total"} =
886           $form->format_amount(\%myconfig, $form->{"${item}_total"}, 2);
887         $form->{"${item}_netto"} =
888           $form->format_amount(\%myconfig, $form->{"${item}_netto"}, 2);
889
890         $tax .= qq|
891               <tr>
892                 <th align=right>Enthaltene $form->{"${item}_description"}&nbsp;|
893                                     . $form->{"${item}_rate"} * 100 .qq|%</th>
894                 <td align=right>$form->{"${item}_total"}</td>
895               </tr>
896               <tr>
897                 <th align=right>Nettobetrag</th>
898                 <td align=right>$form->{"${item}_netto"}</td>
899               </tr>
900 |;
901       }
902     }
903
904   }
905
906   $form->{oldinvtotal} = $form->{invtotal};
907   $form->{invtotal}    =
908     $form->format_amount(\%myconfig, $form->{invtotal}, 2, 0);
909
910   print qq|
911   <tr>
912     <td>
913       <table width=100%>
914         <tr valign=bottom>
915           <td>
916             <table>
917               <tr>
918                 <th align=left>| . $locale->text('Notes') . qq|</th>
919                 <th align=left>| . $locale->text('Internal Notes') . qq|</th>
920               </tr>
921               <tr valign=top>
922                 <td>$notes</td>
923                 <td>$intnotes</td>
924               </tr>
925           <tr>
926     $payments
927             </tr>
928       </table>
929           </td>
930           <td>
931             <table>
932 |;
933
934   if ($form->{type} =~ /^sales_/) {
935     print qq|
936             <tr>
937               <th  align=left>| . $locale->text('Ertrag') . qq|</th>
938               <td>| .  $form->format_amount(\%myconfig, $form->{marge_total}, 2, 0) . qq|</td>
939             </tr>
940             <tr>
941               <th  align=left>| . $locale->text('Ertrag prozentual') . qq|</th>
942               <td>| .  $form->format_amount(\%myconfig, $form->{marge_percent}, 2, 0) . qq| %</td>
943             </tr>
944 |;
945   }
946
947   print qq|
948             <input type=hidden name="marge_total" value="$form->{"marge_total"}">
949             <input type=hidden name="marge_percent" value="$form->{"marge_percent"}">
950             </table>
951           </td>
952           <td align=right>
953             $taxincluded
954             <table>
955               $subtotal
956               $tax
957               <tr>
958                 <th align=right>| . $locale->text('Total') . qq|</th>
959                 <td align=right>$form->{invtotal}</td>
960               </tr>
961             </table>
962           </td>
963         </tr>
964       </table>
965     </td>
966   </tr>
967 <input type=hidden name=oldinvtotal value=$form->{oldinvtotal}>
968 <input type=hidden name=oldtotalpaid value=$totalpaid>
969   <tr>
970     <td><hr size=3 noshade></td>
971   </tr>
972 |;
973
974   if ($webdav) {
975     $webdav_list = qq|
976
977   <tr>
978     <th class=listtop align=left>Dokumente im Webdav-Repository</th>
979   </tr>
980     <table width=100%>
981       <td align=left width=30%><b>Dateiname</b></td>
982       <td align=left width=70%><b>Webdavlink</b></td>
983 |;
984     foreach $file (@{ $form->{WEBDAV} }) {
985       $webdav_list .= qq|
986       <tr>
987         <td align="left">$file->{name}</td>
988         <td align="left"><a href="$file->{link}">$file->{type}</a></td>
989       </tr>
990 |;
991     }
992     $webdav_list .= qq|
993     </table>
994   </tr>
995   <tr>
996     <td><hr size=3 noshade></td>
997   </tr>
998 |;
999
1000     print $webdav_list;
1001   }
1002
1003   print qq|
1004   <tr>
1005     <td>
1006 |;
1007   print_options();
1008
1009   print qq|
1010     </td>
1011   </tr>
1012 </table>
1013
1014 | . $locale->text("Edit the $form->{type}") . qq|<br>
1015 <input class=submit type=submit name=action id=update_button value="|
1016     . $locale->text('Update') . qq|">
1017 <input class=submit type=submit name=action value="|
1018     . $locale->text('Ship to') . qq|">
1019 <input class=submit type=submit name=action value="|
1020     . $locale->text('Print') . qq|">
1021 <input class=submit type=submit name=action value="|
1022     . $locale->text('E-mail') . qq|">
1023 <input class=submit type=submit name=action value="|
1024     . $locale->text('Save') . qq|">
1025 <input class=submit type=submit name=action value="|
1026     . $locale->text('Save and Close') . qq|">
1027 |;
1028
1029   if (($form->{id})) {
1030     print qq|
1031         <input type="button" class="submit" onclick="set_history_window(|
1032         . Q($form->{id})
1033         . qq|);" name="history" id="history" value="|
1034         . $locale->text('history')
1035         . qq|">
1036
1037 <br>| . $locale->text("Workflow $form->{type}") . qq|<br>
1038 <input class=submit type=submit name=action value="|
1039       . $locale->text('Save as new') . qq|">
1040 <input class=submit type=submit name=action value="|
1041       . $locale->text('Delete') . qq|">|;
1042     if (($form->{type} =~ /sales_quotation$/)) {
1043       print qq|
1044 <input class=submit type=submit name=action value="|
1045         . $locale->text('Sales Order') . qq|">|;
1046     }
1047     if ($form->{type} =~ /request_quotation$/) {
1048       print qq|
1049 <input class=submit type=submit name=action value="|
1050         . $locale->text('Purchase Order') . qq|">|;
1051     }
1052     print qq|
1053 <input class=submit type=submit name=action value="|
1054       . $locale->text('Invoice') . qq|">
1055 |;
1056
1057     if ($form->{type} =~ /sales_order$/) {
1058       print qq|
1059 <br>$form->{heading} als neue Vorlage verwenden f&uuml;r<br>
1060 <input class=submit type=submit name=action value="|
1061         . $locale->text('Purchase Order') . qq|">
1062 <input class=submit type=submit name=action value="|
1063         . $locale->text('Quotation') . qq|">
1064 |;
1065
1066     } elsif ($form->{type} =~ /purchase_order$/) {
1067       print qq|
1068 <br>$form->{heading} als neue Vorlage verwenden f&uuml;r<br>
1069 <input class=submit type=submit name=action value="|
1070         . $locale->text('Sales Order') . qq|">
1071 <input class=submit type=submit name=action value="|
1072         . $locale->text('Request for Quotation') . qq|">
1073 |;
1074
1075     } else {
1076       print qq|
1077 <br>$form->{heading} als neue Vorlage verwenden f&uuml;r<br>
1078 <input class=submit type=submit name=action value="|
1079         . $locale->text('Order') . qq|">
1080 |;
1081     }
1082   }
1083
1084   $form->hide_form("saved_xyznumber");
1085
1086   print qq|
1087
1088 <input type=hidden name=rowcount value=$form->{rowcount}>
1089
1090 <input name=callback type=hidden value="$form->{callback}">
1091
1092 <input type=hidden name=login value=$form->{login}>
1093 <input type=hidden name=password value=$form->{password}>
1094
1095 </form>
1096
1097 </body>
1098 </html>
1099 |;
1100   $lxdebug->leave_sub();
1101 }
1102
1103 sub update {
1104   $lxdebug->enter_sub();
1105
1106   set_headings($form->{"id"} ? "edit" : "add");
1107
1108   map { $form->{$_} = $form->parse_amount(\%myconfig, $form->{$_}) } qw(exchangerate creditlimit creditremaining);
1109   $form->{update} = 1;
1110       
1111   $payment_id = $form->{payment_id} if $form->{payment_id};
1112   
1113   &check_name($form->{vc});
1114   
1115   $form->{payment_id} = $payment_id if $form->{payment_id} eq "";
1116   
1117   $buysell              = 'buy';
1118   $buysell              = 'sell' if ($form->{vc} eq 'vendor');
1119   $form->{exchangerate} = $exchangerate if 
1120     $form->{forex} = $exchangerate = $form->check_exchangerate(\%myconfig, $form->{currency}, $form->{transdate}, $buysell);
1121
1122   # for pricegroups
1123   $i = $form->{rowcount};
1124
1125   $exchangerate = $form->{exchangerate} || 1;
1126
1127   if (   ($form->{"partnumber_$i"} eq "")
1128       && ($form->{"description_$i"} eq "")
1129       && ($form->{"partsgroup_$i"}  eq "")) {
1130
1131     $form->{creditremaining} += ($form->{oldinvtotal} - $form->{oldtotalpaid});
1132     &check_form;
1133
1134   } else {
1135
1136     if (   $form->{type} eq 'purchase_order'
1137         || $form->{type} eq 'request_quotation') {
1138       IR->retrieve_item(\%myconfig, \%$form);
1139     }
1140     if (   $form->{type} eq 'sales_order' 
1141         || $form->{type} eq 'sales_quotation') {
1142       IS->retrieve_item(\%myconfig, \%$form);
1143     }
1144
1145     my $rows = scalar @{ $form->{item_list} };
1146
1147     $form->{"discount_$i"} = $form->format_amount(\%myconfig, $form->{discount} * 100);
1148
1149     if ($rows) {
1150       $form->{"qty_$i"} = 1 unless ($form->{"qty_$i"});
1151
1152       if ($rows > 1) {
1153
1154         &select_item;
1155         exit;
1156
1157       } else {
1158
1159         $sellprice             = $form->parse_amount(\%myconfig, $form->{"sellprice_$i"});
1160         $form->{"discount_$i"} = 0 if $form->{"not_discountable_$i"};
1161         map { $form->{item_list}[$i]{$_} =~ s/\"/&quot;/g }    qw(partnumber description unit);
1162         map { $form->{"${_}_$i"} = $form->{item_list}[0]{$_} } keys %{ $form->{item_list}[0] };
1163         $form->{payment_id} = $form->{"part_payment_id_$i"} if $form->{"part_payment_id_$i"} ne "";
1164
1165         ($sellprice || $form->{"sellprice_$i"}) =~ /\.(\d+)/;
1166         $decimalplaces = max 2, length $1;
1167
1168         if ($sellprice) {
1169           $form->{"sellprice_$i"} = $sellprice;
1170         } else {
1171           $form->{"sellprice_$i"} *= (1 - $form->{tradediscount});
1172           $form->{"sellprice_$i"} /= $exchangerate;   # if there is an exchange rate adjust sellprice
1173         }
1174
1175         $amount = $form->{"sellprice_$i"} * $form->{"qty_$i"} * (1 - $form->{"discount_$i"} / 100);
1176         map { $form->{"${_}_base"} = 0 }                                 split / /, $form->{taxaccounts};
1177         map { $form->{"${_}_base"} += $amount }                          split / /, $form->{"taxaccounts_$i"};
1178         map { $amount += ($form->{"${_}_base"} * $form->{"${_}_rate"}) } split / /, $form->{taxaccounts} if !$form->{taxincluded};
1179
1180         $form->{creditremaining} -= $amount;
1181
1182         $form->{"sellprice_$i"} = $form->format_amount(\%myconfig, $form->{"sellprice_$i"}, $decimalplaces);
1183         $form->{"qty_$i"}       = $form->format_amount(\%myconfig, $form->{"qty_$i"}, $dec_qty);
1184
1185         # get pricegroups for parts
1186         IS->get_pricegroups_for_parts(\%myconfig, \%$form);
1187
1188         # build up html code for prices_$i
1189         &set_pricegroup($i);
1190       }
1191
1192       &display_form;
1193
1194     } else {
1195
1196       # ok, so this is a new part
1197       # ask if it is a part or service item
1198
1199       if (   $form->{"partsgroup_$i"}
1200           && ($form->{"partsnumber_$i"} eq "")
1201           && ($form->{"description_$i"} eq "")) {
1202         $form->{rowcount}--;
1203         $form->{"discount_$i"} = "";
1204         display_form();
1205
1206       } else {
1207         $form->{"id_$i"}   = 0;
1208         new_item();
1209       }
1210     }
1211   }
1212
1213   $lxdebug->leave_sub();
1214 }
1215
1216 sub search {
1217   $lxdebug->enter_sub();
1218
1219   if ($form->{type} eq 'purchase_order') {
1220     $form->{title} = $locale->text('Purchase Orders');
1221     $form->{vc}    = 'vendor';
1222     $ordlabel      = $locale->text('Order Number');
1223     $ordnumber     = 'ordnumber';
1224     $employee      = $locale->text('Employee');
1225   }
1226
1227   if ($form->{type} eq 'request_quotation') {
1228     $form->{title} = $locale->text('Request for Quotations');
1229     $form->{vc}    = 'vendor';
1230     $ordlabel      = $locale->text('RFQ Number');
1231     $ordnumber     = 'quonumber';
1232     $employee      = $locale->text('Employee');
1233   }
1234
1235   if ($form->{type} eq 'sales_order') {
1236     $form->{title} = $locale->text('Sales Orders');
1237     $form->{vc}    = 'customer';
1238     $ordlabel      = $locale->text('Order Number');
1239     $ordnumber     = 'ordnumber';
1240     $employee      = $locale->text('Employee');
1241   }
1242
1243   if ($form->{type} eq 'sales_quotation') {
1244     $form->{title} = $locale->text('Quotations');
1245     $form->{vc}    = 'customer';
1246     $ordlabel      = $locale->text('Quotation Number');
1247     $ordnumber     = 'quonumber';
1248     $employee      = $locale->text('Employee');
1249   }
1250
1251   # setup vendor / customer selection
1252   $form->all_vc(\%myconfig, $form->{vc},
1253                 ($form->{vc} eq 'customer') ? "AR" : "AP");
1254
1255   # departments
1256   if (@{ $form->{all_departments} }) {
1257     $form->{selectdepartment} = "<option>\n";
1258
1259     map {
1260       $form->{selectdepartment} .=
1261         "<option>$_->{description}--$_->{id}</option>\n"
1262     } (@{ $form->{all_departments} });
1263   }
1264
1265   $department = qq|
1266         <tr>
1267           <th align=right nowrap>| . $locale->text('Department') . qq|</th>
1268           <td colspan=3><select name=department>$form->{selectdepartment}</select></td>
1269         </tr>
1270 | if $form->{selectdepartment};
1271
1272   my $delivered;
1273   if (($form->{"type"} eq "sales_order") ||
1274       ($form->{"type"} eq "purchase_order")) {
1275     $delivered = qq|
1276         <tr>
1277           <td><input name="notdelivered" id="notdelivered" class="checkbox" type="checkbox" value="1" checked>
1278             <label for="notdelivered">|. $locale->text('Not delivered') . qq|</label></td>
1279           <td><input name="delivered" id="delivered" class="checkbox" type="checkbox" value="1" checked>
1280             <label for="delivered">| . $locale->text('Delivered') . qq|</label></td>
1281         </tr>
1282 |;
1283   }
1284
1285   # use JavaScript Calendar or not
1286   $form->{jsscript} = 1;
1287   $jsscript = "";
1288
1289   $button1 = qq|
1290      <td><input name=transdatefrom id=transdatefrom size=11 title="$myconfig{dateformat}" onBlur=\"check_right_date_format(this)\">
1291      <input type=button name=transdatefrom id="trigger3" value=|
1292     . $locale->text('button') . qq|></td>
1293     |;
1294   $button2 = qq|
1295      <td><input name=transdateto id=transdateto size=11 title="$myconfig{dateformat}" onBlur=\"check_right_date_format(this)\">
1296      <input type=button name=transdateto name=transdateto id="trigger4" value=|
1297     . $locale->text('button') . qq|></td>
1298    |;
1299
1300   #write Trigger
1301   $jsscript =
1302     Form->write_trigger(\%myconfig, "2", "transdatefrom", "BR", "trigger3",
1303                         "transdateto", "BL", "trigger4");
1304
1305   my $vc = $form->{vc} eq "customer" ? "customers" : "vendors";
1306
1307   $form->get_lists("projects" => { "key" => "ALL_PROJECTS",
1308                                    "all" => 1 },
1309                    "employees" => "ALL_EMPLOYEES",
1310                    $vc => "ALL_" . uc($vc));
1311
1312   my %labels = ();
1313   my @values = ("");
1314   foreach my $item (@{ $form->{"ALL_PROJECTS"} }) {
1315     push(@values, $item->{"id"});
1316     $labels{$item->{"id"}} = $item->{"projectnumber"};
1317   }
1318   my $projectnumber =
1319     NTI($cgi->popup_menu('-name' => 'project_id', '-values' => \@values,
1320                          '-labels' => \%labels));
1321
1322   #employees
1323   %labels = ();
1324   @values = ("");
1325   foreach my $item (@{ $form->{"ALL_EMPLOYEES"} }) {
1326     push(@values, $item->{"id"});
1327     $labels{$item->{"id"}} = $item->{"name"} ne "" ? $item->{"name"} : $item->{"login"};
1328   }
1329
1330   my $employee_block = qq|
1331     <tr>
1332       <th align="right">| . $locale->text('Employee') . qq|</th>
1333       <td>| .
1334         NTI($cgi->popup_menu('-name'   => 'employee_id',
1335                              '-values' => \@values,
1336                              '-labels' => \%labels)) . qq|
1337       </td>
1338     </tr>|;
1339
1340   %labels = ();
1341   @values = ("");
1342
1343   foreach my $item (@{ $form->{($form->{vc} eq "customer" ? "ALL_CUSTOMERS" : "ALL_VENDORS")}}) {
1344     push(@values, $item->{name}.qq|--|.$item->{"id"});
1345     $labels{$item->{name}.qq|--|.$item->{"id"}} = $item->{"name"};
1346   }
1347
1348   my $vc_label = $form->{vc} eq "customer" ? $locale->text('Customer') : $locale->text('Vendor');
1349   $vc =
1350     $myconfig{vclimit} <=  scalar(@values)
1351     ? qq|<input type="text" value="| . H(($form->{"old$form->{vc}"} =~ /^(.*)\-\-.*$/)) . qq|" name="$form->{vc}">| 
1352     : NTI($cgi->popup_menu('-name' => "$form->{vc}",
1353                            '-default' => $form->{"old$form->{vc}"},
1354                            '-onChange' => 'document.getElementById(\'update_button\').click();',
1355                            '-values' => \@values,
1356                            '-labels' => \%labels));
1357   $form->header;
1358
1359   print qq|
1360 <body>
1361
1362 <form method=post action=$form->{script}>
1363
1364 <table width=100%>
1365   <tr>
1366     <th class=listtop>$form->{title}</th>
1367   </tr>
1368   <tr height="5"></tr>
1369   <tr>
1370     <td>
1371       <table>
1372         <tr>
1373           <th align=right>$vc_label</th>
1374           <td colspan=3>$vc</td>
1375         </tr>
1376         $department
1377         <tr>
1378           <th align=right>$ordlabel</th>
1379           <td colspan=3><input name="$ordnumber" size=20></td>
1380         </tr>
1381   $employee_block
1382         <tr>
1383           <th align="right">| . $locale->text('Transaction description') . qq|</th>
1384           <td colspan="3"><input name="transaction_description" size=20></td>
1385         </tr>
1386         <tr>
1387           <th align="right">| . $locale->text("Project Number") . qq|</th>
1388           <td colspan="3">$projectnumber</td>
1389         </tr>
1390         <tr>
1391           <th align=right>| . $locale->text('From') . qq|</th>
1392           $button1
1393           <th align=right>| . $locale->text('Bis') . qq|</th>
1394           $button2
1395         </tr>
1396         <input type=hidden name=sort value=transdate>
1397         <tr>
1398           <th align=right>| . $locale->text('Include in Report') . qq|</th>
1399           <td colspan=5>
1400             <table>
1401         <tr>
1402           <td><input type="checkbox" name="open" value="1" id="open" checked>
1403             <label for="open">| . $locale->text("Open") . qq|</td>
1404           <td><input type="checkbox" name="closed" value="1" id="closed">
1405             <label for="closed">| . $locale->text("Closed") . qq|</td>
1406         </tr>
1407         $delivered
1408               <tr>
1409                 <td><input name="l_id" class=checkbox type=checkbox value=Y>
1410                 | . $locale->text('ID') . qq|</td>
1411                 <td><input name="l_$ordnumber" class=checkbox type=checkbox value=Y checked> $ordlabel</td>
1412                 <td><input name="l_transdate" class=checkbox type=checkbox value=Y checked> |
1413     . $locale->text('Date') . qq|</td>
1414                 <td><input name="l_reqdate" class=checkbox type=checkbox value=Y checked> |
1415     . $locale->text('Required by') . qq|</td>
1416               </tr>
1417               <tr>
1418                 <td><input name="l_name" class=checkbox type=checkbox value=Y checked> $vc_label</td>
1419                 <td><input name="l_employee" class=checkbox type=checkbox value=Y checked> $employee</td>
1420                 <td><input name="l_shipvia" class=checkbox type=checkbox value=Y> |
1421     . $locale->text('Ship via') . qq|</td>
1422               </tr>
1423               <tr>
1424                 <td><input name="l_netamount" class=checkbox type=checkbox value=Y> |
1425     . $locale->text('Amount') . qq|</td>
1426                 <td><input name="l_tax" class=checkbox type=checkbox value=Y> |
1427     . $locale->text('Tax') . qq|</td>
1428                 <td><input name="l_amount" class=checkbox type=checkbox value=Y checked> |
1429     . $locale->text('Total') . qq|</td>
1430               </tr>
1431               <tr>
1432                 <td><input name="l_marge_total" class=checkbox type=checkbox value=Y> |
1433     .             $locale->text('Ertrag') . qq|</td>
1434                 <td><input name="l_marge_percent" class=checkbox type=checkbox value=Y> |
1435     .             $locale->text('Ertrag prozentual') . qq|</td>
1436               </tr>
1437               <tr>
1438           <td><input name="l_globalprojectnumber" class=checkbox type=checkbox value=Y> |
1439           . $locale->text('Project Number') . qq|</td>
1440           <td><input name="l_transaction_description" class=checkbox type=checkbox value=Y> |
1441           . $locale->text('Transaction description') . qq|</td>
1442               </tr>
1443               <tr>
1444                 <td><input name="l_subtotal" class=checkbox type=checkbox value=Y> |
1445     . $locale->text('Subtotal') . qq|</td>
1446               </tr>
1447             </table>
1448           </td>
1449         </tr>
1450       </table>
1451     </td>
1452   </tr>
1453   <tr><td colspan=4><hr size=3 noshade></td></tr>
1454 </table>
1455
1456 $jsscript
1457
1458 <br>
1459 <input type=hidden name=nextsub value=orders>
1460 <input type=hidden name=login value=$form->{login}>
1461 <input type=hidden name=password value=$form->{password}>
1462 <input type=hidden name=vc value=$form->{vc}>
1463 <input type=hidden name=type value=$form->{type}>
1464
1465 <input class=submit type=submit name=action value="|
1466     . $locale->text('Continue') . qq|">
1467 </form>
1468
1469 </body>
1470 </html>
1471 |;
1472
1473   $lxdebug->leave_sub();
1474 }
1475
1476 sub create_subtotal_row {
1477   $lxdebug->enter_sub();
1478
1479   my ($totals, $columns, $column_alignment, $subtotal_columns, $class) = @_;
1480
1481   my $row = { map { $_ => { 'data' => '', 'class' => $class, 'align' => $column_alignment->{$_}, } } @{ $columns } };
1482
1483   map { $row->{$_}->{data} = $form->format_amount(\%myconfig, $totals->{$_}, 2) } @{ $subtotal_columns };
1484
1485   $row->{tax}->{data} = $form->format_amount(\%myconfig, $totals->{amount} - $totals->{netamount}, 2);
1486
1487   map { $totals->{$_} = 0 } @{ $subtotal_columns };
1488
1489   $lxdebug->leave_sub();
1490
1491   return $row;
1492 }
1493
1494 sub orders {
1495   $lxdebug->enter_sub();
1496
1497   $ordnumber = ($form->{type} =~ /_order$/) ? "ordnumber" : "quonumber";
1498
1499   ($form->{ $form->{vc} }, $form->{"${form->{vc}}_id"}) = split(/--/, $form->{ $form->{vc} });
1500
1501   $form->{sort} ||= 'transdate';
1502
1503   OE->transactions(\%myconfig, \%$form);
1504
1505   $form->{rowcount} = scalar @{ $form->{OE} };
1506
1507   my @columns = (
1508     "transdate",               "reqdate",
1509     "id",                      $ordnumber,
1510     "name",                    "netamount",
1511     "tax",                     "amount",
1512     "curr",                    "employee",
1513     "shipvia",                 "globalprojectnumber",
1514     "transaction_description", "open",
1515     "delivered", "marge_total", "marge_percent"
1516   );
1517
1518   # only show checkboxes if gotten here via sales_order form.
1519   my $allow_multiple_orders = $form->{type} eq 'sales_order';
1520   if ($allow_multiple_orders) {
1521     unshift @columns, "ids";
1522   }
1523
1524   $form->{l_open}      = $form->{l_closed} = "Y" if ($form->{open}      && $form->{closed});
1525   $form->{l_delivered} = "Y"                     if ($form->{delivered} && $form->{notdelivered});
1526
1527   my $attachment_basename;
1528   if ($form->{vc} eq 'vendor') {
1529     if ($form->{type} eq 'purchase_order') {
1530       $form->{title}       = $locale->text('Purchase Orders');
1531       $attachment_basename = $locale->text('purchase_order_list');
1532     } else {
1533       $form->{title}       = $locale->text('Request for Quotations');
1534       $attachment_basename = $locale->text('rfq_list');
1535     }
1536
1537   } else {
1538     if ($form->{type} eq 'sales_order') {
1539       $form->{title}       = $locale->text('Sales Orders');
1540       $attachment_basename = $locale->text('sales_order_list');
1541     } else {
1542       $form->{title}       = $locale->text('Quotations');
1543       $attachment_basename = $locale->text('quotation_list');
1544     }
1545   }
1546
1547   my $report = SL::ReportGenerator->new(\%myconfig, $form);
1548
1549   my @hidden_variables = map { "l_${_}" } @columns;
1550   push @hidden_variables, "l_subtotal", $form->{vc}, qw(l_closed l_notdelivered open closed delivered notdelivered ordnumber quonumber
1551                                                         transaction_description transdatefrom transdateto type vc employee_id);
1552
1553   my $href = build_std_url('action=orders', grep { $form->{$_} } @hidden_variables);
1554
1555   my %column_defs = (
1556     'ids'                     => { 'text' => '', },
1557     'transdate'               => { 'text' => $locale->text('Date'), },
1558     'reqdate'                 => { 'text' => $locale->text('Required by'), },
1559     'id'                      => { 'text' => $locale->text('ID'), },
1560     'ordnumber'               => { 'text' => $locale->text('Order'), },
1561     'quonumber'               => { 'text' => $form->{type} eq "request_quotation" ? $locale->text('RFQ') : $locale->text('Quotation'), },
1562     'name'                    => { 'text' => $form->{vc} eq 'customer' ? $locale->text('Customer') : $locale->text('Vendor'), },
1563     'netamount'               => { 'text' => $locale->text('Amount'), },
1564     'tax'                     => { 'text' => $locale->text('Tax'), },
1565     'amount'                  => { 'text' => $locale->text('Total'), },
1566     'curr'                    => { 'text' => $locale->text('Curr'), },
1567     'employee'                => { 'text' => $locale->text('Salesperson'), },
1568     'shipvia'                 => { 'text' => $locale->text('Ship via'), },
1569     'globalprojectnumber'     => { 'text' => $locale->text('Project Number'), },
1570     'transaction_description' => { 'text' => $locale->text('Transaction description'), },
1571     'open'                    => { 'text' => $locale->text('Open'), },
1572     'delivered'               => { 'text' => $locale->text('Delivered'), },
1573     'marge_total'                   => { 'text' => $locale->text('Ertrag'), },
1574     'marge_percent'           => { 'text' => $locale->text('Ertrag prozentual'), }
1575   );
1576
1577   foreach my $name (qw(id transdate reqdate quonumber ordnumber name employee shipvia)) {
1578     $column_defs{$name}->{link} = $href . "&sort=$name";
1579   }
1580
1581   my %column_alignment = map { $_ => 'right' } qw(netamount tax amount curr);
1582
1583   $form->{"l_type"} = "Y";
1584   map { $column_defs{$_}->{visible} = $form->{"l_${_}"} ? 1 : 0 } @columns;
1585   $column_defs{ids}->{visible} = $allow_multiple_orders ? 'HTML' : 0;
1586
1587   $report->set_columns(%column_defs);
1588   $report->set_column_order(@columns);
1589
1590   $report->set_export_options('orders', @hidden_variables);
1591
1592   $report->set_sort_indicator($form->{sort}, 1);
1593
1594   my @options;
1595   if ($form->{customer}) {
1596     push @options, $locale->text('Customer') . " : $form->{customer}";
1597   }
1598   if ($form->{vendor}) {
1599     push @options, $locale->text('Vendor') . " : $form->{vendor}";
1600   }
1601   if ($form->{department}) {
1602     ($department) = split /--/, $form->{department};
1603     push @options, $locale->text('Department') . " : $department";
1604   }
1605   if ($form->{ordnumber}) {
1606     push @options, $locale->text('Order Number') . " : $form->{ordnumber}";
1607   }
1608   if ($form->{notes}) {
1609     push @options, $locale->text('Notes') . " : $form->{notes}";
1610   }
1611   if ($form->{transaction_description}) {
1612     push @options, $locale->text('Transaction description') . " : $form->{transaction_description}";
1613   }
1614   if ($form->{transdatefrom}) {
1615     push @options, $locale->text('From') . "&nbsp;" . $locale->date(\%myconfig, $form->{transdatefrom}, 1);
1616   }
1617   if ($form->{transdateto}) {
1618     push @options, $locale->text('Bis') . "&nbsp;" . $locale->date(\%myconfig, $form->{transdateto}, 1);
1619   }
1620   if ($form->{open}) {
1621     push @options, $locale->text('Open');
1622   }
1623   if ($form->{closed}) {
1624     push @options, $locale->text('Closed');
1625   }
1626   if ($form->{delivered}) {
1627     push @options, $locale->text('Delivered');
1628   }
1629   if ($form->{notdelivered}) {
1630     push @options, $locale->text('Not delivered');
1631   }
1632
1633   $report->set_options('top_info_text'        => join("\n", @options),
1634                        'raw_top_info_text'    => $form->parse_html_template('oe/orders_top'),
1635                        'raw_bottom_info_text' => $form->parse_html_template('oe/orders_bottom', { 'SHOW_CONTINUE_BUTTON' => $allow_multiple_orders }),
1636                        'output_format'        => 'HTML',
1637                        'title'                => $form->{title},
1638                        'attachment_basename'  => $attachment_basename . strftime('_%Y%m%d', localtime time),
1639     );
1640   $report->set_options_from_form();
1641
1642   # add sort and escape callback, this one we use for the add sub
1643   $form->{callback} = $href .= "&sort=$form->{sort}";
1644
1645   # escape callback for href
1646   $callback = $form->escape($href);
1647
1648   my @subtotal_columns = qw(netamount amount marge_total marge_percent);
1649
1650   my %totals    = map { $_ => 0 } @subtotal_columns;
1651   my %subtotals = map { $_ => 0 } @subtotal_columns;
1652
1653   my $idx = 0;
1654
1655   my $edit_url = build_std_url('action=edit', 'type', 'vc');
1656
1657   foreach $oe (@{ $form->{OE} }) {
1658     map { $oe->{$_} *= $oe->{exchangerate} } @subtotal_columns;
1659
1660     $oe->{tax}       = $oe->{amount} - $oe->{netamount};
1661     $oe->{open}      = $oe->{closed}    ? $locale->text('No')  : $locale->text('Yes');
1662     $oe->{delivered} = $oe->{delivered} ? $locale->text('Yes') : $locale->text('No');
1663
1664     map { $subtotals{$_} += $oe->{$_};
1665           $totals{$_}    += $oe->{$_} } @subtotal_columns;
1666
1667     $subtotals{marge_percent} = $subtotals{netamount} ? ($subtotals{marge_total} * 100 / $subtotals{netamount}) : 0;
1668     $totals{marge_percent}    = $totals{netamount}    ? ($totals{marge_total}    * 100 / $totals{netamount}   ) : 0;
1669
1670     map { $oe->{$_} = $form->format_amount(\%myconfig, $oe->{$_}, 2) } qw(netamount tax amount marge_total marge_percent);
1671
1672     my $row = { };
1673
1674     foreach my $column (@columns) {
1675       next if ($column eq 'ids');
1676       $row->{$column} = {
1677         'data'  => $oe->{$column},
1678         'align' => $column_alignment{$column},
1679       };
1680     }
1681
1682     $row->{ids} = {
1683       'raw_data' =>   $cgi->hidden('-name' => "trans_id_${idx}", '-value' => $oe->{id})
1684                     . $cgi->checkbox('-name' => "multi_id_${idx}", '-value' => 1, '-label' => ''),
1685       'valign'   => 'center',
1686       'align'    => 'center',
1687     };
1688
1689     $row->{$ordnumber}->{link} = $edit_url . "&id=" . E($oe->{id}) . "&callback=${callback}";
1690
1691     my $row_set = [ $row ];
1692
1693     if (($form->{l_subtotal} eq 'Y')
1694         && (($idx == (scalar @{ $form->{OE} } - 1))
1695             || ($oe->{ $form->{sort} } ne $form->{OE}->[$idx + 1]->{ $form->{sort} }))) {
1696       push @{ $row_set }, create_subtotal_row(\%subtotals, \@columns, \%column_alignment, \@subtotal_columns, 'listsubtotal');
1697     }
1698
1699     $report->add_data($row_set);
1700
1701     $idx++;
1702   }
1703
1704   $report->add_separator();
1705   $report->add_data(create_subtotal_row(\%totals, \@columns, \%column_alignment, \@subtotal_columns, 'listtotal'));
1706
1707   $report->generate_with_headers();
1708
1709   $lxdebug->leave_sub();
1710 }
1711
1712 sub check_delivered_flag {
1713   $lxdebug->enter_sub();
1714
1715   if (($form->{type} ne 'sales_order') && ($form->{type} ne 'purchase_order')) {
1716     return $lxdebug->leave_sub();
1717   }
1718
1719   my $all_delivered = 0;
1720
1721   foreach my $i (1 .. $form->{rowcount}) {
1722     next if (!$form->{"id_$i"});
1723
1724     if ($form->parse_amount(\%myconfig, $form->{"qty_$i"}) == $form->parse_amount(\%myconfig, $form->{"ship_$i"})) {
1725       $all_delivered = 1;
1726       next;
1727     }
1728
1729     $all_delivered = 0;
1730     last;
1731   }
1732
1733   $form->{delivered} = 1 if $all_delivered;
1734
1735   $lxdebug->leave_sub();
1736 }
1737
1738 sub save_and_close {
1739   $lxdebug->enter_sub();
1740
1741   $form->{defaultcurrency} = $form->get_default_currency(\%myconfig);
1742
1743   if ($form->{type} =~ /_order$/) {
1744     $form->isblank("transdate", $locale->text('Order Date missing!'));
1745   } else {
1746     $form->isblank("transdate", $locale->text('Quotation Date missing!'));
1747   }
1748
1749   my $idx = $form->{type} =~ /_quotation$/ ? "quonumber" : "ordnumber";
1750   $form->{$idx} =~ s/^\s*//g;
1751   $form->{$idx} =~ s/\s*$//g;
1752
1753   $msg = ucfirst $form->{vc};
1754   $form->isblank($form->{vc}, $locale->text($msg . " missing!"));
1755
1756   # $locale->text('Customer missing!');
1757   # $locale->text('Vendor missing!');
1758
1759   $form->isblank("exchangerate", $locale->text('Exchangerate missing!'))
1760     if ($form->{currency} ne $form->{defaultcurrency});
1761
1762   &validate_items;
1763   
1764   if($form->{payment_id}) { 
1765     $payment_id = $form->{payment_id};
1766   }
1767   
1768   # if the name changed get new values
1769   if (&check_name($form->{vc})) {
1770     if($form->{payment_id} eq "") { 
1771       $form->{payment_id} = $payment_id;
1772     }
1773     &update;
1774     exit;
1775   }
1776
1777   $form->{id} = 0 if $form->{saveasnew};
1778
1779   # this is for the internal notes section for the [email] Subject
1780   if ($form->{type} =~ /_order$/) {
1781     if ($form->{type} eq 'sales_order') {
1782       $form->{label} = $locale->text('Sales Order');
1783
1784       $numberfld = "sonumber";
1785       $ordnumber = "ordnumber";
1786     } else {
1787       $form->{label} = $locale->text('Purchase Order');
1788
1789       $numberfld = "ponumber";
1790       $ordnumber = "ordnumber";
1791     }
1792
1793     $err = $locale->text('Cannot save order!');
1794
1795     check_delivered_flag();
1796
1797   } else {
1798     if ($form->{type} eq 'sales_quotation') {
1799       $form->{label} = $locale->text('Quotation');
1800
1801       $numberfld = "sqnumber";
1802       $ordnumber = "quonumber";
1803     } else {
1804       $form->{label} = $locale->text('Request for Quotation');
1805
1806       $numberfld = "rfqnumber";
1807       $ordnumber = "quonumber";
1808     }
1809
1810     $err = $locale->text('Cannot save quotation!');
1811
1812   }
1813
1814   # get new number in sequence if no number is given or if saveasnew was requested
1815   if (!$form->{$ordnumber} || $form->{saveasnew}) {
1816     $form->{$ordnumber} = $form->update_defaults(\%myconfig, $numberfld);
1817   }
1818
1819   relink_accounts();
1820
1821   $form->error($err) if (!OE->save(\%myconfig, \%$form));
1822
1823   # saving the history
1824   if(!exists $form->{addition}) {
1825     $form->{snumbers} = qq|ordnumber_| . $form->{ordnumber};
1826         $form->{addition} = "SAVED";
1827         $form->save_history($form->dbconnect(\%myconfig));
1828   }
1829   # /saving the history
1830
1831   $form->redirect($form->{label} . " $form->{$ordnumber} " .
1832                   $locale->text('saved!'));
1833
1834   $lxdebug->leave_sub();
1835 }
1836
1837 sub save {
1838   $lxdebug->enter_sub();
1839
1840   $form->{defaultcurrency} = $form->get_default_currency(\%myconfig);
1841
1842
1843   if ($form->{type} =~ /_order$/) {
1844     $form->isblank("transdate", $locale->text('Order Date missing!'));
1845   } else {
1846     $form->isblank("transdate", $locale->text('Quotation Date missing!'));
1847   }
1848
1849   my $idx = $form->{type} =~ /_quotation$/ ? "quonumber" : "ordnumber";
1850   $form->{$idx} =~ s/^\s*//g;
1851   $form->{$idx} =~ s/\s*$//g;
1852
1853   $msg = ucfirst $form->{vc};
1854   $form->isblank($form->{vc}, $locale->text($msg . " missing!"));
1855
1856   # $locale->text('Customer missing!');
1857   # $locale->text('Vendor missing!');
1858
1859   $form->isblank("exchangerate", $locale->text('Exchangerate missing!'))
1860     if ($form->{currency} ne $form->{defaultcurrency});
1861
1862   &validate_items;
1863   
1864   if($form->{payment_id}) { 
1865     $payment_id = $form->{payment_id};
1866   }
1867   
1868   # if the name changed get new values
1869   if (&check_name($form->{vc})) {
1870     if($form->{payment_id} eq "") { 
1871       $form->{payment_id} = $payment_id;
1872     }
1873     &update;
1874     exit;
1875   }
1876
1877   $form->{id} = 0 if $form->{saveasnew};
1878
1879   # this is for the internal notes section for the [email] Subject
1880   if ($form->{type} =~ /_order$/) {
1881     if ($form->{type} eq 'sales_order') {
1882       $form->{label} = $locale->text('Sales Order');
1883
1884       $numberfld = "sonumber";
1885       $ordnumber = "ordnumber";
1886     } else {
1887       $form->{label} = $locale->text('Purchase Order');
1888
1889       $numberfld = "ponumber";
1890       $ordnumber = "ordnumber";
1891     }
1892
1893     $err = $locale->text('Cannot save order!');
1894
1895     check_delivered_flag();
1896
1897   } else {
1898     if ($form->{type} eq 'sales_quotation') {
1899       $form->{label} = $locale->text('Quotation');
1900
1901       $numberfld = "sqnumber";
1902       $ordnumber = "quonumber";
1903     } else {
1904       $form->{label} = $locale->text('Request for Quotation');
1905
1906       $numberfld = "rfqnumber";
1907       $ordnumber = "quonumber";
1908     }
1909
1910     $err = $locale->text('Cannot save quotation!');
1911
1912   }
1913
1914   $form->{$ordnumber} = $form->update_defaults(\%myconfig, $numberfld)
1915     unless $form->{$ordnumber};
1916
1917   relink_accounts();
1918
1919   OE->save(\%myconfig, \%$form);
1920
1921   # saving the history
1922   if(!exists $form->{addition}) {
1923     $form->{snumbers} = qq|ordnumber_| . $form->{ordnumber};
1924         $form->{addition} = "SAVED";
1925         $form->save_history($form->dbconnect(\%myconfig));
1926   }
1927   # /saving the history 
1928
1929   $form->{simple_save} = 1;
1930   if(!$form->{print_and_save}) {
1931     set_headings("edit");
1932     &update;
1933     exit;
1934   }
1935   $lxdebug->leave_sub();
1936 }
1937
1938 sub delete {
1939   $lxdebug->enter_sub();
1940
1941   $form->header;
1942
1943   if ($form->{type} =~ /_order$/) {
1944     $msg       = $locale->text('Are you sure you want to delete Order Number');
1945     $ordnumber = 'ordnumber';
1946   } else {
1947     $msg = $locale->text('Are you sure you want to delete Quotation Number');
1948     $ordnumber = 'quonumber';
1949   }
1950
1951   print qq|
1952 <body>
1953
1954 <form method=post action=$form->{script}>
1955 |;
1956
1957   # delete action variable
1958   map { delete $form->{$_} } qw(action header);
1959
1960   foreach $key (keys %$form) {
1961     $form->{$key} =~ s/\"/&quot;/g;
1962     print qq|<input type=hidden name=$key value="$form->{$key}">\n|;
1963   }
1964
1965   print qq|
1966 <h2 class=confirm>| . $locale->text('Confirm!') . qq|</h2>
1967
1968 <h4>$msg $form->{$ordnumber}</h4>
1969 <p>
1970 <input type="hidden" name="yes_nextsub" value="delete_order_quotation">
1971 <input name=action class=submit type=submit value="|
1972     . $locale->text('Yes') . qq|">
1973 <button class=submit type=button onclick="history.back()">|
1974     . $locale->text('No') . qq|</button>
1975 </form>
1976
1977 </body>
1978 </html>
1979 |;
1980
1981   $lxdebug->leave_sub();
1982 }
1983
1984 sub delete_order_quotation {
1985   $lxdebug->enter_sub();
1986
1987   if ($form->{type} =~ /_order$/) {
1988     $msg = $locale->text('Order deleted!');
1989     $err = $locale->text('Cannot delete order!');
1990   } else {
1991     $msg = $locale->text('Quotation deleted!');
1992     $err = $locale->text('Cannot delete quotation!');
1993   }
1994   if (OE->delete(\%myconfig, \%$form, $spool)){
1995     # saving the history
1996     if(!exists $form->{addition}) {
1997       $form->{snumbers} = qq|ordnumber_| . $form->{ordnumber};
1998           $form->{addition} = "DELETED";
1999           $form->save_history($form->dbconnect(\%myconfig));
2000     }
2001     # /saving the history 
2002     $form->info($msg);
2003     exit();
2004   }
2005   $form->error($err);
2006
2007   $lxdebug->leave_sub();
2008 }
2009
2010 sub invoice {
2011   $lxdebug->enter_sub();
2012
2013   $form->{old_employee_id} = $form->{employee_id};
2014   $form->{old_salesman_id} = $form->{salesman_id};
2015
2016   if ($form->{type} =~ /_order$/) {
2017
2018     # these checks only apply if the items don't bring their own ordnumbers/transdates.
2019     # The if clause ensures that by searching for empty ordnumber_#/transdate_# fields.
2020     $form->isblank("ordnumber", $locale->text('Order Number missing!'))
2021       if (+{ map { $form->{"ordnumber_$_"}, 1 } (1 .. $form->{rowcount} - 1) }->{''});
2022     $form->isblank("transdate", $locale->text('Order Date missing!'))
2023       if (+{ map { $form->{"transdate_$_"}, 1 } (1 .. $form->{rowcount} - 1) }->{''});
2024
2025     # also copy deliverydate from the order
2026     $form->{deliverydate} = $form->{reqdate} if $form->{reqdate};
2027     $form->{orddate}      = $form->{transdate};
2028   } else {
2029     $form->isblank("quonumber", $locale->text('Quotation Number missing!'));
2030     $form->isblank("transdate", $locale->text('Quotation Date missing!'));
2031     $form->{ordnumber}    = "";
2032     $form->{quodate}      = $form->{transdate};
2033   }
2034   
2035   $payment_id = $form->{payment_id} if $form->{payment_id};
2036   
2037   # if the name changed get new values
2038   if (&check_name($form->{vc})) {
2039     $form->{payment_id} = $payment_id if $form->{payment_id} eq "";
2040     &update;
2041     exit;
2042   }
2043
2044   $form->{cp_id} *= 1;
2045
2046   for $i (1 .. $form->{rowcount}) {
2047     for (qw(ship qty sellprice listprice basefactor)) {
2048       $form->{"${_}_${i}"} = $form->parse_amount(\%myconfig, $form->{"${_}_${i}"}) if $form->{"${_}_${i}"};
2049     }
2050   }
2051
2052   if (   $form->{type} =~ /_order/
2053       && $form->{currency} ne $form->{defaultcurrency}) {
2054
2055     # check if we need a new exchangerate
2056     $buysell = ($form->{type} eq 'sales_order') ? "buy" : "sell";
2057
2058     $orddate      = $form->current_date(\%myconfig);
2059     $exchangerate = $form->check_exchangerate(\%myconfig, $form->{currency}, $orddate, $buysell);
2060
2061     if (!$exchangerate) {
2062       &backorder_exchangerate($orddate, $buysell);
2063       exit;
2064     }
2065   }
2066
2067   # close orders/quotations
2068   $form->{closed} = 1;
2069
2070   # save order if one ordnumber has been given
2071   # if not it's most likely a collective order, which can't be saved back
2072   # so they just have to be closed
2073   if (($form->{ordnumber} ne '') || ($form->{quonumber} ne '')) {
2074     OE->close_order(\%myconfig, \%$form) if ($form->{id});
2075   } else {
2076     OE->close_orders(\%myconfig, \%$form);
2077   }
2078
2079   $form->{transdate} = $form->{invdate} = $form->current_date(\%myconfig);
2080   $form->{duedate}   = $form->current_date(\%myconfig, $form->{invdate}, $form->{terms} * 1);
2081
2082   $form->{id}     = '';
2083   $form->{closed} = 0;
2084   $form->{rowcount}--;
2085   $form->{shipto} = 1;
2086
2087   $form->{defaultcurrency} = $form->get_default_currency(\%myconfig);
2088
2089   if ($form->{type} =~ /_order$/) {
2090     $form->{exchangerate} = $exchangerate;
2091     &create_backorder;
2092   }
2093
2094   if (   $form->{type} eq 'purchase_order'
2095       || $form->{type} eq 'request_quotation') {
2096     $form->{title}  = $locale->text('Add Vendor Invoice');
2097     $form->{script} = 'ir.pl';
2098     $script         = "ir";
2099     $buysell        = 'sell';
2100   }
2101
2102   if (   $form->{type} eq 'sales_order' 
2103       || $form->{type} eq 'sales_quotation') {
2104     $form->{title}  = $locale->text('Add Sales Invoice');
2105     $form->{script} = 'is.pl';
2106     $script         = "is";
2107     $buysell        = 'buy';
2108   }
2109
2110   # bo creates the id, reset it
2111   map { delete $form->{$_} } qw(id subject message cc bcc printed emailed queued);
2112   $form->{ $form->{vc} } =~ s/--.*//g;
2113   $form->{type} = "invoice";
2114
2115   # locale messages
2116   $locale = new Locale "$myconfig{countrycode}", "$script";
2117
2118   require "bin/mozilla/$form->{script}";
2119
2120   map { $form->{"select$_"} = "" } ($form->{vc}, currency);
2121
2122   map { $form->{$_} = $form->parse_amount(\%myconfig, $form->{$_}) }
2123     qw(creditlimit creditremaining);
2124
2125   $currency = $form->{currency};
2126   &invoice_links;
2127
2128   $form->{currency}     = $currency;
2129   $form->{exchangerate} = "";
2130   $form->{forex}        = "";
2131   $form->{exchangerate} = $exchangerate
2132     if (
2133         $form->{forex} = (
2134                     $exchangerate =
2135                       $form->check_exchangerate(
2136                       \%myconfig, $form->{currency}, $form->{invdate}, $buysell
2137                       )));
2138
2139   $form->{creditremaining} -= ($form->{oldinvtotal} - $form->{ordtotal});
2140
2141   &prepare_invoice;
2142
2143   # format amounts
2144   for $i (1 .. $form->{rowcount}) {
2145     $form->{"discount_$i"} =
2146       $form->format_amount(\%myconfig, $form->{"discount_$i"});
2147
2148     ($dec) = ($form->{"sellprice_$i"} =~ /\.(\d+)/);
2149     $dec           = length $dec;
2150     $decimalplaces = ($dec > 2) ? $dec : 2;
2151
2152     # copy delivery date from reqdate for order -> invoice conversion
2153     $form->{"deliverydate_$i"} = $form->{"reqdate_$i"}
2154       unless $form->{"deliverydate_$i"};
2155
2156     $form->{"sellprice_$i"} =
2157       $form->format_amount(\%myconfig, $form->{"sellprice_$i"},
2158                            $decimalplaces);
2159
2160     (my $dec_qty) = ($form->{"qty_$i"} =~ /\.(\d+)/);
2161     $dec_qty = length $dec_qty;
2162     $form->{"qty_$i"} =
2163       $form->format_amount(\%myconfig, $form->{"qty_$i"}, $dec_qty);
2164
2165     map { $form->{"${_}_$i"} =~ s/\"/&quot;/g }
2166       qw(partnumber description unit);
2167
2168   }
2169
2170   &display_form;
2171
2172   $lxdebug->leave_sub();
2173 }
2174
2175 sub backorder_exchangerate {
2176   $lxdebug->enter_sub();
2177   my ($orddate, $buysell) = @_;
2178
2179   $form->header;
2180
2181   print qq|
2182 <body>
2183
2184 <form method=post action=$form->{script}>
2185 |;
2186
2187   # delete action variable
2188   map { delete $form->{$_} } qw(action header exchangerate);
2189
2190   foreach $key (keys %$form) {
2191     $form->{$key} =~ s/\"/&quot;/g;
2192     print qq|<input type=hidden name=$key value="$form->{$key}">\n|;
2193   }
2194
2195   $form->{title} = $locale->text('Add Exchangerate');
2196
2197   print qq|
2198
2199 <input type=hidden name=login value=$form->{login}>
2200 <input type=hidden name=password value=$form->{password}>
2201
2202 <input type=hidden name=exchangeratedate value=$orddate>
2203 <input type=hidden name=buysell value=$buysell>
2204
2205 <table width=100%>
2206   <tr><th class=listtop>$form->{title}</th></tr>
2207   <tr height="5"></tr>
2208   <tr>
2209     <td>
2210       <table>
2211         <tr>
2212           <th align=right>| . $locale->text('Currency') . qq|</th>
2213           <td>$form->{currency}</td>
2214         </tr>
2215         <tr>
2216           <th align=right>| . $locale->text('Date') . qq|</th>
2217           <td>$orddate</td>
2218         </tr>
2219         <tr>
2220           <th align=right>| . $locale->text('Exchangerate') . qq|</th>
2221           <td><input name=exchangerate size=11></td>
2222         </tr>
2223       </table>
2224     </td>
2225   </tr>
2226 </table>
2227
2228 <hr size=3 noshade>
2229
2230 <br>
2231 <input type=hidden name=nextsub value=save_exchangerate>
2232
2233 <input name=action class=submit type=submit value="|
2234     . $locale->text('Continue') . qq|">
2235
2236 </form>
2237
2238 </body>
2239 </html>
2240 |;
2241
2242   $lxdebug->leave_sub();
2243 }
2244
2245 sub save_exchangerate {
2246   $lxdebug->enter_sub();
2247
2248   $form->isblank("exchangerate", $locale->text('Exchangerate missing!'));
2249   $form->{exchangerate} =
2250     $form->parse_amount(\%myconfig, $form->{exchangerate});
2251   $form->save_exchangerate(\%myconfig, $form->{currency},
2252                            $form->{exchangeratedate},
2253                            $form->{exchangerate}, $form->{buysell});
2254
2255   &invoice;
2256
2257   $lxdebug->leave_sub();
2258 }
2259
2260 sub create_backorder {
2261   $lxdebug->enter_sub();
2262
2263   $form->{shipped} = 1;
2264
2265   # figure out if we need to create a backorder
2266   # items aren't saved if qty != 0
2267
2268   for $i (1 .. $form->{rowcount}) {
2269     $totalqty  += $qty  = $form->{"qty_$i"};
2270     $totalship += $ship = $form->{"ship_$i"};
2271
2272     $form->{"qty_$i"} = $qty - $ship;
2273   }
2274
2275   if ($totalship == 0) {
2276     map { $form->{"ship_$_"} = $form->{"qty_$_"} } (1 .. $form->{rowcount});
2277     $form->{ordtotal} = 0;
2278     $form->{shipped}  = 0;
2279     return;
2280   }
2281
2282   if ($totalqty == $totalship) {
2283     map { $form->{"qty_$_"} = $form->{"ship_$_"} } (1 .. $form->{rowcount});
2284     $form->{ordtotal} = 0;
2285     return;
2286   }
2287
2288   @flds = (
2289     qw(partnumber description qty ship unit sellprice discount id inventory_accno bin income_accno expense_accno listprice assembly taxaccounts partsgroup)
2290   );
2291
2292   for $i (1 .. $form->{rowcount}) {
2293     map {
2294       $form->{"${_}_$i"} =
2295         $form->format_amount(\%myconfig, $form->{"${_}_$i"})
2296     } qw(sellprice discount);
2297   }
2298
2299   relink_accounts();
2300
2301   OE->save(\%myconfig, \%$form);
2302
2303   # rebuild rows for invoice
2304   @a     = ();
2305   $count = 0;
2306
2307   for $i (1 .. $form->{rowcount}) {
2308     $form->{"qty_$i"} = $form->{"ship_$i"};
2309
2310     if ($form->{"qty_$i"}) {
2311       push @a, {};
2312       $j = $#a;
2313       map { $a[$j]->{$_} = $form->{"${_}_$i"} } @flds;
2314       $count++;
2315     }
2316   }
2317
2318   $form->redo_rows(\@flds, \@a, $count, $form->{rowcount});
2319   $form->{rowcount} = $count;
2320
2321   $lxdebug->leave_sub();
2322 }
2323
2324 sub save_as_new {
2325   $lxdebug->enter_sub();
2326
2327   $form->{saveasnew} = 1;
2328   $form->{closed}    = 0;
2329   map { delete $form->{$_} } qw(printed emailed queued);
2330
2331   # Let Lx-Office assign a new order number if the user hasn't changed the
2332   # previous one. If it has been changed manually then use it as-is.
2333   my $idx = $form->{type} =~ /_quotation$/ ? "quonumber" : "ordnumber";
2334   $form->{$idx} =~ s/^\s*//g;
2335   $form->{$idx} =~ s/\s*$//g;
2336   if ($form->{saved_xyznumber} &&
2337       ($form->{saved_xyznumber} eq $form->{$idx})) {
2338     delete($form->{$idx});
2339   }
2340
2341   &save;
2342
2343   $lxdebug->leave_sub();
2344 }
2345
2346 sub check_for_direct_delivery_yes {
2347   $lxdebug->enter_sub();
2348
2349   $form->{direct_delivery_checked} = 1;
2350   delete @{$form}{grep /^shipto/, keys %{ $form }};
2351   map { s/^CFDD_//; $form->{$_} = $form->{"CFDD_${_}"} } grep /^CFDD_/, keys %{ $form };
2352   $form->{shipto} = 1;
2353   purchase_order();
2354   $lxdebug->leave_sub();
2355 }
2356
2357 sub check_for_direct_delivery_no {
2358   $lxdebug->enter_sub();
2359
2360   $form->{direct_delivery_checked} = 1;
2361   delete @{$form}{grep /^shipto/, keys %{ $form }};
2362   purchase_order();
2363
2364   $lxdebug->leave_sub();
2365 }
2366
2367 sub check_for_direct_delivery {
2368   $lxdebug->enter_sub();
2369
2370   if ($form->{direct_delivery_checked}
2371       || (!$form->{shiptoname} && !$form->{shiptostreet} && !$form->{shipto_id})) {
2372     $lxdebug->leave_sub();
2373     return;
2374   }
2375
2376   if ($form->{shipto_id}) {
2377     Common->get_shipto_by_id(\%myconfig, $form, $form->{shipto_id}, "CFDD_");
2378
2379   } else {
2380     map { $form->{"CFDD_${_}"} = $form->{$_ } } grep /^shipto/, keys %{ $form };
2381   }
2382
2383   delete $form->{action};
2384   $form->{VARIABLES} = [ map { { "key" => $_, "value" => $form->{$_} } } grep { ref $_ eq "" } keys %{ $form } ];
2385
2386   $form->header();
2387   print $form->parse_html_template("oe/check_for_direct_delivery");
2388
2389   $lxdebug->leave_sub();
2390
2391   exit 0;
2392 }
2393
2394 sub purchase_order {
2395   $lxdebug->enter_sub();
2396
2397   if ($form->{type} eq 'sales_order') {
2398     check_for_direct_delivery();
2399   }
2400
2401   if (   $form->{type} eq 'sales_quotation'
2402       || $form->{type} eq 'request_quotation') {
2403     OE->close_order(\%myconfig, \%$form);
2404   }
2405
2406   if ($form->{type} =~ /^sales_/) {
2407     delete($form->{ordnumber});
2408   }
2409
2410   $form->{cp_id} *= 1;
2411
2412   $form->{title} = $locale->text('Add Purchase Order');
2413   $form->{vc}    = "vendor";
2414   $form->{type}  = "purchase_order";
2415
2416   &poso;
2417
2418   $lxdebug->leave_sub();
2419 }
2420
2421 sub sales_order {
2422   $lxdebug->enter_sub();
2423
2424   if (   $form->{type} eq 'sales_quotation'
2425       || $form->{type} eq 'request_quotation') {
2426     OE->close_order(\%myconfig, $form);
2427   }
2428
2429   if ($form->{type} eq "purchase_order") {
2430     delete($form->{ordnumber});
2431   }
2432
2433   $form->{cp_id} *= 1;
2434
2435   $form->{title} = $locale->text('Add Sales Order');
2436   $form->{vc}    = "customer";
2437   $form->{type}  = "sales_order";
2438
2439   &poso;
2440
2441   $lxdebug->leave_sub();
2442 }
2443
2444 sub poso {
2445   $lxdebug->enter_sub();
2446
2447   $form->{transdate} = $form->current_date(\%myconfig);
2448   delete $form->{duedate};
2449
2450   $form->{closed} = 0;
2451
2452   $form->{old_employee_id} = $form->{employee_id};
2453   $form->{old_salesman_id} = $form->{salesman_id};
2454
2455   # reset
2456   map { delete $form->{$_} }
2457     qw(id subject message cc bcc printed emailed queued customer vendor creditlimit creditremaining discount tradediscount oldinvtotal);
2458
2459   for $i (1 .. $form->{rowcount}) {
2460     map({ $form->{"${_}_${i}"} = $form->parse_amount(\%myconfig,
2461                                                      $form->{"${_}_${i}"})
2462             if ($form->{"${_}_${i}"}) }
2463         qw(ship qty sellprice listprice basefactor));
2464   }
2465
2466   &order_links;
2467
2468   &prepare_order;
2469
2470   # format amounts
2471   for $i (1 .. $form->{rowcount} - 1) {
2472     map { $form->{"${_}_$i"} =~ s/\"/&quot;/g }
2473       qw(partnumber description unit);
2474   }
2475
2476   map { $form->{$_} = $form->format_amount(\%myconfig, $form->{$_}, 0, "0") }
2477     qw(creditlimit creditremaining);
2478
2479   &update;
2480
2481   $lxdebug->leave_sub();
2482 }
2483
2484 sub e_mail {
2485   $lxdebug->enter_sub();
2486
2487   $form->{print_and_save} = 1;
2488
2489   $print_post = 1;
2490
2491   my $saved_form = save_form();
2492
2493   save();
2494
2495   my %saved_vars;
2496   map({ $saved_vars{$_} = $form->{$_}; } qw(id ordnumber quonumber));
2497   restore_form($saved_form);
2498   map({ $form->{$_} = $saved_vars{$_}; } qw(id ordnumber quonumber));
2499
2500   edit_e_mail();
2501
2502   $lxdebug->leave_sub();
2503 }
2504
2505 sub yes {
2506   call_sub($form->{yes_nextsub});
2507 }
2508
2509 sub no {
2510   call_sub($form->{no_nextsub});
2511 }