Automatisches Setzes des Faelligkeitsdatums nach Zahlungsbedingung

diff --git a/SL/Form.pm b/SL/Form.pm
index 0616e1e79edd63d1e1b330d5a125ac027886344c..c812b404d7610905cec177259336fffd92d14ecd 100644 (file)
--- a/SL/Form.pm
+++ b/SL/Form.pm
@@ -1325,6 +1325,24 @@ sub get_employee {
   $main::lxdebug->leave_sub();
 }
 
   $main::lxdebug->leave_sub();
 }
 

+sub get_duedate {
+  $main::lxdebug->enter_sub();
+
+  my ($self, $myconfig) = @_;
+
+  my $dbh = $self->dbconnect($myconfig);
+  my $query = qq|SELECT current_date+terms_netto FROM payment_terms
+                 WHERE id = '$self->{payment_id}'|;
+  my $sth = $dbh->prepare($query);
+  $sth->execute || $self->dberror($query);
+
+  ($self->{duedate}) = $sth->fetchrow_array;
+
+  $sth->finish;
+
+  $main::lxdebug->leave_sub();
+}
+

 # get other contact for transaction and form - html/tex
 sub get_contact {
   $main::lxdebug->enter_sub();
 # get other contact for transaction and form - html/tex
 sub get_contact {
   $main::lxdebug->enter_sub();

diff --git a/bin/mozilla/io.pl b/bin/mozilla/io.pl
index ad619b92dba3ca7522e9ccaa509dc56c6f4542d5..64a59f7b0674eef5dd59af33bfb6c94e4ce1fed3 100644 (file)
--- a/bin/mozilla/io.pl
+++ b/bin/mozilla/io.pl
@@ -34,6 +34,8 @@
 #######################################################################
 
 use SL::IC;
 #######################################################################
 
 use SL::IC;

+use CGI::Ajax;
+use CGI;

 
 require "$form->{path}/common.pl";
 
 
 require "$form->{path}/common.pl";
 


@@ -2189,3 +2191,18 @@ sub relink_accounts {
 
   $lxdebug->leave_sub();
 }
 
   $lxdebug->leave_sub();
 }

+
+
+sub set_duedate {
+  $lxdebug->enter_sub();
+
+  $form->get_duedate(\%myconfig);
+
+  my $q = new CGI;
+  $result = "$form->{duedate}";
+  print $q->header();
+  print $result;
+  $lxdebug->leave_sub();
+
+}
+

diff --git a/bin/mozilla/is.pl b/bin/mozilla/is.pl
index 52e668233527e97381d66369a09cbb0d4a7fa537..badf0655b9c4a24c869be0a935b5f0be3d77991d 100644 (file)
--- a/bin/mozilla/is.pl
+++ b/bin/mozilla/is.pl
@@ -324,6 +324,11 @@ sub form_header {
     }
   }
 
     }
   }
 

