DATEV: Nummernkreislänge muss konstant sein.

[mfinanz.git] / SL / DATEV.pm

diff --git a/SL/DATEV.pm b/SL/DATEV.pm
index 0c51015416c40581addf0822895b22aa53490163..1b2f42672c71f8317faf8df70c04c1a5ff0f81f0 100644 (file)
--- a/SL/DATEV.pm
+++ b/SL/DATEV.pm
@@ -376,11 +376,11 @@ sub csv_export {
   $self->generate_datev_data(from_to => $self->fromto);
   return if $self->errors;
 
-  my $datev_ref = SL::DATEV::CSV->new(datev_lines  => $self->generate_datev_lines,
-                                      from         => $self->from,
-                                      to           => $self->to,
-                                      locked       => $self->locked,
-                                     );
+  my $datev_ref, $self->warnings = SL::DATEV::CSV->new(datev_lines  => $self->generate_datev_lines,
+                                                       from         => $self->from,
+                                                       to           => $self->to,
+                                                       locked       => $self->locked,
+                                                      );
 
   my $filename = "EXTF_DATEV_kivitendo" . $self->from->ymd() . '-' . $self->to->ymd() . ".csv";
 
@@ -1417,6 +1417,23 @@ SQL
   return defined $has_non_pk_accounts ? 0 : 1;
 }
 
+
+sub check_valid_length_of_accounts {
+  my ($self) = @_;
+
+  my $query = <<"SQL";
+  SELECT DISTINCT char_length (accno) FROM chart WHERE charttype='A' AND id in (select chart_id from acc_trans);
+SQL
+
+  my $accno_length = selectall_hashref_query($::form, SL::DB->client->dbh, $query);
+  if (1 < keys $accno_length) {
+    $::form->error(t8("Invalid combination of ledger account number length." .
+                      " Mismatch length of #1 with length of #2. Please check your account settings. ",
+                      $accno_length->[0]->{char_length}, $accno_length->[1]->{char_length}));
+  }
+  return 1;
+}
+
 sub DESTROY {
   clean_temporary_directories();
 }
@@ -1656,6 +1673,12 @@ All vcnumbers are checked, obsolete customers or vendors aren't exempt.
 There is also no check for the typical customer range 10000-69999 and the
 typical vendor range 70000-99999.
 
+=item check_valid_length_of_accounts
+
+Returns 1 if all currently booked accounts have only one common number length domain (e.g. 4 or 6).
+Will throw an error if more than one distinct size is detected.
+The error message gives a short hint with the value of the (at least)
+two mismatching number length domains.
 =back
 
 =head1 ATTRIBUTES