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