Ansprechpersonen: Feld "Funktion/Position"
[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::IS;
36 use SL::IR;
37 use SL::AR;
38 use SL::AP;
39 use Data::Dumper;
40 use strict;
41 #use warnings;
42
43 require "bin/mozilla/arap.pl";
44 require "bin/mozilla/common.pl";
45
46 our ($form, %myconfig, $lxdebug, $locale, $auth);
47
48 1;
49
50 # end of main
51
52 sub payment {
53   $lxdebug->enter_sub();
54
55   $auth->assert('cash');
56
57   my (@curr);
58
59   $form->{ARAP} = ($form->{type} eq 'receipt') ? "AR" : "AP";
60   $form->{arap} = lc $form->{ARAP};
61
62   # setup customer/vendor selection for open invoices
63   if ($form->{all_vc}) {
64     # Dieser Zweig funktioniert derzeit NIE. Ggf. ganz raus oder
65     # alle offenen Zahlungen wieder korrekt anzeigen. jb 12.10.2010
66     $form->all_vc(\%myconfig, $form->{vc}, $form->{ARAP});
67   } else {
68     CP->get_openvc(\%myconfig, \%$form);
69   }
70   # Auswahlliste für vc zusammenbauen
71   # Erweiterung für schliessende option und erweiterung um value
72   # für bugfix 1771 (doppelte Leerzeichen werden nicht 'gepostet')
73   $form->{"select$form->{vc}"} = "";
74
75   $form->{selectcustomer} .= "<option value=\"\"></option>\n" if $form->{vc} eq "customer";
76
77   if ($form->{"all_$form->{vc}"}) {
78     # s.o. jb 12.10.2010
79     $form->{"$form->{vc}_id"} = $form->{"all_$form->{vc}"}->[0]->{id};
80     map { $form->{"select$form->{vc}"} .= "<option value=\"$_->{name}--$_->{id}\">$_->{name}--$_->{id}</option>\n" }
81       @{ $form->{"all_$form->{vc}"} };
82   }
83   CP->paymentaccounts(\%myconfig, \%$form);
84
85   # Standard Konto für Umlaufvermögen
86   my $accno_arap = IS->get_standard_accno_current_assets(\%myconfig, \%$form);
87   # Entsprechend präventiv die Auswahlliste für Kontonummer
88   # auch mit value= zusammenbauen (s.a. oben bugfix 1771)
89   # Wichtig: Auch das Template anpassen, damit hidden input korrekt die "
90   # escaped.
91   $form->{selectaccount} = "";
92   $form->{"select$form->{ARAP}"} = "";
93
94   map { $form->{selectaccount} .= "<option value=\"$_->{accno}--$_->{description}\">$_->{accno}--$_->{description}</option>\n";
95         $form->{account}        = "$_->{accno}--$_->{description}" if ($_->{accno} eq $accno_arap) } @{ $form->{PR}{"$form->{ARAP}_paid"} };
96
97   # Braucht man das hier überhaupt? Erstmal auskommentieren .. jan 18.12.2010
98   #  map {
99   #    $form->{"select$form->{ARAP}"} .=
100   #      "<option>$_->{accno}--$_->{description}\n"
101   #  } @{ $form->{PR}{ $form->{ARAP} } };
102   # ENDE LOESCHMICH in 2012
103
104   # currencies
105   # oldcurrency ist zwar noch hier als fragment enthalten, wird aber bei
106   # der aktualisierung der form auch nicht mitübernommen. das konzept
107   # old_$FOO habe ich auch noch nicht verstanden ...
108   # Ok. Wenn currency übernommen werden, dann in callback-string über-
109   # geben und hier reinparsen, oder besser multibox oder html auslagern?
110   # Antwort: form->currency wird mit oldcurrency oder curr[0] überschrieben
111   # Wofür macht das Sinn?
112   @curr = split(/:/, $form->{currencies});
113   chomp $curr[0];
114   $form->{defaultcurrency} = $form->{currency} = $form->{oldcurrency} =
115     $curr[0];
116
117   # Entsprechend präventiv die Auswahlliste für Währungen
118   # auch mit value= zusammenbauen (s.a. oben bugfix 1771)
119   $form->{selectcurrency} = "";
120   map { $form->{selectcurrency} .= "<option value=\"$_\">$_</option>\n" } @curr;
121
122
123   &form_header;
124   &form_footer;
125
126   $lxdebug->leave_sub();
127 }
128
129 sub form_header {
130   $lxdebug->enter_sub;
131
132   $auth->assert('cash');
133
134   my ($vc, $arap, $exchangerate);
135
136   if ($form->{ $form->{vc} } eq "") {
137     map { $form->{"addr$_"} = "" } (1 .. 4);
138   }
139
140   # sometimes it happens that values in customer arrive without the signs '--'
141   # but in order to select the right option field we need values with '--'
142   if ($form->{vc} eq "customer"){
143     my ($customername) = split /--/, $form->{ $form->{vc} };
144     $form->{ $form->{vc} } = $customername . "--" . $form->{customer_id};
145   }
146   # bugfix 1771
147   # geändert von <option>asdf--2929
148   # nach:
149   #              <option value="asdf--2929">asdf--2929</option>
150   # offen: $form->{ARAP} kann raus?
151   for my $item ($form->{vc}, "account", "currency", $form->{ARAP}) {
152     $form->{"select$item"} =~ s/ selected//;
153     $form->{"select$item"} =~ s/option value="\Q$form->{$item}\E">\Q$form->{$item}\E/option selected value="$form->{$item}">$form->{$item}/;
154   }
155
156   $vc =
157     ($form->{"select$form->{vc}"})
158     ? qq|<select name=$form->{vc}>$form->{"select$form->{vc}"}\n</select>|
159     : qq|<input name=$form->{vc} size=35 value="$form->{$form->{vc}}">|;
160
161   $form->{openinvoices} = $form->{all_vc} ? "" : 1;
162
163   # $locale->text('AR')
164   # $locale->text('AP')
165
166   $form->header;
167
168   $arap = lc $form->{ARAP};
169
170   print $::form->parse_html_template('cp/form_header', {
171     is_customer => $form->{vc}   eq 'customer',
172     is_receipt  => $form->{type} eq 'receipt',
173     arap        => $arap,
174     vccontent   => $vc,
175   });
176
177   $lxdebug->leave_sub;
178 }
179
180 sub list_invoices {
181   $::lxdebug->enter_sub;
182   $::auth->assert('cash');
183
184   my @columns = qw(amount due paid invnumber id transdate checked);
185   my (@invoices, %total);
186   for my $i (1 .. $::form->{rowcount}) {
187     push @invoices, +{ map { $_ => $::form->{"$_\_$i"} } @columns };
188     $total{$_} += $invoices[-1]{$_} = $::form->parse_amount(\%::myconfig, $invoices[-1]{$_}) for qw(amount due paid);
189   }
190
191   print $::form->parse_html_template('cp/invoices', {
192     invoices => \@invoices,
193     totals   => \%total,
194   });
195
196   $::lxdebug->leave_sub;
197 }
198
199 sub form_footer {
200   $::lxdebug->enter_sub;
201   $::auth->assert('cash');
202
203   print $::form->parse_html_template('cp/form_footer');
204
205   $::lxdebug->leave_sub;
206 }
207
208 sub update {
209   $lxdebug->enter_sub();
210
211   $auth->assert('cash');
212
213   my ($new_name_selected) = @_;
214
215   my ($buysell, $newvc, $updated, $exchangerate, $amount);
216
217   if ($form->{vc} eq 'customer') {
218     $buysell = "buy";
219   } else {
220     $buysell = "sell";
221   }
222
223   # if we switched to all_vc
224   # funktioniert derzeit nicht 12.10.2010 jb
225   if ($form->{all_vc} ne $form->{oldall_vc}) {
226
227     $form->{openinvoices} = ($form->{all_vc}) ? 0 : 1;
228
229     $form->{"select$form->{vc}"} = "";
230
231     if ($form->{all_vc}) {
232       $form->all_vc(\%myconfig, $form->{vc}, $form->{ARAP});
233
234       if ($form->{"all_$form->{vc}"}) {
235         map {
236           $form->{"select$form->{vc}"} .=
237             "<option>$_->{name}--$_->{id}\n"
238         } @{ $form->{"all_$form->{vc}"} };
239       }
240     } else {  # ab hier wieder ausgeführter code (s.o.):
241       CP->get_openvc(\%myconfig, \%$form);
242
243       if ($form->{"all_$form->{vc}"}) {
244         $newvc =
245           qq|$form->{"all_$form->{vc}"}[0]->{name}--$form->{"all_$form->{vc}"}[0]->{id}|;
246         map {
247           $form->{"select$form->{vc}"} .=
248             "<option>$_->{name}--$_->{id}\n"
249         } @{ $form->{"all_$form->{vc}"} };
250       }
251
252       # if the name is not the same
253       if ($form->{"select$form->{vc}"} !~ /$form->{$form->{vc}}/) {
254         $form->{ $form->{vc} } = $newvc;
255       }
256     }
257   }
258
259   # search by customernumber
260   # the customernumber has to be correct otherwise nothing is found
261   if ($form->{vc} eq 'customer' and $form->{customernumber} and $form->{ARAP} eq 'AR') {
262     $form->{open} ='Y'; # only open invoices
263     # ar_transactions automatically searches by $form->{customer_id} or else
264     # $form->{customer} if available, and these variables will always be set
265     # so we have to empty these values first
266     $form->{customer_id} = '';
267     $form->{customer} = '';
268     AR->ar_transactions(\%myconfig, \%$form);
269
270     # Here we just take the first returned value even if the custumernumber
271     # may not be unique
272     $form->{customer} = $form->{AR}[0]{name};
273     $form->{customer_id} = $form->{AR}[0]{customer_id};
274   }
275
276   # search by invoicenumber,
277   if ($form->{invnumber}) {
278     $form->{open} ='Y'; # only open invoices
279     if ($form->{ARAP} eq 'AR'){
280       # ar_transactions automatically searches by $form->{customer_id} or else
281       # $form->{customer} if available, and these variables will always be set
282       # so we have to empty these values first
283       $form->{customer_id} = '';
284       $form->{customer} = '';
285       AR->ar_transactions(\%myconfig, \%$form);
286
287       # if you search for invoice '11' ar_transactions will also match invoices
288       # 112, 211, ... due to the LIKE
289
290       # so there is now an extra loop that tries to match the invoice number
291       # exactly among all returned results, and then passes the customer_id instead of the name
292       # because the name may not be unique
293
294       my $found_exact_invnumber_match = 0;
295       foreach my $i ( @{ $form->{AR} } ) {
296         next unless $i->{invnumber} eq $form->{invnumber};
297         # found exactly matching invnumber
298         $form->{$form->{vc}} = $i->{name};
299         $form->{customer_id} = $i->{customer_id};
300         #$form->{"old${form->{vc}"} = $i->{customer_id};
301         $found_exact_invnumber_match = 1;
302       };
303
304       unless ( $found_exact_invnumber_match ) {
305         # use first returned entry, may not be the correct one if invnumber doesn't
306         # match uniquely
307         $form->{$form->{vc}} = $form->{AR}[0]{name};
308         $form->{customer_id} = $form->{AR}[0]{customer_id};
309       };
310     } else {
311       # s.o. nur für zahlungsausgang
312       AP->ap_transactions(\%myconfig, \%$form);
313       $form->{$form->{vc}} = $form->{AP}[0]{name};
314     }
315   }
316
317   # determine customer/vendor
318   if ( $form->{customer_id} and ($form->{invnumber} or $form->{customernumber}) ) {
319     # we already know the exact customer_id, so fill $form with customer data
320     IS->get_customer(\%myconfig, \%$form);
321     $updated = 1;
322   } else {
323     # check_name is called with "customer" or "vendor" and otherwise uses contents of $form
324     # check_name also runs get_customer/get_vendor
325     $updated = &check_name($form->{vc});
326   };
327
328   if ($new_name_selected || $updated) {
329     # get open invoices from ar/ap using $form->{vc} and a.${vc}_id, i.e. customer_id
330     CP->get_openinvoices(\%myconfig, \%$form);
331     ($newvc) = split /--/, $form->{ $form->{vc} };
332     $form->{"old$form->{vc}"} = qq|$newvc--$form->{"$form->{vc}_id"}|;
333     $updated = 1;
334   }
335
336   if ($form->{currency} ne $form->{oldcurrency}) {
337     $form->{oldcurrency} = $form->{currency};
338     if (!$updated) {
339       CP->get_openinvoices(\%myconfig, \%$form);
340       $updated = 1;
341     }
342   }
343
344   if (!$form->{forex}) {        # read exchangerate from input field (not hidden)
345     $form->{exchangerate} = $form->parse_amount(\%myconfig, $form->{exchangerate});
346   }
347   $form->{forex}        = $form->check_exchangerate( \%myconfig, $form->{currency}, $form->{datepaid}, $buysell);
348   $form->{exchangerate} = $form->{forex} if $form->{forex};
349
350   $amount = $form->{amount} = $form->parse_amount(\%myconfig, $form->{amount});
351
352   if ($updated) {
353     $form->{rowcount} = 0;
354
355     $form->{queued} = "";
356
357     my $i = 0;
358     foreach my $ref (@{ $form->{PR} }) {
359       $i++;
360       $form->{"id_$i"}        = $ref->{id};
361       $form->{"invnumber_$i"} = $ref->{invnumber};
362       $form->{"transdate_$i"} = $ref->{transdate};
363       $ref->{exchangerate} = 1 unless $ref->{exchangerate};
364       $form->{"amount_$i"} = $ref->{amount} / $ref->{exchangerate};
365       $form->{"due_$i"}    =
366         ($ref->{amount} - $ref->{paid}) / $ref->{exchangerate};
367       $form->{"checked_$i"} = "";
368       $form->{"paid_$i"}    = "";
369
370       # need to format
371       map {
372         $form->{"${_}_$i"} =
373           $form->format_amount(\%myconfig, $form->{"${_}_$i"}, 2)
374       } qw(amount due);
375
376     }
377     $form->{rowcount} = $i;
378   }
379
380   # recalculate
381
382   # Modified from $amount = $form->{amount} by J.Zach to update amount to total
383   # payment amount in Zahlungsausgang
384   $amount = 0;
385   for my $i (1 .. $form->{rowcount}) {
386
387     map {
388       $form->{"${_}_$i"} =
389         $form->parse_amount(\%myconfig, $form->{"${_}_$i"})
390     } qw(amount due paid);
391
392     if ($form->{"checked_$i"}) {
393
394       # calculate paid_$i
395       if (!$form->{"paid_$i"}) {
396         $form->{"paid_$i"} = $form->{"due_$i"};
397       }
398
399       # Modified by J.Zach, see abovev
400       $amount += $form->{"paid_$i"};
401
402     } else {
403       $form->{"paid_$i"} = "";
404     }
405
406     map {
407       $form->{"${_}_$i"} =
408         $form->format_amount(\%myconfig, $form->{"${_}_$i"}, 2)
409     } qw(amount due paid);
410
411   }
412
413   # Line added by J.Zach, see above
414   $form->{amount}=$amount;
415
416   &form_header;
417   &list_invoices;
418   &form_footer;
419
420   $lxdebug->leave_sub();
421 }
422
423 sub post {
424   $lxdebug->enter_sub();
425
426   $auth->assert('cash');
427
428   &check_form;
429
430   if ($form->{currency} ne $form->{defaultcurrency}) {
431     $form->error($locale->text('Exchangerate missing!'))
432       unless $form->{exchangerate};
433   }
434
435   # Beim Aktualisieren wird das Konto übernommen
436   # und jetzt auch Beleg und Datum
437   $form->{callback} = "cp.pl?action=payment&vc=$form->{vc}&type=$form->{type}&account=$form->{account}&$form->{currency}" .
438                       "&datepaid=$form->{datepaid}&source=$form->{source}";
439
440   my $msg1 = $::form->{type} eq 'receipt' ? $::locale->text("Receipt posted!") : $::locale->text("Payment posted!");
441   my $msg2 = $::form->{type} eq 'receipt' ? $::locale->text("Cannot post Receipt!") : $::locale->text("Cannot post Payment!");
442
443   # Die Nachrichten (Receipt posted!) werden nicht angezeigt.
444   # Entweder wieder aktivieren oder komplett rausnehmen
445   $form->redirect($msg1) if (CP->process_payment(\%::myconfig, $::form));
446   $form->error($msg2);
447
448   $lxdebug->leave_sub();
449 }
450
451 sub check_form {
452   $lxdebug->enter_sub();
453
454   $auth->assert('cash');
455
456   my ($closedto, $datepaid, $amount);
457
458   &check_name($form->{vc});
459
460   if ($form->{currency} ne $form->{oldcurrency}) {
461     &update;
462     ::end_of_request();
463   }
464   $form->error($locale->text('Date missing!')) unless $form->{datepaid};
465   my $selected_check = 1;
466   for my $i (1 .. $form->{rowcount}) {
467     next unless $form->{"checked_$i"};
468     if (abs($form->parse_amount(\%myconfig, $form->{"paid_$i"}, 2)) < 0.01) {
469       $form->error($locale->text('Row #1: amount has to be different from zero.', $i));
470     }
471     undef $selected_check;
472   }
473   $form->error($locale->text('No transaction selected!')) if $selected_check;
474
475   $closedto = $form->datetonum($form->{closedto}, \%myconfig);
476   $datepaid = $form->datetonum($form->{datepaid}, \%myconfig);
477
478   $form->error($locale->text('Cannot process payment for a closed period!'))
479     if ($form->date_closed($form->{"datepaid"}, \%myconfig));
480
481   $amount = $form->parse_amount(\%myconfig, $form->{amount});
482   $form->{amount} = $amount;
483
484   for my $i (1 .. $form->{rowcount}) {
485     if ($form->parse_amount(\%myconfig, $form->{"paid_$i"})) {
486       $amount -= $form->parse_amount(\%myconfig, $form->{"paid_$i"});
487
488       push(@{ $form->{paid}      ||= [] }, $form->{"paid_$i"});
489       push(@{ $form->{due}       ||= [] }, $form->{"due_$i"});
490       push(@{ $form->{invnumber} ||= [] }, $form->{"invnumber_$i"});
491       push(@{ $form->{invdate}   ||= [] }, $form->{"transdate_$i"});
492     }
493   }
494
495   if ($form->round_amount($amount, 2) != 0) {
496     push(@{ $form->{paid} }, $form->format_amount(\%myconfig, $amount, 2));
497     push(@{ $form->{due} }, $form->format_amount(\%myconfig, 0, "0"));
498     push(@{ $form->{invnumber} },
499          ($form->{ARAP} eq 'AR')
500          ? $locale->text('Deposit')
501          : $locale->text('Prepayment'));
502     push(@{ $form->{invdate} }, $form->{datepaid});
503   }
504
505   $lxdebug->leave_sub();
506 }