+  my $set_duedate_url =
+    "$form->{script}?login=$form->{login}&path=$form->{path}&password=$form->{password}&action=set_duedate";
+
+  my $pjx = new CGI::Ajax( 'set_duedate' => $set_duedate_url );
+  push(@ { $form->{AJAX} }, $pjx);

 
   if (@{ $form->{TAXZONE} }) {
     $form->{selecttaxzone} = "";
 
   if (@{ $form->{TAXZONE} }) {
     $form->{selecttaxzone} = "";


@@ -911,7 +916,7 @@ sub form_footer {
              <tr valign=top>
                <td>$notes</td>
                <td>$intnotes</td>
              <tr valign=top>
                <td>$notes</td>
                <td>$intnotes</td>

-                <td><select name=payment_id tabindex=24>$payment
+                <td><select name=payment_id onChange="set_duedate(['payment_id__' + this.value],['duedate'])">$payment

                 </select></td>
              </tr>
            </table>
                 </select></td>
              </tr>
            </table>

diff --git a/locale/de/all b/locale/de/all
index bd9fd60f3732d8954c4fab4307963961b29794bd..f4d2b13aa451abaf8327ba26536261f8cf26cae1 100644 (file)
--- a/locale/de/all
+++ b/locale/de/all
@@ -958,6 +958,7 @@ gestartet',
   'The database update/creation did not succeed. The file <TMPL_VAR file ESCAPE=HTML> contained the following error:' => 'Die Datenbankaktualisierung/erstellung schlug fehl. Die Datei <TMPL_VAR file ESCAPE=HTML> enthielt den folgenden Fehler:',
   'The database upgrade for the introduction of Buchungsgruppen is now complete.' => 'Das Datenbankupgrade f&uuml;r die Einf&uuml;hrung von Buchungsgruppen ist jetzt beendet.',
   'The database upgrade for the introduction of units is now complete.' => 'Das Datenbankupgrade zwecks Einf&uuml;hrung von Einheiten ist nun beendet.',
   'The database update/creation did not succeed. The file <TMPL_VAR file ESCAPE=HTML> contained the following error:' => 'Die Datenbankaktualisierung/erstellung schlug fehl. Die Datei <TMPL_VAR file ESCAPE=HTML> enthielt den folgenden Fehler:',
   'The database upgrade for the introduction of Buchungsgruppen is now complete.' => 'Das Datenbankupgrade f&uuml;r die Einf&uuml;hrung von Buchungsgruppen ist jetzt beendet.',
   'The database upgrade for the introduction of units is now complete.' => 'Das Datenbankupgrade zwecks Einf&uuml;hrung von Einheiten ist nun beendet.',

+  'The dunning process is started' => '',

   'The dunning process started' => 'Der Mahnprozess ist gestartet.',
   'The factor is missing in row %d.' => 'Der Faktor fehlt in Zeile %d.',
   'The factor is missing.'      => 'Der Faktor fehlt.',
   'The dunning process started' => 'Der Mahnprozess ist gestartet.',
   'The factor is missing in row %d.' => 'Der Faktor fehlt in Zeile %d.',
   'The factor is missing.'      => 'Der Faktor fehlt.',

diff --git a/locale/de/cn b/locale/de/cn
index bdfebfa6460a61e3ae6794b153ab24057a09f2da..ba075a2025c1df3f45118aae2c07082b4c0d2164 100644 (file)
--- a/locale/de/cn
+++ b/locale/de/cn
@@ -260,6 +260,7 @@ $self->{subs} = {
   'select_part_internal'        => 'select_part_internal',
   'select_project'              => 'select_project',
   'send_email'                  => 'send_email',
   'select_part_internal'        => 'select_part_internal',
   'select_project'              => 'select_project',
   'send_email'                  => 'send_email',

+  'set_duedate'                 => 'set_duedate',

   'set_longdescription'         => 'set_longdescription',
   'set_pricegroup'              => 'set_pricegroup',
   'ship_to'                     => 'ship_to',
   'set_longdescription'         => 'set_longdescription',
   'set_pricegroup'              => 'set_pricegroup',
   'ship_to'                     => 'ship_to',

diff --git a/locale/de/dn b/locale/de/dn
index cf47a4b916d0c654c75b9739dbba9a526ceaf74a..b0fc7a1e34f41336d89a9bbc29156e6637d11da8 100644 (file)
--- a/locale/de/dn
+++ b/locale/de/dn
@@ -247,6 +247,7 @@ $self->{subs} = {
   'select_part_internal'        => 'select_part_internal',
   'select_project'              => 'select_project',
   'send_email'                  => 'send_email',
   'select_part_internal'        => 'select_part_internal',
   'select_project'              => 'select_project',
   'send_email'                  => 'send_email',

+  'set_duedate'                 => 'set_duedate',

   'set_email'                   => 'set_email',
   'set_longdescription'         => 'set_longdescription',
   'set_pricegroup'              => 'set_pricegroup',
   'set_email'                   => 'set_email',
   'set_longdescription'         => 'set_longdescription',
   'set_pricegroup'              => 'set_pricegroup',

diff --git a/locale/de/ic b/locale/de/ic
index ba3df55f2a4bae1b7cb5fd72452ccd5b958a5fb0..e3de9594974d67bcdd2b3feed752cb070c9ea1e7 100644 (file)
--- a/locale/de/ic
+++ b/locale/de/ic
@@ -300,6 +300,7 @@ $self->{subs} = {
   'select_part'                 => 'select_part',
   'select_part_internal'        => 'select_part_internal',
   'send_email'                  => 'send_email',
   'select_part'                 => 'select_part',
   'select_part_internal'        => 'select_part_internal',
   'send_email'                  => 'send_email',

+  'set_duedate'                 => 'set_duedate',

   'set_longdescription'         => 'set_longdescription',
   'set_pricegroup'              => 'set_pricegroup',
   'ship_to'                     => 'ship_to',
   'set_longdescription'         => 'set_longdescription',
   'set_pricegroup'              => 'set_pricegroup',
   'ship_to'                     => 'ship_to',

diff --git a/locale/de/io b/locale/de/io
index db3ea9ece08f776cdab9f40f389dd8513508a10a..dfd973f4c2a41b23e77ff29289221e70f05b043b 100644 (file)
--- a/locale/de/io
+++ b/locale/de/io
@@ -171,6 +171,7 @@ $self->{subs} = {
   'select_part'                 => 'select_part',
   'select_part_internal'        => 'select_part_internal',
   'send_email'                  => 'send_email',
   'select_part'                 => 'select_part',
   'select_part_internal'        => 'select_part_internal',
   'send_email'                  => 'send_email',

+  'set_duedate'                 => 'set_duedate',

   'set_longdescription'         => 'set_longdescription',
   'set_pricegroup'              => 'set_pricegroup',
   'ship_to'                     => 'ship_to',
   'set_longdescription'         => 'set_longdescription',
   'set_pricegroup'              => 'set_pricegroup',
   'ship_to'                     => 'ship_to',

diff --git a/locale/de/ir b/locale/de/ir
index e93d3d06fc8bad62ce0a28a1d61a427e30ac6843..26d03d023c35b218ddb6e4071e544c134a7ea33d 100644 (file)
--- a/locale/de/ir
+++ b/locale/de/ir
@@ -250,6 +250,7 @@ $self->{subs} = {
   'select_part_internal'        => 'select_part_internal',
   'select_project'              => 'select_project',
   'send_email'                  => 'send_email',
   'select_part_internal'        => 'select_part_internal',
   'select_project'              => 'select_project',
   'send_email'                  => 'send_email',

+  'set_duedate'                 => 'set_duedate',

   'set_longdescription'         => 'set_longdescription',
   'set_pricegroup'              => 'set_pricegroup',
   'ship_to'                     => 'ship_to',
   'set_longdescription'         => 'set_longdescription',
   'set_pricegroup'              => 'set_pricegroup',
   'ship_to'                     => 'ship_to',

diff --git a/locale/de/is b/locale/de/is
index ca262b9ddab3b4fa6abeae296577958a169b32b0..ceecdd825ba992384b9c7e3dd826bf3265366c02 100644 (file)
--- a/locale/de/is
+++ b/locale/de/is
@@ -278,6 +278,7 @@ $self->{subs} = {
   'select_part_internal'        => 'select_part_internal',
   'select_project'              => 'select_project',
   'send_email'                  => 'send_email',
   'select_part_internal'        => 'select_part_internal',
   'select_project'              => 'select_project',
   'send_email'                  => 'send_email',

+  'set_duedate'                 => 'set_duedate',

   'set_longdescription'         => 'set_longdescription',
   'set_pricegroup'              => 'set_pricegroup',
   'ship_to'                     => 'ship_to',
   'set_longdescription'         => 'set_longdescription',
   'set_pricegroup'              => 'set_pricegroup',
   'ship_to'                     => 'ship_to',

diff --git a/locale/de/oe b/locale/de/oe
index 195be07d3e73a84dc2db6f6ce1803df4036c14af..90ea1009cce675f9a166cfd469f34aabeaa9595b 100644 (file)
--- a/locale/de/oe
+++ b/locale/de/oe
@@ -325,6 +325,7 @@ $self->{subs} = {
   'select_part_internal'        => 'select_part_internal',
   'select_project'              => 'select_project',
   'send_email'                  => 'send_email',
   'select_part_internal'        => 'select_part_internal',
   'select_project'              => 'select_project',
   'send_email'                  => 'send_email',

+  'set_duedate'                 => 'set_duedate',

   'set_headings'                => 'set_headings',
   'set_longdescription'         => 'set_longdescription',
   'set_pricegroup'              => 'set_pricegroup',
   'set_headings'                => 'set_headings',
   'set_longdescription'         => 'set_longdescription',
   'set_pricegroup'              => 'set_pricegroup',