Revision b14b1780
Von Kivitendo Admin vor mehr als 7 Jahren hinzugefügt
| SL/DATEV.pm | ||
|---|---|---|
| 56 | 56 |
|
| 57 | 57 |
DATEV_FORMAT_KNE => $i++, |
| 58 | 58 |
DATEV_FORMAT_OBE => $i++, |
| 59 |
DATEV_FORMAT_CSV => $i++, |
|
| 59 | 60 |
}; |
| 60 | 61 |
} |
| 61 | 62 |
|
| 62 |
my @export_constants = qw(DATEV_ET_BUCHUNGEN DATEV_ET_STAMM DATEV_ET_CSV DATEV_FORMAT_KNE DATEV_FORMAT_OBE); |
|
| 63 |
my @export_constants = qw(DATEV_ET_BUCHUNGEN DATEV_ET_STAMM DATEV_ET_CSV DATEV_FORMAT_KNE DATEV_FORMAT_OBE DATEV_FORMAT_CSV);
|
|
| 63 | 64 |
our @EXPORT_OK = (@export_constants); |
| 64 | 65 |
our %EXPORT_TAGS = (CONSTANTS => [ @export_constants ]); |
| 65 | 66 |
|
| ... | ... | |
| 311 | 312 |
|
| 312 | 313 |
die 'no format set!' unless $self->has_format; |
| 313 | 314 |
|
| 314 |
if ($self->format == DATEV_FORMAT_KNE) {
|
|
| 315 |
if ($self->format == DATEV_FORMAT_CSV) {
|
|
| 316 |
$result = $self->csv_export; |
|
| 317 |
} elsif ($self->format == DATEV_FORMAT_KNE) {
|
|
| 315 | 318 |
$result = $self->kne_export; |
| 316 | 319 |
} elsif ($self->format == DATEV_FORMAT_OBE) {
|
| 317 | 320 |
$result = $self->obe_export; |
| ... | ... | |
| 341 | 344 |
return $result; |
| 342 | 345 |
} |
| 343 | 346 |
|
| 347 |
sub csv_export {
|
|
| 348 |
die 'not yet implemented'; |
|
| 349 |
} |
|
| 350 |
|
|
| 344 | 351 |
sub obe_export {
|
| 345 | 352 |
die 'not yet implemented'; |
| 346 | 353 |
} |
Auch abrufbar als: Unified diff
DATEV Export - Vorbereitung für CSV Export