-use Test::More tests => 130;
+use Test::More tests => 138;
use strict;
test_partial_payment();
test_credit_note();
test_ap_transaction();
-test_neg_ap_transaction();
+test_neg_ap_transaction(invoice => 0);
+test_neg_ap_transaction(invoice => 1);
test_ap_payment_transaction();
test_ap_payment_part_transaction();
test_neg_sales_invoice();
)->save;
$customer = new_customer(
- name => 'Test Customer',
+ name => 'Test Customer OLÉ S.L. Årdbärg AB',
iban => 'DE12500105170648489890',
bic => 'TESTBIC',
account_number => '648489890',
sub test_neg_ap_transaction {
my (%params) = @_;
- my $testname = 'test_neg_ap_transaction';
+ my $testname = 'test_neg_ap_transaction' . $params{invoice} ? ' invoice booking' : ' credit booking';
my $netamount = -20;
my $amount = $::form->round_amount($netamount * 1.19,2);
my $invoice = SL::DB::PurchaseInvoice->new(
- invoice => 0,
+ invoice => $params{invoice} // 0,
invnumber => $params{invnumber} || 'test_neg_ap_transaction',
amount => $amount,
netamount => $netamount,
vc_depositor => $customer->depositor,
amount => $ar_transaction->amount,
);
+ require SL::SEPA::XML;
+ my $sepa_xml = SL::SEPA::XML->new('company' => $customer->name,
+ 'creditor_id' => "id",
+ 'src_charset' => 'UTF-8',
+ 'message_id' => "test",
+ 'grouped' => 1,
+ 'collection' => 1,
+ );
+ is($sepa_xml->{company} , 'Test Customer OLE S.L. Ardbaerg AB');
$ar_transaction->load;
$bt->load;