DB-Buchungsvorlage: Auf Betrag im Soll und Haben prüfen

Andernfalls kann der Kontoauszugsbetrag nicht richtig gesetzt werden

diff --git a/bin/mozilla/gl.pl b/bin/mozilla/gl.pl
index 886d756..dbaddc5 100644 (file)
--- a/bin/mozilla/gl.pl
+++ b/bin/mozilla/gl.pl
@@ -158,9 +158,15 @@ sub save_record_template {
   my $template = $::form->{record_template_id} ? SL::DB::RecordTemplate->new(id => $::form->{record_template_id})->load : SL::DB::RecordTemplate->new;
   my $js       = SL::ClientJS->new(controller => SL::Controller::Base->new);
   my $new_name = $template->template_name_to_use($::form->{record_template_new_template_name});
-
   $js->dialog->close('#record_template_dialog');
 
+
+  # bank transactions need amounts for assignment
+  my $can_save = 0;
+  $can_save    = 1 if ($::form->{credit_1} > 0 && $::form->{debit_2} > 0 && $::form->{credit_2} == 0 && $::form->{debit_1} == 0);
+  $can_save    = 1 if ($::form->{credit_2} > 0 && $::form->{debit_1} > 0 && $::form->{credit_1} == 0 && $::form->{debit_2} == 0);
+  return $js->flash('error', t8('Can only save template if amounts,i.e. 1 for debit and credit are set.'))->render unless $can_save;
+
   my @items = grep {
     $_->{chart_id} && (($_->{tax_id} // '') ne '')
   } map {

diff --git a/locale/de/all b/locale/de/all
index bc89120..fd983ea 100755 (executable)
--- a/locale/de/all
+++ b/locale/de/all
@@ -544,6 +544,7 @@ $self->{texts} = {
   'Calling #1 now'              => 'Wähle jetzt #1',
   'Can not create that quantity with current stock' => 'Diese Anzahl kann mit dem gegenwärtigen Lagerbestand nicht hergestellt werden.',
   'Can only delete the "Storno zu" part of the cancellation pair.' => 'Löschen von R(S) Rechnung nicht erlaubt. Löschen der entsprechenden "Storno zu" Gutschrift reaktiviert diese Rechnung wieder.',
+  'Can only save template if amounts,i.e. 1 for debit and credit are set.' => 'Kann die Vorlage nicht speichern. Es wird mindestens ein Betrag im Soll und im Haben benötigt (bspw. 1), damit bspw. Beträge aus Kontoauszügen korrekt gesetzt werden können.',
   'Can\'t connect to shop. #1'  => 'Kann keine Verbindung zu Shop #1 herstellen.',
   'Can\'t load item without a valid part.id' => 'Kann Artikel ohne gültige part.id nicht laden',
   'Cancel'                      => 'Abbrechen',

diff --git a/locale/en/all b/locale/en/all
index 7dbf694..3aef25c 100644 (file)
--- a/locale/en/all
+++ b/locale/en/all
@@ -544,6 +544,7 @@ $self->{texts} = {
   'Calling #1 now'              => '',
   'Can not create that quantity with current stock' => '',
   'Can only delete the "Storno zu" part of the cancellation pair.' => '',
+  'Can only save template if amounts,i.e. 1 for debit and credit are set.' => '',
   'Can\'t connect to shop. #1'  => '',
   'Can\'t load item without a valid part.id' => '',
   'Cancel'                      => '',