Revision 15cc7149
Von Moritz Bunkus vor fast 8 Jahren hinzugefügt
| bin/mozilla/datev.pl | ||
|---|---|---|
|
|
||
|
use SL::Common;
|
||
|
use SL::DATEV qw(:CONSTANTS);
|
||
|
use SL::Locale::String qw(t8);
|
||
|
|
||
|
use strict;
|
||
|
|
||
| ... | ... | |
|
|
||
|
my $stamm = SL::DATEV->new->get_datev_stamm;
|
||
|
|
||
|
setup_datev_export_action_bar();
|
||
|
|
||
|
$::form->header;
|
||
|
print $::form->parse_html_template('datev/export', $stamm);
|
||
|
|
||
| ... | ... | |
|
$::lxdebug->enter_sub;
|
||
|
$::auth->assert('datev_export');
|
||
|
|
||
|
setup_datev_export2_action_bar();
|
||
|
|
||
|
$::form->header;
|
||
|
print $::form->parse_html_template('datev/export_bewegungsdaten');
|
||
|
|
||
| ... | ... | |
|
$::lxdebug->enter_sub;
|
||
|
$::auth->assert('datev_export');
|
||
|
|
||
|
setup_datev_export2_action_bar();
|
||
|
|
||
|
$::form->header;
|
||
|
print $::form->parse_html_template('datev/export_stammdaten');
|
||
|
|
||
| ... | ... | |
|
$datev->export;
|
||
|
|
||
|
if (!$datev->errors) {
|
||
|
setup_datev_export3_action_bar(download_token => $datev->download_token);
|
||
|
|
||
|
$::form->header;
|
||
|
print $::form->parse_html_template('datev/export3', { datev => $datev });
|
||
|
print $::form->parse_html_template('datev/export3');
|
||
|
} else {
|
||
|
$::form->error("Export schlug fehl.\n" . join "\n", $datev->errors);
|
||
|
}
|
||
| ... | ... | |
|
|
||
|
return ($fromdate, $todate);
|
||
|
}
|
||
|
|
||
|
sub setup_datev_export_action_bar {
|
||
|
my %params = @_;
|
||
|
|
||
|
for my $bar ($::request->layout->get('actionbar')) {
|
||
|
$bar->add(
|
||
|
action => [
|
||
|
t8('Continue'),
|
||
|
submit => [ '#form', { action => 'export2' } ],
|
||
|
accesskey => 'enter',
|
||
|
],
|
||
|
);
|
||
|
}
|
||
|
}
|
||
|
|
||
|
sub setup_datev_export2_action_bar {
|
||
|
my %params = @_;
|
||
|
|
||
|
for my $bar ($::request->layout->get('actionbar')) {
|
||
|
$bar->add(
|
||
|
action => [
|
||
|
t8('Export'),
|
||
|
submit => [ '#form', { action => 'export3' } ],
|
||
|
accesskey => 'enter',
|
||
|
],
|
||
|
action => [
|
||
|
t8('Back'),
|
||
|
call => [ 'kivi.history_back' ],
|
||
|
],
|
||
|
);
|
||
|
}
|
||
|
}
|
||
|
|
||
|
sub setup_datev_export3_action_bar {
|
||
|
my %params = @_;
|
||
|
|
||
|
for my $bar ($::request->layout->get('actionbar')) {
|
||
|
$bar->add(
|
||
|
link => [
|
||
|
t8('Download'),
|
||
|
link => [ 'datev.pl?action=download&download_token=' . $::form->escape($params{download_token}) ],
|
||
|
],
|
||
|
action => [
|
||
|
t8('Back'),
|
||
|
call => [ 'kivi.history_back' ],
|
||
|
],
|
||
|
);
|
||
|
}
|
||
|
}
|
||
Auch abrufbar als: Unified diff
ActionBar: Verwendung beim DATEV-Export