Revision 08175832
Von Bernd Bleßmann vor fast 5 Jahren hinzugefügt
| SL/DATEV/CSV.pm | ||
|---|---|---|
| 520 | 520 |
} |
| 521 | 521 |
} |
| 522 | 522 |
|
| 523 |
sub _kivitendo_to_datev {
|
|
| 524 |
@kivitendo_to_datev, ({ kivi_datev_name => 'not yet implemented' }) x (116 - @kivitendo_to_datev);
|
|
| 525 |
} |
|
| 526 |
|
|
| 527 | 523 |
sub header {
|
| 528 | 524 |
my ($self) = @_; |
| 529 | 525 |
|
| ... | ... | |
| 561 | 557 |
push @header, [ @header_row_1 ]; |
| 562 | 558 |
|
| 563 | 559 |
# second header row, just the column names |
| 564 |
push @header, [ map { $_->{csv_header_name} } _kivitendo_to_datev() ];
|
|
| 560 |
push @header, [ map { $_->{csv_header_name} } @kivitendo_to_datev ];
|
|
| 565 | 561 |
|
| 566 | 562 |
return \@header; |
| 567 | 563 |
} |
| ... | ... | |
| 570 | 566 |
my ($self) = @_; |
| 571 | 567 |
|
| 572 | 568 |
my (@array_of_datev, @warnings); |
| 573 |
my @csv_columns = _kivitendo_to_datev(); |
|
| 574 | 569 |
|
| 575 | 570 |
foreach my $row (@{ $self->datev_lines }) {
|
| 576 | 571 |
my @current_datev_row; |
| ... | ... | |
| 578 | 573 |
# 1. check all datev_lines and see if we have a defined value |
| 579 | 574 |
# 2. if we don't have a defined value set a default if exists |
| 580 | 575 |
# 3. otherwise die |
| 581 |
foreach my $column (@csv_columns) {
|
|
| 576 |
foreach my $column (@kivitendo_to_datev) {
|
|
| 582 | 577 |
if ($column->{kivi_datev_name} eq 'not yet implemented') {
|
| 583 | 578 |
push @current_datev_row, ''; |
| 584 | 579 |
next; |
Auch abrufbar als: Unified diff
S:DATEV:CSV: Kein Auffüllen des Arrays mehr
Durch die Änderungen zum Festschreibungskennzeichen
("DATEV-Export Festschreibungskennzeichen für jede Buchung einzel setzen"
commit e4edba0587fc8224bd69047fe57dbf435b776aa6) wurde das Array ohnehin auf
120 Einträge erweitert, so dass die Funktion zum Auffüllen auf 116 Einträge
weg kann.
Zudem wird dadurch eine Warnung vermieden ("Negative repeat count does nothing").
Refs #416 (redmine).