konto_check 6.08.0 → 6.13.0

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA256:
-  metadata.gz: e67c089cb69098527f09a67d389e77a22f85125f1fce9420a33996c97eae5338
-  data.tar.gz: 63e38e1fccc8b3cc79073298d57b4e89eb992896c10634b8cb8529ff36d192a7
+  metadata.gz: aa869ca84203c2f9c627a8ed8c9c2fd6da6d8a1c8cb6450ad8954fffb9ca89b3
+  data.tar.gz: b35b73763d3f4234753263a757151a6e0de9332b6305c4bad39fe7cb18e9a1ba
 SHA512:
-  metadata.gz: c4834fb2d2ae0d8f47d1af2b146d5a35d2a8e69c97931df11ad3431117d93bb22e973f3f07806af450c65e69469dd2ac6056828135f7cba432522de2f47ae73e
-  data.tar.gz: 7d3d13c5041d1651a9c898630fbd9b51892afb5ec5bcf653b35eb53565bcf34321cfcf77b852c9567d31858eac285ebae850cd9147caa744d106c91e1486c034
+  metadata.gz: 3dcf2deacd64ad3dd65632079d387e32658bb844042b568650b7a333d6cf1f7c20bba4a459bf03750337621a0259988ac9679539a16b4b97c0b56585db3e7448
+  data.tar.gz: b5e6a983283ec282981a28cb4d5c0c453353c5965d0c2053fe3d2af006e034e792601978e7fb02f058b553f77a2109f330fd901c8603fe87c5c002890c5d15e6

data/ext/konto_check_raw/konto_check.c

@@ -13,7 +13,7 @@
  * #  wurden aus der aktuellen BLZ-Datei der Deutschen Bundesbank           #
  * #  �bernommen.                                                           #
  * #                                                                        #
- * #  Copyright (C) 2002-2019 Michael Plugge <m.plugge@hs-mannheim.de>      #
+ * #  Copyright (C) 2002-2020 Michael Plugge <m.plugge@hs-mannheim.de>      #
  * #                                                                        #
  * #  Dieses Programm ist freie Software; Sie d�rfen es unter den           #
  * #  Bedingungen der GNU Lesser General Public License, wie von der Free   #
@@ -45,15 +45,14 @@
  * # im Internet herunterladen.                                             #
  * ##########################################################################
  */
-#line 332 "konto_check.lxx"
 
 /* Definitionen und Includes  */
 #ifndef VERSION
-#define VERSION "6.08 (final)"
+#define VERSION "6.13 (final)"
 #define VERSION_MAJOR 6
-#define VERSION_MINOR 08
+#define VERSION_MINOR 13
 #endif
-#define VERSION_DATE "2019-03-19"
+#define VERSION_DATE "2020-12-16"
 
 #ifndef INCLUDE_KONTO_CHECK_DE
 #define INCLUDE_KONTO_CHECK_DE 1
@@ -104,8 +103,8 @@ static lzo_align_t __LZO_MMODEL wrkmem[LZO1X_1_MEM_COMPRESS];
 #define KONTO_CHECK_VARS
 #include "konto_check.h"
 
-   /* Flag, um die �nderungen zum Dezember 2018 zu aktivieren */
-static int pz_aenderungen_aktivieren_2018_12;
+   /* Flag, um die �nderungen zum Dezember 2019 zu aktivieren */
+static int pz_aenderungen_aktivieren_2019_12;
 
    /* falls die Variable verbose_debug gesetzt wird, werden bei einigen
     * Funktionen mittels perror() zus�tzliche Debuginfos ausgegeben. Die
@@ -249,7 +248,6 @@ static int convert_encoding(char **data,UINT4 *len);
 #define free(ptr) efree(ptr)
 #endif
 
-#line 777 "konto_check.lxx"
 
    /* Testwert zur Markierung ung�ltiger Ziffern im BLZ-String (>8 Stellen) */
 #define BLZ_FEHLER 100000000
@@ -385,7 +383,6 @@ static int convert_encoding(char **data,UINT4 *len);
     */
 #define CHECK_RETVAL(fkt) do{if((retval=fkt)!=OK)goto fini;}while(0)     /* es mu� noch aufger�umt werden, daher goto */
 #define CHECK_RETURN(fkt) do{if((retval=fkt)!=OK)return retval;}while(0)
-#line 918 "konto_check.lxx"
 
    /* einige Makros zur Umwandlung zwischen unsigned int und char */
 #define UCP  (unsigned char*)
@@ -505,7 +502,6 @@ int pz=-777;
 
 #define E_START(x)
 #define E_END(x)
