From 6fc9c2bb4cef43404a86d3922295d2341e8c377c Mon Sep 17 00:00:00 2001 From: =?utf8?q?Sven=20Sch=C3=B6ling?= Date: Fri, 28 Oct 2011 18:00:25 +0200 Subject: [PATCH] datev -> template --- bin/mozilla/datev.pl | 301 ++---------------- templates/webpages/datev/export.html | 69 ++++ .../webpages/datev/export_bewegungsdaten.html | 84 +++++ .../webpages/datev/export_stammdaten.html | 49 +++ 4 files changed, 224 insertions(+), 279 deletions(-) create mode 100644 templates/webpages/datev/export.html create mode 100644 templates/webpages/datev/export_bewegungsdaten.html create mode 100644 templates/webpages/datev/export_stammdaten.html diff --git a/bin/mozilla/datev.pl b/bin/mozilla/datev.pl index d35225204..8915d2f8b 100644 --- a/bin/mozilla/datev.pl +++ b/bin/mozilla/datev.pl @@ -42,303 +42,46 @@ require "bin/mozilla/common.pl"; sub continue { call_sub($main::form->{"nextsub"}); } sub export { - $main::lxdebug->enter_sub(); + $::lxdebug->enter_sub; + $::auth->assert('datev_export'); - my $form = $main::form; - my %myconfig = %main::myconfig; - my $locale = $main::locale; + DATEV->get_datev_stamm(\%::myconfig, $::form); + $::form->header; + print $::form->parse_html_template('datev/export'); - $main::auth->assert('datev_export'); - - $form->{title} = $locale->text("DATEX - Export Assistent"); - - DATEV->get_datev_stamm(\%myconfig, \%$form); - $form->header; - - print qq| - - -
{script}> - - - - - - - - - - - - - - - - -
$form->{title}
| . $locale->text("DATEV Angaben") . qq|
- - - - - - - - - - - - - - - - - - - - - - - - | . # OBE-Export noch nicht implementiert! - qq| - - - - - - - - - - - - - -
| . $locale->text("Beraternummer") . qq|| . $locale->text("DFV-Kennzeichen") . qq|
| . $locale->text("Beratername") . qq|| . $locale->text("Password") . qq|
| . $locale->text("Mandantennummer") . qq|| . $locale->text("Medium Number") . qq|
| . $locale->text("Kontonummernerweiterung (KNE)") . qq|| . $locale->text("Abrechnungsnummer") . qq|
| - . $locale->text("Export Buchungsdaten") . qq| | - . $locale->text("Export Stammdaten") . qq|
-
- - - -
- -
- - - -|; - $main::lxdebug->leave_sub(); + $::lxdebug->leave_sub; } sub export2 { - $main::lxdebug->enter_sub(); - - my $form = $main::form; + $::lxdebug->enter_sub; + $::auth->assert('datev_export'); - $main::auth->assert('datev_export'); - - if ($form->{exporttype} == 0) { - &export_bewegungsdaten(); + if ($::form->{exporttype} == 0) { + export_bewegungsdaten(); } else { - &export_stammdaten(); + export_stammdaten(); } - $main::lxdebug->leave_sub(); + $::lxdebug->leave_sub; } sub export_bewegungsdaten { - $main::lxdebug->enter_sub(); + $::lxdebug->enter_sub; + $::auth->assert('datev_export'); - my $form = $main::form; - my %myconfig = %main::myconfig; - my $locale = $main::locale; + $::form->header; + print $::form->parse_html_template('datev/export_bewegungsdaten'); - $main::auth->assert('datev_export'); - - $form->{title} = $locale->text("DATEX - Export Assistent"); - - $form->{allemonate} = - qq| - - - - - - - - - - - |; - - $form->{allequartale} = - qq| - - - |; - $form->{"jsscript"} = 1; - $form->header; - - print qq| - - -
{script}> - - - - - - - - - - - - - - - - -
$form->{title}
| . $locale->text("Zeitraum") . qq|
- - - - - - - - - - - - - - - - - - - -
 | - . $locale->text('Monat') . qq|
 | - . $locale->text('Quartal') . qq|
 | - . $locale->text('Datum von') . qq| - | . $locale->text('bis') . qq| -
-
- -| . $form->write_trigger(\%myconfig, 2, - "transdatefrom", "BL", "trigger_transdatefrom", - "transdateto", "BL", "trigger_transdateto") . qq| - - - - - - - - - - - - - - -
- -
- - - -|; - - $main::lxdebug->leave_sub(); + $::lxdebug->leave_sub; } sub export_stammdaten { - $main::lxdebug->enter_sub(); + $::lxdebug->enter_sub; + $::auth->assert('datev_export'); - my $form = $main::form; - my $locale = $main::locale; + $::form->header; + print $::form->parse_html_template('datev/export_stammdaten'); - $main::auth->assert('datev_export'); - - $form->{title} = $locale->text("DATEX - Export Assistent"); - - $form->header; - - print qq| - - -
{script}> - - - - - - - - - - - - - - -
$form->{title}
| . $locale->text("Konten") . qq|
- - - - - - - - - -
| . $locale->text('Von Konto: ') . qq|
| . $locale->text('Bis Konto: ') . qq|
-
- - - - - - - - - - - - - -
- -
- - - -|; - - $main::lxdebug->leave_sub(); + $::lxdebug->leave_sub; } sub export3 { diff --git a/templates/webpages/datev/export.html b/templates/webpages/datev/export.html new file mode 100644 index 000000000..49c0f77e9 --- /dev/null +++ b/templates/webpages/datev/export.html @@ -0,0 +1,69 @@ +[%- USE T8 %] + + +
+ + + + + + + + + + + + + + + + +
[% 'DATEX - Export Assistent' | $T8 %]
[% 'DATEV Angaben' | $T8 %]
+ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
[% 'Beraternummer' | $T8 %][% 'DFV-Kennzeichen' | $T8 %]
[% 'Beratername' | $T8 %][% 'Password' | $T8 %]
[% 'Mandantennummer' | $T8 %][% 'Medium Number' | $T8 %]
[% 'Abrechnungsnummer' | $T8 %]
[% 'Export Buchungsdaten' | $T8 %] [% 'Export Stammdaten' | $T8 %]
+
+ + + +
+ +
+ + + diff --git a/templates/webpages/datev/export_bewegungsdaten.html b/templates/webpages/datev/export_bewegungsdaten.html new file mode 100644 index 000000000..89f81a1c8 --- /dev/null +++ b/templates/webpages/datev/export_bewegungsdaten.html @@ -0,0 +1,84 @@ +[%- USE T8 %] +[%- USE L %] + + +
+ + + + + + + + + + + + + + + + +
[% 'DATEX - Export Assistent' | $T8 %]
[% 'Zeitraum' | $T8 %]
+ + + + + + + + + + + + + + + + + + + + + + +
 [% 'Monat' | $T8 %]
 [% 'Quartal' | $T8 %]
 [% 'Datum von' | $T8 %][% L.date_tag('transdatefrom') %][% 'bis' | $T8 %][% L.date_tag('transdateto') %]
+
+ + + + + + + + + + + + + + +
+ +
+ + + diff --git a/templates/webpages/datev/export_stammdaten.html b/templates/webpages/datev/export_stammdaten.html new file mode 100644 index 000000000..03cc368fd --- /dev/null +++ b/templates/webpages/datev/export_stammdaten.html @@ -0,0 +1,49 @@ +[%- USE T8 %] + + +
+ + + + + + + + + + + + + + +
[% 'DATEX - Export Assistent' | $T8 %]
[% 'Konten' | $T8 %]
+ + + + + + + + + +
[% 'Von Konto: ' | $T8 %]
[% 'Bis Konto: ' | $T8 %]
+
+ + + + + + + + + + + + + +
+ +
+ + + -- 2.20.1