Update anpassungen Barcode-Kleber-Generierung

EDOKA/Office/WordLib.vb

@@ -5466,15 +5466,15 @@ eh:
             keys.cpMainConnectionProvider = conn
             key = keys.get_dbkey("barcodeetikette")
             defkey = LTrim(key)
-            While Len(defkey) < 7
+            While Len(defkey) < 5
                 defkey = "0" + defkey
             End While
             yy = LTrim(Str(Year(Now)))
-            yy = Right(yy, 2)
+            'yy = Right(yy, 2)
 
             defkey = yy + defkey
             defkey = defkey + LTrim(Pruefziffer(defkey))
-            bc.iBarcodenr = New SqlInt32(CType(defkey, Int32))
+            bc.iBarcodenr = New SqlInt32(CType(defkey, Long))
             bc.sDokumentid = New SqlString(CType("", String))
             bc.bAktiv = New SqlBoolean(CType(True, Boolean))
             bc.daErstellt_am = New SqlDateTime(CType(Now, DateTime))