Revision 39f3d12c
Von Moritz Bunkus vor mehr als 18 Jahren hinzugefügt
| SL/DATEV.pm | ||
|---|---|---|
|
$main::lxdebug->enter_sub();
|
||
|
|
||
|
my ($self, $myconfig, $form) = @_;
|
||
|
my $rc;
|
||
|
my @rc;
|
||
|
|
||
|
if ($form->{exporttype} == 0) {
|
||
|
$rc = &kne_buchungsexport($myconfig, $form);
|
||
|
@rc = &kne_buchungsexport($myconfig, $form);
|
||
|
} else {
|
||
|
$rc = &kne_stammdatenexport($myconfig, $form);
|
||
|
@rc = &kne_stammdatenexport($myconfig, $form);
|
||
|
}
|
||
|
|
||
|
$main::lxdebug->leave_sub();
|
||
|
|
||
|
return $rc;
|
||
|
return @rc;
|
||
|
}
|
||
|
|
||
|
sub obe_export {
|
||
| ... | ... | |
|
|
||
|
my ($myconfig, $form) = @_;
|
||
|
|
||
|
my $export_path = "datev/";
|
||
|
my @filenames;
|
||
|
|
||
|
my $export_path = $main::userspath . "/";
|
||
|
my $filename = "ED00000";
|
||
|
my $evfile = "EV01";
|
||
|
my @ed_versionsets;
|
||
| ... | ... | |
|
my $buchungssatz = "";
|
||
|
$filename++;
|
||
|
my $ed_filename = $export_path . $filename;
|
||
|
push(@filenames, $filename);
|
||
|
open(ED, "> $ed_filename") or die "can't open outputfile: $!\n";
|
||
|
$header = &make_kne_data_header($myconfig, $form, $fromto);
|
||
|
$remaining_bytes -= length($header);
|
||
| ... | ... | |
|
#Make EV Verwaltungsdatei
|
||
|
$ev_header = &make_ev_header($form, $fileno);
|
||
|
$ev_filename = $export_path . $evfile;
|
||
|
push(@filenames, $evfile);
|
||
|
open(EV, "> $ev_filename") or die "can't open outputfile: EV01\n";
|
||
|
print(EV $ev_header);
|
||
|
|
||
| ... | ... | |
|
print(EV $ed_versionset[$file]);
|
||
|
}
|
||
|
close(EV);
|
||
|
print qq|<br>Done. <br></body>
|
||
|
</html>
|
||
|
print qq|<br>Done. <br>
|
||
|
|;
|
||
|
###
|
||
|
$main::lxdebug->leave_sub();
|
||
|
|
||
|
return @filenames;
|
||
|
}
|
||
|
|
||
|
sub kne_stammdatenexport {
|
||
| ... | ... | |
|
my ($myconfig, $form) = @_;
|
||
|
$form->{abrechnungsnr} = "99";
|
||
|
|
||
|
my $export_path = "datev/";
|
||
|
$form->header;
|
||
|
print qq|
|
||
|
<html>
|
||
|
<body>Export in Bearbeitung<br>
|
||
|
|;
|
||
|
|
||
|
my @filenames;
|
||
|
|
||
|
my $export_path = $main::userspath . "/";
|
||
|
my $filename = "ED00000";
|
||
|
my $evfile = "EV01";
|
||
|
my @ed_versionsets;
|
||
| ... | ... | |
|
my $buchungssatz = "";
|
||
|
$filename++;
|
||
|
my $ed_filename = $export_path . $filename;
|
||
|
push(@filenames, $filename);
|
||
|
open(ED, "> $ed_filename") or die "can't open outputfile: $!\n";
|
||
|
$header = &make_kne_data_header($myconfig, $form, "");
|
||
|
$remaining_bytes -= length($header);
|
||
| ... | ... | |
|
|
||
|
$ev_header = &make_ev_header($form, $fileno);
|
||
|
$ev_filename = $export_path . $evfile;
|
||
|
push(@filenames, $evfile);
|
||
|
open(EV, "> $ev_filename") or die "can't open outputfile: EV01\n";
|
||
|
print(EV $ev_header);
|
||
|
|
||
| ... | ... | |
|
$dbh->disconnect;
|
||
|
###
|
||
|
|
||
|
print qq|<br>Done. <br>
|
||
|
|;
|
||
|
|
||
|
$main::lxdebug->leave_sub();
|
||
|
|
||
|
return @filenames;
|
||
|
}
|
||
|
|
||
|
1;
|
||
| bin/mozilla/datev.pl | ||
|---|---|---|
|
#
|
||
|
#======================================================================
|
||
|
|
||
|
use POSIX qw(strftime getcwd);
|
||
|
use Archive::Zip qw(:ERROR_CODES :CONSTANTS);
|
||
|
|
||
|
use SL::Common;
|
||
|
use SL::DATEV;
|
||
|
|
||
|
1;
|
||
| ... | ... | |
|
<td><input name=datentraegernr size=5 maxlength=3 value="$form->{datentraegernr}"></td>
|
||
|
</tr>
|
||
|
<tr>
|
||
|
<td><input checked name=kne type=checkbox class=checkbox value=1> |
|
||
|
. $locale->text("Kontonummernerweiterung (KNE)") . qq|</td>
|
||
|
| . # OBE-Export noch nicht implementiert! <td><input checked name=kne type=checkbox class=checkbox value=1> | . $locale->text("Kontonummernerweiterung (KNE)") . qq|</td>
|
||
|
qq|<td><input type="hidden" name="kne" value="1"></td>
|
||
|
<td></td>
|
||
|
|
||
|
<td align=left nowrap>| . $locale->text("Abrechnungsnummer") . qq|</td>
|
||
|
<td><input name=abrechnungsnr size=5 maxlength=3 value="$form->{abrechnungsnr}"></td>
|
||
|
</tr>
|
||
|
|
||
|
<tr>
|
||
|
<td><input name=exporttype type=radio class=radio value=0 checked> |
|
||
|
. $locale->text("Export Buchungsdaten") . qq|</td>
|
||
| ... | ... | |
|
|
||
|
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}) {
|
||
|
if (DATEV->kne_export(\%myconfig, \%$form)) {
|
||
|
$form->redirect($locale->text('KNE Export erfolgreich!'));
|
||
|
my @filenames = DATEV->kne_export(\%myconfig, \%$form);
|
||
|
if (@filenames) {
|
||
|
print(qq|<br><b>| . $locale->text('KNE-Export erfolgreich!') . qq|</b><br>|);
|
||
|
$link .= "&filenames=" . $form->escape(join(":", @filenames));
|
||
|
print(qq|<br><a href="$link">Download</a>|);
|
||
|
} else {
|
||
|
$form->error("KNE-Export schlug fehl.");
|
||
|
}
|
||
|
} else {
|
||
|
if (DATEV->obe_export(\%myconfig, \%$form)) {
|
||
|
$form->redirect($locale->text('OBE Export erfolgreich!'));
|
||
|
my @filenames = DATEV->obe_export(\%myconfig, \%$form);
|
||
|
if (@filenames) {
|
||
|
print(qq|<br><b>| . $locale->text('OBE-Export erfolgreich!') . qq|</b><br>|);
|
||
|
$link .= "&filenames=" . $form->escape(join(":", @filenames));
|
||
|
print(qq|<br><a href="$link">Download</a>|);
|
||
|
} else {
|
||
|
$form->error("OBE-Export schlug fehl.");
|
||
|
}
|
||
|
}
|
||
|
|
||
|
print("</body></html>");
|
||
|
|
||
|
$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 (<IN>) {
|
||
|
print($_);
|
||
|
}
|
||
|
close(IN);
|
||
|
|
||
|
unlink($tmp_name);
|
||
|
|
||
|
$lxdebug->leave_sub();
|
||
|
}
|
||
| locale/de/all | ||
|---|---|---|
|
'Character Set' => 'Zeichensatz',
|
||
|
'Chart of Accounts' => 'Konten?bersicht',
|
||
|
'Chart of accounts' => 'Kontenrahmen',
|
||
|
'Check' => 'Scheck',
|
||
|
'Checks' => 'Schecks',
|
||
|
'Choose Customer' => 'Endkunde w?hlen:',
|
||
|
'Choose Vendor' => 'H?ndler w?hlen',
|
||
| ... | ... | |
|
'Groups' => 'Warengruppen',
|
||
|
'G?ltig ab' => 'G?ltig ab',
|
||
|
'HTML' => 'HTML',
|
||
|
'HTML Templates' => 'HTML-Vorlagen',
|
||
|
'Heading' => '?berschrift',
|
||
|
'Help' => 'Hilfe',
|
||
|
'Help:' => 'Hilfe:',
|
||
| ... | ... | |
|
'July' => 'Juli',
|
||
|
'Jun' => 'Jun',
|
||
|
'June' => 'Juni',
|
||
|
'KNE Export erfolgreich!' => 'KNE-Export erfolgreich!',
|
||
|
'KNE-Export erfolgreich!' => 'KNE-Export erfolgreich!',
|
||
|
'KNr. beim Kunden' => 'KNr. beim Kunden',
|
||
|
'Kein Firmenname hinterlegt!' => 'Kein Firmenname hinterlegt!',
|
||
|
'Keine Firmenadresse hinterlegt!' => 'Keine Firmenadresse hinterlegt!',
|
||
| ... | ... | |
|
'Kreditinstitut' => 'Kreditinstitut',
|
||
|
'Kundennummer' => 'Kundennummer',
|
||
|
'L' => 'L',
|
||
|
'LaTeX Templates' => 'LaTeX-Vorlagen',
|
||
|
'Language' => 'Sprache',
|
||
|
'Language Values' => 'Sprach?bersetzungen',
|
||
|
'Language deleted!' => 'Sprache gel?scht!',
|
||
| ... | ... | |
|
'Number missing in Row' => 'Nummer fehlt in Zeile',
|
||
|
'Number of copies' => 'Anzahl Kopien',
|
||
|
'O' => 'O',
|
||
|
'OBE Export erfolgreich!' => 'OBE-Export erfolgreich!',
|
||
|
'OBE-Export erfolgreich!' => 'OBE-Export erfolgreich!',
|
||
|
'Obsolete' => 'Ung?ltig',
|
||
|
'Oct' => 'Okt',
|
||
|
'October' => 'Oktober',
|
||
| ... | ... | |
|
'USTVA-Hint: Tax Authoritys' => 'Bitte das Bundesland UND die Stadt bzw. den Einzugsbereich Ihres zust?ndigen Finanzamts ausw?hlen.',
|
||
|
'USt-IdNr.' => 'USt-IdNr.',
|
||
|
'UStVA' => 'UStVA',
|
||
|
'UStVA 2004' => 'UStVA 2004',
|
||
|
'UStVA 2005' => 'UStVA 2005',
|
||
|
'UStVA 2006' => 'UStVA 2006',
|
||
|
'UStVA als PDF-Dokument' => 'UStVa als PDF-Dokument',
|
||
|
'UStVA-Nr. 35' => 'Kz. 35',
|
||
|
'UStVA-Nr. 36' => 'Kz. 36',
|
||
| locale/de/datev | ||
|---|---|---|
|
'January' => 'Januar',
|
||
|
'July' => 'Juli',
|
||
|
'June' => 'Juni',
|
||
|
'KNE Export erfolgreich!' => 'KNE-Export erfolgreich!',
|
||
|
'KNE-Export erfolgreich!' => 'KNE-Export erfolgreich!',
|
||
|
'Konten' => 'Konten',
|
||
|
'Kontonummernerweiterung (KNE)' => 'Kontonummernerweiterung (KNE)',
|
||
|
'Mandantennummer' => 'Mandantennummer',
|
||
| ... | ... | |
|
'May' => 'Mai',
|
||
|
'Monat' => 'Monat',
|
||
|
'November' => 'November',
|
||
|
'OBE Export erfolgreich!' => 'OBE-Export erfolgreich!',
|
||
|
'OBE-Export erfolgreich!' => 'OBE-Export erfolgreich!',
|
||
|
'October' => 'Oktober',
|
||
|
'Password' => 'Passwort',
|
||
|
'Quartal' => 'Quartal',
|
||
| ... | ... | |
|
|
||
|
$self->{subs} = {
|
||
|
'continue' => 'continue',
|
||
|
'download' => 'download',
|
||
|
'export' => 'export',
|
||
|
'export2' => 'export2',
|
||
|
'export3' => 'export3',
|
||
| locale/de/menu | ||
|---|---|---|
|
'Buchungsgruppen' => 'Buchungsgruppen',
|
||
|
'Cash' => 'Zahlungsverkehr',
|
||
|
'Chart of Accounts' => 'Konten?bersicht',
|
||
|
'Check' => 'Scheck',
|
||
|
'Checks' => 'Schecks',
|
||
|
'Contacts' => 'Kontakte',
|
||
|
'Customer' => 'Kunde',
|
||
| ... | ... | |
|
'Edit Dunning' => 'Mahnungen konfigurieren',
|
||
|
'General Ledger' => 'Finanzbuchhaltung',
|
||
|
'Groups' => 'Warengruppen',
|
||
|
'HTML Templates' => 'HTML-Vorlagen',
|
||
|
'Import CSV' => 'Import CSV',
|
||
|
'Income Statement' => 'GuV',
|
||
|
'Invoice' => 'Rechnung',
|
||
|
'Invoices' => 'Rechnungen',
|
||
|
'Journal' => 'Buchungsjournal',
|
||
|
'LaTeX Templates' => 'LaTeX-Vorlagen',
|
||
|
'Languages' => 'Sprachen',
|
||
|
'Lead' => 'Kundenquelle',
|
||
|
'Licenses' => 'Lizenzen',
|
||
| ... | ... | |
|
'List Printer' => 'Drucker anzeigen',
|
||
|
'Logout' => 'Abmeldung',
|
||
|
'Master Data' => 'Stammdaten',
|
||
|
'Packing List' => 'Lieferschein',
|
||
|
'Packing Lists' => 'Lieferschein',
|
||
|
'Parts' => 'Waren',
|
||
|
'Payment' => 'Zahlungsausgang',
|
||
| ... | ... | |
|
'Programm' => 'Programm',
|
||
|
'Projects' => 'Projekte',
|
||
|
'Projecttransactions' => 'Projektbuchungen',
|
||
|
'Purchase Order' => 'Lieferantenauftrag',
|
||
|
'Purchase Orders' => 'Lieferantenauftr?ge',
|
||
|
'Quotation' => 'Angebot',
|
||
|
'Quotations' => 'Angebote',
|
||
|
'RFQ' => 'Anfrage',
|
||
|
'RFQs' => 'Anfragen',
|
||
|
'Receipt' => 'Zahlungseingang',
|
||
|
'Receipts' => 'Zahlungseing?nge',
|
||
|
'Reconciliation' => 'Kontenabgleich',
|
||
|
'Reports' => 'Berichte',
|
||
|
'Sales Invoices' => 'Kundenrechnung',
|
||
|
'Sales Order' => 'Kundenauftrag',
|
||
|
'Sales Orders' => 'Auftr?ge',
|
||
|
'Service units' => 'Dienstleistungseinheiten',
|
||
|
'Services' => 'Dienstleistungen',
|
||
|
'Shipto' => 'Lieferanschriften',
|
||
|
'Statement' => 'Sammelrechnung',
|
||
|
'Stylesheet' => 'Stilvorlage',
|
||
|
'System' => 'System',
|
||
|
'Trial Balance' => 'Saldenbilanz',
|
||
|
'Type of Business' => 'Kundentyp',
|
||
|
'UStVA' => 'UStVA',
|
||
|
'UStVA 2004' => 'UStVA 2004',
|
||
|
'UStVA 2005' => 'UStVA 2005',
|
||
|
'UStVA 2006' => 'UStVA 2006',
|
||
|
'UStVa' => 'UStVa',
|
||
|
'UStVa Einstellungen' => 'UStVa Einstellungen',
|
||
|
'Units' => 'Einheiten',
|
||
| locale/de/menunew | ||
|---|---|---|
|
'Buchungsgruppen' => 'Buchungsgruppen',
|
||
|
'Cash' => 'Zahlungsverkehr',
|
||
|
'Chart of Accounts' => 'Konten?bersicht',
|
||
|
'Check' => 'Scheck',
|
||
|
'Checks' => 'Schecks',
|
||
|
'Contacts' => 'Kontakte',
|
||
|
'Customer' => 'Kunde',
|
||
| ... | ... | |
|
'Edit Dunning' => 'Mahnungen konfigurieren',
|
||
|
'General Ledger' => 'Finanzbuchhaltung',
|
||
|
'Groups' => 'Warengruppen',
|
||
|
'HTML Templates' => 'HTML-Vorlagen',
|
||
|
'Import CSV' => 'Import CSV',
|
||
|
'Income Statement' => 'GuV',
|
||
|
'Invoice' => 'Rechnung',
|
||
|
'Invoices' => 'Rechnungen',
|
||
|
'Journal' => 'Buchungsjournal',
|
||
|
'LaTeX Templates' => 'LaTeX-Vorlagen',
|
||
|
'Languages' => 'Sprachen',
|
||
|
'Lead' => 'Kundenquelle',
|
||
|
'Licenses' => 'Lizenzen',
|
||
| ... | ... | |
|
'List Printer' => 'Drucker anzeigen',
|
||
|
'Logout' => 'Abmeldung',
|
||
|
'Master Data' => 'Stammdaten',
|
||
|
'Packing List' => 'Lieferschein',
|
||
|
'Packing Lists' => 'Lieferschein',
|
||
|
'Parts' => 'Waren',
|
||
|
'Payment' => 'Zahlungsausgang',
|
||
| ... | ... | |
|
'Programm' => 'Programm',
|
||
|
'Projects' => 'Projekte',
|
||
|
'Projecttransactions' => 'Projektbuchungen',
|
||
|
'Purchase Order' => 'Lieferantenauftrag',
|
||
|
'Purchase Orders' => 'Lieferantenauftr?ge',
|
||
|
'Quotation' => 'Angebot',
|
||
|
'Quotations' => 'Angebote',
|
||
|
'RFQ' => 'Anfrage',
|
||
|
'RFQs' => 'Anfragen',
|
||
|
'Receipt' => 'Zahlungseingang',
|
||
|
'Receipts' => 'Zahlungseing?nge',
|
||
|
'Reconciliation' => 'Kontenabgleich',
|
||
|
'Reports' => 'Berichte',
|
||
|
'Sales Invoices' => 'Kundenrechnung',
|
||
|
'Sales Order' => 'Kundenauftrag',
|
||
|
'Sales Orders' => 'Auftr?ge',
|
||
|
'Service units' => 'Dienstleistungseinheiten',
|
||
|
'Services' => 'Dienstleistungen',
|
||
|
'Shipto' => 'Lieferanschriften',
|
||
|
'Statement' => 'Sammelrechnung',
|
||
|
'Stylesheet' => 'Stilvorlage',
|
||
|
'System' => 'System',
|
||
|
'Trial Balance' => 'Saldenbilanz',
|
||
|
'Type of Business' => 'Kundentyp',
|
||
|
'UStVA' => 'UStVA',
|
||
|
'UStVA 2004' => 'UStVA 2004',
|
||
|
'UStVA 2005' => 'UStVA 2005',
|
||
|
'UStVA 2006' => 'UStVA 2006',
|
||
|
'UStVa' => 'UStVa',
|
||
|
'UStVa Einstellungen' => 'UStVa Einstellungen',
|
||
|
'Units' => 'Einheiten',
|
||
Auch abrufbar als: Unified diff
Der Datevexport wird nicht mehr in Dateien im datev/-Verzeichnis geschrieben, sondern dem Benutzer als ZIP-Archiv zum Download angeboten.