Revision e428a414
Von Jan Büren vor mehr als 6 Jahren hinzugefügt
| t/datev/invoices.t | ||
|---|---|---|
| 172 | 172 |
my @data_csv = splice @{ $datev_ref }, 2, 5;
|
| 173 | 173 |
@data_csv = sort { $a->[0] cmp $b->[0] } @data_csv;
|
| 174 | 174 |
|
| 175 |
my $cp1252_belegfeld1 = SL::Iconv::convert("UTF-8", "CP1252", 'Þ sales ¥& i');
|
|
| 176 |
my $cp1252_buchungstext = SL::Iconv::convert("UTF-8", "CP1252", 'Þ sales ¥& invöice');
|
|
| 177 |
|
|
| 178 |
cmp_bag($data_csv[1], [ 535, 'S', 'EUR', undef, undef, undef, '1400', '8300', undef, '0101', $cp1252_belegfeld1, |
|
| 179 |
undef, undef, $cp1252_buchungstext, undef, undef, undef, undef, undef, undef, undef, undef, |
|
| 180 |
undef, undef, undef, undef, undef, undef, undef, undef, undef, undef, undef, undef, undef, |
|
| 181 |
undef, 'Crowd-Fu', 'Kostenst', undef, undef, undef, undef, undef, undef, undef, undef, |
|
| 182 |
undef, undef, undef, undef, undef, undef, undef, undef, undef, undef, undef, undef, undef, |
|
| 183 |
undef, undef, undef, undef, undef, undef, undef, undef, undef, undef, undef, undef, undef, |
|
| 184 |
undef, undef, undef, undef, undef, undef, undef, undef, undef, undef, undef, undef, undef, |
|
| 185 |
undef, undef, undef, undef, undef, undef, undef, undef, undef, undef, undef, undef, undef, |
|
| 186 |
undef, undef, undef, undef, undef, undef, undef, undef, undef, undef, undef, undef, undef, |
|
| 187 |
undef, undef, undef, undef, undef ] |
|
| 175 |
cmp_bag($data_csv[1], [ 535, 'S', 'EUR', '', '', '', '1400', '8300', '', '0101', "\x{de} sales \x{a5}& i",
|
|
| 176 |
'', '', '', '', '', '', '', '', '', '', '', |
|
| 177 |
'', '', '', '', '', '', '', '', '', '', '', '', '', |
|
| 178 |
'', 'Crowd-Fu', 'Kostenst', '', '', '', '', '', '', '', '', |
|
| 179 |
'', '', '', '', '', '', '', '', '', '', '', '', '', |
|
| 180 |
'', '', '', '', '', '', '', '', '', '', '', '', '', |
|
| 181 |
'', '', '', '', '', '', '', '', '', '', '', '', '', |
|
| 182 |
'', '', '', '', '', '', '', '', '', '', '', '', '', |
|
| 183 |
'', '', '', '', '', '', '', '', '', '', '', '', '', |
|
| 184 |
'', '', '', '', '' ] |
|
| 188 | 185 |
); |
| 189 | 186 |
|
| 190 |
cmp_bag($data_csv[0], [ '249,9', 'S', 'EUR', undef, undef, undef, '1400', '8400', undef, '0101', $cp1252_belegfeld1,
|
|
| 191 |
undef, undef, $cp1252_buchungstext, undef, undef, undef, undef, undef, undef, undef, undef,
|
|
| 192 |
undef, undef, undef, undef, undef, undef, undef, undef, undef, undef, undef, undef, undef,
|
|
| 193 |
undef, 'Crowd-Fu', 'Kostenst', undef, undef, undef, undef, undef, undef, undef, undef,
|
|
| 194 |
undef, undef, undef, undef, undef, undef, undef, undef, undef, undef, undef, undef, undef,
|
|
| 195 |
undef, undef, undef, undef, undef, undef, undef, undef, undef, undef, undef, undef, undef,
|
|
| 196 |
undef, undef, undef, undef, undef, undef, undef, undef, undef, undef, undef, undef, undef,
|
|
| 197 |
undef, undef, undef, undef, undef, undef, undef, undef, undef, undef, undef, undef, undef,
|
|
| 198 |
undef, undef, undef, undef, undef, undef, undef, undef, undef, undef, undef, undef, undef,
|
|
| 199 |
undef, undef, undef, undef, undef ]
|
|
| 187 |
cmp_bag($data_csv[0], [ '249,9', 'S', 'EUR', '', '', '', '1400', '8400', '', '0101', "\x{de} sales \x{a5}& i",
|
|
| 188 |
'', '', '', '', '', '', '', '', '', '', '',
|
|
| 189 |
'', '', '', '', '', '', '', '', '', '', '', '', '',
|
|
| 190 |
'', 'Crowd-Fu', 'Kostenst', '', '', '', '', '', '', '', '',
|
|
| 191 |
'', '', '', '', '', '', '', '', '', '', '', '', '',
|
|
| 192 |
'', '', '', '', '', '', '', '', '', '', '', '', '',
|
|
| 193 |
'', '', '', '', '', '', '', '', '', '', '', '', '',
|
|
| 194 |
'', '', '', '', '', '', '', '', '', '', '', '', '',
|
|
| 195 |
'', '', '', '', '', '', '', '', '', '', '', '', '',
|
|
| 196 |
'', '', '', '', '' ]
|
|
| 200 | 197 |
); |
| 201 |
cmp_bag($data_csv[2], [ '784,9', 'S', 'EUR', undef, undef, undef, '1200', '1400', undef, '0501', $cp1252_belegfeld1,
|
|
| 202 |
undef, undef, $cp1252_buchungstext, undef, undef, undef, undef, undef, undef, undef, undef,
|
|
| 203 |
undef, undef, undef, undef, undef, undef, undef, undef, undef, undef, undef, undef, undef,
|
|
| 204 |
undef, 'Crowd-Fu', 'Kostenst', undef, undef, undef, undef, undef, undef, undef, undef,
|
|
| 205 |
undef, undef, undef, undef, undef, undef, undef, undef, undef, undef, undef, undef, undef,
|
|
| 206 |
undef, undef, undef, undef, undef, undef, undef, undef, undef, undef, undef, undef, undef,
|
|
| 207 |
undef, undef, undef, undef, undef, undef, undef, undef, undef, undef, undef, undef, undef,
|
|
| 208 |
undef, undef, undef, undef, undef, undef, undef, undef, undef, undef, undef, undef, undef,
|
|
| 209 |
undef, undef, undef, undef, undef, undef, undef, undef, undef, undef, undef, undef, undef,
|
|
| 210 |
undef, undef, undef, undef, undef ]
|
|
| 198 |
cmp_bag($data_csv[2], [ '784,9', 'S', 'EUR', '', '', '', '1200', '1400', '', '0501', "\x{de} sales \x{a5}& i",
|
|
| 199 |
'', '', '', '', '', '', '', '', '', '', '',
|
|
| 200 |
'', '', '', '', '', '', '', '', '', '', '', '', '',
|
|
| 201 |
'', 'Crowd-Fu', 'Kostenst', '', '', '', '', '', '', '', '',
|
|
| 202 |
'', '', '', '', '', '', '', '', '', '', '', '', '',
|
|
| 203 |
'', '', '', '', '', '', '', '', '', '', '', '', '',
|
|
| 204 |
'', '', '', '', '', '', '', '', '', '', '', '', '',
|
|
| 205 |
'', '', '', '', '', '', '', '', '', '', '', '', '',
|
|
| 206 |
'', '', '', '', '', '', '', '', '', '', '', '', '',
|
|
| 207 |
'', '', '', '', '' ]
|
|
| 211 | 208 |
); |
| 212 | 209 |
my $march_9 = DateTime->new(year => 2017, month => 3, day => 9); |
| 213 | 210 |
my $invoice2 = create_sales_invoice( |
Auch abrufbar als: Unified diff
DATEV/CSV.pm Testfälle für aktuelle Überarbeitung angepasst
Ungültiges Encoding wirft jetzt hart einen Fehler
Keine undef-Werte mehr in der Datenstruktur
Unsinninge Iconvs und Encodes erstmal entfernt