konto_check 5.10.0 → 6.00.0

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA1:
-  metadata.gz: 053b8ec3c8f061abf51dda3b7a61869f45240975
-  data.tar.gz: c07b4ce5d8d9da73d093069c657fcebdd7f8b799
+  metadata.gz: c83fbdc6f470077ee385b346063ab10f155c75e8
+  data.tar.gz: 0144f5cd1d75acfcc684fc50c9c116e42dc45d5f
 SHA512:
-  metadata.gz: 6b50d6fa5e45d49234decd9cbe6cd6d3773d7d7f9991450519ab5e7a5c9f4df0e0effdf90882ba67527d9233d14a60d00d94a6f33f792a20c62dfc57381bbcc8
-  data.tar.gz: 494a525b1b2416f5b978d77c555371c5578dc5ae7716869b2ce559db65bdd8e77f79b97e040cab32a2a433edaa5f3d0bd64be4379d9c241114cf0deac1167e68
+  metadata.gz: 6db21c82515a82580558d6f445e99fd50f018d21d3d99a459f7e39a8aada42eaaf15169c7d6c6573a049bc9da9a34525e69647b5663e5d138e064ba73435f285
+  data.tar.gz: 56fa5f762eede0fcb4e8b52a4268bca4c8be618b3feaec3057c87a53b84fe4768165d733299db1f1588744402fb40582b1411304c417d7f9729956ae27039800

data/ext/konto_check_raw/konto_check.c

@@ -49,11 +49,11 @@
 
 /* Definitionen und Includes  */
 #ifndef VERSION
-#define VERSION "5.10 (final)"
-#define VERSION_MAJOR 5
-#define VERSION_MINOR 10
+#define VERSION "6.00 (final)"
+#define VERSION_MAJOR 6
+#define VERSION_MINOR 00
 #endif
-#define VERSION_DATE "2017-03-10"
+#define VERSION_DATE "2017-06-13"
 
 #ifndef INCLUDE_KONTO_CHECK_DE
 #define INCLUDE_KONTO_CHECK_DE 1
@@ -104,8 +104,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 M�rz 2017 zu aktivieren */
-static int pz_aenderungen_aktivieren_2017_03;
+   /* Flag, um die �nderungen zum Juni 2017 zu aktivieren */
+static int pz_aenderungen_aktivieren_2017_06;
 
    /* falls die Variable verbose_debug gesetzt wird, werden bei einigen
     * Funktionen mittels perror() zus�tzliche Debuginfos ausgegeben. Die
@@ -5084,6 +5084,7 @@ static int iban_init(void)
 }
 
 /* Funktion iban_regel_cvt() +���2 */
+/* Prolog, Initialisierung +���3 */
 /* ###########################################################################
  * # iban_regel_cvt(): IBAN-Regel auf BLZ/Kto-Kombination anwenden.          #
  * #                                                                         #
@@ -5100,7 +5101,7 @@ static int iban_init(void)
  * ###########################################################################
  */
 
