#===================================================================== # 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(); }