Beim Dialogbuchen die Kontensalden zu den jeweils ausgewählten Konten anzeigen. Fix...
authorMoritz Bunkus <m.bunkus@linet-services.de>
Wed, 6 May 2009 15:36:50 +0000 (15:36 +0000)
committerMoritz Bunkus <m.bunkus@linet-services.de>
Wed, 6 May 2009 15:36:50 +0000 (15:36 +0000)
40 files changed:
SL/Form.pm
SL/GL.pm
SL/Template/Plugin/LxERP.pm
bin/mozilla/gl.pl
locale/de/admin
locale/de/all
locale/de/am
locale/de/amcvar
locale/de/amtemplates
locale/de/ap
locale/de/ar
locale/de/arap
locale/de/bp
locale/de/ca
locale/de/common
locale/de/cp
locale/de/ct
locale/de/datev
locale/de/dn
locale/de/do
locale/de/drafts
locale/de/fu
locale/de/gl
locale/de/ic
locale/de/io
locale/de/ir
locale/de/is
locale/de/licenses
locale/de/login
locale/de/oe
locale/de/pe
locale/de/projects
locale/de/rc
locale/de/reportgenerator
locale/de/rp
locale/de/todo
locale/de/ustva
locale/de/wh
templates/webpages/gl/form_header_chart_balances_js_de.html [new file with mode: 0644]
templates/webpages/gl/form_header_chart_balances_js_master.html [new file with mode: 0644]

