5a1d2e3bc7f91257f303d6e6b66b70f9b1a2e95a
[kivitendo-erp.git] / bin / mozilla / cp.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) 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 # Payment module
31 #
32 #======================================================================
33
34 use SL::CP;
35 use SL::OP;
36 use SL::IS;
37 use SL::IR;
38
39 require "$form->{path}/arap.pl";
40 require "bin/mozilla/common.pl";
41
42 1;
43
44 # end of main
45
46 sub payment {
47   $lxdebug->enter_sub();
48
49   $form->{ARAP} = ($form->{type} eq 'receipt') ? "AR" : "AP";
50   $form->{arap} = lc $form->{ARAP};
51
52   # setup customer/vendor selection for open invoices
53   if ($form->{all_vc}) {
54     $form->all_vc(\%myconfig, $form->{vc}, $form->{ARAP});
55   } else {
56     CP->get_openvc(\%myconfig, \%$form);
57   }
58
59   $form->{"select$form->{vc}"} = "";
60
61   if ($form->{"all_$form->{vc}"}) {
62     $form->{"$form->{vc}_id"} = $form->{"all_$form->{vc}"}->[0]->{id};
63     map { $form->{"select$form->{vc}"} .= "<option>$_->{name}--$_->{id}\n" }
64       @{ $form->{"all_$form->{vc}"} };
65   }
66
67   # departments
68   if (@{ $form->{all_departments} }) {
69     $form->{selectdepartment} = "<option>\n";
70     $form->{department}       = "$form->{department}--$form->{department_id}";
71
72     map {
73       $form->{selectdepartment} .=
74         "<option>$_->{description}--$_->{id}\n"
75     } (@{ $form->{all_departments} });
76   }
77
78   CP->paymentaccounts(\%myconfig, \%$form);
79
80   $form->{selectaccount} = "";
81   $form->{"select$form->{ARAP}"} = "";
82
83   map { $form->{selectaccount} .= "<option>$_->{accno}--$_->{description}\n" }
84     @{ $form->{PR}{"$form->{ARAP}_paid"} };
85   map {
86     $form->{"select$form->{ARAP}"} .=
87       "<option>$_->{accno}--$_->{description}\n"
88   } @{ $form->{PR}{ $form->{ARAP} } };
89
90   # currencies
91   @curr = split(/:/, $form->{currencies});
92   chomp $curr[0];
93   $form->{defaultcurrency} = $form->{currency} = $form->{oldcurrency} =
94     $curr[0];
95
96   $form->{selectcurrency} = "";
97   map { $form->{selectcurrency} .= "<option>$_\n" } @curr;
98
99   $form->{media} = "screen";
100
101   &form_header;
102   &form_footer;
103
104   $lxdebug->leave_sub();
105 }
106
107 sub form_header {
108   $lxdebug->enter_sub();
109
110   $vclabel = ucfirst $form->{vc};
111   $vclabel = $locale->text($vclabel);
112
113   if ($form->{type} eq 'receipt') {
114     $form->{title}     = $locale->text('Receipt');
115     $form->{origtitle} = "Receipt";
116   }
117   if ($form->{type} eq 'check') {
118     $form->{title}     = $locale->text('Payment');
119     $form->{origtitle} = "Payment";
120   }
121
122   # $locale->text('Customer')
123   # $locale->text('Vendor')
124
125   if ($form->{ $form->{vc} } eq "") {
126     map { $form->{"addr$_"} = "" } (1 .. 4);
127   }
128
129   if ($form->{currency} ne $form->{defaultcurrency}) {
130     $form->{exchangerate} =
131       $form->format_amount(\%myconfig, $form->{exchangerate});
132     if ($form->{forex}) {
133       $exchangerate = qq|
134               <tr>
135                 <th align=right nowrap>| . $locale->text('Exchangerate') . qq|</th>
136                 <td colspan=3><input type=hidden name=exchangerate size=10 value=$form->{exchangerate}>$form->{exchangerate}</td>
137               </tr>
138 |;
139     } else {
140       $exchangerate = qq|
141               <tr>
142                 <th align=right nowrap>| . $locale->text('Exchangerate') . qq|</th>
143                 <td colspan=3><input name=exchangerate size=10 value=$form->{exchangerate}></td>
144               </tr>
145 |;
146     }
147   }
148
149   foreach $item ($form->{vc}, account, currency, $form->{ARAP}, department) {
150     $form->{"select$item"} =~ s/ selected//;
151     $form->{"select$item"} =~
152       s/option>\Q$form->{$item}\E/option selected>$form->{$item}/;
153   }
154
155   $vc =
156     ($form->{"select$form->{vc}"})
157     ? qq|<select name=$form->{vc}>$form->{"select$form->{vc}"}\n</select>|
158     : qq|<input name=$form->{vc} size=35 value="$form->{$form->{vc}}">|;
159
160   if ($form->{all_vc}) {
161     $allvc = "checked";
162     $form->{openinvoices} = "";
163   } else {
164     $allvc = "";
165     $form->{openinvoices} = 1;
166   }
167
168   # $locale->text('AR')
169   # $locale->text('AP')
170
171   $department = qq|
172               <tr>
173                 <th align="right" nowrap>| . $locale->text('Department') . qq|</th>
174                 <td><select name=department>$form->{selectdepartment}</select>
175                 <input type=hidden name=selectdepartment value="$form->{selectdepartment}">
176
177               </td>
178             </tr>
179 | if $form->{selectdepartment};
180
181   $form->{jsscript} = $jscalendar;
182   $jsscript = "";
183   if ($form->{jsscript}) {
184
185     # with JavaScript Calendar
186     $button1 = qq|
187        <td><input name=datepaid id=datepaid size=11 title="$myconfig{dateformat}" value="$form->{datepaid}" onBlur=\"check_right_date_format(this)\">
188        <input type=button name=datepaid id="trigger1" value=|
189       . $locale->text('button') . qq|></td>
190        |;
191
192     #write Trigger
193     $jsscript =
194       Form->write_trigger(\%myconfig, "1", "datepaid", "BL", "trigger1");
195   } else {
196
197     # without JavaScript Calendar
198     $button1 = qq|
199                               <td><input name=transdatefrom id=transdatefrom size=11 title="$myconfig{dateformat}" onBlur=\"check_right_date_format(this)\"></td>|;
200   }
201   $form->{javascript} .= qq|<script type="text/javascript" src="js/common.js"></script>|;
202   $form->header;
203
204   $arap = lc $form->{ARAP};
205   $onload = qq|focus()|;
206   $onload .= qq|;setupDateFormat('|. $myconfig{dateformat} .qq|', '|. $locale->text("Falsches Datumsformat!") .qq|')|;
207   $onload .= qq|;setupPoints('|. $myconfig{numberformat} .qq|', '|. $locale->text("wrongformat") .qq|')|;
208   print qq|
209 <body onLoad="$onload">
210
211 <form method=post action=$form->{script}>
212
213 <input type=hidden name=defaultcurrency value=$form->{defaultcurrency}>
214 <input type=hidden name=closedto value=$form->{closedto}>
215 <input type=hidden name=vc value=$form->{vc}>
216 <input type=hidden name=type value=$form->{type}>
217 <input type=hidden name=formname value=$form->{type}>
218 <input type=hidden name=queued value="$form->{queued}">
219 <input type=hidden name=arap value=$arap>
220 <input type=hidden name=ARAP value=$form->{ARAP}>
221 <input type=hidden name=openinvoices value=$form->{openinvoices}>
222 <input type=hidden name=title value="$form->{title}">
223 <input type=hidden name=origtitle value="$form->{origtitle}">
224
225 <table width=100%>
226   <tr>
227     <th class=listtop>$form->{title}</th>
228   </tr>
229   <tr height="5"></tr>
230   <tr>
231     <td>
232       <table width=100%>
233         <tr valign=top>
234           <td>
235             <table>
236               <tr>
237                 <td align=right>
238                 <input name=all_vc type=checkbox style=checkbox value=Y $allvc>
239                 <input type=hidden name="oldall_vc" value="$form->{all_vc}"></td>
240                 <th align=left>| . $locale->text('All') . qq|</th>
241               </tr>
242               <tr>
243                 <th align=right>$vclabel</th>
244                 <td>$vc</td>
245                 <input type=hidden name="select$form->{vc}" value="$form->{"select$form->{vc}"}">
246                 <input type=hidden name="$form->{vc}_id" value=$form->{"$form->{vc}_id"}>
247                 <input type=hidden name="old$form->{vc}" value="$form->{"old$form->{vc}"}">
248               </tr>
249               <tr valign=top>
250                 <th align=right nowrap>| . $locale->text('Address') . qq|</th>
251                 <td colspan=2>
252                   <table>
253                     <tr>
254                       <td>$form->{street}</td>
255                     </tr>
256                     <tr>
257                       <td>$form->{zipcode}</td>
258                     </tr>
259                     <tr>
260                       <td>$form->{city}</td>
261                     </tr>
262                     <tr>
263                       <td>$form->{country}</td>
264                     </tr>
265                   </table>
266                 </td>
267                 <input type=hidden name=street value="$form->{street}">
268                 <input type=hidden name=zipcode value="$form->{zipcode}">
269                 <input type=hidden name=city value="$form->{city}">
270                 <input type=hidden name=country value="$form->{country}">
271               </tr>
272               <tr>
273                 <th align=right>| . $locale->text('Memo') . qq|</th>
274                 <td colspan=2><input name="memo" size=30 value="$form->{memo}"></td>
275               </tr>
276             </table>
277           </td>
278           <td align=right>
279             <table>
280               $department
281               <tr>
282                 <th align=right nowrap>| . $locale->text($form->{ARAP}) . qq|</th>
283                 <td colspan=3><select name=$form->{ARAP}>$form->{"select$form->{ARAP}"}</select>
284                 </td>
285                 <input type=hidden name="select$form->{ARAP}" value="$form->{"select$form->{ARAP}"}">
286               </tr>
287               <tr>
288                 <th align=right nowrap>| . $locale->text('Account') . qq|</th>
289                 <td colspan=3><select name=account>$form->{selectaccount}</select>
290                 <input type=hidden name=selectaccount value="$form->{selectaccount}">
291                 </td>
292               </tr>
293               <tr>
294                 <th align=right nowrap>| . $locale->text('Date') . qq|</th>
295                 $button1
296               </tr>
297               <tr>
298                 <th align=right nowrap>| . $locale->text('Currency') . qq|</th>
299                 <td><select name=currency>$form->{selectcurrency}</select></td>
300                 <input type=hidden name=selectcurrency value="$form->{selectcurrency}">
301                 <input type=hidden name=oldcurrency value=$form->{oldcurrency}>
302               </tr>
303               $exchangerate
304               <tr>
305                 <th align=right nowrap>| . $locale->text('Source') . qq|</th>
306                 <td colspan=3><input name=source value="$form->{source}" size=10></td>
307               </tr>
308               <tr>
309                 <th align=right nowrap>| . $locale->text('Amount') . qq|</th>
310                 <td colspan=3><input name=amount size=10 value=|
311     . $form->format_amount(\%myconfig, $form->{amount}, 2) . qq| onBlur=\"check_right_number_format(this)\"></td>
312               </tr>
313             </table>
314           </td>
315         </tr>
316       </table>
317     </td>
318   </tr>
319
320 $jsscript
321 |;
322
323   $lxdebug->leave_sub();
324 }
325
326 sub list_invoices {
327   $lxdebug->enter_sub();
328
329   @column_index = qw(invnumber transdate amount due checked paid);
330
331   $colspan = $#column_index + 1;
332
333   $invoice = $locale->text('Invoices');
334
335   print qq|
336   <input type=hidden name=column_index value="id @column_index">
337   <tr>
338     <td>
339       <table width=100%>
340         <tr>
341           <th class=listheading colspan=$colspan>$invoice</th>
342         </tr>
343 |;
344
345   $column_data{invnumber} =
346     qq|<th nowrap class=listheading>| . $locale->text('Invoice') . "</th>";
347   $column_data{transdate} =
348     qq|<th nowrap class=listheading>| . $locale->text('Date') . "</th>";
349   $column_data{amount} =
350     qq|<th nowrap class=listheading>| . $locale->text('Amount') . "</th>";
351   $column_data{due} =
352     qq|<th nowrap class=listheading>| . $locale->text('Due') . "</th>";
353   $column_data{paid} =
354     qq|<th nowrap class=listheading>| . $locale->text('Amount') . "</th>";
355   $column_data{checked} =
356     qq|<th nowrap class=listheading>| . $locale->text('Select') . "</th>";
357
358   print qq|
359         <tr>
360 |;
361   map { print "$column_data{$_}\n" } @column_index;
362   print qq|
363         </tr>
364 |;
365
366   for $i (1 .. $form->{rowcount}) {
367
368     map {
369       $form->{"${_}_$i"} =
370         $form->parse_amount(\%myconfig, $form->{"${_}_$i"})
371     } qw(amount due paid);
372
373     $totalamount += $form->{"amount_$i"};
374     $totaldue    += $form->{"due_$i"};
375     $totalpaid   += $form->{"paid_$i"};
376
377     map {
378       $form->{"${_}_$i"} =
379         $form->format_amount(\%myconfig, $form->{"${_}_$i"}, 2)
380     } qw(amount due paid);
381
382     $column_data{invnumber} = qq|<td>$form->{"invnumber_$i"}</td>
383       <input type=hidden name="invnumber_$i" value="$form->{"invnumber_$i"}">
384       <input type=hidden name="id_$i" value=$form->{"id_$i"}>|;
385     $column_data{transdate} = qq|<td width=15%>$form->{"transdate_$i"}</td>
386       <input type=hidden name="transdate_$i" value=$form->{"transdate_$i"}>|;
387     $column_data{amount} =
388       qq|<td align=right width=15%>$form->{"amount_$i"}</td>
389       <input type=hidden name="amount_$i" value=$form->{"amount_$i"}>|;
390     $column_data{due} = qq|<td align=right width=15%>$form->{"due_$i"}</td>
391       <input type=hidden name="due_$i" value=$form->{"due_$i"}>|;
392
393     $column_data{paid} =
394       qq|<td align=right width=15%><input name="paid_$i" size=10 value=$form->{"paid_$i"}></td>|;
395
396     $form->{"checked_$i"} = ($form->{"checked_$i"}) ? "checked" : "";
397     $column_data{checked} =
398       qq|<td align=center width=10%><input name="checked_$i" type=checkbox style=checkbox $form->{"checked_$i"}></td>|;
399
400     $j++;
401     $j %= 2;
402     print qq|
403         <tr class=listrow$j>
404 |;
405     map { print "$column_data{$_}\n" } @column_index;
406     print qq|
407         </tr>
408 |;
409   }
410
411   map { $column_data{$_} = "<td>&nbsp;</td>" } @column_index;
412
413   $column_data{amount} =
414       qq|<th class=listtotal align=right>|
415     . $form->format_amount(\%myconfig, $totalamount, 2, "&nbsp;")
416     . qq|</th>|;
417   $column_data{due} =
418       qq|<th class=listtotal align=right>|
419     . $form->format_amount(\%myconfig, $totaldue, 2, "&nbsp;")
420     . qq|</th>|;
421   $column_data{paid} =
422       qq|<th class=listtotal align=right>|
423     . $form->format_amount(\%myconfig, $totalpaid, 2, "&nbsp;")
424     . qq|</th>|;
425
426   print qq|
427         <tr class=listtotal>
428 |;
429   map { print "$column_data{$_}\n" } @column_index;
430   print qq|
431         </tr>
432       </table>
433     </td>
434   </tr>
435 |;
436
437   $lxdebug->leave_sub();
438 }
439
440 sub form_footer {
441   $lxdebug->enter_sub();
442
443   $form->{DF}{ $form->{format} } = "selected";
444   $form->{OP}{ $form->{media} }  = "selected";
445
446   $media = qq|
447           <option value=screen $form->{OP}{screen}>| . $locale->text('Screen');
448
449   if ($myconfig{printer} && $latex_templates) {
450     $media .= qq|
451           <option value=printer $form->{OP}{printer}>|
452       . $locale->text('Printer');
453   }
454   if ($latex_templates) {
455     $media .= qq|
456           <option value=queue $form->{OP}{queue}>| . $locale->text('Queue');
457     $format .= qq|
458             <option value=postscript $form->{DF}{postscript}>|
459       . $locale->text('Postscript') . qq|
460             <option value=pdf $form->{DF}{pdf}>| . $locale->text('PDF');
461   }
462
463   print qq|
464   <tr>
465     <td><hr size=3 noshade></td>
466   </tr>
467 </table>
468 <input type=hidden name=rowcount value=$form->{rowcount}>
469
470 <input type=hidden name=path value=$form->{path}>
471 <input type=hidden name=login value=$form->{login}>
472 <input type=hidden name=password value=$form->{password}>
473
474 <br>
475 <input class=submit type=submit name=action value="|
476     . $locale->text('Update') . qq|">
477 <input class=submit type=submit name=action value="|
478     . $locale->text('Post') . qq|">|;
479
480   if ($latex_templates) {
481     print qq|
482 <input class=submit type=submit name=action value="|
483       . $locale->text('Print') . qq|">|;
484   }
485
486   print qq|
487 <select name=format>$format</select>
488 <select name=media>$media</select>
489
490   </form>
491
492 </body>
493 </html>
494 |;
495
496   $lxdebug->leave_sub();
497 }
498
499 sub update {
500   $lxdebug->enter_sub();
501
502   my ($new_name_selected) = @_;
503
504   if ($form->{vc} eq 'customer') {
505     $buysell = "buy";
506   } else {
507     $buysell = "sell";
508   }
509
510   # if we switched to all_vc
511   if ($form->{all_vc} ne $form->{oldall_vc}) {
512
513     $form->{openinvoices} = ($form->{all_vc}) ? 0 : 1;
514
515     $form->{"select$form->{vc}"} = "";
516
517     if ($form->{all_vc}) {
518       $form->all_vc(\%myconfig, $form->{vc}, $form->{ARAP});
519
520       if ($form->{"all_$form->{vc}"}) {
521         map {
522           $form->{"select$form->{vc}"} .=
523             "<option>$_->{name}--$_->{id}\n"
524         } @{ $form->{"all_$form->{vc}"} };
525       }
526     } else {
527       CP->get_openvc(\%myconfig, \%$form);
528
529       if ($form->{"all_$form->{vc}"}) {
530         $newvc =
531           qq|$form->{"all_$form->{vc}"}[0]->{name}--$form->{"all_$form->{vc}"}[0]->{id}|;
532         map {
533           $form->{"select$form->{vc}"} .=
534             "<option>$_->{name}--$_->{id}\n"
535         } @{ $form->{"all_$form->{vc}"} };
536       }
537
538       # if the name is not the same
539       if ($form->{"select$form->{vc}"} !~ /$form->{$form->{vc}}/) {
540         $form->{ $form->{vc} } = $newvc;
541       }
542     }
543   }
544
545   # get customer and invoices
546   $updated = &check_name($form->{vc});
547
548   if ($new_name_selected || $updated) {
549     CP->get_openinvoices(\%myconfig, \%$form);
550     ($newvc) = split /--/, $form->{ $form->{vc} };
551     $form->{"old$form->{vc}"} = qq|$newvc--$form->{"$form->{vc}_id"}|;
552     $updated = 1;
553   }
554
555   if ($form->{currency} ne $form->{oldcurrency}) {
556     $form->{oldcurrency} = $form->{currency};
557     if (!$updated) {
558       CP->get_openinvoices(\%myconfig, \%$form);
559       $updated = 1;
560     }
561   }
562
563   $form->{exchangerate} = $exchangerate
564     if (
565         $form->{forex} = (
566                    $exchangerate =
567                      $form->check_exchangerate(
568                      \%myconfig, $form->{currency}, $form->{datepaid}, $buysell
569                      )));
570
571   $amount = $form->{amount} = $form->parse_amount(\%myconfig, $form->{amount});
572
573   if ($updated) {
574     $form->{rowcount} = 0;
575
576     $form->{queued} = "";
577
578     $i = 0;
579     foreach $ref (@{ $form->{PR} }) {
580       $i++;
581       $form->{"id_$i"}        = $ref->{id};
582       $form->{"invnumber_$i"} = $ref->{invnumber};
583       $form->{"transdate_$i"} = $ref->{transdate};
584       $ref->{exchangerate} = 1 unless $ref->{exchangerate};
585       $form->{"amount_$i"} = $ref->{amount} / $ref->{exchangerate};
586       $form->{"due_$i"}    =
587         ($ref->{amount} - $ref->{paid}) / $ref->{exchangerate};
588       $form->{"checked_$i"} = "";
589       $form->{"paid_$i"}    = "";
590
591       # need to format
592       map {
593         $form->{"${_}_$i"} =
594           $form->format_amount(\%myconfig, $form->{"${_}_$i"}, 2)
595       } qw(amount due);
596
597     }
598     $form->{rowcount} = $i;
599   }
600
601   # recalculate
602
603   # Modified from $amount = $form->{amount} by J.Zach to update amount to total
604   # payment amount in Zahlungsausgang
605   $amount = 0;
606   for $i (1 .. $form->{rowcount}) {
607
608     map {
609       $form->{"${_}_$i"} =
610         $form->parse_amount(\%myconfig, $form->{"${_}_$i"})
611     } qw(amount due paid);
612
613     if ($form->{"checked_$i"}) {
614
615       # calculate paid_$i
616       if (!$form->{"paid_$i"}) {
617         $form->{"paid_$i"} = $form->{"due_$i"};
618       }
619
620       # Modified by J.Zach, see abovev
621       $amount += $form->{"paid_$i"}; 
622
623     } else {
624       $form->{"paid_$i"} = "";
625     }
626
627     map {
628       $form->{"${_}_$i"} =
629         $form->format_amount(\%myconfig, $form->{"${_}_$i"}, 2)
630     } qw(amount due paid);
631
632   }
633
634   # Line added by J.Zach, see above
635   $form->{amount}=$amount; 
636
637   &form_header;
638   &list_invoices;
639   &form_footer;
640
641   $lxdebug->leave_sub();
642 }
643
644 sub post {
645   $lxdebug->enter_sub();
646
647   &check_form;
648
649   if ($form->{currency} ne $form->{defaultcurrency}) {
650     $form->error($locale->text('Exchangerate missing!'))
651       unless $form->{exchangerate};
652   }
653
654   $msg1 = "$form->{origtitle} posted!";
655   $msg2 = "Cannot post $form->{origtitle}!";
656
657   # $locale->text('Payment posted!')
658   # $locale->text('Receipt posted!')
659   # $locale->text('Cannot post Payment!')
660   # $locale->text('Cannot post Receipt!')
661
662   $form->redirect($locale->text($msg1))
663     if (CP->process_payment(\%myconfig, \%$form));
664   $form->error($locale->text($msg2));
665
666   $lxdebug->leave_sub();
667 }
668
669 sub print {
670   $lxdebug->enter_sub();
671
672   &check_form;
673
674   ($whole, $form->{decimal}) = split(/\./, $form->{amount});
675
676   $form->{amount} = $form->format_amount(\%myconfig, $form->{amount}, 2);
677
678   $form->{decimal} .= "00";
679   $form->{decimal} = substr($form->{decimal}, 0, 2);
680
681   $check = new CP $myconfig{countrycode};
682   $check->init;
683   $form->{text_amount} = $check->num2text($whole);
684
685   call_sub("$form->{vc}_details");
686
687   $form->{callback} = "";
688
689   $form->{templates} = "$myconfig{templates}";
690   $form->{IN}        = "$form->{formname}.tex";
691
692   if ($form->{format} eq 'postscript') {
693     $form->{postscript} = 1;
694   }
695   if ($form->{format} eq 'pdf') {
696     $form->{pdf} = 1;
697   }
698
699   if ($form->{media} eq 'printer') {
700     $form->{OUT} = "| $myconfig{printer}";
701   }
702   if ($form->{media} eq 'queue') {
703     %queued = split / /, $form->{queued};
704
705     if ($filename = $queued{ $form->{formname} }) {
706       unlink "$spool/$filename";
707       $filename =~ s/\..*$//g;
708     } else {
709       $filename = time;
710       $filename .= $$;
711     }
712     $filename .= ($form->{postscript}) ? '.ps' : '.pdf';
713     $form->{queued} = "$form->{formname} $filename";
714     $form->{OUT}    = ">$spool/$filename";
715
716     $form->update_status(\%myconfig);
717
718   }
719
720   $form->{company} = $myconfig{company};
721   $form->{address} = $myconfig{address};
722
723   $form->parse_template(\%myconfig, $userspath);
724
725   if ($form->{media} ne 'screen') {
726     $form->{callback} =
727       "$form->{script}?action=payment&vc=$form->{vc}&path=$form->{path}&login=$form->{login}&password=$form->{password}&all_vc=$form->{all_vc}";
728
729     $form->redirect if (CP->process_payment(\%myconfig, \%$form));
730     $form->error($locale->text('Cannot post payment!'));
731   }
732
733   $lxdebug->leave_sub();
734 }
735
736 sub customer_details { IS->customer_details(\%myconfig, \%$form) }
737 sub vendor_details { IR->vendor_details(\%myconfig, \%$form) }
738
739 sub check_form {
740   $lxdebug->enter_sub();
741
742   &check_name($form->{vc});
743
744   if ($form->{currency} ne $form->{oldcurrency}) {
745     &update;
746     exit;
747   }
748
749   $form->error($locale->text('Date missing!')) unless $form->{datepaid};
750
751   $closedto = $form->datetonum($form->{closedto}, \%myconfig);
752   $datepaid = $form->datetonum($form->{datepaid}, \%myconfig);
753
754   $form->error($locale->text('Cannot process payment for a closed period!'))
755     if ($datepaid <= $closedto);
756
757   $amount = $form->parse_amount(\%myconfig, $form->{amount});
758   $form->{amount} = $amount;
759
760   for $i (1 .. $form->{rowcount}) {
761     if ($form->parse_amount(\%myconfig, $form->{"paid_$i"})) {
762       $amount -= $form->parse_amount($myconfig, $form->{"paid_$i"});
763
764       push(@{ $form->{paid} },      $form->{"paid_$i"});
765       push(@{ $form->{due} },       $form->{"due_$i"});
766       push(@{ $form->{invnumber} }, $form->{"invnumber_$i"});
767       push(@{ $form->{invdate} },   $form->{"transdate_$i"});
768     }
769   }
770
771   if ($form->round_amount($amount, 2) != 0) {
772     push(@{ $form->{paid} }, $form->format_amount(\%myconfig, $amount, 2));
773     push(@{ $form->{due} }, $form->format_amount(\%myconfig, 0, "0"));
774     push(@{ $form->{invnumber} },
775          ($form->{ARAP} eq 'AR')
776          ? $locale->text('Deposit')
777          : $locale->text('Prepayment'));
778     push(@{ $form->{invdate} }, $form->{datepaid});
779   }
780
781   $lxdebug->leave_sub();
782 }