-#line 1043 "konto_check.lxx"
 
    /* Variable f�r die Methoden 27, 29 und 69 */
 static const int m10h_digits[4][10]={
@@ -954,7 +950,6 @@ static int create_lutfile_int(char *name, char *prolog, int slots,FILE **lut)
  * ###########################################################################
  */
 
-#line 1492 "konto_check.lxx"
 DLL_EXPORT int write_lut_block(char *lutname,UINT4 typ,UINT4 len,char *data)
 {
    char buffer[SLOT_BUFFER],*ptr;
@@ -992,7 +987,6 @@ DLL_EXPORT int write_lut_block(char *lutname,UINT4 typ,UINT4 len,char *data)
  * #############################################################################
  */
 
-#line 1530 "konto_check.lxx"
 static int write_lut_block_int(FILE *lut,UINT4 typ,UINT4 len,char *data)
 {
    char buffer[SLOT_BUFFER],*ptr,*cptr;
@@ -1128,7 +1122,6 @@ static int write_lut_block_int(FILE *lut,UINT4 typ,UINT4 len,char *data)
  * ###########################################################################
  */
 
-#line 1666 "konto_check.lxx"
 DLL_EXPORT int read_lut_block(char *lutname, UINT4 typ,UINT4 *blocklen,char **data)
 {
    int retval;
@@ -1151,7 +1144,6 @@ DLL_EXPORT int read_lut_block(char *lutname, UINT4 typ,UINT4 *blocklen,char **da
  * ###########################################################################
  */
 
-#line 1690 "konto_check.lxx"
 DLL_EXPORT int read_lut_slot(char *lutname,int slot,UINT4 *blocklen,char **data)
 {
    int retval;
@@ -1173,7 +1165,6 @@ DLL_EXPORT int read_lut_slot(char *lutname,int slot,UINT4 *blocklen,char **data)
  * ###########################################################################
  */
 
-#line 1713 "konto_check.lxx"
 static int read_lut_block_int(FILE *lut,int slot,int typ,UINT4 *blocklen,char **data)
 {
    char buffer[SLOT_BUFFER],*ptr,*sbuffer,*dbuffer;
@@ -1263,7 +1254,6 @@ static int read_lut_block_int(FILE *lut,int slot,int typ,UINT4 *blocklen,char **
             FREE(sbuffer);
             RETURN(ERROR_MALLOC);
          }
-#line 1818 "konto_check.lxx"
 
          if(fread(sbuffer,1,compressed_len,lut)<compressed_len){
             FREE(sbuffer);
@@ -2742,6 +2732,38 @@ DLL_EXPORT int lut_valid(void)
       RETURN(LUT2_NO_LONGER_VALID);
 }
 
+DLL_EXPORT int lut_valid_date(char *lut_name,int *v11,int *v12,int *v21,int *v22)
+{
+   char *ptr,*info1,*info2;
+   int retval,v1,v2;
+
+   *v11=*v12=*v21=*v22=0;
+   if((retval=lut_info(lut_name,&info1,&info2,&v1,&v2))!=OK)return retval;
+   if(info1){
+      for(ptr=info1;*ptr && *ptr!='\n' && !isdigit(*ptr);ptr++);
+      if(*ptr && *ptr!='\n'){
+         *v11=strtoul(ptr,NULL,10);             /* Anfangsdatum der G�ltigkeit */
+         if(*ptr && *ptr!='\n'){
+            while(*ptr && *ptr!='\n' && *ptr++!='-'); /* Endedatum suchen */
+            if(*ptr)*v12=strtoul(ptr,NULL,10);  /* Endedatum der G�ltigkeit */
+         }
+      }
+      free(info1);
+   }
+   if(info2){
+      for(ptr=info2;*ptr && *ptr!='\n' && !isdigit(*ptr);ptr++);
+      if(*ptr && *ptr!='\n'){
+         *v21=strtoul(ptr,NULL,10);             /* Anfangsdatum der G�ltigkeit */
+         if(*ptr && *ptr!='\n'){
+            while(*ptr && *ptr!='\n' && *ptr++!='-'); /* Endedatum suchen */
+            if(*ptr)*v22=strtoul(ptr,NULL,10);  /* Endedatum der G�ltigkeit */
+         }
+      }
+      free(info2);
+   }
+   return OK;
+}
+
 
 /* Funktion lut_info_b() +���1 */
 /* ###########################################################################
@@ -2856,7 +2878,6 @@ DLL_EXPORT int lut_info_id(char *lut_name,int *info1,int *info2,int *valid1,int
  * ###########################################################################
  */
 
-#line 3411 "konto_check.lxx"
 DLL_EXPORT int lut_info(char *lut_name,char **info1,char **info2,int *valid1,int *valid2)
 {
    char *ptr,*ptr1,buffer[128];
@@ -2944,7 +2965,6 @@ DLL_EXPORT int lut_info(char *lut_name,char **info1,char **info2,int *valid1,int
 
       /* Infoblocks lesen: 1. Infoblock */
    if((ret=read_lut_block_int(in,0,LUT2_INFO,&cnt,&ptr))==OK){
-#line 3500 "konto_check.lxx"
       *(ptr+cnt)=0;
       if(valid1){
          for(ptr1=ptr,v1=v2=0;*ptr1 && *ptr1!='\n' && !isdigit(*ptr1);ptr1++);
@@ -2992,7 +3012,6 @@ DLL_EXPORT int lut_info(char *lut_name,char **info1,char **info2,int *valid1,int
 
       /* Infoblocks lesen: 2. Infoblock */
    if((ret=read_lut_block_int(in,0,LUT2_2_INFO,&cnt,&ptr))==OK){
-#line 3549 "konto_check.lxx"
       *(ptr+cnt)=0;
       if(valid2){
          for(ptr1=ptr,v1=v2=0;*ptr1 && *ptr1!='\n' && !isdigit(*ptr1);ptr1++);
@@ -3211,7 +3230,6 @@ DLL_EXPORT int copy_lutfile(char *old_name,char *new_name,int new_slots)
    qsort(slotdir,slot_cnt,sizeof(int),cmp_int);
    for(last_slot=-1,i=0;i<(int)slot_cnt;i++)if((typ=slotdir[i]) && typ!=(UINT4)last_slot){
       read_lut_block_int(lut1,0,typ,&len,&data);
-#line 3769 "konto_check.lxx"
       write_lut_block_int(lut2,typ,len,data);
       FREE(data);
       last_slot=typ;
@@ -3441,7 +3459,6 @@ DLL_EXPORT int lut_init(char *lut_name,int required,int set)
  * # Copyright (C) 2008 Michael Plugge <m.plugge@hs-mannheim.de>             #
  * ###########################################################################
  */
-#line 3999 "konto_check.lxx"
 DLL_EXPORT int kto_check_init(char *lut_name,int *required,int **status,int set,int incremental)
 {
    char *ptr,*dptr,*data,*eptr,*prolog,*info,*user_info,*hs=NULL,*info1,*info2,*ci=NULL,name_buffer[LUT_PATH_LEN];
@@ -3669,7 +3686,6 @@ DLL_EXPORT int kto_check_init(char *lut_name,int *required,int **status,int set,
          typ1=typ;
       if(lut2_block_status[typ]==OK)continue;   /* jeden Block nur einmal einlesen */
       retval=read_lut_block_int(lut,0,typ,&len,&data);
-#line 4228 "konto_check.lxx"
 
       switch(retval){
          case LUT_CRC_ERROR:
@@ -3757,7 +3773,6 @@ DLL_EXPORT int kto_check_init(char *lut_name,int *required,int **status,int set,
             if(typ==LUT2_2_NAME || typ==LUT2_2_NAME_KURZ){
                FREE(data);
                i=read_lut_block_int(lut,0,LUT2_2_NAME_NAME_KURZ,&len,&data);
-#line 4320 "konto_check.lxx"
                if(i==OK){  /* was gefunden; Typ �ndern, dann weiter wie bei OK */
                   typ=LUT2_2_NAME_NAME_KURZ;
                   typ1=LUT2_NAME_NAME_KURZ;
@@ -4363,7 +4378,6 @@ DLL_EXPORT int lut_blocks_id(int mode,int *lut_filename,int *lut_blocks_ok,int *
  * ###########################################################################
  */
 
-#line 4926 "konto_check.lxx"
 DLL_EXPORT const char *current_lutfile_name(int *set,int *level,int *retval)
 {
    if(init_status<7 || !current_lutfile){
@@ -5118,7 +5132,6 @@ static int iban_init(void)
  * ###########################################################################
  */
 
-#line 5681 "konto_check.lxx"
 static int iban_regel_cvt(char *blz,char *kto,const char **bicp,int regel_version,RETVAL *retvals)
 {
    char tmp_buffer[16];
@@ -5961,9 +5974,9 @@ static int iban_regel_cvt(char *blz,char *kto,const char **bicp,int regel_versio
          return OK_BLZ_REPLACED;
 
 
-         /* Iban-Regel 0020.01 +���3 */
+         /* Iban-Regel 0020.02 +���3 */
          /* Deutsche Bank AG
-          * Neuimplementierung nach der Regel-Version 1.5 der Deutschen Bank vom 30.8.2013
+          * Neuimplementierung nach der Regel-Version 1.51 der Deutschen Bank vom 19.9.2013
           */
       case 20:
 
@@ -8058,21 +8071,29 @@ static int iban_regel_cvt(char *blz,char *kto,const char **bicp,int regel_versio
          *bicp="VONEDE33XXX";
          return OK_BLZ_REPLACED;
 
-         /* Iban-Regel 0049.00 +���3 */
-           /* WGZ Bank */
+         /* Iban-Regel 0049.01 +���3 */
+           /* DZ Bank */
       case 49:
 
-            /* Sonderkonten */
-         if(k1==0)switch(k2){
-            case 36:   strcpy(kto,"0002310113"); RETURN_OK_KTO_REPLACED;
-            case 936:  strcpy(kto,"0002310113"); RETURN_OK_KTO_REPLACED;
-            case 999:  strcpy(kto,"0001310113"); RETURN_OK_KTO_REPLACED;
-            case 6060: strcpy(kto,"0000160602"); RETURN_OK_KTO_REPLACED;
-            default: break;
-         }
+            /* Bei der Ermittlung von IBAN und BIC aus Kontonummer und BLZ sind in Abwei-
+             * chung zu der Standard IBAN-Regel folgende Besonderheiten zu beachten:
+             *
+             * 1. F�r die Bankleitzahlen 300 600 10, 400 600 00 und 570 600 00 der DZ BANK ist die
+             * IBAN-Ermittlung f�r Kontonummern mit der 1.-2. Stelle ungleich '92-99' (standardm��ig
+             * links mit Nullen auf 10 Stellen aufgef�llt) mit der Standard-IBAN-Regel m�glich.
+             *
+             * 2. Kontonummern mit einer '92-99' an der 1.-2. Stelle haben keine Pr�fziffer, die daher
+             * nicht gepr�ft werden darf. Auch f�r diese Konten kann die IBAN nach der Standard-
+             * IBAN-Regel ermittelt werden.
+             *
+             * [etwas vereinfacht ausgedr�ckt, k�nnen Konten einfach nach der Standard-Regel konvertiert werden :-) ]
+             */
 
-            /* F�r Kontonummern mit einer '9' an der 5. Stelle muss die Kontonummer, auf deren Ba-
-             * sis die IBAN ermittelt wird, abweichend berechnet werden. Die ersten 4 Stellen (inkl.
+            /* (der folgende Teil wurde nicht gel�scht, da er auch aus realen Kontodaten stammt;
+             * die ehemaligen Sonderkonten tauchen nicht mehr auf und wurden entfernt)
+             *
+             * F�r Kontonummern mit einer '9' an der 5. Stelle muss die Kontonummer, auf deren Basis
+             * die IBAN ermittelt wird, abweichend berechnet werden. Die ersten 4 Stellen (inkl.
              * aufgef�llter Nullen) m�ssen ans Ende gestellt werden, so dass die Kontonummer dann
              * immer mit der '9' anf�ngt.
              *
@@ -8279,7 +8300,6 @@ static int iban_regel_cvt(char *blz,char *kto,const char **bicp,int regel_versio
    }
 }
 
-#line 8842 "konto_check.lxx"
 /* Funktion lut_multiple() +���2 */
 /* ###########################################################################
  * # lut_multiple(): Universalfunktion, um zu einer gegebenen Bankleitzahl   #
@@ -8547,7 +8567,6 @@ DLL_EXPORT int lut_cleanup(void)
    FREE(sort_pz_f);
    FREE(sort_plz);
    FREE(sort_iban_regel);
-#line 9104 "konto_check.lxx"
    if(name_raw && name_data!=name_raw)
       FREE(name_raw);
    else
@@ -8624,7 +8643,6 @@ DLL_EXPORT int lut_cleanup(void)
       lut_cleanup(); /* neuer Versuch, aufzur�umen */
       RETURN(INIT_FATAL_ERROR);
    }
-#line 9186 "konto_check.lxx"
    init_status&=1;
    init_in_progress=0;
    return OK;
@@ -8797,8 +8815,8 @@ static void init_atoi_table(void)
    int i,ziffer;
    unsigned long l;
 
-      /* �nderungen zum 03.12.2018 aktivieren */
-   if(time(NULL)>1543791600 ||0)pz_aenderungen_aktivieren_2018_12=1;
+      /* �nderungen zum 09.12.2019 aktivieren */
+   if(time(NULL)>1575846000 ||0)pz_aenderungen_aktivieren_2019_12=1;
 
    /* ung�ltige Ziffern; Blanks und Tabs werden ebenfalls als ung�ltig
     * angesehen(!), da die Stellenzuordnung sonst nicht mehr stimmt. Ausnahme:
@@ -9091,7 +9109,6 @@ static void init_atoi_table(void)
    lut_block_name2[130]="2. SCL Banknamen";
    lut_block_name2[131]="2. SCL Flags";
    lut_blocklen_max=521;
-#line 9426 "konto_check.lxx"
    init_status|=1;
 }
 
@@ -9151,7 +9168,6 @@ static int kto_check_int(char *x_blz,int pz_methode,char *kto)
 
    switch(pz_methode){
 
-#line 9489 "konto_check.lxx"
 /* Berechnungsmethoden 00 bis 09 +���3
    Berechnung nach der Methode 00 +���4 */
 /*
@@ -10988,6 +11004,10 @@ static int kto_check_int(char *x_blz,int pz_methode,char *kto)
  * # Stellennr.:    1 2 3 4 5 6 7 8 9 10                                #
  * # Kontonr.:      x x x x x x x x x P                                 #
  * # Gewichtung:    0 0 0 0 A 5 8 4 2    (A = 10)                       #
+ * #                                                                    #
+ * # Es gibt noch einen Sonderfall, der in der IBAN-Regel 49 angegeben  #
+ * # ist: Konten mit 9 an der ersten oder 5. Stelle enthalten keine     #
+ * # Pr�fziffer. sondern sind ohne Pr�fung als richtig anzusehen.       #
  * ######################################################################
  */
       case 44:
@@ -11486,7 +11506,6 @@ static int kto_check_int(char *x_blz,int pz_methode,char *kto)
  * ######################################################################
  */
 
-#line 11500 "konto_check.lxx"
       case 51:
          if(*(kto+2)=='9'){   /* Ausnahme */
 
@@ -11748,8 +11767,6 @@ static int kto_check_int(char *x_blz,int pz_methode,char *kto)
          else
             return FALSE;
 
-#line 11714 "konto_check.lxx"
-#line 11716 "konto_check.lxx"
 /*  Berechnung nach der Methode 53 +���4 */
 /*
  * ######################################################################
@@ -12048,7 +12065,6 @@ static int kto_check_int(char *x_blz,int pz_methode,char *kto)
  * # bewerten.                                                          #
  * ######################################################################
  */
-#line 11985 "konto_check.lxx"
       case 57:
 #if DEBUG>0
          if(retvals){
@@ -12694,7 +12710,6 @@ static int kto_check_int(char *x_blz,int pz_methode,char *kto)
  * # Pr�fzifferberechnung)                                              #
  * ######################################################################
  */
-#line 12565 "konto_check.lxx"
       case 66:
 #if DEBUG>0
       case 2066:
@@ -20103,7 +20118,6 @@ static int kto_check_int(char *x_blz,int pz_methode,char *kto)
          return NOT_IMPLEMENTED;
    }
 }
-#line 18777 "konto_check.lxx"
 
 /*
  * ######################################################################
@@ -20201,7 +20215,6 @@ DLL_EXPORT int kto_check_blz(char *blz,char *kto)
 #if DEBUG>0    /* es werden einige Funktionen benutzt, die nur in der Debug-Variante enthalten sind */
 DLL_EXPORT int kto_check_regel_dbg(char *blz,char *kto,char *blz2,char *kto2,const char **bic,int *regel,RETVAL *retvals)
 {
-#line 18875 "konto_check.lxx"
    char *blz_o,buffer[32],kto_o[16],*blz_n,*kto_n,*ptr,*dptr;
    const char *bicp;
    int ret,ret_regel,r,i;
@@ -20250,7 +20263,6 @@ DLL_EXPORT int kto_check_regel_dbg(char *blz,char *kto,char *blz2,char *kto2,con
    }
    else  /* BLZ und Kto gleich */
       return ret;
-#line 18924 "konto_check.lxx"
 }
 
 #else   /* !DEBUG */
@@ -20401,7 +20413,6 @@ DLL_EXPORT int kto_check_blz_dbg(char *blz,char *kto,RETVAL *retvals)
  * # Copyright (C) 2007 Michael Plugge <m.plugge@hs-mannheim.de>             #
  * ###########################################################################
  */
-#line 19075 "konto_check.lxx"
 DLL_EXPORT int kto_check_pz_dbg(char *pz,char *kto,char *blz,RETVAL *retvals)
 {
    int untermethode,pz_methode;
@@ -20637,7 +20648,6 @@ DLL_EXPORT int get_lut_info2_b(char *lutname,int *version,char **prolog_p,char *
    }
    else
       **user_info_p=0;
-#line 19296 "konto_check.lxx"
    FREE(prolog);
    return OK;
 }
@@ -20772,20 +20782,20 @@ DLL_EXPORT const char *get_kto_check_version_x(int mode)
       case 3:
          return __DATE__ ", " __TIME__;    /* Compilierdatum und -zeit */
       case 4:                              /* Datum der Pr�fziffermethode */
-         if(pz_aenderungen_aktivieren_2018_12)
-            return "03.12.2018";
+         if(pz_aenderungen_aktivieren_2019_12)
+            return "09.12.2019";
          else
-            return "03.12.2018 (Aenderungen vom 03.12.2018 enthalten aber noch nicht aktiviert)";
+            return "09.09.2019 (Aenderungen vom 09.12.2019 enthalten aber noch nicht aktiviert)";
       case 5:
-        return "04.03.2019";
+        return "09.09.2019";
       case 6:
-        return "4. M�rz 2019";            /* Klartext-Datum der Bibliotheksversion */
+        return "16. Dezember 2020";            /* Klartext-Datum der Bibliotheksversion */
       case 7:
         return "final";              /* Versions-Typ der Bibliotheksversion (development, beta, final) */
       case 8:
         return "6";             /* Hauptversionszahl */
       case 9:
-        return "08";             /* Unterversionszahl */
+        return "13";             /* Unterversionszahl */
    }
 }
 
@@ -20931,7 +20941,6 @@ DLL_EXPORT int dump_lutfile(char *outputname,UINT4 *required)
       default:
          break;
    }
-#line 19529 "konto_check.lxx"
    fputc('\n',out);
    while(--i)fputc('=',out);
    fputc('\n',out);
@@ -21256,7 +21265,6 @@ DLL_EXPORT const char *iban2bic_id(char *iban,int *retval,int *blz,int *kto)
    return iban2bic(iban,retval,b,k);
 }
 
-#line 19854 "konto_check.lxx"
 /* Funktion iban_gen(), iban_bic_gen() und iban_bic_gen1 +���1 */
 /* ###########################################################################
  * # Die Funktion iban_gen generiert aus Bankleitzahl und Kontonummer eine   #
@@ -22089,7 +22097,6 @@ DLL_EXPORT int ipi_check(char *zweck)
  * # Copyright (C) 2009,2011 Michael Plugge <m.plugge@hs-mannheim.de>        #
  * ###########################################################################
  */
-#line 20687 "konto_check.lxx"
 
 /* Funktion volltext_zeichen() +���2 */
 /* Diese Funktion gibt f�r Zeichen die bei der Volltextsuche g�ltig sind
@@ -22936,7 +22943,6 @@ static int qcmp_bic_h(const void *ap,const void *bp)
       return a-b;
 }
 
-#line 21534 "konto_check.lxx"
 
 /* Funktion qcmp_bic() +���3 */
 static int qcmp_bic(const void *ap,const void *bp)
@@ -23041,7 +23047,6 @@ static int qcmp_iban_regel(const void *ap,const void *bp)
    else 
       return a-b;
 }
-#line 21549 "konto_check.lxx"
 
 /* Funktion init_blzf() +���2
  * Diese Funktion initialisiert das Array mit den Bankleitzahlen f�r alle
@@ -23109,7 +23114,6 @@ DLL_EXPORT int konto_check_idx2blz(int idx,int *zweigstelle,int *retval)
 }
 
 /* Funktion suche_int1() +���2 */
-#line 21617 "konto_check.lxx"
 static int suche_int1(int a1,int a2,int *anzahl,int **start_idx,int **zweigstellen_base,int **blz_base,
       int **base_name,int **base_sort,int(*cmp)(const void *, const void *),int cnt,int such_idx)
 {
@@ -23160,7 +23164,6 @@ static int suche_int1(int a1,int a2,int *anzahl,int **start_idx,int **zweigstell
 }
 
 /* Funktion suche_int2() +���2 */
-#line 21668 "konto_check.lxx"
 static int suche_int2(int a1,int a2,int *anzahl,int **start_idx,int **zweigstellen_base,int **blz_base,
       int **base_name,int **base_sort,int(*cmp)(const void *, const void *),int such_idx,int pz_suche)
 {
@@ -23775,7 +23778,6 @@ static int cmp_suche_sort(const void *ap,const void *bp)
 DLL_EXPORT int lut_suche_sort1(int anzahl,int *blz_base,int *zweigstellen_base,int *idx,int *anzahl_o,int **idx_op,int **cnt_op,int uniq)
 {
    int i,j,last_idx,*idx_a,*cnt_o;
-#line 22284 "konto_check.lxx"
 
    if(idx_op)*idx_op=NULL;
    if(cnt_op)*cnt_op=NULL;
@@ -23857,7 +23859,6 @@ DLL_EXPORT int lut_suche_sort2(int anzahl,int *blz,int *zweigstellen,int *anzahl
    return OK;
 }
 
-#line 22367 "konto_check.lxx"
 /* Funktion lut_suche_volltext() +���2 */
 DLL_EXPORT int lut_suche_volltext(char *such_wort,int *anzahl,int *base_name_idx,char ***base_name,
       int *zweigstellen_anzahl,int **start_idx,int **zweigstellen_base,int **blz_base)
@@ -23987,7 +23988,6 @@ DLL_EXPORT int lut_suche_blz(int such1,int such2,int *anzahl,int **start_idx,int
    return suche_int1(such1,such2,anzahl,start_idx,zweigstellen_base,blz_base,&blz_f,&sort_blz,qcmp_blz,cnt,0);
 }
 
-#line 22517 "konto_check.lxx"
 /* Funktion lut_suche_bic() +���2 */
 DLL_EXPORT int lut_suche_bic(char *such_name,int *anzahl,int **start_idx,int **zweigstellen_base,
       char ***base_name,int **blz_base)
@@ -24078,7 +24078,6 @@ DLL_EXPORT int lut_suche_regel(int such1,int such2,int *anzahl,int **start_idx,i
    return suche_int2(such1*100,such2*100+99,anzahl,start_idx,zweigstellen_base,blz_base,&iban_regel,&sort_iban_regel,qcmp_iban_regel,LUT2_IBAN_REGEL_SORT,0);
 }
 
-#line 22550 "konto_check.lxx"
 
 /* Funktion lut_suche_bic_h() +���2 */
 DLL_EXPORT int lut_suche_bic_h(char *such_name,int *anzahl,int **start_idx,int **zweigstellen_base,
@@ -24464,7 +24463,6 @@ DLL_EXPORT const char *iban_ort(char *iban,int filiale,int*retval)
 {
    return iban_fkt_s(iban,filiale,retval,lut_ort);
 }
-#line 22639 "konto_check.lxx"
 
 static int bic_fkt_c(char *bic1,int mode,int filiale,int *retval,char *base,int error)
 {
@@ -25753,7 +25751,6 @@ DLL_EXPORT const char *pz2str(int pz,int *ret)
       default:   return "???";
    }
 }
-#line 23594 "konto_check.lxx"
 
 /* Funktion lut_keine_iban_berechnung() +���1 */
 /*
@@ -25868,7 +25865,7 @@ DLL_EXPORT int lut_keine_iban_berechnung(char *iban_blacklist,char *lutfile,int
 /* Funktion pz_aenderungen_enable() +���1 */
 /* ###########################################################################
  * # Die Funktion pz_aenderungen_enable() dient dazu, den Status des Flags   #
- * # pz_aenderungen_aktivieren_2018_12 abzufragen bzw. zu setzen. Falls die Variable #
+ * # pz_aenderungen_aktivieren_2019_12 abzufragen bzw. zu setzen. Falls die Variable #
  * # set 1 ist, werden die �nderungen aktiviert, falls sie 0 ist, werden     #
  * # die �nderungen deaktiviert. Bei allen anderen Werten wird das aktuelle  #
  * # Flag nicht ver�ndert, sondern nur der Status zur�ckgegeben.             #
@@ -25884,8 +25881,8 @@ DLL_EXPORT int lut_keine_iban_berechnung(char *iban_blacklist,char *lutfile,int
 
 DLL_EXPORT int pz_aenderungen_enable(int set)
 {
-   if(set==0 || set==1)pz_aenderungen_aktivieren_2018_12=set;
-   return pz_aenderungen_aktivieren_2018_12;
+   if(set==0 || set==1)pz_aenderungen_aktivieren_2019_12=set;
+   return pz_aenderungen_aktivieren_2019_12;
 }
 
 #if DEBUG>0
@@ -25917,7 +25914,6 @@ DLL_EXPORT char *kto_check_test_vars(char *txt,UINT4 i)
 #endif
 
 
-#line 23758 "konto_check.lxx"
 /* Funktionen *_id() +���1 */
 /* ###########################################################################
  * # Die folgenden Funktionen sind die id-Varianten von Funktionen, die      #
@@ -26241,38 +26237,62 @@ static int scl_idx(const char *bic,int *retval)
    strcpy(such_bic,bic);
    for(i=0;i<11 && such_bic[i];i++)such_bic[i]=toupper(such_bic[i]);
 
-      /* zun�chst den BIC suchen wie angegeben */
-   idx=bic_binsearch(0,scl_cnt,such_bic);
+   /*
+    * Auszug aus dem SCL Directory Notice (Seite 13):
+    *
+    * The SCL Directory contains 11-character and 8-character BICs. The following convention
+    * applies.
+    *
+    * - An 8-character BIC is a wild card and represents the reachability of any 11-character
+    *   BIC with the same first eight characters, as well as the reachability of the 8-character
+    *   BIC itself.
+    *
+    * - An 11-character BIC with the branch code extension "XXX" represents itself as well
+    *   as the reachability of the corresponding 8-character BIC. But it is not a wild card.
+    *
+    * - All other 11-character BICs represent the reachability of the respective individual
+    *   11-character BIC only.
+    *
+    * https://www.bundesbank.de/resource/blob/626738/8f82d10dd08993a1941e8441cf5a9fd4/mL/scl-directory-notice-ab-nov2018-data.pdf
+    *
+    * Punkt 2 hat eine h�here Priorit�t als Punkt 1, denn eine 8-stellige BIC ist mit selbiger
+    * um 'XXX' erweiterten BIC identisch.
+    *
+    */
+
+   if(such_bic[8]==0){  /* Such-BIC 8-stellig angegeben; BIC zuerst mit XXX extension suchen */
+      such_bic[8]=such_bic[9]=such_bic[10]='X';
+      such_bic[11]=0;
+      idx=bic_binsearch(0,scl_cnt-1,such_bic);
+      if(idx>=0){
+         if(retval)*retval=OK_SCL_EXTENSION_BIC_USED;
+         return idx;
+      }
+      else
+         such_bic[8]=0; /* wieder zur�cksetzen */
+   }
+
+      /* nun den BIC suchen wie angegeben */
+   idx=bic_binsearch(0,scl_cnt-1,such_bic);
    if(idx>=0){
       if(retval)*retval=OK;
       return idx;
    }
+   else if(such_bic[8]==0){
+      if(retval)*retval=SCL_BIC_NOT_FOUND;
+      return -1;
+   }
    else{
-      if(such_bic[8]==0){  /* Such-BIC 8-stellig angegeben; BIC mit XXX extension testen */
-         such_bic[8]=such_bic[9]=such_bic[10]='X';
-         such_bic[11]=0;
-         idx=bic_binsearch(0,scl_cnt,such_bic);
-         if(idx>=0){
-            if(retval)*retval=OK_SCL_EXTENSION_BIC_USED;
-            return idx;
-         }
-         else{
-            if(retval)*retval=SCL_BIC_NOT_FOUND;
-            return -1;
-         }
+         /* Wildcard-BIC suchen, nur noch bei 11-stelligen BICs */
+      such_bic[8]=0;
+      idx=bic_binsearch(0,scl_cnt-1,such_bic);
+      if(idx>=0){
+         if(retval)*retval=OK_SCL_WILDCARD_BIC_USED;
+         return idx;
       }
       else{
-            /* Wildcard-BIC suchen */
-         such_bic[8]=0;
-         idx=bic_binsearch(0,scl_cnt,such_bic);
-         if(idx>=0){
-            if(retval)*retval=OK_SCL_WILDCARD_BIC_USED;
-            return idx;
-         }
-         else{
-            if(retval)*retval=SCL_BIC_NOT_FOUND;
-            return -1;
-         }
+         if(retval)*retval=SCL_BIC_NOT_FOUND;
+         return -1;
       }
    }
 }
@@ -26381,7 +26401,7 @@ DLL_EXPORT int lut_write_scl_blocks(char *inputfile,char *lutfile)
    if(!(lut=fopen(lutfile,"rb+")))RETURN(FILE_WRITE_ERROR);
 
       /* zun�chst mal testen ob es auch eine LUT2 Datei ist */
-   if(!(ptr=fgets(buffer,SLOT_BUFFER,lut)))RETURN(FILE_READ_ERROR);
+   if(!(ptr=fgets(buffer,512,lut)))RETURN(FILE_READ_ERROR);
    while(*ptr && *ptr!='\n')ptr++;
    *--ptr=0;
    if(!strcmp(buffer,"BLZ Lookup Table/Format 1."))RETURN(LUT1_FILE_USED); /* alte LUT-Datei */
@@ -26426,7 +26446,6 @@ DLL_EXPORT int lut_write_scl_blocks(char *inputfile,char *lutfile)
    RETURN(OK);
 }
 
-#line 24267 "konto_check.lxx"
 /* Funktion lut_scl_init() +���3 */
 /* ###########################################################################
  * # Die Funktion lut_scl_init() liest die SCL-Blocks aus einer LUT-Datei    #
@@ -26960,6 +26979,7 @@ XI lut_info(char *lut_name,char **info1,char **info2,int *valid1,int *valid2)EXC
 XI lut_info_b(char *lut_name,char **info1,char **info2,int *valid1,int *valid2)EXCLUDED
 XI lut_info_id(char *lut_name,int *info1,int *info2,int *valid1,int *valid2)EXCLUDED
 XI lut_valid(void)EXCLUDED
+XI lut_valid_date(char *lut_name,int *v11,int *v12,int *v21,int *v22)EXCLUDED
 XI lut_multiple(char *b,int *cnt,int **p_blz,char  ***p_name,char ***p_name_kurz,int **p_plz,char ***p_ort,
       int **p_pan,char ***p_bic,int *p_pz,int **p_nr,char **p_aenderung,char **p_loeschung,int **p_nachfolge_blz,
       int *id,int *cnt_all,int **start_idx)EXCLUDED