Rechnungs- und Gutschriftsnummern werden nun direkt innerhalb der Backend-Routinen...
[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 = ($ref->{active}) ? "checked" : "";
479     $column_data{active} =
480       qq|<td><input type=checkbox name=active_$i value=1 $active></td>|;
481     my $email = ($ref->{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   # saving the history
556   if(!exists $form->{addition} && $form->{id} ne "") {
557         $form->{addition} = "SAVED FOR DUNNING";
558         $form->save_history($form->dbconnect(\%myconfig));
559   }
560   # /saving the history 
561   $form->redirect($locale->text('Dunning Process Config saved!'));
562
563   $lxdebug->leave_sub();
564 }
565
566 sub save_dunning {
567   $lxdebug->enter_sub();
568
569   my $active=1;
570   my @rows = ();
571   undef($form->{DUNNING_PDFS});
572   if ($form->{groupinvoices}) {
573     while ($active) {
574       $lastcustomer = 0;
575       $form->{inv_ids} = "";
576       $active = 0;
577       @rows = ();
578       for my $i (1 .. $form->{rowcount}) {
579         $form->{"active_$i"} *= 1;
580         $lastcustomer = $form->{"customer_id_$i"} unless ($lastcustomer);
581         if ($form->{"active_$i"} && ($form->{"customer_id_$i"} == $lastcustomer)) {
582           if ($form->{inv_ids}) {
583             $form->{inv_ids} .= qq|,$form->{"inv_id_$i"}|;
584           } else {
585             $form->{inv_ids} = qq|($form->{"inv_id_$i"}|;
586           }
587           $form->{"active_$i"} = 0;
588           $form->{"customer_id_$i"} = 0;
589           push(@rows, $i);
590         } elsif ($form->{"active_$i"}) {
591           $active = 1;
592         } else {
593           $form->{"customer_id_$i"} = 0;
594         }
595       }
596       if ($form->{inv_ids} ne "") {
597         $form->{inv_ids} .= ")";
598         DN->save_dunning(\%myconfig, \%$form, \@rows, $userspath,$spool, $sendmail);
599       }
600     }
601   } else {
602     for my $i (1 .. $form->{rowcount}) {
603       if ($form->{"active_$i"}) {
604         @rows = ();
605         $form->{inv_ids} = qq|($form->{"inv_id_$i"})|;
606         push(@rows, $i);
607         DN->save_dunning(\%myconfig, \%$form, \@rows, $userspath,$spool, $sendmail);
608       }
609     }
610   }
611   if($form->{DUNNING_PDFS}) {
612     DN->melt_pdfs(\%myconfig, \%$form,$spool);
613   }
614   # saving the history
615   if(!exists $form->{addition} && $form->{id} ne "") {
616         $form->{addition} = "DUNNING STARTED";
617         $form->save_history($form->dbconnect(\%myconfig));
618   }
619   # /saving the history 
620   $form->redirect($locale->text('Dunning Process started for selected invoices!'));
621
622   $lxdebug->leave_sub();
623 }
624   
625 sub set_email {
626   $lxdebug->enter_sub();
627
628
629   my $callback = "$form->{script}?action=set_email&";
630   map({ $callback .= "$_=" . $form->escape($form->{$_}) . "&" }
631       (qw(login path password name input_subject input_body input_attachment email_subject email_body email_attachment), grep({ /^[fl]_/ } keys %$form)));
632
633   if ($form->{email_attachment}) {
634     $form->{email_attachment} = "checked";
635   }
636   $form->{"title"} = $locale->text("Set eMail text");
637   $form->header();
638   print($form->parse_html_template("dunning/set_email"));
639
640   $lxdebug->leave_sub();
641 }
642
643 sub search {
644   $lxdebug->enter_sub();
645   # setup customer selection
646   $form->all_vc(\%myconfig, "customer", "AR");
647
648   DN->get_config(\%myconfig, \%$form);
649
650   if (@{ $form->{all_customer} }) {
651     map { $customer .= "<option>$_->{name}--$_->{id}\n" }
652       @{ $form->{all_customer} };
653     $customer = qq|<select name=customer><option>\n$customer</select>|;
654   } else {
655     $customer = qq|<input name=customer size=35>|;
656   }
657
658   # dunning levels
659   if (@{ $form->{DUNNING} }) {
660     $form->{selectdunning_level} = "<option></option\n";
661     map {
662       $form->{selectdunning_level} .=
663         "<option value=$_->{id}>$_->{dunning_description}</option>\n"
664     } (@{ $form->{DUNNING} });
665   }
666   $dunning_level = qq| 
667     <tr> 
668     <th align=right nowrap>| . $locale->text('Next Dunning Level') . qq|</th>
669     <td colspan=3><select name=dunning_level>$form->{selectdunning_level}</select></td>
670     </tr>
671     | if $form->{selectdunning_level};
672
673   # departments
674   if (@{ $form->{all_departments} }) {
675     $form->{selectdepartment} = "<option>\n";
676     map {
677       $form->{selectdepartment} .=
678         "<option>$_->{description}--$_->{id}\n"
679     } (@{ $form->{all_departments} });
680   }
681   $department = qq| 
682     <tr> 
683     <th align=right nowrap>| . $locale->text('Department') . qq|</th>
684     <td colspan=3><select name=department>$form->{selectdepartment}</select></td>
685     </tr>
686     | if $form->{selectdepartment};
687   $form->{title}   = $locale->text('Search Dunning');
688   $form->{nextsub} = "show_dunning";
689
690   # use JavaScript Calendar or not
691   $form->{jsscript} = $jscalendar;
692   $jsscript = "";
693   if ($form->{jsscript}) {
694
695     # with JavaScript Calendar
696     $button1 = qq|
697       <td><input name=transdatefrom id=transdatefrom size=11 title="$myconfig{dateformat}">
698       <input type=button name=transdatefrom id="trigger1" value=|
699       . $locale->text('button') . qq|></td>
700       |;
701     $button2 = qq|
702       <td><input name=transdateto id=transdateto size=11 title="$myconfig{dateformat}">
703       <input type=button name=transdateto id="trigger2" value=|
704       . $locale->text('button') . qq|></td>
705       |;
706     $button3 = qq|
707       <td><input name=dunningfrom id=dunningfrom size=11 title="$myconfig{dateformat}">
708       <input type=button name=dunningfrom id="trigger3" value=|
709       . $locale->text('button') . qq|></td>
710       |;
711     $button4 = qq|
712       <td><input name=dunningto id=dunningto size=11 title="$myconfig{dateformat}">
713       <input type=button name=dunningto id="trigger4" value=|
714       . $locale->text('button') . qq|></td>
715       |;
716
717     #write Trigger
718     $jsscript =
719       Form->write_trigger(\%myconfig, "4", "transdatefrom", "BR", "trigger1", "transdateto", "BR", "trigger2", "dunningfrom", "BR", "trigger3", "dunningto", "BR", "trigger4");
720   } else {
721
722     # without JavaScript Calendar
723     $button1 =
724       qq|<td><input name=transdatefrom id=transdatefrom size=11 title="$myconfig{dateformat}"></td>|;
725     $button2 =
726       qq|<td><input name=transdateto id=transdateto size=11 title="$myconfig{dateformat}"></td>|;
727     $button1 =
728       qq|<td><input name=dunningfrom id=dunningfrom size=11 title="$myconfig{dateformat}"></td>|;
729     $button1 =
730       qq|<td><input name=dunningfrom id=dunningto size=11 title="$myconfig{dateformat}"></td>|;
731   }
732
733   $form->{fokus} = "search.customer";
734   $form->header;
735   print qq|
736 <body onLoad="fokus()">
737
738 <form method=post name="search" action=$form->{script}>
739
740 <table width=100%>
741   <tr><th class=listtop>$form->{title}</th></tr>
742   <tr height="5"></tr>
743   <tr>
744     <td>
745       <table>
746         <tr>
747           <th align=right>| . $locale->text('Customer') . qq|</th>
748           <td colspan=3>$customer</td>
749         </tr>
750         $dunning_level
751         $department
752         <tr>
753           <th align=right nowrap>| . $locale->text('Invoice Number') . qq|</th>
754           <td colspan=3><input name=invnumber size=20></td>
755         </tr>
756         <tr>
757           <th align=right nowrap>| . $locale->text('Order Number') . qq|</th>
758           <td colspan=3><input name=ordnumber size=20></td>
759         </tr>
760         <tr>
761           <th align=right nowrap>| . $locale->text('Notes') . qq|</th>
762           <td colspan=3><input name=notes size=40></td>
763         </tr>
764         <tr>
765           <th align=right nowrap>| . $locale->text('Invdate from') . qq|</th>
766           $button1
767           <th align=right nowrap>| . $locale->text('To') . qq|</th>
768           $button2
769         </tr>
770         <tr>
771           <th align=right nowrap>| . $locale->text('Dunning Date from') . qq|</th>
772           $button3
773           <th align=right nowrap>| . $locale->text('To') . qq|</th>
774           $button4
775         </tr>
776
777         <input type=hidden name=sort value=transdate>
778       </table>
779     </td>
780   </tr>
781   <tr>
782     <td><hr size=3 noshade></td>
783   </tr>
784   <tr>
785     <td>
786       <table>
787         <tr>
788           <th align=right nowrap>| . $locale->text('Show old dunnings') . qq|</th>
789           <td><input type=checkbox value=1 name=showold></td>
790         </tr>
791       </table>
792     </td>
793   </tr>
794 </table>
795
796 <input type=hidden name=nextsub value=$form->{nextsub}>
797
798 <input type=hidden name=path value=$form->{path}>
799 <input type=hidden name=login value=$form->{login}>
800 <input type=hidden name=password value=$form->{password}>
801
802 <br>
803 <input class=submit type=submit name=action value="|
804     . $locale->text('Continue') . qq|">
805
806 </form>
807
808 </body>
809
810 $jsscript
811
812 </html>
813 |;
814
815   $lxdebug->leave_sub();
816
817 }
818
819 sub show_dunning {
820   $lxdebug->enter_sub();
821
822   DN->get_dunning(\%myconfig, \%$form);
823   $form->{title} = $locale->text('Dunning overview');
824
825
826
827
828   
829   $form->{callback} =
830     "$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}"
831     unless $form->{callback};
832
833   @column_index = qw(dunning_description customername invnumber invdate inv_duedate invamount dunning_date next_duedate fee interest );
834
835   $column_header{dunning_description} =
836       qq|<th class=listheading>|
837     . $locale->text('Dunning Level')
838     . qq|</th>|;
839   $column_header{customername} =
840       qq|<th class=listheading>|
841     . $locale->text('Customername')
842     . qq|</th>|;
843   $column_header{invnumber} =
844       qq|<th class=listheading>|
845     . $locale->text('Invnumber')
846     . qq|</th>|;
847   $column_header{inv_duedate} =
848       qq|<th class=listheading>|
849     . $locale->text('Invoice Duedate')
850     . qq|</th>|;
851   $column_header{dunning_date} =
852       qq|<th class=listheading>|
853     . $locale->text('Dunning Date')
854     . qq|</th>|;
855   $column_header{next_duedate} =
856       qq|<th class=listheading>|
857     . $locale->text('Dunning Duedate')
858     . qq|</th>|;
859   $column_header{invdate} =
860       qq|<th class=listheading>|
861     . $locale->text('Invdate')
862     . qq|</th>|;
863   $column_header{invamount} =
864       qq|<th class=listheading>|
865     . $locale->text('Amount')
866     . qq|</th>|;
867   $column_header{fee} =
868       qq|<th class=listheading>|
869     . $locale->text('Total Fees')
870     . qq|</th>|;
871   $column_header{interest} =
872       qq|<th class=listheading>|
873     . $locale->text('Total Interest')
874     . qq|</th>|;
875
876   $form->header;
877
878
879   print qq|
880 <body>
881 <script type="text/javascript" src="js/common.js"></script>
882 <script type="text/javascript" src="js/dunning.js"></script>
883 <form method=post action=$form->{script}>
884
885
886 <table width=100%>
887   <tr>
888     <th class=listtop colspan=9>$form->{title}</th>
889   </tr>
890   <tr height="5"></tr>
891   <tr>|;
892   map { print "$column_header{$_}\n" } @column_index;
893
894   print qq|
895         </tr>
896 |;
897   my $i = 0;
898   foreach $ref (@{ $form->{DUNNINGS} }) {
899
900     $i++;
901     my $j = $i % 2;
902
903     print qq|
904         <tr valign=top class=listrow$j>
905 |;
906
907   
908
909   $dunning = qq|<select name=next_dunning_id_$i>$form->{selectdunning}</select>|;
910     my $script = "";
911     if ($ref->{invoice}) {
912       $script = "is.pl";
913     } else {
914       $script = "ar.pl";
915     }
916     $column_data{dunning_description}           = qq|<td><a href=dn.pl?action=print_dunning&dunning_id=$ref->{dunning_id}&format=pdf&media=screen&path=$form->{path}&login=$form->{login}&password=$form->{password}&callback=$form->{callback}>$ref->{dunning_description}</a></td>|;
917     my $active = "checked";
918     $column_data{dunning_date}           = qq|<td>$ref->{dunning_date}</td>|;
919     $column_data{next_duedate}           = qq|<td>$ref->{dunning_duedate}</td>|;
920
921     $column_data{inv_duedate}           = qq|<td>$ref->{duedate}</td>|;
922     $column_data{invdate}           = qq|<td>$ref->{transdate}</td>|;
923     $column_data{invnumber}           = qq|<td><a href=$script?action=edit&id=$ref->{id}&path=$form->{path}&login=$form->{login}&password=$form->{password}&callback=$form->{callback}>$ref->{invnumber}</a></td>|;
924     $column_data{customername}           = qq|<td>$ref->{customername}</td>|;
925     $column_data{invamount}           = qq|<td>$ref->{amount}</td>|;
926     $column_data{fee}           = qq|<td>$ref->{fee}</td>|;
927     $column_data{interest}           = qq|<td>$ref->{interest}</td>|;
928
929
930
931     map { print "$column_data{$_}\n" } @column_index;
932
933     print qq|
934         </tr>
935 |;
936   }
937
938   $form->{rowcount} = $i;
939
940   print qq|
941       </table>
942     </td>
943   </tr>
944   <tr>
945   <td><hr size=3 noshade></td>
946   </tr>
947 </table>
948
949 <br>
950 <form method=post action=$form->{script}>
951
952 <input name=callback type=hidden value="$form->{callback}">
953 <input name=rowcount type=hidden value="$form->{rowcount}">
954 <input name=nextsub type=hidden value="$form->{nextsub}">
955
956
957 <input type=hidden name=path value=$form->{path}>
958 <input type=hidden name=login value=$form->{login}>
959 <input type=hidden name=password value=$form->{password}>
960
961   </form>
962
963   </body>
964   </html>
965 |;
966
967
968   $lxdebug->leave_sub();
969
970 }
971
972 sub print_dunning {
973   $lxdebug->enter_sub();
974
975   DN->print_dunning(\%myconfig, \%$form, $form->{dunning_id}, $userspath,$spool, $sendmail);
976
977   if($form->{DUNNING_PDFS}) {
978     DN->melt_pdfs(\%myconfig, \%$form,$spool);
979   } else {
980     $form->redirect($locale->text('Could not create dunning copy!'));
981   }
982
983   $lxdebug->leave_sub();
984
985 }
986
987 # end of main
988