-#line 5663 "konto_check.lxx"
+#line 5664 "konto_check.lxx"
 static int iban_regel_cvt(char *blz,char *kto,const char **bicp,int regel_version,RETVAL *retvals)
 {
    char tmp_buffer[16];
@@ -5136,17 +5137,20 @@ static int iban_regel_cvt(char *blz,char *kto,const char **bicp,int regel_versio
        */
    switch(regel){
 
-      /* Standardregel zur IBAN-Berechnung: Default, falls nichts anderes angegeben */
+         /* Iban-Regel 0000.00 +���3 */
+         /* Standardregel zur IBAN-Berechnung: Default, falls nichts anderes angegeben */
       case 0:
          if(ret==OK_UNTERKONTO_ATTACHED)return ret;
          RETURN_OK;
 
 
+         /* Iban-Regel 0001.00 +���3 */
          /* Standardregel: keine Berechnung */
       case 1: 
          return NO_IBAN_CALCULATION;
 
 
+         /* Iban-Regel 0002.00 +���3 */
          /* Augsburger Aktienbank */
       case 2:
 
@@ -5155,6 +5159,7 @@ static int iban_regel_cvt(char *blz,char *kto,const char **bicp,int regel_versio
          RETURN_OK;
 
 
+         /* Iban-Regel 0003.00 +���3 */
          /* Aareal Bank AG */
       case 3:
 
@@ -5163,6 +5168,7 @@ static int iban_regel_cvt(char *blz,char *kto,const char **bicp,int regel_versio
          RETURN_OK;
 
 
+         /* Iban-Regel 0004.00 +���3 */
          /* Landesbank Berlin / Berliner Sparkasse */
       case 4:
 
@@ -5183,6 +5189,7 @@ static int iban_regel_cvt(char *blz,char *kto,const char **bicp,int regel_versio
          RETURN_OK;
 
 
+         /* Iban-Regel 0005.03 +���3 */
          /* Commerzbank AG */
       case 5:  /* (ziemlig lang) */
 
@@ -5398,7 +5405,7 @@ static int iban_regel_cvt(char *blz,char *kto,const char **bicp,int regel_versio
 
             case 30040000: 
                if(!k1)switch(k2){
-                  case  36: strcpy(kto,"0261103600");  RETURN_OK_KTO_REPLACED;
+                  case  36: strcpy(kto,"0261103600"); RETURN_OK_KTO_REPLACED;
                   case 222: strcpy(kto,"0348010002"); RETURN_OK_KTO_REPLACED;
                   case 999: strcpy(kto,"0123799900"); RETURN_OK_KTO_REPLACED;
                }
@@ -5664,6 +5671,7 @@ static int iban_regel_cvt(char *blz,char *kto,const char **bicp,int regel_versio
          RETURN_OK;   /* Zum Schlu� noch ein Lumpensammler f�r alles, das �brig geblieben ist */
 
 
+         /* Iban-Regel 0006.00 +���3 */
          /* Stadtsparkasse M�nchen */
       case 6:
 
@@ -5678,6 +5686,7 @@ static int iban_regel_cvt(char *blz,char *kto,const char **bicp,int regel_versio
          RETURN_OK;
 
 
+         /* Iban-Regel 0007.00 +���3 */
          /* Sparkasse K�ln-Bonn */
       case 7:
 
@@ -5729,6 +5738,7 @@ static int iban_regel_cvt(char *blz,char *kto,const char **bicp,int regel_versio
          RETURN_OK;
 
 
+         /* Iban-Regel 0008.00 +���3 */
          /* BHF-Bank AG */
       case 8:
          if(b==50020200)return OK;
@@ -5737,6 +5747,7 @@ static int iban_regel_cvt(char *blz,char *kto,const char **bicp,int regel_versio
          return OK_BLZ_REPLACED;
 
 
+         /* Iban-Regel 0009.00 +���3 */
          /* Sparkasse Schopfheim-Zell */
       case 9:
          if(b==68351557)return OK;
@@ -5757,6 +5768,7 @@ static int iban_regel_cvt(char *blz,char *kto,const char **bicp,int regel_versio
          return OK_BLZ_REPLACED;
 
 
+         /* Iban-Regel 0010.01 +���3 */
          /* Frankfurter Sparkasse */
       case 10:
 
@@ -5790,6 +5802,7 @@ static int iban_regel_cvt(char *blz,char *kto,const char **bicp,int regel_versio
          return ret;
 
 
+         /* Iban-Regel 0011.00 +���3 */
          /* Sparkasse Krefeld */
       case 11:
 
@@ -5807,6 +5820,7 @@ static int iban_regel_cvt(char *blz,char *kto,const char **bicp,int regel_versio
          RETURN_OK;
 
 
+         /* Iban-Regel 0012.01 +���3 */
          /* Landesbank Hessen-Th�ringen */
       case 12:
 
@@ -5817,6 +5831,7 @@ static int iban_regel_cvt(char *blz,char *kto,const char **bicp,int regel_versio
          return OK_BLZ_REPLACED;
 
 
+         /* Iban-Regel 0013.01 +���3 */
          /* Landesbank Hessen-Th�ringen */
       case 13:
 
@@ -5827,6 +5842,7 @@ static int iban_regel_cvt(char *blz,char *kto,const char **bicp,int regel_versio
          return OK_BLZ_REPLACED;
 
 
+         /* Iban-Regel 0014.00 +���3 */
          /* Deutsche Apotheker- u. �rztebank */
       case 14:
 
@@ -5840,6 +5856,7 @@ static int iban_regel_cvt(char *blz,char *kto,const char **bicp,int regel_versio
          return OK_BLZ_REPLACED;
 
 
+         /* Iban-Regel 0015.01 +���3 */
          /* Pax-Bank eG */
       case 15:
 
@@ -5865,6 +5882,7 @@ static int iban_regel_cvt(char *blz,char *kto,const char **bicp,int regel_versio
          RETURN_OK;
 
 
+         /* Iban-Regel 0016.00 +���3 */
          /* K�lner Bank eG */
       case 16:
 
@@ -5876,6 +5894,7 @@ static int iban_regel_cvt(char *blz,char *kto,const char **bicp,int regel_versio
          RETURN_OK;
 
 
+         /* Iban-Regel 0017.00 +���3 */
          /* Volksbank Bonn Rhein-Sieg */
       case 17:
 
@@ -5896,6 +5915,7 @@ static int iban_regel_cvt(char *blz,char *kto,const char **bicp,int regel_versio
          RETURN_OK;
 
 
+         /* Iban-Regel 0018.00 +���3 */
          /* Aachener Bank eG */
       case 18:
 
@@ -5914,6 +5934,7 @@ static int iban_regel_cvt(char *blz,char *kto,const char **bicp,int regel_versio
          RETURN_OK;
 
 
+         /* Iban-Regel 0019.00 +���3 */
          /* Bethmann Bank */
       case 19:
 
@@ -5923,8 +5944,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 */
          /* Deutsche Bank AG
-          * Neuimplementierung nach der Regel-Version 1.6 (oder 1.5?) der Deutschen Bank vom 30.8.2013
+          * Neuimplementierung nach der Regel-Version 1.5 der Deutschen Bank vom 30.8.2013
           */
       case 20:
 
@@ -6027,6 +6049,7 @@ static int iban_regel_cvt(char *blz,char *kto,const char **bicp,int regel_versio
             /* alle restlichen Konten (8- bis 9-stellig) nur mit Methode 63a pr�fen */
          return kto_check_pz("63a",kto,NULL);
 
+         /* Iban-Regel 0021.01 +���3 */
          /* National-Bank AG */
       case 21:
             /* 1-5 stellige oder 8 stellige Konten sind ung�ltig */
@@ -6037,6 +6060,7 @@ static int iban_regel_cvt(char *blz,char *kto,const char **bicp,int regel_versio
          return OK_BLZ_REPLACED;
 
 
+         /* Iban-Regel 0022.00 +���3 */
          /* GLS Gemeinschaftsbank eG */
       case 22:
 
@@ -6048,6 +6072,7 @@ static int iban_regel_cvt(char *blz,char *kto,const char **bicp,int regel_versio
          RETURN_OK;
 
 
+         /* Iban-Regel 0023.00 +���3 */
          /* Volksbank Osnabr�ck eG */
       case 23:
 
@@ -6059,6 +6084,7 @@ static int iban_regel_cvt(char *blz,char *kto,const char **bicp,int regel_versio
          RETURN_OK;
 
 
+         /* Iban-Regel 0024.00 +���3 */
          /* Bank im Bistum Essen eG */
       case 24:
 
@@ -6073,6 +6099,7 @@ static int iban_regel_cvt(char *blz,char *kto,const char **bicp,int regel_versio
          RETURN_OK;
 
 
+         /* Iban-Regel 0025.00 +���3 */
          /* Landesbank Baden-W�rttemberg /Baden-W�rttembergische Bank */
       case 25:
 
@@ -6082,6 +6109,7 @@ static int iban_regel_cvt(char *blz,char *kto,const char **bicp,int regel_versio
          return OK_BLZ_REPLACED;
 
 
+         /* Iban-Regel 0026.00 +���3 */
          /* Bank f�r Kirche und Diakonie eG */
       case 26:
 
@@ -6095,6 +6123,7 @@ static int iban_regel_cvt(char *blz,char *kto,const char **bicp,int regel_versio
          RETURN_OK;
 
 
+         /* Iban-Regel 0027.00 +���3 */
          /* Volksbank Krefeld eG */
       case 27:
 
@@ -6103,6 +6132,7 @@ static int iban_regel_cvt(char *blz,char *kto,const char **bicp,int regel_versio
          RETURN_OK;
 
 
+         /* Iban-Regel 0028.00 +���3 */
          /* Sparkasse Hannover */
       case 28:
          if(b==25050180)return OK;
@@ -6111,6 +6141,7 @@ static int iban_regel_cvt(char *blz,char *kto,const char **bicp,int regel_versio
          return OK_BLZ_REPLACED;
 
 
+         /* Iban-Regel 0029.00 +���3 */
          /* Soci�t� G�n�rale */
       case 29:
 
@@ -6133,6 +6164,7 @@ static int iban_regel_cvt(char *blz,char *kto,const char **bicp,int regel_versio
          RETURN_OK;
 
 
+         /* Iban-Regel 0030.00 +���3 */
          /* Pommersche Volksbank eG */
       case 30:
 
@@ -6308,15 +6340,16 @@ static int iban_regel_cvt(char *blz,char *kto,const char **bicp,int regel_versio
          RETURN_OK;
 
 
+         /* Iban-Regeln 0031.01 ... 0035.01 +���3 */
          /* UniCredit Bank AG:
           * Diese Bank definiert f�nf verschiedene Regeln, die teilweise
           * aufeinander aufbauen. Sie werden daher gemeinsam behandelt.
           */
-      case 31:
-      case 32:
-      case 33:
-      case 34:
-      case 35:
+      case 31: /* Regel 0031.01 */
+      case 32: /* Regel 0032.00 */
+      case 33: /* Regel 0033.01 */
+      case 34: /* Regel 0034.00 */
+      case 35: /* Regel 0035.01 */
 
          /* Berechnungsregel 31: Ehemalige HYPO-Bank
           * Wird eine Bankleitzahl mit L�schkennzeichen - erkennbar an
@@ -7959,6 +7992,7 @@ static int iban_regel_cvt(char *blz,char *kto,const char **bicp,int regel_versio
          return ret;
 
 
+         /* Iban-Regel 0036.00 +���3 */
          /* HSH Nordbank AG */
       case 36:
 
@@ -8002,6 +8036,7 @@ static int iban_regel_cvt(char *blz,char *kto,const char **bicp,int regel_versio
             return OK_BLZ_REPLACED;
 
 
+         /* Iban-Regel 0037.00 +���3 */
          /* The Bank of Tokyo-Mitsubishi UFJ, Ltd. */
       case 37:
          if(b==30010700)return OK;
@@ -8010,6 +8045,7 @@ static int iban_regel_cvt(char *blz,char *kto,const char **bicp,int regel_versio
          return OK_BLZ_REPLACED;
 
 
+         /* Iban-Regel 0038.00 +���3 */
          /* Ostfriesische Volksbank eG */
       case 38:
 
@@ -8027,6 +8063,7 @@ static int iban_regel_cvt(char *blz,char *kto,const char **bicp,int regel_versio
          }
          RETURN_OK;
 
+         /* Iban-Regel 0039.00 +���3 */
          /* Oldenburgische Landesbank AG */
       case 39:
          if(b==28020050)return OK;
@@ -8035,6 +8072,7 @@ static int iban_regel_cvt(char *blz,char *kto,const char **bicp,int regel_versio
          return OK_BLZ_REPLACED;
 
 
+         /* Iban-Regel 0040.01 +���3 */
          /* Sparkasse Staufen-Breisach */
       case 40:
          if(b==68052328)return OK;
@@ -8043,6 +8081,7 @@ static int iban_regel_cvt(char *blz,char *kto,const char **bicp,int regel_versio
          return OK_BLZ_REPLACED;
 
 
+         /* Iban-Regel 0041.00 +���3 */
          /* Bausparkasse Schw�bisch Hall AG */
       case 41:
 
@@ -8064,6 +8103,7 @@ static int iban_regel_cvt(char *blz,char *kto,const char **bicp,int regel_versio
          RETURN_OK;   /* sollte wohl nicht vorkommen, aber zur Sicherheit... */
 
 
+         /* Iban-Regel 0042.01 +���3 */
          /* Deutsche Bundesbank */
       case 42:
 
@@ -8096,6 +8136,7 @@ static int iban_regel_cvt(char *blz,char *kto,const char **bicp,int regel_versio
          return NO_IBAN_CALCULATION;
 
 
+         /* Iban-Regel 0043.01 +���3 */
          /* Sparkasse Pforzheim Calw
           *
           * Die alte BLZ 60651070 verwendet die Pr�fziffermethode A9 (diese
@@ -8116,6 +8157,7 @@ static int iban_regel_cvt(char *blz,char *kto,const char **bicp,int regel_versio
          RETURN_OK;
 
 
+         /* Iban-Regel 0044.00 +���3 */
          /* Sparkasse Freiburg */
       case 44:
 
@@ -8127,6 +8169,7 @@ static int iban_regel_cvt(char *blz,char *kto,const char **bicp,int regel_versio
          RETURN_OK;
 
 
+         /* Iban-Regel 0045.01 +���3 */
          /* SEB AG */
       case 45:
 
@@ -8265,6 +8308,7 @@ static int iban_regel_cvt(char *blz,char *kto,const char **bicp,int regel_versio
          return OK;
 
 
+         /* Iban-Regel 0046.00 +���3 */
          /* Santander Consumer Bank */
       case 46:
 
@@ -8274,6 +8318,7 @@ static int iban_regel_cvt(char *blz,char *kto,const char **bicp,int regel_versio
          return OK_BLZ_REPLACED;
 
 
+         /* Iban-Regel 0047.00 +���3 */
          /* Santander Consumer Bank */
       case 47:
 
@@ -8289,6 +8334,7 @@ static int iban_regel_cvt(char *blz,char *kto,const char **bicp,int regel_versio
          }
          RETURN_OK;
 
+         /* Iban-Regel 0048.00 +���3 */
            /* VON ESSEN GmbH & Co. KG Bankgesellschaft */
       case 48:
          if(b==36010200)return OK;
@@ -8296,6 +8342,7 @@ 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 */
       case 49:
 
@@ -8323,6 +8370,7 @@ static int iban_regel_cvt(char *blz,char *kto,const char **bicp,int regel_versio
          memcpy(kto+6,tmp_buffer,4);
          return OK_KTO_REPLACED_NO_PZ;
 
+         /* Iban-Regel 0050.00 +���3 */
            /* Sparkasse LeerWittmund */
       case 50:
          if(b==28252760){
@@ -8333,6 +8381,7 @@ static int iban_regel_cvt(char *blz,char *kto,const char **bicp,int regel_versio
          RETURN_OK;
 
 
+         /* Iban-Regel 0051.00 +���3 */
          /* Landesbank Baden-W�rttemberg / Baden-W�rttembergische Bank */
       case 51:
 
@@ -8349,6 +8398,7 @@ static int iban_regel_cvt(char *blz,char *kto,const char **bicp,int regel_versio
          }
          RETURN_OK;
 
+         /* Iban-Regel 0052.00 +���3 */
          /* Landesbank Baden-W�rttemberg / Baden-W�rttembergische Bank */
       case 52:
 
@@ -8374,6 +8424,7 @@ static int iban_regel_cvt(char *blz,char *kto,const char **bicp,int regel_versio
          if(b==69220020 && k1==64 && k2==2145400) {strcpy(blz,"60050101"); strcpy(kto,"7485500252"); *bicp="SOLADEST600"; return OK_BLZ_KTO_REPLACED;}
          return NO_IBAN_CALCULATION;
 
+         /* Iban-Regel 0053.00 +���3 */
          /* Landesbank Baden-W�rttemberg / Baden-W�rttembergische Bank */
       case 53:
 
@@ -8472,8 +8523,11 @@ static int iban_regel_cvt(char *blz,char *kto,const char **bicp,int regel_versio
          }
          RETURN_OK;
 
+         /* Iban-Regel 0054.01 +���3 */
          /* Evangelische Darlehnsgenossenschaft eG */
       case 54:
+            /* ab Juni 2017 entf�llt die Regel 54, bleibt jedoch frei */
+         if(pz_aenderungen_aktivieren_2017_06)return OK;
 
             /* Spendenkonten */
          if(k1==0)switch(k2){
@@ -8638,6 +8692,7 @@ static int iban_regel_cvt(char *blz,char *kto,const char **bicp,int regel_versio
          }
          RETURN_OK;
 
+         /* Iban-Regel 0055.00 +���3 */
          /* BHW Kreditservice GmbH */
       case 55:
          if(b!=25410200){
@@ -8647,6 +8702,7 @@ static int iban_regel_cvt(char *blz,char *kto,const char **bicp,int regel_versio
          }
          RETURN_OK;
 
+         /* Iban-Regel 0056.00 +���3 */
          /* SEB AG */
       case 56:
             /* Spendenkonten: nur mit festgelegten IBANs -> Konto und evl. BLZ/BIC anpassen */
@@ -8769,6 +8825,7 @@ static int iban_regel_cvt(char *blz,char *kto,const char **bicp,int regel_versio
          }
          RETURN_OK;
 
+         /* Iban-Regel 0057.00 +���3 */
          /* Badenia Bausparkasse */
       case 57:
          if(b!=66010200){
@@ -8785,7 +8842,7 @@ static int iban_regel_cvt(char *blz,char *kto,const char **bicp,int regel_versio
    }
 }
 
-#line 9348 "konto_check.lxx"
+#line 9405 "konto_check.lxx"
 /* Funktion lut_multiple() +���2 */
 /* ###########################################################################
  * # lut_multiple(): Universalfunktion, um zu einer gegebenen Bankleitzahl   #
@@ -9053,7 +9110,7 @@ DLL_EXPORT int lut_cleanup(void)
    FREE(sort_pz_f);
    FREE(sort_plz);
    FREE(sort_iban_regel);
-#line 9610 "konto_check.lxx"
+#line 9667 "konto_check.lxx"
    if(name_raw && name_data!=name_raw)
       FREE(name_raw);
    else
@@ -9122,7 +9179,7 @@ DLL_EXPORT int lut_cleanup(void)
       lut_cleanup(); /* neuer Versuch, aufzur�umen */
       RETURN(INIT_FATAL_ERROR);
    }
-#line 9684 "konto_check.lxx"
+#line 9741 "konto_check.lxx"
    init_status&=1;
    init_in_progress=0;
    return OK;
@@ -9295,8 +9352,8 @@ static void init_atoi_table(void)
    int i,ziffer;
    unsigned long l;
 
-      /* �nderungen zum 06.03.2017 aktivieren */
-   if(time(NULL)>1488754800 ||0)pz_aenderungen_aktivieren_2017_03=1;
+      /* �nderungen zum 05.06.2017 aktivieren */
+   if(time(NULL)>1496613600 ||0)pz_aenderungen_aktivieren_2017_06=1;
 
    /* ung�ltige Ziffern; Blanks und Tabs werden ebenfalls als ung�ltig
     * angesehen(!), da die Stellenzuordnung sonst nicht mehr stimmt. Ausnahme:
@@ -9561,7 +9618,7 @@ static void init_atoi_table(void)
    lut_block_name2[126]="2. IBAN Regel idx";
    lut_block_name2[127]="2. BIC Hauptst.idx";
    lut_blocklen_max=453;
-#line 9924 "konto_check.lxx"
+#line 9981 "konto_check.lxx"
    init_status|=1;
 }
 
@@ -9621,7 +9678,7 @@ static int kto_check_int(char *x_blz,int pz_methode,char *kto)
 
    switch(pz_methode){
 
-#line 9987 "konto_check.lxx"
+#line 10044 "konto_check.lxx"
 /* Berechnungsmethoden 00 bis 09 +���3
    Berechnung nach der Methode 00 +���4 */
 /*
@@ -11956,7 +12013,7 @@ static int kto_check_int(char *x_blz,int pz_methode,char *kto)
  * ######################################################################
  */
 
-#line 11998 "konto_check.lxx"
+#line 12055 "konto_check.lxx"
       case 51:
          if(*(kto+2)=='9'){   /* Ausnahme */
 
@@ -12218,8 +12275,8 @@ static int kto_check_int(char *x_blz,int pz_methode,char *kto)
          else
             return FALSE;
 
-#line 12212 "konto_check.lxx"
-#line 12214 "konto_check.lxx"
+#line 12269 "konto_check.lxx"
+#line 12271 "konto_check.lxx"
 /*  Berechnung nach der Methode 53 +���4 */
 /*
  * ######################################################################
@@ -12518,7 +12575,7 @@ static int kto_check_int(char *x_blz,int pz_methode,char *kto)
  * # bewerten.                                                          #
  * ######################################################################
  */
-#line 12483 "konto_check.lxx"
+#line 12540 "konto_check.lxx"
       case 57:
 #if DEBUG>0
          if(retvals){
@@ -13164,7 +13221,7 @@ static int kto_check_int(char *x_blz,int pz_methode,char *kto)
  * # Pr�fzifferberechnung)                                              #
  * ######################################################################
  */
-#line 13063 "konto_check.lxx"
+#line 13120 "konto_check.lxx"
       case 66:
 #if DEBUG>0
       case 2066:
@@ -17351,7 +17408,7 @@ static int kto_check_int(char *x_blz,int pz_methode,char *kto)
 /*  Berechnung nach der Methode B1 +���4 */
 /*
  * ######################################################################
- * #              Berechnung nach der Methode B1                       #
+ * #          Berechnung nach der Methode B1 (ge�ndert zum 5.6.17)      #
  * ######################################################################
  * # Die Kontonummer ist einschlie�lich der Pr�fziffer 10-stellig,      #
  * # ggf. ist die Kontonummer f�r die Pr�fzifferberechnung durch        #
@@ -17365,7 +17422,13 @@ static int kto_check_int(char *x_blz,int pz_methode,char *kto)
  * #                                                                    #
  * # Variante 2:                                                        #
  * # Modulus 10, Gewichtung 3, 7, 1, 3, 7, 1, 3, 7, 1                   #
- * # Gewichtung und Berechnung erfolgen nach der Methode 01.            #
+ * # Gewichtung und Berechnung erfolgen nach der Methode 01. F�hrt die  #
+ * # Berechnung nach Variante 2 zu einem Pr�fzifferfehler, so ist nach  #
+ * # Variante 3 zu pr�fen.                                              #
+ * #                                                                    #
+ * # Variante 3:                                                        #
+ * # Modulus 10, Gewichtung 2, 1, 2, 1, 2, 1, 2, 1, 2                   #
+ * # Gewichtung und Berechnung erfolgen nach der Methode 00.            #
  * ######################################################################
  */
 
@@ -17413,6 +17476,36 @@ static int kto_check_int(char *x_blz,int pz_methode,char *kto)
 
          MOD_10_160;   /* pz%=10 */
          if(pz)pz=10-pz;
+         CHECK_PZX10;
+
+            /* Variante 3: Berechnung nach Methode 00 */
+#if DEBUG>0
+      case 3111:
+         if(retvals){
+            retvals->methode="B1c";
+            retvals->pz_methode=3111;
+         }
+#endif
+#ifdef __ALPHA
+         pz = ((kto[0]<'5') ? (kto[0]-'0')*2 : (kto[0]-'0')*2-9)
+            +  (kto[1]-'0')
+            + ((kto[2]<'5') ? (kto[2]-'0')*2 : (kto[2]-'0')*2-9)
+            +  (kto[3]-'0')
+            + ((kto[4]<'5') ? (kto[4]-'0')*2 : (kto[4]-'0')*2-9)
+            +  (kto[5]-'0')
+            + ((kto[6]<'5') ? (kto[6]-'0')*2 : (kto[6]-'0')*2-9)
+            +  (kto[7]-'0')
+            + ((kto[8]<'5') ? (kto[8]-'0')*2 : (kto[8]-'0')*2-9);
+#else
+         pz=(kto[1]-'0')+(kto[3]-'0')+(kto[5]-'0')+(kto[7]-'0');
+         if(kto[0]<'5')pz+=(kto[0]-'0')*2; else pz+=(kto[0]-'0')*2-9;
+         if(kto[2]<'5')pz+=(kto[2]-'0')*2; else pz+=(kto[2]-'0')*2-9;
+         if(kto[4]<'5')pz+=(kto[4]-'0')*2; else pz+=(kto[4]-'0')*2-9;
+         if(kto[6]<'5')pz+=(kto[6]-'0')*2; else pz+=(kto[6]-'0')*2-9;
+         if(kto[8]<'5')pz+=(kto[8]-'0')*2; else pz+=(kto[8]-'0')*2-9;
+#endif
+         MOD_10_80;   /* pz%=10 */
+         if(pz)pz=10-pz;
          CHECK_PZ10;
 
 /*  Berechnung nach der Methode B2 +���4 */
@@ -17748,7 +17841,7 @@ static int kto_check_int(char *x_blz,int pz_methode,char *kto)
  * # Modulus 11, Gewichtung 2,3,4,5,6,7,8,9,3                           #
  * # Kontonummern, die an der 1. Stelle der 10-stelligen Kontonummer    #
  * # den Wert 1-9 oder an den Stellen 1-5 die Werte 02691-02699         #
- * # beinhalten, sind nach der Methode 20 zu pr�fen. Alle anderen       #                                               #
+ * # beinhalten, sind nach der Methode 20 zu pr�fen. Alle anderen       #
  * # Kontonummern sind nach der Variante 2 zu pr�fen.                   #
  * #                                                                    #
  * # Variante 2:                                                        #
@@ -20351,7 +20444,6 @@ static int kto_check_int(char *x_blz,int pz_methode,char *kto)
             retvals->pz_methode=143;
          }
 #endif
-if(!pz_aenderungen_aktivieren_2017_03)return NOT_DEFINED;
 
    /* Variante 1: Berechnung nach der Methode 00 */
 #if DEBUG>0
@@ -20410,6 +20502,91 @@ if(!pz_aenderungen_aktivieren_2017_03)return NOT_DEFINED;
          if(pz)pz=10-pz;
          CHECK_PZ10;
 
+/* Berechnung nach der Methode E4 +���4 */
+/*
+ * ######################################################################
+ * #               Berechnung nach der Methode E4                       #
+ * ######################################################################
+ * # Die Kontonummer ist einschlie�lich der Pr�fziffer 10-stellig,      #
+ * # ggf. ist die Kontonummer f�r die Pr�fzifferberechnung durch        #
+ * # linksb�ndige Auff�llung mit Nullen 10-stellig darzustellen.        #
+ * # Die 10. Stelle der Kontonummer ist die Pr�fziffer.                 #
+ * #                                                                    #
+ * # Variante 1:                                                        #
+ * # Modulus 11, Gewichtung 2, 3, 4, 5, 6, 7, 8, 9, 2	                  #
+ * # Die Berechnung erfolgt nach der Methode 02.                        #
+ * #                                                                    #
+ * # F�hrt die Berechnung nach Variante 1 zu einem                      #
+ * # Pr�fzifferfehler, so ist nach Variante 2 zu pr�fen.                #
+ * #                                                                    #
+ * # Variante 2:                                                        #
+ * # Modulus 10, Gewichtung 2, 1, 2, 1, 2, 1, 2, 1, 2                   #
+ * # Die Berechnung erfolgt nach der Methode 00.                        #
+ * ######################################################################
+ */
+
+      case 144:
+#if DEBUG>0
+         if(retvals){
+            retvals->methode="E4";
+            retvals->pz_methode=144;
+         }
+#endif
+if(!pz_aenderungen_aktivieren_2017_06)return NOT_DEFINED;
+
+   /* Variante 1: Berechnung nach der Methode 02 */
+#if DEBUG>0
+      case 1144:
+         if(retvals){
+            retvals->methode="E4a";
+            retvals->pz_methode=1144;
+         }
+#endif
+            pz = (kto[0]-'0') * 2
+               + (kto[1]-'0') * 9
+               + (kto[2]-'0') * 8
+               + (kto[3]-'0') * 7
+               + (kto[4]-'0') * 6
+               + (kto[5]-'0') * 5
+               + (kto[6]-'0') * 4
+               + (kto[7]-'0') * 3
+               + (kto[8]-'0') * 2;
+
+            MOD_11_352;   /* pz%=11 */
+            if(pz)pz=11-pz;
+            INVALID_PZ10;
+            CHECK_PZX10;
+
+   /* Variante 2: Berechnung nach der Methode 00 */
+#if DEBUG>0
+      case 2144:
+         if(retvals){
+            retvals->methode="E4b";
+            retvals->pz_methode=2144;
+         }
+#endif
+#ifdef __ALPHA
+         pz = ((kto[0]<'5') ? (kto[0]-'0')*2 : (kto[0]-'0')*2-9)
+            +  (kto[1]-'0')
+            + ((kto[2]<'5') ? (kto[2]-'0')*2 : (kto[2]-'0')*2-9)
+            +  (kto[3]-'0')
+            + ((kto[4]<'5') ? (kto[4]-'0')*2 : (kto[4]-'0')*2-9)
+            +  (kto[5]-'0')
+            + ((kto[6]<'5') ? (kto[6]-'0')*2 : (kto[6]-'0')*2-9)
+            +  (kto[7]-'0')
+            + ((kto[8]<'5') ? (kto[8]-'0')*2 : (kto[8]-'0')*2-9);
+#else
+         pz=(kto[1]-'0')+(kto[3]-'0')+(kto[5]-'0')+(kto[7]-'0');
+         if(kto[0]<'5')pz+=(kto[0]-'0')*2; else pz+=(kto[0]-'0')*2-9;
+         if(kto[2]<'5')pz+=(kto[2]-'0')*2; else pz+=(kto[2]-'0')*2-9;
+         if(kto[4]<'5')pz+=(kto[4]-'0')*2; else pz+=(kto[4]-'0')*2-9;
+         if(kto[6]<'5')pz+=(kto[6]-'0')*2; else pz+=(kto[6]-'0')*2-9;
+         if(kto[8]<'5')pz+=(kto[8]-'0')*2; else pz+=(kto[8]-'0')*2-9;
+#endif
+         MOD_10_80;   /* pz%=10 */
+         if(pz)pz=10-pz;
+         CHECK_PZ10;
+
 /* nicht abgedeckte F�lle +���3 */
 /*
  * ######################################################################
@@ -20427,7 +20604,7 @@ if(!pz_aenderungen_aktivieren_2017_03)return NOT_DEFINED;
          return NOT_IMPLEMENTED;
    }
 }
-#line 19159 "konto_check.lxx"
+#line 19312 "konto_check.lxx"
 
 /*
  * ######################################################################
@@ -20525,7 +20702,7 @@ 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 19257 "konto_check.lxx"
+#line 19410 "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;
@@ -20573,7 +20750,7 @@ DLL_EXPORT int kto_check_regel_dbg(char *blz,char *kto,char *blz2,char *kto2,con
    }
    else  /* BLZ und Kto gleich */
       return ret;
-#line 19305 "konto_check.lxx"
+#line 19458 "konto_check.lxx"
 }
 
 #else   /* !DEBUG */
@@ -20723,7 +20900,7 @@ DLL_EXPORT int kto_check_blz_dbg(char *blz,char *kto,RETVAL *retvals)
  * # Copyright (C) 2007 Michael Plugge <m.plugge@hs-mannheim.de>             #
  * ###########################################################################
  */
-#line 19455 "konto_check.lxx"
+#line 19608 "konto_check.lxx"
 DLL_EXPORT int kto_check_pz_dbg(char *pz,char *kto,char *blz,RETVAL *retvals)
 {
    int untermethode,pz_methode;
@@ -20959,7 +21136,7 @@ DLL_EXPORT int get_lut_info2_b(char *lutname,int *version,char **prolog_p,char *
    }
    else
       **user_info_p=0;
-#line 19676 "konto_check.lxx"
+#line 19829 "konto_check.lxx"
    FREE(prolog);
    return OK;
 }
@@ -21094,24 +21271,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 1
-         if(pz_aenderungen_aktivieren_2017_03)
-            return "06.03.2017";
+         if(pz_aenderungen_aktivieren_2017_06)
+            return "05.06.2017";
          else
-            return "05.12.2016 (Aenderungen vom 06.03.2017 enthalten aber noch nicht aktiviert)";
-#else
-         return "06.03.2017";
-#endif
+            return "06.03.2017 (Aenderungen vom 05.06.2017 enthalten aber noch nicht aktiviert)";
       case 5:
-        return "05.12.2016";
+        return "05.06.2017";
       case 6:
-        return "3. M�rz 2017";            /* Klartext-Datum der Bibliotheksversion */
+        return "13. Juni 2017";            /* Klartext-Datum der Bibliotheksversion */
       case 7:
         return "final";              /* Versions-Typ der Bibliotheksversion (development, beta, final) */
       case 8:
-        return "5";             /* Hauptversionszahl */
+        return "6";             /* Hauptversionszahl */
       case 9:
-        return "10";             /* Unterversionszahl */
+        return "00";             /* Unterversionszahl */
    }
 }
 
@@ -21257,7 +21430,7 @@ DLL_EXPORT int dump_lutfile(char *outputname,UINT4 *required)
       default:
          break;
    }
-#line 19913 "konto_check.lxx"
+#line 20062 "konto_check.lxx"
    fputc('\n',out);
    while(--i)fputc('=',out);
    fputc('\n',out);
@@ -21582,7 +21755,7 @@ DLL_EXPORT const char *iban2bic_id(char *iban,int *retval,int *blz,int *kto)
    return iban2bic(iban,retval,b,k);
 }
 
-#line 20238 "konto_check.lxx"
+#line 20387 "konto_check.lxx"
 /* Funktion iban_gen(), iban_bic_gen() und iban_bic_gen1 +���1 */
 /* ###########################################################################
  * # Die Funktion iban_gen generiert aus Bankleitzahl und Kontonummer eine   #
@@ -22415,7 +22588,7 @@ DLL_EXPORT int ipi_check(char *zweck)
  * # Copyright (C) 2009,2011 Michael Plugge <m.plugge@hs-mannheim.de>        #
  * ###########################################################################
  */
-#line 21071 "konto_check.lxx"
+#line 21220 "konto_check.lxx"
 
 /* Funktion volltext_zeichen() +���2 */
 /* Diese Funktion gibt f�r Zeichen die bei der Volltextsuche g�ltig sind
@@ -23262,7 +23435,7 @@ static int qcmp_bic_h(const void *ap,const void *bp)
       return a-b;
 }
 
-#line 21918 "konto_check.lxx"
+#line 22067 "konto_check.lxx"
 
 /* Funktion qcmp_bic() +���3 */
 static int qcmp_bic(const void *ap,const void *bp)
@@ -23367,7 +23540,7 @@ static int qcmp_iban_regel(const void *ap,const void *bp)
    else 
       return a-b;
 }
-#line 21933 "konto_check.lxx"
+#line 22082 "konto_check.lxx"
 
 /* Funktion init_blzf() +���2
  * Diese Funktion initialisiert das Array mit den Bankleitzahlen f�r alle
@@ -23435,7 +23608,7 @@ DLL_EXPORT int konto_check_idx2blz(int idx,int *zweigstelle,int *retval)
 }
 
 /* Funktion suche_int1() +���2 */
-#line 22001 "konto_check.lxx"
+#line 22150 "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)
 {
@@ -23486,7 +23659,7 @@ static int suche_int1(int a1,int a2,int *anzahl,int **start_idx,int **zweigstell
 }
 
 /* Funktion suche_int2() +���2 */
-#line 22052 "konto_check.lxx"
+#line 22201 "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)
 {
@@ -24101,7 +24274,7 @@ 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 22668 "konto_check.lxx"
+#line 22817 "konto_check.lxx"
 
    if(idx_op)*idx_op=NULL;
    if(cnt_op)*cnt_op=NULL;
@@ -24183,7 +24356,7 @@ DLL_EXPORT int lut_suche_sort2(int anzahl,int *blz,int *zweigstellen,int *anzahl
    return OK;
 }
 
-#line 22751 "konto_check.lxx"
+#line 22900 "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)
@@ -24313,7 +24486,7 @@ 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 22901 "konto_check.lxx"
+#line 23050 "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)
@@ -24404,7 +24577,7 @@ 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 22934 "konto_check.lxx"
+#line 23083 "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,
@@ -24790,7 +24963,7 @@ DLL_EXPORT const char *iban_ort(char *iban,int filiale,int*retval)
 {
    return iban_fkt_s(iban,filiale,retval,lut_ort);
 }
-#line 23023 "konto_check.lxx"
+#line 23172 "konto_check.lxx"
 
 static int bic_fkt_c(char *bic1,int mode,int filiale,int *retval,char *base,int error)
 {
@@ -25885,6 +26058,7 @@ DLL_EXPORT const char *pz2str(int pz,int *ret)
       case 141: return "E1";
       case 142: return "E2";
       case 143: return "E3";
+      case 144: return "E4";
       case 1013: return "13a";
       case 1049: return "49a";
       case 1050: return "50a";
@@ -25951,6 +26125,7 @@ DLL_EXPORT const char *pz2str(int pz,int *ret)
       case 1138: return "D8a";
       case 1139: return "D9a";
       case 1143: return "E3a";
+      case 1144: return "E4a";
       case 2013: return "13b";
       case 2049: return "49b";
       case 2050: return "50b";
@@ -26017,6 +26192,7 @@ DLL_EXPORT const char *pz2str(int pz,int *ret)
       case 2138: return "D8b";
       case 2139: return "D9b";
       case 2143: return "E3b";
+      case 2144: return "E4b";
       case 3051: return "51c";
       case 3057: return "57c";
       case 3068: return "68c";
@@ -26037,6 +26213,7 @@ DLL_EXPORT const char *pz2str(int pz,int *ret)
       case 3096: return "96c";
       case 3104: return "A4c";
       case 3108: return "A8c";
+      case 3111: return "B1c";
       case 3118: return "B8c";
       case 3125: return "C5c";
       case 3127: return "C7c";
@@ -26074,7 +26251,7 @@ DLL_EXPORT const char *pz2str(int pz,int *ret)
       default:   return "???";
    }
 }
-#line 23978 "konto_check.lxx"
+#line 24127 "konto_check.lxx"
 
 /* Funktion lut_keine_iban_berechnung() +���1 */
 /*
@@ -26189,7 +26366,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_2017_03 abzufragen bzw. zu setzen. Falls die Variable #
+ * # pz_aenderungen_aktivieren_2017_06 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.             #
@@ -26205,8 +26382,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_2017_03=set;
-   return pz_aenderungen_aktivieren_2017_03;
+   if(set==0 || set==1)pz_aenderungen_aktivieren_2017_06=set;
+   return pz_aenderungen_aktivieren_2017_06;
 }
 
 #if DEBUG>0
@@ -26238,7 +26415,7 @@ DLL_EXPORT char *kto_check_test_vars(char *txt,UINT4 i)
 #endif
 
 
-#line 24142 "konto_check.lxx"
+#line 24291 "konto_check.lxx"
 /* Funktionen *_id() +���1 */
 /* ###########################################################################
  * # Die folgenden Funktionen sind die id-Varianten von Funktionen, die      #

data/ext/konto_check_raw/konto_check_raw_ruby.c

@@ -4358,7 +4358,7 @@ void Init_konto_check_raw()
  *
  * <b>ATTENTION:</b> There are a few important changes in the API between
  * version 0.0.2 (version by Peter Horn/Provideal), version 0.0.6 (jeanmartin)
- * and this version (V. 5.10 from 2017-03-10):
+ * and this version (V. 6.00 from 2017-06-13):
  *
  * * The function KontoCheck::load_bank_data() is no longer used; it is
  *   replaced by KontoCheck::init() and KontoCheck::generate_lutfile().

metadata

@@ -1,7 +1,7 @@
 --- !ruby/object:Gem::Specification
 name: konto_check
 version: !ruby/object:Gem::Version
-  version: 5.10.0
+  version: 6.00.0
 platform: ruby
 authors:
 - Provideal Systems GmbH
@@ -10,7 +10,7 @@ authors:
 autorequire: 
 bindir: bin
 cert_chain: []
-date: 2017-03-10 00:00:00.000000000 Z
+date: 2017-06-08 00:00:00.000000000 Z
 dependencies:
 - !ruby/object:Gem::Dependency
   name: thoughtbot-shoulda