Revision 2d9b08c7
Von Bernd Bleßmann vor etwa 5 Jahren hinzugefügt
| t/datev/datev_format_2018.t | ||
|---|---|---|
|
$datev4->to($enddate);
|
||
|
$datev4->generate_datev_data;
|
||
|
$datev4->generate_datev_lines;
|
||
|
|
||
|
my ($datev_csv4, $die_message3, $lines_aref);
|
||
|
eval {
|
||
|
$datev_csv4 = SL::DATEV::CSV->new(datev_lines => $datev4->generate_datev_lines,
|
||
| ... | ... | |
|
'', '', '', '', '', '', '', '', '',
|
||
|
'', '', '', '', '', '', '', '', '',
|
||
|
'', '', '', '', '', '', '', '', '',
|
||
|
'', '', '', '', '', '', '', '', '',
|
||
|
'',
|
||
|
'', '', '', '', '', '', '', '1', '',
|
||
|
'', '', '', '', '',
|
||
|
];
|
||
|
cmp_deeply $sorted[1], [ '535', 'S', 'EUR', '', '', '',
|
||
|
'1400', '8300', '', '1907','meine muh',
|
||
| ... | ... | |
|
'', '', '', '', '', '', '', '', '',
|
||
|
'', '', '', '', '', '', '', '', '',
|
||
|
'', '', '', '', '', '', '', '', '',
|
||
|
'', '', '', '', '', '', '', '', '',
|
||
|
'',
|
||
|
'', '', '', '', '', '', '', '1', '',
|
||
|
'', '', '', '', '',
|
||
|
];
|
||
|
# create one haben buchung with GLTransaction today
|
||
|
|
||
| ... | ... | |
|
'', '', '', '', '', '', '', '', '', '', '', '', '',
|
||
|
'', '', '', '', '', '', '', '', '', '', '', '', '',
|
||
|
'', '', '', '', '', '', '', '', '', '', '', '', '',
|
||
|
'', '', '', '', '' ]
|
||
|
'', '', '1', '', '', '', '', '', '', ]
|
||
|
);
|
||
|
|
||
|
# TODO warnings are not yet tested
|
||
| t/datev/invoices.t | ||
|---|---|---|
|
'konto' => '1400',
|
||
|
'kost1' => 'Kostenstelle DATEV-Schnittstelle 2018',
|
||
|
'kost2' => 'Crowd-Funding September 2017',
|
||
|
'locked' => undef,
|
||
|
'umsatz' => '249.9',
|
||
|
'waehrung' => 'EUR',
|
||
|
},
|
||
| ... | ... | |
|
'konto' => '1400',
|
||
|
'kost1' => 'Kostenstelle DATEV-Schnittstelle 2018',
|
||
|
'kost2' => 'Crowd-Funding September 2017',
|
||
|
'locked' => undef,
|
||
|
'umsatz' => 535,
|
||
|
'waehrung' => 'EUR',
|
||
|
},
|
||
| ... | ... | |
|
'kost1' => 'Kostenstelle DATEV-Schnittstelle 2018',
|
||
|
'kost2' => 'Crowd-Funding September 2017',
|
||
|
'umsatz' => '784.9',
|
||
|
'locked' => undef,
|
||
|
'waehrung' => 'EUR',
|
||
|
},
|
||
|
], "trans_id datev check ok";
|
||
| ... | ... | |
|
'kost1' => 'Kostenstelle DATEV-Schnittstelle 2018',
|
||
|
'kost2' => 'Crowd-Funding September 2017',
|
||
|
'umsatz' => '249.9',
|
||
|
'locked' => undef,
|
||
|
'waehrung' => 'EUR',
|
||
|
},
|
||
|
{
|
||
| ... | ... | |
|
'kost1' => 'Kostenstelle DATEV-Schnittstelle 2018',
|
||
|
'kost2' => 'Crowd-Funding September 2017',
|
||
|
'umsatz' => 535,
|
||
|
'locked' => undef,
|
||
|
'waehrung' => 'EUR',
|
||
|
},
|
||
|
{
|
||
| ... | ... | |
|
'kost1' => 'Kostenstelle DATEV-Schnittstelle 2018',
|
||
|
'kost2' => 'Crowd-Funding September 2017',
|
||
|
'umsatz' => '784.9',
|
||
|
'locked' => undef,
|
||
|
'waehrung' => 'EUR',
|
||
|
},
|
||
|
], "trans_id datev check use_pk ok";
|
||
| ... | ... | |
|
'', '', '', '', '', '', '', '', '', '', '', '', '',
|
||
|
'', '', '', '', '', '', '', '', '', '', '', '', '',
|
||
|
'', '', '', '', '', '', '', '', '', '', '', '', '',
|
||
|
'', '', '', '', '' ]
|
||
|
'', '', '1', '', '', '', '', '', '' ]
|
||
|
);
|
||
|
|
||
|
cmp_deeply($data_csv[0], [ '249,9', 'S', 'EUR', '', '', '', '1400', '8400', '', '0101', "\x{de} sales \x{a5}& i",
|
||
| ... | ... | |
|
'', '', '', '', '', '', '', '', '', '', '', '', '',
|
||
|
'', '', '', '', '', '', '', '', '', '', '', '', '',
|
||
|
'', '', '', '', '', '', '', '', '', '', '', '', '',
|
||
|
'', '', '', '', '' ]
|
||
|
'', '', '1', '', '', '', '', '', '' ]
|
||
|
);
|
||
|
cmp_deeply($data_csv[2], [ '784,9', 'S', 'EUR', '', '', '', '1200', '1400', '', '0501', "\x{de} sales \x{a5}& i",
|
||
|
'', '', 'Testcustomer', '', '', '', '', '', '', '', '',
|
||
| ... | ... | |
|
'', '', '', '', '', '', '', '', '', '', '', '', '',
|
||
|
'', '', '', '', '', '', '', '', '', '', '', '', '',
|
||
|
'', '', '', '', '', '', '', '', '', '', '', '', '',
|
||
|
'', '', '', '', '' ]
|
||
|
'', '', '1', '', '', '', '', '', '' ]
|
||
|
);
|
||
|
my $march_9 = DateTime->new(year => 2017, month => 3, day => 9);
|
||
|
my $invoice2 = create_sales_invoice(
|
||
| ... | ... | |
|
'kost1' => undef,
|
||
|
'kost2' => undef,
|
||
|
'umsatz' => 119,
|
||
|
'locked' => undef,
|
||
|
'waehrung' => 'EUR'
|
||
|
},
|
||
|
{
|
||
| ... | ... | |
|
'kost1' => undef,
|
||
|
'kost2' => undef,
|
||
|
'umsatz' => 107,
|
||
|
'locked' => undef,
|
||
|
'waehrung' => 'EUR'
|
||
|
}
|
||
|
], "trans_id datev check purchase_invoice ok";
|
||
| ... | ... | |
|
'kost1' => undef,
|
||
|
'kost2' => undef,
|
||
|
'umsatz' => 119,
|
||
|
'locked' => undef,
|
||
|
'waehrung' => 'EUR'
|
||
|
},
|
||
|
{
|
||
| ... | ... | |
|
'kost1' => undef,
|
||
|
'kost2' => undef,
|
||
|
'umsatz' => 107,
|
||
|
'locked' => undef,
|
||
|
'waehrung' => 'EUR'
|
||
|
}
|
||
|
], "trans_id datev check purchase_invoice use_pk ok";
|
||
Auch abrufbar als: Unified diff
DATEV-Tests nach Erweiterung f. Festschreibungskennzeichen gefixed
Die Tests gingen mit
"DATEV-Export Festschreibungskennzeichen für jede Buchung einzel setzen"
(commit e4edba0587fc8224bd69047fe57dbf435b776aa6) kaputt.
Das Array hat jetzt mehr Einträge und das Festschreibunungskennzeichen ist an.
Behebt #416 (redmine).