index 675d9ad..370bbe6 100644 (file)
@@ -979,9 +979,9 @@ sub format_amount {
   $amount .= $d[0].$p[1].(0 x ($places - length $p[1])) if ($places || $p[1] ne '');
 
   $amount = do {
-    ($dash =~ /-/)    ? ($neg ? "($amount)"  : "$amount" )    :
-    ($dash =~ /DRCR/) ? ($neg ? "$amount DR" : "$amount CR" ) :
-                        ($neg ? "-$amount"   : "$amount" )    ;
+    ($dash =~ /-/)    ? ($neg ? "($amount)"                            : "$amount" )                              :
+    ($dash =~ /DRCR/) ? ($neg ? "$amount " . $main::locale->text('DR') : "$amount " . $main::locale->text('CR') ) :
+                        ($neg ? "-$amount"                             : "$amount" )                              ;
   };
 
 
index a36c8e3..51b1d4b 100644 (file)
--- a/SL/GL.pm
+++ b/SL/GL.pm
@@ -716,4 +716,39 @@ sub storno {
   $main::lxdebug->leave_sub();
 }
 
+sub get_chart_balances {
+  $main::lxdebug->enter_sub();
+
+  my $self     = shift;
+  my %params   = @_;
+
+  Common::check_params(\%params, qw(charts));
+
+  my $myconfig = \%main::myconfig;
+  my $form     = $main::form;
+
+  my $dbh      = $params{dbh} || $form->get_standard_dbh($myconfig);
+
+  my @ids      = map { $_->{id} } @{ $params{charts} };
+
+  if (!@ids) {
+    $main::lxdebug->leave_sub();
+    return;
+  }
+
+  my $query = qq|SELECT chart_id, SUM(amount) AS sum
+                 FROM acc_trans
+                 WHERE chart_id IN (| . join(', ', ('?') x scalar(@ids)) . qq|)
+                 GROUP BY chart_id|;
+
+  my %balances = selectall_as_map($form, $dbh, $query, 'chart_id', 'sum', @ids);
+
+  foreach my $chart (@{ $params{charts} }) {
+    $chart->{balance} = $balances{ $chart->{id} } || 0;
+  }
+
+  $main::lxdebug->leave_sub();
+}
+
+
 1;
index 1bd03da..d1d93d1 100644 (file)
@@ -15,9 +15,9 @@ sub new {
 }
 
 sub format_amount {
-  my ($self, $var, $places, $skip_zero) = @_;
+  my ($self, $var, $places, $skip_zero, $dash) = @_;
 
-  return $main::form->format_amount(\%main::myconfig, $var * 1, $places) unless $skip_zero && $var == 0;
+  return $main::form->format_amount(\%main::myconfig, $var * 1, $places, $dash) unless $skip_zero && $var == 0;
   return '';
 }
 
index e38796c..0f34f1b 100644 (file)
@@ -780,17 +780,6 @@ sub display_rows {
   $form->{totaldebit}  = 0;
   $form->{totalcredit} = 0;
 
-  my @old_project_ids = ();
-  map({ push(@old_project_ids, $form->{"project_id_$_"})
-          if ($form->{"project_id_$_"}); } (1..$form->{"rowcount"}));
-
-  $form->get_lists("projects" => { "key" => "ALL_PROJECTS",
-                                   "all" => 0,
-                                   "old_id" => \@old_project_ids },
-                   "charts" => { "key" => "ALL_CHARTS",
-                                 "transdate" => $form->{transdate} },
-                   "taxcharts" => "ALL_TAXCHARTS");
-
   my %project_labels = ();
   my @project_values = ("");
   foreach my $item (@{ $form->{"ALL_PROJECTS"} }) {
@@ -822,7 +811,6 @@ sub display_rows {
   }
 
   for $i (1 .. $form->{rowcount}) {
-
     if ($form->{show_details}) {
       $source = qq|
       <td><input name="source_$i" value="$form->{"source_$i"}" size="16"></td>|;
@@ -939,6 +927,7 @@ sub display_rows {
 
     print qq|<tr valign=top>
     $accno
+    <td id="chart_balance_$i" align="right">&nbsp;</td>
     $fx_transaction
     <td><input name="debit_$i" size="8" value="$form->{"debit_$i"}" accesskey=$i $copy2credit $debitreadonly></td>
     <td><input name="credit_$i" size=8 value="$form->{"credit_$i"}" $creditreadonly></td>
@@ -971,6 +960,19 @@ sub form_header {
 
   $auth->assert('general_ledger');
 
+  my @old_project_ids = ();
+  map({ push(@old_project_ids, $form->{"project_id_$_"})
+          if ($form->{"project_id_$_"}); } (1..$form->{"rowcount"}));
+
+  $form->get_lists("projects"  => { "key"       => "ALL_PROJECTS",
+                                    "all"       => 0,
+                                    "old_id"    => \@old_project_ids },
+                   "charts"    => { "key"       => "ALL_CHARTS",
+                                    "transdate" => $form->{transdate} },
+                   "taxcharts" => "ALL_TAXCHARTS");
+
+  GL->get_chart_balances('charts' => $form->{ALL_CHARTS});
+
   $title         = $form->{title};
   $form->{title} = $locale->text("$title General Ledger Transaction");
   $readonly      = ($form->{id}) ? "readonly" : "";
@@ -1008,10 +1010,11 @@ sub form_header {
     var txt = document.getElementsByName('debit_1')[0].value;
     document.getElementsByName('credit_2')[0].value = txt;
   };
-
   //-->
-  </script>|;
-  $form->{javascript} .= qq|<script type="text/javascript" src="js/show_form_details.js"></script>|;
+  </script>
+  <script type="text/javascript" src="js/show_form_details.js"></script>
+  <script type="text/javascript" src="js/jquery.js"></script>
+|;
 
   $form->{selectdepartment} =~ s/ selected//;
   $form->{selectdepartment} =~
@@ -1069,6 +1072,8 @@ sub form_header {
   $form->{previous_id}     ||= "--";
   $form->{previous_gldate} ||= "--";
 
+  $jsscript .= $form->parse_html_template('gl/form_header_chart_balances_js');
+
   $form->header;
 
   print qq|
@@ -1194,6 +1199,7 @@ sub form_header {
           <tr class=listheading>
          <th class=listheading style="width:15%">|
     . $locale->text('Account') . qq|</th>
+         <th class=listheading style="width:10%">| . $locale->text('Chart balance') . qq|</th>
          <th class=listheading style="width:10%">|
     . $locale->text('Debit') . qq|</th>
          <th class=listheading style="width:10%">|
@@ -1246,8 +1252,7 @@ sub form_footer {
 
   print qq|
     <tr class=listtotal>
-    <td></td>
-    <th align=right class=listtotal> $form->{totaldebit}</th>
+    <th colspan="3" align=right class=listtotal> $form->{totaldebit}</th>
     <th align=right class=listtotal> $form->{totalcredit}</th>
     <td colspan=6></td>
     </tr>
index 63867d2..86e7dc9 100644 (file)
@@ -21,6 +21,7 @@ $self->{texts} = {
   'Bin List'                    => 'Lagerliste',
   'Binding to the LDAP server as "#1" failed. Please check config/authentication.pl.' => 'Die Anmeldung am LDAP-Server als "#1" schlug fehl. Bitte &uuml;berpr&uuml;fen Sie die Angaben in config/authentication.pl.',
   'CANCELED'                    => 'Storniert',
+  'CR'                          => 'H',
   'CRM admin'                   => 'Administration',
   'CRM create customers, vendors and contacts' => 'Erfassen (Kunden, Lieferanten, Personen)',
   'CRM follow up'               => 'Wiedervorlage',
@@ -60,6 +61,7 @@ $self->{texts} = {
   'Customer details'            => 'Kundendetails',
   'DATEV Export'                => 'DATEV-Export',
   'DELETED'                     => 'Gelöscht',
+  'DR'                          => 'S',
   'DUNNING STARTED'             => 'Mahnprozess gestartet',
   'Database Administration'     => 'Datenbankadministration',
   'Database Connection Test'    => 'Test der Datenbankverbindung',
index 9200e9f..589e029 100644 (file)
@@ -267,6 +267,7 @@ $self->{texts} = {
   'Business saved!'             => 'Firma gespeichert.',
   'CANCELED'                    => 'Storniert',
   'CB Transaction'              => 'SB-Buchung',
+  'CR'                          => 'H',
   'CRM admin'                   => 'Administration',
   'CRM create customers, vendors and contacts' => 'Erfassen (Kunden, Lieferanten, Personen)',
   'CRM follow up'               => 'Wiedervorlage',
@@ -323,6 +324,7 @@ $self->{texts} = {
   'Charge Number'               => 'Chargennummer',
   'Charge number'               => 'Chargennummer',
   'Chart Type'                  => 'Kontentyp',
+  'Chart balance'               => 'Kontensaldo',
   'Chart of Accounts'           => 'Kontenübersicht',
   'Chart of accounts'           => 'Kontenrahmen',
   'Chartaccounts connected to this Tax:' => 'Konten, die mit dieser Steuer verknüpft sind:',
@@ -431,6 +433,7 @@ $self->{texts} = {
   'DATEX - Export Assistent'    => 'DATEV-Exportassistent',
   'DELETED'                     => 'Gelöscht',
   'DFV-Kennzeichen'             => 'DFV-Kennzeichen',
+  'DR'                          => 'S',
   'DUNNING STARTED'             => 'Mahnprozess gestartet',
   'DUNS-Nr'                     => 'DUNS-Nr.',
   'Database'                    => 'Datenbank',
index 90ea10a..07ee128 100644 (file)
@@ -84,6 +84,7 @@ $self->{texts} = {
   'Business deleted!'           => 'Firma gelöscht.',
   'Business saved!'             => 'Firma gespeichert.',
   'CANCELED'                    => 'Storniert',
+  'CR'                          => 'H',
   'CRM admin'                   => 'Administration',
   'CRM create customers, vendors and contacts' => 'Erfassen (Kunden, Lieferanten, Personen)',
   'CRM follow up'               => 'Wiedervorlage',
@@ -129,6 +130,7 @@ $self->{texts} = {
   'Customernumberinit'          => 'Kunden-/Lieferantennummernkreis',
   'DATEV Export'                => 'DATEV-Export',
   'DELETED'                     => 'Gelöscht',
+  'DR'                          => 'S',
   'DUNNING STARTED'             => 'Mahnprozess gestartet',
   'Dataset upgrade'             => 'Datenbankaktualisierung',
   'Date'                        => 'Datum',
index ad954aa..171fabc 100644 (file)
@@ -14,6 +14,7 @@ $self->{texts} = {
   'Bin List'                    => 'Lagerliste',
   'Binding to the LDAP server as "#1" failed. Please check config/authentication.pl.' => 'Die Anmeldung am LDAP-Server als "#1" schlug fehl. Bitte &uuml;berpr&uuml;fen Sie die Angaben in config/authentication.pl.',
   'CANCELED'                    => 'Storniert',
+  'CR'                          => 'H',
   'CRM admin'                   => 'Administration',
   'CRM create customers, vendors and contacts' => 'Erfassen (Kunden, Lieferanten, Personen)',
   'CRM follow up'               => 'Wiedervorlage',
@@ -49,6 +50,7 @@ $self->{texts} = {
   'Customer details'            => 'Kundendetails',
   'DATEV Export'                => 'DATEV-Export',
   'DELETED'                     => 'Gelöscht',
+  'DR'                          => 'S',
   'DUNNING STARTED'             => 'Mahnprozess gestartet',
   'Dataset upgrade'             => 'Datenbankaktualisierung',
   'Date'                        => 'Datum',
index bb065a2..1d0be0c 100644 (file)
@@ -15,6 +15,7 @@ $self->{texts} = {
   'Bin List'                    => 'Lagerliste',
   'Binding to the LDAP server as "#1" failed. Please check config/authentication.pl.' => 'Die Anmeldung am LDAP-Server als "#1" schlug fehl. Bitte &uuml;berpr&uuml;fen Sie die Angaben in config/authentication.pl.',
   'CANCELED'                    => 'Storniert',
+  'CR'                          => 'H',
   'CRM admin'                   => 'Administration',
   'CRM create customers, vendors and contacts' => 'Erfassen (Kunden, Lieferanten, Personen)',
   'CRM follow up'               => 'Wiedervorlage',
@@ -51,6 +52,7 @@ $self->{texts} = {
   'Customer details'            => 'Kundendetails',
   'DATEV Export'                => 'DATEV-Export',
   'DELETED'                     => 'Gelöscht',
+  'DR'                          => 'S',
   'DUNNING STARTED'             => 'Mahnprozess gestartet',
   'Dataset upgrade'             => 'Datenbankaktualisierung',
   'Date'                        => 'Datum',
index 430b399..710b03e 100644 (file)
@@ -29,6 +29,7 @@ $self->{texts} = {
   'Binding to the LDAP server as "#1" failed. Please check config/authentication.pl.' => 'Die Anmeldung am LDAP-Server als "#1" schlug fehl. Bitte &uuml;berpr&uuml;fen Sie die Angaben in config/authentication.pl.',
   'Bis'                         => 'bis',
   'CANCELED'                    => 'Storniert',
+  'CR'                          => 'H',
   'CRM admin'                   => 'Administration',
   'CRM create customers, vendors and contacts' => 'Erfassen (Kunden, Lieferanten, Personen)',
   'CRM follow up'               => 'Wiedervorlage',
@@ -80,6 +81,7 @@ $self->{texts} = {
   'Customer not on file!'       => 'Kunde ist nicht in der Datenbank!',
   'DATEV Export'                => 'DATEV-Export',
   'DELETED'                     => 'Gelöscht',
+  'DR'                          => 'S',
   'DUNNING STARTED'             => 'Mahnprozess gestartet',
   'Dataset upgrade'             => 'Datenbankaktualisierung',
   'Date'                        => 'Datum',
index a661e90..2cf6456 100644 (file)
@@ -28,6 +28,7 @@ $self->{texts} = {
   'Binding to the LDAP server as "#1" failed. Please check config/authentication.pl.' => 'Die Anmeldung am LDAP-Server als "#1" schlug fehl. Bitte &uuml;berpr&uuml;fen Sie die Angaben in config/authentication.pl.',
   'Bis'                         => 'bis',
   'CANCELED'                    => 'Storniert',
+  'CR'                          => 'H',
   'CRM admin'                   => 'Administration',
   'CRM create customers, vendors and contacts' => 'Erfassen (Kunden, Lieferanten, Personen)',
   'CRM follow up'               => 'Wiedervorlage',
@@ -81,6 +82,7 @@ $self->{texts} = {
   'Customer not on file!'       => 'Kunde ist nicht in der Datenbank!',
   'DATEV Export'                => 'DATEV-Export',
   'DELETED'                     => 'Gelöscht',
+  'DR'                          => 'S',
   'DUNNING STARTED'             => 'Mahnprozess gestartet',
   'Dataset upgrade'             => 'Datenbankaktualisierung',
   'Date'                        => 'Datum',
index 1f805ad..4c4eedd 100644 (file)
@@ -13,6 +13,7 @@ $self->{texts} = {
   'Bin List'                    => 'Lagerliste',
   'Binding to the LDAP server as "#1" failed. Please check config/authentication.pl.' => 'Die Anmeldung am LDAP-Server als "#1" schlug fehl. Bitte &uuml;berpr&uuml;fen Sie die Angaben in config/authentication.pl.',
   'CANCELED'                    => 'Storniert',
+  'CR'                          => 'H',
   'CRM admin'                   => 'Administration',
   'CRM create customers, vendors and contacts' => 'Erfassen (Kunden, Lieferanten, Personen)',
   'CRM follow up'               => 'Wiedervorlage',
@@ -51,6 +52,7 @@ $self->{texts} = {
   'Customer not on file!'       => 'Kunde ist nicht in der Datenbank!',
   'DATEV Export'                => 'DATEV-Export',
   'DELETED'                     => 'Gelöscht',
+  'DR'                          => 'S',
   'DUNNING STARTED'             => 'Mahnprozess gestartet',
   'Dataset upgrade'             => 'Datenbankaktualisierung',
   'Date'                        => 'Datum',
index 4174a3a..e1838ac 100644 (file)
@@ -16,6 +16,7 @@ $self->{texts} = {
   'Binding to the LDAP server as "#1" failed. Please check config/authentication.pl.' => 'Die Anmeldung am LDAP-Server als "#1" schlug fehl. Bitte &uuml;berpr&uuml;fen Sie die Angaben in config/authentication.pl.',
   'Bis'                         => 'bis',
   'CANCELED'                    => 'Storniert',
+  'CR'                          => 'H',
   'CRM admin'                   => 'Administration',
   'CRM create customers, vendors and contacts' => 'Erfassen (Kunden, Lieferanten, Personen)',
   'CRM follow up'               => 'Wiedervorlage',
@@ -56,6 +57,7 @@ $self->{texts} = {
   'Customer details'            => 'Kundendetails',
   'DATEV Export'                => 'DATEV-Export',
   'DELETED'                     => 'Gelöscht',
+  'DR'                          => 'S',
   'DUNNING STARTED'             => 'Mahnprozess gestartet',
   'Dataset upgrade'             => 'Datenbankaktualisierung',
   'Date'                        => 'Datum',
index 33ac0d7..9bc74c1 100644 (file)
@@ -19,6 +19,7 @@ $self->{texts} = {
   'Binding to the LDAP server as "#1" failed. Please check config/authentication.pl.' => 'Die Anmeldung am LDAP-Server als "#1" schlug fehl. Bitte &uuml;berpr&uuml;fen Sie die Angaben in config/authentication.pl.',
   'Bis'                         => 'bis',
   'CANCELED'                    => 'Storniert',
+  'CR'                          => 'H',
   'CRM admin'                   => 'Administration',
   'CRM create customers, vendors and contacts' => 'Erfassen (Kunden, Lieferanten, Personen)',
   'CRM follow up'               => 'Wiedervorlage',
@@ -57,6 +58,7 @@ $self->{texts} = {
   'Customized Report'           => 'Vorgewählte Zeiträume',
   'DATEV Export'                => 'DATEV-Export',
   'DELETED'                     => 'Gelöscht',
+  'DR'                          => 'S',
   'DUNNING STARTED'             => 'Mahnprozess gestartet',
   'Dataset upgrade'             => 'Datenbankaktualisierung',
   'Date'                        => 'Datum',
index f60e099..603d7a2 100644 (file)
@@ -13,6 +13,7 @@ $self->{texts} = {
   'Bin List'                    => 'Lagerliste',
   'Binding to the LDAP server as "#1" failed. Please check config/authentication.pl.' => 'Die Anmeldung am LDAP-Server als "#1" schlug fehl. Bitte &uuml;berpr&uuml;fen Sie die Angaben in config/authentication.pl.',
   'CANCELED'                    => 'Storniert',
+  'CR'                          => 'H',
   'CRM admin'                   => 'Administration',
   'CRM create customers, vendors and contacts' => 'Erfassen (Kunden, Lieferanten, Personen)',
   'CRM follow up'               => 'Wiedervorlage',
@@ -48,6 +49,7 @@ $self->{texts} = {
   'Customer details'            => 'Kundendetails',
   'DATEV Export'                => 'DATEV-Export',
   'DELETED'                     => 'Gelöscht',
+  'DR'                          => 'S',
   'DUNNING STARTED'             => 'Mahnprozess gestartet',
   'Dataset upgrade'             => 'Datenbankaktualisierung',
   'Date'                        => 'Datum',
index 6484eb9..6d0a5a3 100644 (file)
@@ -16,6 +16,7 @@ $self->{texts} = {
   'Bin List'                    => 'Lagerliste',
   'Binding to the LDAP server as "#1" failed. Please check config/authentication.pl.' => 'Die Anmeldung am LDAP-Server als "#1" schlug fehl. Bitte &uuml;berpr&uuml;fen Sie die Angaben in config/authentication.pl.',
   'CANCELED'                    => 'Storniert',
+  'CR'                          => 'H',
   'CRM admin'                   => 'Administration',
   'CRM create customers, vendors and contacts' => 'Erfassen (Kunden, Lieferanten, Personen)',
   'CRM follow up'               => 'Wiedervorlage',
@@ -60,6 +61,7 @@ $self->{texts} = {
   'Customer not on file!'       => 'Kunde ist nicht in der Datenbank!',
   'DATEV Export'                => 'DATEV-Export',
   'DELETED'                     => 'Gelöscht',
+  'DR'                          => 'S',
   'DUNNING STARTED'             => 'Mahnprozess gestartet',
   'Dataset upgrade'             => 'Datenbankaktualisierung',
   'Date'                        => 'Datum',
index 2bb3f8c..9cb4384 100644 (file)
@@ -21,6 +21,7 @@ $self->{texts} = {
   'Bin List'                    => 'Lagerliste',
   'Binding to the LDAP server as "#1" failed. Please check config/authentication.pl.' => 'Die Anmeldung am LDAP-Server als "#1" schlug fehl. Bitte &uuml;berpr&uuml;fen Sie die Angaben in config/authentication.pl.',
   'CANCELED'                    => 'Storniert',
+  'CR'                          => 'H',
   'CRM admin'                   => 'Administration',
   'CRM create customers, vendors and contacts' => 'Erfassen (Kunden, Lieferanten, Personen)',
   'CRM follow up'               => 'Wiedervorlage',
@@ -66,6 +67,7 @@ $self->{texts} = {
   'Customers'                   => 'Kunden',
   'DATEV Export'                => 'DATEV-Export',
   'DELETED'                     => 'Gelöscht',
+  'DR'                          => 'S',
   'DUNNING STARTED'             => 'Mahnprozess gestartet',
   'Dataset upgrade'             => 'Datenbankaktualisierung',
   'Date'                        => 'Datum',
index 41527fc..bf8444f 100644 (file)
@@ -19,6 +19,7 @@ $self->{texts} = {
   'Binding to the LDAP server as "#1" failed. Please check config/authentication.pl.' => 'Die Anmeldung am LDAP-Server als "#1" schlug fehl. Bitte &uuml;berpr&uuml;fen Sie die Angaben in config/authentication.pl.',
   'Bis Konto: '                 => 'bis Konto: ',
   'CANCELED'                    => 'Storniert',
+  'CR'                          => 'H',
   'CRM admin'                   => 'Administration',
   'CRM create customers, vendors and contacts' => 'Erfassen (Kunden, Lieferanten, Personen)',
   'CRM follow up'               => 'Wiedervorlage',
@@ -58,6 +59,7 @@ $self->{texts} = {
   'DATEX - Export Assistent'    => 'DATEV-Exportassistent',
   'DELETED'                     => 'Gelöscht',
   'DFV-Kennzeichen'             => 'DFV-Kennzeichen',
+  'DR'                          => 'S',
   'DUNNING STARTED'             => 'Mahnprozess gestartet',
   'Dataset upgrade'             => 'Datenbankaktualisierung',
   'Date'                        => 'Datum',
index 5ca66cf..4d2dbfc 100644 (file)
@@ -30,6 +30,7 @@ $self->{texts} = {
   'Bin List'                    => 'Lagerliste',
   'Binding to the LDAP server as "#1" failed. Please check config/authentication.pl.' => 'Die Anmeldung am LDAP-Server als "#1" schlug fehl. Bitte &uuml;berpr&uuml;fen Sie die Angaben in config/authentication.pl.',
   'CANCELED'                    => 'Storniert',
+  'CR'                          => 'H',
   'CRM admin'                   => 'Administration',
   'CRM create customers, vendors and contacts' => 'Erfassen (Kunden, Lieferanten, Personen)',
   'CRM follow up'               => 'Wiedervorlage',
@@ -75,6 +76,7 @@ $self->{texts} = {
   'Customername'                => 'Kundenname',
   'DATEV Export'                => 'DATEV-Export',
   'DELETED'                     => 'Gelöscht',
+  'DR'                          => 'S',
   'DUNNING STARTED'             => 'Mahnprozess gestartet',
   'Dataset upgrade'             => 'Datenbankaktualisierung',
   'Date'                        => 'Datum',
index 5f1e42e..2764532 100644 (file)
@@ -34,6 +34,7 @@ $self->{texts} = {
   'Binding to the LDAP server as "#1" failed. Please check config/authentication.pl.' => 'Die Anmeldung am LDAP-Server als "#1" schlug fehl. Bitte &uuml;berpr&uuml;fen Sie die Angaben in config/authentication.pl.',
   'Bis'                         => 'bis',
   'CANCELED'                    => 'Storniert',
+  'CR'                          => 'H',
   'CRM admin'                   => 'Administration',
   'CRM create customers, vendors and contacts' => 'Erfassen (Kunden, Lieferanten, Personen)',
   'CRM follow up'               => 'Wiedervorlage',
@@ -81,6 +82,7 @@ $self->{texts} = {
   'Customer not on file!'       => 'Kunde ist nicht in der Datenbank!',
   'DATEV Export'                => 'DATEV-Export',
   'DELETED'                     => 'Gelöscht',
+  'DR'                          => 'S',
   'DUNNING STARTED'             => 'Mahnprozess gestartet',
   'Dataset upgrade'             => 'Datenbankaktualisierung',
   'Date'                        => 'Datum',
index 8aafa67..903cb86 100644 (file)
@@ -13,6 +13,7 @@ $self->{texts} = {
   'Bin List'                    => 'Lagerliste',
   'Binding to the LDAP server as "#1" failed. Please check config/authentication.pl.' => 'Die Anmeldung am LDAP-Server als "#1" schlug fehl. Bitte &uuml;berpr&uuml;fen Sie die Angaben in config/authentication.pl.',
   'CANCELED'                    => 'Storniert',
+  'CR'                          => 'H',
   'CRM admin'                   => 'Administration',
   'CRM create customers, vendors and contacts' => 'Erfassen (Kunden, Lieferanten, Personen)',
   'CRM follow up'               => 'Wiedervorlage',
@@ -48,6 +49,7 @@ $self->{texts} = {
   'Customer details'            => 'Kundendetails',
   'DATEV Export'                => 'DATEV-Export',
   'DELETED'                     => 'Gelöscht',
+  'DR'                          => 'S',
   'DUNNING STARTED'             => 'Mahnprozess gestartet',
   'Dataset upgrade'             => 'Datenbankaktualisierung',
   'Date'                        => 'Datum',
index 0c62558..cf3deb2 100644 (file)
@@ -16,6 +16,7 @@ $self->{texts} = {
   'Binding to the LDAP server as "#1" failed. Please check config/authentication.pl.' => 'Die Anmeldung am LDAP-Server als "#1" schlug fehl. Bitte &uuml;berpr&uuml;fen Sie die Angaben in config/authentication.pl.',
   'Body'                        => 'Text',
   'CANCELED'                    => 'Storniert',
+  'CR'                          => 'H',
   'CRM admin'                   => 'Administration',
   'CRM create customers, vendors and contacts' => 'Erfassen (Kunden, Lieferanten, Personen)',
   'CRM follow up'               => 'Wiedervorlage',
@@ -54,6 +55,7 @@ $self->{texts} = {
   'Customer'                    => 'Kunde',
   'DATEV Export'                => 'DATEV-Export',
   'DELETED'                     => 'Gelöscht',
+  'DR'                          => 'S',
   'DUNNING STARTED'             => 'Mahnprozess gestartet',
   'Dataset upgrade'             => 'Datenbankaktualisierung',
   'Date'                        => 'Datum',
index 4054477..cae0963 100644 (file)
@@ -30,6 +30,7 @@ $self->{texts} = {
   'Buchungsnummer'              => 'Buchungsnummer',
   'CANCELED'                    => 'Storniert',
   'CB Transaction'              => 'SB-Buchung',
+  'CR'                          => 'H',
   'CRM admin'                   => 'Administration',
   'CRM create customers, vendors and contacts' => 'Erfassen (Kunden, Lieferanten, Personen)',
   'CRM follow up'               => 'Wiedervorlage',
@@ -53,6 +54,7 @@ $self->{texts} = {
   'Cannot post transaction with a debit and credit entry for the same account!' => 'Kann Soll und Haben nicht auf dasselbe Konto buchen!',
   'Cc'                          => 'Cc',
   'Change Lx-Office installation settings (all menu entries beneath \'System\')' => 'Ver&auml;ndern der Lx-Office-Installationseinstellungen (Men&uuml;punkte unterhalb von \'System\')',
+  'Chart balance'               => 'Kontensaldo',
   'Confirm!'                    => 'Bestätigen Sie!',
   'Confirmation'                => 'Auftragsbestätigung',
   'Contact'                     => 'Kontakt',
@@ -81,6 +83,7 @@ $self->{texts} = {
   'Customer details'            => 'Kundendetails',
   'DATEV Export'                => 'DATEV-Export',
   'DELETED'                     => 'Gelöscht',
+  'DR'                          => 'S',
   'DUNNING STARTED'             => 'Mahnprozess gestartet',
   'Dataset upgrade'             => 'Datenbankaktualisierung',
   'Date'                        => 'Datum',
index f9ad7d8..ab6c1fc 100644 (file)
@@ -38,6 +38,7 @@ $self->{texts} = {
   'Binding to the LDAP server as "#1" failed. Please check config/authentication.pl.' => 'Die Anmeldung am LDAP-Server als "#1" schlug fehl. Bitte &uuml;berpr&uuml;fen Sie die Angaben in config/authentication.pl.',
   'Bought'                      => 'Gekauft',
   'CANCELED'                    => 'Storniert',
+  'CR'                          => 'H',
   'CRM admin'                   => 'Administration',
   'CRM create customers, vendors and contacts' => 'Erfassen (Kunden, Lieferanten, Personen)',
   'CRM follow up'               => 'Wiedervorlage',
@@ -82,6 +83,7 @@ $self->{texts} = {
   'Customer details'            => 'Kundendetails',
   'DATEV Export'                => 'DATEV-Export',
   'DELETED'                     => 'Gelöscht',
+  'DR'                          => 'S',
   'DUNNING STARTED'             => 'Mahnprozess gestartet',
   'Dataset upgrade'             => 'Datenbankaktualisierung',
   'Date'                        => 'Datum',
index 259e710..67433a9 100644 (file)
@@ -28,6 +28,7 @@ $self->{texts} = {
   'Bin List'                    => 'Lagerliste',
   'Binding to the LDAP server as "#1" failed. Please check config/authentication.pl.' => 'Die Anmeldung am LDAP-Server als "#1" schlug fehl. Bitte &uuml;berpr&uuml;fen Sie die Angaben in config/authentication.pl.',
   'CANCELED'                    => 'Storniert',
+  'CR'                          => 'H',
   'CRM admin'                   => 'Administration',
   'CRM create customers, vendors and contacts' => 'Erfassen (Kunden, Lieferanten, Personen)',
   'CRM follow up'               => 'Wiedervorlage',
@@ -68,6 +69,7 @@ $self->{texts} = {
   'Customer details'            => 'Kundendetails',
   'DATEV Export'                => 'DATEV-Export',
   'DELETED'                     => 'Gelöscht',
+  'DR'                          => 'S',
   'DUNNING STARTED'             => 'Mahnprozess gestartet',
   'Dataset upgrade'             => 'Datenbankaktualisierung',
   'Date'                        => 'Datum',
index 160c08d..5359be9 100644 (file)
@@ -32,6 +32,7 @@ $self->{texts} = {
   'Bin List'                    => 'Lagerliste',
   'Binding to the LDAP server as "#1" failed. Please check config/authentication.pl.' => 'Die Anmeldung am LDAP-Server als "#1" schlug fehl. Bitte &uuml;berpr&uuml;fen Sie die Angaben in config/authentication.pl.',
   'CANCELED'                    => 'Storniert',
+  'CR'                          => 'H',
   'CRM admin'                   => 'Administration',
   'CRM create customers, vendors and contacts' => 'Erfassen (Kunden, Lieferanten, Personen)',
   'CRM follow up'               => 'Wiedervorlage',
@@ -84,6 +85,7 @@ $self->{texts} = {
   'Customer not on file!'       => 'Kunde ist nicht in der Datenbank!',
   'DATEV Export'                => 'DATEV-Export',
   'DELETED'                     => 'Gelöscht',
+  'DR'                          => 'S',
   'DUNNING STARTED'             => 'Mahnprozess gestartet',
   'Dataset upgrade'             => 'Datenbankaktualisierung',
   'Date'                        => 'Datum',
index d720eb0..87f78fb 100644 (file)
@@ -34,6 +34,7 @@ $self->{texts} = {
   'Bin List'                    => 'Lagerliste',
   'Binding to the LDAP server as "#1" failed. Please check config/authentication.pl.' => 'Die Anmeldung am LDAP-Server als "#1" schlug fehl. Bitte &uuml;berpr&uuml;fen Sie die Angaben in config/authentication.pl.',
   'CANCELED'                    => 'Storniert',
+  'CR'                          => 'H',
   'CRM admin'                   => 'Administration',
   'CRM create customers, vendors and contacts' => 'Erfassen (Kunden, Lieferanten, Personen)',
   'CRM follow up'               => 'Wiedervorlage',
@@ -94,6 +95,7 @@ $self->{texts} = {
   'Customer type'               => 'Kundentyp',
   'DATEV Export'                => 'DATEV-Export',
   'DELETED'                     => 'Gelöscht',
+  'DR'                          => 'S',
   'DUNNING STARTED'             => 'Mahnprozess gestartet',
   'Dataset upgrade'             => 'Datenbankaktualisierung',
   'Date'                        => 'Datum',
index 32ad050..217e22f 100644 (file)
@@ -16,6 +16,7 @@ $self->{texts} = {
   'Bin List'                    => 'Lagerliste',
   'Binding to the LDAP server as "#1" failed. Please check config/authentication.pl.' => 'Die Anmeldung am LDAP-Server als "#1" schlug fehl. Bitte &uuml;berpr&uuml;fen Sie die Angaben in config/authentication.pl.',
   'CANCELED'                    => 'Storniert',
+  'CR'                          => 'H',
   'CRM admin'                   => 'Administration',
   'CRM create customers, vendors and contacts' => 'Erfassen (Kunden, Lieferanten, Personen)',
   'CRM follow up'               => 'Wiedervorlage',
@@ -56,6 +57,7 @@ $self->{texts} = {
   'Customer missing!'           => 'Kundenname fehlt!',
   'DATEV Export'                => 'DATEV-Export',
   'DELETED'                     => 'Gelöscht',
+  'DR'                          => 'S',
   'DUNNING STARTED'             => 'Mahnprozess gestartet',
   'Dataset upgrade'             => 'Datenbankaktualisierung',
   'Date'                        => 'Datum',
index 38c382a..b3857df 100644 (file)
@@ -42,6 +42,7 @@ $self->{texts} = {
   'Bis'                         => 'bis',
   'Body'                        => 'Text',
   'CANCELED'                    => 'Storniert',
+  'CR'                          => 'H',
   'CRM admin'                   => 'Administration',
   'CRM create customers, vendors and contacts' => 'Erfassen (Kunden, Lieferanten, Personen)',
   'CRM follow up'               => 'Wiedervorlage',
@@ -102,6 +103,7 @@ $self->{texts} = {
   'Customer type'               => 'Kundentyp',
   'DATEV Export'                => 'DATEV-Export',
   'DELETED'                     => 'Gelöscht',
+  'DR'                          => 'S',
   'DUNNING STARTED'             => 'Mahnprozess gestartet',
   'Dataset upgrade'             => 'Datenbankaktualisierung',
   'Date'                        => 'Datum',
index 19a42f5..334eddf 100644 (file)
@@ -38,6 +38,7 @@ $self->{texts} = {
   'Binding to the LDAP server as "#1" failed. Please check config/authentication.pl.' => 'Die Anmeldung am LDAP-Server als "#1" schlug fehl. Bitte &uuml;berpr&uuml;fen Sie die Angaben in config/authentication.pl.',
   'Bis'                         => 'bis',
   'CANCELED'                    => 'Storniert',
+  'CR'                          => 'H',
   'CRM admin'                   => 'Administration',
   'CRM create customers, vendors and contacts' => 'Erfassen (Kunden, Lieferanten, Personen)',
   'CRM follow up'               => 'Wiedervorlage',
@@ -95,6 +96,7 @@ $self->{texts} = {
   'Customer type'               => 'Kundentyp',
   'DATEV Export'                => 'DATEV-Export',
   'DELETED'                     => 'Gelöscht',
+  'DR'                          => 'S',
   'DUNNING STARTED'             => 'Mahnprozess gestartet',
   'Dataset upgrade'             => 'Datenbankaktualisierung',
   'Date'                        => 'Datum',
index 478be9b..c599478 100644 (file)
@@ -17,6 +17,7 @@ $self->{texts} = {
   'Bin List'                    => 'Lagerliste',
   'Binding to the LDAP server as "#1" failed. Please check config/authentication.pl.' => 'Die Anmeldung am LDAP-Server als "#1" schlug fehl. Bitte &uuml;berpr&uuml;fen Sie die Angaben in config/authentication.pl.',
   'CANCELED'                    => 'Storniert',
+  'CR'                          => 'H',
   'CRM admin'                   => 'Administration',
   'CRM create customers, vendors and contacts' => 'Erfassen (Kunden, Lieferanten, Personen)',
   'CRM follow up'               => 'Wiedervorlage',
@@ -53,6 +54,7 @@ $self->{texts} = {
   'Customer details'            => 'Kundendetails',
   'DATEV Export'                => 'DATEV-Export',
   'DELETED'                     => 'Gelöscht',
+  'DR'                          => 'S',
   'DUNNING STARTED'             => 'Mahnprozess gestartet',
   'Dataset upgrade'             => 'Datenbankaktualisierung',
   'Date'                        => 'Datum',
index f90abd6..0092527 100644 (file)
@@ -16,6 +16,7 @@ $self->{texts} = {
   'Bin List'                    => 'Lagerliste',
   'Binding to the LDAP server as "#1" failed. Please check config/authentication.pl.' => 'Die Anmeldung am LDAP-Server als "#1" schlug fehl. Bitte &uuml;berpr&uuml;fen Sie die Angaben in config/authentication.pl.',
   'CANCELED'                    => 'Storniert',
+  'CR'                          => 'H',
   'CRM admin'                   => 'Administration',
   'CRM create customers, vendors and contacts' => 'Erfassen (Kunden, Lieferanten, Personen)',
   'CRM follow up'               => 'Wiedervorlage',
@@ -53,6 +54,7 @@ $self->{texts} = {
   'Customer details'            => 'Kundendetails',
   'DATEV Export'                => 'DATEV-Export',
   'DELETED'                     => 'Gelöscht',
+  'DR'                          => 'S',
   'DUNNING STARTED'             => 'Mahnprozess gestartet',
   'Dataset upgrade'             => 'Datenbankaktualisierung',
   'Date'                        => 'Datum',
index ce3567f..e901b94 100644 (file)
@@ -15,6 +15,7 @@ $self->{texts} = {
   'Bin List'                    => 'Lagerliste',
   'Binding to the LDAP server as "#1" failed. Please check config/authentication.pl.' => 'Die Anmeldung am LDAP-Server als "#1" schlug fehl. Bitte &uuml;berpr&uuml;fen Sie die Angaben in config/authentication.pl.',
   'CANCELED'                    => 'Storniert',
+  'CR'                          => 'H',
   'CRM admin'                   => 'Administration',
   'CRM create customers, vendors and contacts' => 'Erfassen (Kunden, Lieferanten, Personen)',
   'CRM follow up'               => 'Wiedervorlage',
@@ -52,6 +53,7 @@ $self->{texts} = {
   'Customer details'            => 'Kundendetails',
   'DATEV Export'                => 'DATEV-Export',
   'DELETED'                     => 'Gelöscht',
+  'DR'                          => 'S',
   'DUNNING STARTED'             => 'Mahnprozess gestartet',
   'Dataset upgrade'             => 'Datenbankaktualisierung',
   'Date'                        => 'Datum',
index 423c4b6..bf6c6b2 100644 (file)
@@ -11,6 +11,7 @@ $self->{texts} = {
   'Bin List'                    => 'Lagerliste',
   'Binding to the LDAP server as "#1" failed. Please check config/authentication.pl.' => 'Die Anmeldung am LDAP-Server als "#1" schlug fehl. Bitte &uuml;berpr&uuml;fen Sie die Angaben in config/authentication.pl.',
   'CANCELED'                    => 'Storniert',
+  'CR'                          => 'H',
   'CRM admin'                   => 'Administration',
   'CRM create customers, vendors and contacts' => 'Erfassen (Kunden, Lieferanten, Personen)',
   'CRM follow up'               => 'Wiedervorlage',
@@ -45,6 +46,7 @@ $self->{texts} = {
   'Credit Note'                 => 'Gutschrift',
   'DATEV Export'                => 'DATEV-Export',
   'DELETED'                     => 'Gelöscht',
+  'DR'                          => 'S',
   'DUNNING STARTED'             => 'Mahnprozess gestartet',
   'Dataset upgrade'             => 'Datenbankaktualisierung',
   'Date'                        => 'Datum',
index fb63ba0..37944fc 100644 (file)
@@ -30,6 +30,7 @@ $self->{texts} = {
   'Binding to the LDAP server as "#1" failed. Please check config/authentication.pl.' => 'Die Anmeldung am LDAP-Server als "#1" schlug fehl. Bitte &uuml;berpr&uuml;fen Sie die Angaben in config/authentication.pl.',
   'Bis'                         => 'bis',
   'CANCELED'                    => 'Storniert',
+  'CR'                          => 'H',
   'CRM admin'                   => 'Administration',
   'CRM create customers, vendors and contacts' => 'Erfassen (Kunden, Lieferanten, Personen)',
   'CRM follow up'               => 'Wiedervorlage',
@@ -77,6 +78,7 @@ $self->{texts} = {
   'Customized Report'           => 'Vorgewählte Zeiträume',
   'DATEV Export'                => 'DATEV-Export',
   'DELETED'                     => 'Gelöscht',
+  'DR'                          => 'S',
   'DUNNING STARTED'             => 'Mahnprozess gestartet',
   'Dataset upgrade'             => 'Datenbankaktualisierung',
   'Date'                        => 'Datum',
index bfbaf37..fdce5d9 100644 (file)
@@ -41,6 +41,7 @@ $self->{texts} = {
   'Bis'                         => 'bis',
   'Body'                        => 'Text',
   'CANCELED'                    => 'Storniert',
+  'CR'                          => 'H',
   'CRM admin'                   => 'Administration',
   'CRM create customers, vendors and contacts' => 'Erfassen (Kunden, Lieferanten, Personen)',
   'CRM follow up'               => 'Wiedervorlage',
@@ -101,6 +102,7 @@ $self->{texts} = {
   'Customer type'               => 'Kundentyp',
   'DATEV Export'                => 'DATEV-Export',
   'DELETED'                     => 'Gelöscht',
+  'DR'                          => 'S',
   'DUNNING STARTED'             => 'Mahnprozess gestartet',
   'Dataset upgrade'             => 'Datenbankaktualisierung',
   'Date'                        => 'Datum',
index 706f10a..b1a549d 100644 (file)
@@ -26,6 +26,7 @@ $self->{texts} = {
   'Bin List'                    => 'Lagerliste',
   'Binding to the LDAP server as "#1" failed. Please check config/authentication.pl.' => 'Die Anmeldung am LDAP-Server als "#1" schlug fehl. Bitte &uuml;berpr&uuml;fen Sie die Angaben in config/authentication.pl.',
   'CANCELED'                    => 'Storniert',
+  'CR'                          => 'H',
   'CRM admin'                   => 'Administration',
   'CRM create customers, vendors and contacts' => 'Erfassen (Kunden, Lieferanten, Personen)',
   'CRM follow up'               => 'Wiedervorlage',
@@ -64,6 +65,7 @@ $self->{texts} = {
   'Customer details'            => 'Kundendetails',
   'DATEV Export'                => 'DATEV-Export',
   'DELETED'                     => 'Gelöscht',
+  'DR'                          => 'S',
   'DUNNING STARTED'             => 'Mahnprozess gestartet',
   'Dataset upgrade'             => 'Datenbankaktualisierung',
   'Date'                        => 'Datum',
index daa55a1..0611877 100644 (file)
@@ -18,6 +18,7 @@ $self->{texts} = {
   'Bin To'                      => 'Ziellagerplatz',
   'Binding to the LDAP server as "#1" failed. Please check config/authentication.pl.' => 'Die Anmeldung am LDAP-Server als "#1" schlug fehl. Bitte &uuml;berpr&uuml;fen Sie die Angaben in config/authentication.pl.',
   'CANCELED'                    => 'Storniert',
+  'CR'                          => 'H',
   'CRM admin'                   => 'Administration',
   'CRM create customers, vendors and contacts' => 'Erfassen (Kunden, Lieferanten, Personen)',
   'CRM follow up'               => 'Wiedervorlage',
@@ -59,6 +60,7 @@ $self->{texts} = {
   'Customer details'            => 'Kundendetails',
   'DATEV Export'                => 'DATEV-Export',
   'DELETED'                     => 'Gelöscht',
+  'DR'                          => 'S',
   'DUNNING STARTED'             => 'Mahnprozess gestartet',
   'Dataset upgrade'             => 'Datenbankaktualisierung',
   'Date'                        => 'Datum',
diff --git a/templates/webpages/gl/form_header_chart_balances_js_de.html b/templates/webpages/gl/form_header_chart_balances_js_de.html
new file mode 100644 (file)
index 0000000..3263ee7
--- /dev/null
@@ -0,0 +1,28 @@
+[% USE HTML %]
+[% USE JavaScript %]
+[% USE LxERP %]
+
+<script type="text/javascript">
+ <!--
+var chart_balances = new Array();
+
+[% FOREACH chart = ALL_CHARTS %]
+chart_balances[[% loop.count - 1 %]] = '[% JavaScript.escape(LxERP.format_amount(chart.balance, 2, 0, 'DRCR')) %]';
+[%- END %]
+
+function show_chart_balance(obj) {
+  var row = $(obj).attr('name').replace(/.*_/, '');
+  var idx = $('#accno_' + row).attr('selectedIndex');
+  $('#chart_balance_' + row).html(chart_balances[idx]);
+}
+
+$(document).ready(function() {
+  [%- SET row=0 %]
+  [%- WHILE row < rowcount %]
+   [%- SET row=row + 1 %]
+   $('#accno_[% row %]').change(function() { show_chart_balance(this); });
+   show_chart_balance($('#accno_[% row %]'));
+  [%- END %]
+});
+-->
+</script>
diff --git a/templates/webpages/gl/form_header_chart_balances_js_master.html b/templates/webpages/gl/form_header_chart_balances_js_master.html
new file mode 100644 (file)
index 0000000..3263ee7
--- /dev/null
@@ -0,0 +1,28 @@
+[% USE HTML %]
+[% USE JavaScript %]
+[% USE LxERP %]
+
+<script type="text/javascript">
+ <!--
+var chart_balances = new Array();
+
+[% FOREACH chart = ALL_CHARTS %]
+chart_balances[[% loop.count - 1 %]] = '[% JavaScript.escape(LxERP.format_amount(chart.balance, 2, 0, 'DRCR')) %]';
+[%- END %]
+
+function show_chart_balance(obj) {
+  var row = $(obj).attr('name').replace(/.*_/, '');
+  var idx = $('#accno_' + row).attr('selectedIndex');
+  $('#chart_balance_' + row).html(chart_balances[idx]);
+}
+
+$(document).ready(function() {
+  [%- SET row=0 %]
+  [%- WHILE row < rowcount %]
+   [%- SET row=row + 1 %]
+   $('#accno_[% row %]').change(function() { show_chart_balance(this); });
+   show_chart_balance($('#accno_[% row %]'));
+  [%- END %]
+});
+-->
+</script>