projekt kivitendo

    my ($cluster_encoding) = $dbh->selectrow_array($query);

    if ($cluster_encoding && ($cluster_encoding =~ m/^(?:UTF-?8|UNICODE)$/i) && ($encoding !~ m/^(?:UTF-?8|UNICODE)$/i)) {

    }

    $dbh->disconnect();

    ["batch_printing",                 $locale->text("Batch Printing")],

    ["--others",                       $locale->text("Others")],

    ["email_bcc",                      $locale->text("May set the BCC field when sending emails")],

    ["admin",                          $locale->text("Administration (Used to access instance administration from user logins)")],

    );

    $self->$sub(@_);

    $self->_run_hooks('after', $action);

  } else {

  }

}

#=====================================================================

# Copyright (c) 2004

#

#  Author: Philip Reetz

=head1 NAME

=head1 SYNOPSIS

This module depends on all modules in SL/DB/*.pm for the convenience

of being able to write a simple \C<use SL::DB::Helper::ALL> and

having everything loaded. This is supposed to be used only in the

actually need.

=head1 AUTHOR

This module depends on all modules in SL/DB/Auth*.pm for the

convenience of being able to write a simple \C<use

SL::DB::Helper::ALLAuth> and having everything loaded. This is

should C<use> only the modules they actually need.

=head1 AUTHOR

=head1 DESCRIPTION

Using DBUtils most database procedures can be reduced to defining the query, executing it, and retrieving the result. Let DBUtils handle the rest. Whenever there is a database operation not covered in DBUtils, add it here, rather than working around it in the backend code.

=head1 COPYRIGHT AND LICENSE

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

# setting STDOUT to ":utf8" with "binmode".  Also FCGI starting with

# 0.69 implements proper handling for UTF-8 flagged strings -- namely

# by downgrading them into bytes. The combination of the two causes

# everything in Perl's internal encoding and using Perl's I/O layer

# for automatic conversion on output).

#

=head1 SYNOPSIS

Unfortunately it also acts as a god object for certain data retrieval procedures used in the entry points.

Points of interest for a beginner are:

Generates a HTTP redirection header for the new C<$url>. Constructs an

absolute URL including scheme, host name and port. If C<$url> is a

This function C<die>s if headers have already been created with

C<$::form-E<gt>header>.

=item C<to_lxoffice %param>

date format with L<Locale::format_datetime_object>.

=item C<from_lxoffice $string>

format and returns an instance of L<DateTime>.

Note that only dates can be parsed at the moment, not the time

=head1 SYNOPSIS

(provided by the global variable C<%::lx_office_conf>) and instance

specific. The latter is provided by a global instance of this class,

C<$::instance_conf>.

=head1 NAME

=head1 SYNOPSIS

always created as the global variable C<$::lxdebug> at the earliest

possible moment.

=back

application because otherwise the changes would be lost when the

process exits in a normal CGI environment.

  } elsif ($myconfig->{dateformat} eq "yyyy-mm-dd") {

    # Use German syntax with the ISO date style "yyyy-mm-dd" because

    if (defined $longformat && $longformat == 0) {

      $mm++;

      $dd = "0$dd" if ($dd < 10);

=head1 DESCRIPTION

Most of them are either obvious or too obscure to care about unless you really have to.

The exceptions are documented here.

=head1 NAME

=head1 SYNOPSIS

=head1 NAME

=head1 SYNOPSIS

Then it lacks usability. You want it to be able to sort the data. You add code for that.

Then there are too many results, you need pagination, you want to print or export that data..... and so on.

It's purpose is to manage all those formating, culling, sorting, and templating.

Which makes it almost as complicated to use as doing the work for yourself.

=head1 DESCRIPTION

This module handles flattening and unflattening of data for request

=over 4

=item C<get_path>

Returns the name of the session-specific directory used for file

=item C<prepare_path>

# Replacement for Template::Plugin::HTML::url.

# to be output as UTF-8. A normal regex replace doesn't do that

# creating invalid UTF-8 characters upon URL-unescaping.

#=====================================================================

# Copyright (c) 2004 by Udo Spallek, Aachen

#

#  Author: Udo Spallek

  if ($cluster_encoding && ($cluster_encoding =~ m/^(?:UTF-?8|UNICODE)$/i)) {

    if ($::lx_office_conf{system}->{dbcharset} !~ m/^UTF-?8$/i) {

      $form->show_generic_error($locale->text('The selected  PostgreSQL installation uses UTF-8 as its encoding. ' .

                                'back_button' => 1);

    }

#=====================================================================

# Copyright (c) 2004

#

#  Author: Philip Reetz

  map { delete $form->{$_} } qw(printed emailed queued);

  delete @{ $form }{ grep { m/^stock_(?:in|out)_\d+/ } keys %{ $form } };

  # previous one. If it has been changed manually then use it as-is.

  $form->{donumber} =~ s/^\s*//g;

  $form->{donumber} =~ s/\s*$//g;

  }

  if ($split_safety{-1} > 1 && $split_safety{1} > 1) {

  }

  for my $i (1 .. $count) {

<html>

 <head>

  <link rel="stylesheet" href="css/lx-office-erp.css" type="text/css"

  <title>| . $locale->text("One or more Perl modules missing") . qq|</title>

 </head>

 <body>

  <h1>| . $locale->text("One or more Perl modules missing") . qq|</h1>

                       "requires for running is not installed on your " .

                       "system.") .

        " " .

  $form->{saveasnew} = 1;

  map { delete $form->{$_} } qw(printed emailed queued delivered closed);

  # previous one. If it has been changed manually then use it as-is.

  my $idx = $form->{type} =~ /_quotation$/ ? "quonumber" : "ordnumber";

  $form->{$idx} =~ s/^\s*//g;

