#===================================================================== # 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 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|

\| . $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); if ($form->{kne}) { if (DATEV->kne_export(\%myconfig, \%$form)) { $form->redirect($locale->text('KNE Export erfolgreich!')); } } else { if (DATEV->obe_export(\%myconfig, \%$form)) { $form->redirect($locale->text('OBE Export erfolgreich!')); } } $lxdebug->leave_sub(); }