DATEV-Checks beim Buchen nutzen nun generate_datev_data
[kivitendo-erp.git] / SL / AP.pm
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) 2001
10 #
11 #  Author: Dieter Simader
12 #   Email: dsimader@sql-ledger.org
13 #     Web: http://www.sql-ledger.org
14 #
15 #  Contributors:
16 #
17 # This program is free software; you can redistribute it and/or modify
18 # it under the terms of the GNU General Public License as published by
19 # the Free Software Foundation; either version 2 of the License, or
20 # (at your option) any later version.
21 #
22 # This program is distributed in the hope that it will be useful,
23 # but WITHOUT ANY WARRANTY; without even the implied warranty of
24 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
25 # GNU General Public License for more details.
26 # You should have received a copy of the GNU General Public License
27 # along with this program; if not, write to the Free Software
28 # Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston,
29 # MA 02110-1335, USA.
30 #======================================================================
31 #
32 # Accounts Payables database backend routines
33 #
34 #======================================================================
35
36 package AP;
37
38 use SL::DATEV qw(:CONSTANTS);
39 use SL::DBUtils;
40 use SL::IO;
41 use SL::MoreCommon;
42 use SL::DB::Default;
43 use SL::DB::Draft;
44 use SL::Util qw(trim);
45 use SL::DB;
46 use Data::Dumper;
47
48 use strict;
49
50 sub post_transaction {
51   my ($self, $myconfig, $form, $provided_dbh, $payments_only) = @_;
52   $main::lxdebug->enter_sub();
53
54   my $rc = SL::DB->client->with_transaction(\&_post_transaction, $self, $myconfig, $form, $provided_dbh, $payments_only);
55
56   $::lxdebug->leave_sub;
57   return $rc;
58 }
59
60 sub _post_transaction {
61   my ($self, $myconfig, $form, $provided_dbh, $payments_only) = @_;
62   my $dbh = $provided_dbh || SL::DB->client->dbh;
63
64   my ($null, $taxrate, $amount);
65   my $exchangerate = 0;
66
67   $form->{defaultcurrency} = $form->get_default_currency($myconfig);
68   $form->{taxincluded} = 0 unless $form->{taxincluded};
69
70   if ($form->{currency} eq $form->{defaultcurrency}) {
71     $form->{exchangerate} = 1;
72   } else {
73     $exchangerate         = $form->check_exchangerate($myconfig, $form->{currency}, $form->{transdate}, 'sell');
74     $form->{exchangerate} = $exchangerate || $form->parse_amount($myconfig, $form->{exchangerate});
75   }
76
77   # get the charts selected
78   $form->{AP_amounts}{"amount_$_"} = $form->{"AP_amount_chart_id_$_"} for (1 .. $form->{rowcount});
79
80   # calculate the totals while calculating and reformatting the $amount_$i and $tax_$i
81   ($form->{netamount},$form->{total_tax},$form->{invtotal}) = $form->calculate_arap('buy',$form->{taxincluded}, $form->{exchangerate});
82
83   # adjust paidaccounts if there is no date in the last row
84   $form->{paidaccounts}-- unless ($form->{"datepaid_$form->{paidaccounts}"});
85
86   $form->{invpaid} = 0;
87
88   # add payments
89   for my $i (1 .. $form->{paidaccounts}) {
90     $form->{"paid_$i"} =
91       $form->round_amount($form->parse_amount($myconfig, $form->{"paid_$i"}),
92                           2);
93
94     $form->{invpaid} += $form->{"paid_$i"};
95     $form->{datepaid} = $form->{"datepaid_$i"};
96
97   }
98
99   $form->{invpaid} =
100     $form->round_amount($form->{invpaid} * $form->{exchangerate}, 2);
101
102   # # store invoice total, this goes into ap table
103   # $form->{invtotal} = $form->{netamount} + $form->{total_tax};
104
105   # amount for total AP
106   $form->{payables} = $form->{invtotal};
107
108   # update exchangerate
109   if (($form->{currency} ne $form->{defaultcurrency}) && !$exchangerate) {
110     $form->update_exchangerate($dbh, $form->{currency}, $form->{transdate}, 0,
111                                $form->{exchangerate});
112   }
113
114   my ($query, $sth, @values);
115
116   if (!$payments_only) {
117     # if we have an id delete old records
118     if ($form->{id}) {
119
120       # delete detail records
121       $query = qq|DELETE FROM acc_trans WHERE trans_id = ?|;
122       do_query($form, $dbh, $query, $form->{id});
123
124     } else {
125
126       ($form->{id}) = selectrow_query($form, $dbh, qq|SELECT nextval('glid')|);
127
128       $query =
129         qq|INSERT INTO ap (id, invnumber, employee_id,currency_id, taxzone_id) | .
130         qq|VALUES (?, ?, (SELECT e.id FROM employee e WHERE e.login = ?),
131                       (SELECT id FROM currencies WHERE name = ?), (SELECT taxzone_id FROM vendor WHERE id = ?) )|;
132       do_query($form, $dbh, $query, $form->{id}, $form->{invnumber}, $::myconfig{login}, $form->{currency}, $form->{vendor_id});
133
134     }
135
136     $query = qq|UPDATE ap SET invnumber = ?,
137                 transdate = ?, ordnumber = ?, vendor_id = ?, taxincluded = ?,
138                 amount = ?, duedate = ?, paid = ?, netamount = ?,
139                 currency_id = (SELECT id FROM currencies WHERE name = ?), notes = ?, department_id = ?, storno = ?, storno_id = ?,
140                 globalproject_id = ?, direct_debit = ?
141                WHERE id = ?|;
142     @values = ($form->{invnumber}, conv_date($form->{transdate}),
143                   $form->{ordnumber}, conv_i($form->{vendor_id}),
144                   $form->{taxincluded} ? 't' : 'f', $form->{invtotal},
145                   conv_date($form->{duedate}), $form->{invpaid},
146                   $form->{netamount},
147                   $form->{currency}, $form->{notes},
148                   conv_i($form->{department_id}), $form->{storno},
149                   $form->{storno_id}, conv_i($form->{globalproject_id}),
150                   $form->{direct_debit} ? 't' : 'f',
151                   $form->{id});
152     do_query($form, $dbh, $query, @values);
153
154     $form->new_lastmtime('ap');
155
156     # add individual transactions
157     for my $i (1 .. $form->{rowcount}) {
158       if ($form->{"amount_$i"} != 0) {
159         my $project_id;
160         $project_id = conv_i($form->{"project_id_$i"});
161
162         # insert detail records in acc_trans
163         $query =
164           qq|INSERT INTO acc_trans | .
165           qq|  (trans_id, chart_id, amount, transdate, project_id, taxkey, tax_id, chart_link)| .
166           qq|VALUES (?, ?,   ?, ?, ?, ?, ?, (SELECT c.link FROM chart c WHERE c.id = ?))|;
167         @values = ($form->{id}, $form->{"AP_amount_chart_id_$i"},
168                    $form->{"amount_$i"}, conv_date($form->{transdate}),
169                    $project_id, $form->{"taxkey_$i"}, conv_i($form->{"tax_id_$i"}),
170                    $form->{"AP_amount_chart_id_$i"});
171         do_query($form, $dbh, $query, @values);
172
173         if ($form->{"tax_$i"} != 0) {
174           # insert detail records in acc_trans
175           $query =
176             qq|INSERT INTO acc_trans (trans_id, chart_id, amount, transdate, | .
177             qq|  project_id, taxkey, tax_id, chart_link) | .
178             qq|VALUES (?, (SELECT c.id FROM chart c WHERE c.accno = ?), | .
179             qq|  ?, ?, ?, ?, ?,| .
180             qq| (SELECT c.link FROM chart c WHERE c.accno = ?))|;
181           @values = ($form->{id}, $form->{AP_amounts}{"tax_$i"},
182                      $form->{"tax_$i"}, conv_date($form->{transdate}),
183                      $project_id, $form->{"taxkey_$i"}, conv_i($form->{"tax_id_$i"}),
184                      $form->{AP_amounts}{"tax_$i"});
185           do_query($form, $dbh, $query, @values);
186         }
187
188       }
189     }
190
191     # add payables
192     $query =
193       qq|INSERT INTO acc_trans (trans_id, chart_id, amount, transdate, taxkey, tax_id, chart_link) | .
194       qq|VALUES (?, ?, ?, ?, | .
195       qq|        (SELECT taxkey_id FROM chart WHERE id = ?),| .
196       qq|        (SELECT tax_id| .
197       qq|         FROM taxkeys| .
198       qq|         WHERE chart_id = ?| .
199       qq|         AND startdate <= ?| .
200       qq|         ORDER BY startdate DESC LIMIT 1),| .
201       qq|        (SELECT c.link FROM chart c WHERE c.id = ?))|;
202     @values = ($form->{id}, $form->{AP_chart_id}, $form->{payables},
203                conv_date($form->{transdate}), $form->{AP_chart_id}, $form->{AP_chart_id}, conv_date($form->{transdate}),
204                $form->{AP_chart_id});
205     do_query($form, $dbh, $query, @values);
206   }
207
208   # if there is no amount but a payment record a payable
209   if ($form->{amount} == 0 && $form->{invtotal} == 0) {
210     $form->{payables} = $form->{invpaid};
211   }
212
213   # add paid transactions
214   for my $i (1 .. $form->{paidaccounts}) {
215
216     if ($form->{"acc_trans_id_$i"} && $payments_only && (SL::DB::Default->get->payments_changeable == 0)) {
217       next;
218     }
219
220     if ($form->{"paid_$i"} != 0) {
221       my $project_id = conv_i($form->{"paid_project_id_$i"});
222
223       $exchangerate = 0;
224       if ($form->{currency} eq $form->{defaultcurrency}) {
225         $form->{"exchangerate_$i"} = 1;
226       } else {
227         $exchangerate              = $form->check_exchangerate($myconfig, $form->{currency}, $form->{"datepaid_$i"}, 'sell');
228         $form->{"exchangerate_$i"} = $exchangerate || $form->parse_amount($myconfig, $form->{"exchangerate_$i"});
229       }
230       $form->{"AP_paid_$i"} =~ s/\"//g;
231
232       # get paid account
233
234       ($form->{"AP_paid_account_$i"}) = split(/--/, $form->{"AP_paid_$i"});
235       $form->{"datepaid_$i"} = $form->{transdate}
236         unless ($form->{"datepaid_$i"});
237
238       # if there is no amount and invtotal is zero there is no exchangerate
239       if ($form->{amount} == 0 && $form->{invtotal} == 0) {
240         $form->{exchangerate} = $form->{"exchangerate_$i"};
241       }
242
243       $amount =
244         $form->round_amount($form->{"paid_$i"} * $form->{exchangerate} * -1,
245                             2);
246       if ($form->{payables}) {
247         $query =
248           qq|INSERT INTO acc_trans (trans_id, chart_id, amount, transdate, project_id, taxkey, tax_id, chart_link) | .
249           qq|VALUES (?, ?, ?, ?, ?, | .
250           qq|        (SELECT taxkey_id FROM chart WHERE id = ?),| .
251           qq|        (SELECT tax_id| .
252           qq|         FROM taxkeys| .
253           qq|         WHERE chart_id = ?| .
254           qq|         AND startdate <= ?| .
255           qq|         ORDER BY startdate DESC LIMIT 1),| .
256           qq|        (SELECT c.link FROM chart c WHERE c.id = ?))|;
257         @values = ($form->{id}, $form->{AP_chart_id}, $amount,
258                    conv_date($form->{"datepaid_$i"}), $project_id,
259                    $form->{AP_chart_id}, $form->{AP_chart_id}, conv_date($form->{"datepaid_$i"}),
260                    $form->{AP_chart_id});
261         do_query($form, $dbh, $query, @values);
262       }
263       $form->{payables} = $amount;
264
265       # add payment
266       my $gldate = (conv_date($form->{"gldate_$i"}))? conv_date($form->{"gldate_$i"}) : conv_date($form->current_date($myconfig));
267       $query =
268         qq|INSERT INTO acc_trans (trans_id, chart_id, amount, transdate, gldate, source, memo, project_id, taxkey, tax_id, chart_link) | .
269         qq|VALUES (?, (SELECT id FROM chart WHERE accno = ?), ?, ?, ?, ?, ?, ?, | .
270         qq|        (SELECT taxkey_id FROM chart WHERE accno = ?), | .
271         qq|        (SELECT tax_id| .
272         qq|         FROM taxkeys| .
273         qq|         WHERE chart_id= (SELECT id | .
274         qq|                          FROM chart| .
275         qq|                          WHERE accno = ?)| .
276         qq|         AND startdate <= ?| .
277         qq|         ORDER BY startdate DESC LIMIT 1),| .
278         qq|        (SELECT c.link FROM chart c WHERE c.accno = ?))|;
279       @values = ($form->{id}, $form->{"AP_paid_account_$i"}, $form->{"paid_$i"},
280                  conv_date($form->{"datepaid_$i"}), $gldate, $form->{"source_$i"},
281                  $form->{"memo_$i"}, $project_id, $form->{"AP_paid_account_$i"},
282                  $form->{"AP_paid_account_$i"}, conv_date($form->{"datepaid_$i"}),
283                  $form->{"AP_paid_account_$i"});
284       do_query($form, $dbh, $query, @values);
285
286       # add exchange rate difference
287       $amount =
288         $form->round_amount($form->{"paid_$i"} *
289                             ($form->{"exchangerate_$i"} - 1), 2);
290       if ($amount != 0) {
291         $query =
292           qq|INSERT INTO acc_trans (trans_id, chart_id, amount, transdate, fx_transaction, cleared, project_id, taxkey, tax_id, chart_link) | .
293           qq|VALUES (?, (SELECT id FROM chart WHERE accno = ?), ?, ?, 't', 'f', ?, | .
294           qq|        (SELECT taxkey_id FROM chart WHERE accno = ?), | .
295           qq|        (SELECT tax_id| .
296           qq|         FROM taxkeys| .
297           qq|         WHERE chart_id= (SELECT id | .
298           qq|                          FROM chart| .
299           qq|                          WHERE accno = ?)| .
300           qq|         AND startdate <= ?| .
301           qq|         ORDER BY startdate DESC LIMIT 1),| .
302           qq|        (SELECT c.link FROM chart c WHERE c.accno = ?))|;
303         @values = ($form->{id}, $form->{"AP_paid_account_$i"}, $amount,
304                    conv_date($form->{"datepaid_$i"}), $project_id,
305                    $form->{"AP_paid_account_$i"},
306                    $form->{"AP_paid_account_$i"}, conv_date($form->{"datepaid_$i"}),
307                    $form->{"AP_paid_account_$i"});
308         do_query($form, $dbh, $query, @values);
309       }
310
311       # exchangerate gain/loss
312       $amount =
313         $form->round_amount($form->{"paid_$i"} *
314                             ($form->{exchangerate} -
315                              $form->{"exchangerate_$i"}), 2);
316
317       if ($amount != 0) {
318         # fetch fxgain and fxloss chart info from defaults if charts aren't already filled in form
319         if ( !$form->{fxgain_accno} && $::instance_conf->get_fxgain_accno_id ) {
320           $form->{fxgain_accno} = SL::DB::Manager::Chart->find_by(id => $::instance_conf->get_fxgain_accno_id)->accno;
321         };
322         if ( !$form->{fxloss_accno} && $::instance_conf->get_fxloss_accno_id ) {
323           $form->{fxloss_accno} = SL::DB::Manager::Chart->find_by(id => $::instance_conf->get_fxloss_accno_id)->accno;
324         };
325         die "fxloss_accno missing" if $amount < 0 and not $form->{fxloss_accno};
326         die "fxgain_accno missing" if $amount > 0 and not $form->{fxgain_accno};
327         $query =
328           qq|INSERT INTO acc_trans (trans_id, chart_id, amount, transdate, fx_transaction, cleared, project_id, taxkey, tax_id, chart_link) | .
329           qq|VALUES (?, (SELECT id FROM chart WHERE accno = ?), ?, ?, 't', 'f', ?, | .
330           qq|        (SELECT taxkey_id FROM chart WHERE accno = ?),| .
331           qq|        (SELECT tax_id| .
332           qq|         FROM taxkeys| .
333           qq|         WHERE chart_id= (SELECT id | .
334           qq|                          FROM chart| .
335           qq|                          WHERE accno = ?)| .
336           qq|         AND startdate <= ?| .
337           qq|         ORDER BY startdate DESC LIMIT 1),| .
338           qq|        (SELECT c.link FROM chart c WHERE c.accno = ?))|;
339         @values = ($form->{id},
340                    ($amount > 0) ? $form->{fxgain_accno} : $form->{fxloss_accno},
341                    $amount, conv_date($form->{"datepaid_$i"}), $project_id,
342                    ($amount > 0) ? $form->{fxgain_accno} : $form->{fxloss_accno},
343                    ($amount > 0) ? $form->{fxgain_accno} : $form->{fxloss_accno}, conv_date($form->{"datepaid_$i"}),
344                    ($amount > 0) ? $form->{fxgain_accno} : $form->{fxloss_accno});
345         do_query($form, $dbh, $query, @values);
346       }
347
348       # update exchange rate record
349       if (($form->{currency} ne $form->{defaultcurrency}) && !$exchangerate) {
350         $form->update_exchangerate($dbh, $form->{currency},
351                                    $form->{"datepaid_$i"},
352                                    0, $form->{"exchangerate_$i"});
353       }
354     }
355   }
356
357   if ($payments_only) {
358     $query = qq|UPDATE ap SET paid = ?, datepaid = ? WHERE id = ?|;
359     do_query($form, $dbh, $query,  $form->{invpaid}, $form->{invpaid} ? conv_date($form->{datepaid}) : undef, conv_i($form->{id}));
360     $form->new_lastmtime('ap');
361   }
362
363   IO->set_datepaid(table => 'ap', id => $form->{id}, dbh => $dbh);
364
365   if ($form->{draft_id}) {
366     SL::DB::Manager::Draft->delete_all(where => [ id => delete($form->{draft_id}) ]);
367   }
368
369   # safety check datev export
370   if ($::instance_conf->get_datev_check_on_ap_transaction) {
371     my $datev = SL::DATEV->new(
372       dbh        => $dbh,
373       trans_id   => $form->{id},
374     );
375     $datev->generate_datev_data;
376
377     if ($datev->errors) {
378       die join "\n", $::locale->text('DATEV check returned errors:'), $datev->errors;
379     }
380   }
381
382   return 1;
383 }
384
385 sub delete_transaction {
386   $main::lxdebug->enter_sub();
387
388   my ($self, $myconfig, $form) = @_;
389
390   SL::DB->client->with_transaction(sub {
391     my $query = qq|DELETE FROM ap WHERE id = ?|;
392     do_query($form, SL::DB->client->dbh, $query, $form->{id});
393     1;
394   }) or do { die SL::DB->client->error };
395
396   $main::lxdebug->leave_sub();
397
398   return 1;
399 }
400
401 sub ap_transactions {
402   $main::lxdebug->enter_sub();
403
404   my ($self, $myconfig, $form) = @_;
405
406   # connect to database
407   my $dbh = $form->get_standard_dbh($myconfig);
408
409   my $query =
410     qq|SELECT a.id, a.invnumber, a.transdate, a.duedate, a.amount, a.paid, | .
411     qq|  a.ordnumber, v.name, a.invoice, a.netamount, a.datepaid, a.notes, | .
412     qq|  a.globalproject_id, a.storno, a.storno_id, a.direct_debit, | .
413     qq|  pr.projectnumber AS globalprojectnumber, | .
414     qq|  e.name AS employee, | .
415     qq|  v.vendornumber, v.country, v.ustid, | .
416     qq|  tz.description AS taxzone, | .
417     qq|  pt.description AS payment_terms, | .
418     qq{  ( SELECT ch.accno || ' -- ' || ch.description
419            FROM acc_trans at
420            LEFT JOIN chart ch ON ch.id = at.chart_id
421            WHERE ch.link ~ 'AP[[:>:]]'
422             AND at.trans_id = a.id
423             LIMIT 1
424           ) AS charts } .
425     qq|FROM ap a | .
426     qq|JOIN vendor v ON (a.vendor_id = v.id) | .
427     qq|LEFT JOIN contacts cp ON (a.cp_id = cp.cp_id) | .
428     qq|LEFT JOIN employee e ON (a.employee_id = e.id) | .
429     qq|LEFT JOIN project pr ON (a.globalproject_id = pr.id) | .
430     qq|LEFT JOIN tax_zones tz ON (tz.id = a.taxzone_id)| .
431     qq|LEFT JOIN payment_terms pt ON (pt.id = a.payment_id)|;
432
433   my $where = '';
434
435   unless ( $::auth->assert('show_ap_transactions', 1) ) {
436     $where .= " AND NOT invoice = 'f' ";  # remove ap transactions from Sales -> Reports -> Invoices
437   };
438
439   my @values;
440
441   if ($form->{vendor}) {
442     $where .= " AND v.name ILIKE ?";
443     push(@values, like($form->{vendor}));
444   }
445   if ($form->{"cp_name"}) {
446     $where .= " AND (cp.cp_name ILIKE ? OR cp.cp_givenname ILIKE ?)";
447     push(@values, (like($form->{"cp_name"}))x2);
448   }
449   if ($form->{department_id}) {
450     $where .= " AND a.department_id = ?";
451     push(@values, $form->{department_id});
452   }
453   if ($form->{invnumber}) {
454     $where .= " AND a.invnumber ILIKE ?";
455     push(@values, like($form->{invnumber}));
456   }
457   if ($form->{ordnumber}) {
458     $where .= " AND a.ordnumber ILIKE ?";
459     push(@values, like($form->{ordnumber}));
460   }
461   if ($form->{notes}) {
462     $where .= " AND lower(a.notes) LIKE ?";
463     push(@values, like($form->{notes}));
464   }
465   if ($form->{project_id}) {
466     $where .=
467       qq| AND ((a.globalproject_id = ?) OR EXISTS | .
468       qq|  (SELECT * FROM invoice i | .
469       qq|   WHERE i.project_id = ? AND i.trans_id = a.id) | .
470       qq| OR EXISTS | .
471       qq|  (SELECT * FROM acc_trans at | .
472       qq|   WHERE at.project_id = ? AND at.trans_id = a.id)| .
473       qq|  )|;
474     push(@values, $form->{project_id}, $form->{project_id}, $form->{project_id});
475   }
476
477   if ($form->{transdatefrom}) {
478     $where .= " AND a.transdate >= ?";
479     push(@values, trim($form->{transdatefrom}));
480   }
481   if ($form->{transdateto}) {
482     $where .= " AND a.transdate <= ?";
483     push(@values, trim($form->{transdateto}));
484   }
485   if ($form->{open} || $form->{closed}) {
486     unless ($form->{open} && $form->{closed}) {
487       $where .= " AND a.amount <> a.paid" if ($form->{open});
488       $where .= " AND a.amount = a.paid"  if ($form->{closed});
489     }
490   }
491
492   if ($form->{parts_partnumber}) {
493     $where .= <<SQL;
494  AND EXISTS (
495         SELECT invoice.trans_id
496         FROM invoice
497         LEFT JOIN parts ON (invoice.parts_id = parts.id)
498         WHERE (invoice.trans_id = a.id)
499           AND (parts.partnumber ILIKE ?)
500         LIMIT 1
501       )
502 SQL
503     push @values, like($form->{parts_partnumber});
504   }
505
506   if ($form->{parts_description}) {
507     $where .= <<SQL;
508  AND EXISTS (
509         SELECT invoice.trans_id
510         FROM invoice
511         WHERE (invoice.trans_id = a.id)
512           AND (invoice.description ILIKE ?)
513         LIMIT 1
514       )
515 SQL
516     push @values, like($form->{parts_description});
517   }
518
519   if ($where) {
520     substr($where, 0, 4, " WHERE ");
521     $query .= $where;
522   }
523
524   my @a = qw(transdate invnumber name);
525   push @a, "employee" if $form->{l_employee};
526   my $sortdir   = !defined $form->{sortdir} ? 'ASC' : $form->{sortdir} ? 'ASC' : 'DESC';
527   my $sortorder = join(', ', map { "$_ $sortdir" } @a);
528
529   if (grep({ $_ eq $form->{sort} } qw(transdate id invnumber ordnumber name netamount tax amount paid datepaid due duedate notes employee transaction_description direct_debit))) {
530     $sortorder = $form->{sort} . " $sortdir";
531   }
532
533   $query .= " ORDER BY $sortorder";
534
535   my @result = selectall_hashref_query($form, $dbh, $query, @values);
536
537   $form->{AP} = [ @result ];
538
539   $main::lxdebug->leave_sub();
540 }
541
542 sub get_transdate {
543   $main::lxdebug->enter_sub();
544
545   my ($self, $myconfig, $form) = @_;
546
547   # connect to database
548   my $dbh = SL::DB->client->dbh;
549
550   my $query =
551     "SELECT COALESCE(" .
552     "  (SELECT transdate FROM ap WHERE id = " .
553     "    (SELECT MAX(id) FROM ap) LIMIT 1), " .
554     "  current_date)";
555   ($form->{transdate}) = $dbh->selectrow_array($query);
556
557   $main::lxdebug->leave_sub();
558 }
559
560 sub _delete_payments {
561   $main::lxdebug->enter_sub();
562
563   my ($self, $form, $dbh) = @_;
564
565   my @delete_acc_trans_ids;
566
567   # Delete old payment entries from acc_trans.
568   my $query =
569     qq|SELECT acc_trans_id
570        FROM acc_trans
571        WHERE (trans_id = ?) AND fx_transaction
572
573        UNION
574
575        SELECT at.acc_trans_id
576        FROM acc_trans at
577        LEFT JOIN chart c ON (at.chart_id = c.id)
578        WHERE (trans_id = ?) AND (c.link LIKE '%AP_paid%')|;
579   push @delete_acc_trans_ids, selectall_array_query($form, $dbh, $query, conv_i($form->{id}), conv_i($form->{id}));
580
581   $query =
582     qq|SELECT at.acc_trans_id
583        FROM acc_trans at
584        LEFT JOIN chart c ON (at.chart_id = c.id)
585        WHERE (trans_id = ?)
586          AND ((c.link = 'AP') OR (c.link LIKE '%:AP') OR (c.link LIKE 'AP:%'))
587        ORDER BY at.acc_trans_id
588        OFFSET 1|;
589   push @delete_acc_trans_ids, selectall_array_query($form, $dbh, $query, conv_i($form->{id}));
590
591   if (@delete_acc_trans_ids) {
592     $query = qq|DELETE FROM acc_trans WHERE acc_trans_id IN (| . join(", ", @delete_acc_trans_ids) . qq|)|;
593     do_query($form, $dbh, $query);
594   }
595
596   $main::lxdebug->leave_sub();
597 }
598
599 sub post_payment {
600   my ($self, $myconfig, $form, $locale) = @_;
601   $main::lxdebug->enter_sub();
602
603   my $rc = SL::DB->client->with_transaction(\&_post_payment, $self, $myconfig, $form, $locale);
604
605   $::lxdebug->leave_sub;
606   return $rc;
607 }
608
609 sub _post_payment {
610   my ($self, $myconfig, $form, $locale) = @_;
611
612   my $dbh = SL::DB->client->dbh;
613
614   my (%payments, $old_form, $row, $item, $query, %keep_vars);
615
616   $old_form = save_form();
617
618   # Delete all entries in acc_trans from prior payments.
619   if (SL::DB::Default->get->payments_changeable != 0) {
620     $self->_delete_payments($form, $dbh);
621   }
622
623   # Save the new payments the user made before cleaning up $form.
624   my $payments_re = '^datepaid_\d+$|^gldate_\d+$|^acc_trans_id_\d+$|^memo_\d+$|^source_\d+$|^exchangerate_\d+$|^paid_\d+$|^paid_project_id_\d+$|^AP_paid_\d+$|^paidaccounts$';
625   map { $payments{$_} = $form->{$_} } grep m/$payments_re/, keys %{ $form };
626
627   # Clean up $form so that old content won't tamper the results.
628   %keep_vars = map { $_, 1 } qw(login password id);
629   map { delete $form->{$_} unless $keep_vars{$_} } keys %{ $form };
630
631   # Retrieve the invoice from the database.
632   $form->create_links('AP', $myconfig, 'vendor', $dbh);
633
634   # Restore the payment options from the user input.
635   map { $form->{$_} = $payments{$_} } keys %payments;
636
637   # Set up the content of $form in the way that AR::post_transaction() expects.
638
639   $self->setup_form($form, 1);
640
641   $form->{exchangerate}    = $form->format_amount($myconfig, $form->{exchangerate});
642   $form->{defaultcurrency} = $form->get_default_currency($myconfig);
643
644   # Get the AP accno.
645   $query =
646     qq|SELECT c.id
647        FROM acc_trans at
648        LEFT JOIN chart c ON (at.chart_id = c.id)
649        WHERE (trans_id = ?)
650          AND ((c.link = 'AP') OR (c.link LIKE '%:AP') OR (c.link LIKE 'AP:%'))
651        ORDER BY at.acc_trans_id
652        LIMIT 1|;
653
654   ($form->{AP_chart_id}) = selectfirst_array_query($form, $dbh, $query, conv_i($form->{id}));
655
656   # Post the new payments.
657   $self->post_transaction($myconfig, $form, $dbh, 1);
658
659   restore_form($old_form);
660
661   return 1;
662 }
663
664 sub setup_form {
665   $main::lxdebug->enter_sub();
666
667   my ($self, $form, $for_post_payments) = @_;
668
669   my ($exchangerate, $i, $j, $k, $key, $akey, $ref, $index, $taxamount, $totalamount, $totaltax, $totalwithholding, $withholdingrate,
670       $tax, $diff);
671
672   # forex
673   $form->{forex} = $form->{exchangerate};
674   $exchangerate = ($form->{exchangerate}) ? $form->{exchangerate} : 1;
675
676   foreach $key (keys %{ $form->{AP_links} }) {
677     foreach $ref (@{ $form->{AP_links}{$key} }) {
678       if ($key eq "AP_paid") {
679         $form->{"select$key"} .= "<option value=\"$ref->{accno}\">$ref->{accno}--$ref->{description}</option>\n";
680       } else {
681         $form->{"select$key"} .= "<option value=\"$ref->{accno}--$ref->{tax_id}\">$ref->{accno}--$ref->{description}</option>\n";
682       }
683     }
684
685     $form->{$key} = $form->{"select$key"};
686
687     $j = 0;
688     $k = 0;
689
690     # if there is a value we have an old entry
691     next unless $form->{acc_trans}{$key};
692
693     # do not use old entries for payments. They come from the form
694     # even if they are not changeable (then they are in hiddens)
695     next if $for_post_payments && $key eq "AP_paid";
696
697     for $i (1 .. scalar @{ $form->{acc_trans}{$key} }) {
698
699       if ($key eq "AP_paid") {
700         $j++;
701         $form->{"AP_paid_$j"}         = "$form->{acc_trans}{$key}->[$i-1]->{accno}--$form->{acc_trans}{$key}->[$i-1]->{description}";
702         $form->{"acc_trans_id_$j"}    = $form->{acc_trans}{$key}->[$i - 1]->{acc_trans_id};
703         $form->{"paid_$j"}            = $form->{acc_trans}{$key}->[$i - 1]->{amount};
704         $form->{"datepaid_$j"}        = $form->{acc_trans}{$key}->[$i - 1]->{transdate};
705         $form->{"gldate_$j"}          = $form->{acc_trans}{$key}->[$i - 1]->{gldate};
706         $form->{"source_$j"}          = $form->{acc_trans}{$key}->[$i - 1]->{source};
707         $form->{"memo_$j"}            = $form->{acc_trans}{$key}->[$i - 1]->{memo};
708
709         $form->{"exchangerate_$i"}    = $form->{acc_trans}{$key}->[$i - 1]->{exchangerate};
710         $form->{"forex_$j"}           = $form->{"exchangerate_$i"};
711         $form->{"AP_paid_$j"}         = $form->{acc_trans}{$key}->[$i-1]->{accno};
712         $form->{"paid_project_id_$j"} = $form->{acc_trans}{$key}->[$i - 1]->{project_id};
713         $form->{paidaccounts}++;
714
715       } else {
716         $akey = $key;
717         $akey =~ s/AP_//;
718
719         if (($key eq "AP_tax") || ($key eq "AR_tax")) {
720           $form->{"${key}_$form->{acc_trans}{$key}->[$i-1]->{accno}"}  = "$form->{acc_trans}{$key}->[$i-1]->{accno}--$form->{acc_trans}{$key}->[$i-1]->{description}";
721           $form->{"${akey}_$form->{acc_trans}{$key}->[$i-1]->{accno}"} = $form->round_amount($form->{acc_trans}{$key}->[$i - 1]->{amount} / $exchangerate, 2);
722
723           if ($form->{"$form->{acc_trans}{$key}->[$i-1]->{accno}_rate"} > 0) {
724             $totaltax += $form->{"${akey}_$form->{acc_trans}{$key}->[$i-1]->{accno}"};
725           } else {
726             $totalwithholding += $form->{"${akey}_$form->{acc_trans}{$key}->[$i-1]->{accno}"};
727             $withholdingrate  += $form->{"$form->{acc_trans}{$key}->[$i-1]->{accno}_rate"};
728           }
729
730           $index                 = $form->{acc_trans}{$key}->[$i - 1]->{index};
731           $form->{"tax_$index"}  = $form->round_amount($form->{acc_trans}{$key}->[$i - 1]->{amount} * -1 / $exchangerate, 2);
732           $totaltax             += $form->{"tax_$index"};
733
734         } else {
735           $k++;
736           $form->{"${akey}_$k"} = $form->round_amount($form->{acc_trans}{$key}->[$i - 1]->{amount} / $exchangerate, 2);
737
738           if ($akey eq 'amount') {
739             $form->{rowcount}++;
740             $form->{"${akey}_$i"} *= -1;
741             $totalamount          += $form->{"${akey}_$i"};
742             $form->{taxrate}       = $form->{acc_trans}{$key}->[$i - 1]->{rate};
743
744             $form->{"projectnumber_$k"}    = "$form->{acc_trans}{$key}->[$i-1]->{projectnumber}";
745             $form->{"oldprojectnumber_$k"} = $form->{"projectnumber_$k"};
746             $form->{"project_id_$k"}       = "$form->{acc_trans}{$key}->[$i-1]->{project_id}";
747             $form->{"${key}_chart_id_$k"}  = $form->{acc_trans}{$key}->[$i-1]->{chart_id};
748             $form->{"taxchart_$k"} = $form->{acc_trans}{$key}->[$i-1]->{id}    . "--" . $form->{acc_trans}{$key}->[$i-1]->{rate};
749           }
750         }
751       }
752     }
753   }
754
755   $form->{paidaccounts} = 1            if not defined $form->{paidaccounts};
756
757   if ($form->{taxincluded} && $form->{taxrate} && $totalamount) {
758     # add tax to amounts and invtotal
759     for $i (1 .. $form->{rowcount}) {
760       $taxamount            = ($totaltax + $totalwithholding) * $form->{"amount_$i"} / $totalamount;
761       $tax                  = $form->round_amount($taxamount, 2);
762       $diff                += ($taxamount - $tax);
763       $form->{"amount_$i"} += $form->{"tax_$i"};
764     }
765
766     $form->{amount_1} += $form->round_amount($diff, 2);
767   }
768
769   $taxamount        = $form->round_amount($taxamount, 2);
770   $form->{invtotal} = $totalamount + $totaltax;
771
772   $main::lxdebug->leave_sub();
773 }
774
775 sub storno {
776   my ($self, $form, $myconfig, $id) = @_;
777   $main::lxdebug->enter_sub();
778
779   my $rc = SL::DB->client->with_transaction(\&_storno, $self, $form, $myconfig, $id);
780
781   $::lxdebug->leave_sub;
782   return $rc;
783 }
784
785 sub _storno {
786   my ($self, $form, $myconfig, $id) = @_;
787
788   my ($query, $new_id, $storno_row, $acc_trans_rows);
789   my $dbh = SL::DB->client->dbh;
790
791   $query = qq|SELECT nextval('glid')|;
792   ($new_id) = selectrow_query($form, $dbh, $query);
793
794   $query = qq|SELECT * FROM ap WHERE id = ?|;
795   $storno_row = selectfirst_hashref_query($form, $dbh, $query, $id);
796
797   $storno_row->{id}         = $new_id;
798   $storno_row->{storno_id}  = $id;
799   $storno_row->{storno}     = 't';
800   $storno_row->{invnumber}  = 'Storno-' . $storno_row->{invnumber};
801   $storno_row->{amount}    *= -1;
802   $storno_row->{netamount} *= -1;
803   $storno_row->{paid}       = $storno_row->{amount};
804
805   delete @$storno_row{qw(itime mtime)};
806
807   $query = sprintf 'INSERT INTO ap (%s) VALUES (%s)', join(', ', keys %$storno_row), join(', ', map '?', values %$storno_row);
808   do_query($form, $dbh, $query, (values %$storno_row));
809
810   $query = qq|UPDATE ap SET paid = amount + paid, storno = 't' WHERE id = ?|;
811   do_query($form, $dbh, $query, $id);
812
813   $form->new_lastmtime('ap') if $id == $form->{id};
814
815   # now copy acc_trans entries
816   $query = qq|SELECT a.*, c.link FROM acc_trans a LEFT JOIN chart c ON a.chart_id = c.id WHERE a.trans_id = ? ORDER BY a.acc_trans_id|;
817   my $rowref = selectall_hashref_query($form, $dbh, $query, $id);
818
819   # kill all entries containing payments, which are the last 2n rows, of which the last has link =~ /paid/
820   while ($rowref->[-1]{link} =~ /paid/) {
821     splice(@$rowref, -2);
822   }
823
824   for my $row (@$rowref) {
825     delete @$row{qw(itime mtime link acc_trans_id)};
826     $query = sprintf 'INSERT INTO acc_trans (%s) VALUES (%s)', join(', ', keys %$row), join(', ', map '?', values %$row);
827     $row->{trans_id}   = $new_id;
828     $row->{amount}    *= -1;
829     do_query($form, $dbh, $query, (values %$row));
830   }
831
832   map { IO->set_datepaid(table => 'ap', id => $_, dbh => $dbh) } ($id, $new_id);
833
834   return 1;
835 }
836
837 1;