#===================================================================== # Lx-Office ERP # Copyright (c) 2004 # # Author: Philip Reetz # Email: p.reetz@linet-services.de # Web: http://www.lx-office.org # # # This program is free software; you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by # the Free Software Foundation; either version 2 of the License, or # (at your option) any later version. # # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # You should have received a copy of the GNU General Public License # along with this program; if not, write to the Free Software # Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. #====================================================================== # # Datev export module # #====================================================================== use POSIX qw(strftime getcwd); use Archive::Zip qw(:ERROR_CODES :CONSTANTS); use SL::Common; use SL::DATEV; 1; # end of main sub continue { &{ $form->{nextsub} } } sub export { $lxdebug->enter_sub(); $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("Datenträgernummer") . qq\|
\| . $locale->text("Kontonummernerweiterung (KNE)") . qq\|		\| . $locale->text("Abrechnungsnummer") . qq\|
\| . $locale->text("Export Buchungsdaten") . qq\|	\| . $locale->text("Export Stammdaten") . qq\|

{path}> {login}> {password}>

|; $lxdebug->leave_sub(); } sub export2 { $lxdebug->enter_sub(); if ($form->{exporttype} == 0) { &export_bewegungsdaten(); } else { &export_stammdaten(); } $lxdebug->leave_sub(); } sub export_bewegungsdaten { $lxdebug->enter_sub(); $form->{title} = $locale->text("DATEX - Export Assistent"); $form->{allemonate} = qq| |; $form->{allequartale} = qq| |; $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\|

{path}> {login}> {password}>

|; $lxdebug->leave_sub(); } sub export_stammdaten { $lxdebug->enter_sub(); $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\|

{path}> {login}> {password}>

|; $lxdebug->leave_sub(); } sub export3 { $lxdebug->enter_sub(); DATEV->save_datev_stamm(\%myconfig, \%$form); my $link = $form->{"script"} . "?"; map({ $link .= "${_}=" . $form->escape($form->{$_}) . "&"; } qw(path login password)); $link .= "action=download"; if ($form->{kne}) { my @filenames = DATEV->kne_export(\%myconfig, \%$form); if (@filenames) { print(qq|
| . $locale->text('KNE-Export erfolgreich!') . qq|
|); $link .= "&filenames=" . $form->escape(join(":", @filenames)); print(qq|
Download|); } else { $form->error("KNE-Export schlug fehl."); } } else { my @filenames = DATEV->obe_export(\%myconfig, \%$form); if (@filenames) { print(qq|
| . $locale->text('OBE-Export erfolgreich!') . qq|
|); $link .= "&filenames=" . $form->escape(join(":", @filenames)); print(qq|
Download|); } else { $form->error("OBE-Export schlug fehl."); } } print(""); $lxdebug->leave_sub(); } sub download { $lxdebug->enter_sub(); my $tmp_name = Common->tmpname(); my $zip_name = strftime("lx-office-datev-export-%Y%m%d.zip", localtime(time())); my $cwd = getcwd(); chdir("users") || die("chdir users"); my @filenames = split(/:/, $form->{"filenames"}); map({ s|.*/||; $form->error("Eine der KNE-Exportdateien wurde nicht " . "gefunden. Wurde der Export bereits " . "durchgeführt?") unless (-f $_); } @filenames); my $zip = Archive::Zip->new(); map({ $zip->addFile($_); } @filenames); $zip->writeToFileNamed($tmp_name); chdir($cwd); open(IN, $tmp_name) || die("open $tmp_name"); print("Content-Type: application/zip\n"); print("Content-Disposition: attachment; filename=\"${zip_name}\"\n\n"); while () { print($_); } close(IN); unlink($tmp_name); $lxdebug->leave_sub(); }