Revision 981979b5
Von Sven Schöling vor etwa 7 Jahren hinzugefügt
| t/datev/datev_format_2018.t | ||
|---|---|---|
|
my @sorted = sort { $a->[0] cmp $b->[0] } @{ $lines_aref };
|
||
|
cmp_deeply $sorted[0], [ '1963,5', 'S', 'EUR', '', '', '',
|
||
|
'1400', '8400', '', '1907', 'meine muh',
|
||
|
'', '', '', '', '', '', '', '', '',
|
||
|
'', '', 'Test customer', '', '', '', '', '', '',
|
||
|
'', '', '', '', '', '', '', '', '',
|
||
|
'', '', '', '', '', '', '', "K\x{e4}stchen",
|
||
|
'299', '','DE12345678', '', '', '',
|
||
| ... | ... | |
|
];
|
||
|
cmp_deeply $sorted[1], [ '535', 'S', 'EUR', '', '', '',
|
||
|
'1400', '8300', '', '1907','meine muh',
|
||
|
'', '', '', '', '', '', '', '', '',
|
||
|
'', '', 'Test customer', '', '', '', '', '', '',
|
||
|
'', '', '', '', '', '', '', '', '',
|
||
|
'', '', '', '', '', '', '', "K\x{e4}stchen",
|
||
|
'299', '','DE12345678', '', '', '',
|
||
| ... | ... | |
|
);
|
||
|
|
||
|
my @data_csv = sort { $a->[0] cmp $b->[0] } @{ $datev_csv3->lines };
|
||
|
cmp_deeply($data_csv[0], [ 100, 'S', 'EUR', '', '', '', '4660', '1000', 9, '1703', 'Reise März 2',
|
||
|
'', '', '', '', '', '', '', '', '', '', '',
|
||
|
cmp_deeply($data_csv[0], [ '100', 'S', 'EUR', '', '', '', '4660', '1000', 9, '1703', 'Reise März 2',
|
||
|
'', '', 'Reisekonsten März 2018 / Ma Schmidt', '', '', '', '', '', '', '', '',
|
||
|
'', '', '', '', '', '', '', '', '', '', '', '', '',
|
||
|
'', '', '', '', '', '', '', '', '', '', '',
|
||
|
'', '', '', '', '', '', '', '', '', '', '', '', '',
|
||
| t/datev/invoices.t | ||
|---|---|---|
|
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', '', '', '', '', '', '', '', '',
|
||
|
'', '', '', '', '', '', '', '', '', '', '', '', '',
|
||
Auch abrufbar als: Unified diff
DATEV: Testanpassungen