projekt kivitendo

package AccTransCorrections;

use strict;

use List::Util qw(first);

    delete $entry->{chartlink};

  }

  my %all_taxes = $self->{taxkeys}->get_full_tax_info('transdate' => $transaction->[0]->{transdate});

  my ($trans_type, $previous_non_tax_entry);

    }

  }

  foreach my $payment (@{ $data->{payments} }) {

    my $idx = 0 < $payment->{amount} ? 'debit' : 'credit';

}

# Problemfall: Verkaufsrechnungen, bei denen Buchungen auf Warenbestandskonten

sub _check_trans_invoices_inventory_with_taxkeys {

  $main::lxdebug->enter_sub();

}

# Problemfall: Verkaufsrechnungen, bei denen Steuern verbucht wurden, obwohl

sub _check_missing_taxkeys_in_invoices {

  $::lxdebug->enter_sub;

  return $found_broken;

}

# gebucht wurde.

sub _check_trans_ap_ar_wrong_taxkeys {

  $main::lxdebug->enter_sub();

}

# Problemfall: Splitbuchungen, die mehrere Haben- und Sollkonten ansprechen.

sub _check_trans_split_multiple_credit_and_debit {

  $main::lxdebug->enter_sub();

}

# Problemfall: Buchungen, bei denen Steuersummen nicht mit den Summen

sub _check_trans_wrong_taxkeys {

  $main::lxdebug->enter_sub();

  return $retval;

}

#       if (abs($expected_tax - $data{$side}->{tax_sum}) >= 0.02) {

#         my @potential_taxkeys = $trans_type eq 'AP' ? (0, 8, 9) : (0, 1, 2, 3);

#         $main::lxdebug->dump(0, "pota", \@potential_taxkeys);

#         # iterieren und jeweils die Summe ermitteln.

#         my $num_entries    = scalar @{ $data{$side}->{entries} };

#         my @taxkey_indices = (0) x $num_entries;

#         while ($num_entries == scalar @taxkey_indices) {

#           my @tax_cache = ();

#           my $tax_sum = 0;

#           foreach my $i (0 .. $num_entries - 1) {

#             my $taxkey      = $potential_taxkeys[$taxkey_indices[$i]];

#             $tax_sum       += $tax_cache[$i];

#           }

#           # der verbuchten Steuersumme? Wenn ja, dann ist das eine potenzielle

#           if (abs($tax_sum - $data{$side}->{tax_sum}) < 0.02) {

#             push @solutions, {

#               'taxkeys' => [ @potential_taxkeys[@taxkey_indices] ],

#             }

#           }

#           my $i = 0;

#           while (1) {

#             $taxkey_indices[$i]++;

#

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

package CA;

use Data::Dumper;

use SL::DBUtils;

