'kost2' => 'Crowd-Funding September 2017',
'umsatz' => '249.9',
'waehrung' => 'EUR',
- 'soll_haben_kennzeichen' => 'S',
},
{
'belegfeld1' => "\x{de} sales \x{a5}& inv\x{f6}ice",
'kost2' => 'Crowd-Funding September 2017',
'umsatz' => 535,
'waehrung' => 'EUR',
- 'soll_haben_kennzeichen' => 'S',
},
{
'belegfeld1' => "\x{de} sales \x{a5}& inv\x{f6}ice",
'kost2' => 'Crowd-Funding September 2017',
'umsatz' => '784.9',
'waehrung' => 'EUR',
- 'soll_haben_kennzeichen' => 'S',
},
], "trans_id datev check ok";
'kost2' => 'Crowd-Funding September 2017',
'umsatz' => '249.9',
'waehrung' => 'EUR',
- 'soll_haben_kennzeichen' => 'S',
},
{
'belegfeld1' => "\x{de} sales \x{a5}& inv\x{f6}ice",
'kost2' => 'Crowd-Funding September 2017',
'umsatz' => 535,
'waehrung' => 'EUR',
- 'soll_haben_kennzeichen' => 'S',
},
{
'belegfeld1' => "\x{de} sales \x{a5}& inv\x{f6}ice",
'kost2' => 'Crowd-Funding September 2017',
'umsatz' => '784.9',
'waehrung' => 'EUR',
- 'soll_haben_kennzeichen' => 'S',
},
], "trans_id datev check use_pk ok";
$datev1->generate_datev_data;
-my ($datev_ref, $w_ref) = SL::DATEV::CSV->new(datev_lines => $datev1->generate_datev_lines,
- from => $startdate,
- to => $enddate,
- locked => $datev1->locked,
+my $datev_csv = SL::DATEV::CSV->new(datev_lines => $datev1->generate_datev_lines,
+ from => $startdate,
+ to => $enddate,
+ locked => $datev1->locked,
);
-# warnings should be undef -> no array elements at all
-is(scalar @{ $w_ref }, 0);
+$datev_csv->lines;
+
-# splice away the header, because sort won't do
# we need sort, because pay_invoice is not acc_trans_id order safe
-my @data_csv = splice @{ $datev_ref }, 2, 5;
-@data_csv = sort { $a->[0] cmp $b->[0] } @data_csv;
+my @data_csv = sort { $a->[0] cmp $b->[0] } @{ $datev_csv->lines };
+# warnings should be undef -> no array elements at all
+is(scalar @{ $datev_csv->warnings }, 0);
-cmp_deeply($data_csv[1], [ 535, 'S', 'EUR', '', '', '', '1400', '8300', '', '0101', "\x{de} sales \x{a5}& i",
- '', '', '', '', '', '', '', '', '', '', '',
+
+cmp_deeply($data_csv[1], [ '535', 'S', 'EUR', '', '', '', '1400', '8300', '', '0101', "\x{de} sales \x{a5}& i",
+ '', '', 'Testcustomer', '', '', '', '', '', '', '', '',
'', '', '', '', '', '', '', '', '', '', '', '', '',
'', 'Kostenst', 'Crowd-Fu', '', '', '', '', '', '', '', '',
'', '', '', '', '', '', '', '', '', '', '', '', '',
);
cmp_deeply($data_csv[0], [ '249,9', 'S', 'EUR', '', '', '', '1400', '8400', '', '0101', "\x{de} sales \x{a5}& i",
- '', '', '', '', '', '', '', '', '', '', '',
+ '', '', 'Testcustomer', '', '', '', '', '', '', '', '',
'', '', '', '', '', '', '', '', '', '', '', '', '',
'', 'Kostenst', 'Crowd-Fu', '', '', '', '', '', '', '', '',
'', '', '', '', '', '', '', '', '', '', '', '', '',
'', '', '', '', '' ]
);
cmp_deeply($data_csv[2], [ '784,9', 'S', 'EUR', '', '', '', '1200', '1400', '', '0501', "\x{de} sales \x{a5}& i",
- '', '', '', '', '', '', '', '', '', '', '',
+ '', '', 'Testcustomer', '', '', '', '', '', '', '', '',
'', '', '', '', '', '', '', '', '', '', '', '', '',
'', 'Kostenst', 'Crowd-Fu', '', '', '', '', '', '', '', '',
'', '', '', '', '', '', '', '', '', '', '', '', '',
'konto' => '3400',
'kost1' => undef,
'kost2' => undef,
- 'soll_haben_kennzeichen' => 'H',
'umsatz' => 119,
'waehrung' => 'EUR'
},
'konto' => '3300',
'kost1' => undef,
'kost2' => undef,
- 'soll_haben_kennzeichen' => 'H',
'umsatz' => 107,
'waehrung' => 'EUR'
}
'konto' => '3400',
'kost1' => undef,
'kost2' => undef,
- 'soll_haben_kennzeichen' => 'H',
'umsatz' => 119,
'waehrung' => 'EUR'
},
'konto' => '3300',
'kost1' => undef,
'kost2' => undef,
- 'soll_haben_kennzeichen' => 'H',
'umsatz' => 107,
'waehrung' => 'EUR'
}
cmp_deeply $datev->generate_datev_lines, [], "no bookings for January made after May 1st: ok";
done_testing();
-# clear_up();
+clear_up();
sub new_purchase_invoice {
# manually create a Kreditorenbuchung from scratch, ap + acc_trans bookings, as no helper exists yet, like $invoice->post.