#=====================================================================

# Copyright (c) 2004 by Udo Spallek, Aachen

#

#  Author: Udo Spallek

  call_sub($::form->{"lastsub"});

  $::lxdebug->leave_sub();

}

 * Name: Mobile.css*/

/* The look of links */

    display: none;

  }

}

 * Name: lx-office-erp.css*/

/* The look of links */

=head1 Projekte erfassen

erfassen, können Sie C<Belegen> Projekte zuweisen, und Auswertungen hinterher

nach den Projekten filtern. Projekte haben ansonsten keine weitere Funktion.

  'Assistant for general ledger corrections' => 'Assistent für die Korrektur von Hauptbucheinträgen',

  'Assume Tax Consultant Data in Tax Computation?' => 'Beraterdaten in UStVA übernehmen?',

  'At least'                    => 'Mindestens',

  'At least one of the columns #1, customer, customernumber, vendor, vendornumber (depending on the target table) is required for matching the entry to an existing customer or vendor.' => 'Mindestens eine der Spalten #1, customer, customernumber, vendor, vendornumber (von Zieltabelle abhängig) wird benötigt, um einen Eintrag einem bestehenden Kunden bzw. Lieferanten zuzuordnen.',

  'At most'                     => 'Höchstens',

  'At the moment the transaction looks like this:' => 'Aktuell sieht die Buchung wie folgt aus:',

  'Carry over shipping address' => 'Lieferadresse übernehmen',

  'Cash'                        => 'Zahlungsverkehr',

  'Cc'                          => 'Cc',

  'Change representative to'    => 'Vertreter ändern in',

  'Changes in this block are only sensible if the account is NOT a summary account AND there exists one valid taxkey. To select both Receivables and Payables only make sense for Payment / Receipt (i.e. account cash).' => 'Es ist nur sinnvoll Änderungen vorzunehmen, wenn das Konto KEIN Sammelkonto ist und wenn ein gültiger Steuerschlüssel für das Konto existiert. Gleichzeitig Haken bei Forderungen und Verbindlichkeiten zu setzen, macht auch NUR für den Zahlungsein- und Ausgang (bspw. Bank oder Kasse) Sinn.',

  'Changes to Receivables and Payables are only possible if no transactions to this account are posted yet.' => 'Änderungen bei Forderungen oder Verbindlichkeiten sind nur möglich, wenn dieses Konto noch nicht bebucht wurde.',

  'If the article type is set to \'mixed\' then a column called \'type\' must be present.' => 'Falls der Artikeltyp auf \'gemischt\' gestellt wird, muss eine Spalte namens \'type\' vorhanden sein.',

  'If the automatic creation of invoices for fees and interest is switched on for a dunning level then the following accounts will be used for the invoice.' => 'Wenn das automatische Erstellen einer Rechnung über Mahngebühren und Zinsen für ein Mahnlevel aktiviert ist, so werden die folgenden Konten für die Rechnung benutzt.',

  'If the database user listed above does not have the right to create a database then enter the name and password of the superuser below:' => 'Falls der oben genannte Datenbankbenutzer nicht die Berechtigung zum Anlegen neuer Datenbanken hat, so können Sie hier den Namen und das Passwort des Datenbankadministratoraccounts angeben:',

  'If you enter values for the part number and / or part description then only those bins containing parts whose part number or part description match your input will be shown.' => 'Wenn Sie für die Artikelnummer und / oder die Beschreibung etwas eingeben, so werden nur die Lagerplätze angezeigt, in denen Waren eingelagert sind, die Ihre Suchbegriffe enthalten.',

  'If you see this message, you most likely just setup your LX-Office and haven\'t added any entry types. If this is the case, the option is accessible for administrators in the System menu.' => 'Wenn Sie diese Meldung sehen haben Sie wahrscheinlich ein frisches LX-Office Setup und noch keine Buchungsgruppen eingerichtet. Ein Administrator kann dies im Systemmenü erledigen.',

  'If you select a base unit then you also have to enter a factor.' => 'Wenn Sie eine Basiseinheit auswählen, dann müssen Sie auch einen Faktor eingeben.',

  'Import result'               => 'Import-Ergebnis',

  'Import summary'              => 'Import-Zusammenfassung',

  'In order to do that hit the button "Delete transaction".' => 'Drücken Sie dafür auf den Button "Buchung löschen".',

  'In version 2.4.0 the administrator has to enter a list of units in the administrative section.' => 'Vor Version 2.4.0 musste der Benutzer die Konten bei jeder Ware und jeder Dienstleistung einzeln auswählen.',

  'In-line'                     => 'im Text',

  'Inactive'                    => 'Inaktiv',

  'Login name missing!'         => 'Benutzer - Feld darf nicht leer sein!',

  'Login of User'               => 'Login',

  'Logout'                      => 'Abmelden',

  'Long Dates'                  => 'Lange Monatsnamen',

  'Long Description'            => 'Langtext',

  'MAILED'                      => 'Gesendet',

  'Only Warnings and Errors'    => 'Nur Warnungen und Fehler',

  'Only due follow-ups'         => 'Nur fällige Wiedervorlagen',

  'Only shown in item mode'     => 'werden nur im Artikelmodus angezeigt',

  'Open'                        => 'Offen',

  'Open Amount'                 => 'Offener Betrag',

  'Open a further kivitendo window or tab' => 'Weiteres kivitendo-Fenster/-Tab öffnen',

  'Source bank account'         => 'Quellkonto',

  'Source bin'                  => 'Quelllagerplatz',

  'Space'                       => 'Leerzeichen',

  'Spoolfile'                   => 'Druckdatei',

  'Start Dunning Process'       => 'Mahnprozess starten',

  'Start analysis'              => 'Analyse beginnen',

  'Supplies'                    => 'Lieferungen',

  'Switch Menu on / off'        => 'Menü ein- / ausklappen',

  'System'                      => 'System',

  'TODO list'                   => 'Aufgabenliste',

  'TODO list options'           => 'Aufgabenlistenoptionen',

  'TOP100'                      => 'Top 100',

  'The restoration process is complete. Please review "pg_restore"\'s output to find out if the restoration was successful.' => 'Die Wiederherstellung ist abgeschlossen. Bitte sehen Sie sich die Ausgabe von "pg_restore" an, um festzustellen, ob die Wiederherstellung erfolgreich war.',

  'The second reason is that kivitendo allowed the user to enter the tax amount manually regardless of the taxkey used.' => 'Der zweite Grund war, dass kivitendo zuließ, dass die Benutzer beliebige, von den tatsächlichen Steuerschlüsseln unabhängige Steuerbeträge eintrugen.',

  'The second way is to use Perl\'s CPAN module and let it download and install the module for you.' => 'Die zweite Variante besteht darin, Perls CPAN-Modul zu benutzen und es das Modul für Sie installieren zu lassen.',

  'The selected bank account does not exist anymore.' => 'Das ausgewählte Bankkonto existiert nicht mehr.',

  'The selected bin does not exist.' => 'Der ausgewählte Lagerplatz existiert nicht.',

  'The selected currency'       => 'Die ausgewählte Währung',

  'The selected exports have been closed.' => 'Die ausgewählten Exporte wurden abgeschlossen.',

  'The selected warehouse does not exist.' => 'Das ausgewählte Lager existiert nicht.',

  'The selected warehouse is empty, or no stocked items where found that match the filter settings.' => 'Das ausgewählte Lager ist leer, oder in ihm wurden keine zu den Sucheinstellungen passenden eingelagerten Artikel gefunden.',

  'The settings were saved, but the password was not changed.' => 'Die Einstellungen wurden gespeichert, aber das Passwort wurde nicht geändert.',

  'The source warehouse does not contain any bins.' => 'Das Quelllager enthält keine Lagerplätze.',

  'The start date is missing.'  => 'Das Startdatum fehlt.',

  'You will now be forwarded to the administration panel.' => 'Sie werden nun zum Administrationsbereich weitergeleitet.',

  'You\'re not editing a file.' => 'Sie bearbeiten momentan keine Datei.',

  'You\'ve already chosen the following limitations:' => 'Sie haben bereits die folgenden Einschränkungen vorgenommen:',

  'Your TODO list'              => 'Ihre Aufgabenliste',

  'Your account number'         => 'Ihre Kontonummer',

  'Your bank'                   => 'Der Name Ihrer Bank',

