9 use Support::TestSetup;
11 use List::Util qw(sum);
13 use SL::DB::Buchungsgruppe;
20 use SL::DB::BankAccount;
21 use SL::DB::PaymentTerm;
22 use SL::DB::PurchaseInvoice;
23 use SL::DB::BankTransaction;
24 use SL::Controller::BankTransaction;
28 my ($customer, $vendor, $currency_id, $unit, $tax, $tax7, $tax_9, $payment_terms, $bank_account);
29 my ($transdate1, $transdate2, $currency);
30 my ($ar_chart,$bank,$ar_amount_chart, $ap_chart, $ap_amount_chart);
31 my ($ar_transaction, $ap_transaction);
35 SL::DB::Manager::BankTransaction->delete_all(all => 1);
36 SL::DB::Manager::InvoiceItem->delete_all(all => 1);
37 SL::DB::Manager::InvoiceItem->delete_all(all => 1);
38 SL::DB::Manager::Invoice->delete_all(all => 1);
39 SL::DB::Manager::PurchaseInvoice->delete_all(all => 1);
40 SL::DB::Manager::Customer->delete_all(all => 1);
41 SL::DB::Manager::Vendor->delete_all(all => 1);
42 SL::DB::Manager::BankAccount->delete_all(all => 1);
43 SL::DB::Manager::PaymentTerm->delete_all(all => 1);
44 SL::DB::Manager::Currency->delete_all(where => [ name => 'CUR' ]);
49 Support::TestSetup::login();
51 reset_state(); # initialise customers/vendors/bank/currency/...
54 test_overpayment_with_partialpayment();
58 test_partial_payment();
60 # remove all created data at end of test
65 ###### functions for setting up data
70 $params{$_} ||= {} for qw(unit customer tax vendor);
74 $transdate1 = DateTime->today;
75 $transdate2 = DateTime->today->add(days => 5);
77 $tax = SL::DB::Manager::Tax->find_by(taxkey => 3, rate => 0.19, %{ $params{tax} }) || croak "No tax";
78 $tax7 = SL::DB::Manager::Tax->find_by(taxkey => 2, rate => 0.07) || croak "No tax for 7\%";
79 $tax_9 = SL::DB::Manager::Tax->find_by(taxkey => 9, rate => 0.19, %{ $params{tax} }) || croak "No tax";
81 $currency_id = $::instance_conf->get_currency_id;
83 $bank_account = SL::DB::BankAccount->new(
84 account_number => '123',
89 chart_id => SL::DB::Manager::Chart->find_by(description => 'Bank')->id,
90 name => SL::DB::Manager::Chart->find_by(description => 'Bank')->description,
93 $customer = SL::Dev::CustomerVendor::create_customer(
94 name => 'Test Customer',
95 iban => 'DE12500105170648489890',
97 account_number => '648489890',
98 mandate_date_of_signature => $transdate1,
99 mandator_id => 'foobar',
101 bank_code => 'G1235',
102 depositor => 'Test Customer',
105 $payment_terms = SL::Dev::Payment::create_payment_terms;
107 $vendor = SL::Dev::CustomerVendor::create_vendor(
108 name => 'Test Vendor',
109 payment_id => $payment_terms->id,
110 iban => 'DE12500105170648489890',
112 account_number => '648489890',
114 bank_code => 'G1235',
115 depositor => 'Test Vendor',
118 $ar_chart = SL::DB::Manager::Chart->find_by( accno => '1400' ); # Forderungen
119 $ap_chart = SL::DB::Manager::Chart->find_by( accno => '1600' ); # Verbindlichkeiten
120 $bank = SL::DB::Manager::Chart->find_by( accno => '1200' ); # Bank
121 $ar_amount_chart = SL::DB::Manager::Chart->find_by( accno => '8400' ); # Erlöse
122 $ap_amount_chart = SL::DB::Manager::Chart->find_by( accno => '3400' ); # Wareneingang 19%
126 sub test_ar_transaction {
129 my $amount = $params{amount} || $::form->round_amount(100 * 1.19,2);
130 my $invoice = SL::DB::Invoice->new(
132 invnumber => $params{invnumber} || undef, # let it use its own invnumber
134 netamount => $netamount,
135 transdate => $transdate1,
137 customer_id => $customer->id,
138 taxzone_id => $customer->taxzone_id,
139 currency_id => $currency_id,
141 payment_id => $params{payment_id} || undef,
142 notes => 'test_ar_transaction',
144 $invoice->add_ar_amount_row(
145 amount => $invoice->netamount,
146 chart => $ar_amount_chart,
150 $invoice->create_ar_row(chart => $ar_chart);
153 is($invoice->currency_id , $currency_id , 'currency_id has been saved');
154 is($invoice->netamount , 100 , 'ar amount has been converted');
155 is($invoice->amount , 119 , 'ar amount has been converted');
156 is($invoice->taxincluded , 0 , 'ar transaction doesn\'t have taxincluded');
158 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');
159 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');
164 sub test_ap_transaction {
167 my $amount = $::form->round_amount($netamount * 1.19,2);
168 my $invoice = SL::DB::PurchaseInvoice->new(
170 invnumber => $params{invnumber} || 'test_ap_transaction',
172 netamount => $netamount,
173 transdate => $transdate1,
175 vendor_id => $vendor->id,
176 taxzone_id => $vendor->taxzone_id,
177 currency_id => $currency_id,
179 notes => 'test_ap_transaction',
181 $invoice->add_ap_amount_row(
182 amount => $invoice->netamount,
183 chart => $ap_amount_chart,
184 tax_id => $tax_9->id,
187 $invoice->create_ap_row(chart => $ap_chart);
190 is($invoice->currency_id , $currency_id , 'currency_id has been saved');
191 is($invoice->netamount , 100 , 'ap amount has been converted');
192 is($invoice->amount , 119 , 'ap amount has been converted');
193 is($invoice->taxincluded , 0 , 'ap transaction doesn\'t have taxincluded');
195 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');
196 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');
205 my $testname = 'test1';
207 $ar_transaction = test_ar_transaction(invnumber => 'salesinv1');
209 my $bt = SL::Dev::Payment::create_bank_transaction(record => $ar_transaction) or die "Couldn't create bank_transaction";
211 $::form->{invoice_ids} = {
212 $bt->id => [ $ar_transaction->id ]
215 my $bt_controller = SL::Controller::BankTransaction->new;
216 $bt_controller->action_save_invoices;
218 $ar_transaction->load;
220 is($ar_transaction->paid , '119.00000' , "$testname: salesinv1 was paid");
221 is($ar_transaction->closed , 1 , "$testname: salesinv1 is closed");
222 is($bt->invoice_amount , '119.00000' , "$testname: bt invoice amount was assigned");
226 sub test_skonto_exact {
228 my $testname = 'test_skonto_exact';
230 $ar_transaction = test_ar_transaction(invnumber => 'salesinv skonto',
231 payment_id => $payment_terms->id,
234 my $bt = SL::Dev::Payment::create_bank_transaction(record => $ar_transaction,
235 bank_chart_id => $bank->id,
236 amount => $ar_transaction->amount_less_skonto
237 ) or die "Couldn't create bank_transaction";
239 $::form->{invoice_ids} = {
240 $bt->id => [ $ar_transaction->id ]
242 $::form->{invoice_skontos} = {
243 $bt->id => [ 'with_skonto_pt' ]
246 my $bt_controller = SL::Controller::BankTransaction->new;
247 $bt_controller->action_save_invoices;
249 $ar_transaction->load;
251 is($ar_transaction->paid , '119.00000' , "$testname: salesinv skonto was paid");
252 is($ar_transaction->closed , 1 , "$testname: salesinv skonto is closed");
253 is($bt->invoice_amount , '113.05000' , "$testname: bt invoice amount was assigned");
257 sub test_two_invoices {
259 my $testname = 'test_two_invoices';
261 my $ar_transaction_1 = test_ar_transaction(invnumber => 'salesinv_1');
262 my $ar_transaction_2 = test_ar_transaction(invnumber => 'salesinv_2');
264 my $bt = SL::Dev::Payment::create_bank_transaction(record => $ar_transaction_1,
265 amount => ($ar_transaction_1->amount + $ar_transaction_2->amount),
266 purpose => "Rechnungen " . $ar_transaction_1->invnumber . " und " . $ar_transaction_2->invnumber,
267 bank_chart_id => $bank->id,
268 ) or die "Couldn't create bank_transaction";
270 $::form->{invoice_ids} = {
271 $bt->id => [ $ar_transaction_1->id, $ar_transaction_2->id ]
274 my $bt_controller = SL::Controller::BankTransaction->new;
275 $bt_controller->action_save_invoices;
277 $ar_transaction_1->load;
278 $ar_transaction_2->load;
281 is($ar_transaction_1->paid , '119.00000' , "$testname: salesinv_1 was paid");
282 is($ar_transaction_1->closed , 1 , "$testname: salesinv_1 is closed");
283 is($ar_transaction_2->paid , '119.00000' , "$testname: salesinv_2 was paid");
284 is($ar_transaction_2->closed , 1 , "$testname: salesinv_2 is closed");
285 is($bt->invoice_amount , '238.00000' , "$testname: bt invoice amount was assigned");
289 sub test_overpayment {
291 my $testname = 'test_overpayment';
293 $ar_transaction = test_ar_transaction(invnumber => 'salesinv overpaid');
296 my $bt = SL::Dev::Payment::create_bank_transaction(record => $ar_transaction,
297 bank_chart_id => $bank->id,
299 ) or die "Couldn't create bank_transaction";
301 $::form->{invoice_ids} = {
302 $bt->id => [ $ar_transaction->id ]
305 my $bt_controller = SL::Controller::BankTransaction->new;
306 $bt_controller->action_save_invoices;
308 $ar_transaction->load;
311 is($ar_transaction->paid , '135.00000' , "$testname: 'salesinv overpaid' was overpaid");
312 is($bt->invoice_amount , '135.00000' , "$testname: bt invoice amount was assigned overpaid amount");
313 { local $TODO = 'this currently fails because closed ignores over-payments, see commit d90966c7';
314 is($ar_transaction->closed , 0 , "$testname: 'salesinv overpaid' is open (via 'closed' method')");
316 is($ar_transaction->open_amount == 0 ? 1 : 0 , 0 , "$testname: 'salesinv overpaid is open (via amount-paid)");
320 sub test_overpayment_with_partialpayment {
322 # two payments on different days, 10 and 119. If there is only one invoice we want it be overpaid.
323 my $testname = 'test_overpayment_with_partialpayment';
325 $ar_transaction = test_ar_transaction(invnumber => 'salesinv overpaid partial');
327 my $bt_1 = SL::Dev::Payment::create_bank_transaction(record => $ar_transaction,
328 bank_chart_id => $bank->id,
330 ) or die "Couldn't create bank_transaction";
331 my $bt_2 = SL::Dev::Payment::create_bank_transaction(record => $ar_transaction,
333 transdate => DateTime->today->add(days => 5),
334 bank_chart_id => $bank->id,
335 ) or die "Couldn't create bank_transaction";
337 $::form->{invoice_ids} = {
338 $bt_1->id => [ $ar_transaction->id ]
340 my $bt_controller_1 = SL::Controller::BankTransaction->new;
341 $bt_controller_1->action_save_invoices;
343 $::form->{invoice_ids} = {
344 $bt_2->id => [ $ar_transaction->id ]
346 my $bt_controller_2 = SL::Controller::BankTransaction->new;
347 $bt_controller_2->action_save_invoices;
349 $ar_transaction->load;
353 is($ar_transaction->paid , '129.00000' , "$testname: 'salesinv overpaid partial' was overpaid");
354 is($bt_1->invoice_amount , '10.00000' , "$testname: bt_1 invoice amount was assigned overpaid amount");
355 is($bt_2->invoice_amount , '119.00000' , "$testname: bt_2 invoice amount was assigned overpaid amount");
359 sub test_partial_payment {
361 my $testname = 'test_partial_payment';
363 $ar_transaction = test_ar_transaction(invnumber => 'salesinv partial payment');
366 my $bt = SL::Dev::Payment::create_bank_transaction(record => $ar_transaction,
367 bank_chart_id => $bank->id,
369 ) or die "Couldn't create bank_transaction";
371 $::form->{invoice_ids} = {
372 $bt->id => [ $ar_transaction->id ]
375 my $bt_controller = SL::Controller::BankTransaction->new;
376 $bt_controller->action_save_invoices;
378 $ar_transaction->load;
381 is($ar_transaction->paid , '100.00000' , "$testname: 'salesinv partial payment' was partially paid");
382 is($bt->invoice_amount , '100.00000' , "$testname: bt invoice amount was assigned partially paid amount");