Datenbank anlegen: ISO8859-1 als default eingestellt.
[kivitendo-erp.git] / bin / mozilla / dn.pl
1 #=====================================================================
2 # LX-Office ERP
3 # Copyright (C) 2006
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-2002
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 # Dunning process module
31 #
32 #======================================================================
33
34 use SL::IS;
35 use SL::PE;
36 use SL::DN;
37 use Data::Dumper;
38
39 require "$form->{path}/io.pl";
40 require "$form->{path}/arap.pl";
41
42 1;
43
44 sub edit_config {
45   $lxdebug->enter_sub();
46
47   # edit all dunning config data
48
49   $form->header;
50   DN->get_config(\%myconfig, \%$form);
51   $form->{title} = $locale->text('Edit Dunning Process Config');
52   
53   $form->{callback} =
54     "$form->{script}?action=edit_config&path=$form->{path}&login=$form->{login}&password=$form->{password}"
55     unless $form->{callback};
56
57   @column_index = qw(dunning_level dunning_description active auto email payment_terms terms fee interest template);
58
59   $column_header{dunning_level} =
60       qq|<th class=listheading>|
61     . $locale->text('Dunning Level')
62     . qq|</th>|;
63   $column_header{dunning_description} =
64       qq|<th class=listheading>|
65     . $locale->text('Dunning Description')
66     . qq|</th>|;
67   $column_header{active} =
68       qq|<th class=listheading>|
69     . $locale->text('Active?')
70     . qq|</th>|;
71   $column_header{auto} =
72       qq|<th class=listheading>|
73     . $locale->text('Auto Send?')
74     . qq|</th>|;
75   $column_header{email} =
76       qq|<th class=listheading>|
77     . $locale->text('eMail Send?')
78     . qq|</th>|;
79   $column_header{payment_terms} =
80       qq|<th class=listheading>|
81     . $locale->text('Fristsetzung')
82     . qq|</th>|;
83   $column_header{terms} =
84       qq|<th class=listheading>|
85     . $locale->text('Duedate +Days')
86     . qq|</th>|;
87   $column_header{fee} =
88       qq|<th class=listheading>|
89     . $locale->text('Fee')
90     . qq|</th>|;
91   $column_header{interest} =
92       qq|<th class=listheading>|
93     . $locale->text('Interest Rate')
94     . qq|</th>|;
95   $column_header{template} =
96       qq|<th class=listheading>|
97     . $locale->text('Template')
98     . qq|</th>|;
99   print qq|
100 <body>
101 <script type="text/javascript" src="js/common.js"></script>
102 <script type="text/javascript" src="js/dunning.js"></script>
103 <form method=post action=$form->{script}>
104
105
106 <table width=100%>
107   <tr>
108     <th class=listtop colspan=9>$form->{title}</th>
109   </tr>
110   <tr height="5"></tr>
111   <tr>|;
112   map { print "$column_header{$_}\n" } @column_index;
113
114   print qq|
115         </tr>
116 |;
117   my $i = 0;
118   foreach $ref (@{ $form->{DUNNING} }) {
119
120     $i++;
121     my $j = $i % 2;
122
123     print qq|
124         <tr valign=top class=listrow$j>
125 |;
126
127
128     $column_data{dunning_level} =
129       qq|<td><input type=hidden name=dunning_level_$i size=2 value="$i"><input type=hidden name=id_$i value="$ref->{id}">$i</td>|;
130     $column_data{dunning_description}           = qq|<td><input name=dunning_description_$i value="$ref->{dunning_description}"></td>|;
131     my $active = ($ref->{active}) ? "checked" : "";
132     $column_data{active} =
133       qq|<td><input type=checkbox name=active_$i value=1 $active></td>|;
134     my $email = ($ref->{email}) ? "checked" : "";
135   $column_data{email} =
136     qq|<td><input type=checkbox name=email_$i value=1 $email><button type="button" onclick="set_email_window('email_subject_$i', 'email_body_$i', 'email_attachment_$i')">| . $locale->text('L') . qq|</button><input type=hidden name=email_body_$i value="$ref->{email_body}"><input type=hidden name=email_subject_$i value="$ref->{email_subject}"><input type=hidden name=email_attachment_$i value="$ref->{email_attachment}"></td>|;
137
138     my $auto = ($ref->{auto}) ? "checked" : "";
139     $column_data{auto} =
140       qq|<td><input type=checkbox name=auto_$i value=1 $auto></td>|;
141     $column_data{payment_terms}           = qq|<td><input name=payment_terms_$i size=3 value="$ref->{payment_terms}"></td>|;
142     $column_data{terms}           = qq|<td><input name=terms_$i size=3 value="$ref->{terms}"></td>|;
143     $column_data{fee}           = qq|<td><input name=fee_$i size=5 value="$ref->{fee}"></td>|;
144     $column_data{interest}           = qq|<td><input name=interest_$i size=4 value="$ref->{interest}">%</td>|;
145     $column_data{template}           = qq|<td><input name=template_$i value="$ref->{template}"></td>|;
146
147
148
149     map { print "$column_data{$_}\n" } @column_index;
150
151     print qq|
152         </tr>
153 |;
154   }
155   $i++;
156   my $j = $i % 2;
157
158   print qq|
159         <tr valign=top class=listrow$j>
160 |;
161
162
163   $column_data{dunning_level} =
164     qq|<td><input type=hidden size=2 name=dunning_level_$i value=$i>$i</td>|;
165   $column_data{dunning_description}           = qq|<td><input name=dunning_description_$i ></td>|;
166   my $active = "";
167   $column_data{active} =
168     qq|<td><input type=checkbox name=active_$i value=1 $active></td>|;
169   my $email = "";
170   $column_data{email} =
171     qq|<td><input type=checkbox name=email_$i value=1 $email><button type="button" onclick="set_email_window('email_subject_$i', 'email_body_$i', 'email_attachment_$i')">| . $locale->text('L') . qq|</button><input type=hidden name=email_body_$i><input type=hidden name=email_subject_$i><input type=hidden name=email_attachment_$i></td>|;
172   my $auto = "";
173   $column_data{auto} =
174     qq|<td><input type=checkbox name=auto_$i value=1 $auto></td>|;
175   $column_data{payment_terms}           = qq|<td><input  size=3 name=payment_terms_$i></td>|;
176   $column_data{terms}           = qq|<td><input  size=3 name=terms_$i></td>|;
177   $column_data{fee}           = qq|<td><input  size=5 name=fee_$i></td>|;
178   $column_data{interest}           = qq|<td><input  size=4 name=interest_$i>%</td>|;
179   $column_data{template}           = qq|<td><input name=template_$i></td>|;
180
181
182   $form->{rowcount} = $i;
183   map { print "$column_data{$_}\n" } @column_index;
184
185   print qq|
186       </tr>
187 |;
188
189
190   print qq|
191       </table>
192     </td>
193   </tr>
194   <tr>
195   <td><hr size=3 noshade></td>
196   </tr>
197 </table>
198
199 <br>
200 <form method=post action=$form->{script}>
201
202 <input name=callback type=hidden value="$form->{callback}">
203 <input name=rowcount type=hidden value="$form->{rowcount}">
204
205 <input type=hidden name=path value=$form->{path}>
206 <input type=hidden name=login value=$form->{login}>
207 <input type=hidden name=password value=$form->{password}>
208
209 <input class=submit type=submit name=action value="|
210     . $locale->text('Save') . qq|">
211
212   </form>
213
214   </body>
215   </html>
216 |;
217
218   $lxdebug->leave_sub();
219 }
220
221 sub add {
222   $lxdebug->enter_sub();
223   # setup customer selection
224   $form->all_vc(\%myconfig, "customer", "AR");
225
226   DN->get_config(\%myconfig, \%$form);
227
228   if (@{ $form->{all_customer} }) {
229     map { $customer .= "<option>$_->{name}--$_->{id}\n" }
230       @{ $form->{all_customer} };
231     $customer = qq|<select name=customer><option>\n$customer</select>|;
232   } else {
233     $customer = qq|<input name=customer size=35>|;
234   }
235
236   # dunning levels
237   if (@{ $form->{DUNNING} }) {
238     $form->{selectdunning_level} = "<option></option\n";
239     map {
240       $form->{selectdunning_level} .=
241         "<option value=$_->{id}>$_->{dunning_description}</option>\n"
242     } (@{ $form->{DUNNING} });
243   }
244   $dunning_level = qq| 
245     <tr> 
246     <th align=right nowrap>| . $locale->text('Next Dunning Level') . qq|</th>
247     <td colspan=3><select name=dunning_level>$form->{selectdunning_level}</select></td>
248     </tr>
249     | if $form->{selectdunning_level};
250
251   # departments
252   if (@{ $form->{all_departments} }) {
253     $form->{selectdepartment} = "<option>\n";
254     map {
255       $form->{selectdepartment} .=
256         "<option>$_->{description}--$_->{id}\n"
257     } (@{ $form->{all_departments} });
258   }
259   $department = qq| 
260     <tr> 
261     <th align=right nowrap>| . $locale->text('Department') . qq|</th>
262     <td colspan=3><select name=department>$form->{selectdepartment}</select></td>
263     </tr>
264     | if $form->{selectdepartment};
265   $form->{title}   = $locale->text('Start Dunning Process');
266   $form->{nextsub} = "show_invoices";
267
268   # use JavaScript Calendar or not
269   $form->{jsscript} = $jscalendar;
270   $jsscript = "";
271   if ($form->{jsscript}) {
272
273     # with JavaScript Calendar
274     $button1 = qq|
275       <td><input name=paymentuntil id=paymentuntil size=11 title="$myconfig{dateformat}">
276       <input type=button name=paymentuntil id="trigger1" value=|
277       . $locale->text('button') . qq|></td>
278       |;
279
280     #write Trigger
281     $jsscript =
282       Form->write_trigger(\%myconfig, "1", "paymentuntil", "BR", "trigger1");
283   } else {
284
285     # without JavaScript Calendar
286     $button1 =
287       qq|<td><input name=paymentuntil id=paymentuntil size=11 title="$myconfig{dateformat}"></td>|;
288   }
289   $form->{fokus} = "search.customer";
290   $form->header;
291   print qq|
292 <body onLoad="fokus()">
293
294 <form method=post name="search" action=$form->{script}>
295
296 <table width=100%>
297   <tr><th class=listtop>$form->{title}</th></tr>
298   <tr height="5"></tr>
299   <tr>
300     <td>
301       <table>
302         <tr>
303           <th align=right>| . $locale->text('Customer') . qq|</th>
304           <td colspan=3>$customer</td>
305         </tr>
306         $dunning_level
307         $department
308         <tr>
309           <th align=right nowrap>| . $locale->text('Invoice Number') . qq|</th>
310           <td colspan=3><input name=invnumber size=20></td>
311         </tr>
312         <tr>
313           <th align=right nowrap>| . $locale->text('Order Number') . qq|</th>
314           <td colspan=3><input name=ordnumber size=20></td>
315         </tr>
316         <tr>
317           <th align=right nowrap>| . $locale->text('Notes') . qq|</th>
318           <td colspan=3><input name=notes size=40></td>
319         </tr>
320         <tr>
321           <th align=right nowrap>| . $locale->text('Payment until') . qq|</th>
322           $button1
323         </tr>
324         <input type=hidden name=sort value=transdate>
325       </table>
326     </td>
327   </tr>
328   <tr>
329     <td><hr size=3 noshade></td>
330   </tr>
331   <tr>
332     <td>
333       <table>
334         <tr>
335           <th align=right nowrap>| . $locale->text('Minimum Amount') . qq|</th>
336           <td><input name=minamount size=6></td>
337         </tr>
338         <tr>
339           <th align=right nowrap>| . $locale->text('Group Invoices') . qq|</th>
340           <td><input type=checkbox value=1 name=groupinvoices checked></td>
341         </tr>
342       </table>
343     </td>
344   </tr>
345 </table>
346
347 <input type=hidden name=nextsub value=$form->{nextsub}>
348
349 <input type=hidden name=path value=$form->{path}>
350 <input type=hidden name=login value=$form->{login}>
351 <input type=hidden name=password value=$form->{password}>
352
353 <br>
354 <input class=submit type=submit name=action value="|
355     . $locale->text('Continue') . qq|">
356
357 </form>
358
359 </body>
360
361 $jsscript
362
363 </html>
364 |;
365
366   $lxdebug->leave_sub();
367
368 }
369
370 sub show_invoices {
371   $lxdebug->enter_sub();
372
373   DN->get_invoices(\%myconfig, \%$form);
374   $form->{title} = $locale->text('Start Dunning Process');
375
376   if (@{ $form->{DUNNING_CONFIG} }) {
377     foreach $item (@{ $form->{DUNNING_CONFIG} }) {
378         $form->{selectdunning} .=
379           "<option value=$item->{id}>$item->{dunning_description}</option>";
380     }
381   }
382
383
384   $form->{nextsub} = "save_dunning";
385   
386   $form->{callback} =
387     "$form->{script}?action=show_invoices&path=$form->{path}&login=$form->{login}&password=$form->{password}&customer=$form->{customer}&invnumber=$form->{invnumber}&ordnumber=$form->{ordnumber}&paymentuntil=$form->{paymentuntil}&groupinvoices=$form->{groupinvoices}&minamount=$form->{minamount}&dunning_level=$form->{dunning_level}&notes=$form->{notes}"
388     unless $form->{callback};
389
390   @column_index = qw(dunning_description active email customername invnumber invdate inv_duedate invamount next_duedate fee interest );
391
392   $column_header{dunning_description} =
393       qq|<th class=listheading>|
394     . $locale->text('Current / Next Level')
395     . qq|</th>|;
396   $column_header{active} =
397       qq|<th class=listheading>|
398     . $locale->text('Active?')
399     . qq|</th>|;
400   $column_header{email} =
401       qq|<th class=listheading>|
402     . $locale->text('eMail?')
403     . qq|</th>|;
404   $column_header{customername} =
405       qq|<th class=listheading>|
406     . $locale->text('Customername')
407     . qq|</th>|;
408   $column_header{invnumber} =
409       qq|<th class=listheading>|
410     . $locale->text('Invno.')
411     . qq|</th>|;
412   $column_header{inv_duedate} =
413       qq|<th class=listheading>|
414     . $locale->text('Inv. Duedate')
415     . qq|</th>|;
416   $column_header{next_duedate} =
417       qq|<th class=listheading>|
418     . $locale->text('Dunning Duedate')
419     . qq|</th>|;
420   $column_header{invdate} =
421       qq|<th class=listheading>|
422     . $locale->text('Invdate')
423     . qq|</th>|;
424   $column_header{invamount} =
425       qq|<th class=listheading>|
426     . $locale->text('Amount')
427     . qq|</th>|;
428   $column_header{fee} =
429       qq|<th class=listheading>|
430     . $locale->text('Total Fees')
431     . qq|</th>|;
432   $column_header{interest} =
433       qq|<th class=listheading>|
434     . $locale->text('Total Interest')
435     . qq|</th>|;
436
437   $form->header;
438
439
440   print qq|
441 <body>
442 <script type="text/javascript" src="js/common.js"></script>
443 <script type="text/javascript" src="js/dunning.js"></script>
444 <form name=Form method=post action=$form->{script}>
445
446
447 <table width=100%>
448   <tr>
449     <th class=listtop colspan=9>$form->{title}</th>
450   </tr>
451   <tr height="5"></tr>
452   <tr>|;
453   map { print "$column_header{$_}\n" } @column_index;
454
455   print qq|
456         </tr>
457 |;
458   my $i = 0;
459   foreach $ref (@{ $form->{DUNNINGS} }) {
460
461     $i++;
462     my $j = $i % 2;
463
464     print qq|
465         <tr valign=top class=listrow$j>
466 |;
467
468   $form->{selectdunning} =~ s/ selected//g;
469   if ($ref->{next_dunning_id} ne "") {
470      $form->{selectdunning} =~ s/value=$ref->{next_dunning_id}/value=$ref->{next_dunning_id} selected/;
471   }
472   
473
474   $dunning = qq|<select name=next_dunning_id_$i>$form->{selectdunning}</select>|;
475
476
477     $column_data{dunning_description}           = qq|<td><input type=hidden name=inv_id_$i size=2 value="$ref->{id}"><input type=hidden name=customer_id_$i size=2 value="$ref->{customer_id}">$ref->{dunning_level}:&nbsp;$dunning</td>|;
478     my $active = "checked";
479     $column_data{active} =
480       qq|<td><input type=checkbox name=active_$i value=1 $active></td>|;
481     my $email = "checked";
482   $column_data{email} =
483     qq|<td><input type=checkbox name=email_$i value=1 $email></td>|;
484     $column_data{next_duedate}           = qq|<td><input type=hidden name=next_duedate_$i size=6 value="$ref->{next_duedate}">$ref->{next_duedate}</td>|;
485
486     $column_data{inv_duedate}           = qq|<td><input type=hidden name=inv_duedate_$i size=6 value="$ref->{duedate}">$ref->{duedate}</td>|;
487     $column_data{invdate}           = qq|<td><input type=hidden name=invdate_$i size=6 value="$ref->{transdate}">$ref->{transdate}</td>|;
488     $column_data{invnumber}           = qq|<td><input type=hidden name=invnumber_$i size=6 value="$ref->{invnumber}">$ref->{invnumber}</td>|;
489     $column_data{customername}           = qq|<td><input type=hidden name=customername_$i size=6 value="$ref->{customername}">$ref->{customername}</td>|;
490     $column_data{invamount}           = qq|<td><input type=hidden name=invamount_$i size=6 value="$ref->{amount}">$ref->{amount}</td>|;
491     $column_data{fee}           = qq|<td><input type=hidden name=fee_$i size=5 value="$ref->{fee}">$ref->{fee}</td>|;
492     $column_data{interest}           = qq|<td><input type=hidden name=interest_$i size=4 value="$ref->{interest}">$ref->{interest}</td>|;
493
494
495
496     map { print "$column_data{$_}\n" } @column_index;
497
498     print qq|
499         </tr>
500 |;
501   }
502
503   $form->{rowcount} = $i;
504
505   print qq|
506       </table>
507     </td>
508   </tr>
509   <tr>
510   <td><hr size=3 noshade></td>
511   </tr>
512 </table>|;
513   &print_options;
514   print qq|
515 <br>
516 <form method=post action=$form->{script}>
517
518 <input name=callback type=hidden value="$form->{callback}">
519 <input name=rowcount type=hidden value="$form->{rowcount}">
520 <input name=nextsub type=hidden value="$form->{nextsub}">
521 <input name=groupinvoices type=hidden value="$form->{groupinvoices}">
522
523
524 <input type=hidden name=path value=$form->{path}>
525 <input type=hidden name=login value=$form->{login}>
526 <input type=hidden name=password value=$form->{password}>
527 <input type="hidden" name="action">
528 <input type="submit" name="dummy" value="|
529     . $locale->text('Continue') . qq|" onclick="this.disabled=true; this.value='| . $locale->text("The dunning process started") . qq|'; document.Form.action.value='| . $locale->text('Continue') . qq|'; document.Form.submit()">
530
531   </form>
532
533   </body>
534   </html>
535 |;
536
537
538   $lxdebug->leave_sub();
539
540 }
541
542 sub save {
543   $lxdebug->enter_sub();
544
545   for my $i (1 .. $form->{rowcount}) {
546     if ($form->{"dunning_description_$i"} ne "") {
547       $form->isblank("dunning_level_$i", $locale->text('Dunning Level missing in row '). $i);
548       $form->isblank("dunning_description_$i", $locale->text('Dunning Description missing in row '). $i);
549       $form->isblank("terms_$i", $locale->text('Terms missing in row '). $i);
550       $form->isblank("payment_terms_$i", $locale->text('Payment Terms missing in row '). $i);
551     }
552   }
553
554   DN->save_config(\%myconfig, \%$form);
555   $form->redirect($locale->text('Dunning Process Config saved!'));
556
557   $lxdebug->leave_sub();
558 }
559
560 sub save_dunning {
561   $lxdebug->enter_sub();
562
563   my $active=1;
564   my @rows = ();
565   undef($form->{DUNNING_PDFS});
566   if ($form->{groupinvoices}) {
567     while ($active) {
568       $lastcustomer = 0;
569       $form->{inv_ids} = "";
570       $active = 0;
571       @rows = ();
572       for my $i (1 .. $form->{rowcount}) {
573         $form->{"active_$i"} *= 1;
574         $lastcustomer = $form->{"customer_id_$i"} unless ($lastcustomer);
575         if ($form->{"active_$i"} && ($form->{"customer_id_$i"} == $lastcustomer)) {
576           if ($form->{inv_ids}) {
577             $form->{inv_ids} .= qq|,$form->{"inv_id_$i"}|;
578           } else {
579             $form->{inv_ids} = qq|($form->{"inv_id_$i"}|;
580           }
581           $form->{"active_$i"} = 0;
582           $form->{"customer_id_$i"} = 0;
583           push(@rows, $i);
584         } elsif ($form->{"active_$i"}) {
585           $active = 1;
586         } else {
587           $form->{"customer_id_$i"} = 0;
588         }
589       }
590       if ($form->{inv_ids} ne "") {
591         $form->{inv_ids} .= ")";
592         DN->save_dunning(\%myconfig, \%$form, \@rows, $userspath,$spool, $sendmail);
593       }
594     }
595   } else {
596     for my $i (1 .. $form->{rowcount}) {
597       if ($form->{"active_$i"}) {
598         @rows = ();
599         $form->{inv_ids} = qq|($form->{"inv_id_$i"})|;
600         push(@rows, $i);
601         DN->save_dunning(\%myconfig, \%$form, \@rows, $userspath,$spool, $sendmail);
602       }
603     }
604   }
605   if($form->{DUNNING_PDFS}) {
606     DN->melt_pdfs(\%myconfig, \%$form,$spool);
607   }
608
609   $form->redirect($locale->text('Dunning Process started for selected invoices!'));
610
611   $lxdebug->leave_sub();
612 }
613   
614 sub set_email {
615   $lxdebug->enter_sub();
616
617
618   my $callback = "$form->{script}?action=set_email&";
619   map({ $callback .= "$_=" . $form->escape($form->{$_}) . "&" }
620       (qw(login path password name input_subject input_body input_attachment email_subject email_body email_attachment), grep({ /^[fl]_/ } keys %$form)));
621
622   if ($form->{email_attachment}) {
623     $form->{email_attachment} = "checked";
624   }
625   $form->{"title"} = $locale->text("Set eMail text");
626   $form->header();
627   print($form->parse_html_template("dunning/set_email"));
628
629   $lxdebug->leave_sub();
630 }
631
632 sub search {
633   $lxdebug->enter_sub();
634   # setup customer selection
635   $form->all_vc(\%myconfig, "customer", "AR");
636
637   DN->get_config(\%myconfig, \%$form);
638
639   if (@{ $form->{all_customer} }) {
640     map { $customer .= "<option>$_->{name}--$_->{id}\n" }
641       @{ $form->{all_customer} };
642     $customer = qq|<select name=customer><option>\n$customer</select>|;
643   } else {
644     $customer = qq|<input name=customer size=35>|;
645   }
646
647   # dunning levels
648   if (@{ $form->{DUNNING} }) {
649     $form->{selectdunning_level} = "<option></option\n";
650     map {
651       $form->{selectdunning_level} .=
652         "<option value=$_->{id}>$_->{dunning_description}</option>\n"
653     } (@{ $form->{DUNNING} });
654   }
655   $dunning_level = qq| 
656     <tr> 
657     <th align=right nowrap>| . $locale->text('Next Dunning Level') . qq|</th>
658     <td colspan=3><select name=dunning_level>$form->{selectdunning_level}</select></td>
659     </tr>
660     | if $form->{selectdunning_level};
661
662   # departments
663   if (@{ $form->{all_departments} }) {
664     $form->{selectdepartment} = "<option>\n";
665     map {
666       $form->{selectdepartment} .=
667         "<option>$_->{description}--$_->{id}\n"
668     } (@{ $form->{all_departments} });
669   }
670   $department = qq| 
671     <tr> 
672     <th align=right nowrap>| . $locale->text('Department') . qq|</th>
673     <td colspan=3><select name=department>$form->{selectdepartment}</select></td>
674     </tr>
675     | if $form->{selectdepartment};
676   $form->{title}   = $locale->text('Search Dunning');
677   $form->{nextsub} = "show_dunning";
678
679   # use JavaScript Calendar or not
680   $form->{jsscript} = $jscalendar;
681   $jsscript = "";
682   if ($form->{jsscript}) {
683
684     # with JavaScript Calendar
685     $button1 = qq|
686       <td><input name=transdatefrom id=transdatefrom size=11 title="$myconfig{dateformat}">
687       <input type=button name=transdatefrom id="trigger1" value=|
688       . $locale->text('button') . qq|></td>
689       |;
690     $button2 = qq|
691       <td><input name=transdateto id=transdateto size=11 title="$myconfig{dateformat}">
692       <input type=button name=transdateto id="trigger2" value=|
693       . $locale->text('button') . qq|></td>
694       |;
695     $button3 = qq|
696       <td><input name=dunningfrom id=dunningfrom size=11 title="$myconfig{dateformat}">
697       <input type=button name=dunningfrom id="trigger3" value=|
698       . $locale->text('button') . qq|></td>
699       |;
700     $button4 = qq|
701       <td><input name=dunningto id=dunningto size=11 title="$myconfig{dateformat}">
702       <input type=button name=dunningto id="trigger4" value=|
703       . $locale->text('button') . qq|></td>
704       |;
705
706     #write Trigger
707     $jsscript =
708       Form->write_trigger(\%myconfig, "4", "transdatefrom", "BR", "trigger1", "transdateto", "BR", "trigger2", "dunningfrom", "BR", "trigger3", "dunningto", "BR", "trigger4");
709   } else {
710
711     # without JavaScript Calendar
712     $button1 =
713       qq|<td><input name=transdatefrom id=transdatefrom size=11 title="$myconfig{dateformat}"></td>|;
714     $button2 =
715       qq|<td><input name=transdateto id=transdateto size=11 title="$myconfig{dateformat}"></td>|;
716     $button1 =
717       qq|<td><input name=dunningfrom id=dunningfrom size=11 title="$myconfig{dateformat}"></td>|;
718     $button1 =
719       qq|<td><input name=dunningfrom id=dunningto size=11 title="$myconfig{dateformat}"></td>|;
720   }
721
722   $form->{fokus} = "search.customer";
723   $form->header;
724   print qq|
725 <body onLoad="fokus()">
726
727 <form method=post name="search" action=$form->{script}>
728
729 <table width=100%>
730   <tr><th class=listtop>$form->{title}</th></tr>
731   <tr height="5"></tr>
732   <tr>
733     <td>
734       <table>
735         <tr>
736           <th align=right>| . $locale->text('Customer') . qq|</th>
737           <td colspan=3>$customer</td>
738         </tr>
739         $dunning_level
740         $department
741         <tr>
742           <th align=right nowrap>| . $locale->text('Invoice Number') . qq|</th>
743           <td colspan=3><input name=invnumber size=20></td>
744         </tr>
745         <tr>
746           <th align=right nowrap>| . $locale->text('Order Number') . qq|</th>
747           <td colspan=3><input name=ordnumber size=20></td>
748         </tr>
749         <tr>
750           <th align=right nowrap>| . $locale->text('Notes') . qq|</th>
751           <td colspan=3><input name=notes size=40></td>
752         </tr>
753         <tr>
754           <th align=right nowrap>| . $locale->text('Invdate from') . qq|</th>
755           $button1
756           <th align=right nowrap>| . $locale->text('To') . qq|</th>
757           $button2
758         </tr>
759         <tr>
760           <th align=right nowrap>| . $locale->text('Dunning Date from') . qq|</th>
761           $button3
762           <th align=right nowrap>| . $locale->text('To') . qq|</th>
763           $button4
764         </tr>
765
766         <input type=hidden name=sort value=transdate>
767       </table>
768     </td>
769   </tr>
770   <tr>
771     <td><hr size=3 noshade></td>
772   </tr>
773   <tr>
774     <td>
775       <table>
776         <tr>
777           <th align=right nowrap>| . $locale->text('Show old dunnings') . qq|</th>
778           <td><input type=checkbox value=1 name=showold></td>
779         </tr>
780       </table>
781     </td>
782   </tr>
783 </table>
784
785 <input type=hidden name=nextsub value=$form->{nextsub}>
786
787 <input type=hidden name=path value=$form->{path}>
788 <input type=hidden name=login value=$form->{login}>
789 <input type=hidden name=password value=$form->{password}>
790
791 <br>
792 <input class=submit type=submit name=action value="|
793     . $locale->text('Continue') . qq|">
794
795 </form>
796
797 </body>
798
799 $jsscript
800
801 </html>
802 |;
803
804   $lxdebug->leave_sub();
805
806 }
807
808 sub show_dunning {
809   $lxdebug->enter_sub();
810
811   DN->get_dunning(\%myconfig, \%$form);
812   $form->{title} = $locale->text('Dunning overview');
813
814
815
816
817   
818   $form->{callback} =
819     "$form->{script}?action=show_dunning&path=$form->{path}&login=$form->{login}&password=$form->{password}&customer=$form->{customer}&invnumber=$form->{invnumber}&ordnumber=$form->{ordnumber}&transdatefrom=$form->{transdatefrom}&transdateto=$form->{transdateto}&dunningfrom=$form->{dunningfrom}&dunningto=$form->{dunningto}&notes=$form->{notes}&showold=$form->{showold}&dunning_level=$form->{dunning_level}"
820     unless $form->{callback};
821
822   @column_index = qw(dunning_description customername invnumber invdate inv_duedate invamount dunning_date next_duedate fee interest );
823
824   $column_header{dunning_description} =
825       qq|<th class=listheading>|
826     . $locale->text('Dunning Level')
827     . qq|</th>|;
828   $column_header{customername} =
829       qq|<th class=listheading>|
830     . $locale->text('Customername')
831     . qq|</th>|;
832   $column_header{invnumber} =
833       qq|<th class=listheading>|
834     . $locale->text('Invnumber')
835     . qq|</th>|;
836   $column_header{inv_duedate} =
837       qq|<th class=listheading>|
838     . $locale->text('Invoice Duedate')
839     . qq|</th>|;
840   $column_header{dunning_date} =
841       qq|<th class=listheading>|
842     . $locale->text('Dunning Date')
843     . qq|</th>|;
844   $column_header{next_duedate} =
845       qq|<th class=listheading>|
846     . $locale->text('Dunning Duedate')
847     . qq|</th>|;
848   $column_header{invdate} =
849       qq|<th class=listheading>|
850     . $locale->text('Invdate')
851     . qq|</th>|;
852   $column_header{invamount} =
853       qq|<th class=listheading>|
854     . $locale->text('Amount')
855     . qq|</th>|;
856   $column_header{fee} =
857       qq|<th class=listheading>|
858     . $locale->text('Total Fees')
859     . qq|</th>|;
860   $column_header{interest} =
861       qq|<th class=listheading>|
862     . $locale->text('Total Interest')
863     . qq|</th>|;
864
865   $form->header;
866
867
868   print qq|
869 <body>
870 <script type="text/javascript" src="js/common.js"></script>
871 <script type="text/javascript" src="js/dunning.js"></script>
872 <form method=post action=$form->{script}>
873
874
875 <table width=100%>
876   <tr>
877     <th class=listtop colspan=9>$form->{title}</th>
878   </tr>
879   <tr height="5"></tr>
880   <tr>|;
881   map { print "$column_header{$_}\n" } @column_index;
882
883   print qq|
884         </tr>
885 |;
886   my $i = 0;
887   foreach $ref (@{ $form->{DUNNINGS} }) {
888
889     $i++;
890     my $j = $i % 2;
891
892     print qq|
893         <tr valign=top class=listrow$j>
894 |;
895
896   
897
898   $dunning = qq|<select name=next_dunning_id_$i>$form->{selectdunning}</select>|;
899
900
901     $column_data{dunning_description}           = qq|<td>$ref->{dunning_description}</td>|;
902     my $active = "checked";
903     $column_data{dunning_date}           = qq|<td>$ref->{dunning_date}</td>|;
904     $column_data{next_duedate}           = qq|<td>$ref->{dunning_duedate}</td>|;
905
906     $column_data{inv_duedate}           = qq|<td>$ref->{duedate}</td>|;
907     $column_data{invdate}           = qq|<td>$ref->{transdate}</td>|;
908     $column_data{invnumber}           = qq|<td><a href=ar.pl?action=edit&id=$ref->{id}&path=$form->{path}&login=$form->{login}&password=$form->{password}&callback=$form->{callback}>$ref->{invnumber}</a></td>|;
909     $column_data{customername}           = qq|<td>$ref->{customername}</td>|;
910     $column_data{invamount}           = qq|<td>$ref->{amount}</td>|;
911     $column_data{fee}           = qq|<td>$ref->{fee}</td>|;
912     $column_data{interest}           = qq|<td>$ref->{interest}</td>|;
913
914
915
916     map { print "$column_data{$_}\n" } @column_index;
917
918     print qq|
919         </tr>
920 |;
921   }
922
923   $form->{rowcount} = $i;
924
925   print qq|
926       </table>
927     </td>
928   </tr>
929   <tr>
930   <td><hr size=3 noshade></td>
931   </tr>
932 </table>
933
934 <br>
935 <form method=post action=$form->{script}>
936
937 <input name=callback type=hidden value="$form->{callback}">
938 <input name=rowcount type=hidden value="$form->{rowcount}">
939 <input name=nextsub type=hidden value="$form->{nextsub}">
940
941
942 <input type=hidden name=path value=$form->{path}>
943 <input type=hidden name=login value=$form->{login}>
944 <input type=hidden name=password value=$form->{password}>
945
946   </form>
947
948   </body>
949   </html>
950 |;
951
952
953   $lxdebug->leave_sub();
954
955 }
956 # end of main
957