*License: non free

*eMail: info@lx-system.de

*Version: 1.0.0

***************************************************************/

?>

<html>

*eMail: info@lx-system.de

*Version: 1.6

*Shop: xt::Commerce

***************************************************************/

/*

* Noch einzubauen:

*eMail: info@lx-system.de

*Version: 2.0

*Shop: xt:Commerce 3.04

***************************************************************/

require_once "shoplib.php";

*eMail: info@lx-system.de

*Version: 1.0.0

*Shop: xt:Commerce 2.2

***************************************************************/

require_once "DB.php";

require_once "conf.php";

*License: non free

*eMail: info@lx-system.de

*Version: 1.0.1

***************************************************************/

?>

<html>

*eMail: info@lx-system.de

*Version: 1.6

*Shop: osCommerce 2.2 ms2

***************************************************************/

/*

* Noch einzubauen:

*eMail: info@lx-system.de

*Version: 1.6.0

*Shop: osCommerce 2.2

***************************************************************/

require_once "shoplib.php";

$LAND=array("Germany"=>"D");

*eMail: info@lx-system.de

*Version: 1.0.0

*Shop: osCommerce 2.2

***************************************************************/

require_once "DB.php";

require_once "conf.php";

*License: non free

*eMail: info@lx-system.de

*Version: 1.0.1

