9 use Support::TestSetup;
11 use List::Util qw(sum);
13 use SL::DB::Buchungsgruppe;
21 use SL::DB::BankAccount;
22 use SL::DB::PaymentTerm;
23 use SL::DB::PurchaseInvoice;
24 use SL::DB::BankTransaction;
25 use SL::Controller::BankTransaction;
29 my ($customer, $vendor, $currency_id, $unit, $tax, $tax7, $tax_9, $payment_terms, $bank_account);
30 my ($transdate1, $transdate2, $currency);
31 my ($ar_chart,$bank,$ar_amount_chart, $ap_chart, $ap_amount_chart);
32 my ($ar_transaction, $ap_transaction);
36 SL::DB::Manager::BankTransaction->delete_all(all => 1);
37 SL::DB::Manager::InvoiceItem->delete_all(all => 1);
38 SL::DB::Manager::InvoiceItem->delete_all(all => 1);
39 SL::DB::Manager::Invoice->delete_all(all => 1);
40 SL::DB::Manager::PurchaseInvoice->delete_all(all => 1);
41 SL::DB::Manager::Part->delete_all(all => 1);
42 SL::DB::Manager::Customer->delete_all(all => 1);
43 SL::DB::Manager::Vendor->delete_all(all => 1);
44 SL::DB::Manager::BankAccount->delete_all(all => 1);
45 SL::DB::Manager::PaymentTerm->delete_all(all => 1);
46 SL::DB::Manager::Currency->delete_all(where => [ name => 'CUR' ]);
51 Support::TestSetup::login();
53 reset_state(); # initialise customers/vendors/bank/currency/...
56 test_overpayment_with_partialpayment();
60 test_partial_payment();
63 # remove all created data at end of test
68 ###### functions for setting up data
73 $params{$_} ||= {} for qw(unit customer tax vendor);
77 $transdate1 = DateTime->today;
78 $transdate2 = DateTime->today->add(days => 5);
80 $tax = SL::DB::Manager::Tax->find_by(taxkey => 3, rate => 0.19, %{ $params{tax} }) || croak "No tax";
81 $tax7 = SL::DB::Manager::Tax->find_by(taxkey => 2, rate => 0.07) || croak "No tax for 7\%";
82 $tax_9 = SL::DB::Manager::Tax->find_by(taxkey => 9, rate => 0.19, %{ $params{tax} }) || croak "No tax";
84 $currency_id = $::instance_conf->get_currency_id;
86 $bank_account = SL::DB::BankAccount->new(
87 account_number => '123',
92 chart_id => SL::DB::Manager::Chart->find_by(description => 'Bank')->id,
93 name => SL::DB::Manager::Chart->find_by(description => 'Bank')->description,
96 $customer = SL::Dev::CustomerVendor::create_customer(
97 name => 'Test Customer',
98 iban => 'DE12500105170648489890',
100 account_number => '648489890',
101 mandate_date_of_signature => $transdate1,
102 mandator_id => 'foobar',
104 bank_code => 'G1235',
105 depositor => 'Test Customer',
108 $payment_terms = SL::Dev::Payment::create_payment_terms;
110 $vendor = SL::Dev::CustomerVendor::create_vendor(
111 name => 'Test Vendor',
112 payment_id => $payment_terms->id,
113 iban => 'DE12500105170648489890',
115 account_number => '648489890',
117 bank_code => 'G1235',
118 depositor => 'Test Vendor',
121 $ar_chart = SL::DB::Manager::Chart->find_by( accno => '1400' ); # Forderungen
122 $ap_chart = SL::DB::Manager::Chart->find_by( accno => '1600' ); # Verbindlichkeiten
123 $bank = SL::DB::Manager::Chart->find_by( accno => '1200' ); # Bank
124 $ar_amount_chart = SL::DB::Manager::Chart->find_by( accno => '8400' ); # Erlöse
125 $ap_amount_chart = SL::DB::Manager::Chart->find_by( accno => '3400' ); # Wareneingang 19%
129 sub test_ar_transaction {
132 my $amount = $params{amount} || $::form->round_amount(100 * 1.19,2);
133 my $invoice = SL::DB::Invoice->new(
135 invnumber => $params{invnumber} || undef, # let it use its own invnumber
137 netamount => $netamount,
138 transdate => $transdate1,
140 customer_id => $customer->id,
141 taxzone_id => $customer->taxzone_id,
142 currency_id => $currency_id,
144 payment_id => $params{payment_id} || undef,
145 notes => 'test_ar_transaction',
147 $invoice->add_ar_amount_row(
148 amount => $invoice->netamount,
149 chart => $ar_amount_chart,
153 $invoice->create_ar_row(chart => $ar_chart);
156 is($invoice->currency_id , $currency_id , 'currency_id has been saved');
157 is($invoice->netamount , 100 , 'ar amount has been converted');
158 is($invoice->amount , 119 , 'ar amount has been converted');
159 is($invoice->taxincluded , 0 , 'ar transaction doesn\'t have taxincluded');
161 is(SL::DB::Manager::AccTransaction->find_by(chart_id => $ar_amount_chart->id , trans_id => $invoice->id)->amount , '100.00000' , $ar_amount_chart->accno . ': has been converted for currency');
162 is(SL::DB::Manager::AccTransaction->find_by(chart_id => $ar_chart->id , trans_id => $invoice->id)->amount , '-119.00000' , $ar_chart->accno . ': has been converted for currency');
167 sub test_ap_transaction {
170 my $amount = $::form->round_amount($netamount * 1.19,2);
171 my $invoice = SL::DB::PurchaseInvoice->new(
173 invnumber => $params{invnumber} || 'test_ap_transaction',
175 netamount => $netamount,
176 transdate => $transdate1,
178 vendor_id => $vendor->id,
179 taxzone_id => $vendor->taxzone_id,
180 currency_id => $currency_id,
182 notes => 'test_ap_transaction',
184 $invoice->add_ap_amount_row(
185 amount => $invoice->netamount,
186 chart => $ap_amount_chart,
187 tax_id => $tax_9->id,
190 $invoice->create_ap_row(chart => $ap_chart);
193 is($invoice->currency_id , $currency_id , 'currency_id has been saved');
194 is($invoice->netamount , 100 , 'ap amount has been converted');
195 is($invoice->amount , 119 , 'ap amount has been converted');
196 is($invoice->taxincluded , 0 , 'ap transaction doesn\'t have taxincluded');
198 is(SL::DB::Manager::AccTransaction->find_by(chart_id => $ap_amount_chart->id , trans_id => $invoice->id)->amount , '-100.00000' , $ap_amount_chart->accno . ': has been converted for currency');
199 is(SL::DB::Manager::AccTransaction->find_by(chart_id => $ap_chart->id , trans_id => $invoice->id)->amount , '119.00000' , $ap_chart->accno . ': has been converted for currency');
208 my $testname = 'test1';
210 $ar_transaction = test_ar_transaction(invnumber => 'salesinv1');
212 my $bt = SL::Dev::Payment::create_bank_transaction(record => $ar_transaction) or die "Couldn't create bank_transaction";
214 $::form->{invoice_ids} = {
215 $bt->id => [ $ar_transaction->id ]
218 my $bt_controller = SL::Controller::BankTransaction->new;
219 $bt_controller->action_save_invoices;
221 $ar_transaction->load;
223 is($ar_transaction->paid , '119.00000' , "$testname: salesinv1 was paid");
224 is($ar_transaction->closed , 1 , "$testname: salesinv1 is closed");
225 is($bt->invoice_amount , '119.00000' , "$testname: bt invoice amount was assigned");
229 sub test_skonto_exact {
231 my $testname = 'test_skonto_exact';
233 $ar_transaction = test_ar_transaction(invnumber => 'salesinv skonto',
234 payment_id => $payment_terms->id,
237 my $bt = SL::Dev::Payment::create_bank_transaction(record => $ar_transaction,
238 bank_chart_id => $bank->id,
239 amount => $ar_transaction->amount_less_skonto
240 ) or die "Couldn't create bank_transaction";
242 $::form->{invoice_ids} = {
243 $bt->id => [ $ar_transaction->id ]
245 $::form->{invoice_skontos} = {
246 $bt->id => [ 'with_skonto_pt' ]
249 my $bt_controller = SL::Controller::BankTransaction->new;
250 $bt_controller->action_save_invoices;
252 $ar_transaction->load;
254 is($ar_transaction->paid , '119.00000' , "$testname: salesinv skonto was paid");
255 is($ar_transaction->closed , 1 , "$testname: salesinv skonto is closed");
256 is($bt->invoice_amount , '113.05000' , "$testname: bt invoice amount was assigned");
260 sub test_two_invoices {
262 my $testname = 'test_two_invoices';
264 my $ar_transaction_1 = test_ar_transaction(invnumber => 'salesinv_1');
265 my $ar_transaction_2 = test_ar_transaction(invnumber => 'salesinv_2');
267 my $bt = SL::Dev::Payment::create_bank_transaction(record => $ar_transaction_1,
268 amount => ($ar_transaction_1->amount + $ar_transaction_2->amount),
269 purpose => "Rechnungen " . $ar_transaction_1->invnumber . " und " . $ar_transaction_2->invnumber,
270 bank_chart_id => $bank->id,
271 ) or die "Couldn't create bank_transaction";
273 $::form->{invoice_ids} = {
274 $bt->id => [ $ar_transaction_1->id, $ar_transaction_2->id ]
277 my $bt_controller = SL::Controller::BankTransaction->new;
278 $bt_controller->action_save_invoices;
280 $ar_transaction_1->load;
281 $ar_transaction_2->load;
284 is($ar_transaction_1->paid , '119.00000' , "$testname: salesinv_1 was paid");
285 is($ar_transaction_1->closed , 1 , "$testname: salesinv_1 is closed");
286 is($ar_transaction_2->paid , '119.00000' , "$testname: salesinv_2 was paid");
287 is($ar_transaction_2->closed , 1 , "$testname: salesinv_2 is closed");
288 is($bt->invoice_amount , '238.00000' , "$testname: bt invoice amount was assigned");
292 sub test_overpayment {
294 my $testname = 'test_overpayment';
296 $ar_transaction = test_ar_transaction(invnumber => 'salesinv overpaid');
299 my $bt = SL::Dev::Payment::create_bank_transaction(record => $ar_transaction,
300 bank_chart_id => $bank->id,
302 ) or die "Couldn't create bank_transaction";
304 $::form->{invoice_ids} = {
305 $bt->id => [ $ar_transaction->id ]
308 my $bt_controller = SL::Controller::BankTransaction->new;
309 $bt_controller->action_save_invoices;
311 $ar_transaction->load;
314 is($ar_transaction->paid , '135.00000' , "$testname: 'salesinv overpaid' was overpaid");
315 is($bt->invoice_amount , '135.00000' , "$testname: bt invoice amount was assigned overpaid amount");
316 { local $TODO = 'this currently fails because closed ignores over-payments, see commit d90966c7';
317 is($ar_transaction->closed , 0 , "$testname: 'salesinv overpaid' is open (via 'closed' method')");
319 is($ar_transaction->open_amount == 0 ? 1 : 0 , 0 , "$testname: 'salesinv overpaid is open (via amount-paid)");
323 sub test_overpayment_with_partialpayment {
325 # two payments on different days, 10 and 119. If there is only one invoice we want it be overpaid.
326 my $testname = 'test_overpayment_with_partialpayment';
328 $ar_transaction = test_ar_transaction(invnumber => 'salesinv overpaid partial');
330 my $bt_1 = SL::Dev::Payment::create_bank_transaction(record => $ar_transaction,
331 bank_chart_id => $bank->id,
333 ) or die "Couldn't create bank_transaction";
334 my $bt_2 = SL::Dev::Payment::create_bank_transaction(record => $ar_transaction,
336 transdate => DateTime->today->add(days => 5),
337 bank_chart_id => $bank->id,
338 ) or die "Couldn't create bank_transaction";
340 $::form->{invoice_ids} = {
341 $bt_1->id => [ $ar_transaction->id ]
343 my $bt_controller_1 = SL::Controller::BankTransaction->new;
344 $bt_controller_1->action_save_invoices;
346 $::form->{invoice_ids} = {
347 $bt_2->id => [ $ar_transaction->id ]
349 my $bt_controller_2 = SL::Controller::BankTransaction->new;
350 $bt_controller_2->action_save_invoices;
352 $ar_transaction->load;
356 is($ar_transaction->paid , '129.00000' , "$testname: 'salesinv overpaid partial' was overpaid");
357 is($bt_1->invoice_amount , '10.00000' , "$testname: bt_1 invoice amount was assigned overpaid amount");
358 is($bt_2->invoice_amount , '119.00000' , "$testname: bt_2 invoice amount was assigned overpaid amount");
362 sub test_partial_payment {
364 my $testname = 'test_partial_payment';
366 $ar_transaction = test_ar_transaction(invnumber => 'salesinv partial payment');
369 my $bt = SL::Dev::Payment::create_bank_transaction(record => $ar_transaction,
370 bank_chart_id => $bank->id,
372 ) or die "Couldn't create bank_transaction";
374 $::form->{invoice_ids} = {
375 $bt->id => [ $ar_transaction->id ]
378 my $bt_controller = SL::Controller::BankTransaction->new;
379 $bt_controller->action_save_invoices;
381 $ar_transaction->load;
384 is($ar_transaction->paid , '100.00000' , "$testname: 'salesinv partial payment' was partially paid");
385 is($bt->invoice_amount , '100.00000' , "$testname: bt invoice amount was assigned partially paid amount");
389 sub test_credit_note {
391 my $testname = 'test_credit_note';
393 my $part1 = SL::Dev::Part::create_part( partnumber => 'T4254')->save;
394 my $part2 = SL::Dev::Part::create_service(partnumber => 'Serv1')->save;
395 my $credit_note = SL::Dev::Record::create_credit_note(
397 customer => $customer,
399 invoiceitems => [ SL::Dev::Record::create_invoice_item(part => $part1, qty => 3, sellprice => 70),
400 SL::Dev::Record::create_invoice_item(part => $part2, qty => 10, sellprice => 50),
403 my $bt = SL::Dev::Payment::create_bank_transaction(record => $credit_note,
404 amount => $credit_note->amount,
405 bank_chart_id => $bank->id,
406 transdate => DateTime->today->add(days => 10),
408 my ($agreement, $rule_matches) = $bt->get_agreement_with_invoice($credit_note);
409 is($agreement, 13, "points for credit note ok");
410 is($rule_matches, 'remote_account_number(3) exact_amount(4) wrong_sign(-1) depositor_matches(2) remote_name(2) payment_within_30_days(1) datebonus14(2) ', "rules_matches for credit note ok");
412 $::form->{invoice_ids} = {
413 $bt->id => [ $credit_note->id ]
416 my $bt_controller = SL::Controller::BankTransaction->new;
417 $bt_controller->action_save_invoices;
421 is($credit_note->amount , '-844.90000', "$testname: amount ok");
422 is($credit_note->netamount, '-710.00000', "$testname: netamount ok");
423 is($credit_note->paid , '-844.90000', "$testname: paid ok");