Revision c255a38e
Von Jan Büren vor mehr als 3 Jahren hinzugefügt
| bin/mozilla/datev.pl | ||
|---|---|---|
| 62 | 62 |
$::lxdebug->enter_sub; |
| 63 | 63 |
$::auth->assert('datev_export');
|
| 64 | 64 |
|
| 65 |
if ($::form->{exporttype} == 0) {
|
|
| 66 |
export_bewegungsdaten(); |
|
| 67 |
} else {
|
|
| 68 |
export_stammdaten(); |
|
| 69 |
} |
|
| 65 |
export_bewegungsdaten(); |
|
| 66 |
|
|
| 70 | 67 |
$::lxdebug->leave_sub; |
| 71 | 68 |
} |
| 72 | 69 |
|
| ... | ... | |
| 88 | 85 |
$::lxdebug->leave_sub; |
| 89 | 86 |
} |
| 90 | 87 |
|
| 91 |
sub export_stammdaten {
|
|
| 92 |
$::lxdebug->enter_sub; |
|
| 93 |
$::auth->assert('datev_export');
|
|
| 94 |
|
|
| 95 |
setup_datev_export2_action_bar(); |
|
| 96 |
|
|
| 97 |
$::form->header; |
|
| 98 |
print $::form->parse_html_template('datev/export_stammdaten');
|
|
| 99 |
|
|
| 100 |
$::lxdebug->leave_sub; |
|
| 101 |
} |
|
| 102 |
|
|
| 103 | 88 |
sub export3 {
|
| 104 | 89 |
$::lxdebug->enter_sub; |
| 105 | 90 |
$::auth->assert('datev_export');
|
| ... | ... | |
| 109 | 94 |
format => $::form->{exportformat} eq 'kne' ? DATEV_FORMAT_KNE : DATEV_FORMAT_CSV,
|
| 110 | 95 |
); |
| 111 | 96 |
|
| 112 |
if ($::form->{exporttype} == DATEV_ET_STAMM) {
|
|
| 113 |
$data{accnofrom} = $::form->{accnofrom},
|
|
| 114 |
$data{accnoto} = $::form->{accnoto},
|
|
| 115 |
} elsif ($::form->{exporttype} == DATEV_ET_BUCHUNGEN) {
|
|
| 116 |
@data{qw(from to)} = _get_dates(
|
|
| 117 |
$::form->{zeitraum}, $::form->{monat}, $::form->{quartal},
|
|
| 118 |
$::form->{transdatefrom}, $::form->{transdateto},
|
|
| 119 |
); |
|
| 120 |
$data{use_pk} = $::form->{use_pk};
|
|
| 121 |
$data{locked} = $::form->{locked};
|
|
| 122 |
$data{imported} = $::form->{imported};
|
|
| 123 |
} else {
|
|
| 124 |
die 'invalid exporttype'; |
|
| 125 |
} |
|
| 97 |
@data{qw(from to)} = _get_dates(
|
|
| 98 |
$::form->{zeitraum}, $::form->{monat}, $::form->{quartal},
|
|
| 99 |
$::form->{transdatefrom}, $::form->{transdateto},
|
|
| 100 |
); |
|
| 101 |
$data{use_pk} = $::form->{use_pk};
|
|
| 102 |
$data{locked} = $::form->{locked};
|
|
| 103 |
$data{imported} = $::form->{imported};
|
|
| 126 | 104 |
|
| 127 | 105 |
my $datev = SL::DATEV->new(%data); |
| 128 | 106 |
|
Auch abrufbar als: Unified diff
zu #317 datev_stamm (kontenexport) auch entfernen