Debitoren/Kreditorenbuchungen. Buchungsnummer als Info ausgeben

Buchungsnummer ist im gesamten Programm eindeutig und
für die Verknüpfung vom Papierbeleg zur Buchung ein sinnvoller
Nummernkreis. Dementsprechend wie bei den Dialogbuchungen diese
an den Bearbeiter zurückmelden.

diff --git a/bin/mozilla/ap.pl b/bin/mozilla/ap.pl
index 790cb69..fe978cb 100644 (file)
--- a/bin/mozilla/ap.pl
+++ b/bin/mozilla/ap.pl
@@ -826,7 +826,11 @@ sub post {
     # no restore_from_session_id needed. we like to have a newly generated
     # list of invoices for bank transactions
     print $form->redirect_header($form->{callback}) if ($form->{callback} =~ /BankTransaction/);
-    $form->redirect($locale->text('AP transaction posted.')) unless $inline;
+    $form->redirect($locale->text('AP transaction posted.') . ' ' . $locale->text('ID') . ': ' . $form->{id}) unless $inline;
+    # TODO Add callback/return flag in myconfig
+    # With version 3.5 we can add documents, but only after posting. there should be a flag in myconfig for the user
+    # $form->{callback} ||= 'ap.pl?action=edit&id=' . $form->{id} if $myconfig{no_reset_arap};
+
   } else {
     $form->error($locale->text('Cannot post transaction!'));
   }

diff --git a/bin/mozilla/ar.pl b/bin/mozilla/ar.pl
index 9d1784f..ec028e8 100644 (file)
--- a/bin/mozilla/ar.pl
+++ b/bin/mozilla/ar.pl
@@ -792,7 +792,7 @@ sub post {
   }
   # /saving the history
 
-  $form->redirect($locale->text("AR transaction posted.")) unless $inline;
+  $form->redirect($locale->text('AR transaction posted.') . ' ' . $locale->text('ID') . ': ' . $form->{id}) unless $inline;
 
   $main::lxdebug->leave_sub();
 }