Dialogbuchen: Anzeige der letzten Buchungsnummer und des Datums, an dem diese Buchung...

diff --git a/SL/GL.pm b/SL/GL.pm
index 1b4a59e8cbcba6a3d3b7d997b380ffadcd48d393..3d65eac46cda0d2a410af523242db54b28f911fa 100644 (file)
--- a/SL/GL.pm
+++ b/SL/GL.pm
@@ -555,6 +555,11 @@ sub transaction {
   $query = qq|SELECT closedto, revtrans FROM defaults|;
   ($form->{closedto}, $form->{revtrans}) = selectrow_query($form, $dbh, $query);
 
   $query = qq|SELECT closedto, revtrans FROM defaults|;
   ($form->{closedto}, $form->{revtrans}) = selectrow_query($form, $dbh, $query);
 

+  $query = qq|SELECT id, gldate
+              FROM gl
+              WHERE id = (SELECT max(id) FROM gl)|;
+  ($form->{previous_id}, $form->{previous_gldate}) = selectrow_query($form, $dbh, $query);
+

   if ($form->{id}) {
     $query =
       qq|SELECT g.reference, g.description, g.notes, g.transdate, g.storno, g.storno_id,
   if ($form->{id}) {
     $query =
       qq|SELECT g.reference, g.description, g.notes, g.transdate, g.storno, g.storno_id,

diff --git a/bin/mozilla/gl.pl b/bin/mozilla/gl.pl
index fd75c2ed2c0931293d68e29fe0d52559dafc934a..e7d9654216870ada786f342fd09eed85073c7d96 100644 (file)
--- a/bin/mozilla/gl.pl
+++ b/bin/mozilla/gl.pl
@@ -1343,6 +1343,9 @@ sub form_header {
       qq|<td><input name=transdate id=transdate size=11 title="$myconfig{dateformat}" value="$form->{transdate}" $readonly onBlur=\"check_right_date_format(this)\"></td>|;
   }
 
       qq|<td><input name=transdate id=transdate size=11 title="$myconfig{dateformat}" value="$form->{transdate}" $readonly onBlur=\"check_right_date_format(this)\"></td>|;
   }
 

+  $form->{previous_id}     ||= "--";
+  $form->{previous_gldate} ||= "--";
+

   $form->header;
 
   print qq|
   $form->header;
 
   print qq|


@@ -1351,7 +1354,7 @@ sub form_header {
 <form method=post name="gl" action=$form->{script}>
 |;
 
 <form method=post name="gl" action=$form->{script}>
 |;
 

-  $form->hide_form(qw(id closedto locked storno storno_id));
+  $form->hide_form(qw(id closedto locked storno storno_id previous_id previous_gldate));

 
   print qq|
 <input type=hidden name=title value="$title">
 
   print qq|
 <input type=hidden name=title value="$title">


@@ -1365,6 +1368,14 @@ sub form_header {
   <tr>
     <td>
       <table width=100%>
   <tr>
     <td>
       <table width=100%>

+        <tr>
+          <td colspan="6" align="left">|
+    . $locale->text("Previous transnumber text")
+    . " $form->{previous_id} "
+    . $locale->text("Previous transdate text")
+    . " $form->{previous_gldate}"
+    . qq|</td>
+        </tr>

        <tr>
          <th align=right>| . $locale->text('Reference') . qq|</th>
          <td><input name=reference size=20 value="$form->{reference}" $readonly></td>
        <tr>
          <th align=right>| . $locale->text('Reference') . qq|</th>
          <td><input name=reference size=20 value="$form->{reference}" $readonly></td>

diff --git a/locale/de/all b/locale/de/all
index e0bbf49e0abef082fcfec79f76c7bec0af29fd4f..441a201edcef70d1c3d078b71d7fd7ae838f0e3b 100644 (file)
--- a/locale/de/all
+++ b/locale/de/all
@@ -816,6 +816,8 @@ gestartet',
   'Preisklasse'                 => 'Preisgruppe',
   'Prepayment'                  => 'Vorauszahlung',
   'Preview'                     => 'Druckvorschau',
   'Preisklasse'                 => 'Preisgruppe',
   'Prepayment'                  => 'Vorauszahlung',
   'Preview'                     => 'Druckvorschau',

+  'Previous transdate text'     => 'wurde gespeichert am',
+  'Previous transnumber text'   => 'Letzte Buchung mit der Buchungsnummer',

   'Price'                       => 'Preis',
   'Pricegroup'                  => 'Preisgruppe',
   'Pricegroup deleted!'         => 'Preisgruppe gelöscht!',
   'Price'                       => 'Preis',
   'Pricegroup'                  => 'Preisgruppe',
   'Pricegroup deleted!'         => 'Preisgruppe gelöscht!',

diff --git a/locale/de/gl b/locale/de/gl
index a0af63faab6b0389bd6f0b34081985852a58d242..09f7ec3d8e943f630adc7c9e3e3135ee75faee68 100644 (file)
--- a/locale/de/gl
+++ b/locale/de/gl
@@ -116,6 +116,8 @@ $self->{texts} = {
   'Please enter values'         => 'Bitte Werte eingeben',
   'Post'                        => 'Buchen',
   'Post as new'                 => 'Neu buchen',
   'Please enter values'         => 'Bitte Werte eingeben',
   'Post'                        => 'Buchen',
   'Post as new'                 => 'Neu buchen',

+  'Previous transdate text'     => 'wurde gespeichert am',
+  'Previous transnumber text'   => 'Letzte Buchung mit der Buchungsnummer',

   'Proforma Invoice'            => 'Proformarechnung',
   'Project Number'              => 'Projektnummer',
   'Project Numbers'             => 'Projektnummern',
   'Proforma Invoice'            => 'Proformarechnung',
   'Project Number'              => 'Projektnummer',
   'Project Numbers'             => 'Projektnummern',