arap.pl: merge conflict hatte broken Pod hinterlassen.
[kivitendo-erp.git] / bin / mozilla / rc.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 # Account reconciliation module
31 #
32 #======================================================================
33
34 use SL::RC;
35
36 require "bin/mozilla/common.pl";
37
38 use strict;
39
40 1;
41
42 # end of main
43
44 sub reconciliation {
45   $main::lxdebug->enter_sub();
46
47   my $form     = $main::form;
48   my %myconfig = %main::myconfig;
49   my $locale   = $main::locale;
50
51   $main::auth->assert('cash');
52
53   RC->paymentaccounts(\%myconfig, \%$form);
54
55   my $selection = "";
56   map { $selection .= "<option>$_->{accno}--$_->{description}\n" }
57     @{ $form->{PR} };
58
59   $form->{title} = $locale->text('Reconciliation');
60   $form->{javascript} .= qq|<script type="text/javascript" src="js/common.js"></script>|;
61   $form->{"jsscript"} = 1;
62   $form->header;
63   my $onload = qq|focus()|;
64   $onload .= qq|;setupDateFormat('|. $myconfig{dateformat} .qq|', '|. $locale->text("Falsches Datumsformat!") .qq|')|;
65
66   print qq|
67 <body onLoad="$onload">
68
69 <form method=post action=$form->{script}>
70
71 <table width=100%>
72   <tr>
73     <th class=listtop>$form->{title}</th>
74   </tr>
75   <tr height="5"></tr>
76   <tr>
77     <td>
78       <table>
79         <tr>
80           <th align=right nowrap>| . $locale->text('Account') . qq|</th>
81           <td colspan=3><select name=accno>$selection</select>
82           </td>
83         </tr>
84         <tr>
85           <th align=right>| . $locale->text('From') . qq|</th>
86           <td><input name=fromdate id=fromdate size=11 title="$myconfig{dateformat}" onBlur=\"check_right_date_format(this)\">
87          <input type="button" name="fromdate" id="trigger_fromdate" value="?"></td>
88           <th align=right>| . $locale->text('Until') . qq|</th>
89           <td><input name=todate id=todate size=11 title="$myconfig{dateformat}" onBlur=\"check_right_date_format(this)\">
90          <input type="button" name="todate" id="trigger_todate" value="?"></td>
91         </tr>
92       </table>
93     </td>
94   </tr>
95   <tr>
96     <td><hr size=3 noshade></td>
97   </tr>
98 </table>
99
100 | . $form->write_trigger(\%myconfig, 2,
101                          "fromdate", "BL", "trigger_fromdate",
102                          "todate", "BL", "trigger_todate") . qq|
103
104 <br>
105 <input type=hidden name=nextsub value=get_payments>
106
107 <input type=submit class=submit name=action value="|
108     . $locale->text('Continue') . qq|">
109
110 </form>
111
112 </body>
113 </html>
114 |;
115
116   $main::lxdebug->leave_sub();
117 }
118
119 sub continue { call_sub($main::form->{"nextsub"}); }
120
121 sub get_payments {
122   $main::lxdebug->enter_sub();
123
124   my $form     = $main::form;
125   my %myconfig = %main::myconfig;
126
127   $main::auth->assert('cash');
128
129   ($form->{accno}, $form->{account}) = split /--/, $form->{accno};
130
131   RC->payment_transactions(\%myconfig, \%$form);
132
133   &display_form;
134
135   $main::lxdebug->leave_sub();
136 }
137
138 sub display_form {
139   $main::lxdebug->enter_sub();
140
141   my $form     = $main::form;
142   my %myconfig = %main::myconfig;
143   my $locale   = $main::locale;
144
145   $main::auth->assert('cash');
146
147   my @column_index = qw(cleared transdate source name credit debit balance);
148   my %column_header;
149   $column_header{cleared} = "<th>&nbsp;</th>";
150   $column_header{source}  =
151     "<th class=listheading>" . $locale->text('Source') . "</a></th>";
152   $column_header{name} =
153     "<th class=listheading>" . $locale->text('Description') . "</a></th>";
154   $column_header{transdate} =
155     "<th class=listheading>" . $locale->text('Date') . "</a></th>";
156
157   if ($form->{category} eq 'A') {
158     $column_header{debit} =
159       "<th class=listheading>" . $locale->text('Deposit') . "</a></th>";
160     $column_header{credit} =
161       "<th class=listheading>" . $locale->text('Payment') . "</a></th>";
162   } else {
163     $column_header{debit} =
164       "<th class=listheading>" . $locale->text('Decrease') . "</a></th>";
165     $column_header{credit} =
166       "<th class=listheading>" . $locale->text('Increase') . "</a></th>";
167   }
168
169   $column_header{balance} =
170     "<th class=listheading>" . $locale->text('Balance') . "</a></th>";
171
172   my $option;
173   if ($form->{fromdate}) {
174     $option .= "\n<br>" if ($option);
175     $option .=
176         $locale->text('From') . "&nbsp;"
177       . $locale->date(\%myconfig, $form->{fromdate}, 0);
178   }
179   if ($form->{todate}) {
180     $option .= "\n<br>" if ($option);
181     $option .=
182         $locale->text('Until') . "&nbsp;"
183       . $locale->date(\%myconfig, $form->{todate}, 0);
184   }
185
186   $form->{title} = "$form->{accno}--$form->{account}";
187
188   $form->header;
189
190   print qq|
191 <body>
192
193 <form method=post action=$form->{script}>
194
195 <table width=100%>
196   <tr>
197     <th class=listtop>$form->{title}</th>
198   </tr>
199   <tr height="5"></tr>
200   <tr>
201     <td>$option</td>
202   </tr>
203   <tr>
204     <td>
205       <table width=100%>
206         <tr class=listheading>
207 |;
208
209   map { print "\n$column_header{$_}" } @column_index;
210
211   print qq|
212         </tr>
213 |;
214
215   my $ml = ($form->{category} eq 'A') ? -1 : 1;
216   $form->{beginningbalance} *= $ml;
217   my $balance        = $form->{beginningbalance};
218   my $clearedbalance = $balance;
219   my $i              = 0;
220   my $id             = 0;
221
222   my %column_data;
223   map { $column_data{$_} = "<td>&nbsp;</td>" }
224     qw(cleared transdate source name debit credit);
225   $column_data{balance} =
226     "<td align=right>"
227     . $form->format_amount(\%myconfig, $balance, 2, 0) . "</td>";
228   my $j = 0;
229   print qq|
230         <tr class=listrow$j>
231 |;
232
233   map { print "\n$column_data{$_}" } @column_index;
234
235   print qq|
236         </tr>
237 |;
238
239   my $cleared;
240   my $totaldebits;
241   my $totalcredits;
242   my $fx_transaction;
243   my $fx;
244   foreach my $ref (@{ $form->{PR} }) {
245
246     $balance += $ref->{amount} * $ml;
247     $cleared += $ref->{amount} * $ml if $ref->{cleared};
248
249     $column_data{name}   = "<td>$ref->{name}&nbsp;</td>";
250     $column_data{source} = qq|<td>$ref->{source}&nbsp;</a>
251     </td>|;
252     $column_data{transdate} = "<td>$ref->{transdate}&nbsp;</td>";
253
254     $column_data{debit}  = "<td>&nbsp;</td>";
255     $column_data{credit} = "<td>&nbsp;</td>";
256
257     if ($ref->{amount} < 0) {
258       $totaldebits += $ref->{amount} * -1;
259       $column_data{debit} =
260           "<td align=right>"
261         . $form->format_amount(\%myconfig, $ref->{amount} * -1, 2, "&nbsp;")
262         . "</td>";
263     } else {
264       $totalcredits += $ref->{amount};
265       $column_data{credit} =
266           "<td align=right>"
267         . $form->format_amount(\%myconfig, $ref->{amount}, 2, "&nbsp;")
268         . "</td>";
269     }
270
271     $column_data{balance} =
272       "<td align=right>"
273       . $form->format_amount(\%myconfig, $balance, 2, 0) . "</td>";
274
275     if ($ref->{fx_transaction}) {
276       $i++ unless $id == $ref->{id};
277       $fx_transaction = 1;
278       $fx += $ref->{amount} * $ml;
279       $column_data{cleared} = qq|<td align=center>&nbsp;
280       <input type=hidden name="fxoid_$i" value=$ref->{oid}>
281       </td>|;
282     } else {
283       $i++ unless ($fx_transaction && $id == $ref->{id});
284       $fx_transaction = 0;
285       $column_data{cleared} = qq|<td>
286       <input name="cleared_$i" type=checkbox class=checkbox value=1 $ref->{cleared}>
287       <input type=hidden name="oid_$i" value=$ref->{oid}>
288       </td>|;
289     }
290     $id = $ref->{id};
291
292     $j++;
293     $j %= 2;
294     print qq|
295         <tr class=listrow$j>
296 |;
297
298     map { print "\n$column_data{$_}" } @column_index;
299
300     print qq|
301         </tr>
302 |;
303
304   }
305
306   # print totals
307   map { $column_data{$_} = "<td>&nbsp;</td>" } @column_index;
308
309   $column_data{debit} =
310     "<th class=listtotal align=right>"
311     . $form->format_amount(\%myconfig, $totaldebits, 2, "&nbsp;") . "</th>";
312   $column_data{credit} =
313     "<th class=listtotal align=right>"
314     . $form->format_amount(\%myconfig, $totalcredits, 2, "&nbsp;") . "</th>";
315
316   print qq|
317         <tr class=listtotal>
318 |;
319
320   map { print "\n$column_data{$_}" } @column_index;
321
322   $form->{statementbalance} =
323     $form->parse_amount(\%myconfig, $form->{statementbalance});
324   my $difference =
325     $form->format_amount(\%myconfig,
326                         $form->{statementbalance} - $clearedbalance - $cleared,
327                         2, 0);
328
329   $form->{statementbalance} =
330     $form->format_amount(\%myconfig, $form->{statementbalance}, 2, 0);
331
332   $clearedbalance = $form->format_amount(\%myconfig, $clearedbalance, 2, 0);
333
334   my $exchdiff;
335   if ($fx) {
336     $fx       = $form->format_amount(\%myconfig, $fx, 2, 0);
337     $exchdiff = qq|
338           <th align=right nowrap>| . $locale->text('Exchangerate Difference') . qq|</th>
339           <td width=10%></td>
340           <td align=right>$fx</td>
341 |;
342   }
343
344   print qq|
345         </tr>
346       </table>
347     </td>
348   </tr>
349   <tr>
350     <td>
351       <table width=100%>
352         <tr valign=top>
353           <td>
354             <table>
355               <tr>
356                 <th align=right nowrap>| . $locale->text('Cleared Balance') . qq|</th>
357                 <td width=10%></td>
358                 <td align=right>$clearedbalance</td>
359               </tr>
360               <tr>
361                 $exchdiff
362               </tr>
363             </table>
364           </td>
365           <td align=right>
366             <table>
367               <tr>
368                 <th align=right nowrap>| . $locale->text('Statement Balance') . qq|</th>
369                 <td width=10%></td>
370                 <td align=right><input name=statementbalance size=11 value=$form->{statementbalance}></td>
371               </tr>
372               <tr>
373                 <th align=right nowrap>| . $locale->text('Difference') . qq|</th>
374                 <td width=10%></td>
375                 <td align=right><input name=null size=11 value=$difference></td>
376                 <input type=hidden name=difference value=$difference>
377               </tr>
378             </table>
379           </td>
380         </tr>
381       </table>
382     </td>
383   </tr>
384   <tr>
385     <td><hr size=3 noshade></td>
386   </tr>
387 </table>
388
389 <input type=hidden name=rowcount value=$i>
390 <input type=hidden name=accno value=$form->{accno}>
391 <input type=hidden name=account value="$form->{account}">
392
393 <input type=hidden name=fromdate value=$form->{fromdate}>
394 <input type=hidden name=todate value=$form->{todate}>
395
396 <br>
397 <input type=submit class=submit name=action value="|
398     . $locale->text('Update') . qq|">
399 <input type=submit class=submit name=action value="|
400     . $locale->text('Select all') . qq|">
401 <input type=submit class=submit name=action value="|
402     . $locale->text('Done') . qq|">
403
404 </form>
405
406 </body>
407 </html>
408 |;
409
410   $main::lxdebug->leave_sub();
411 }
412
413 sub update {
414   $main::lxdebug->enter_sub();
415
416   my $form     = $main::form;
417   my %myconfig = %main::myconfig;
418
419   $main::auth->assert('cash');
420
421   RC->payment_transactions(\%myconfig, \%$form);
422
423   my $i;
424   foreach my $ref (@{ $form->{PR} }) {
425     if (!$ref->{fx_transaction}) {
426       $i++;
427       $ref->{cleared} = ($form->{"cleared_$i"}) ? "checked" : "";
428     }
429   }
430
431   &display_form;
432
433   $main::lxdebug->leave_sub();
434 }
435
436 sub select_all {
437   $main::lxdebug->enter_sub();
438
439   my $form     = $main::form;
440   my %myconfig = %main::myconfig;
441
442   $main::auth->assert('cash');
443
444   RC->payment_transactions(\%myconfig, \%$form);
445
446   map { $_->{cleared} = "checked" unless $_->{fx_transaction} }
447     @{ $form->{PR} };
448
449   &display_form;
450
451   $main::lxdebug->leave_sub();
452 }
453
454 sub done {
455   $main::lxdebug->enter_sub();
456
457   my $form     = $main::form;
458   my %myconfig = %main::myconfig;
459   my $locale   = $main::locale;
460
461   $main::auth->assert('cash');
462
463   $form->{callback} = "$form->{script}?action=reconciliation";
464
465   $form->error($locale->text('Out of balance!')) if ($form->{difference} *= 1);
466
467   RC->reconcile(\%myconfig, \%$form);
468   $form->redirect;
469
470   $main::lxdebug->leave_sub();
471 }
472