***************************************************************/

?>

<html>

*eMail: info@lx-system.de

*Version: 1.0.1

*Shop: PHPeppershop 1.5

***************************************************************/

// -----------------------------------------------------------------------

// Damit jedes andere Modul ueberpruefen kann ob dieses hier schon "included" ist

//  4.) Kurzbeschreibung

//      ! Formatierungen sollen via HTML-Tags eingegeben werden.

				 Neukunden werden in der ERP angelegt und die ERP-KdNr in Kundendaten eingepflegt,

				 bei Bestandskunden werden die Kundendaten abgeglichen.

				 Das Feld "Bestellung_bezahlt" ist der Merker für neue Bestellungen.

*eMail: info@lx-system.de

*Version: 1.4.0

*Shop: PHPeppershop 2.0

***************************************************************/

?>

<html>

*eMail: info@lx-system.de

*Version: 1.0.0

*Shop: PHPeppershop 2.0

***************************************************************/

$login=($_GET["login"])?$_GET["login"]:$_POST["login"];

if (file_exists ("conf$login.php")) {

*eMail: info@lx-system.de

*Version: 1.0.1

*Shop: PHPepper 1.5

***************************************************************/

require_once "DB.php";

require_once "conf.php";

sub help {

  print <<EOL;

  ./scripts/console [login]

Spezielle Kommandos:

  help                - zeigt diese Hilfe an.

  reload              - lädt modifizierte Module neu.

  pp DATA             - zeigt die Datenstruktur mit Data::Dumper an.

  quit                - beendet die Konsole

=head1 NAME

=head1 SYNOPSIS

BEGIN {

  if (! -d "bin" || ! -d "SL") {

    exit(1);

  }

find(sub {

  return unless /(\.p[lm]|console)$/;

  $supplied{modulize($File::Find::name)}++

    if $File::Find::dir =~ m#modules/#;

Distributed under the terms of the GNU General Public License v2.

=cut

  return if $res;

  my $needed_text =

    :                   'It is not listed as a dependancy yet. Please tell this the developers.';

  my @source_texts = module_source_texts($module);

=head1 NAME

=head1 SYNOPSIS

=head1 DESCRIPTION

and warns if one is not available.  List all LaTeX document classes and

one is not available.

=head1 NAME

=head1 SYNOPSIS

=head1 NAME

=head1 SYNOPSIS

# @tag: USTVA_abstraction

# @depends: release_2_4_2

# Abstraktionlayer between general Taxreports and USTVA

  do_query(qq|ALTER TABLE defaults ADD COLUMN payments_changeable integer NOT NULL DEFAULT 0|, 1);

  # check current configuration and set default variables accordingly, so that

  # if payments_changeable is not set in config set it to 0

  my $payments_changeable = 0;

  if ($::lx_office_conf{features}->{payments_changeable} == 1 ) {

  do_query(qq|ALTER TABLE defaults ADD COLUMN show_bestbefore boolean DEFAULT false|, 1);

  # check current configuration and set default variables accordingly, so that

  # if show_best_before is not set in config set it to 0

  my $show_bestbefore = 0;

  if ($::lx_office_conf{features}->{show_best_before}) {

  my $profit_determination;

  # check current configuration and set default variables accordingly, so that

  if ($::lx_office_conf{system}->{eur} == 0 ) {

    $accounting_method = 'accrual';

<?xml version="1.0" encoding="UTF-8" ?>

<WinstonAusgang>

  <Formular Typ="UST"></Formular>

  <Ordnungsnummer><%elsterFFFF%><%elstersteuernummer%></Ordnungsnummer>

<?xml version="1.0" encoding="UTF-8" ?>

<WinstonAusgang>

  <Formular Typ="UST"></Formular>

  <Ordnungsnummer><%elsterFFFF%><%elstersteuernummer%></Ordnungsnummer>

<?xml version="1.0" encoding="UTF-8" ?>

<WinstonAusgang>

  <Formular Typ="UST"></Formular>

  <Ordnungsnummer><%elsterFFFF%><%elstersteuernummer%></Ordnungsnummer>

<?xml version="1.0" encoding="UTF-8" ?>

<WinstonAusgang>

  <Formular Typ="UST"></Formular>

  <Ordnungsnummer><%elsterFFFF%><%elstersteuernummer%></Ordnungsnummer>

<?xml version="1.0" encoding="UTF-8" ?>

<WinstonAusgang>

  <Formular Typ="UST"></Formular>

  <Ordnungsnummer><%elsterFFFF%><%elstersteuernummer%></Ordnungsnummer>

   <p><a href="admin.pl?action=pg_database_administration">[% 'Back' | $T8 %]</a></p>

   <p>

    [% 'You can either create a new database or chose an existing database.' | $T8 %]

   </p>

   <table border="0">

  </p>

  <p>

  </p>

  <input type="hidden" name="yes_nextsub" value="migrate_users">

*License: non free

*eMail: info@lx-system.de

*Version: 1.0.0

***************************************************************/

?>

<html>

*eMail: info@lx-system.de

*Version: 2.1

*Shop: xt:Commerce 3.04

***************************************************************/

define("ExportMode","1");

require_once "shoplib.php";

	if ($debug) {

		$log=fopen("tmp/shop.log","a");

		fputs($log,$nun.": Fehler\n");

}

require ("diff.php");

*eMail: info@lx-system.de

*Version: 1.0.0

*Shop: xt:Commerce 2.2

***************************************************************/

$login=($_GET["login"])?$_GET["login"]:$_POST["login"];

require_once "DB.php";

*eMail: info@lx-system.de

*Version: 1.6

*Shop: xt::Commerce

***************************************************************/

/*

* Noch einzubauen: