summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
2d9b08c)
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).
-sub _kivitendo_to_datev {
- @kivitendo_to_datev, ({ kivi_datev_name => 'not yet implemented' }) x (116 - @kivitendo_to_datev);
-}
-
sub header {
my ($self) = @_;
sub header {
my ($self) = @_;
push @header, [ @header_row_1 ];
# second header row, just the column names
push @header, [ @header_row_1 ];
# second header row, just the column names
- push @header, [ map { $_->{csv_header_name} } _kivitendo_to_datev() ];
+ push @header, [ map { $_->{csv_header_name} } @kivitendo_to_datev ];
my ($self) = @_;
my (@array_of_datev, @warnings);
my ($self) = @_;
my (@array_of_datev, @warnings);
- my @csv_columns = _kivitendo_to_datev();
foreach my $row (@{ $self->datev_lines }) {
my @current_datev_row;
foreach my $row (@{ $self->datev_lines }) {
my @current_datev_row;
# 1. check all datev_lines and see if we have a defined value
# 2. if we don't have a defined value set a default if exists
# 3. otherwise die
# 1. check all datev_lines and see if we have a defined value
# 2. if we don't have a defined value set a default if exists
# 3. otherwise die
- foreach my $column (@csv_columns) {
+ foreach my $column (@kivitendo_to_datev) {
if ($column->{kivi_datev_name} eq 'not yet implemented') {
push @current_datev_row, '';
next;
if ($column->{kivi_datev_name} eq 'not yet implemented') {
push @current_datev_row, '';
next;