sub all_accounts {

  $main::lxdebug->enter_sub();

  # connect to database

  my $dbh = $form->dbconnect($myconfig);

  # bereits bebuchten Konten anzeigen?

  # Folgende Erweiterung:

  # COALESCE((SELECT closedto FROM defaults),(SELECT itime FROM defaults))

  my $closedto_sql = "COALESCE((SELECT closedto FROM defaults),(SELECT itime FROM defaults))";

    $acc_cash_where = qq| AND (a.trans_id IN (SELECT id FROM ar WHERE datepaid>= $closedto_sql

                          UNION SELECT id FROM ap WHERE datepaid>= $closedto_sql

                          UNION SELECT id FROM gl WHERE transdate>= $closedto_sql

    $query =

      qq|SELECT a.id, a.reference, a.description, ac.transdate, ac.chart_id, | .

      qq|  $false AS invoice, ac.amount, 'gl' as module, | .

      qq|FROM acc_trans ac, gl a | .

      $dpt_join .

      qq|WHERE | . $where . $dpt_where . $project .

      qq|SELECT a.id, a.invnumber, c.name, ac.transdate, ac.chart_id, | .

      qq|  a.invoice, ac.amount, 'ar' as module, | .

      qq|FROM acc_trans ac, customer c, ar a | .

      $dpt_join .

      qq|WHERE | . $where . $dpt_where . $project .

      qq|SELECT a.id, a.invnumber, v.name, ac.transdate, ac.chart_id, | .

      qq|  a.invoice, ac.amount, 'ap' as module, | .

      qq|FROM acc_trans ac, vendor v, ap a | .

      $dpt_join .

      qq|WHERE | . $where . $dpt_where . $project .

        qq|SELECT a.id, a.invnumber, c.name, a.transdate, | .

        qq|  a.invoice, ac.qty * ac.sellprice AS sellprice, 'ar' as module, | .

        qq|FROM ar a | .

        qq|JOIN invoice ac ON (ac.trans_id = a.id) | .

        qq|JOIN parts p ON (ac.parts_id = p.id) | .

        qq|SELECT a.id, a.invnumber, v.name, a.transdate, | .

        qq|  a.invoice, ac.qty * ac.sellprice AS sellprice, 'ap' as module, | .

        qq|FROM ap a | .

        qq|JOIN invoice ac ON (ac.trans_id = a.id) | .

        qq|JOIN parts p ON (ac.parts_id = p.id) | .

package Common;

use Time::HiRes qw(gettimeofday);

use Data::Dumper;

use vars qw(@db_encodings %db_encoding_to_charset %charset_to_db_encoding);

@db_encodings = (

  { "label" => "ASCII",          "dbencoding" => "SQL_ASCII", "charset" => "ASCII" },

  { "label" => "UTF-8 Unicode",  "dbencoding" => "UNICODE",   "charset" => "UTF-8" },

  my $query =

    qq!SELECT id, name, customernumber, (street || ', ' || zipcode || city) AS address FROM customer ! .

    qq!ORDER BY $order_by $order_dir!;

  my $sth = $dbh->prepare($query);

  $sth->execute(@filter_values) ||

    $form->dberror($query . " (" . join(", ", @filter_values) . ")");

    my $base_path = substr($ENV{'SCRIPT_NAME'}, 1);

    $base_path =~ s|[^/]+$||;

    $base_path =~ s|/$||;

    if (opendir my $dir, $path) {

      foreach my $file (sort { lc $a cmp lc $b } readdir $dir) {

        next if (($file eq '.') || ($file eq '..'));

package DATEV;

use SL::DBUtils;

use SL::DATEV::KNEFile;

use Data::Dumper;

use File::Path;

use Time::HiRes qw(gettimeofday);

sub _get_export_path {

  $main::lxdebug->enter_sub();

      my $taxkey         = 0;

      my $charttax       = 0;

      my ($haben, $soll);

      for (my $i = 0; $i < $trans_lines; $i++) {

        if ($trans_lines == 2) {

          if (abs($transaction->[$i]->{'amount'}) > abs($umsatz)) {

package SL::DB::Helpers::Mappings;

use strict;

# these will not be managed as Rose::DB models, because they are not normalized,

=head1 AUTHOR

=cut

package SL::DB::Order;

use strict;

use SL::RecordLinks;

=head1 AUTHOR

=cut

  $self->{iconv_english}    = SL::Iconv->new('ASCII',          $db_charset);

  $self->{iconv_iso8859}    = SL::Iconv->new('ISO-8859-15',    $db_charset);

  $self->{iconv_to_iso8859} = SL::Iconv->new($db_charset,      'ISO-8859-15');

  $self->_read_special_chars_file($country);

package RecordLinks;

use SL::Common;

use SL::DBUtils;

use Data::Dumper;

use List::Util qw(reduce);

sub create_links {

  $main::lxdebug->enter_sub();

Transitive RecordLinks mit get_links_via.

genauso verhalten wie die from/to_table/id werte der get_links funktion.

Alternativ kann via auch ein Array dieser Hashes sein:

    ],

  )

  oe:11 -> ar:12 -> is:13 -> do:14

use SL::DBUtils;

use strict;

my @tax_office_information = (

  { 'id' =>  9, 'name' => 'Bayern',                 'taxbird_nr' => '1',  'elster_format' => 'FFF/BBB/UUUUP', },

  { 'id' => 11, 'name' => 'Berlin',                 'taxbird_nr' => '2',  'elster_format' => 'FF/BBB/UUUUP',  },

  { 'id' => 12, 'name' => 'Brandenburg',            'taxbird_nr' => '3',  'elster_format' => 'FFF/BBB/UUUUP', },

  { 'id' => 14, 'name' => 'Sachsen',                'taxbird_nr' => '12', 'elster_format' => 'FFF/BBB/UUUUP', },

  { 'id' => 15, 'name' => 'Sachsen-Anhalt',         'taxbird_nr' => '13', 'elster_format' => 'FFF/BBB/UUUUP', },

  { 'id' =>  1, 'name' => 'Schleswig-Holstein',     'taxbird_nr' => '14', 'elster_format' => 'FF BBB UUUUP',  },

  );

sub new {

  foreach (@tax_office_information) {

    my $entry      = \%{ $_ };

    push @{ $self->{tax_office_information} }, $entry;

  }

}

#  use SL::Form;

  my ($self, $land, $elsterFFFF, $elster_init) = @_;

                var elsterBLAuswahl = document.verzeichnis.elsterland_new;

                var elsterFAAuswahl = document.verzeichnis.elsterFFFF_new;

                |;

  foreach my $elster_land (sort keys %$elster_init) {

  $main::lxdebug->enter_sub();

  # noch nicht fertig

  #

  #

  my ($today, $FA_dauerfrist, $FA_voranmeld) = @_;

    #There is no table, read the table from sql/finanzamt.sql

    print qq|<p>Bitte warten, Tabelle $table wird einmalig in Datenbank:

    process_query($form, $dbh, $filename) || $self->error(DBI->errstr);

    #execute second last call

  }

  # weil kein eigenes Ausgabeformular

  #

  # Berechnung der USTVA Formularfelder laut Bogen 207

  #

  #########################################

  # Ausgaben und Gl Buchungen sind gleich

  #########################################

  $query .= qq|

     UNION -- alle Ausgaben AP erfassen

#

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

use SL::Auth;

use SL::AM;

use SL::CA;

  my $select_eur = q|<option value=""> |. $locale->text('None') .q|</option>\n|;

  my %eur = (

          3  => "Privatanteile",

          6  => "Vereinnahmte Umsatzst.",

          7  => "Umsatzsteuererstattungen",

          10 => "Gesetzl. sozialer Aufw.",

          11 => "Mieten",

          12 => "Gas, Strom, Wasser",

          13 => "Instandhaltung",

          15 => "Kfz-Steuern",

          16 => "Kfz-Versicherungen",

          17 => "Sonst. Fahrzeugkosten",

          18 => "Werbe- und Reisekosten",

          19 => "Instandhaltung u. Werkzeuge",

          22 => "Rechts- und Beratungskosten",

          24 => "Sonstige Aufwendungen",

          25 => "Abschreibungen auf Anlagever.",

          26 => "Abschreibungen auf GWG",

          30 => "Ausserordentlicher Aufwand",

          31 => "Betriebliche Steuern");

  foreach my $item (sort({ $a <=> $b } keys(%eur))) {

    if ($item == $form->{pos_eur}) {

      $select_eur .= qq|<option value=$item selected>|. sprintf("%.2d", $item) .qq|. $text</option>\n|;

    } else {

  my $select_bwa = q|<option value=""> |. $locale->text('None') .q|</option>\n|;

  my %bwapos = (

             2  => 'Best.Verdg.FE/UE',

             3  => 'Aktiv.Eigenleistung',

             4  => 'Mat./Wareneinkauf',

             10 => 'Personalkosten',

             11 => 'Raumkosten',

             12 => 'Betriebl.Steuern',

             14 => 'Kfz.Kosten o.St.',

             15 => 'Werbe-Reisek.',

             16 => 'Kosten Warenabgabe',

             17 => 'Abschreibungen',

             18 => 'Rep./instandhlt.',

             20 => 'Sonst.Kosten',

             30 => 'Zinsauwand',

             31 => 'Sonst.neutr.Aufw.',

             33 => 'Sonst.neutr.Ertrag',

             34 => 'Verr.kalk.Kosten',

             35 => 'Steuern Eink.u.Ertr.');

  foreach my $item (sort({ $a <=> $b } keys %bwapos)) {

    if ($item == $form->{pos_bwa}) {

      $select_bwa .= qq|<option value="$item" selected>|. sprintf("%.2d", $item) .qq|. $text\n|;

    } else {

  }

  my $select_bilanz = q|<option value=""> |. $locale->text('None') .q|</option>\n|;

  foreach my $item ((1, 2, 3, 4)) {

    if ($item == $form->{pos_bilanz}) {

#

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

use POSIX qw(strftime);

use List::Util qw(sum);

require "bin/mozilla/drafts.pl";

require "bin/mozilla/reportgenerator.pl";

# this is for our long dates

# $locale->text('January')

# $locale->text('February')

  my %charts = ();

  my $taxchart_init;

  foreach my $item (@{ $form->{ALL_CHARTS} }) {

    }

    my $key = $item->{accno} . "--" . $item->{tax_id};

    $taxchart_init = $item->{tax_id} unless (@chart_values);

      print qq|<input class=submit type=submit name=action value="| . $locale->text('Storno') . qq|">|;

    }

    if (!$form->{locked} && $radieren) {

      print qq|

        <input class=submit type=submit name=action value="| . $locale->text('Post') . qq|" accesskey="b">

#  2007-10-14 - XMLified  - Holger Will  <holger@treebuilder.de>

#######################################################################

use SL::Menu;

use CGI::Carp qw(fatalsToBrowser);

    . qq|<?xml version="1.0" encoding="${charset}"?>

<?xml-stylesheet href="xslt/xulmenu.xsl" type="text/xsl"?>

<!DOCTYPE doc [

]>

<doc>

#  2004-12-14 - Holger Lindemann

#######################################################################

use SL::Menu;

use CGI::Carp qw(fatalsToBrowser);

1;

# end of main

    } else {

      if ($menu->{$item}{module}) {

        my $target = $menu->{$item}{target};

        my $uri    = $menu->menuitem_js(\%myconfig, \%$form, $item, $level);

# German Tax authority Module and later ELSTER Interface

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

require "bin/mozilla/common.pl";

#use strict;

  $ustva->get_config($userspath, 'finanzamt.ini');

  # Hier Einlesen der user-config

  my @a = qw(

    signature      name          company       address        businessnumber

    tel            fax           email         co_chief       co_department

  # Anpassungen der Variablennamen auf pre 2.1.1 Namen

  if ($form->{address} ne '') {

    my $temp = $form->{address};

    $temp =~ s/\n/<br \/>/;

    $sel    = '';

    my $dfv = '';

    $dfv = '100' if ($form->{FA_dauerfrist} eq '1');

  SWITCH: {

    my $yy = $form->{year} * 10000;

    $yymmdd = "$form->{year}$form->{month}$form->{day}" * 1;

    $sel    = '';

    $dfv = '100' if ($form->{FA_dauerfrist} eq '1');

  SWITCH: {

      };

    }

  $form->{'year2007'} = ($form->{year} >= 2007 ) ? "1":"0";

      $form->{endbold} = "}";

      $form->{br}      = '\\\\';

      foreach my $number (@category_euro) {

        $form->{$number} = $form->format_amount(\%myconfig, $form->{$number}, '0', '');

        $form->{$number} =~ s/${decimal_comma}/~~/g;

      }

      $form->{IN} = $form->{type} . '.html';

      $form->{padding} = "  ";

      $file .= sprintf("%02d", $form->{year} % 100);

      #6. to 18. char = Elstersteuernummer

      #Beispiel: Steuernummer in Bayern

      $file .= $form->{elsterFFFF};

      $file .= $form->{elstersteuernummer};

      #file suffix

      $form->{attachment_filename} = $file;

      my $temp_numberformat = $myconfig{numberformat};

    $form->{USTVA} = [];

      my $rec_ref = {};

      for my $kennziffer (@category_cent, @category_euro) {

  $ustva->get_coa($form, \%myconfig);

  my $steuernummer_new = '';

  my $template_ref = {

     select_tax_office               => $select_tax_office,

     checked_accrual                 => $checked_accrual,

  $ustva->get_config($userspath, 'finanzamt.ini')

    if ($form->{saved} eq $locale->text('saved'));

  USTVA::info(  $locale->text('Missing Tax Authoritys Preferences') . "\n"

              . $locale->text('USTVA-Hint: Tax Authoritys'))

    if (   $form->{elsterFFFF_new} eq 'Auswahl'

              . $locale->text('USTVA-Hint: Method'))

    if ($form->{method} eq '');

  # der vorherigen Maske stattfanden: $change = 1(in der edit sub,

  # mittels get_config)

  if ($change eq '1') {

    $elsterland           = $form->{elsterland_new};

    $elsterFFFF           = $form->{elsterFFFF_new};

    $form->{elsterland}   = $elsterland;

    FA_steuerberater_street FA_steuerberater_city FA_steuerberater_tel

    FA_71 FA_dauerfrist);

  if ($form->{elstersteuernummer} ne '000000000') {

    $form->{elster} = '1';

#!/usr/bin/perl

# selber.

$self->{admin_password} = 'admin';

# Entweder 'DB' oder 'LDAP'.

#

# Wenn LDAP-Authentifizierung benutzt wird, dann kann der Benutzer sein

$self->{module} = 'DB';

# Verbindungsinformationen zur Datenbank mit den Benutzer- und

# benutzt wird. Der Rest der Benutzerdaten ist in der Datenbank hinterlegt.

#

$self->{DB_config} = {

  'host'     => 'localhost',

  'port'     => 5432,

  'password' => '',

};

#

# angegeben werden.

#

# base_dn:   Basis-DN, ab der der LDAP-Baum durchsucht wird

# filter:    Ein optionaler LDAP-Filter. Die Zeichenkette '<%login%>' wird

#            innerhalb des Filters durch den Loginnamen ersetzt.

# bind_dn und bind_password:

#            Wenn zum Durchsuchen des LDAP-Baumes eine Anmeldung erforderlich

#            Parameter gesetzt sein.

$self->{LDAP_config} = {

  'host'          => 'localhost',

  'bind_password' => undef,

};

# $self->{cookie_name} = 'lx_office_erp_session_id';

# Die Angabe ist in Minuten.

# $self->{session_timeout} = 8 * 60;

# member file

$memberfile = "users/members";

# Wenn Bilanzierung (z.B. GmbH), dann auf 0 setzen

$eur = 1;

$webdav = 0;

$lizenzen = 1;

$vertreter = 0;

$show_best_before = 0;

## Support fuer OpenDocument-Vorlagen

$xvfb_bin = "/usr/bin/Xvfb";

# Das charset, in dem die Daten in der Datenbank abgelegt sind.

# $dbcharset = "ISO-8859-15";

$latex_bin = 'pdflatex';

# Datenbankbackups werden mit dem externen Programm "pg_dump" erledigt.

# Pfad eingetragen werden. Wenn die Variable auf "DISABLED" gesetzt wird,

# nicht angeboten.

$pg_dump_exe    = "pg_dump";

$pg_restore_exe = "pg_restore";

# Rose::DB::Object Environment laden.

# bestehenden Klassen, haben aber den Nachteil, dass der Start des Programms

# betreiben weg.

$use_rdbo = 1;

# LXDebug::DEBUG2

# LXDebug::QUERY  - SQL Queries

# LXDebug::TRACE  - Tracing von Funktionsaufrufen

# LXDebug::REQUEST_TIMER - Timing von Requests loggen

# LXDebug::WARN - warnings

# LXDebug::ALL    - alle Debugausgaben

#   $LXDebug::global_level = LXDebug::TRACE | LXDebug::QUERY;

$LXDebug::global_level = LXDebug->NONE;

#   $form->{"Watchdog::<variablenname>"} = 1;

# weshalb sie normalerweise deaktiviert ist.

$LXDebug::watch_form = 0;

# Zum debuggen von Latexausgaben. Wenn diese Option auf 1 gesetzt wird, werden

# untersuchen kann.

$::keep_temp_files = 0;

$lizenzen = 1;

$vertreter = 0;

$show_best_before = 0;

## Support fuer OpenDocument-Vorlagen

$xvfb_bin = "/usr/bin/Xvfb";

# Das charset, in dem die Daten in der Datenbank abgelegt sind.

# $dbcharset = "ISO-8859-15";

$latex_bin = 'pdflatex';

# Datenbankbackups werden mit dem externen Programm "pg_dump" erledigt.

# Pfad eingetragen werden. Wenn die Variable auf "DISABLED" gesetzt wird,

# nicht angeboten.

$pg_dump_exe    = "pg_dump";

$pg_restore_exe = "pg_restore";

# LXDebug::DEBUG2

# LXDebug::QUERY  - SQL Queries

# LXDebug::TRACE  - Tracing von Funktionsaufrufen

# LXDebug::REQUEST_TIMER - Timing von Requests loggen

# LXDebug::WARN - warnings

# LXDebug::ALL    - alle Debugausgaben

#   $LXDebug::global_level = LXDebug::TRACE | LXDebug::QUERY;

$LXDebug::global_level = LXDebug::NONE;

#   $form->{"Watchdog::<variablenname>"} = 1;

# weshalb sie normalerweise deaktiviert ist.

$LXDebug::watch_form = 0;

# Zum debuggen von Latexausgaben. Wenn diese Option auf 1 gesetzt wird, werden

# untersuchen kann.

$::keep_temp_files = 0;

}

/*

*/

.listtop {

    background-color: rgb(236,233,216);

ist sie deutlich leichter zu lesen.

=head2 Was ist FastCGI?

Direkt aus L<http://de.wikipedia.org/wiki/FastCGI> kopiert:

  dynamischer Webseiten in einem Webserver. FastCGI ist vergleichbar zum Common

  Gateway Interface (CGI), wurde jedoch entwickelt, um dessen

  Performance-Probleme zu umgehen.

=head2 Warum FastCGI?

Perl Programme (wie Lx-Office eines ist) werden nicht statisch kompiliert.

gewachsen, dass immer mehr Module auf den Rest des Programms zugreifen.

Mit FastCGI werden nun die Module einmal geladen, und danach wird nur die

=head2 Kombinationen aus Webservern und Plugin.

 * Apache 2.2.11 (Ubuntu) und mod_fcgid:

Als Perl Backend wird das Modul FCGI.pm verwendet. Vorsicht: FCGI 0.69 und

Eingaben von Lx-Office. Solange diese Probleme nicht behoben sind, muss auf die

 force install M/MS/MSTROUT/FCGI-0.68.tar.gz

Bevor Sie versuchen eine Lx-Office Installation unter FCGI laufen zu lassen,

empfliehlt es sich die Installation ersteinmal unter CGI aufzusetzen. FCGI

macht es nicht einfach Fehler zu debuggen die beim ersten aufsetzen auftreten

Zuerst muss das FastCGI-Modul aktiviert werden. Dies kann unter

Debian/Ubuntu z.B. mit folgendem Befehl geschehen:

  a2enmod fcgid

durch Anpassung der vorhandenen Alias- und Directory-Direktiven. Dabei

wird zwischen dem Installationspfad von Lx-Office im Dateisystem

("/path/to/lx-office-erp") und der URL unterschieden, unter der

    Deny from All

  </DirectoryMatch>

  AliasMatch ^/web/path/to/lx-office-erp/[^/]+\.pl /path/to/lx-office-erp/dispatcher.fcgi

Hierdurch wird nur ein zentraler Dispatcher gestartet. Alle Zugriffe

auf die einzelnen Scripte werden auf diesen umgeleitet. Dadurch, dass

Benutzung von "AddHandler fastcgi-script .pl" vorzuziehen.

URLs werden aber umgeleitet:

  # Zugriff ohne FastCGI

Achtung:

Die AddHandler Direktive vom Apache ist entgegen der Dokumentation

vhost.

=head2 Entwicklungsaspekte

Server neu gestartet werden.

geachtet werden:

=head3 Programmende und Ausnahmen: C<warn>, C<die>, C<exit>, C<carp>, C<confess>

Gleiche, mit ein paar Extraoptionen. C<warn> und C<exit> hingegen werden nicht

abgefangen. C<warn> wird direkt nach STDERR, also in Server Log eine Nachricht

schreiben (sofern in der Konfiguration nicht die Warnungen in das Lx-Office Log

Prinzipiell ist es kein Beinbruch, wenn sich der Prozess beendet, fcgi wird ihn

sofort neu starten. Allerdings sollte das die Ausnahme sein. Quintessenz: Bitte

=head3 Globale Variablen

Um zu vermeiden, dass Informationen von einem Request in einen anderen gelangen,

Das ist besonders wichtig im C<$::cgi> und C<$::auth> Objekt, weil diese nicht

In C<SL::Dispatcher> gibt es einen sauber abgetrennten Block der alle

Datenbankverbindungen wird noch ein Guide verfasst werden, wie man sichergeht,

dass man die richtige erwischt.

=head3 Encoding Awareness

unter FCGI. latin9 Installationen behandeln falsch kodierte Zeichen eher

unwissend, und geben sie einfach weiter. UTF-8 verweigert bei fehlerhaften

Programmpfaden kurzerhand aus ausliefern. Es wird noch daran gearbeitet alles

1 Zusammenfassung

2 Bedienung

3 Exceltemplate Syntax

---------------

Dieses Dokument beschreibt den Mechanismus, mit dem Exceltemplates abgearbeitet

---------

Der Excel Mechanismus muss in der Konfigurationsdatei aktiviert werden. Die

  $excel_templates = 1;

Eine Excelvorlage kann dann unter dem Namen einer beliebigen anderen Vorlage mit

der Endung .xls gespeichert werden. In den normalen Verkaufsmasken taucht nun

oder OpenOffice Vorlagen.

Der Sonderfall der Angebote aus der Kundenmaske ist ebenfalls eine

Einfache Syntax:  <<varname>>

Wobei "<<" und ">>" die Delimiter sind. Da Excel auf festen Breiten besteht,

werden. Der Tag muss nicht symmetrisch sein.

Beispiel: <<<<<varname>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

einem Block interpoliert werden. Whitespace wird dazwishen dann erhalten.

Beispiel: <<<<<varname1 varname2   varname3>>>>>>>>>>>>>>>>>>>>>>>>>>

abgeschnitten.

Beispiel:  <<<<<<            varname>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

abgeschnitten werden muss, wird er vom linken Ende entfernt.

---------------

Textstellen _exakt_ durch einen anderen Text zu ersetzen.

Aus dem gleichen Grund sind die Templatekonstrukte <% if %> und <% foreach %>

                    2 => 'zwei',

	            3 => 'drei',

		    4 => 'vier',

		    6 => 'sechs',

		    7 => 'sieben',

		    8 => 'acht',

		    9 => 'neun',

		   10 => 'zehn',

		   11 => 'elf',

		   13 => 'dreizehn',

		   14 => 'vierzehn',

		   16 => 'sechzehn',

		   17 => 'siebzehn',

		   18 => 'achtzehn',

		   20 => 'zwanzig',

		   30 => 'dreissig',

		   40 => 'vierzig',

		   60 => 'sechzig',

		   70 => 'siebzig',

		   80 => 'achtzig',

#!/usr/bin/perl

# These are all the texts to build the translations files.

# The file has the form of 'english text'  => 'foreign text',

  '<%total%> -- Amount payable' => '<%total%> -- Noch zu bezahlender Betrag',

  '<%total_wo_skonto%> -- Amount payable less discount' => '<%total_wo_skonto%> -- Noch zu bezahlender Betrag abzüglich Skonto',

  '*/'                          => '*/',

  '...after loggin in'          => '...nach dem Anmelden',

  '...done'                     => '...fertig',

  '...on the TODO list'         => '...auf der Aufgabenliste',

  'A Buchungsgruppe consists of a descriptive name and the account numbers for the income and expense accounts for those four tax zones as well as the inventory account number.' => 'Eine Buchungsgruppe besteht aus einem deskriptiven Namen, den Erlös- und Aufwandskonten für diese vier Steuerzonen sowie aus einem Inventarkonto.',

  'A group named "Full Access" has been created.' => 'Eine Gruppe namens "Vollzugriff" wurde angelegt.',

  'A group with that name does already exist.' => 'Eine Gruppe mit diesem Namen gibt es bereits.',

  'A temporary directory could not be created:' => 'Ein temporäres Verzeichnis konnte nicht erstellt werden:',

  'A temporary file could not be created:' => 'Eine temporäre Datei konnte nicht erstellt werden:',

  'A unit with this name does already exist.' => 'Eine Einheit mit diesem Namen existiert bereits.',

  'AP'                          => 'Einkauf',

  'AP Aging'                    => 'Offene Verbindlichkeiten',

  'AP Transaction'              => 'Kreditorenbuchung',

  'AP Transaction Storno (one letter abbreviation)' => 'S',

  'AP Transaction with Storno (abbreviation)' => 'K(S)',

  'AP Transactions'             => 'Kreditorenbuchungen',

  'AR'                          => 'Verkauf',

  'AR Aging'                    => 'Offene Forderungen',

  'AR Transaction'              => 'Debitorenbuchung',

  'Account Category C'          => 'Kosten',

  'Account Category E'          => 'Aufwandskonto',

  'Account Category G'          => '?Gegenkonto?',

  'Account Category L'          => 'Passiva/Mittelherkunft',

  'Account Category Q'          => 'Passiva',

  'Account Description missing!' => 'Beschreibung fehlt!',

  'Account Link AP_paid'        => 'Verbindlichkeiten Zahlungsausgang',

  'Account Link AP_tax'         => 'Verbindlichkeiten Steuer',

  'Account Link AR'             => 'Verkauf',

  'Account Link AR_paid'        => 'Forderungen Zahlungseingang',

  'Account Link AR_tax'         => 'Forderungen Steuer',

  'Account Link CT_tax'         => 'Kunde/Lieferant Steuer',

  'Account Link IC'             => 'Inventar',

  'Account Link IC_cogs'        => 'Warenliste Aufwandskonto',

  'Account Link IC_expense'     => 'Dienstleistungen Aufwandskonto',

  'Account Link IC_taxpart'     => 'Warenliste Steuer',

  'Account Link IC_taxservice'  => 'Dienstleistungen Steuer',

  'Account Number'              => 'Kontonummer',

  'Account Nummer'              => 'Kontonummer',

  'Account Type'                => 'Kontoart',

  'Account Type missing!'       => 'Kontoart fehlt!',

  'Account for fees'            => 'Konto für Gebühren',

  'Account for interest'        => 'Konto für Zinsen',

  'Account number'              => 'Kontonummer',

  'Add Follow-Up for #1'        => 'Wiedervorlage für #1 erstellen',

  'Add General Ledger Transaction' => 'Dialogbuchen',

  'Add Group'                   => 'Warengruppe erfassen',

  'Add Lead'                    => 'Kundenquelle erfassen',

  'Add License'                 => 'Lizenz erfassen',

  'Add Part'                    => 'Ware erfassen',